Desain Form seperti di bawah ini :
Bahasa program :
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
npm.Items.Add("12110295")
npm.Items.Add("12110296")
npm.Items.Add("12110297")
npm.Items.Add("12110298")
npm.Items.Add("12110299")
npm.Items.Add("12110296")
k_dosen.Items.Add("MS001")
k_dosen.Items.Add("TL002")
k_dosen.Items.Add("SS003")
k_mk.Items.Add("PV")
k_mk.Items.Add("SBD")
k_mk.Items.Add("MD")
Dim x As Integer
For x =
100 To 30 Step
-5
n_hadir.Items.Add(x)
n_tugas.Items.Add(x)
n_uts.Items.Add(x)
n_uas.Items.Add(x)
Next x
End Sub
Private Sub npm_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
npm.SelectedIndexChanged
Select Case npm.Text
Case
"12110295"
nama.Text = "Doni gunawan"
jenjang.Text = "S1"
jurusan.Text = "Teknik Informatika"
Case
"12110296"
nama.Text = "rizwan"
jenjang.Text = "S1"
jurusan.Text = "Sistem Informasi"
Case
"12110297"
nama.Text = "muhammad faisal"
jenjang.Text = "S1"
jurusan.Text = "Teknik Informatika"
Case
"12110298"
nama.Text = "Asnita"
jenjang.Text = "D3"
jurusan.Text = "Manajemen Informatika"
Case
"12110299"
nama.Text = "Dhiva Septhia"
jenjang.Text = "S1"
jurusan.Text = "Sistem Informasi"
End Select
End Sub
Private Sub k_dosen_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
k_dosen.SelectedIndexChanged
Select Case k_dosen.Text
Case
"MS001"
dosen.Text = "Mesran S.kom, M.kom"
Case
"TL002"
dosen.Text = "Tonni Limbong S.kom, M.kom"
Case
"SS003"
dosen.Text = "Sinar Sinurat ST, M.kom"
End Select
End Sub
Private Sub k_mk_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
k_mk.SelectedIndexChanged
Select Case k_mk.Text
Case
"PV"
mk.Text = "Pemograman Visual"
Case
"SBD"
mk.Text = "Sistem Basis Data"
Case
"MD"
mk.Text = "Matematika Diskrit"
End Select
End Sub
Private Sub proses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles proses.Click
n_akhir.Text = 0.15 * n_hadir.Text +
0.35 * n_uts.Text + 0.1 * n_tugas.Text + 0.45 * n_uas.Text
If
n_akhir.Text >= 80 Then
n_huruf.Text = "A"
ElseIf
n_akhir.Text >= 70 Then
n_huruf.Text = "B"
ElseIf
n_akhir.Text >= 65 Then
n_huruf.Text = "C"
ElseIf
n_akhir.Text >= 55 Then
n_huruf.Text = "D"
Else
n_huruf.Text = "E"
End If
If
n_akhir.Text >= 60 Then
ket.Text = "LULUS"
Else
ket.Text = "GAGAL"
End If
End Sub
Private Sub hapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles hapus.Click
npm.Text = ""
nama.Text = ""
jenjang.Text = ""
jurusan.Text = ""
k_dosen.Text = ""
dosen.Text = ""
k_mk.Text = ""
mk.Text = ""
n_hadir.Text = ""
n_tugas.Text = ""
n_uts.Text = ""
n_uas.Text = ""
n_akhir.Text = ""
n_huruf.Text = ""
ket.Text = ""
End Sub
Private Sub keluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles keluar.Click
End
End Sub
End Class
Hasil program :
SELAMAT MENCOBA ????????
