Private Sub Cbonpm_Click()
Dim nama, jurusan, Hm As String
Select Case Cbonpm.Text
Case “152010004”
nama = “anton armansyah”
jurusan = “manajemen informatika”
Case “15100149”
nama = “bahtiar rifai”
jurusan = “sistem informasi”
Case “15100151”
nama = “bayu sulaiman”
jurusan = “sistem informasi”
Case “152010003”
nama = “damayanti”
jurusan = “manajemen informatika”
Case “15100162”
nama = “dewi ambarwati”
jurusan = “sistem informasi”
Case “15100152”
nama = “dewi santika”
jurusan = “sistem informasi”
Case “15100113”
nama = “dian anggara”
jurusan = “sistem informasi”
Case “15100148”
nama = “eti sri asih”
jurusan = “sistem informasi”
Case “15100155”
nama = “eva nurma yunita”
jurusan = “sistem informasi”
Case “15201013”
nama = “eva yunita”
jurusan = “menejemen informatika”
Case “15100164”
nama = “fadhilah firdaus”
jurusan = “sistem informasi”
Case “15100114”
nama = “fadoli irawan”
jurusan = “sistem informasi ”
Case “15100111”
nama = “heny anisetiani”
jurusan = “sistem informasi”
Case “15100152”
nama = “hesti marsandi”
jurusan = “sistem informasi”
Case “15100156”
nama = “indah prasetya ningrum”
jurusan = “sistem informasi”
Case “15100146”
nama = “karlina”
jurusan = “sistem informasi”
Case “15100157”
nama = “leo adimas saputra”
jurusan = “sistem informasi”
Case “15201002”
nama = “leonita julianti”
jurusan = “menejemen informatika”
Case “15100160”
nama = “m.hermawan pratama”
jurusan = “sistem informasi”
Case “15100144”
nama = “martha dian pratama”
jurusan = “sistem informasi”
Case “15100159”
nama = “mea ari anggriani”
jurusan = “sistem informasi”
Case “15100115”
nama = “meilinda”
jurusan = “sistem informasi”
Case “15100150”
nama = “nanda aditiya”
jurusan = “sistem informasi”
Case “15201001”
nama = “nina risty pamungkas”
jurusan = “menejemen informatika”
Case “15100145”
nama = “niva kurnia sari”
jurusan = “sistem informasi”
Case “15100154”
nama = “novaret clsiova”
jurusan = “sistem informasi”
Case “15201016”
nama = “novi herliza”
jurusan = “sistem informasi”
Case “15100158”
nama = “retno s.m arum”
jurusan = “sistem informasi”
Case “15100143”
nama = “rida isnaeni”
jurusan = “sistem informasi”
Case “15100112”
nama = “sukilah”
jurusan = “sistem informasi”
Case “15201017”
nama = “suningsih”
jurusan = “menejemen informatika”
Case “15100142”
nama = “veriza isra saputri”
jurusan = “sistem informasi”
Case “15100153”
nama = “wulan suci hidayah”
jurusan = “sistem infformasi”
Case “15201005”
nama = “yefando aljaya”
jurusan = “menejemen informatika”
Case “15100147”
nama = “yunitaria”
jurusan = “sistem informai”
Case “15100163”
nama = “yunus aprianto”
jurusan = “sistem informasi”
End Select
Txtnama.Text = nama
Txtjurusan.Text = jurusan
txtquis.SetFocus
End Sub
Private Sub cmbbatal_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 cmbkeluar_Click()
End
End Sub
Private Sub Form_Load()
Cbonpm.AddItem “15201004”
Cbonpm.AddItem “15100149”
Cbonpm.AddItem “15100151”
Cbonpm.AddItem “15201003”
Cbonpm.AddItem “15100162”
Cbonpm.AddItem “15100182”
Cbonpm.AddItem “15100113”
Cbonpm.AddItem “15100148”
Cbonpm.AddItem “15100155”
Cbonpm.AddItem “15201013”
Cbonpm.AddItem “15100164”
Cbonpm.AddItem “15100114”
Cbonpm.AddItem “15100111”
Cbonpm.AddItem “15100152”
Cbonpm.AddItem “15100156”
Cbonpm.AddItem “15100146”
Cbonpm.AddItem “15100157”
Cbonpm.AddItem “15201002”
Cbonpm.AddItem “15100160”
Cbonpm.AddItem “15100144”
Cbonpm.AddItem “15100159”
Cbonpm.AddItem “15100115”
Cbonpm.AddItem “15100150”
Cbonpm.AddItem “15201001”
Cbonpm.AddItem “15100145”
Cbonpm.AddItem “15100154”
Cbonpm.AddItem “15201016”
Cbonpm.AddItem “15100158”
Cbonpm.AddItem “15100143”
Cbonpm.AddItem “15100112”
Cbonpm.AddItem “15201017”
Cbonpm.AddItem “15100142”
Cbonpm.AddItem “15100153”
Cbonpm.AddItem “15201005”
Cbonpm.AddItem “15100147”
Cbonpm.AddItem “15100163”
End Sub
Private Sub txtquis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttugas.SetFocus
End If
End Sub
Private Sub txttugas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtuts.SetFocus
End If
End Sub
Private Sub Txtuas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtna.SetFocus
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 If
End Sub
Private Sub Txtuts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtuas.SetFocus
End If
End Sub
meilindastmikpringsewu 