Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Npm.Items.Add("12110657")
Npm.Items.Add("13111000")
Npm.Items.Add("12130764")
Npm.Items.Add("12140576")
Npm.Items.Add("12110765")
Kode_Dosen.Items.Add("KD01")
Kode_Dosen.Items.Add("KD02")
Kode_Dosen.Items.Add("KD03")
Kode_Dosen.Items.Add("KD04")
Kode_Dosen.Items.Add("KD05")
Kode_Mk.Items.Add("MK01")
Kode_Mk.Items.Add("MK12")
Kode_Mk.Items.Add("MK11")
Kode_Mk.Items.Add("MK04")
Kode_Mk.Items.Add("MK05")
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.Left(Npm.Text, 3)
If x = "5" Then
Jenjang.Text = "S1"
ElseIf x = "6" Then
Jenjang.Text = "D3"
Else
Jenjang.Text = "D1"
End If
x = Microsoft.VisualBasic.Right(Npm.Text, 4, 2)
If x = "30" Then
Jurusan.Text = "Teknik Informatika"
ElseIf x = "20" Then
Jurusan.Text = " Akutansi"
ElseIf x = "10" Then
Jurusan.Text = "Sistem Informasi"
Else
Jurusan.Text = "Manajemen"
End If
Select Case Npm.Text
Case "12110657"
Nama.Text = "Dewy"
Case "13111000"
Nama.Text = "Doni M"
Case "12130764"
Nama.Text = "Yohan Sibarani"
Case "12140576"
Nama.Text = "Marles"
Case Else
Nama.Text = " Rumini "
End Select
End Sub
Private Sub Kode_Dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_Dosen.SelectedIndexChanged
Select Case Kode_Dosen.Text
Case "KD01"
Nama_Dosen.Text = "Mesran,S.Kom,M.Kom"
Case "KD02"
Nama_Dosen.Text = "Tonni Limbong,S.Kom,M.Kom"
Case "KD03"
Nama_Dosen.Text = "Alex Rizki,S.Kom,M.Kom"
Case "KD04"
Nama_Dosen.Text = "Hery Sunandar,ST,M.Kom"
Case Else
Nama_Dosen.Text = ""
End Select
End Sub
Private Sub Kode_Mk_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_Mk.SelectedIndexChanged
Select Case Kode_Mk.Text
Case "MK01"
Nama_Mk.Text = "Struktur Data"
Case "MK12"
Nama_Mk.Text = "Sistem Basis Data"
Case "MK11"
Nama_Mk.Text = "Pemograman Visual"
Case "MK04"
Nama_Mk.Text = "Matriks dan Transformasi Linier"
Case Else
Nama_Mk.Text = " "
End Select
End Sub
Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
NA.Text = 0.1 * Nilai_Hadir.Text + 0.15 * Nilai_Tugas.Text + 0.3 * Nilai_UTS.Text + 0.45 * Nilai_UAS.Text
If NA.Text >= 60 Then
Keterangan.Text = "LULUS"
Else
Keterangan.Text = "GAGAL"
End If
Select Case NA.Text
Case Is >= 80
NH.Text = "A"
Case 70 To 79
NH.Text = "B"
Case 60 To 69
NH.Text = "C"
Case 50 To 59
NH.Text = "D"
Case Is <= 49
NH.Text = "E"
End Select
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 = ""
Kode_Dosen.Text = ""
Nama_Dosen.Text = ""
Kode_Mk.Text = ""
Nama_Mk.Text = ""
Nilai_Hadir.Text = ""
Nilai_Tugas.Text = ""
Nilai_UTS.Text = ""
Nilai_UAS.Text = ""
NA.Text = ""
NH.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
Tampilannya :
