TUGAS 2.8

 Private Sub batal_Click()
cbonpm.SetFocus
cbonpm.Text = ""
txtmhs.Text = ""
txtjr.Text = ""
txtnq.Text = ""
txtnt.Text = ""
txtut.Text = ""
txtua.Text = ""
txtna.Text = ""
txthm.Text = ""
End Sub


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

 Select Case cbonpm.Text
Case "17100001"
nama = "Mardalena"
jurusan = "Sistem Informasi"
Case "17100002"
nama = "Bahadi Rhamadani"
jurusan = "Sistem Informasi"
Case "17100003"
nama = "Renaldi Zainal Arifin"
jurusan = "Sistem Informasi"
Case "17100004"
nama = "Eka Kartika"
jurusan = "Sistem Informasi"
Case "17100006"
nama = "Rosi elvia"
jurusan = "Sistem Informasi"
Case "17100008"
nama = "M.Galih algofur"
jurusan = "Sistem Informasi"
End Select
txtmhs.Text = nama
txtjr.Text = jurusan
txtnq.SetFocus
End Sub

Private Sub Form_Load()
 cbonpm.AddItem "17100001"
cbonpm.AddItem "17100002"
cbonpm.AddItem "17100003"
cbonpm.AddItem "17100004"
cbonpm.AddItem "17100006"
cbonpm.AddItem "17100008"
End Sub

Private Sub proses_Click()
Dim na As Integer
Dim hm As String
quis = Val(txtnq.Text)
tugas = Val(txtnt.Text)
uts = Val(txtut.Text)
uas = Val(txtua.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 quit_Click()
Unload Me
End Sub



Private Sub txtnq_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnt.SetFocus
End If
End Sub


Private Sub txtnt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtut.SetFocus
End If
End Sub

Private Sub txtua_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtna.SetFocus
Dim na As Integer
Dim hm As String
quis = Val(txtnq.Text)
tugas = Val(txtnt.Text)
uts = Val(txtut.Text)
uas = Val(txtua.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 If
End Sub

Private Sub txtut_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtua.SetFocus
End If
End Sub