tugas 2.7

Private Sub batal_Click()

cbonpm.SetFocus

cbonpm.Text = ""

txtmhs.Text = ""

txtjr.Text = ""

txtnq.Text = ""

txtnt.Text = ""

txtut.Text = ""

txtua.Text = ""

txtna.Text = ""

txthm.Text = ""

End Sub

Private Sub cbonpm_Click()

Dim nama, jurusan, hm As String

 Select Case cbonpm.Text

Case "17100018"

nama = "Ririn nofita sari"

jurusan = "Sistem Informasi"

Case "13100501"

nama = "Phinasti Wita Sari"

jurusan = "Sistem Informasi"

Case "17100020"

nama = "siti tasripah"

jurusan = "Sistem Informasi"

Case "17100031"

nama = "Tuti Mulyani"

jurusan = "Sistem Informasi"

Case "13100526"

nama = " fitri indah tria nanda"

jurusan = "Sistem Informasi"

Case "17100008"

nama = "M.Galih algofur"

jurusan = "Sistem Informasi"

End Select

txtmhs.Text = nama

txtjr.Text = jurusan

txtnq.SetFocus

End Sub

Private Sub Form_Load()

 cbonpm.AddItem "17100018"

cbonpm.AddItem "13100501"

cbonpm.AddItem "17100020"

cbonpm.AddItem "17100031"

cbonpm.AddItem "17100026"

cbonpm.AddItem "17100008"

End Sub

Private Sub proses_Click()

Dim na As Integer

Dim hm As String

quis = Val(txtnq.Text)

tugas = Val(txtnt.Text)

uts = Val(txtut.Text)

uas = Val(txtua.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 quit_Click()

Unload Me

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

txtut.SetFocus

End If

End Sub

Private Sub txtua_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtna.SetFocus

Dim na As Integer

Dim hm As String

quis = Val(txtnq.Text)

tugas = Val(txtnt.Text)

uts = Val(txtut.Text)

uas = Val(txtua.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 If

End Sub

Private Sub txtut_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtua.SetFocus

End If

End Sub