Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        nim.Items.Add("171910201082")
        nim.Items.Add("171910201081")
        nim.Items.Add("171910201080")

        kodes.Items.Add("A1")
        kodes.Items.Add("A2")
        kodes.Items.Add("A3")

        kmk.Items.Add("mkA")
        kmk.Items.Add("mkB")
        kmk.Items.Add("mkC")
        Dim i As Integer
        For i = 0 To 100
            niabs.Items.Add("" & i)
            nt.Items.Add("" & i)
            nuts.Items.Add("" & i)
            nuas.Items.Add("" & i)
        Next
    End Sub

    Private Sub nim_SelectedIndexChanged(sender As Object, e As EventArgs) Handles nim.SelectedIndexChanged
        Select Case nim.Text
            Case "171910201082"
                nama.Text = "Hamdani Dinul Haq"
                jenjang.Text = "S1"
                jur.Text = "Teknik Elektro"

            Case "171910201081"
                nama.Text = "Bambang Pamungkas"
                jenjang.Text = "S1"
                jur.Text = "Teknik Elektro"

            Case "171910201080"
                nama.Text = "Edi Supeno"
                jenjang.Text = "D3"
                jur.Text = "Teknik Elektro"

        End Select
    End Sub

    Private Sub kodes_SelectedIndexChanged(sender As Object, e As EventArgs) Handles kodes.SelectedIndexChanged
        Select Case kodes.Text
            Case "A1"
                nados.Text = "Sridarsih, S.T, M.T"
            Case "A2"
                nados.Text = "Sumarni, S.T, M.T"
            Case "A3"
                nados.Text = "Robert Downey, S.T, M.T"

        End Select
    End Sub

    Private Sub kmk_SelectedIndexChanged(sender As Object, e As EventArgs) Handles kmk.SelectedIndexChanged
        Select Case kmk.Text
            Case "mkA"
                mk.Text = "Rangkaian Listrik"
            Case "mkB"
                mk.Text = "Algoritma dan Pemrograman"
            Case "mkC"
                mk.Text = "Bahasa Inggris"
        End Select
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        na.Text = 0.1 * niabs.Text + 0.2 * nt.Text + 0.25 * nuts.Text + 0.45 * nuas.Text

        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"
        Else
            nh.Text = "E"
        End If
        If na.Text >= 60 Then
            ket.Text = "LULUS"
        Else
            ket.Text = "TIDAK LULUS"
        End If
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        nim.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        jur.Text = ""
        kodes.Text = ""
        nados.Text = ""
        kmk.Text = ""
        mk.Text = ""
        niabs.Text = ""
        nt.Text = ""
        nuts.Text = ""
        nuas.Text = ""
        na.Text = ""
        nh.Text = ""
        ket.Text = ""

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        End
    End Sub
End Class