Jawaban Ujian Pencarian nilai mahasiswa dengan VB 2008

Desain Form Seperti Dibawah ini:



 Listing Program

Public Class Form1

   

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        npm.Items.Add("12110255")

        npm.Items.Add("12110256")

        npm.Items.Add("12110257")

        k_dosen.Items.Add("MS001")

        k_dosen.Items.Add("PL002")

        k_dosen.Items.Add("TN003")

        k_mk.Items.Add("PV001")

        k_mk.Items.Add("AO002")

        k_mk.Items.Add("SBD003")

        Dim x As Integer

        For x = 100 To 1 Step -1

            nh.Items.Add(x)

            nt.Items.Add(x)

            nu.Items.Add(x)

            nua.Items.Add(x)

        Next x

        rancangtbl()

    End Sub

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

        Select Case npm.Text

            Case "12110255"

                nama.Text = "Doni Gunawan"

                jr.Text = "Sistem Informatika"

            Case "12110256"

                nama.Text = "Somat"

                jr.Text = "Teknik Inpormatika"

            Case "12110257"

                nama.Text = "Adi"

                jr.Text = "Akutansi"

        End Select

        Dim s As String

        s = Microsoft.VisualBasic.Right(npm.Text, 2)

        If npm.Text = "12110255" Then

            jj.Text = "SI"

        ElseIf npm.Text = "12110256" Then

            jj.Text = "DIII"

        ElseIf npm.Text = "12110257" Then

            jj.Text = "DI"

        End If

    End Sub

    Private Sub k_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles k_dosen.SelectedIndexChanged

        Select Case k_dosen.Text

            Case "MS001"

                n_dosen.Text = "Mesran M.Kom"

            Case "PL002"

                n_dosen.Text = "Pilipus M.Kom"

            Case "TN003"

                n_dosen.Text = "Toni Limbong M.Kom"

        End Select

    End Sub

    Private Sub k_mk_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles k_mk.SelectedIndexChanged

         Select k_mk.Text

            Case "PV001"

                mk.Text = "Pemograman Visual"

            Case "AO002"

                mk.Text = "Arsitektur dan Organisasi"

            Case "SBD003"

                mk.Text = "Sistem Basis Data"

        End Select

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        na.Text = 0.1 * nh.Text + 0.15 * nt.Text + 0.35 * nu.Text + 0.45 * nua.Text

        If na.Text >= 50 Then

            ket.Text = "Lulus"

        Else

            ket.Text = "gagal"

        End If

        If na.Text >= "80" Then

            n_hu.Text = "A"

        ElseIf na.Text >= "70" Then

            n_hu.Text = "B"

        ElseIf na.Text >= "60" Then

            n_hu.Text = "C"

        ElseIf na.Text >= "50" Then

            n_hu.Text = "D"

        Else

            n_hu.Text = "E"

        End If

        isitable()

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        npm.Text = ""

        nama.Text = ""

        jj.Text = ""

        jr.Text = ""

        k_dosen.Text = ""

        n_dosen.Text = ""

        k_mk.Text = ""

        mk.Text = ""

        nh.Text = ""

        nt.Text = ""

        nu.Text = ""

        nua.Text = ""

        na.Text = ""

        n_hu.Text = ""

        ket.Text = ""

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        End

    End Sub

    Private Sub nama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama.TextChanged

    End Sub

    Sub rancangtbl()

        Lv.Columns.Add("NPM", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("NAMA", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("JENJANG", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("JURUSAN", 50, HorizontalAlignment.Left)

        Lv.Columns.Add("NAMA DOSEN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("MATA KULIAH", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("NILAI HADIR", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("NILAI TUGAS", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("NILAI UTS", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("NILAI UAS", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("NILAI AKHIR", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("NILAI HURUF", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("KETERANGAN", 80, HorizontalAlignment.Left)

        Lv.GridLines = True

        Lv.FullRowSelect = False

        Lv.View = View.Details

    End Sub

    Sub isitable()

        Dim lst As New ListViewItem

        lst.Text = npm.Text

        lst.SubItems.Add(nama.Text)

        lst.SubItems.Add(jj.Text)

        lst.SubItems.Add(jr.Text)

        lst.SubItems.Add(n_dosen.Text)

        lst.SubItems.Add(mk.Text)

        lst.SubItems.Add(nh.Text)

        lst.SubItems.Add(nt.Text)

        lst.SubItems.Add(nu.Text)

        lst.SubItems.Add(nua.Text)

        lst.SubItems.Add(na.Text)

        lst.SubItems.Add(n_hu.Text)

        lst.SubItems.Add(ket.Text)

        Lv.Items.Add(lst)

    End Sub

End Class

 
Hasil Program