FormNilai Sederhana

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12111134")
        NPM.Items.Add("12110000")
        NPM.Items.Add("12115656")
   

        KDosen.Items.Add("001")
        KDosen.Items.Add("002")
        KDosen.Items.Add("003")
 
        Kodematkul.Items.Add("p001")
        Kodematkul.Items.Add("p002")
        Kodematkul.Items.Add("p003")
     

        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 "12111134"
                Nama.Text = "sahli fadli"
                Jenjang.Text = "S1"
                Jurusan.Text = "Tekhnik Informatika"
            Case "12110000"
                Nama.Text = "Bachri"
                Jenjang.Text = "S1"
                Jurusan.Text = "Sistem Informasi"
            Case "12115656"
                Nama.Text = "Lastri"
                Jenjang.Text = "D3"
                Jurusan.Text = "Manajemen Informatika"
            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 "001"
                NmDosen.Text = "Mesran"
            Case "002"
                NmDosen.Text = "Sinar Sinurat"
            Case "003"
                NmDosen.Text = "Toni Limbong"
            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 "p001"
                Nmatkul.Text = "Pemrograman Visual"
            Case "p002"
                Nmatkul.Text = "Sistem Operasi"
            Case "p003"
                Nmatkul.Text = "Komunikasi 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

    Private Sub Nama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nama.TextChanged

    End Sub
End Class

hasilnya: