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 "12110260"
                nama.Text = "Rasimin"
            Case "12110261"
                nama.Text = "Gareth"
            Case "12110263"
                nama.Text = "Edo"
            Case "12110147"
                nama.Text = "r4bia"
            Case "12021687"
                nama.Text = "Putra S."
            Case "12008778"
                nama.Text = "Yanu"
            Case "12110756"
                nama.Text = "Fahmi Latief"
            Case "12110304"
                nama.Text = "Vicky Faldhy Agita"
        End Select
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110260")
        NPM.Items.Add("12110261")
        NPM.Items.Add("12110263")
        NPM.Items.Add("12110147")
        NPM.Items.Add("12021687")
        NPM.Items.Add("12008778")
        NPM.Items.Add("12110756")
        NPM.Items.Add("12110304")
        Kdosen.Items.Add("1198777")
        Kdosen.Items.Add("1198888")
        Kdosen.Items.Add("1198999")
        kmatakuliah.Items.Add("A111")
        kmatakuliah.Items.Add("B222")
        kmatakuliah.Items.Add("C333")
        Dim i As Integer
        For i = 1 To 100
            Ntugas.Items.Add(i)
            Nuas.Items.Add(i)
            Nkhadiran.Items.Add(i)
            Nuts.Items.Add(i)
        Next
    End Sub

    Private Sub Kdosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kdosen.SelectedIndexChanged
        Select Case Kdosen.Text
            Case "1198777"
                namadosen.Text = "Guidio Tarigan s.kom, M.kom"
            Case "1198888"
                namadosen.Text = "Abdul sani sembiring s.kom, M.kom"
            Case "1198999"
                namadosen.Text = "Pilipus Tarigan s.T, M.kom"
        End Select
    End Sub
    Private Sub kmatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kmatakuliah.SelectedIndexChanged
        Select Case kmatakuliah.Text
            Case "A111"
                nmatakuliah.Text = "Komunikasi Data"
            Case "B222"
                nmatakuliah.Text = "Sistem Operasi"
            Case "C333"
                nmatakuliah.Text = "Arsitektur dan Organisasi Komputer"
        End Select

    End Sub
    Private Sub BTNPROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPROSES.Click
        If NPM.Text = "" Or Nkhadiran.Text = "" Or Nuts.Text = "" Or Ntugas.Text = "" Or Nuas.Text = "" Then
            MsgBox("Pastikan NPM/nilai sudah ter input")
        ElseIf NPM.Text Then
            Nakhir.Text = Val(0.1 * Nkhadiran.Text) + Val(0.15 * Ntugas.Text) + Val(0.3 * Nuts.Text) + Val(0.45 * Nuas.Text)
            If Nakhir.Text >= 90 Then
                Nhuruf.Text = "A"
            ElseIf Nakhir.Text >= 80 Then
                Nhuruf.Text = "B+"
            ElseIf Nakhir.Text >= 70 Then
                Nhuruf.Text = "B"
            ElseIf Nakhir.Text >= 60 Then
                Nhuruf.Text = "C"
            ElseIf Nakhir.Text >= 50 Then
                Nhuruf.Text = "D"
            Else
                Nhuruf.Text = "E"
            End If
            If Nakhir.Text >= 50 Then
                xket.Text = "LULUS"
            Else
                xket.Text = "GAGAL"
            End If
            Dim x, y As String
            x = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)
            y = Microsoft.VisualBasic.Mid(NPM.Text, 5, 1)
            If x = "11" Then
                jenjang.Text = "S1"
            ElseIf x = "02" Then
                jenjang.Text = "D3"
            ElseIf x = "00" Then
                jenjang.Text = "D1"
            End If
            If y = "0" Then
                jurusan.Text = "Tehnik Informatika"
            ElseIf y = "1" Then
                jurusan.Text = "Management informatika"
            ElseIf y = "8" Then
                jurusan.Text = "Teknisi Komputer"
            ElseIf y = "5" Then
            End If
        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 = ""
        Kdosen.Text = ""
        namadosen.Text = ""
        kmatakuliah.Text = ""
        nmatakuliah.Text = ""
        Nkhadiran.Text = ""
        Ntugas.Text = ""
        Nuts.Text = ""
        Nuas.Text = ""
        Nakhir.Text = ""
        Nhuruf.Text = ""
        xket.Text = ""
        jurusan.Text = ""
    End Sub
    Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
        End
    End Sub
End Class