Private Sub Cbonpm_Click()
Dim nama, jurusan, HM As String
Select Case Cbonpm.Text
Case “14100418”
nama = “ABDUL AZIZ”
jurusan = “Sistem Informasi”
Case “14100190”
nama = “AHMAD SYAIFULOH”
jurusan = “Sistem Informasi”
Case “14100207”
nama = “RAIS ZULKARNAIN”
jurusan = “Sistem Informasi”
Case “14100213”
nama = “INDRI DESTRIANA”
jurusan = “Sistem Informasi”
Case “14100177”
nama = “JAMILAH”
jurusan = “Sistem Informasi”
Case “14100208”
nama = “SANDI ROYAN SAPUTRA”
jurusan = “Sistem Informasi”
Case “14100167”
nama = “SITI NUR JANAH”
jurusan = “Sistem Informasi”
Case “14100176”
nama = “IRWAN SUSILO”
jurusan = “Sistem Informasi”
Case “14100179”
nama = “IMAM SAMSUDIN”
jurusan = “Sistem Informasi”
Case “14100214”
nama = “MIFTAHUL KARIM”
jurusan = “Sistem Informasi”
End Select
Txtnama.Text = nama
Txtjurusan.Text = jurusan
Txtquis.SetFocus
End Sub
Private Sub cmdbatal_Click()
Cbonpm.SetFocus
Cbonpm.Text = “”
Txtnama.Text = “”
Txtjurusan.Text = “”
Txtquis = “”
Txttugas = “‘”
Txtuts = “”
Txtuas = “”
Txtna = “”
Txthm = “”
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 = (Txtuas.Text)
NA = (QUIS + TUGAS + UTS + UAS) / 4
Txtna = 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 < 50
HM = “E”
End Select
Txthm.Text = HM
End Sub
Private Sub Form_Load()
Cbonpm.AddItem “14100418”
Cbonpm.AddItem “14100190”
Cbonpm.AddItem “14100207”
Cbonpm.AddItem “14100213”
Cbonpm.AddItem “14100177”
Cbonpm.AddItem “14100208”
Cbonpm.AddItem “14100167”
Cbonpm.AddItem “14100176”
Cbonpm.AddItem “14100179”
Cbonpm.AddItem “14100214”
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