PROGRAM CEK KELULUSAN NILAI MAHASISWA dengan VB

CATATAN: di sini kita menginputkan sendiri nilai KEHADIRAN,TUGAS,UTS,UAS,setelah itu
 klik PROSES.

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        NPM.Items.Add("14110848")
        NPM.Items.Add("14110849")
        NPM.Items.Add("14110850")

        KDDOS.Items.Add("301")
        KDDOS.Items.Add("302")
        KDDOS.Items.Add("303")
        KDDOS.Items.Add("304")
        KDDOS.Items.Add("305")

        KDMKUL.Items.Add("KTBI406")
        KDMKUL.Items.Add("KTBI407")
        KDMKUL.Items.Add("KTBI408")
        KDMKUL.Items.Add("KTBI409")
      

    End Sub

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

        If NPM.Text = "14110848" Then
            NM.Text = "AFRINDA YUNUS SIREGAR"
            JJG.Text = "S1"
            jurusan.Text = "TEKNIK INFORMATIKA"
        ElseIf NPM.Text = "14110849" Then
            NM.Text = "SHINTA"
            JJG.Text = "S1"
            jurusan.Text = "SISTEM INFORMASI"
        ElseIf NPM.Text = "14110850" Then
            NM.Text = "RARA"
            JJG.Text = "S1"
            jurusan.Text = "EKONOMI"

        End If
      

    End Sub

    Private Sub KDDOS_SelectedIndexChanged(sender As Object, e As EventArgs) Handles KDDOS.SelectedIndexChanged
        Select Case KDDOS.Text
            Case "301"
                NDOSEN.Text = "MESRAN M.KOM"
            Case "302"
                NDOSEN.Text = "ALEX S.KOM, M.KOM"
            Case "303"
                NDOSEN.Text = "HERRY S.T"
            Case "304"
                NDOSEN.Text = "PHILIPUS S.T"
            Case "305"
                NDOSEN.Text = "GUIDIO S.KOM"

        End Select
    End Sub

    Private Sub KDMKUL_SelectedIndexChanged(sender As Object, e As EventArgs) Handles KDMKUL.SelectedIndexChanged
        Select Case KDMKUL.Text
            Case "KTBI406"
                NMKUL.Text = "PEMROGRAMAN VISUAL BASIC"
            Case "KTBI407"
                NMKUL.Text = "ARSITEKTUR DATA"
            Case "KTBI407"
                NMKUL.Text = "MATRIKS"
            Case "KTBI408"
                NMKUL.Text = "ARSITEKTUR KOMPUTER"
            Case "KTBI409"
                NMKUL.Text = "KOMUNIKASI DATA"
          
        End Select
    End Sub

    Private Sub btnHapus_Click(sender As Object, e As EventArgs) Handles btnHapus.Click
        NPM.Text = ""
        NM.Text = ""
        JJG.Text = ""
        jurusan.Text = ""
        KDDOS.Text = ""
        NDOSEN.Text = ""
        KDMKUL.Text = ""
        NMKUL.Text = ""
        NKEHADIRAN.Text = ""
        NTUGAS.Text = ""
        NUTS.Text = ""
        NUAS.Text = ""
        NAKHIR.Text = ""
        NHURUF.Text = ""
        KETERANGAN.Text = ""
    End Sub

    Private Sub BtnKeluar_Click(sender As Object, e As EventArgs) Handles BtnKeluar.Click
        End

    End Sub

    Private Sub BtnProses_Click(sender As Object, e As EventArgs) Handles BtnProses.Click
        NAKHIR.Text = 0.45 * NUAS.Text + 0.3 * NUTS.Text + 0.15 * NTUGAS.Text + 0.1 * NKEHADIRAN.Text()
        If NAKHIR.Text >= 50 Then
            KETERANGAN.Text = "LULUS"
        Else
            KETERANGAN.Text = "GAGAL"
        End If
        If NAKHIR.Text >= 80 Then
            NHURUF.Text = "A"
        ElseIf NAKHIR.Text >= 70 Then
            NHURUF.Text = "B"
        ElseIf NAKHIR.Text >= 60 Then
            NHURUF.Text = "C"
        ElseIf NHURUF.Text >= 50 Then
            NHURUF.Text = "D"
        Else
            NHURUF.Text = "D"
        End If
    End Sub
End Class