KODE PROGRAM
Private Sub CBONPM_Click()
Dim nama, jurusan, hm As String
Select Case CBONPM.Text
Case “11100171”
nama = “pariyanto”
jurusan = “SISTEM INFORMASI”
Case “11100148”
nama = “MUHAMMAD PURWADI”
jurusan = “SISTEM INFORMASI”
Case “11100152”
nama = “NOVI PANCA ANGGRAINI”
jurusan = “SISTEM INFORMASI”
End Select
TXTNAMA.Text = nama
TXTJURUSAN.Text = jurusan
TXTQUIS.SetFocus
End Sub
Private Sub CMDBERSIH_Click()
CBONPM.Text = “”
TXTNAMA.Text = “”
TXTJURUSAN.Text = “”
TXTQUIS.Text = “”
TXTTUGAS.Text = “”
TXTUTS.Text = “”
TXTUAS.Text = “”
TXTNA.Text = “”
TXTHM.Text = “”
CBONPM.SetFocus
End Sub
Private Sub CMDKELUAR_Click()
Unload Me
End Sub
Private Sub CMDPROSES_Click()
Dim na As Integer
Dim hm As String
quis = Val(TXTQUIS.Text)
tugas = Val(TXTTUGAS.Text)
uts = Val(TXTUTS.Text)
uas = Val(TXTUAS.Text)
na = (quis + tugas + uts + uas) / 4
TXTNA.Text = na
Select Case TXTNA.Text
Case Is > 80
hm = “A”
Case Is > 70
hm = “B”
Case Is > 60
hm = “C”
Case Is > 50
hm = “D”
Case Is > 40
hm = “E”
End Select
TXTHM.Text = hm
End Sub
Private Sub Form_Load()
CBONPM.AddItem “11100153”
CBONPM.AddItem “11100148”
CBONPM.AddItem “11100152”
End Sub
Private Sub TXTQUIS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTTUGAS.SetFocus
End If
End Sub
Private Sub TXTTUGAS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTUTS.SetFocus
End If
End Sub
Private Sub TXTUTS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTUAS.SetFocus
End If
End Sub