Tugas2_7

APLIKASI MENGHITUNG NILAI DAN HURUF MUTU 

MAHASISWA STMIK PRINGSEWU

Private Sub cbonpm_Click()
Dim nama, jurusan, hm As String
Select Case cbonpm.Text
Case "17100019"
nama = "KHODIJAH"
jurusan = "sistem informasi"
Case "17100028"
nama = "Ida Ayu Wulandari"
jurusan = "sistem informasi"
Case "17100011"
nama = "ariansah"
jurusan = "sistem informasi"
Case "17100001"
nama = "Mardalenna"
jurusan = "sistem informasi"
Case "17000010"
nama = "novia Anggraeni"
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 + tuas + 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 "17100019"
cbonpm.AddItem "17100028"
cbonpm.AddItem "17100011"
cbonpm.AddItem "17100001"
cbonpm.AddItem "17100010"
End Sub