Form Latihan_11 terdapat tiga object
yaitu Label,Textbox, Button:
Object Label
Terdapat
empat belas object Label (yang bernama Indeks Prestasi Komulatif, Stambuk, Nama, Mata
Kuliah, Pengantar Akuntansi,Akuntansi Intermediete, Akuntansi Advance,
Akuntansi Biaya, Sistem Akuntansi, Total, IPK, Nilai Mutu (N), SKS (S), N x S )
Object Textbox
Terdapat dua puluh object textbox
(dua belas status input; delapan status read only). Status input digunakan
untuk memasukkan data/angka. Status Read Only digunakan untuk menampilkan hasil
perhitungan dari data-data yang telah
diinput.
Object Button
Terdapat
satu object button yaitu “Close”
Object
button ini digunakan untuk mengosongkan kembali object TextBox.
Script Unique
Untuk button “Close”
STB_36110044.Text = ""
NM_36110044.Text = ""
Even
NPA_36110044_TextChanged
Close_36110044_Click
Property
Property
TextBox ==> ReadOnly=True
PROSEDUR PENYELESAIAN:
1.
Klik star lalu pilih Microsoft Visual Studio 2008
2.
Pilih Project yang sebelumnya telah dibuat
3. Pada kotak “Solution Explorer klik
kanan nama project => add => new item
4. Ubah nama pada lembar "Add New Item" kemudian add
5. Buat form
dengan menggunakan Label, Textbox, dan Button yang ada dalam "Toolbox”
6. Ganti nama
Textbox dan Button menggunakan "Properties Window"
7. Klik 2x
pada kotak design untuk membuka lembar vb
Masukkan rumus berikut untuk menyelesaikan latihan_11
Public Class Latihan_11_36110044
Private Sub TIYA1(ByVal N As TextBox, ByVal S As TextBox, ByVal X As TextBox)
If
N.Text = "A" Then
X.Text = 4 * Val(S.Text)
ElseIf
N.Text = "B" Then
X.Text = 3 * Val(S.Text)
ElseIf
N.Text = "C" Then
X.Text = 2 * Val(S.Text)
ElseIf
N.Text = "D" Then
X.Text = 1 * Val(S.Text)
End If
End Sub
Private Sub TIYA2(ByVal S As TextBox)
STOTAL_36110044.Text =
Val(SPA_36110044.Text) + Val(SAI_36110044.Text) + Val(SAA_36110044.Text) +
Val(SAB_36110044.Text) + Val(SSA_36110044.Text)
XTOTAL_36110044.Text =
Val(XPA_36110044.Text) + Val(XAI_36110044.Text) + Val(XAA_36110044.Text) +
Val(XAB_36110044.Text) + Val(XSA_36110044.Text)
IPK_36110044.Text =
Val(XTOTAL_36110044.Text) / Val(STOTAL_36110044.Text)
End Sub
Private Sub NPA_36110044_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
NPA_36110044.TextChanged, SPA_36110044.TextChanged
TIYA1(NPA_36110044, SPA_36110044,
XPA_36110044)
TIYA2(SPA_36110044)
End Sub
Private Sub
NAI_36110044_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
NAI_36110044.TextChanged, SAI_36110044.TextChanged
TIYA1(NAI_36110044, SAI_36110044,
XAI_36110044)
TIYA2(SAI_36110044)
End Sub
Private Sub
NAA_36110044_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
NAA_36110044.TextChanged, SAA_36110044.TextChanged
TIYA1(NAA_36110044, SAA_36110044,
XAA_36110044)
TIYA2(SAA_36110044)
End Sub
Private Sub NAB_36110044_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
NAB_36110044.TextChanged, SAB_36110044.TextChanged
TIYA1(NAB_36110044, SAB_36110044,
XAB_36110044)
TIYA2(SAB_36110044)
End Sub
Private Sub NSA_36110044_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
NSA_36110044.TextChanged, SSA_36110044.TextChanged
TIYA1(NSA_36110044, SSA_36110044,
XSA_36110044)
TIYA2(SSA_36110044)
End Sub
Private Sub Close_36110044_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Close_36110044.Click
STB_36110044.Text = ""
NM_36110044.Text = ""
NPA_36110044.Text = ""
NAI_36110044.Text = ""
NAA_36110044.Text = ""
NAB_36110044.Text = ""
NSA_36110044.Text = ""
SPA_36110044.Text = ""
SAI_36110044.Text = ""
SAA_36110044.Text = ""
SAB_36110044.Text = ""
SSA_36110044.Text = ""
STOTAL_36110044.Text = ""
XPA_36110044.Text = ""
XAI_36110044.Text = ""
XAA_36110044.Text = ""
XAB_36110044.Text = ""
XSA_36110044.Text = ""
XTOTAL_36110044.Text = ""
IPK_36110044.Text = ""
End Sub
End Class
7. Jalankan program dengan menggunakan “start debugging”
Tidak ada komentar:
Posting Komentar