Public Class Form1

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged


        If (NPM.Text = "12110102") Then
            NAMA.Text = "AHMAD JAMALUDIN"
            ntug.Items.Add("01")
            ntug.Items.Add("02")
        ElseIf (NPM.Text = "12120244") Then
            NAMA.Text = "RATRI SUSANTI"
        ElseIf (NPM.Text = "12130346") Then
            NAMA.Text = "INDAH BIDIANTI"
        ElseIf (NPM.Text = "12110496") Then
            NAMA.Text = "AHMAD BUDIMAN"
        ElseIf (NPM.Text = "12130557") Then
            NAMA.Text = "ROBERT SUSANTO"
        End If



        If Mid(NPM.Text, 3, 2) = "11" Then
            JENJANG.Text = "S1"
        ElseIf Mid(NPM.Text, 3, 2) = "12" Then
            JENJANG.Text = "D3"
        ElseIf Mid(NPM.Text, 3, 2) = "13" Then
            JENJANG.Text = "D1"
        End If

        If Mid(NPM.Text, 5, 2) = "01" Then
            jurusan.Text = "TEKNIK INFORMATIKA"
        ElseIf Mid(NPM.Text, 5, 2) = "02" Then
            jurusan.Text = "SISTEM INFORMATIKA"
        ElseIf Mid(NPM.Text, 5, 2) = "03" Then
            jurusan.Text = "MANAJEMEN INFORMATIKA"
        ElseIf Mid(NPM.Text, 5, 2) = "04" Then
            jurusan.Text = "KOMPUTERISASI AKUNTANSI"
        ElseIf Mid(NPM.Text, 5, 2) = "05" Then
            jurusan.Text = "DESAIN GRAFIS"
        End If

    End Sub

    Private Sub kddosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kddosen.SelectedIndexChanged

        If kddosen.Text = "LAB001" Then
            namadosen.Text = "MESRAN, M.Kom"
        ElseIf kddosen.Text = "LAB002" Then
            namadosen.Text = "YULI AHMADI, M.Kom"
        ElseIf kddosen.Text = "LAB003" Then
            namadosen.Text = "FITRIANI, M.Si"
        ElseIf kddosen.Text = "LAB004" Then
            namadosen.Text = "SURYA DARMA, M.Si"
        ElseIf kddosen.Text = "LAB005" Then
            namadosen.Text = "NELLY ASTUTI, M.Kom"

        End If
    End Sub

    Private Sub kdmakul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdmakul.SelectedIndexChanged
        If kdmakul.Text = "K01" Then
            namamakul.Text = "PEMOGRAMAN VISUAL 1"
        ElseIf kdmakul.Text = "K02" Then
            namamakul.Text = "SISTEM BASIS DATA"
        ElseIf kdmakul.Text = "K03" Then
            namamakul.Text = "ARSITEKTUR"
        ElseIf kdmakul.Text = "K04" Then
            namamakul.Text = "SISTEM OPERASI"
        ElseIf kdmakul.Text = "K05" Then
            namamakul.Text = "ALGORITMA"

        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim i As Integer

        For i = 100 To 1 Step -1
            nkehadiran.Items.Add(i)
            ntug.Items.Add(i)
            nUTS.Items.Add(i)
            nUAS.Items.Add(i)
        Next
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        nakhir.Text = (0.1 * nkehadiran.Text) + (0.15 * ntug.Text) + (0.3 * nUTS.Text) + (0.45 * nUAS.Text)
        If nakhir.Text > 90 Then
            nhuruf.Text = "A"
            keterangan.Text = "LULUS"
        ElseIf nakhir.Text > 80 Then
            nhuruf.Text = "B"
            keterangan.Text = "LULUS"
        ElseIf nakhir.Text > 70 Then
            nhuruf.Text = "C"
            keterangan.Text = "LULUS"
        ElseIf nakhir.Text > 60 Then
            nhuruf.Text = "D"
            keterangan.Text = "LULUS"
        ElseIf nakhir.Text > 50 Then
            nhuruf.Text = "E"
            keterangan.Text = "GAGAL"
        End If
    End Sub

    Private Sub nakhir_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles nakhir.GotFocus

        nhuruf.Focus()
    End Sub

    Private Sub nhuruf_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles nhuruf.GotFocus


        Button1.Focus()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim currentTextBox As TextBox
        Dim currentComboBox As ComboBox
        'Loop through all the top level controls.>>
        For Each ctrl As Control In Me.Controls

            'If the control is a TextBox do the next action.>>
            If TypeOf ctrl Is TextBox Then
                'Convert the type of ctrl to a TextBox and assign
                'it to "currentTextBox"
                currentTextBox = CType(ctrl, TextBox)
                'Clear the current TextBox.>>
                currentTextBox.Clear()
            End If
            'If the control is a ComboBox do the next action.>>
            If TypeOf ctrl Is ComboBox Then
                'Convert the type of ctrl to a TextBox and assign
                'it to "currentComboBox"
                currentComboBox = CType(ctrl, ComboBox)
                'Clear the current ComboBox.>>
                currentComboBox.Text = String.Empty


            End If
        Next

        NPM.Focus()


    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()

    End Sub
End Class