Huruf Mutu Mahasiswa STMIK Pringsewu

Private Sub Cbonpm_click()
Dim nm, jurusan, hm As String

Select Case Cbonpm.Text
Case “12100017”
nm = “Riyan Suhandi”
jurusan = “Sistem Informasi”
Case “12100016”
nm = “M.Mukhlish Raya”
jurusan = “Sistem Informasi”
Case “12100752”
nm = “M Miftah Nanda Firdaus”
jurusan = “Tehnik Informatika”
End Select
Txtnm.Text = nm
Txtjurusan.Text = jurusan
Txtnq.SetFocus
End Sub

Private Sub Form_Load()
Cbonpm.AddItem “12100017”
Cbonpm.AddItem “12100016”
Cbonpm.AddItem “12100756”
End Sub

Private Sub Cmdbatal_Click()
Cbonpm.SetFocus
Cbonpm.Text = “”
Txtnm.Text = “”
Txtjurusan.Text = “”
Txtnq.Text = “”
Txtnt.Text = “”
txtuts.Text = “”
Txtuas.Text = “”
Txtna.Text = “”
Txthm.Text = “”
End Sub

Private Sub cmdkeleuar_Click()
Unload Me
End Sub

Private Sub Cmdproses_Click()
Dim na As Integer
Dim hm As String
nq = Val(Txtnq.Text)
nt = Val(Txtnt.Text)
uts = Val(txtuts.Text)
uas = Val(Txtuas.Text)
na = (nq + nt + 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 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
txtuts.SetFocus
End If
End Sub

Private Sub txtuts_keypress(keyascii As Integer)
If keyascii = 13 Then
Txtuas.SetFocus
End If
End Sub