tgs 8

Private Sub cbonpm_Change()

Dim nama, jurusan, hm As String

'13100501 phinasti wita sari

Select Case cbonpm.Text

Select Case cbonpm.Text

Case "13100501"

nama = "PHINASTI WITA SARI"

jurusan = "sistem informasi"

Case "17100003"

nama = "RENALDI ARIFIN"

jurusan = "Manajemen Informasi"

Case "17100011"

nama = "ARIANSAH"

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 "13100501"

cbonpm.AddItem "17100003"

cbonpm.AddItem "17100011"

End Sub