Tugas 2.8 Huruf mutu mahasiswa stmik pringsewu menggunakan keypress

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

nama = "Siti Nur Rohma"

jurusan = "Sistem Informasi"

Case "17100100"

nama = "Delina Kartikasari"

jurusan = "Sistem Informasi"

Case "17100096"

nama = "Retno Nur Aini"

jurusan = "Sistem Informasi"

Case "17100084"

nama = "Uut Elok Permata"

jurusan = "Sistem Informasi"

Case "17100078"

nama = "Sa'adah Fatimatuz.z"

jurusan = "Sistem Informasi"

Case "17100085"

nama = "Agista Utami"

jurusan = "Sistem Informasi"

End Select

txtmaha.Text = nama

txtjurusan.Text = jurusan

txtquis.SetFocus

End Sub

Private Sub cmdbatal_Click()

cbonpm.SetFocus

cbonpm.Text = ""

txtmaha.Text = ""

txtjurusan.Text = ""

txtquis.Text = ""

txttugas.Text = ""

txtuts.Text = ""

txtuas.Text = ""

txtakhir.Text = ""

txtmutu.Text = ""

End Sub

Private Sub cmdproses_Click()

Dim akhir As Integer

Dim mutu As String

quis = Val(txtquis.Text)

tugas = Val(txttugas.Text)

uts = Val(txtuts.Text)

uas = Val(txtuas.Text)

akhir = (quis + tugas + uts + uas) / 4

txtakhir.Text = akhir

Select Case txtakhir.Text

Case Is > 80

mutu = "A"

Case Is > 70

mutu = "B"

Case Is > 60

mutu = "C"

Case Is > 50

mutu = "D"

Case Is < 50

mutu = "E"

End Select

txtmutu.Text = mutu

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub Form_Load()

cbonpm.AddItem "17100037"

cbonpm.AddItem "17100100"

cbonpm.AddItem "17100096"

cbonpm.AddItem "17100078"

cbonpm.AddItem "17100085"

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 txtuts_keypress(keyascii As Integer)

If keyascii = 13 Then

txtuas.SetFocus

End If

End Sub

Private Sub txtuas_keypress(keyascii As Integer)

If keyascii = 13 Then

Dim akhir As Integer

Dim mutu As String

quis = Val(txtquis.Text)

tugas = Val(txttugas.Text)

uts = Val(txtuts.Text)

uas = Val(txtuas.Text)

akhir = (quis + tugas + uts + uas) / 4

txtakhir.Text = akhir

Select Case txtakhir.Text

Case Is > 80

mutu = "A"

Case Is > 70

mutu = "B"

Case Is > 60

mutu = "C"

Case Is > 50

mutu = "D"

Case Is < 50

mutu = "E"

End Select

txtmutu.Text = mutu

End If

End Sub