Private Sub cbonpm_Click()
Dim nama, jurusan, Hm As String
Select Case cbonpm.Text
Case "17100059"
nama = "usi ayu hermieta"
jurusan = "Sistem Informasi"
Case "17100060"
nama = "puput fatmasari"
jurusan = "Sistem Informasi"
Case "17100058"
nama = "mega liani"
jurusan = "Sistem Informasi"
Case "17100041"
nama = "prakas setiawan"
jurusan = "Sistem Informasi"
Case "17100053"
nama = "aan gusnawan"
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 = Val(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 "17100059"
cbonpm.AddItem "17100060"
cbonpm..AddItem "17100058"
cbonpm..AddItem "17100041"
cbonpm..AddItem "17100053"
End Sub
Private Sub txtquis_keypress(keyascii As
Integer)
If keyascii = 13 Then
txttugas.SetFocus
End If
End Sub
Private Sub txttugas_keypress(keyascii As
Integer)
If keyascii = 13 Then
txtuts.SetFocus
End If
End Sub
Private Sub txtuas_keypress(keyascii As
Integer)
If keyascii = 13 Then
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 = Val(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 txtuts_KeyPress(KeyAscii As
Integer)
If KeyAscii = 13 then
txtuas.SetFocus
End If
End Sub