tugas 2.8 huruf mutu mahasiswa STMIK pringsewu menggunakan keypress



Private Sub Cbonpm_Click()
Dim nama, jurusan, HM As String

Select Case Cbonpm.Text
Case "17100016"
nama = "yanna chairunisa alwahida"
jurusan = " Sistem Informasi"
Case "17100004"
nama = "eka kartika pertiwi"
jurusan = "sistem informasi"
Case "17100006"
nama = "Rosi Elvia"
jurusan = "Sistem Informasi"
Case "17100034"
nama = "Marisca nova linda"
jurusan = "Sistem Informasi"
Case "17100021"
nama = "Ahmad Hilal Yusuf"
jurusan = "Manajemen Informatika"
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 cmdbproses_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 cmdkeluar_Click()
Unload Me
End Sub

Private Sub Form_Load()
Cbonpm.AddItem "17100016"
Cbonpm.AddItem "17100004"
Cbonpm.AddItem "17100006"
Cbonpm.AddItem "17100034"
Cbonpm.AddItem "17100021"

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

Komentar

Posting Komentar

Postingan populer dari blog ini

STMIK PRINGSEWU GELARA UPACARA HARI SUMPAH PEMUDA KE 89 BERSAMA MENWA, BEM SERTA MAHASISWA

kalkulator tanpa keypress