HURUF MUTU MAHASISWA STMIK PRINGSEWU TIDAK MENGGUNAKAN KeyPress

TUGAS 2.7

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

Select Case cbonpm.Text
Case "17100035"
nama = "RANTI WULANTIKA"
jurusan = "Sistem Informasi"
Case "17100034"
nama = "MARISCA NOVALINDA"
jurusan = "Sistem Informasi"
Case "17100003"
nama = "RENALDI ZAINAL ARIFIN"
jurusan = "Sistem Informasi"
Case "17100032"
nama = "DIKA ADI PRATAMA"
jurusan = " Sistem Informasi"
Case "17100033"
nama = "ROBIYANTO"
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 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 < 50
hm = "E"
End Select
txthm.Text = hm
End Sub

Private Sub Form_Load()
cbonpm.AddItem "17100035"
cbonpm.AddItem "17100034"
cbonpm.AddItem "17100003"
cbonpm.AddItem "17100032"
cbonpm.AddItem "17100033"
End Sub