Contoh Program Pencarian Nilai Huruf Menggunakan VB.net

 Masukkan NPM (13111000,13111011,13112011)
Masukkan Kode Dosen (KD01,KD02,KD03)
Masukkan Kode Matakuliah (KM011,KM012,KM013)

Ketentuan :
1 digit dari sebelah kanan NPM menentukan jenjang yaitu S1,D3,D1
4 digit dari sebelah kanan NPM dan dari 4 digit tsb diambil 2 karakter untuk menentukan jurusan
2 digit dari sebelah kanan Kode Dosen menentukan Nama Dosen
2 digit dari sebelah kanan Kode Matakuliah menentukan Nama Matakuliah    


 

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("13111000")
        NPM.Items.Add("13111011")
        NPM.Items.Add("13112011")

        KodeDosen.Items.Add("KD01")
        KodeDosen.Items.Add("KD02")
        KodeDosen.Items.Add("KD03")

        KodeMK.Items.Add("MK011")
        KodeMK.Items.Add("MK012")
        KodeMK.Items.Add("MK013")

        Dim i As Integer
        For i = 0 To 100 Step +4
            nTugas.Items.Add(i)
            nUas.Items.Add(i)
            nUTS.Items.Add(i)
            nHadir.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 "13111000"
                Nama.Text = "Doni M"
            Case "13111011"
                Nama.Text = "Hendra S"
            Case "13112011"
                Nama.Text = "Novi S"
            Case Else
                Nama.Text = "-"
        End Select

        Dim i As String
        i = Microsoft.VisualBasic.Right(NPM.Text, 1)
        If i = "0" Then
            Jenjang.Text = "S1"
        ElseIf i = "1" Then
            Jenjang.Text = "D3"
        Else
            Jenjang.Text = "D1"
        End If

        i = Microsoft.VisualBasic.Mid(NPM.Text, 4, 2)
        If i = "10" Then
            Jurusan.Text = "Teknik Informatika"
        ElseIf i = "11" Then
            Jurusan.Text = "Sistem Informasi"
        ElseIf i = "12" Then
            Jurusan.Text = "Manajemen"
        Else
            Jurusan.Text = "-"
        End If

    End Sub

    Private Sub KodeMK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMK.SelectedIndexChanged
        Dim j As String
        j = Microsoft.VisualBasic.Right(KodeMK.Text, 2)
        If j = "11" Then
            NamaMK.Text = "Pemrograman Visual"
        ElseIf j = "12" Then
            NamaMK.Text = "Arsitektur Informasi"
        ElseIf j = "13" Then
            NamaMK.Text = "Struktur Data"
        End If
    End Sub

    Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged
        Dim k As String
        k = Microsoft.VisualBasic.Right(KodeDosen.Text, 2)
        If k = "01" Then
            NamaDosen.Text = "Mesran S.Kom,M.Kom"
        ElseIf k = "02" Then
            NamaDosen.Text = "Sony Bahagia S.Kom"
        ElseIf k = "02" Then
            NamaDosen.Text = "Sinar Sinurat S.Kom,M.Kom"
        End If
    End Sub

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        NA.Text = 0.1 * nHadir.Text + 0.15 * nTugas.Text + 0.3 * nUTS.Text + 0.4 * nUas.Text


        If NA.Text >= 60 Then
            Keterangan.Text = "LULUS"
        Else
            Keterangan.Text = "GAGAL"
        End If

        Select Case NA.Text
            Case Is >= 80
                nHuruf.Text = "A"
            Case 70 To 79
                nHuruf.Text = "B"
            Case 60 To 69
                nHuruf.Text = "C"
            Case 50 To 59
                nHuruf.Text = "D"
            Case Is <= 49
                nHuruf.Text = "E"
        End Select
    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click
        NPM.Text = ""
        Nama.Text = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        KodeDosen.Text = ""
        NamaDosen.Text = ""
        KodeMK.Text = ""
        NamaMK.Text = ""
        nHadir.Text = ""
        nTugas.Text = ""
        nUTS.Text = ""
        nUas.Text = ""
        NA.Text = ""
        nHuruf.Text = ""
        Keterangan.Text = ""
    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        Me.Close()
    End Sub
End Class

Dan ini hasilnya: