Nilai mahasiswa

Public Class form1
    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "11113400"
                nama.Text = "widi"
                jenjang.Text = "S1"
                jurusan.Text = "Tehnik Informatika"
                btnproses.BackColor = Color.Orange
                btnkeluar.BackColor = Color.Silver
                btnhapus.BackColor = Color.Gray

            Case "14111001"
                nama.Text = "sesar yks"
                jenjang.Text = "D3"
                jurusan.Text = "Manajemen Informatika"
                btnproses.BackColor = Color.SaddleBrown
                btnkeluar.BackColor = Color.Magenta
                btnhapus.BackColor = Color.Salmon


            Case "12133011"

                nama.Text = "purnama"
                jenjang.Text = "D1"
                jurusan.Text = "design Grafis"
                btnproses.BackColor = Color.SlateBlue
                btnkeluar.BackColor = Color.Gold
        End Select

    End Sub

    Private Sub kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd.SelectedIndexChanged
        If kd.Text = "123" Then
            nd.Text = "mesran M.Kom"
        ElseIf kd.Text = "456" Then
            nd.Text = "M.syahrizal M.Kom"
        Else
            nd.Text = "M.Syahrizal M.Kom"
        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 = ""
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kd.Text = ""
        nd.Text = ""
        kmk.Text = ""
        matakuliah.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 kodematkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kmk.SelectedIndexChanged
        Select Case kmk.Text
            Case "CM1"
                matakuliah.Text = "matriks"
            Case "CM0"
                matakuliah.Text = "visual basic"
            Case Else
                matakuliah.Text = "struktur data"
        End Select


    End Sub



    Private Sub form1_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")


        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


End Class