Jawaban Hasil Ujian Program Visual

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("12110209")
        NPM.Items.Add("12110242")
        NPM.Items.Add("12110226")
        KD.Items.Add("MS001")
        KD.Items.Add("PL002")
        KD.Items.Add("TN003")
        KM.Items.Add("PV001")
        KM.Items.Add("AO002")
        KM.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)
            UAS.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 "12110209"
                Nama.Text = "Devi Andriyani"
                jrsn.Text = "Tehknik Informatika"
            Case "12110242"
                Nama.Text = "Muetia Anggreini"
                jrsn.Text = "sistem Informatika"
            Case "12110226"
                Nama.Text = "Fitri Hairani"
                jrsn.Text = "Akutansi"
        End Select
        Dim s As String
        s = Microsoft.VisualBasic.Right(NPM.Text, 2)
        If NPM.Text = "12110209" Then
            jjg.Text = "S1"
        ElseIf NPM.Text = "12110242" Then
            jjg.Text = "D3"
        ElseIf NPM.Text = "12110226" Then
            jjg.Text = "D1"
        End If


    End Sub

    Private Sub k_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KD.SelectedIndexChanged
        Select Case KD.Text
            Case "MS001"
                ND.Text = "Mesran M.Kom"

            Case "PL002"
                ND.Text = "Pilipus M.Kom"
            Case "TN003"
                ND.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 KM.SelectedIndexChanged
        Select Case KM.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 * Val(NH.Text) + 0.15 * Val(NT.Text) + 0.35 * Val(NU.Text) + 0.45 * Val(UAS.Text)
        If NA.Text >= 50 Then
            ket.Text = "Lulus"
        Else
            ket.Text = "gagal"
        End If
        If NA.Text >= "80" Then
            N_H.Text = "A"
        ElseIf NA.Text >= "70" Then
            N_H.Text = "B"
        ElseIf NA.Text >= "60" Then
            N_H.Text = "C"
        ElseIf NA.Text >= "50" Then
            N_H.Text = "D"
        Else
            N_H.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 = ""
        jjg.Text = ""
        jrsn.Text = ""
        KD.Text = ""
        ND.Text = ""
        KM.Text = ""
        MK.Text = ""
        NH.Text = ""
        NT.Text = ""
        NU.Text = ""
        UAS.Text = ""
        NA.Text = ""
        N_H.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(jjg.Text)
        lst.SubItems.Add(jrsn.Text)
        lst.SubItems.Add(ND.Text)
        lst.SubItems.Add(MK.Text)
        lst.SubItems.Add(NH.Text)
        lst.SubItems.Add(NT.Text)
        lst.SubItems.Add(NU.Text)
        lst.SubItems.Add(UAS.Text)
        lst.SubItems.Add(NA.Text)
        lst.SubItems.Add(N_H.Text)
        lst.SubItems.Add(ket.Text)
        Lv.Items.Add(lst)

    End Sub
End Class

Hasil Program