study kasus

Public Class Form1

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

        nama.Focus()

        jabat.Items.Add("Mandor")

        jabat.Items.Add("Kepala Bagian")

        jabat.Items.Add("Staf")

        stts.Items.Add("Menikah")

        stts.Items.Add("Belum Menikah")

        Call buattabel()

    End Sub

   

    Private Sub jabat_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabat.SelectedIndexChanged

        Select Case jabat.Text

            Case "Mandor"

                gj_pkok.Text = 1750000

                pajak.Text = 0.015 * Val(gj_pkok.Text)

            Case "Staf"

                gj_pkok.Text = 1250000

                pajak.Text = 0.015 * Val(gj_pkok.Text)

            Case "Kepala Bagian"

                gj_pkok.Text = 2500000

                pajak.Text = 0.015 * Val(gj_pkok.Text)

        End Select

        stts.Focus()

    End Sub

    Private Sub stts_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stts.SelectedIndexChanged

        Dim ket As String

        ket = stts.Text = "Menikah"

        If jabat.Text = "Mandor" Then

            t_istri.Text = 0.09 * 1750000

        ElseIf jabat.Text = "Staf" Then

            t_istri.Text = 0.09 * 1250000

        ElseIf jabat.Text = "Kepala Bagian" Then

            t_istri.Text = 0.09 * 2500000

        End If

        If stts.Text = "Belum Menikah" Then

            t_istri.Text = 0

        End If

        jlh_anak.Focus()

    End Sub

  

 Private Sub jlh_anak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jlh_anak.TextChanged

        If jlh_anak.Text = "1" Then

            t_anak.Text = 0.03 * Val(gj_pkok.Text)

        ElseIf jlh_anak.Text >= "2" Then

            t_anak.Text = 0.07 * Val(gj_pkok.Text)

        End If

        jam.Focus()

    End Sub

    Private Sub jam_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jam.TextChanged

        If jabat.Text = "Mandor" Then

            upah_lbr.Text = 7500 * Val(jam.Text)

        ElseIf jabat.Text = "Staf" Then

            upah_lbr.Text = 5000 * Val(jam.Text)

        ElseIf jabat.Text = "Kepala Bagian" Then

            upah_lbr.Text = 10000 * Val(jam.Text)

        End If

    End Sub

    Private Sub btn_hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hitung.Click

        total_gj.Text = Val(gj_pkok.Text) + Val(t_istri.Text) + Val(t_anak.Text) + Val(upah_lbr.Text) - Val(pajak.Text)

    End Sub

    Sub buattabel()

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

        LV.Columns.Add("Jabatan", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Status", 60, HorizontalAlignment.Center)

        LV.Columns.Add("Gaji Pokok", 100, HorizontalAlignment.Right)

        LV.Columns.Add("Tunjangan Istri", 120, HorizontalAlignment.Right)

        LV.Columns.Add("Jumlah Anak", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Tunjangan anak", 120, HorizontalAlignment.Right)

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

        LV.Columns.Add("Jam Lembur", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Upah Lembur", 100, HorizontalAlignment.Right)

        LV.Columns.Add("Total Gaji", 100, HorizontalAlignment.Center)

        LV.View = View.Details

        LV.FullRowSelect = True

        LV.GridLines = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = nama.Text

        lst.SubItems.Add(jabat.Text)

        lst.SubItems.Add(stts.Text)

        lst.SubItems.Add(gj_pkok.Text)

        lst.SubItems.Add(t_istri.Text)

        lst.SubItems.Add(jlh_anak.Text)

        lst.SubItems.Add(t_anak.Text)

        lst.SubItems.Add(pajak.Text)

        lst.SubItems.Add(jam.Text)

        lst.SubItems.Add(upah_lbr.Text)

        lst.SubItems.Add(total_gj.Text)

        LV.Items.Add(lst)

    End Sub

    Private Sub btn_bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_bersih.Click

       nama.Text = ""

        jabat.Text = ""

        stts.Text = ""

        gj_pkok.Text = ""

        t_istri.Text = ""

        jlh_anak.Text = ""

        t_anak.Text = ""

        pajak.Text = ""

        jam.Text = ""

        upah_lbr.Text = ""

        total_gj.Text = ""

        nama.Focus()

    End Sub

    Private Sub btn_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_simpan.Click

        Call isitabel()

        nama.Text = ""

        jabat.Text = ""

        stts.Text = ""

        gj_pkok.Text = ""

        t_istri.Text = ""

        jlh_anak.Text = ""

        t_anak.Text = ""

        pajak.Text = ""

        jam.Text = ""

        upah_lbr.Text = ""

        total_gj.Text = ""

        nama.Focus()

    End Sub

    Private Sub btn_hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapussemua.Click

        LV.Items.Clear()

    End Sub

    Private Sub btn_hpspilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hpspilih.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click

        Dim q As String

        q = MsgBox("Anda Yakin Ingin Keluar", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Keluar")

        If q = vbYes Then

            Close()

        End If

    End Sub

End class

Bentuk form :