Public Class Izal
Private Sub ComboBox5_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NTugas.SelectedIndexChanged
End Sub
Private Sub KdDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KdDosen.SelectedIndexChanged
Select Case KdDosen.Text
Case "P001"
NaDosen.Text = "Mesran S.Kom, M.Kom"
Case "P011"
NaDosen.Text = "Yasir Hasan S.Kom"
Case "L021"
NaDosen.Text = "Kristian S.Kom"
Case "M013"
NaDosen.Text = "Toni Limbong M.Kom"
End Select
End Sub
Private Sub Npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Npm.SelectedIndexChanged
Select Case Npm.Text
Case "12110120"
Nama.Text = "Andi"
Jenjang.Text = "S1"
Jurusan.Text = "Teknik Informatika"
Case "12110121"
Nama.Text = "Susi"
Jenjang.Text = "DIII"
Jurusan.Text = "Manajemen Komputer"
Case "12110122"
Nama.Text = "Joko"
Jenjang.Text = "S1"
Jurusan.Text = "Teknik Informatika"
Case "12110123"
Nama.Text = "Budi"
Jenjang.Text = "S1"
Jurusan.Text = "Sistem Informasi"
End Select
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Npm.Items.Add("12110120")
Npm.Items.Add("12110121")
Npm.Items.Add("12110122")
Npm.Items.Add("12110123")
KdDosen.Items.Add("P001")
KdDosen.Items.Add("P011")
KdDosen.Items.Add("L021")
KdDosen.Items.Add("M013")
KdMatakuliah.Items.Add("SO")
KdMatakuliah.Items.Add("SBD")
KdMatakuliah.Items.Add("VB")
Dim x As Integer
For x = 100 To 1 Step -1
NKehadiran.Items.Add(x)
Next
For x = 100 To 20 Step -2
NTugas.Items.Add(x)
Next
For x = 100 To 10 Step -3
NUTS.Items.Add(x)
Next
For x = 100 To 5 Step -5
NUAS.Items.Add(x)
Next x
End Sub
Private Sub NaDosen_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NaDosen.TextChanged
End Sub
Private Sub KdMatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KdMatakuliah.SelectedIndexChanged
Select Case KdMatakuliah.Text
Case "SO"
Matakuliah.Text = "Sistem Operasi"
Case "SBD"
Matakuliah.Text = "Sistem Basis Data"
Case "VB"
Matakuliah.Text = "Visual Basic"
End Select
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
NAkhir.Text = 0.15 * NTugas.Text + 0.35 * NUTS.Text + 0.1 * NKehadiran.Text + 0.45 * NUAS.Text
If NAkhir.Text >= 80 Then
NHuruf.Text = "A"
Keterangan.Text = "LULUS"
ElseIf NAkhir.Text >= 70 Then
NHuruf.Text = "B"
Keterangan.Text = "LULUS"
ElseIf NAkhir.Text >= 60 Then
NHuruf.Text = "C"
Keterangan.Text = "LULUS"
ElseIf NAkhir.Text >= 50 Then
NHuruf.Text = "D"
Keterangan.Text = "LULUS"
ElseIf NAkhir.Text < 50 Then
NHuruf.Text = "E"
Keterangan.Text = "GAGAl"
End If
End Sub
Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
Npm.Text = ""
Nama.Text = ""
Jenjang.Text = ""
Jurusan.Text = ""
KdDosen.Text = ""
NaDosen.Text = ""
KdMatakuliah.Text = ""
Matakuliah.Text = ""
NKehadiran.Text = ""
NTugas.Text = ""
NUTS.Text = ""
NUAS.Text = ""
NAkhir.Text = ""
NHuruf.Text = ""
Keterangan.Text = ""
End Sub
Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
End
End Sub
End Class
Hasil Program
