Membuat Form Nilai Mahasiswa

Listing Program :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110982")
        NPM.Items.Add("12110040")
        NPM.Items.Add("12113456")
        NPM.Items.Add("12118890")
        NPM.Items.Add("12113435")

        KDosen.Items.Add("D001")
        KDosen.Items.Add("D002")
        KDosen.Items.Add("D003")
        KDosen.Items.Add("D004")
        KDosen.Items.Add("D005")

        Kodematkul.Items.Add("M001")
        Kodematkul.Items.Add("M002")
        Kodematkul.Items.Add("M003")
        Kodematkul.Items.Add("M004")
        Kodematkul.Items.Add("M005")

        Dim i As Integer
        For i = 100 To 1 Step -1
            Nhadir.Items.Add(i)
            NT.Items.Add(i)
            NU.Items.Add(i)
            NUS.Items.Add(i)
        Next i

    End Sub

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

            Case "12110982"
                Nama.Text = "Rahmad Dedi"
                Jenjang.Text = "S1"
                Jurusan.Text = "Tekhnik Informatika"
            Case "12110040"
                Nama.Text = "Sri Agustina"
                Jenjang.Text = "S1"
                Jurusan.Text = "Sistem Informasi"
            Case "12113456"
                Nama.Text = "Sahli Fadli"
                Jenjang.Text = "D3"
                Jurusan.Text = "Manajemen Informatika"
            Case "12118890"
                Nama.Text = "Nur Fika"
                Jenjang.Text = "D3"
                Jurusan.Text = "Akutansi Informatika"
            Case "12113435"
                Nama.Text = "Tumpak s"
                Jenjang.Text = "D1"
                Jurusan.Text = "Tekhnisi"
            Case Else
                Nama.Text = "-"
        End Select

    End Sub

    Private Sub KDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KDosen.SelectedIndexChanged
        Select Case KDosen.Text
            Case "D001"
                NmDosen.Text = "Mesran"
            Case "D002"
                NmDosen.Text = "Sinar Sinurat"
            Case "D003"
                NmDosen.Text = "Toni Limbong"
            Case "D004"
                NmDosen.Text = "Harvei"
            Case "D005"
                NmDosen.Text = "Syahrizal"
            Case Else
                NmDosen.Text = "-"

        End Select
    End Sub

    Private Sub Kodematkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kodematkul.SelectedIndexChanged
        Select Case Kodematkul.Text
            Case "M001"
                Nmatkul.Text = "Pemrograman Visual"
            Case "M002"
                Nmatkul.Text = "Sistem Operasi"
            Case "M003"
                Nmatkul.Text = "Komunikasi Data"
            Case "M004"
                Nmatkul.Text = "Arsitektur dan Organisasi Komputer"
            Case "M005"
                Nmatkul.Text = "Sistem Basis Data"
            Case Else
                Nmatkul.Text = "-"
        End Select
    End Sub

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

    Private Sub BtnProcess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProcess.Click
        NA.Text = 0.1 * Nhadir.Text + 0.15 * NT.Text + 0.3 * NU.Text + 0.45 * NUS.Text
        If NA.Text >= 50 Then
            Ket.Text = "LULUS"
        Else
            Ket.Text = "GAGAL"

        End If

        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
    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 = ""
        KDosen.Text = ""
        NmDosen.Text = ""
        Kodematkul.Text = ""
        Nmatkul.Text = ""
        Nhadir.Text = ""
        NT.Text = ""
        NU.Text = ""
        NUS.Text = ""
        NA.Text = ""
        NH.Text = ""
        Ket.Text = ""
    End Sub

End Class

Hasil Program setelah dijalankan