A. Langkah-Langkah Penyelesaian Form Latihan_11
· Buka project yang telah dibuat sebelumnya.
· Click project kemudian pilih add windows
form, seperti pada gambar dibawah ini
· Ketik nama form "Latihan_11_46110007"
pada name kemudian click add
· Buat form seperti berikut
· Setelah form selesai masukkan rumus seperti
dibawah ini
Public Class
Latihan_11_46110007
Private Sub fanty(ByVal A As TextBox, ByVal
B As TextBox, ByVal C As TextBox)
If A.Text = "A" Then
C.Text = Val(B.Text) * 4
ElseIf A.Text = "B" Then
C.Text = Val(B.Text) * 3
ElseIf A.Text = "C" Then
C.Text = Val(B.Text) * 2
ElseIf A.Text = "D" Then
C.Text = Val(B.Text) * 1
ElseIf A.Text = "E" Then
C.Text = Val(B.Text) * 0
Else : MsgBox("NILAI MUTU TIDAK
DITEMUKAN")
End If
End Sub
Private Sub TOTAL()
TOTAL1_46110007.Text =
Val(S1_46110007.Text) + Val(S2_46110007.Text) + Val(S3_46110007.Text) +
Val(S4_46110007.Text) + Val(S5_46110007.Text)
TOTAL2_46110007.Text =
Val(NS1_46110007.Text) + Val(NS2_46110007.Text) + Val(NS3_46110007.Text) +
Val(NS4_46110007.Text) + Val(NS5_46110007.Text)
IPK_46110007.Text =
TOTAL2_46110007.Text / TOTAL1_46110007.Text
End Sub
Private Sub S1_46110007_TextChanged(ByVal
sender As Object, ByVal e As System.EventArgs) Handles S1_46110007.TextChanged
fanty(N1_46110007, S1_46110007,
NS1_46110007)
TOTAL()
End Sub
Private Sub S2_46110007_TextChanged(ByVal
sender As Object, ByVal e As System.EventArgs) Handles S2_46110007.TextChanged
fanty(N2_46110007, S2_46110007,
NS2_46110007)
TOTAL()
End Sub
Private Sub S3_46110007_TextChanged(ByVal
sender As Object, ByVal e As System.EventArgs) Handles S3_46110007.TextChanged
fanty(N3_46110007, S3_46110007,
NS3_46110007)
TOTAL()
End Sub
Private Sub S4_46110007_TextChanged(ByVal
sender As Object, ByVal e As System.EventArgs) Handles S4_46110007.TextChanged
fanty(N4_46110007, S4_46110007,
NS4_46110007)
TOTAL()
End Sub
Private Sub S5_46110007_TextChanged(ByVal
sender As Object, ByVal e As System.EventArgs) Handles S5_46110007.TextChanged
fanty(N5_46110007, S5_46110007,
NS5_46110007)
TOTAL()
End Sub
End Class
· Untuk menjalankan form tekan F5
B.Deskripsi Form Latihan 11
Pada form latihan 11 ada 2 object
yang digunakan yaitu label dan textbox.
Object Label
Terdapat 14 label pada form
latihan 11 (indeks prestasi kumulatif, stambuk, nama, mata kuliah, pengantar
akuntansi, akuntansi intermediate, akuntansi advance, akuntansi biaya, system akuntansi,
total, IPK, nilai mutu, SKS dan N * S).
Object TextBox
Pada form ini ada 20 textbox yang
digunakan (17 status input dan 3 status readonly). Status input digunakan untuk
memasukkan data sedangkan readonly akan menampilkan hasil analisa setelah data
di input ke textbox yang berstatus input.
Script Unique
Membuat call prosedur dengan
menggunakan huruf mutu, angka mutu dan SKS. Kriteria Penilaian:
A = 4
B = 3
C = 2
D = 1
E = 0
Rumus:
1. N*S = Nilai
Mutu (N) * SKS (S)
2. Total = Jumlah Total keseluruhan SKS, Jumlah Total
Keseluruhan N*S
3. IPK = Total
N*S : Total SKS
Private Sub fanty(ByVal A As
TextBox, ByVal B As TextBox, ByVal C As TextBox)
If A.Text = "A" Then
C.Text = Val(B.Text) * 4
ElseIf A.Text = "B" Then
C.Text = Val(B.Text) * 3
Untuk
menjalankan call prosedur yang telah dibuat, urutan data call prosedur harus sesuai dengan urutan textbox
Private Sub
S1_46110007_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
S1_46110007.TextChanged
fanty(N1_46110007, S1_46110007,
NS1_46110007)
TOTAL()
End Sub
Even
TextChanged.
Property
Property TextBox => ReadOnly = True
Langkah-Langkah Menjalankan Form Latihan
11
- Input stambuk pada textbox yang berlabelkan “Stambuk”
- Input nama pada textbox yang berlabelkan “Nama”
- Input nilai mutu dan SKS setiap mata kuliah pada textbox yang tersedia.
- Setelah langkah pertama, kedua dan ketiga selesai maka program akan menganalisa data yang telah diinput kemudian akan menampilkan hasil dari analisa pada textbox berstatus readonly yang tersedia.
- Selamat mencoba (:
Posting Komentar