MEMBUAT FORM PENGGAJIAN PEGAWAI

Public Class Form1

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

        nip.Items.Add("100200100")

        nip.Items.Add("100200200")

        nip.Items.Add("100200300")

        nip.Items.Add("100200400")

        nip.Items.Add("100200500")

        golongan.Items.Add("IIIA")

        golongan.Items.Add("IIIB")

        golongan.Items.Add("IVA")

        golongan.Items.Add("IVB")

        status.Items.Add("MENIKAH")

        status.Items.Add("TIDAK MENIKAH")

       

    End Sub

    Private Sub nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nip.SelectedIndexChanged

        If nip.Text = "100200100" Then

            nama.Text = "Ali"

        ElseIf nip.Text = "100200200" Then

            nama.Text = "andi"

        ElseIf nip.Text = "100200300" Then

            nama.Text = "rojak"

        ElseIf nip.Text = "100200400" Then

            nama.Text = "ikhwan"

        ElseIf nip.Text = "100200500" Then

            nama.Text = "rahmat"

        End If

    End Sub

    Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click

        nip.Text = ""

        nama.Text = ""

        golongan.Text = ""

        status.Text = ""

        jumlah_anak.Text = ""

        gaji_pokok.Text = ""

        tnjgn_keluarga.Text = ""

        tnjgn_anak.Text = ""

        total_gaji.Text = ""

    End Sub

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

        End

    End Sub

 

    Private Sub golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles golongan.SelectedIndexChanged

        If golongan.Text = "IIIA" Then

            gaji_pokok.Text = "1500000"

        ElseIf golongan.Text = "IIIB" Then

            gaji_pokok.Text = "1750000"

        ElseIf golongan.Text = "IVA" Then

            gaji_pokok.Text = "2500000"

        ElseIf golongan.Text = "IVB" Then

            gaji_pokok.Text = "3000000"

        End If

    End Sub

    Private Sub jumlah_anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah_anak.SelectedIndexChanged

        If jumlah_anak.Text <= 2 Then

            tnjgn_anak.Text = 150000 * jumlah_anak.Text

        ElseIf jumlah_anak.Text > 2 Then

            tnjgn_anak.Text = 150000 * 2

        End If

        total_gaji.Text = gaji_pokok.Text + tnjgn_keluarga.Text + tnjgn_anak.Text

    End Sub

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

        jumlah_anak.Items.Clear()

        If status.Text = "MENIKAH" Then

            jumlah_anak.Text = ""

            total_gaji.Text = ""

            tnjgn_keluarga.Text = gaji_pokok.Text * 0.2

            jumlah_anak.Items.Add("0")

            jumlah_anak.Items.Add("1")

            jumlah_anak.Items.Add("2")

            jumlah_anak.Items.Add("3")

            jumlah_anak.Items.Add("4")

            jumlah_anak.Items.Add("5")

            jumlah_anak.Items.Add("6")

            jumlah_anak.Items.Add("7")

            jumlah_anak.Items.Add("8")

            jumlah_anak.Items.Add("9")

        ElseIf status.Text = "TIDAK MENIKAH" Then

            jumlah_anak.Text = "-"

            total_gaji.Text = gaji_pokok.Text

            tnjgn_keluarga.Text = 0

            tnjgn_anak.Text = 0

        End If

    End Sub

End Class