tugas program penggajian karyawan / hari senin

NAMA : AHMADROBAYAN

NPM  : 0911323

KELAS: TI-M0910

HARI  : SENIN

PENGGAJIAN KARYAWAN

Listing form login

Public Class Formlogin

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

        If username.Text = "Ahmadrobayan" And password.Text = "120389" Then

            menuutama.Show()

            Me.Hide()

        Else

            MsgBox("maaf password yang anda masukkan invalid")

            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 login :

Listing Menu utama :

Public Class menuutama

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

        gajipeg.Show()

    End Sub

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

        End

    End Sub

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

    End Sub

End Class

Contoh program menu utama :

next,,

Listing Gaji Pegawai

Public Class gajipeg

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

        nik.Items.Add("010")

        nik.Items.Add("011")

        nik.Items.Add("012")

        nik.Items.Add("013")

        nik.Items.Add("014")

        jabatan.Items.Add("mandor")

        jabatan.Items.Add("kepala bagian")

        jabatan.Items.Add("staf")

        status.Items.Add("single")

        status.Items.Add("married")

        jamlemb.Items.Add("1")

        jamlemb.Items.Add("2")

        jamlemb.Items.Add("3")

        jamlemb.Items.Add("4")

        jamlemb.Items.Add("5")

        jamlemb.Items.Add("6")

        jamlemb.Items.Add("7")

        jamlemb.Items.Add("8")

        jamlemb.Items.Add("9")

        jamlemb.Items.Add("10")

        jamlemb.Items.Add("11")

        jamlemb.Items.Add("12")

        jamlemb.Items.Add("13")

        jamlemb.Items.Add("14")

    End Sub

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

        If nik.Text = "010" Then

            nama.Text = "suhriman"

        ElseIf nik.Text = "011" Then

            nama.Text = "budi"

        ElseIf nik.Text = "012" Then

            nama.Text = "ahd.robayan"

        ElseIf nik.Text = "013" Then

            nama.Text = "pandi"

        ElseIf nik.Text = "014" Then

            nama.Text = "marsyah"

        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 = "staf" 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 = "married" Then

            tunistri.Text = 175000

        ElseIf status.Text = "single" Then

            tunjnak.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(tunistri.Text) + Val(tunjnak.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

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

        ElseIf jlhanak.Text >= "2" Then

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

        nik.Text = ""

        nama.Text = ""

        jabatan.Text = ""

        gapok.Text = ""

        status.Text = ""

        tunjnak.Text = ""

        tunistri.Text = ""

        total.Text = ""

        pajak.Text = ""

        jamlemb.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(jamlemb.Text * 5000)

        ElseIf jabatan.Text = "kepala bagian" Then

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

        ElseIf jabatan.Text = "staf" Then

            lembur.Text = Val(jamlemb.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(jamlemb.Text * 5000)

        ElseIf jabatan.Text = "kepala bagian" Then

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

        ElseIf jabatan.Text = "staf" Then

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

        End If

    End Sub

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

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

    End Sub

End Class

Hasil program saya ( penggajian karyawan ) :

Sekian pak,,,,,wassalam..