Tugas2_8

APLIKASI MENGHITUNG NILAI & 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 = Val(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 "17100019"
Cbonpm.AddItem "17100028"
Cbonpm.AddItem "17100011"
Cbonpm.AddItem "17100001"
Cbonpm.AddItem "17100010"
End Sub

Private Sub Label1_Click()

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 = Val(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