Penghitungan Gaji Pegawai

Di bawah ini adalah form yang akan kita kerjakan

Di bawah ini adalah Listing program form di atas

Public Class Form1

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

        If status.Text = "MENIKAH" Then tunjangan_keluarga.Text = "0.2" * Val(gaji_pokok.Text)

        If status.Text = "TIDAK MENIKAH" Then tunjangan_keluarga.Text = "0"

    End Sub

    Private Sub NIP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIP.SelectedIndexChanged

        If NIP.Text = "0123" Then nama.Text = "mutia"

        If NIP.Text = "0124" Then nama.Text = "karolina"

        If NIP.Text = "0125" Then nama.Text = "tiara"

        If NIP.Text = "0126" Then nama.Text = "dori"

    End Sub

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

        NIP.Items.Add("0123")

        NIP.Items.Add("0124")

        NIP.Items.Add("0125")

        NIP.Items.Add("0126")

        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")

        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")

    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 = 2000000

        If golongan.Text = "IIIB" Then gaji_pokok.Text = 2500000

        If golongan.Text = "IVA" Then gaji_pokok.Text = 3000000

        If golongan.Text = "IVB" Then gaji_pokok.Text = 3500000

    End Sub

    Private Sub tunjangan_anak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tunjangan_anak.TextChanged

     

    End Sub

    Private Sub tunjangan_keluarga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tunjangan_keluarga.TextChanged

    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 = "0" Then tunjangan_anak.Text = "0"

        If jumlah_anak.Text = "1" Then tunjangan_anak.Text = "0.1" * Val(tunjangan_keluarga.Text)

        If jumlah_anak.Text = "2" Then tunjangan_anak.Text = "0.1" * Val(tunjangan_keluarga.Text)

        If jumlah_anak.Text = "3" Then tunjangan_anak.Text = "0.5" * Val(tunjangan_keluarga.Text)

        If jumlah_anak.Text = "4" Then tunjangan_anak.Text = "0.5" * Val(tunjangan_keluarga.Text)

    End Sub

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

        total_gaji.Text = Val(gaji_pokok.Text) + Val(tunjangan_keluarga.Text) + Val(tunjangan_anak.Text)

    End Sub

    Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click

        NIP.Text = ""

        nama.Text = ""

        golongan.Text = ""

        gaji_pokok.Text = ""

        tunjangan_keluarga.Text = ""

        tunjangan_anak.Text = ""

        total_gaji.Text = ""

        status.Text = ""

        jumlah_anak.Text = ""

    End Sub

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

        End

    End Sub

End Class

MARI KITA LIHAT PROSESNYA

*Jika di klik salah satu NIPnya

 *Maka nama akan terisi sesuai dengan NIP tersebut

 *Jika di pilih Golongan nya salah satu maka Gaji pokok akan terisi

 *Jika di pilih salah satu Status maka yang terisi adalah Tunjangan Keluarga

 *Jika di pilih salah satu jumlah anak, Maka yang akan terisi adalah Tunjangan Anak

 JIKA DI KLIK TOMBOL PROSES, MAKA TOTAL GAJI AKAN TERISI

JIKA DI KLIK TOMBOL BERSIH, MAKA DATA SEMUA AKAN TERHAPUS

 JIKA DI KLIK TOMBOL KELUAR,maka akan keluar dan kembali ke FORM

 Sekian dulu ya latihan singkat dari saya

jika ada yang kurang mohon maaf. SELAMAT MENCOBAA....