QUIZ ONLINE

Pada tutorial kali ini, kita bahas bersama contoh program visual basic. Langkah-langkah nya sbb:

1. Buka Microsoft Visual Studio

2. Buka New>>Project

3. Beri nama project anda pada name, kemudian klik ok

4. Setelah itu maka akan keluar From1 di project kita, kemudian desain From tersebut dengan menggunakan Label, Textbox, Combobox, Listview dan Botton yang dapat kata pilih pada proporties.

5. Listing Program

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()
        NPM.Items.Add("12110647")
        NPM.Items.Add("12110878")
        NPM.Items.Add("12110333")

        KDOSEN.Items.Add("01")
        KDOSEN.Items.Add("02")

        KMATAKUL.Items.Add("555")
        KMATAKUL.Items.Add("666")

        Dim f As Integer
        For f = 100 To 1 Step -1
            NUTS.Items.Add(f)
            NKEHADIRAN.Items.Add(f)
            NTUGAS.Items.Add(f)
            NUAS.Items.Add(f)
        Next

    End Sub

    Sub buattabel()
        With ListView1
            .Columns.Add("NPM", 75, HorizontalAlignment.Center)
            .Columns.Add("NAMA", 120, HorizontalAlignment.Center)
            .Columns.Add("JENJANG", 60, HorizontalAlignment.Center)
            .Columns.Add("JURUSAN", 100, HorizontalAlignment.Center)
            .Columns.Add("KDOSEN", 75, HorizontalAlignment.Center)
            .Columns.Add("NDOSEN", 80, HorizontalAlignment.Center)
            .Columns.Add("KMATAKUL", 75, HorizontalAlignment.Center)
            .Columns.Add("NKEHADIRAN", 60, HorizontalAlignment.Center)
            .Columns.Add("NTUGAS", 60, HorizontalAlignment.Center)
            .Columns.Add("NUTS", 60, HorizontalAlignment.Center)
            .Columns.Add("NUAS", 60, HorizontalAlignment.Center)
            .Columns.Add("NAKHIR", 70, HorizontalAlignment.Center)
            .Columns.Add("NHURUF", 60, HorizontalAlignment.Left)
            .Columns.Add("KET", 60, HorizontalAlignment.Left)
            .GridLines = True
            .FullRowSelect = True
        End With
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = NPM.Text
        lst.SubItems.Add(NAMA.Text)
        lst.SubItems.Add(JENJANG.Text)
        lst.SubItems.Add(JURUSAN.Text)
        lst.SubItems.Add(KDOSEN.Text)
        lst.SubItems.Add(NDOSEN.Text)
        lst.SubItems.Add(KMATAKUL.Text)
        lst.SubItems.Add(NKEHADIRAN.Text)
        lst.SubItems.Add(NTUGAS.Text)
        lst.SubItems.Add(NUTS.Text)
        lst.SubItems.Add(NUAS.Text)
        lst.SubItems.Add(NAKHIR.Text)
        lst.SubItems.Add(NHURUF.Text)
        lst.SubItems.Add(KET.Text)
        ListView1.View = View.Details
        ListView1.Items.Add(lst)
    End Sub


    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case Is = "12110647"
                NAMA.Text = "Florida Situmorang"
                JENJANG.Text = "S1"
                JURUSAN.Text = "Tehnik Informatika"
            Case Is = "12110878"
                NAMA.Text = "Herlina Situmorang"
                JENJANG.Text = "S1"
                JURUSAN.Text = "Tehnik Informatika"
            Case Is = "12110333"
                NAMA.Text = "Putri ani situmorang"
                JENJANG.Text = "S1"
                JURUSAN.Text = "Tehnik Informatika"
        End Select
    End Sub

    Private Sub KDOSEN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KDOSEN.SelectedIndexChanged
        Select Case KDOSEN.Text
            Case Is = "01"
                NDOSEN.Text = "M.Syahrizal, S.kom, M.kom"

            Case Is = "02"
                NDOSEN.Text = "Indra M. Sarkis, ST, M.kom"
        End Select
    End Sub

    Private Sub BTNPROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPROSES.Click
        NAKHIR.Text = Val(0.1 * NKEHADIRAN.Text) + Val(0.15 * NTUGAS.Text) + Val(0.3 * NUTS.Text) + Val(0.45 * NUAS.Text)

        If NAKHIR.Text >= 80 Then
            NHURUF.Text = "A"
            KET.Text = "Lulus"
        ElseIf NAKHIR.Text >= 70 Then
            NHURUF.Text = "B"
            KET.Text = " Lulus"
        ElseIf NAKHIR.Text >= 60 Then
            NHURUF.Text = "C"
            KET.Text = "Lulus"
        ElseIf NAKHIR.Text >= 50 Then
            NHURUF.Text = "D"
            KET.Text = "Tidak Lulus"
        Else
            NHURUF.Text = "E"
            KET.Text = "Tidak Lulus"
        End If

        isitabel()
        NPM.Text = ""
        NAMA.Text = ""
        JENJANG.Text = ""
        JURUSAN.Text = ""
        KDOSEN.Text = ""
        NDOSEN.Text = ""
        KMATAKUL.Text = ""
        NKEHADIRAN.Text = ""
        NTUGAS.Text = ""
        NUTS.Text = ""
        NUAS.Text = ""
        NAKHIR.Text = ""
        NHURUF.Text = ""
        KET.Text = ""
    End Sub

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click
        ListView1.Items.Remove(ListView1.SelectedItems(0))
    End Sub

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

Tampilan Hasilnya: