Deskripsi Latihan_11_36110038
Form Latihan_11 terdapat dua object
yaitu Label dan Textbox:
Object Label
Terdapat empat belas label (yang
bertuliskan Indeks Prestasi Komulatif; Stambuk; Nama; Mata Kuliah; Nilai Mutu
(N); SKS (S); N X S; Pengantar Akuntansi; Akuntansi Intermediete; Akuntansi
Advance; Akuntansi Biaya; Sistem Akuntansi; Total dan IPK)
Object Text Box
Terdapat dua puluh textbox (dua
belas status input dan delapan status read only). Status input digunakan untuk
memasukkan nilai/text Stambuk; Nama; Mata Kuliah; nilai mutu dan SKS Pengantar
Akuntansi; nilai mutu dan SKS Akuntansi Intermediete; nilai mutu dan SKS
Akuntansi Advance; nilai mutu dan SKS Akuntansi Biaya; nilai mutu dan SKS
Sistem Akuntansi. Status Read Only digunakan untuk menampilkan hasil
perhitungan N X S; Total N X S; total SKS dan IPK. Dengan menggunakan rumus IPK
= total (n x s) / total sks.
Property
Property
TextBox ==> ReadOnly=True
Prosedur penyelesaian
1.
Buka Project_36110038 yang telah
dibuat sebelumnya.
2.
Buka visual basic Kumpulan_Latihan_36110038
yang telah dibuat sebelumnya.
3.
Buat form baru dengan nama
Latihan_11_36110038 sesuai form dibawah ini.
4. Ganti
nama textbox dan button menggunakan "Properties Window" sesuai dengan
yang diinginkan.
5.
Klik 2x pada kotak design untuk
membuka lembar VB untuk menuliskan rumusnya. Masukkan rumus berikut untuk
menyelesaikan Latihan_11
Public Class Latihan_11_36110038
Private Sub widhe1(ByVal N As TextBox, ByVal S As TextBox, ByVal NS As TextBox)
If
N.Text = "A" Then
NS.Text = 4 * Val(S.Text)
ElseIf
N.Text = "B" Then
NS.Text = 3 * Val(S.Text)
ElseIf
N.Text = "C" Then
NS.Text = 2 * Val(S.Text)
ElseIf
N.Text = "D" Then
NS.Text = 1 * Val(S.Text)
End If
End Sub
Private Sub widhe2(ByVal S As TextBox)
TS_36110038.Text =
Val(S1_36110038.Text) + Val(S2_36110038.Text) + Val(S3_36110038.Text) +
Val(S4_36110038.Text) + Val(S5_36110038.Text)
TNS_36110038.Text = Val(NS1_36110038.Text)
+ Val(NS2_36110038.Text) + Val(NS3_36110038.Text) + Val(NS4_36110038.Text) +
Val(NS5_36110038.Text)
IPK_36110038.Text =
Val(TNS_36110038.Text) / Val(TS_36110038.Text)
End Sub
Private Sub N1_36110038_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
N1_36110038.TextChanged, S1_36110038.TextChanged
widhe1(N1_36110038, S1_36110038,
NS1_36110038)
widhe2(S1_36110038)
End Sub
Private Sub N2_36110038_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
N2_36110038.TextChanged, S2_36110038.TextChanged
widhe1(N2_36110038, S2_36110038,
NS2_36110038)
widhe2(S2_36110038)
End Sub
Private Sub N3_36110038_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
N3_36110038.TextChanged, S3_36110038.TextChanged
widhe1(N3_36110038, S3_36110038,
NS3_36110038)
widhe2(S3_36110038)
End Sub
Private Sub N4_36110038_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
N4_36110038.TextChanged, S4_36110038.TextChanged
widhe1(N4_36110038, S4_36110038,
NS4_36110038)
widhe2(S4_36110038)
End Sub
Private Sub N5_36110038_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
N5_36110038.TextChanged, S5_36110038.TextChanged
widhe1(N5_36110038, S5_36110038,
NS5_36110038)
widhe2(S5_36110038)
End Sub
End Class
6.
Tekan
F5 pada keyboard untuk menjalankan form.
Tidak ada komentar:
Posting Komentar