div.TabView div.Tabs { height: 24px; overflow: hidden; } div.TabView div.Tabs a { float: left; display: block; width: 90px; text-align: center; height: 24px; padding-top: 3px; vertical-align: middle; border: 1px solid #000; border-bottom-width: 0; text-decoration: none; font-family: "Times New Roman", Serif; font-weight: 900; color: #000; } div.TabView div.Tabs a:hover, div.TabView div.Tabs a.Active { background-color: #FF9900; } div.TabView div.Pages { clear: both; border: 1px solid #6E6E6E; overflow: hidden; background-color: #FF9900; } div.TabView div.Pages div.Page { height: 100%; padding: 0px; overflow: hidden; } div.TabView div.Pages div.Page div.Pad { padding: 3px 5px; }

Pages

Subscribe:

Recent Post

Popular Post

TG

Sample Text

Sabtu, 28 Januari 2012

Jawaban Soal 3 ( Husni Tamrin)


Kasus : Lihat disini kasus
Soal 3 (Husni Tamrin)
1.      Program Login

Listing Program


Public Class Login

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

    End Sub
    Sub masuk()
        If username.Text = "Husni" And Password.Text = "husnialbara" Then
            Menu_Utama.Show()
            Me.Hide()
        Else : MsgBox(" Masukkan semua data yang diminta...!", MsgBoxStyle.Critical, "Gagal")
        End If

    End Sub

    Private Sub Password_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Password.KeyPress
        If e.KeyChar = Chr(13) Then
            masuk()
        End If
    End Sub

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        masuk()
    End Sub

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


2. Menu Utama
 


Listing Program


Public Class Menu_Utama

    Private Sub Menu_Utama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Data_pegawai.Show()

    End Sub

    Private Sub DataPegawaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPegawaiToolStripMenuItem.Click
        Data_pegawai.Show()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        stttanggal.Text = Format(Now.Date, "dddd, MMMM dd, yyyy")
        sttjam.Text = Format(Now, "h:mm:ss tt")

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


3. Program Data Pegawai



Listing Program


Public Class Data_pegawai

    Private Sub Data_pegawai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Nik.Items.Add("09111")
        Nik.Items.Add("09112")
        Nik.Items.Add("09113")
        Nik.Items.Add("09114")
        Nik.Items.Add("09115")

        jabatan.Items.Add("Mandor")
        jabatan.Items.Add("Kepala Bagian")
        jabatan.Items.Add("Staf")

        Status.Items.Add("Menikah")
        Status.Items.Add("Belum Menikah")

        lembur.Items.Add("Ya")
        lembur.Items.Add("Tidak")

        BuatTabel()
        Addjumlah()
    End Sub

    Sub BuatTabel()
        With (LV)
            .Columns.Add("NIK", 70, HorizontalAlignment.Center)
            .Columns.Add("Nama", 70, HorizontalAlignment.Left)
            .Columns.Add("Jabatan", 70, HorizontalAlignment.Left)
            .Columns.Add("Gaji", 70, HorizontalAlignment.Left)
            .Columns.Add("Status", 95, HorizontalAlignment.Left)
            .Columns.Add("Jlh_Anak", 70, HorizontalAlignment.Center)
            .Columns.Add("Lembur", 70, HorizontalAlignment.Center)
            .Columns.Add("Jlh_Jam_Lembur", 60, HorizontalAlignment.Center)
            .Columns.Add("Tjng_Istri", 60, HorizontalAlignment.Center)
            .Columns.Add("Tjng_Anak", 70, HorizontalAlignment.Center)
            .Columns.Add("Bonus Lembur", 90, HorizontalAlignment.Center)
            .Columns.Add("Pajak", 70, HorizontalAlignment.Center)
            .Columns.Add("Ttl_Gaji", 70, HorizontalAlignment.Center)
            .GridLines = True
            .FullRowSelect = True
            .View = View.Details
        End With
    End Sub

    Sub IsiTable()

        Dim lst As New ListViewItem
        With lst
            .Text = Nik.Text
            .SubItems.Add(Nama.Text)
            .SubItems.Add(jabatan.Text)
            .SubItems.Add(GajiPokok.Text)
            .SubItems.Add(Status.Text)
            .SubItems.Add(jmlhanak.Text)
            .SubItems.Add(lembur.Text)
            .SubItems.Add(jmlhjamlembur.Text)
            .SubItems.Add(Tunjanganistri.Text)
            .SubItems.Add(TunjanganAnak.Text)
            .SubItems.Add(BonusLembur.Text)
            .SubItems.Add(Pajak.Text)
            .SubItems.Add(TotalGaji.Text)
            LV.Items.Add(Lst)
        End With
    End Sub

    Private Sub Nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nik.SelectedIndexChanged
        Select Case Nik.Text
            Case "09111"
                Nama.Text = "Amir"
            Case "09112"
                Nama.Text = "Andra"
            Case "09113"
                Nama.Text = "Reza"
            Case "09114"
                Nama.Text = "Sara"
            Case "09115"
                Nama.Text = "Riza"
        End Select
    End Sub

    Sub Addjumlah()
        Dim i As Integer
        For i = 1 To 10
            jmlhanak.Items.Add(i)
        Next
    End Sub

    Sub OK()

        Dim xGaji, xPajak, xTotal, xIstri, xAnak, xlembur As Double

If Status.Text = "Belum Menikah" Then
            jmlhanak.Text = 0
            TunjanganAnak.Text = 0
            Tunjanganistri.Text = 0
            Pajak.Text = 0.15 * GajiPokok.Text
            TotalGaji.Text = Val(Tunjanganistri.Text) + Val(TunjanganAnak.Text) + Val(GajiPokok.Text) - Pajak.Text
            TunjanganAnak.Text = 0
            Tunjanganistri.Text = 0
        End If
        Select Case jabatan.Text
            Case "Mandor"
                xGaji = 1750000
            Case "Kepala Bagian"
                xGaji = 2500000
            Case "Staf"
                xGaji = 1250000
        End Select
        GajiPokok.Text = Format(xGaji, "###,##,#")
        Select Case Status.Text
            Case "Menikah"
                xIstri = 0.09 * xGaji
                If jmlhanak.Text = 1 Then
                    xAnak = 0 = 0.03 * xGaji
                ElseIf jmlhanak.Text >= 2 Then
                    xAnak = 0.07 * xGaji
                Else
                    xAnak = 0
                End If
        End Select

        Select Case lembur.Text
            Case "Tidak"
                jmlhjamlembur.Text = 0
                jmlhjamlembur.Enabled = False
                bonuslembur.Text = 0
                bonuslembur.Enabled = False
            Case "Ya"
                jmlhjamlembur.Enabled = True
                If Not jmlhjamlembur.Text = "" Then
                    Select Case jabatan.Text
                        Case "Mandor"
                            bonuslembur.Text = 7500 * jmlhjamlembur.Text
                        Case "Staff"
                            bonuslembur.Text = 5000 * jmlhjamlembur.Text
                        Case "Kepala Bagian"
                            bonuslembur.Text = 10000 * jmlhjamlembur.Text
                    End Select
                End If
        End Select

        If Not GajiPokok.Text = "" Then
            Pajak.Text = GajiPokok.Text * 0.015
            Pajak.Text = Format(xPajak, "###,##,#")
        End If

        TunjanganAnak.Text = Format(xAnak, "###,##,#")
        Tunjanganistri.Text = Format(xIstri, "###,##,#")

        xTotal = Val(xGaji) + Val(Tunjanganistri.Text) + Val(TunjanganAnak.Text) + Val(lembur.Text) - xPajak
        TotalGaji.Text = Format(xTotal, "###,##,#")

    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
        IsiTable()
        Nik.Text = ""
        Nama.Text = ""
        jabatan.Text = ""
        GajiPokok.Text = ""
        Status.Text = ""
        jmlhanak.Text = ""
        lembur.Text = ""
        jmlhjamlembur.Text = ""
        bonuslembur.Text = ""
        TunjanganAnak.Text = ""
        Tunjanganistri.Text = ""
        Pajak.Text = ""
        TotalGaji.Text = ""
    End Sub

    Private Sub Golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        OK()
    End Sub
    Sub Hapus()
        Nik.Text = ""
        Nama.Text = ""
        jabatan.Text = ""
        GajiPokok.Text = ""
        Status.Text = ""
        jmlhanak.Text = ""
        jmlhjamlembur.Text = ""
        bonuslembur.Text = ""
        Pajak.Text = ""
        TunjanganAnak.Text = ""
        Tunjanganistri.Text = ""
        TotalGaji.Text = ""
        lembur.Text = ""
        jmlhanak.Enabled = True
        Nik.Focus()
    End Sub

    Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged
        If Not jmlhanak.Text = "" Then
            Call OK()
        End If
        If Status.Text = "Belum Menikah" Then
            jmlhanak.Text = 0
            TunjanganAnak.Text = 0
            Tunjanganistri.Text = 0
            jmlhanak.Enabled = False
        End If
        If Status.Text = "Menikah" Then
            jmlhanak.Enabled = True
        End If
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        Call Proses()
        Dim xpajak As Double
        xPajak = 0.015 * GajiPokok.Text
        Pajak.Text = Format(xPajak, "###,##,#")
    End Sub
    Sub Proses()
        If Not jmlhanak.Text = "" Then
            Call OK()
        Else
            TunjanganAnak.Text = 0
            Tunjanganistri.Text = 0
        End If
    End Sub

    Private Sub bthapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthapus.Click
        Call Hapus()
    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_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lembur.SelectedIndexChanged
        Call OK()
        If Status.Text = "Ya" Then
            bonuslembur.Enabled = True
        End If
        If Status.Text = "Tidak" Then
            bonuslembur.Enabled = False
        End If
    End Sub

    Private Sub bonuslembur_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bonuslembur.TextChanged
        Call OK()
    End Sub

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

    Private Sub Btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemua.Click
        LV.Items.Clear()
    End Sub
End Class