- Huruf mutu mahasiswa
Private Sub cbonpm_Click()
Select Case cbonpm.Text
Case “12100026”
nama = “SITI SARI”
jurusan = “Sistem Informasi”
Case “12100038”
nama = “Agusta Hendri Yarti”
jurusan = “Sistem Informasi”
Case “12100039”
nama = “Sinta Umpusinga”
jurusan = “Sistem Informasi”
End Select
txtnma.Text = nama
txtjrs.Text = jurusan
txtnq.SetFocus
End Sub
Private Sub cmdbatal_Click()
cbonpm.SetFocus
cbonpm.Text = “”
txtnma.Text = “”
txtjrs.Text = “”
txtnq.Text = “”
txtnt.Text = “”
txtuts.Text = “”
txtuas.Text = “”
txtna.Text = “”
txthm.Text = “”
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdproses_Click()
quis = Val(txtnq.Text)
tugas = Val(txtnt.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”
Select Case txtna.Text
Case Is > 70
HM = “B”
Select Case txtna.Text
Case Is > 60
HM = “C”
Select Case txtna.Text
Case Is > 50
HM = “D”
Select Case txtna.Text
Case Is < 50
HM = “E”
End Select
txthm.Text = HM
End Sub
Private Sub Form_Load()
cbonpm.AddItem “12100036”
cbonpm.AddItem “12100038”
cbonpm.AddItem “12100039”
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
Private Sub txttunjangan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpot.SetFocus
End If
End Sub
Leave a comment