penggajian

Kata orang sore2 gini enaknya minum kopi ditemani pisang goreng, aduh… tapi sayang… saya lagi bokek, maklum ajalah, sayakan blum jadi orang kaya. Daripada bengong dan suntuk tidak karuan mendingan saya membuat program penggajian,,, ya hitung2 untuk latihan dan sekaligus menambah pemahaman.. he..he…

Ohya.. saya ingin mendesain fromnya terlebih dahulu agar kita mudah dalam pengkodingan… bentuk desain from saya sperti ini

 

Public Class Form1

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

        nik.Items.Add("K010f")

        nik.Items.Add("N010g")

        jabatan.Items.Add("mandor")

        jabatan.Items.Add("staf")

        status.Items.Add("menikah")

        status.Items.Add("jomlo")

        buat_table()

    End Sub

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

        If nik.Text = "K010f" Then

            nama.Text = "Adistya silvy"

        ElseIf nik.Text = "N010g" Then

            nama.Text = "indra"

        End If

    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged

        If jabatan.Text = "mandor" Then

            gaji.Text = 17000

        ElseIf jabatan.Text = "staf" Then

            gaji.Text = 89000

        End If

        pajak.Text = 0.15 * gaji.Text

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        If status.Text = "menikah" Then

            tunjangna_kel.Text = gaji.Text * 0.1

        ElseIf status.Text = "jomlo" Then

            tunjangna_kel.Text = 0

        End If

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        total_gaji.Text = Val(gaji.Text) + Val(tunjangna_kel.Text) - pajak.Text

    End Sub

    Sub buat_table()

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

        lv.Columns.Add("Nik")

        lv.Columns.Add("Nama")

        lv.Columns.Add("jabatan")

        lv.Columns.Add("gaji")

        lv.Columns.Add("status")

        lv.Columns.Add("tunjangan kel")

        lv.Columns.Add("pajak")

        lv.Columns.Add("total gaji")

    End Sub

    Sub isi_table()

        Dim fahmi As New ListViewItem

        fahmi.Text = nik.Text

        lv.Items.Add(fahmi)

        fahmi.SubItems.Add(nama.Text)

        fahmi.SubItems.Add(jabatan.Text)

        fahmi.SubItems.Add(gaji.Text)

        fahmi.SubItems.Add(status.Text)

        fahmi.SubItems.Add(tunjangna_kel.Text)

        fahmi.SubItems.Add(pajak.Text)

        fahmi.SubItems.Add(total_gaji.Text)

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        isi_table()

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        End

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

    Private Sub hapus_s_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_s.Click

        lv.Items.Clear()

    End Sub

End Class