Contoh Program Pencarian Nilai Huruf dan Pemakaian Fungsi Mid, Right dalam VB.Net

Soal Tugas Belajar Bahasa Pemograman

Masukkan NPM (13111000,13111011,13112011)
Masukkan Kode Dosen (KD01,KD02,KD03)
Masukkan Kode Matakuliah (KM11,KM12,KM13)

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 
Nilai Akhir = 10% * Nilai Hadir + 15% Nilai Tugas + 30% Nilai UTS + 45% * Nilai UAS
Apabila Nilai Huruf :

A = Jika Nilai akhir Lebih besar dari 80

B = Jika Nilai akhir Lebih besar dari 70

C = Jika Nilai akhir Lebih besar dari 60

D = Jika Nilai akhir Lebih besar dari 50

E = Jika Nilai akhir Lebih kecil dari 50

Lulus jika Nilai akhir lebih besar dari 50

Tidak lulus jika Nilai akhir lebih kecil dari 50

Ini adalah 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("13111000")
        npm.Items.Add("13111011")
        npm.Items.Add("13112011")
        For x = 1 To 3
            kode_dosen.Items.Add("KD0" & x)
        Next
        For x = 11 To 13
            kode_matkul.Items.Add("KM" & x)
        Next
        Dim i As Integer
        For i = 0 To 100 Step +5
            nilai_tugas.Items.Add(i)
            nilai_uts.Items.Add(i)
            nilai_uas.Items.Add(i)
        Next i
        Dim j As Integer
        For j = 0 To 100
            nilai_hadir.Items.Add(j)
        Next j

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

        Dim x As String
        x = Microsoft.VisualBasic.Right(npm.Text, 1)
        If x = "0" Then
            jenjang.Text = "S1"
        ElseIf x = "1" Then
            jenjang.Text = "D3"
        Else
            jenjang.Text = "D1"
        End If

        x = Microsoft.VisualBasic.Mid(npm.Text, 4, 2)
        If x = "10" Then
            jurusan.Text = "Teknik Informatika"
        ElseIf x = "11" Then
            jurusan.Text = "Sistem Informasi"
        ElseIf x = "12" Then
            jurusan.Text = "Manajemen"
        Else
            jurusan.Text = "-"
        End If
        Select Case npm.Text
            Case "13111000"
                nama.Text = "Doni M"
            Case "13111011"
                nama.Text = "Hendra S"
            Case "13112011"
                nama.Text = "Atika"
            Case Else
                nama.Text = "-"
        End Select

    End Sub

    Private Sub kode_matkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_matkul.SelectedIndexChanged

        Dim y As String
        y = Microsoft.VisualBasic.Right(kode_matkul.Text, 2)
        If y = "11" Then
            nama_matkul.Text = "Pemograman Visual"
        ElseIf y = "12" Then
            nama_matkul.Text = "Arsitektur Informasi"
        ElseIf y = "13" Then
            nama_matkul.Text = "Struktur Data"
        End If

    End Sub

    Private Sub kode_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_dosen.SelectedIndexChanged

        Dim z As String
        z = Microsoft.VisualBasic.Right(kode_dosen.Text, 2)
        If z = "01" Then
            nama_dosen.Text = "Mesran S.Kom, M.Kom"
        ElseIf z = "02" Then
            nama_dosen.Text = "Sony Bahagia S.Kom"
        ElseIf z = "03" Then
            nama_dosen.Text = "Sinar Sinurat S.Kom, M.Kom"
        End If

    End Sub

    Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click

        nilai_akhir.Text = 0.1 * nilai_hadir.Text + 0.15 * nilai_tugas.Text + 0.3 * nilai_uts.Text + 0.45 * nilai_uas.Text
        If nilai_akhir.Text >= 60 Then
            keterangan.Text = "LULUS"
        Else
            keterangan.Text = "GAGAL"
        End If
        Select Case nilai_akhir.Text
            Case Is >= 80
                nilai_hurf.Text = "A"
            Case 70 To 79
                nilai_hurf.Text = "B"
            Case 60 To 69
                nilai_hurf.Text = "C"
            Case 50 To 59
                nilai_hurf.Text = "D"
            Case Is <= 49
                nilai_hurf.Text = "E"
        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 = ""
        kode_dosen.Text = ""
        nama_dosen.Text = ""
        kode_matkul.Text = ""
        nama_matkul.Text = ""
        nilai_hadir.Text = ""
        nilai_tugas.Text = ""
        nilai_uts.Text = ""
        nilai_uas.Text = ""
        nilai_akhir.Text = ""
        nilai_hurf.Text = ""
        keterangan.Text = ""

    End Sub

    Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click

        Me.Close()

    End Sub

End Class




Hasil Programnya adalah :

Sumber : Materi dari Pak Mesran S.Kom, M.Kom =D