Public Class Form1
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If MsgBox("Yakin Ingin Keluar", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Informasi") = MsgBoxResult.No Then
e.Cancel = True
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
npm.Items.Add("13110328")
npm.Items.Add("13020111")
npm.Items.Add("13031200")
npm.Items.Add("13110234")
kode_dosen.Items.Add("D02")
kode_dosen.Items.Add("D01")
kode_dosen.Items.Add("D03")
kode_matakuliah.Items.Add("M01")
kode_matakuliah.Items.Add("M02")
kode_matakuliah.Items.Add("M03")
Dim i As Integer
For i = 1 To 100
kehadiran.Items.Add(i)
Next i
For i = 1 To 100
tugas.Items.Add(i)
Next i
For i = 100 To 1 Step -1
uts.Items.Add(i)
Next i
For i = 100 To 1 Step -1
uas.Items.Add(i)
Next i
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_matakuliah.Text = ""
nama_matakuliah.Text = ""
kehadiran.Text = ""
tugas.Text = ""
uts.Text = ""
uas.Text = ""
akhir.Text = ""
huruf.Text = ""
keterangan.Text = ""
npm.Focus()
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
Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
Select Case npm.Text
Case "13110328"
nama.Text = "khaled zein fadhilah"
Case "13020111"
nama.Text = "Enoza stefanny"
Case "13031200"
nama.Text = "Fachrul rozi"
Case "13110234"
nama.Text = "Kenzano biofa"
End Select
Dim x As String
x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)
If x = "11" Then
jenjang.Text = "S1"
jurusan.Text = "Sistem Informasi"
ElseIf x = "02" Then
jenjang.Text = "D3"
jurusan.Text = "Teknik Informatika"
Else
jenjang.Text = "D1"
jurusan.Text = "Design Grafis"
End If
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 "D01"
nama_dosen.Text = "Mesran, S.Kom, M.Kom"
Case "D02"
nama_dosen.Text = "Tonni Limbong, S.Kom, M.Kom"
Case "D03"
nama_dosen.Text = "Yasir Hasan, S.Kom"
End Select
End Sub
Private Sub kode_matakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_matakuliah.SelectedIndexChanged
Select Case kode_matakuliah.Text
Case "M01"
nama_matakuliah.Text = "Pemograman Visual"
Case "M02"
nama_matakuliah.Text = "Sistem Basis Data"
Case "M03"
nama_matakuliah.Text = "Sistem Operasi"
End Select
End Sub
Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click
akhir.Text = 0.1 * Val(kehadiran.Text) + 0.15 * Val(tugas.Text) + 0.35 * Val(uts.Text) + 0.4 * Val(uas.Text)
Select Case akhir.Text
Case Is >= 80
huruf.Text = "A"
Case 70 To 79
huruf.Text = "B"
Case 60 To 69
huruf.Text = "C"
Case 50 To 59
huruf.Text = "D"
Case Is <= 49
huruf.Text = "E"
End Select
Select Case huruf.Text
Case "A"
keterangan.Text = "Lulus"
Case "B"
keterangan.Text = "Lulus"
Case "C"
keterangan.Text = "Lulus"
Case Else
keterangan.Text = "Gagal"
End Select
End Sub
End Class
