Private Sub Cbonpm_Click()
Dim nama, jurusan, HM As String
Select Case Cbonpm
Case
"17100080"
nama = "HELMI"
jurusan =
"Sistem Informasi"
Case
"16100081"
nama = "ELSA"
jurusan =
"Manajemen Informatika"
Case
"17100082"
nama = "BOY"
jurusan =
"Tehnik Informatika"
Case
"17100083"
nama =
"DILLA"
jurusan =
"Teknik Mesin"
Case
"17100097"
nama = "RIKA YENI SAFITRI"
jurusan =
"Teknik Informatika"
End Select
Txtnama = nama
txtjurusan = jurusan
txtquis.SetFocus
End Sub
Private Sub Cmdbatal_Click()
Cbonpm.SetFocus
Cbonpm = ""
Txtnama = ""
txtjurusan = ""
txtquis = ""
txttugas = ""
txtuts = ""
txtuas = ""
txtna = ""
txthm = ""
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Form_Load()
Cbonpm.AddItem "17100080"
Cbonpm.AddItem "17100081"
Cbonpm.AddItem "17100082"
Cbonpm.AddItem "17100083"
Cbonpm.AddItem "17100097"
End Sub
Private Sub Cmdproses_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(txtquis)
TUGAS = Val(txttugas)
UTS = Val(txtuts)
UAS = Val(txtuas)
NA = (QUIS + TUGAS + UTS + UAS) / 4
txtna = NA
Select Case txtna
Case Is > 80
HM = "A"
Case Is > 70
HM = "B"
Case Is > 60
HM = "C"
Case Is > 50
HM = "D"
Case Is < 40
HM = "E"
End Select
txthm = HM
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 txtuts_KeyPress(keyascii As Integer)
If keyascii = 13 Then
txtuas.SetFocus
End If
End Sub
Private Sub txtuas_keypress(keyascii As Integer)
Dim NA As Integer
Dim HM As String
QUIS = Val(txtquis)
TUGAS = Val(txttugas)
UTS = Val(txtuts)
UAS = Val(txtuas)
NA = (QUIS + TUGAS + UTS + UAS) / 4
txtna = NA
Select Case txtna
Case Is > 80
HM = "A"
Case Is > 70
HM = "B"
Case Is > 60
HM = "C"
Case Is > 50
HM = "D"
Case Is < 40
HM = "E"
End Select
txthm = HM
End Sub
Tidak ada komentar:
Posting Komentar