Soal No 3 ( Dedi Muhardi "0911085 " )

LISTING PROGRAM Formlogin

Kasus mengenai penggajian karyawan/pegawai,, untuk mengetahui soal nya klik diSINI

Public Class Formlogin

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click

        If username.Text = "Dedi Muhardi" And password.Text = "0911085" Then

            menuutama.Show()

            Me.Hide()

        Else

            MsgBox("maaf saudara, password yang anda masukkan tidak di temukan")

            username.Text = ""

            password.Text = ""

        End If

    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

        End

    End Sub

End Class

HASIL PROGRAM Formlogin

 

LISTING PROGRAM menuutama

Public Class menuutama

    Private Sub gajipegawai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pegawai.Click

        gajipegawai.Show()

    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

        End

    End Sub

End Class

HASIL PROGRAM menuutama

LISTING PROGRAM  gajipegawai

Public Class gajipegawai

        

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

        nip.Items.Add("B10")

        nip.Items.Add("B11")

        nip.Items.Add("B12")

        jabatan.Items.Add("mandor")

        jabatan.Items.Add("kepala bagian")

        jabatan.Items.Add("staff")

        status.Items.Add("Belum Menikah")

        status.Items.Add("menikah")

        jalem.Items.Add("1")

        jalem.Items.Add("2")

        jalem.Items.Add("3")

        jalem.Items.Add("4")

        jalem.Items.Add("5")

        jalem.Items.Add("6")

        jalem.Items.Add("7")

        jalem.Items.Add("8")

        jalem.Items.Add("9")

        jalem.Items.Add("10")

        jalem.Items.Add("11")

        jalem.Items.Add("12")

        jalem.Items.Add("13")

        jalem.Items.Add("14")

        jalem.Items.Add("15")

        jalem.Items.Add("16")

        jalem.Items.Add("17")

        jalem.Items.Add("18")

        jalem.Items.Add("19")

        jalem.Items.Add("20")

        jalem.Items.Add("21")

        jalem.Items.Add("22")

        jalem.Items.Add("23")

        jalem.Items.Add("24")

    End Sub

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

        If nip.Text = "B10" Then

            nama.Text = "Dedi Muhardi"

        ElseIf nip.Text = "B11" Then

            nama.Text = "BALDES"

        ElseIf nip.Text = "B12" Then

            nama.Text = "Oezil"

        End If

    End Sub

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

        If jabatan.Text = "mandor" Then

            gapok.Text = 17500000

        ElseIf jabatan.Text = "kepala bagian" Then

            gapok.Text = 25000000

        ElseIf jabatan.Text = "staff" Then

            gapok.Text = 12500000

        Else

            gapok.Text = 0

        End If

    End Sub

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

        If status.Text = "menikah" Then

            tunjanganistri.Text = 175000

        ElseIf status.Text = "Belum Menikah" Then

            tunjangananak.Text = 0

        End If

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        total.Text = Val(tunjanganistri.Text) + Val(tunjangananak.Text) + Val(gapok.Text) + Val(pajak.Text)

    End Sub

    Private Sub jlhanak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jlhanak.TextChanged

        If jlhanak.Text = "1" Then

            tunjangananak.Text = 1 * (0.3 * Val(gapok.Text))

        ElseIf jlhanak.Text >= "2" Then

            tunjangananak.Text = 2 * (0.7 * Val(gapok.Text))

        End If

    End Sub

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

        nip.Text = ""

        nama.Text = ""

        jabatan.Text = ""

        gapok.Text = ""

        status.Text = ""

        tunjangananak.Text = ""

        tunjanganistri.Text = ""

        total.Text = ""

        pajak.Text = ""

        jalem.Text = ""

        lembur.Text = ""

        jlhanak.Text = ""

    End Sub

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

        End

    End Sub

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

        If jabatan.Text = "mandor" Then

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

        ElseIf jabatan.Text = "kepala bagian" Then

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

        ElseIf jabatan.Text = "staff" Then

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

        End If

    End Sub

    Private Sub pajak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pajak.TextChanged

        If jabatan.Text = "mandor" Then

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

        ElseIf jabatan.Text = "kepala bagian" Then

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

        ElseIf jabatan.Text = "staff" Then

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

        End If

    End Sub

    Private Sub jalem_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jalem.SelectedIndexChanged

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

    End Sub

End Class

Hasil Program gajipegawai