Tugas Pemogramman Penggajian Menggunakan Visual Studio 2008

Tugas Pemogramman

A. Tampilan Program

B. Listing Koding Program

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

        jabatan.Items.Add("Staff")

        jabatan.Items.Add("Wakil")

        Status.Items.Add("Menikah")

        Status.Items.Add("Tidak Menikah")

        Dim x As Integer

        For x = 0 To 2

            jumlah_anak.Items.Add(x)

        Next

    End Sub

    Sub Bersih(ByVal f As Form)

        nik.Text = ""

        nama.Text = ""

        bagian.Text = ""

        jabatan.Text = ""

        gaji_pokok.Text = ""

        Pajak.Text = ""

        Status.Text = ""

        jumlah_anak.Text = ""

        tunjangan_keluarga.Text = ""

        tunjangan_anak.Text = ""

        total_gaji.Text = ""

        Call Aktif()

    End Sub

    Sub Aktif()

        nama.Enabled = False

        bagian.Enabled = False

        gaji_pokok.Enabled = False

        Pajak.Enabled = False

        tunjangan_anak.Enabled = False

        tunjangan_keluarga.Enabled = False

        total_gaji.Enabled = False

        jabatan.Enabled = False

        Status.Enabled = False

        jumlah_anak.Enabled = False

    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged

        Select Case nik.Text

            Case "PM010"

                nama.Text = "harun"

            Case "PS111"

                nama.Text = "as-syifa"

            Case "KU101"

                nama.Text = "jamilah"

            Case "GD100"

                nama.Text = "hamid"

            Case "PM011"

                nama.Text = "evi"

        End Select

        Dim x As String

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

        Select Case x

            Case "PM"

                bagian.Text = "PEMASARAN"

            Case "PS"

                bagian.Text = "PERSONALIA"

            Case "GD"

                bagian.Text = "GUDANG"

            Case "KU"

                bagian.Text = "KEUANGAN"

        End Select

        jabatan.Enabled = True

        jabatan.Focus()

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

                gaji_pokok.Text = 5000000

            Case "Staff"

                gaji_pokok.Text = 2000000

            Case "wakil"

                gaji_pokok.Text = 3500000

        End Select

        Pajak.Text = 0.1 * gaji_pokok.Text

        Status.Enabled = True

        Status.Focus()

    End Sub

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

        Select Case Status.Text

            Case "Menikah"

                jumlah_anak.Enabled = True

                tunjangan_keluarga.Text = 0.15 * gaji_pokok.Text

                jumlah_anak.Text = 0

            Case "Tidak Menikah"

                jumlah_anak.Enabled = False

                tunjangan_keluarga.Text = 0

                tunjangan_anak.Text = 0

                total_gaji.Text = Val(gaji_pokok.Text) - Val(Pajak.Text)

        End Select

    End Sub

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

        If Not IsNumeric(jumlah_anak.Text) Then jumlah_anak.Items.Clear()

        Select Case jumlah_anak.Text

            Case Is = 0

                tunjangan_anak.Text = 0

            Case Is = 1

                tunjangan_anak.Text = 0.05 * gaji_pokok.Text

            Case Is = 2

                tunjangan_anak.Text = 0.1 * gaji_pokok.Text

            Case Is >= 3

                tunjangan_anak.Text = 0

        End Select

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

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

        Me.Close()

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        Call Bersih(Me)

    End Sub

End Class

C. Hasil Program Penggajian