HITUNG GAJI

Nama : SRIWAHYUNI
NIM : 19010020

\Public Class frmpenggajian

    Sub awal()

        'isi data pilihan dalam combo box

        cbjabatan.Items.Clear()

        cbjabatan.Items.Add("Direktur")

        cbjabatan.Items.Add("Manajer")

        cbjabatan.Items.Add("Karyawan")

        cbjabatan.Items.Add("OB")

        'Mengosongkan isian

        txtnama.Text = ""

        txtgapok.Text = ""

        txttjjabatan.Text = ""

        txttjnikah.Text = ""

        txttjjabatan.Text = ""

        txttjgakot.Text = ""

        txtppn.Text = ""

        txtgaber.Text = ""

        txtnama.Focus()

        'Mengosongkan pilihan radio button

        rbblmmenikah.Checked = False

        rbmenikah.Checked = False

    End Sub

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

        awal()

    End Sub

    Private Sub cbjabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbjabatan.SelectedIndexChanged

        If cbjabatan.SelectedItem = "Direktur" Then

            txtgapok.Text = 5500000

            txttjjabatan.Text = (10 / 100) * 5500000 'Tunjangan Jabatan 10% dari gaji Pokok

        ElseIf cbjabatan.SelectedItem = "Manajer" Then

            txtgapok.Text = 4000000

            txttjjabatan.Text = (5 / 100) * 4000000 'Tunjangan Jabatan 5% dari gaji Pokok

        ElseIf cbjabatan.SelectedItem = "Karyawan" Then

            txtgapok.Text = 9000000

            txttjjabatan.Text = (50 / 100) * 2000000 'Tunjangan Jabatan 2% dari gaji Pokok

        ElseIf cbjabatan.SelectedItem = "OB" Then

            txtgapok.Text = 1500000

            txttjjabatan.Text = (1 / 100) * 1500000 'Tunjangan Jabatan 1% dari gaji Pokok

        End If

    End Sub

    Private Sub rbmenikah_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbmenikah.CheckedChanged

        If rbmenikah.Checked = True Then

            txttjnikah.Text = (5 / 100) * Val(txtgapok.Text)

        End If

    End Sub

    Private Sub rbblmmenikah_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbblmmenikah.CheckedChanged

        If rbblmmenikah.Checked = True Then

            txttjnikah.Text = 0

        End If

    End Sub

    Private Sub bthitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthitung.Click

        'Menghitung Gaji Kotor

        txttjgakot.Text = Val(txtgapok.Text) + Val(txttjjabatan.Text) + Val(txttjnikah.Text)

        'Hitung PPN 10 dari Gaji Kotor

        txtppn.Text = (50 / 100) * Val(txttjgakot.Text)

        'Hitung Gaji Bersih

        txtgaber.Text = Val(txttjgakot.Text) - Val(txtppn.Text)

    End Sub

    Private Sub btinput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btinput.Click

        awal() 'memanggil sub awal

    End Sub

    Private Sub btkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkeluar.Click

        Close()

    End Sub

End Class