PROGRAM 8 TUGAS 2
Private Sub Cbonpm_Click()
Dim nama, jurusan, HM As String
Select Case Cbonpm
Case
"17100102"
nama = "ABI WAFAH"
jurusan =
"Sistem Informasi"
Case
"16100103"
nama = "JAKWAN"
jurusan =
"Manajemen Informatika"
Case
"171000104"
nama = "MARJUKI"
jurusan =
"Tehnik Informatika"
Case
"17100105"
nama =
"LELA"
jurusan =
"Teknik Mesin"
Case
"17100106"
nama = "HELMI"
jurusan =
"Teknik Komputer"
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 "17100102"
Cbonpm.AddItem "16100103"
Cbonpm.AddItem "17100104"
Cbonpm.AddItem "17100105"
Cbonpm.AddItem "17100106"
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
Komentar
Posting Komentar