Tugas 2.7

Tugas 2.7
Huruf Mutu Mahasiswa Tanpa Keypress

Source Code :

Private Sub Cbonpm_Change()
Dim nama, jurusan, HM As String
Select Case Cbonpm.Text
Case "17100011"
nama = "ARIANSYAH"
jurusan = "Sistem Informasi"
Case "17100002"
nama = "BHADI RAMADHANI"
jurusan = "Sistem Informasi"
Case "17100012"
nama = "DIMAS APRINGGA YUANTORO"
jurusan = "Sistem Informasi"
Case "17100004"
nama = "EKA KARTIKA PERTIWI"
jurusan = "Sistem Informasi"
Case "17100022"
nama = "FUAIDIN AMIN"
jurusan = "Sistem Informasi"
Case "17100013"
nama = "IRMANIDA SISWANTI"
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 = (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 "17100002"
Cbonpm.AddItem "17100004"
Cbonpm.AddItem "17100011"
Cbonpm.AddItem "17100012"
Cbonpm.AddItem "17100013"
Cbonpm.AddItem "17100022"
End Sub