tgs 7


Private Sub cbonpm_Change()
Dim nama, jurusan, hm As String
'13100501 phinasti wita sari

Select Case cbonpm.Text
Case "13100501"
nama = "PHINASTI WITA SARI"
jurusan = "sistem informasi"
Case "17100003"
nama = "RENALDI ARIFIN"
jurusan = "Manajemen Informasi"
Case "17100011"
nama = "ARIANSAH"
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 + 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 "13100501"
cbonpm.AddItem "17100003"
cbonpm.AddItem "17100011"

End Sub

Komentar

Postingan populer dari blog ini

MAHASISWA STMIK PRINGSEWU SAMBANGI PT PRIMARINDO ASIA INFRASTRUCTURE TBK

APLIKASI PERHITUNGAN GAJI WITH KEYPRESS

BAZAR KEWIRAUSAHAAN MAHASISWA STMIK PRINGSEWU