tugas quis

program visual basic penggajian karyawan

pertama-tama desain form seperti gambar di bawah ini,,:


















lalu ketikkan program di bawah ini,,

Public Class Form1

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

        np.Items.Add("Rikyy")

        np.Items.Add("Riko")

        np.Items.Add("Bobi")

        gol.Items.Add("a")

        gol.Items.Add("b")

        gol.Items.Add("c")

        st.Items.Add("menikah")

        st.Items.Add("lajang")

        Call BuatTable()

    End Sub

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

        Select Case gol.Text

            Case "a"

                gp.Text = 2500000

                pj.Text = 0.01 * gp.Text

            Case "b"

                gp.Text = 3500000

                pj.Text = 0.01 * gp.Text

            Case "c"

                gp.Text = 4500000

                pj.Text = 0.01 * gp.Text

        End Select

    End Sub

    Private Sub st_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles st.SelectedIndexChanged

        Select Case st.Text

            Case "menikah"

                tk.Text = 0.05 * gp.Text

            Case "lajang"

                tk.Text = 0

        End Select

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        ttl.Text = gp.Text - pj.Text + tk.Text

    End Sub

    Sub BuatTable()

        lV.View = View.Details

        lV.GridLines = True

        lV.FullRowSelect = True

        lV.Columns.Add("Nama Pegawai", 80, HorizontalAlignment.Center)

        lV.Columns.Add("Golongan", 80, HorizontalAlignment.Center)

        lV.Columns.Add("Gaji Pokok", 80, HorizontalAlignment.Center)

        lV.Columns.Add("Pajak", 80, HorizontalAlignment.Center)

        lV.Columns.Add("Status", 80, HorizontalAlignment.Center)

        lV.Columns.Add("Tunjangan", 80, HorizontalAlignment.Center)

        lV.Columns.Add("Total", 80, HorizontalAlignment.Center)

    End Sub

    Sub isitable()

        Dim Lst As New ListViewItem

        Lst.Text = np.Text

        Lst.SubItems.Add(gol.Text)

        Lst.SubItems.Add(gp.Text)

        Lst.SubItems.Add(pj.Text)

        Lst.SubItems.Add(st.Text)

        Lst.SubItems.Add(tk.Text)

        Lst.SubItems.Add(ttl.Text)

        lV.Items.Add(Lst)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        isitable()

    End Sub

End Class

 setslah itu jalankan progam dan akan muncul gambar deperti dibawah ini,,