Program pencarian Nilai

sore ini kita akan membuat postingan tentang pencarian nilai mahasiswa dalam sebuah programan vb.net
untuk melanjutkan langkah selanjutnya, desain lah form seperti berikut :

untuk membuat sintak program silah kan ketik seperti biasa :

Public Class Anton

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        KDosen.Items.Add("GL001")
        KDosen.Items.Add("YY002")
        KDosen.Items.Add("TL003")

        npm.Items.Add("12110581")
        npm.Items.Add("12110841")
        npm.Items.Add("12110874")

        KMKuliah.Items.Add("GL001")
        KMKuliah.Items.Add("YY002")
        KMKuliah.Items.Add("TL003")
        Dim x As Integer
        For x = 100 To 1 Step -1
            nilaihadir.Items.Add(x)
            NTugas.Items.Add(x)
            NUts.Items.Add(x)
            NUas.Items.Add(x)
        Next x
    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "12110581"
                Nama.Text = "Anton P. Sitinjak"
                Jurusan.Text = "Teknik Informatika"
            Case "12110841"
                Nama.Text = "POLINUS LAIA"
                Jurusan.Text = "Teknik Informatika"
            Case "12110874"
                Nama.Text = "Fentris Yarif Laoly"
                Jurusan.Text = "Sistem Informasi"
        End Select
        Dim x As String
        x = Microsoft.VisualBasic.Right(npm.Text, 2)
        If npm.Text = "12110581" Then
            Jenjang.Text = "TI"
        ElseIf npm.Text = "12110841" Then
            Jenjang.Text = "TI"
        ElseIf npm.Text = "12110874" Then
            Jenjang.Text = "TI"
        End If
    End Sub

    Private Sub kodedo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KDosen.SelectedIndexChanged
        Select Case KDosen.Text
            Case "GL001"
                NDosen.Text = "MESRAN S.Kom, M.Kom"
            Case "YY002"
                NDosen.Text = "RIVARY KRISTIANTO HONDRO, S.Kom"
            Case "TL003"
                NDosen.Text = "Toni LImbong S.kom,M.Kom"
        End Select
    End Sub

    Private Sub komaku_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KMKuliah.SelectedIndexChanged
        Select Case KMKuliah.Text
            Case "GL001"
                MKUliah.Text = "VISUAL BASIC"
            Case "YY002"
                MKUliah.Text = "Konsep Pemogrmana Visual Basic"
            Case "TL003"
                MKUliah.Text = "Sistem Basis Data"
        End Select
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        Nakhir.Text = 0.1 * nilaihadir.Text + 0.15 * NTugas.Text + 0.35 * NUts.Text + 0.45 * NUas.Text
        If Nakhir.Text >= 50 Then
            Ket.Text = "LULUS"
        Else
            Ket.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 Nakhir.Text >= "50" Then
            NHuruf.Text = "D"
        Else
            NHuruf.Text = "E"
        End If
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Nakhir.Text = ""
        npm.Text = ""
        Nama.Text = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        KDosen.Text = ""
        NDosen.Text = ""
        KMKuliah.Text = ""
        MKUliah.Text = ""
        nilaihadir.Text = ""
        NTugas.Text = ""
        NUts.Text = ""
        NUas.Text = ""
        NHuruf.Text = ""
        Ket.Text = ""
    End Sub

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

Program hasil :

sampai disini untuk membuat program pencarian nilai...
sampai jumpa :)