tugas 2.8

Private Sub cbonpm_Click()
Dim nama, Jurusan, hm As String
    Select Case cbonpm.Text
        Case "17100014"
        nama = "DWI AGUSTINA"
        Jurusan = "Sistem Informasi"
       
        Case "17100019"
        nama = "KHODIJAH"
        Jurusan = "SISTEM INFORMASI"
       
        Case "17100028"
        nama = "Alex"
        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 = ""
    nama = ""
    Jurusan = ""
    quis = ""
    tugas = ""
    uts = ""
    uas = ""
    na = ""
    hm = ""
End Sub

Private Sub cmdKeluar_Click()
End
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)
    txtna.Text = na
    na = (quis + tugas + uts + uas) / 4
End Sub



Private Sub Form_Load()
cbonpm.AddItem "17100014"
cbonpm.AddItem "17100019"
cbonpm.AddItem "17100028"
cbonpm.AddItem "17100003"
cbonpm.AddItem "17100011"

End Sub


Private Sub txtuas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
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
'riyan
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.txt = hm
End If

End Sub