Sabtu, 28 Januari 2012

Hasil penyelesaian Quiz no 3. (Hardono Christanto L)

Listing Program Form Karyawan


-   Listing Program Form Login

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

hasil program login












listing 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 = "Hardono "
        ElseIf Nip.Text = "00002" Then
            Nama.Text = "Rinto"
        Else
            Nama.Text = "Rani"
        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












Tampilan Blog klik disini
Diposting oleh di Tidak ada komentar:

Hasil penyelesaian Quiz no 2. (Hardono Christanto L)


Listing Program

Public Class Form1

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

    End Sub

    Sub buattabel()
        LV.Columns.Add("NPM", 70, HorizontalAlignment.Left)
        LV.Columns.Add("Nama", 120, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True

    End Sub

    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = NPM.Text
        lst.SubItems.Add(Nama.Text)
        LV.Items.Add(lst)

    End Sub


    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
        isitabel()
        NPM.Text = ""
        Nama.Text = ""
    End Sub

    Private Sub BTNHapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHapussemua.Click
        LV.Items.Clear()

    End Sub

    Private Sub BTNHapuspilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHapuspilih.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
        End
    End Sub
End Class














Silahkan Klik disini
Diposting oleh di Tidak ada komentar:
Langganan: Postingan (Atom)