huruf mutu tanpa keyprees

Private Sub Cbonpm_Click()
Dim nama, jurusan, HM As String

Select Case Cbonpm.Text
Case "17100034"
nama = "Marisca nova linda"
jurusan = " Sistem Informasi"
Case "17100011"
nama = "Ariansyah"
jurusan = " Sistem Informasi"
Case "17100014"
nama = "Dwi Agustina"
jurusan = "Manajemen Informatika"
Case "17100028"
nama = "Ida Ayu Wulandari"
jurusan = "Tehnik Informatika"
Case "17100001"
nama = "Mardalenna"
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.Text = ""
Txttugas.Text = ""
Txtuts.Text = ""
Txtuas.Text = ""
Txtna.Text = ""
Txthm.Text = ""
End Sub

Private Sub cmdbproses_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 < 50
HM = "E"
End Select
Txthm.Text = HM
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub Form_Load()
Cbonpm.AddItem "17100034"
Cbonpm.AddItem "17100011"
Cbonpm.AddItem "17100014"
Cbonpm.AddItem "17100028"
Cbonpm.AddItem "17100001"


End Sub





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 If
End Sub