Quiz Online Pemograman Visual

Selesaikan kasus berikut:
Listview Pembayaran Gaji 

Berikut jawaban program:

Public Class Form1

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

        No.Items.Add("1")
        No.Items.Add("2")
        No.Items.Add("3")

        NIK.Items.Add("1")

        NIK.Items.Add("2")

        NIK.Items.Add("3")

        Gol.Items.Add("1")

        Gol.Items.Add("2")

        Gol.Items.Add("3")

    End Sub

Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged

        Select Case NIK.Text

            Case "1"

                NamaPegawai.Text = "Hendro"

            Case "2"

                NamaPegawai.Text = "Dian"

            Case Else

                NamaPegawai.Text = "Jhoni"

        End Select

    End Sub

Private Sub Gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gol.SelectedIndexChanged

        Select Case Gol.Text

            Case "1"

                GajiPokok.Text = "1500000"

            Case "2"

                GajiPokok.Text = "2500000"

            Case Else

                GajiPokok.Text = "3500000"

        End Select

        Pajak.Text = 0.05 * GajiPokok.Text

        GajiBersih.Text = Val(GajiPokok.Text) - Val(Pajak.Text)

    End Sub

Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

        End

    End Sub

Private Sub BtnHapusSemuaData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusSemuaData.Click

        No.Text = ""
        NIK.Text = ""

        NamaPegawai.Text = ""

        Gol.Text = ""

        GajiPokok.Text = ""

        Pajak.Text = ""

        GajiBersih.Text = ""

    End Sub

Private Sub BtnSimpanKeListview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpanKeListview.Click

        LV.Columns.Add("No", 30, HorizontalAlignment.Left)
        LV.Columns.Add("NIK", 50, HorizontalAlignment.Center)

        LV.Columns.Add("Nama Pegawai", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Gol", 50, HorizontalAlignment.Left)

        LV.Columns.Add("Gaji Pokok", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Pajak", 70, HorizontalAlignment.Left)

        LV.Columns.Add("Gaji Bersih", 80, HorizontalAlignment.Left)

        LV.GridLines = True

        LV.FullRowSelect = False

        LV.View = View.Details

        Dim lst As New ListViewItem

        lst.Text = No.Text
        lst.SubItems.Add(NIK.Text)

        lst.SubItems.Add(NamaPegawai.Text)

        lst.SubItems.Add(Gol.Text)

        lst.SubItems.Add(GajiPokok.Text)

        lst.SubItems.Add(Pajak.Text)

        lst.SubItems.Add(GajiBersih.Text)

        LV.Items.Add(lst)

    End Sub

End Class

Demikianlah postingan saya :

 Nama : Dessy Nurazizah S.

 NPM  : 14110567

Selamat belajar Pemograman VB Net