LATIHAN MENGHITUNG NILAI

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