Gaji Pegawai

Berikut ini  PerintahNYA

Public Class Form1

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

        Nik.Items.Add("PM010")

        Nik.Items.Add("PS111")

        Nik.Items.Add("KU101")

        Nik.Items.Add("GD100")

        Nik.Items.Add("PM011")

        Jabatan.Items.Add("Kepala Devisi")

        Jabatan.Items.Add("Staff")

        Jabatan.Items.Add("Wakil Kepala")

        Status.Items.Add("Menikah")

        Status.Items.Add("Tidak Menikah")

        jumlah_anak.Items.Add("0")

        jumlah_anak.Items.Add("1")

        jumlah_anak.Items.Add("2")

    End Sub

    Private Sub Nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nik.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Left(Nik.Text, 2)

        If x = "PM" Then

            bg.Text = "Pemasaran"

        ElseIf x = "PS" Then

            bg.Text = "Personalia"

        ElseIf x = "KU" Then

            bg.Text = "Keuangan"

        ElseIf x = "GD" Then

            bg.Text = "Gudang"

        End If

        If Nik.Text = "PM010" Then

            Nama.Text = "Luis"

        ElseIf Nik.Text = "PS111" Then

            Nama.Text = "Steven"

        ElseIf Nik.Text = "KU101" Then

            Nama.Text = "lioni"

        ElseIf Nik.Text = "GD100" Then

            Nama.Text = "Diamon"

        ElseIf Nik.Text = "PM011" Then

            Nama.Text = "Joe"

        End If

    End Sub

    Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged

                Select Jabatan.Text

            Case "Kepala Devisi"

                gp.Text = "5000000"

            Case "Staff"

                gp.Text = "2000000"

            Case "Wakil Kepala"

                gp.Text = "3500000"

        End Select

        Pajak.Text = gp.Text * 0.1

    End Sub

    Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged

        tk.Text = gp.Text * 0.15

        If Status.Text = "Menikah" Then

            tk.Text = 0.15 * gp.Text

        ElseIf Status.Text = "Tidak Menikah" Then

            tk.Text = 0

        End If

    End Sub

    Private Sub jumlah_anak_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah_anak.KeyPress

        If e.KeyChar = Chr(13) Then

            Select Case jumlah_anak.Text

                Case "0"

                    ta.Text = 0

                Case "1"

                    ta.Text = gp.Text * 0.05

                Case "2"

                    ta.Text = gp.Text * 0.1

                Case Else

                    ta.Text = gp.Text * 0.5

            End Select

        End If

        tg.Text = (gp.Text) + Val(ta.Text) + Val(tk.Text) - Pajak.Text

        tg.Enabled = False

    End Sub

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

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        Nik.Text = ""

        Nama.Text = ""

        bg.Text = ""

        Jabatan.Text = ""

        gp.Text = ""

        Pajak.Text = ""

        Status.Text = ""

        jumlah_anak.Text = ""

        tk.Text = ""

        ta.Text = ""

        tg.Text = ""

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        End

    End Sub

End Class

SEMOGA Bermanfaat 

Kunjungi Belajar Bahasa Pemograman