Private Sub cbonpm_Click()
Dim nama, Jurusan, hm As String
Select Case cbonpm.Text
Case "17100001"
nama = "MARDALENA"
Jurusan = "Sistem Informasi"
Case "17100019"
nama = "KHODIJAH"
Jurusan = "SISTEM INFORMASI"
Case "17100008"
nama = "MGALIHALGOFUR"
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 = ""
nama = ""
Jurusan = ""
quis = ""
tugas = ""
uts = ""
uas = ""
na = ""
hm = ""
End Sub
Private Sub cmdKeluar_Click()
End
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)
txtna.Text = na
na = (quis + tugas + uts + uas) / 4
End Sub
Private Sub Form_Load()
cbonpm.AddItem "17100001"
cbonpm.AddItem "17100019"
cbonpm.AddItem "17100008"
cbonpm.AddItem "17100003"
cbonpm.AddItem "17100011"
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
'galih
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.txt = hm
End If
End Sub
Selasa, 21 November 2017
Langganan:
Posting Komentar (Atom)
TUGAS 3.7
Private Sub BATAL_Click() TXTNK = "" TXTNIK = "" TXTGOL = "" TXTKS = "" TXTSTS = "" TXTTH...
-
Saat ini, WiFi sudah menjadi kebutuhan primer bagi sebagian besar masyarakat kita. Hal ini tidak lepas dari penggunaan gadget dan aplikasi...
-
STMIK PRINGSEWU – Selasa (22/8) telah dilaksanakan acara Yudisium/Pelepasan Sarjana Komputer dan Profesional A.Md STMIK Pringsewu yan...
-
Hampir semua orang di mudahkan dengan yang namanya teknologi, hampir semua sisi kehidupan kita di isi dengan perangkat teknologi, mulai dar...
Tidak ada komentar:
Posting Komentar