Public Class
Form1
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
npm.Items.Add("13110000")
npm.Items.Add("13120001")
npm.Items.Add("13130002")
Kd_dosen.Items.Add("2011001")
Kd_dosen.Items.Add("2011002")
Kd_dosen.Items.Add("2011003")
kd_makul.Items.Add("kk1213")
kd_makul.Items.Add("aa1213")
kd_makul.Items.Add("ss1213")
Dim nilai As Integer
nilai = 1
Do While nilai <=
100
hadir.Items.Add(nilai)
tugas.Items.Add(nilai)
uas.Items.Add(nilai)
uts.Items.Add(nilai)
nilai =
nilai + 1
Loop
End Sub
Private Sub
npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
npm.SelectedIndexChanged
Select Case npm.Text
Case "13110000"
nama.Text = "Ayu Andira"
Case "13110001"
nama.Text = "Ridho"
Case Else
nama.Text = "Anna"
End Select
End Sub
Private Sub
Kd_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Kd_dosen.SelectedIndexChanged
Select Case
Kd_dosen.Text
Case "2011001"
nama_dosen.Text = "wanto s.kom"
Case "2011002"
nama_dosen.Text = "santo s.pd"
Case "2011003"
nama_dosen.Text = "dewa s.H"
End Select
End Sub
Private Sub
kd_makul_SelectedIndexChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
kd_makul.SelectedIndexChanged
Select Case
kd_makul.Text
Case "kk1213"
makul.Text = "Sistem Operasi"
Case "aa1213"
makul.Text = "Data Base"
Case "ss1213"
makul.Text = "Struktur Data"
End Select
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 = " "
nama_dosen.Text
= " "
Kd_dosen.Text =
" "
kd_makul.Text =
" "
makul.Text = " "
hadir.Text = " "
tugas.Text = " "
uts.Text = " "
uas.Text = " "
akhir.Text = " "
Huruf.Text = " "
keterangan.Text
= " "
jurusan.Text = " "
End Sub
Private Sub
proses_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
proses.Click
akhir.Text =
0.1 * hadir.Text + 0.15 * tugas.Text + 0.3 * uts.Text + 0.45 * uas.Text
If akhir.Text >= 50 Then
keterangan.Text = "lulus"
Else
keterangan.Text = "gagal"
End If
If akhir.Text >= "80"
Then
Huruf.Text
= "A"
ElseIf akhir.Text = "70"
Then
Huruf.Text
= "B"
ElseIf akhir.Text = "60"
Then
Huruf.Text
= "C"
ElseIf akhir.Text = "50"
Then
Huruf.Text
= "D"
ElseIf akhir.Text <= "50"
Then
Huruf.Text
= "E"
End If
Dim x As String
Microsoft.VisualBasic.Right(npm.Text, 2)
x = Microsoft.VisualBasic.Mid(npm.Text,
3, 1)
If x = "0"
Then
jenjang.Text = "D1"
ElseIf x = "1"
Then
jenjang.Text = "D3"
ElseIf x = "2"
Then
jenjang.Text = "S1"
End If
x =
Microsoft.VisualBasic.Mid(npm.Text, 3, 2)
If x = "11"
Then
jurusan.Text = "Teknik
Informatika"
ElseIf x = "12"
Then
jurusan.Text = "Manajemen
Informatika"
ElseIf x = "13"
Then
jurusan.Text = "Teknik Komputer"
End If
End Sub
Private Sub
keluar_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
keluar.Click
End
End Sub
End Class
