Jawaban Kuis hari kamis soal no 3

untuk melihat  KASUS klik disini....

Form Login

Listing program

Public Class Form1

    Private Sub BtnLoginn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLoginn.Click

        If nama.Text = "ImamP" And Pass.Text = "12345" Then

            menuutama.Show()

            Me.Hide()

        Else

            MsgBox("Username/password salah....")

            nama.Text = ""

            Pass.Text = ""

        End If

    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

        Dim tanya As String

        tanya = MsgBox("Anda Yakin Ingin Keluar ????", MsgBoxStyle.Question + MsgBoxStyle.YesNo)

        If tanya = vbYes Then

            Close()

        Else

        End If

    End Sub

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

    End Sub

End Class 

Hasil Program

 

Menu Utama

Listing Program

Public Class menuutama

    Private Sub ExitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem1.Click

        Gajikaryawan.show()

    End Sub

    Private Sub ExitToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem2.Click

        Dim tanya As String

        tanya = MsgBox("Anda Yakin Ingin Keluar ????", MsgBoxStyle.Question + MsgBoxStyle.YesNo)

        If tanya = vbYes Then

            Close()

        Else

        End If

    End Sub

End Class

Hasil Program

 

Form Gaji karyawan

Listing Program

Public Class gajikaryawan

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapussemua.Click

        Lv.Items.Clear()

    End Sub

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

        Dim tanya As String

        tanya = MsgBox("Anda Yakin Ingin Keluar ????", MsgBoxStyle.Question + MsgBoxStyle.YesNo)

        If tanya = vbYes Then

            End

        Else

        End If

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click

        Nama.Text = ""

        Jabatan.Text = ""

        GajiPokok.Text = ""

        Status.Text = ""

        TunIstri.Text = ""

        Jlhanak.Text = ""

        Tjganak.Text = ""

        Pajak.Text = ""

        Jamlembur.Text = ""

        UpahLmbur.Text = ""

        Totgji.Text = ""

        Nama.Focus()

    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click

        isitabel()

        Nama.Text = ""

        Jabatan.Text = ""

        GajiPokok.Text = ""

        Status.Text = ""

        TunIstri.Text = ""

        Jlhanak.Text = ""

        Tjganak.Text = ""

        Pajak.Text = ""

        Jamlembur.Text = ""

        UpahLmbur.Text = ""

        Totgji.Text = ""

    End Sub

    Private Sub BtnHapusdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusdipilih.Click

        Lv.Items.Remove(Lv.SelectedItems(0))

    End Sub

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

        If Jabatan.Text = "Mandor" Then

            GajiPokok.Text = 1750000

            Pajak.Text = 1.5 / 100 * Val(GajiPokok.Text)

        ElseIf Jabatan.Text = "Staf" Then

            GajiPokok.Text = 1250000

            Pajak.Text = 1.5 / 100 * Val(GajiPokok.Text)

        ElseIf Jabatan.Text = "Kepala Bagian" Then

            GajiPokok.Text = 2500000

            Pajak.Text = 1.5 / 100 * Val(GajiPokok.Text)

        Else

            Pajak.Text = 0

        End If

        Status.Focus()

    End Sub

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

        If Status.Text = "Menikah" Then

            TunIstri.Text = 0.09 * Val(GajiPokok.Text)

            Jlhanak.Enabled = True

        ElseIf Status.Text = "Lajang" Then

            TunIstri.Text = 0

            Jlhanak.Enabled = False

        End If

        Jlhanak.Focus()

    End Sub

    Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click

            End Sub

    Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click

       

    End Sub

    Private Sub Btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhitung.Click

        Totgji.Text = Format(Val(GajiPokok.Text) + Val(TunIstri.Text) + Val(Tjganak.Text) + Val(UpahLmbur.Text) - Val(Pajak.Text), "##,##")

    End Sub

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

        buattabel()

        Jabatan.Items.Add("Mandor")

        Jabatan.Items.Add("Staf")

        Jabatan.Items.Add("Kepala Bagian")

        Status.Items.Add("Menikah")

        Status.Items.Add("Lajang")

    End Sub

    Sub buattabel()

        Lv.Columns.Add("Nama", 100, HorizontalAlignment.Left)

        Lv.Columns.Add("Jabatan", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("Gaji Pokok", 100, HorizontalAlignment.Left)

        Lv.Columns.Add("Status", 50, HorizontalAlignment.Left)

        Lv.Columns.Add("Tjg Istri", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("Jlh anak", 60, HorizontalAlignment.Left)

        Lv.Columns.Add("tjg anak", 60, HorizontalAlignment.Left)

        Lv.Columns.Add("Pajak", 50, HorizontalAlignment.Left)

        Lv.Columns.Add("Jam Lembur", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("Upah Lembur", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("Total", 60, HorizontalAlignment.Left)

        Lv.View = View.Details

        Lv.GridLines = True

        Lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim imam As New ListViewItem

        imam.Text = Nama.Text

        imam.SubItems.Add(Jabatan.Text)

        imam.SubItems.Add(GajiPokok.Text)

        imam.SubItems.Add(Status.Text)

        imam.SubItems.Add(TunIstri.Text)

        imam.SubItems.Add(Jlhanak.Text)

        imam.SubItems.Add(Tjganak.Text)

        imam.SubItems.Add(Pajak.Text)

        imam.SubItems.Add(Jamlembur.Text)

        imam.SubItems.Add(UpahLmbur.Text)

        imam.SubItems.Add(Totgji.Text)

        Lv.Items.Add(imam)

    End Sub

    Private Sub Jamlembur_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jamlembur.TextChanged

        If Jabatan.Text = "Mandor" Then

            UpahLmbur.Text = 7500 * Val(Jamlembur.Text)

        ElseIf Jabatan.Text = "Staf" Then

            UpahLmbur.Text = 5000 * Val(Jamlembur.Text)

        ElseIf Jabatan.Text = "Kepala Bagian" Then

            UpahLmbur.Text = 10000 * Val(Jamlembur.Text)

        Else

            UpahLmbur.Text = 0

        End If

    End Sub

    Private Sub Jlhanak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jlhanak.TextChanged

        If Jlhanak.Text = "1" Then

            Tjganak.Text = 3 / 100 * Val(GajiPokok.Text)

        ElseIf Jlhanak.Text >= "2" Then

            Tjganak.Text = 7 / 100 * Val(GajiPokok.Text)

        End If

        Jamlembur.Focus()

    End Sub

End Class

Hasil Program