Public Class form1
Private Sub jrsn_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
npm.Items.Add("11113400")
npm.Items.Add("14111001")
npm.Items.Add("12133011")
Me.Text = " NILAI "
Me.BackColor = Color.RoyalBlue
KD.Items.Add("M2")
KD.Items.Add("M3")
KD.Items.Add("M4")
KMK.Items.Add("cm1")
KMK.Items.Add("cm0")
KMK.Items.Add("cm3")
NK.Items.Add("40")
NK.Items.Add("50")
NK.Items.Add("60")
NK.Items.Add("70")
NK.Items.Add("80")
NK.Items.Add("90")
NT.Items.Add("40")
NT.Items.Add("50")
NT.Items.Add("60")
NT.Items.Add("70")
NT.Items.Add("80")
NT.Items.Add("90")
NUTS.Items.Add("40")
NUTS.Items.Add("50")
NUTS.Items.Add("60")
NUTS.Items.Add("70")
NUTS.Items.Add("80")
NUTS.Items.Add("90")
nuas.Items.Add("40")
nuas.Items.Add("50")
nuas.Items.Add("60")
nuas.Items.Add("70")
nuas.Items.Add("80")
nuas.Items.Add("90")
End Sub
Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
Select npm.Text
Case "11113400"
nm.Text = "sule"
jj.Text = "S1"
Jur.Text = "Tehnik Informatika"
btnproses.BackColor = Color.Orange
btnkeluar.BackColor = Color.Silver
btnhapus.BackColor = Color.Gray
Case "14111001"
nm.Text = "sesar yks"
jj.Text = "D3"
Jur.Text = "Manajemen Informatika"
btnproses.BackColor = Color.SaddleBrown
btnkeluar.BackColor = Color.Magenta
btnhapus.BackColor = Color.Salmon
Case "12133011"
nm.Text = "purnama"
jj.Text = "D1"
Jur.Text = "design Grafis"
btnproses.BackColor = Color.SlateBlue
btnkeluar.BackColor = Color.Gold
End Select
End Sub
Private Sub KD_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KD.SelectedIndexChanged
If KD.Text = "M2" Then
ND.Text = "parto"
ElseIf KD.Text = "M3" Then
ND.Text = "olga syahputra"
Else
ND.Text = "bily syahputra"
End If
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
na.Text = 0.1 * NK.Text + 0.15 * NT.Text + 0.3 * NUTS.Text + 0.45 * nuas.Text
Dim a As Integer
a = na.Text
Select Case a
Case Is >= 50
ket.Text = "lulus"
Case Is <= 50
ket.Text = "gagal"
End Select
If na.Text >= 80 Then
Nh.Text = "A"
ElseIf na.Text >= 70 Then
Nh.Text = "B"
ElseIf na.Text >= 60 Then
Nh.Text = "C"
ElseIf na.Text >= 50 Then
Nh.Text = "D"
ElseIf na.Text <= 50 Then
Nh.Text = "E"
End If
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
npm.Text = ""
nm.Text = ""
jj.Text = ""
Jur.Text = ""
KD.Text = ""
ND.Text = ""
KMK.Text = ""
mk.Text = ""
NK.Text = ""
NT.Text = ""
NUTS.Text = ""
nuas.Text = ""
na.Text = ""
Nh.Text = ""
ket.Text = ""
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Me.Close()
End Sub
Private Sub KMK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KMK.SelectedIndexChanged
Select Case KMK.Text
Case "CM1"
mk.Text = "matriks"
Case "CM0"
mk.Text = "visual basic"
Case Else
mk.Text = "struktur data"
End Select
End Sub
End Class
