Jawaban Soal No.3

Listing Programnya

Public Class Form1

    Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click

        If password.Text = "1002269" Then

            menu_utama.show()

            Me.Hide()

        Else

            MsgBox("Maaf Password anda masih salah !!!")

        End If

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        MsgBox("Anda yakin ingin keluar")

        End

    End Sub

End Class

Hasil Programnya

Listing Program Menu

Public Class Menu_utama

    Private Sub KeluarProgramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarProgramToolStripMenuItem.Click

        MsgBox("Anda yakin ingin keluar dari program ini!")

        End

    End Sub

    Private Sub DataGajiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGajiToolStripMenuItem.Click

        data.Show()

        Me.Hide()

    End Sub

    Private Sub jam_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jam.Tick

        Dim x As DateTime = Now

        waktu.Text = x.ToString("F")

    End Sub

End Class

Hasil Programnya

 Listing Program Data Gaji Karyawan

Public Class data

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

        jabatan.Items.Add("Mandor")

        jabatan.Items.Add("Kepala Bagian")

        jabatan.Items.Add("Staff")

        status.Items.Add("Menikah")

        status.Items.Add("Belum Menikah")

        buat_tabel()

    End Sub

    Sub proses()

        If jabatan.Text = "Mandor" Then

            gapok.Text = "1750000"

            pajak.Text = 0.015 * Val(gapok.Text)

        ElseIf jabatan.Text = "Kepala Bagian" Then

            gapok.Text = "2500000"

            pajak.Text = 0.015 * Val(gapok.Text)

        ElseIf jabatan.Text = "Staff" Then

            gapok.Text = "1250000"

            pajak.Text = 0.015 * Val(gapok.Text)

        End If

        Select Case status.Text

            Case "Menikah" : tuis.Text = 0.09 * Val(gapok.Text)

            Case "Belum Menikah" : tuis.Text = 0

        End Select

        If anak.Text = "1" Then

            tunak.Text = 0.03 * Val(gapok.Text)

        ElseIf anak.Text = "2" Then

            tunak.Text = 0.07 * Val(gapok.Text)

        ElseIf anak.Text >= "2" Then

            tunak.Text = 0.07 * Val(gapok.Text)

        ElseIf anak.Text <= "1" Then

            tunak.Text = 0

        End If

        If jabatan.Text = "Mandor" Then

            If lembur.Text = "0" Then

                galem.Text = 0

            ElseIf lembur.Text = "1" Then

                galem.Text = 7500

            ElseIf lembur.Text >= "1" Then

                galem.Text = 7500 * Val(lembur.Text)

            End If

        ElseIf jabatan.Text = "Kepala Bagian" Then

            If lembur.Text = "0" Then

                galem.Text = 0

            ElseIf lembur.Text = "1" Then

                galem.Text = 10000

            ElseIf lembur.Text >= "1" Then

                galem.Text = 10000 * Val(lembur.Text)

            End If

        ElseIf jabatan.Text = "Staff" Then

            If lembur.Text = "0" Then

                galem.Text = 0

            ElseIf lembur.Text = "1" Then

                galem.Text = 5000

            ElseIf lembur.Text >= "1" Then

                galem.Text = 5000 * Val(lembur.Text)

            End If

        End If

        total.Text = Val(gapok.Text) + Val(tuis.Text) + Val(tunak.Text) + Val(galem.Text) - Val(pajak.Text)

    End Sub

    Sub buat_tabel()

        With LV

            .Columns.Add("Nama karyawan", 110, HorizontalAlignment.Left)

            .Columns.Add("Jabatan", 90, HorizontalAlignment.Left)

            .Columns.Add("Gaji Pokok", 80, HorizontalAlignment.Center)

            .Columns.Add("Status", 100, HorizontalAlignment.Left)

            .Columns.Add("Tunjangan Istri", 98, HorizontalAlignment.Center)

            .Columns.Add("Anak", 40, HorizontalAlignment.Center)

            .Columns.Add("Tunjangan Anak", 98, HorizontalAlignment.Center)

            .Columns.Add("Pajak", 55, HorizontalAlignment.Center)

            .Columns.Add("Lembur", 50, HorizontalAlignment.Center)

            .Columns.Add("Gaji Lembur/jam", 100, HorizontalAlignment.Center)

            .Columns.Add("Total Gaji", 90, HorizontalAlignment.Center)

            .View = View.Details

            .GridLines = True

            .FullRowSelect = True

        End With

    End Sub

    Sub isi_tabel()

        Dim lst As New ListViewItem

        lst.Text = nama.Text

        lst.SubItems.Add(jabatan.Text)

        lst.SubItems.Add(gapok.Text)

        lst.SubItems.Add(status.Text)

        lst.SubItems.Add(tuis.Text)

        lst.SubItems.Add(anak.Text)

        lst.SubItems.Add(tunak.Text)

        lst.SubItems.Add(pajak.Text)

        lst.SubItems.Add(lembur.Text)

        lst.SubItems.Add(galem.Text)

        lst.SubItems.Add(total.Text)

        LV.Items.Add(lst)

    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged

        Call proses()

    End Sub

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

        Call proses()

    End Sub

    Private Sub lembur_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lembur.TextChanged

        Call proses()

    End Sub

    Private Sub anak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles anak.TextChanged

        Call proses()

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        isi_tabel()

    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click

        nama.Text = ""