Senin, 23 Januari 2012

pak ini tugas latihan vb.net saya......
dan ini hasil kasusnya

Data Gaji Pegawai


Public Class Form1
    Dim LST As ListViewItem
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        jabatan.Items.Add("Mandor")
        jabatan.Items.Add("Kepala bagian")
        jabatan.Items.Add("Staf")

        buat_table()

    End Sub
    Sub buat_table()
        With LV
            .Items.Clear()
            .FullRowSelect = True
            .GridLines = True
            .View = View.Details

            .Columns.Add("Jabatan", 100)
            .Columns.Add("Gaji pokok", 100)
            .Columns.Add("Tunjangan istri", 100, HorizontalAlignment.Center)
            .Columns.Add("Tunjngan anak", 100, HorizontalAlignment.Left)
            .Columns.Add("Pajak", 100, HorizontalAlignment.Left)
            .Columns.Add("Gaji lembur", 100, HorizontalAlignment.Left)
            .Columns.Add("Jam lembur", 100, HorizontalAlignment.Left)
            .Columns.Add("Upah per jam", 100, HorizontalAlignment.Left)
            .Columns.Add("Total gaji", 100, HorizontalAlignment.Left)

        End With

    End Sub
    Sub simpan()
        LST = Me.LV.Items.Add(Me.jabatan.Text)
        LST.SubItems.Add(Me.gaji_pokok.Text)
        LST.SubItems.Add(Me.tunjangan_istri.Text)
        LST.SubItems.Add(Me.tunjangan_anak.Text)
        LST.SubItems.Add(Me.pajak.Text)
        LST.SubItems.Add(Me.gaji_lembur.Text)
        LST.SubItems.Add(Me.jam_lembur.Text)
        LST.SubItems.Add(Me.upah_per_jam.Text)
        LST.SubItems.Add(Me.total_gaji.Text)
    End Sub
    Sub kosong()
        jabatan.Text = ""
        gaji_pokok.Text = ""
        tunjangan_istri.Text = ""
        tunjangan_anak.Text = ""
        pajak.Text = ""
        gaji_lembur.Text = ""
        jam_lembur.Text = ""
        upah_per_jam.Text = ""
        total_gaji.Text = ""
        gaji_pokok.Focus()

    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
      
        If jabatan.Text = "Mandor" Then
            gaji_pokok.Text = "1750000"
        ElseIf jabatan.Text = "Kepala bagian" Then
            gaji_pokok.Text = "2500000"
        ElseIf jabatan.Text = "Staf" Then
            gaji_pokok.Text = "1250000"
        Else
            jabatan.Text = ""

        End If
    End Sub

    Private Sub tunjangan_istri_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tunjangan_istri.TextChanged
        tunjangan_istri.Text = 0.09 * gaji_pokok.Text

    End Sub

    Private Sub tunjangan_anak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        tunjangan_anak.Text = 0.03 * gaji_pokok.Text

    End Sub

    Private Sub pajak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pajak.TextChanged
        pajak.Text = 0.015 - gaji_pokok.Text

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        If jam_lembur.Text <> "" Then
            pajak.Text = 0.015 - gaji_pokok.Text
            gaji_lembur.Text = jam_lembur.Text * upah_per_jam.Text
        Else
            MessageBox.Show("jumlah tidak boleh kosong")
            Exit Sub

        End If 'callbyname(jam lembur_keypress)
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        Call simpan()

    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        kosong()
        gaji_pokok.Focus()

    End Sub

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


    End Sub

    Private Sub btnhapus_data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus_data.Click
        If LV.SelectedItems.Count <> 0 Then

            LV.Items.Remove(LV.SelectedItems(0))
        Else
            MsgBox("maaf anda belum" & "memilih yang mana mau dihapus")
        End If
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Dim tanya As String
        tanya = MsgBox("Apakah Anda Yakin Ingin Keluar?" & vbCrLf & "Harus Yakin", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
        If tanya = vbYes Then
            Me.Close()
        Else
            Exit Sub
        End If
    End Sub

    Private Sub gaji_lembur_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gaji_lembur.TextChanged
        total_gaji.Text = Val(jabatan.Text) * Val(jam_lembur.Text)
    End Sub

    Private Sub total_gaji_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles total_gaji.TextChanged
        total_gaji.Text = gaji_pokok.Text + tunjangan_istri.Text + tunjangan_anak.Text + gaji_lembur.Text - pajak.Text

    End Sub
End Class

Hal 33 (YULASMI)


Public Class Form1
    Dim LST As ListViewItem
    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Select Case kode.Text
            Case "TS001"
                Microsoft.VisualBasic.Right(kode.Text, 3)
                nama.Text = "Flashdisk 4GB"
                Microsoft.VisualBasic.Left(kode.Text, 2)
                merk.Text = "Toshiba"
            Case "TS002"
                Microsoft.VisualBasic.Right(kode.Text, 3)
                nama.Text = "Flashdisk 2GB"
                Microsoft.VisualBasic.Left(kode.Text, 2)
                merk.Text = "Toshiba"
            Case "VG001"
                Microsoft.VisualBasic.Right(kode.Text, 3)
                nama.Text = "Flashdisk 4GB"
                Microsoft.VisualBasic.Left(kode.Text, 2)
                merk.Text = "V-Gen"
            Case "VG002"
                Microsoft.VisualBasic.Right(kode.Text, 3)
                nama.Text = "Flashdisk 2GB"
                Microsoft.VisualBasic.Left(kode.Text, 2)
                merk.Text = "V-gen"
        End Select

        If kode.Text = "TS001" Then
            harga.Text = "105000"
        ElseIf kode.Text = "TS002" Then
            harga.Text = "75000"
        ElseIf kode.Text = "VG001" Then
            harga.Text = "90000"
        ElseIf kode.Text = "VG002" Then
            harga.Text = "60000"
        End If
    End Sub

    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")

        buat_table()
        kosong()

    End Sub
    Sub buat_table()
        With LV
            .Items.Clear()
            .FullRowSelect = True
            .GridLines = True
            .View = View.Details

            .Columns.Add("No Pembelian", 100)
            .Columns.Add("Kode Barang", 100)
            .Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
            .Columns.Add("Merk", 100, HorizontalAlignment.Left)
            .Columns.Add(" Harga ", 100, HorizontalAlignment.Left)
            .Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Left)
            .Columns.Add("Total Harga", 100, HorizontalAlignment.Left)

        End With
    End Sub
    Sub simpan()
        LST = Me.lv.Items.Add(Me.no.Text)
        LST.SubItems.Add(Me.kode.Text)
        LST.SubItems.Add(Me.nama.Text)
        LST.SubItems.Add(Me.merk.Text)
        LST.SubItems.Add(Me.harga.Text)
        LST.SubItems.Add(Me.jumlah.Text)
        LST.SubItems.Add(Me.tharga.Text)

    End Sub


    Sub kosong()
        nama.Text = ""
        no.Text = ""
        kode.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        tharga.Text = ""
        no.Focus()
    End Sub

  
  
    Private Sub btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
        If lv.SelectedItems.Count <> 0 Then

            lv.Items.Remove(lv.SelectedItems(0))
        Else
            MsgBox("maaf anda belum" & "memilih yang mana mau dihapus")
        End If
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        Call simpan()
    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        kosong()
        no.Focus()

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Dim tanya As String
        tanya = MsgBox("Apakah Anda Yakin Ingin Keluar?" & vbCrLf & "Harus Yakin", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
        If tanya = vbYes Then
            Me.Close()
        Else
            Exit Sub
        End If
    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 jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress
        tharga.Text = Val(jumlah.Text) * Val(harga.Text)
    End Sub

End Class