Tugas 2.7 Huruf mutu mahasiswa stmik pringsewu tampa menggunakan keypress

Tugas 2.7 Huruf mutu mahasiswa stmik pringsewu tampa menggunakan keypress

Source kode :

Private Sub cbonpm_click()

Dim nama, jurusan, hm As String

Select Case cbonpm.Text

Case "17100032"

nama = "Dika adi pratama"

jurusan = "Sistem Informasi"

Case "17100033"

nama = "Robiyanto"

jurusan = "Sistem Informasi"

Case "17100003"

nama = "Renaldi Zainal Arifin"

jurusan = "Sistem Informasi"

Case "17100023"

nama = "Danang pandu aji"

jurusan = "Sistem Informasi"

Case "17100006"

nama = "Rosi elvia"

jurusan = "Sistem Informasi"

Case "17100008"

nama = "M.Galih algofur"

jurusan = "Sistem Informasi"

Case "17100010"

nama = "Novia Anggraini"

jurusan = "Sistem Informasi"

Case "17100011"

nama = "Ariansyah"

jurusan = "Sistem Informasi"

Case "17100012"

nama = "Dimas Apringga"

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

cbonpm.AddItem "17100033"

cbonpm.AddItem "17100003"

cbonpm.AddItem "17100023"

cbonpm.AddItem "17100006"

cbonpm.AddItem "17100008"

cbonpm.AddItem "17100010"

cbonpm.AddItem "17100011"

cbonpm.AddItem "17100012"

cbonpm.AddItem "17100013"

End Sub