Latihan_11_36110033
A.
Object-object dalam Latihan_11_36110033:
1. Object Label
Terdapat
empat belas label, bertuliskan indeks prestasi komulatif, stambuk, nama, mata
kuliah, nilai mutu, SKS, NxS, pengantar akuntansi, akuntansi intermedit,
akuntansi advance, akuntansi biaya, sistem akuntansi, total, IPK.
2. Object Textbox
Terdapat dua
puluh textbox, dua belas status input dan delapan status read only. Status
input digunakan untuk memasukkan stambuk, nama, nilai mutu dan sks dari setiap
matakuliah yang telah dituliskan pada label. Status Read Only digunakan untuk
menampilkan hasil dari perkalian nilai mutu dan sks, total sks, dan IPK.
3. Object Button
Terdapat satu
object button yang nama textnya Kosongkan.
Button Kosongkan digunakan untuk mengosongkan kembali semua TextBox.
B.
Script Unique
Untuk button Kosongkan:
STAMBUK_36110033.Text
= ""
NAMA_36110033.Text = ""
NPA_36110033.Text = ""
NAI_36110033.Text = ""
NAA_36110033.Text = ""
NAB_36110033.Text = ""
NSA_36110033.Text = ""
SPA_36110033.Text = ""
SAI_36110033.Text = ""
SAA_36110033.Text = ""
SAB_36110033.Text = ""
SSA_36110033.Text = ""
XPA_36110033.Text = ""
XAI_36110033.Text = ""
XAA_36110033.Text = ""
XAB_36110033.Text = ""
XSA_36110033.Text = ""
TOTALS_36110033.Text = ""
TOTAL_36110033.Text = ""
IPK_36110033.Text = ""
C.
Even
ILHA(ByVal X As
TextBox, ByVal Y As
TextBox, ByVal Z As
TextBox)
SPA_36110033_TextChanged
SAI_36110033_TextChanged
SAA_36110033_TextChanged
SAB_36110033_TextChanged
SSA_36110033_TextChanged
XPA_36110033_TextChanged
TOTALS_36110033_TextChanged
KOSONG_36110033_Click
D.
Property
Property TextBox ==> ReadOnly=True
Prosedur
1.
Klik Start lalu pilih Microsoft
Visual Studio 2008
1. Buka Ms.
Visual Studio
2. Lalu akan muncul jendela awal
Microsoft Visual Studio
3. Klik Add New
Item dan akan muncul jendela add new item seperti berikut:
Setelah
muncul pilih windos from, kemudian
ganti nama sesuai dengan nama yang diinginkan dan selanjutnya klik tombol add. Langkah ini dilakukan karena kita
sudah pernah membuat project sebelumnya. Akan muncul from untuk digunakan
membuat project
4. Buat text
pada form dengan menggunakan label,
sebanyak 14 label. Dengan nama text masing-masing bernama indeks prestasi komulatif, stambuk, nama, mata kuliah, nilai mutu, SKS,
NxS, pengantar akuntansi, akuntansi intermedit, akuntansi advance, akuntansi
biaya, sistem akuntansi, total, IPK. Adapun nama lebelnya terserah anda.
5. Buat kolom
sesuai dengan design pada latihan 11 dengan mengguanakan textbox, sebanyak 12 kolom.
Nama textbox diisi dengan identitas apa saja yang kemudian diikuti nomor
stambuk. 8 textbox menggunakan readonly false dan selebihnya
menggunakan readonly true.
6. Buat 1
tombol sesuai dengan design pada latihan 11 dengan menggunakan button. Kemudian beri nama text kosongkan kemudian beri nama apa saja yang anda inginkan atau kosongkan_36110033. Adapun
posisi text, kolom lebel dan tombol button disesuai dengan design pada
latihan 11 berikut:
7. Untuk
menuliskan rumus pada latihan 11, anda dapat menuliskan rumus seperti dibawah
ini:
Public Class Latihan_11_36110033
Private Sub ILHA(ByVal
X As TextBox, ByVal
Y As TextBox, ByVal
Z As TextBox)
If X.Text = "A" Then
Z.Text = 4 *
Val(Y.Text)
ElseIf X.Text = "B" Then
Z.Text = 3 * Val(Y.Text)
ElseIf X.Text = "C" Then
Z.Text = 2 * Val(Y.Text)
ElseIf X.Text = "D" Then
Z.Text = 1 * Val(Y.Text)
Else
Z.Text = ""
End If
End Sub
Private Sub
SPA_36110033_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
SPA_36110033.TextChanged
ILHA(NPA_36110033, SPA_36110033, XPA_36110033)
XPA_36110033.Text =
Val(NPA_36110033.Text)*Val(SPA_36110033.Text)
TOTALS_36110033.Text=Val(SPA_36110033.Text)+Val(SAI_36110033.Text)+Val(SAA_36110033.Text)+Val(SAB_36110033.Text)+Val(SSA_36110033.Text)
End Sub
Private Sub
SAI_36110033_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
SAI_36110033.TextChanged
ILHA(NAI_36110033, SAI_36110033,
XAI_36110033)
XAI_36110033.Text =
Val(NAI_36110033.Text)*Val(SAI_36110033.Text)
TOTALS_36110033.Text=Val(SPA_36110033.Text)+Val(SAI_36110033.Text)+Val(SAA_36110033.Text)+Val(SAB_36110033.Text)+Val(SSA_36110033.Text)
End Sub
Private Sub
SAA_36110033_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
SAA_36110033.TextChanged
ILHA(NAA_36110033,
SAA_36110033, XAA_36110033)
XAA_36110033.Text=Val(NAA_36110033.Text*Val(SAA_36110033.Text)
TOTALS_36110033.Text=Val(SPA_36110033.Text)+Val(SAI_36110033.Text)+Val(SAA_36110033.Text)+Val(SAB_36110033.Text)+Val(SSA_36110033.Text)
End Sub
Private
Sub SAB_36110033_TextChanged(ByVal sender AsSystem.Object,
ByVal e As
System.EventArgs) Handles
SAB_36110033.TextChanged
ILHA(NAB_36110033,
SAB_36110033, XAB_36110033)
XAB_36110033.Text =
Val(NAB_36110033.Text) * Val(SAB_36110033.Text)
TOTALS_36110033.Text =
Val(SPA_36110033.Text) + Val(SAI_36110033.Text) + Val(SAA_36110033.Text) +
Val(SAB_36110033.Text) + Val(SSA_36110033.Text)
End Sub
Private Sub SSA_36110033_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
SSA_36110033.TextChanged
ILHA(NSA_36110033, SSA_36110033, XSA_36110033)
XSA_36110033.Text = Val(NSA_36110033.Text) * Val(SSA_36110033.Text)
TOTALS_36110033.Text=Val(SPA_36110033.Text)+Val(SAI_36110033.Text)+Val(SAA_36110033.Text)+Val(SAB_36110033.Text)+Val(SSA_36110033.Text)
End Sub
Private Sub
XPA_36110033_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
XPA_36110033.TextChanged
TOTAL_36110033.Text=Val(XPA_36110033.Text)+Val(XAI_36110033.Text)+Val(XAA_36110033.Text)+Val(XAB_36110033.Text)+Val(XSA_36110033.Text)
End Sub
Private Sub
TOTALS_36110033_TextChanged(ByValsenderAsSystem.Object, ByValeAsSystem.EventArgs)HandlesTOTALS_36110033.TextChanged
IPK_36110033.Text=Val(TOTAL_36110033.Text/Val(TOTALS_36110033.Text)
End Sub
Private Sub KOSONG_36110033_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles KOSONG_36110033.Click
STAMBUK_36110033.Text = ""
NAMA_36110033.Text = ""
NPA_36110033.Text = ""
NAI_36110033.Text = ""
NAA_36110033.Text = ""
NAB_36110033.Text = ""
NSA_36110033.Text = ""
SPA_36110033.Text = ""
SAI_36110033.Text = ""
SAA_36110033.Text = ""
SAB_36110033.Text = ""
SSA_36110033.Text = ""
XPA_36110033.Text = ""
XAI_36110033.Text = ""
XAA_36110033.Text = ""
XAB_36110033.Text = ""
XSA_36110033.Text = ""
TOTALS_36110033.Text = ""
TOTAL_36110033.Text = ""
IPK_36110033.Text = ""
End
Sub
End Class
8. Kemudian di Start Debbuging, maka kita akan tahu, betul atau tidaknya rumus yang
kita gunakan serta coba jalankan perintah yang ingin kita ketahui dari latihan
tersebut untuk mengetahui hasilnya yang lebih jelas lagi.
9.
Jika program berjalan simpan dengan menekan tombol ctrl+s untuk menyimpan data dan
prosedur latihan 11 selesai.
Tidak ada komentar:
Posting Komentar