Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
npm.Items.Add("13111000")
npm.Items.Add("13111011")
npm.Items.Add("13112011")
For x = 1 To 3
kode_dosen.Items.Add("KD0" & x)
Next
For x = 11 To 13
kode_matkul.Items.Add("KM" & x)
Next
Dim i As Integer
For i = 0 To 100 Step +5
nilai_tugas.Items.Add(i)
nilai_uts.Items.Add(i)
nilai_uas.Items.Add(i)
Next i
Dim j As Integer
For j = 0 To 100
nilai_hadir.Items.Add(j)
Next j
End Sub
Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
Dim x As String
x = Microsoft.VisualBasic.Right(npm.Text, 1)
If x = "0" Then
jenjang.Text = "S1"
ElseIf x = "1" Then
jenjang.Text = "D3"
Else
jenjang.Text = "D1"
End If
x = Microsoft.VisualBasic.Mid(npm.Text, 4, 2)
If x = "10" Then
jurusan.Text = "Teknik Informatika"
ElseIf x = "11" Then
jurusan.Text = "Sistem Informasi"
ElseIf x = "12" Then
jurusan.Text = "Manajemen"
Else
jurusan.Text = "-"
End If
Select Case npm.Text
Case "13111000"
nama.Text = "Doni M"
Case "13111011"
nama.Text = "Hendra S"
Case "13112011"
nama.Text = "Atika"
Case Else
nama.Text = "-"
End Select
End Sub
Private Sub kode_matkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_matkul.SelectedIndexChanged
Dim y As String
y = Microsoft.VisualBasic.Right(kode_matkul.Text, 2)
If y = "11" Then
nama_matkul.Text = "Pemograman Visual"
ElseIf y = "12" Then
nama_matkul.Text = "Arsitektur Informasi"
ElseIf y = "13" Then
nama_matkul.Text = "Struktur Data"
End If
End Sub
Private Sub kode_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_dosen.SelectedIndexChanged
Dim z As String
z = Microsoft.VisualBasic.Right(kode_dosen.Text, 2)
If z = "01" Then
nama_dosen.Text = "Mesran S.Kom, M.Kom"
ElseIf z = "02" Then
nama_dosen.Text = "Sony Bahagia S.Kom"
ElseIf z = "03" Then
nama_dosen.Text = "Sinar Sinurat S.Kom, M.Kom"
End If
End Sub
Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click
nilai_akhir.Text = 0.1 * nilai_hadir.Text + 0.15 * nilai_tugas.Text + 0.3 * nilai_uts.Text + 0.45 * nilai_uas.Text
If nilai_akhir.Text >= 60 Then
keterangan.Text = "LULUS"
Else
keterangan.Text = "GAGAL"
End If
Select Case nilai_akhir.Text
Case Is >= 80
nilai_hurf.Text = "A"
Case 70 To 79
nilai_hurf.Text = "B"
Case 60 To 69
nilai_hurf.Text = "C"
Case 50 To 59
nilai_hurf.Text = "D"
Case Is <= 49
nilai_hurf.Text = "E"
End Select
End Sub
Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click
npm.Text = ""
nama.Text = ""
jenjang.Text = ""
jurusan.Text = ""
kode_dosen.Text = ""
nama_dosen.Text = ""
kode_matkul.Text = ""
nama_matkul.Text = ""
nilai_hadir.Text = ""
nilai_tugas.Text = ""
nilai_uts.Text = ""
nilai_uas.Text = ""
nilai_akhir.Text = ""
nilai_hurf.Text = ""
keterangan.Text = ""
End Sub
Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click
Me.Close()
End Sub
End Class
Hasil Programnya adalah :
