jawaban no 3

Public Class Form1

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

        If password.Text = "12345" Then

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

   

        End

    End Sub

End Class

hasil program

listin program menu utama

Public Class mnutama

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

        End

    End Sub

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

        dtgji.Show()

        Me.Hide()

    End Sub

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

    End Sub

End Class

hasil program

listing program data gaji karyawan

Public Class dtgji

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

        jabatan.Text = ""

        gapok.Text = ""

        status.Text = ""

        tuis.Text = ""

        anak.Text = ""

        tunak.Text = ""

        pajak.Text = ""

        lembur.Text = ""

        galem.Text = ""

        total.Text = ""

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        LV.Items.Clear()

    End Sub

    Private Sub btnpilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpilih.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

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

        End

    End Sub

End Class

hasil program