HURUF MUTU MAHASISWA STMIK PRINGSEWU TANPA KEYPRESS

Private Sub batal_Click()
cbonpm.SetFocus
cbonpm.Text = ""
txtnama.Text = ""
txtjurusan.Text = ""
txtquis.Text = ""
txttugas.Text = ""
txtuts.Text = ""
txtuas.Text = ""
txtnilaiakhir.Text = ""
txthm.Text = ""
End Sub


Private Sub cbonpm_Click()
Dim nama, jurusan, hm As String

Select Case cbonpm.Text
Case "17100025"
nama = "Nova Alfiatul Hasanah"
jurusan = "Sistem Informasi"
Case "17100001"
nama = "Mardalena"
jurusan = "Sistem Informasi"
Case "17100006"
nama = "Rosi Elvia"
jurusan = "Sistem Informasi"
Case "17100031"
nama = "Tuti Mulyani"
jurusan = "Sistem Informasi"
Case "171000o4"
nama = "Eka Kartika Pertiwi"
jurusan = "Sistem Informasi"
Case "17100035"
nama = "Ranti Wulantika"
jurusan = "Sistem Informasi"
End Select
txtnama.Text = nama
txtjurusan.Text = jurusan
txtquis.SetFocus
End Sub

Private Sub Form_Load()
cbonpm.AddItem "17100025"
cbonpm.AddItem "17100001"
cbonpm.AddItem "17100006"
cbonpm.AddItem "17100031"
cbonpm.AddItem "17100004"
cbonpm.AddItem "17100035"
End Sub

Private Sub proses_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
txtnilaiakhir.Text = na

Select Case txtnilaiakhir.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 quit_Click() Unload Me End Sub