Tugas Pemrograman Visual

Artikel ini saya buat untuk memenuhi Tugas Belajar Bahasa Pemrograman Mata kuliah Pemrograman Visual dari pak Mesran.
Berikut adalah hasil output programnya.

Berikut Script/Coding programnya.
Public Class Form1


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add(12100347)
        npm.Items.Add(12110348)
        npm.Items.Add(12120350)
        kdosen.Items.Add(33190)
        kdosen.Items.Add(33180)
        kdosen.Items.Add(33170)
        kmatkul.Items.Add("KKTI3310")
        kmatkul.Items.Add("KKTI3320")
        kmatkul.Items.Add("KBTI3310")
        kmatkul.Items.Add("KBTI3320")
        jurusan.Enabled = False
        jenjang.Enabled = False
        Dim i As Integer
        For i = 1 To 100
            nuts.Items.Add(i)
            nuas.Items.Add(i)
            nhadir.Items.Add(i)
            ntugas.Items.Add(i)


        Next


    End Sub

    Private Sub Btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_proses.Click
        nakhir.Text = 0.1 * nhadir.Text + 0.15 * ntugas.Text + 0.3 * nuts.Text + 0.45 * nuas.Text
        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 nakhir.Text >= 50 Then
            nhuruf.Text = "D"
        Else
            nhuruf.Text = "E"
        End If
        If nakhir.Text <= 50 Then
            ket.Text = "Gagal"
        Else
            ket.Text = "Lulus"
        End If


    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case 12100347
                nama.Text = "Lokot Marlokot"
            Case 12110348
                nama.Text = "Andika Brahmana"
            Case 12120350
                nama.Text = "Petot Supetot"
            Case Else
                nama.Text = "_"
        End Select

        Dim x As String
        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)

        If x = 12 Then
            jenjang.Text = "Diploma I"
            jurusan.Text = "Komputer Akuntansi"
        ElseIf x = "10" Then
            jenjang.Text = "Diploma III"
            jurusan.Text = "Manajemen Informatika"
        ElseIf x = "11" Then
            jenjang.Text = "Strata I"
            jurusan.Text = "Teknik Informatika"
        End If
    End Sub

    Private Sub kdosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdosen.SelectedIndexChanged

        Select Case kdosen.Text
            Case "33190"
                ndosen.Text = "Noferianto, M.kom"

            Case "33180"
                ndosen.Text = "Mesran, M.kom"

            Case "33170"
                ndosen.Text = "Pilipus, S.T,M.kom"

            Case Else
                ndosen.Text = "_"
        End Select

    End Sub

    Private Sub kmatkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kmatkul.SelectedIndexChanged
        Select Case kmatkul.Text
            Case "KKTI3310"
                nmatkul.Text = "Struktur Data"
            Case "KKTI3320"
                nmatkul.Text = "Sistem Operasi"
            Case "KBTI3310"
                nmatkul.Text = "Komunikasi Data"
            Case "KBTI3320"
                nmatkul.Text = "Pemrograman Visual"
            Case Else
                nmatkul.Text = "_"

        End Select
    End Sub

    Private Sub Btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_hapus.Click
        npm.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kdosen.Text = ""
        ndosen.Text = ""
        kmatkul.Text = ""
        nmatkul.Text = ""
        ntugas.Text = ""
        nhadir.Text = ""
        nuts.Text = ""
        nuas.Text = ""
        nakhir.Text = ""
        nhuruf.Text = ""
        ket.Text = ""
    End Sub

    Private Sub Btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_keluar.Click
        End
    End Sub
End Class

Maaf jika ada yang salah dalam postingan saya ini maklum masih newbie .

Terima kasih.