Selasa, 24 Januari 2012

study kasus

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nama.Focus()
        jabat.Items.Add("Mandor")
        jabat.Items.Add("Kepala Bagian")
        jabat.Items.Add("Staf")
        stts.Items.Add("Menikah")
        stts.Items.Add("Belum Menikah")
        Call buattabel()


    End Sub

   
    Private Sub jabat_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabat.SelectedIndexChanged
        Select Case jabat.Text
            Case "Mandor"
                gj_pkok.Text = 1750000
                pajak.Text = 0.015 * Val(gj_pkok.Text)
            Case "Staf"
                gj_pkok.Text = 1250000
                pajak.Text = 0.015 * Val(gj_pkok.Text)
            Case "Kepala Bagian"
                gj_pkok.Text = 2500000
                pajak.Text = 0.015 * Val(gj_pkok.Text)

        End Select
        stts.Focus()

    End Sub

    Private Sub stts_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stts.SelectedIndexChanged
        Dim ket As String
        ket = stts.Text = "Menikah"
        If jabat.Text = "Mandor" Then
            t_istri.Text = 0.09 * 1750000
        ElseIf jabat.Text = "Staf" Then
            t_istri.Text = 0.09 * 1250000
        ElseIf jabat.Text = "Kepala Bagian" Then
            t_istri.Text = 0.09 * 2500000

        End If
        If stts.Text = "Belum Menikah" Then
            t_istri.Text = 0

        End If
        jlh_anak.Focus()
    End Sub

  


 Private Sub jlh_anak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jlh_anak.TextChanged
        If jlh_anak.Text = "1" Then
            t_anak.Text = 0.03 * Val(gj_pkok.Text)
        ElseIf jlh_anak.Text >= "2" Then
            t_anak.Text = 0.07 * Val(gj_pkok.Text)

        End If
        jam.Focus()


    End Sub
    Private Sub jam_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jam.TextChanged
        If jabat.Text = "Mandor" Then
            upah_lbr.Text = 7500 * Val(jam.Text)
        ElseIf jabat.Text = "Staf" Then
            upah_lbr.Text = 5000 * Val(jam.Text)
        ElseIf jabat.Text = "Kepala Bagian" Then
            upah_lbr.Text = 10000 * Val(jam.Text)

        End If


    End Sub
    Private Sub btn_hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hitung.Click
        total_gj.Text = Val(gj_pkok.Text) + Val(t_istri.Text) + Val(t_anak.Text) + Val(upah_lbr.Text) - Val(pajak.Text)


    End Sub
    Sub buattabel()
        LV.Columns.Add("Nama", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jabatan", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Status", 60, HorizontalAlignment.Center)
        LV.Columns.Add("Gaji Pokok", 100, HorizontalAlignment.Right)
        LV.Columns.Add("Tunjangan Istri", 120, HorizontalAlignment.Right)
        LV.Columns.Add("Jumlah Anak", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Tunjangan anak", 120, HorizontalAlignment.Right)
        LV.Columns.Add("Pajak", 60, HorizontalAlignment.Right)
        LV.Columns.Add("Jam Lembur", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Upah Lembur", 100, HorizontalAlignment.Right)
        LV.Columns.Add("Total Gaji", 100, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.FullRowSelect = True
        LV.GridLines = True

    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = nama.Text
        lst.SubItems.Add(jabat.Text)
        lst.SubItems.Add(stts.Text)
        lst.SubItems.Add(gj_pkok.Text)
        lst.SubItems.Add(t_istri.Text)
        lst.SubItems.Add(jlh_anak.Text)
        lst.SubItems.Add(t_anak.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(jam.Text)
        lst.SubItems.Add(upah_lbr.Text)
        lst.SubItems.Add(total_gj.Text)
        LV.Items.Add(lst)

    End Sub

    Private Sub btn_bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_bersih.Click
       nama.Text = ""
        jabat.Text = ""
        stts.Text = ""
        gj_pkok.Text = ""
        t_istri.Text = ""
        jlh_anak.Text = ""
        t_anak.Text = ""
        pajak.Text = ""
        jam.Text = ""
        upah_lbr.Text = ""
        total_gj.Text = ""

        nama.Focus()
    End Sub

    Private Sub btn_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_simpan.Click
        Call isitabel()
        nama.Text = ""
        jabat.Text = ""
        stts.Text = ""
        gj_pkok.Text = ""
        t_istri.Text = ""
        jlh_anak.Text = ""
        t_anak.Text = ""
        pajak.Text = ""
        jam.Text = ""
        upah_lbr.Text = ""
        total_gj.Text = ""

        nama.Focus()

    End Sub

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


    End Sub

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

    End Sub

    Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click
        Dim q As String
        q = MsgBox("Anda Yakin Ingin Keluar", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Keluar")
        If q = vbYes Then
            Close()

        End If
    End Sub
End class

Bentuk form :



hal 33

Public Class Form1

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

        kode.Items.Add("TS001")
        kode.Items.Add("TS002")
        kode.Items.Add("VG001")
        kode.Items.Add("VG002")
        Call buattabel()
        no.Focus()



    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim x As String
        Microsoft.VisualBasic.Left(kode.Text, 2)
        x = Microsoft.VisualBasic.Left(kode.Text, 2)
        Select Case x
            Case "TS"
                merk.Text = "Toshiba"
            Case "VG"
                merk.Text = "V-Gen"


        End Select
        x = Microsoft.VisualBasic.Mid(kode.Text, 3, 3)
        Select Case x
            Case "001"
                nama.Text = "Flasdisk 4GB"
            Case "002"
                nama.Text = "Flasdisk 2GB"

        End Select
        x = Microsoft.VisualBasic.Left(kode.Text, 5)

        Select Case x
            Case "TS001"
                harga.Text = 105000
            Case "TS002"
                harga.Text = 70000
            Case "VG001"
                harga.Text = 90000
            Case "VG002"
                harga.Text = 60000
        End Select
        jumlah.Focus()

    End Sub

    Private Sub btn_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_simpan.Click
        Call isitabel()
        no.Text = ""
        kode.Text = ""
        nama.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""
        no.Focus()
    End Sub
    Sub buattabel()
        LV.Columns.Add("NO Pembelian", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Barang", 120, HorizontalAlignment.Left)
        LV.Columns.Add("Merk", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Harga", 100, HorizontalAlignment.Right)
        LV.Columns.Add("Jumlah Beli", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 100, HorizontalAlignment.Right)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
        total.Text = Val(harga.Text) * Val(jumlah.Text)

    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = no.Text
        lst.SubItems.Add(kode.Text)
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jumlah.Text)
        lst.SubItems.Add(total.Text)
        LV.Items.Add(lst)


    End Sub

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

    End Sub

    Private Sub btn_hapuslih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapuslih.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
        Dim t As String
        t = MsgBox("Anda yakin ingin keluar???", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Keluar")
        If t = vbYes Then
            Close()

        End If
    End Sub

    Private Sub btn_bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_bersih.Click
        no.Text = ""
        kode.Text = ""
        nama.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""
        no.Focus()

    End Sub

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress
        total.Text = Val(harga.Text) * Val(jumlah.Text)


    End Sub

End Class

Bentuk Form