foto bareng

Sabtu, 28 Januari 2012

Jawaban Soal 3 (Suhendro P.Sihombing)


-    Listing Program Form Login


Public Class Form1
    Private Sub Process_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Process.Click
        If UserName.Text = "Suhendro" And Pasword.Text = "hombing" Then
            Form_karyawan.Show()
            Me.Hide()
        Else
            MsgBox("Your Pasword Invalid")
            UserName.Text = ""
            Pasword.Text = ""
        End If
    End Sub
End Class














-    Listing Program Form Karyawan


Public Class Form_karyawan

    Private Sub Nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nip.SelectedIndexChanged

        If Nip.Text = "00001" Then
            Nama.Text = "suhendro "
        ElseIf Nip.Text = "00002" Then
            Nama.Text = "Ayu"
        Else
            Nama.Text = "Joko"
        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
            GajiPokok.Text = "1750000"
            Pajak.Text = (0.015 * Val(GajiPokok.Text))

        ElseIf Jabatan.Text = "Kepala Bagian" Then
            GajiPokok.Text = "2500000"
            Pajak.Text = (0.015 * Val(GajiPokok.Text))
        Else
            GajiPokok.Text = "1250000"
            Pajak.Text = (0.015 * Val(GajiPokok.Text))
        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
            Tistri.Text = (0.09 * Val(GajiPokok.Text))
        Else
            Tistri.Text = "0"
        End If
    End Sub

    Private Sub JumlahAnak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JumlahAnak.TextChanged
      
        If JumlahAnak.Text = "1" Then
            Tanak.Text = (0.03 * Val(GajiPokok.Text))
        ElseIf JumlahAnak.Text = "2" Then
            Tanak.Text = (0.07 * Val(GajiPokok.Text))
        Else
            Tanak.Text = (0.07 * Val(GajiPokok.Text))
        End If
    End Sub

    Private Sub JumlahJam_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JumlahJam.SelectedIndexChanged

        If JumlahJam.Text = "1" Then
            If Jabatan.Text = "Mandor" Then
                GajiLembur.Text = "7500"
            ElseIf Jabatan.Text = "Staf" Then
                GajiLembur.Text = "5000"
            Else
                GajiLembur.Text = "10000"
            End If
        ElseIf JumlahJam.Text = "2" Then
            If Jabatan.Text = "Mandor" Then
                GajiLembur.Text = "15000"
            ElseIf Jabatan.Text = "Staf" Then
                GajiLembur.Text = "10000"
            Else
                GajiLembur.Text = "20000"
            End If
        ElseIf JumlahJam.Text = "3" Then
            If Jabatan.Text = "Mandor" Then
                GajiLembur.Text = "22500"
            ElseIf Jabatan.Text = "Staf" Then
                GajiLembur.Text = "15000"
            Else
                GajiLembur.Text = "30000"
            End If
        ElseIf JumlahJam.Text = "4" Then
            If Jabatan.Text = "Mandor" Then
                GajiLembur.Text = "30000"
            ElseIf Jabatan.Text = "Staf" Then
                GajiLembur.Text = "20000"
            Else
                GajiLembur.Text = "40000"
            End If

        ElseIf JumlahJam.Text = "5" Then
            If Jabatan.Text = "Mandor" Then
                GajiLembur.Text = "37500"
            ElseIf Jabatan.Text = "Staf" Then
                GajiLembur.Text = "25000"
            Else
                GajiLembur.Text = "50000"
            End If
        ElseIf JumlahJam.Text = "6" Then
            If Jabatan.Text = "Mandor" Then
                GajiLembur.Text = "45000"
            ElseIf Jabatan.Text = "Staf" Then
                GajiLembur.Text = "30000"
            Else
                GajiLembur.Text = "60000"
            End If
        ElseIf JumlahJam.Text = "7" Then
            If Jabatan.Text = "Mandor" Then
                GajiLembur.Text = "52500"
            ElseIf Jabatan.Text = "Staf" Then
                GajiLembur.Text = "35000-"
            Else
                GajiLembur.Text = "70000"
            End If
        ElseIf JumlahJam.Text = "8" Then
            If Jabatan.Text = "Mandor" Then
                GajiLembur.Text = "60000"
            ElseIf Jabatan.Text = "Staf" Then
                GajiLembur.Text = "40000"
            Else
                GajiLembur.Text = "80000"
            End If
        ElseIf JumlahJam.Text = "9" Then
            If Jabatan.Text = "Mandor" Then
                GajiLembur.Text = "67500"
            ElseIf Jabatan.Text = "Staf" Then
                GajiLembur.Text = "45000"
            Else
                GajiLembur.Text = "90000"
            End If
        ElseIf JumlahJam.Text = "10" Then
            If Jabatan.Text = "Mandor" Then
                GajiLembur.Text = "75000"
            ElseIf Jabatan.Text = "Staf" Then
                GajiLembur.Text = "50000"
            Else
                GajiLembur.Text = "100000"
            End If
        ElseIf JumlahJam.Text = "11" Then
            If Jabatan.Text = "Mandor" Then
                GajiLembur.Text = "82500"
            ElseIf Jabatan.Text = "Staf" Then
                GajiLembur.Text = "55000"
            Else
                GajiLembur.Text = "110000"
            End If
        ElseIf JumlahJam.Text = "12" Then
            If Jabatan.Text = "Mandor" Then
                GajiLembur.Text = "90000"
            ElseIf Jabatan.Text = "Staf" Then
                GajiLembur.Text = "60000"
            Else
                GajiLembur.Text = "120000"
            End If

        End If
    End Sub

    Private Sub Hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hitung.Click
        Total.Text = Val(GajiPokok.Text) + Val(Tistri.Text) + Val(Tanak.Text) + Val(GajiLembur.Text) - Val(Pajak.Text)
    End Sub

    Private Sub Form_karyawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Buattabel()
    End Sub
    Sub Buattabel()
        Lv.Columns.Add("Nip", 40, HorizontalAlignment.Center)
        Lv.Columns.Add("Nama", 60, HorizontalAlignment.Left)
        Lv.Columns.Add("Jabatan", 50, HorizontalAlignment.Center)
        Lv.Columns.Add("GaPok", 70, HorizontalAlignment.Center)
        Lv.Columns.Add("Status", 60, HorizontalAlignment.Center)
        Lv.Columns.Add("T.istri", 70, HorizontalAlignment.Center)
        Lv.Columns.Add("J.Ank", 40, HorizontalAlignment.Center)
        Lv.Columns.Add("T.Ank", 70, HorizontalAlignment.Center)
        Lv.Columns.Add("Pajak", 50, HorizontalAlignment.Center)
        Lv.Columns.Add("Gj Lembur", 60, HorizontalAlignment.Center)
        Lv.Columns.Add("Jlh Jam", 40, HorizontalAlignment.Center)
        Lv.Columns.Add("Total", 70, HorizontalAlignment.Center)
        Lv.View = View.Details
        Lv.GridLines = True
        Lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = Nip.Text
        lst.SubItems.Add(Nama.Text)
        lst.SubItems.Add(Jabatan.Text)
        lst.SubItems.Add(GajiPokok.Text)
        lst.SubItems.Add(Status.Text)
        lst.SubItems.Add(Tistri.Text)
        lst.SubItems.Add(JumlahAnak.Text)
        lst.SubItems.Add(Tanak.Text)
        lst.SubItems.Add(Pajak.Text)
        lst.SubItems.Add(GajiLembur.Text)
        lst.SubItems.Add(JumlahJam.Text)
        lst.SubItems.Add(Total.Text)

        Lv.Items.Add(lst)
    End Sub

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        isitabel()
        Nip.Text = ""
        Nama.Text = ""
        Jabatan.Text = ""
        GajiPokok.Text = ""
        Status.Text = ""
        Tistri.Text = ""
        JumlahAnak.Text = ""
        Tanak.Text = ""
        Pajak.Text = ""
        GajiLembur.Text = ""
        JumlahJam.Text = ""
        Total.Text = ""
        Nip.Focus()
    End Sub

    Private Sub HSD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HSD.Click
        Lv.Items.Clear()

    End Sub

    Private Sub HDYD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HDYD.Click
        Lv.Items.Remove(Lv.SelectedItems(0))
    End Sub

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

 
-     - Hasil Program Form Karyawan



















Tidak ada komentar:

Posting Komentar