Saya harap sobat juga membaca Artikel ini "Belajar Bahasa Program"
Public Class
Form1
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
CBNPM.Items.Add("12110714")
CBNPM.Items.Add("12110407")
CBNPM.Items.Add("12110082")
CBKODES.Items.Add("MS001")
CBKODES.Items.Add("PL002")
CBKODES.Items.Add("TN003")
CBKOMAKUL.Items.Add("PV001")
CBKOMAKUL.Items.Add("A0002")
CBKOMAKUL.Items.Add("SBD003")
Dim X As Integer
For X = 100 To 1 Step -1
CBHADIR.Items.Add(X)
CBTUGAS.Items.Add(X)
CBUTS.Items.Add(X)
CBUAS.Items.Add(X)
Next X
End Sub
Private Sub
CBNPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
CBNPM.SelectedIndexChanged
Select Case
CBNPM.Text
Case "12110714"
TBNAMA.Text = "ROBBY AZHARI
HARAHAP"
JURUSAN.Text = "TEKNIK
INFORMATIKA"
Case "12110407"
TBNAMA.Text = "AHMAD FAUZI LINGGA"
JURUSAN.Text = "SISTEM INFORMASI"
Case "12110082"
TBNAMA.Text = "NURFATIAH NASUTION"
JURUSAN.Text = "TEKNIK
INFORMATIKA"
End Select
Dim X As String
X =
Microsoft.VisualBasic.Right(NPM.Text, 2)
If CBNPM.Text = "12110714"
Then
JENJANG.Text = "S1"
ElseIf CBNPM.Text = "12110407"
Then
JENJANG.Text = "S1"
ElseIf CBNPM.Text = "12110082"
Then
JENJANG.Text = "D3"
End If
End Sub
Private Sub
CBKODES_SelectedIndexChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
CBKODES.SelectedIndexChanged
Select Case
CBKODES.Text
Case "MS001"
DOSEN.Text = "MESRAN M.KOM"
Case "PL002"
DOSEN.Text = "PRISTIWANTO S.KOM"
Case "TN003"
DOSEN.Text = "YASIR HASAN S.KOM"
End Select
End Sub
Private Sub
CBKOMAKUL_SelectedIndexChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
CBKOMAKUL.SelectedIndexChanged
Select Case
CBKOMAKUL.Text
Case "PV001"
MATAKULIAH.Text = "PROGRAM VISUAL"
Case "A0002"
MATAKULIAH.Text = "KOMUNIKASI
DATA"
Case "SBD003"
MATAKULIAH.Text = "SISTEM OPERASI"
End Select
End Sub
Private Sub
BTNPROSES_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
BTNPROSES.Click
AKHIR.Text =
0.1 * CBHADIR.Text + 0.15 * CBTUGAS.Text + 0.35 * CBUTS.Text + 0.45 *
CBUAS.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"
Else
HURUF.Text
= "E"
End If
End Sub
Private Sub
BTNKELUAR_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
BTNKELUAR.Click
End
End Sub
Private Sub
BTNHAPUS_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
BTNHAPUS.Click
CBNPM.Text = ""
TBNAMA.Text = ""
JENJANG.Text = ""
JURUSAN.Text = ""
DOSEN.Text = ""
CBKODES.Text = ""
CBNPM.Text = ""
CBTUGAS.Text = ""
CBNPM.Text = ""
CBUTS.Text = ""
CBUAS.Text = ""
CBHADIR.Text = ""
CBKOMAKUL.Text
= ""
MATAKULIAH.Text
= ""
KETERANGAN.Text
= ""
HURUF.Text = ""
AKHIR.Text = ""
End Sub
End Class
