Penggajian Pegawai

Berikut Adalah Listing Program nya :

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

        JA.Items.Add("0")

        JA.Items.Add("1")

        JA.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

            Bagian.Text = "Pemasaran"

        ElseIf x = "PS" Then

            Bagian.Text = "Personalia"

        ElseIf x = "KU" Then

            Bagian.Text = "Keuangan"

        ElseIf x = "GD" Then

            Bagian.Text = "Gudang"

        End If

        If NIK.Text = "PM010" Then

            Nama.Text = "Dasner"

        ElseIf NIK.Text = "PS111" Then

            Nama.Text = "Ridho"

        ElseIf NIK.Text = "KU101" Then

            Nama.Text = "Greg"

        ElseIf NIK.Text = "GD100" Then

            Nama.Text = "Reynaldi"

        ElseIf NIK.Text = "PM011" Then

            Nama.Text = "Arman"

        End If

    End Sub

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

        Select Case 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 JA_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JA.KeyPress

        If e.KeyChar = Chr(13) Then

            Select Case JA.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 Btn_Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hapus.Click

        NIK.Text = ""

        Nama.Text = ""

        Bagian.Text = ""

        Jabatan.Text = ""

        GP.Text = ""

        Pajak.Text = ""

        Status.Text = ""

        JA.Text = ""

        TK.Text = ""

        TA.Text = ""

        TG.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

End Class

 Belajar Bahasa Pemograman