Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Judul Soal:

Program Listview Pembayaran Gaji [http://mesran.net/quiz.html]

Berikut Jawaban Program :

PublicClass Form1

PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

        LV.Columns.Add("nik", 80, HorizontalAlignment.Center)

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

        LV.Columns.Add("gol", 80, HorizontalAlignment.Center)

        LV.Columns.Add("GajiPokok", 80, HorizontalAlignment.Right)

        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Right)

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

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

        nik.Items.Add("1")

        nik.Items.Add("2")

        nik.Items.Add("3")

        gol.Items.Add("1")

        gol.Items.Add("2")

        gol.Items.Add("3")

EndSub

PrivateSub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged

SelectCase nik.Text

Case"1"

                nama.Text = "Hendro"

Case"2"

                nama.Text = "Dian"

Case"3"

                nama.Text = "Jhoni"

EndSelect

EndSub

PrivateSub gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gol.SelectedIndexChanged

SelectCase gol.Text

Case"1"

                gajiPk.Text = 1500000

Case"2"

                gajiPk.Text = 2500000

Case"3"

                gajiPk.Text = 3500000

EndSelect

EndSub

PrivateSub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click

        Pajak.Text = 0.05 * gajiPk.Text

        GajiB.Text = Val(gajiPk.Text) - Val(Pajak.Text)

Dim lsv AsNew ListViewItem

        lsv.Text = nik.Text

        lsv.SubItems.Add(nama.Text)

        lsv.SubItems.Add(gol.Text)

        lsv.SubItems.Add(gajiPk.Text)

        lsv.SubItems.Add(Pajak.Text)

        lsv.SubItems.Add(GajiB.Text)

        LV.Items.Add(lsv)

EndSub

PrivateSub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click

        nik.Text = ""

        nama.Text = ""

        gol.Text = ""

        gajiPk.Text = ""

        GajiB.Text = ""

        Pajak.Text = ""

EndSub

PrivateSub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        LV.Items.Clear()

EndSub

PrivateSub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

End

EndSub

EndClass


berikut tampilan hasil /screen shootnya:

Demikian Postingan saya ,nama : Zulhan Sentoso Sinambela

                                                Npm : 14 11 01 44

Selamat Belajar Pemrograman VB NET (http://mesran.net/)