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: 

 

Serunya Belajar Bahasa Pemograman di Mesan[dot]net

Mau belajar bahasa pemograman????

Silahkan gabung ke Mesran[dot]net
Di Mesran[dot]net kita dapat belajar bahasa pemograman, seperti  VB,VB.Net, Delphi,  Pascal, C++/C, Java, PHP serta program yang berorientasi Database.
Selain itu kita dapat Mendownload Ebook, Program, dan Software.

Tidak hanya itu Mesran[dot]net juaga banyak menginformasikan tentang workshop-workshop jadi buat teman-teman yang lagi bingung atau bosan buka situs yang itu-itu aja mendingan langsung aja kunjungi website Mesran.net

Saya yakin selain menambah ilmu, disana juga anda akan menemukan wawasan yang lebih luas lagi tentang ilmu-ilmu pemrograman khususnya....
Sekian dulu ya ulasan saya tentang Mesran[dot]net semoga bermanfaat bagi kalian semua yang ingin menambah ilmu pemrogramannya.