jawaban soal no.2 (modul halaman 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")

        buat_tabel()

    End Sub

    Sub cek()

        Dim x As String

        x = Microsoft.VisualBasic.Left(kode.Text, 2)

        If x = "TS" Then

            merk.Text = "Toshiba"

        ElseIf x = "VG" Then

            merk.Text = "V-Gen"

        End If

        x = Microsoft.VisualBasic.Mid(kode.Text, 3, 3)

        If x = "001" Then

            namabarang.Text = "Flasdisk 4GB"

        ElseIf x = "002" Then

            namabarang.Text = "Flasdisk 2GB"

        End If

        If kode.Text = "TS001" Then

            harga.Text = 105000

        ElseIf kode.Text = "TS002" Then

            harga.Text = 75000

        End If

        If kode.Text = "VG001" Then

            harga.Text = 90000

        ElseIf kode.Text = "VG002" Then

            harga.Text = 6000

        End If

    End Sub

    Sub buat_tabel()

        With LV

            .Columns.Add("No.pembelian", 85, HorizontalAlignment.Center)

            .Columns.Add("Kode Barang", 90, HorizontalAlignment.Center)

            .Columns.Add("Nama Barang", 80, HorizontalAlignment.Left)

            .Columns.Add("Merk", 70, HorizontalAlignment.Center)

            .Columns.Add("Harga", 75, HorizontalAlignment.Center)

            .Columns.Add("Jumlah Beli", 90, HorizontalAlignment.Center)

            .Columns.Add("Total Harga", 90, HorizontalAlignment.Center)

            .View = View.Details

            .GridLines = True

            .FullRowSelect = True

        End With

    End Sub

    Sub isi_tabel()

        Dim lst As New ListViewItem

        lst.Text = nop.Text

        lst.SubItems.Add(kode.Text)

        lst.SubItems.Add(namabarang.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 kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        Call cek()

    End Sub

    Private Sub jumlah_keypress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        If tombol = 13 Then

            cek()

            total.Text = Val(harga.Text) * Val(jumlah.Text)

        End If

    End Sub

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

        isi_tabel()

    End Sub

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

        nop.Text = ""

        kode.Text = ""

        namabarang.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlah.Text = ""

        total.Text = ""

        nop.Focus()

    End Sub

    Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapssemua.Click

        LV.Items.Clear()

    End Sub

    Private Sub btnpilihdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpilihdata.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        End

    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub

End Class

jawaban no.3

  

Public Class dtagji

    Private Sub data_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("Staff")

        status.Items.Add("Menikah")

        status.Items.Add("Belum Menikah")

        buat_tabel()

    End Sub

    Sub proses()

        If jabatan.Text = "Mandor" Then

            gapok.Text = "1750000"

            pajak.Text = 0.015 * Val(gapok.Text)

        ElseIf jabatan.Text = "Kepala Bagian" Then

            gapok.Text = "2500000"

            pajak.Text = 0.015 * Val(gapok.Text)

        ElseIf jabatan.Text = "Staff" Then

            gapok.Text = "1250000"

            pajak.Text = 0.015 * Val(gapok.Text)

        End If

        Select Case status.Text

            Case "Menikah" : tuis.Text = 0.09 * Val(gapok.Text)

            Case "Belum Menikah" : tuis.Text = 0

        End Select

        If anak.Text = "1" Then

            tunak.Text = 0.03 * Val(gapok.Text)

        ElseIf anak.Text = "2" Then

            tunak.Text = 0.07 * Val(gapok.Text)

        ElseIf anak.Text >= "2" Then

            tunak.Text = 0.07 * Val(gapok.Text)

        ElseIf anak.Text <= "1" Then

            tunak.Text = 0

        End If

        If jabatan.Text = "Mandor" Then

            If lembur.Text = "0" Then

                galem.Text = 0

            ElseIf lembur.Text = "1" Then

                galem.Text = 7500

            ElseIf lembur.Text >= "1" Then

                galem.Text = 7500 * Val(lembur.Text)

            End If

        ElseIf jabatan.Text = "Kepala Bagian" Then

            If lembur.Text = "0" Then

                galem.Text = 0

            ElseIf lembur.Text = "1" Then

                galem.Text = 10000

            ElseIf lembur.Text >= "1" Then

                galem.Text = 10000 * Val(lembur.Text)

            End If

        ElseIf jabatan.Text = "Staff" Then

            If lembur.Text = "0" Then

                galem.Text = 0

            ElseIf lembur.Text = "1" Then

                galem.Text = 5000

            ElseIf lembur.Text >= "1" Then

                galem.Text = 5000 * Val(lembur.Text)

            End If

        End If

        total.Text = Val(gapok.Text) + Val(tuis.Text) + Val(tunak.Text) + Val(galem.Text) - Val(pajak.Text)

    End Sub

    Sub buat_tabel()

        With LV

            .Columns.Add("Nama karyawan", 110, HorizontalAlignment.Left)

            .Columns.Add("Jabatan", 90, HorizontalAlignment.Left)

            .Columns.Add("Gaji Pokok", 80, HorizontalAlignment.Center)

            .Columns.Add("Status", 100, HorizontalAlignment.Left)

            .Columns.Add("Tunjangan Istri", 98, HorizontalAlignment.Center)

            .Columns.Add("Anak", 40, HorizontalAlignment.Center)

            .Columns.Add("Tunjangan Anak", 98, HorizontalAlignment.Center)

            .Columns.Add("Pajak", 55, HorizontalAlignment.Center)

            .Columns.Add("Lembur", 50, HorizontalAlignment.Center)

            .Columns.Add("Gaji Lembur/jam", 100, HorizontalAlignment.Center)

            .Columns.Add("Total Gaji", 90, HorizontalAlignment.Center)

            .View = View.Details

            .GridLines = True

            .FullRowSelect = True

        End With

    End Sub

    Sub isi_tabel()

        Dim lst As New ListViewItem

        lst.Text = nama.Text

        lst.SubItems.Add(jabatan.Text)

        lst.SubItems.Add(gapok.Text)

        lst.SubItems.Add(status.Text)

        lst.SubItems.Add(tuis.Text)

        lst.SubItems.Add(anak.Text)

        lst.SubItems.Add(tunak.Text)

        lst.SubItems.Add(pajak.Text)

        lst.SubItems.Add(lembur.Text)

        lst.SubItems.Add(galem.Text)

        lst.SubItems.Add(total.Text)

        LV.Items.Add(lst)

    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged

        Call proses()

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        Call proses()

    End Sub

    Private Sub lembur_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lembur.TextChanged

        Call proses()

    End Sub

    Private Sub anak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles anak.TextChanged

        Call proses()

    End Sub

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

        isi_tabel()

    End Sub

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

        nama.Text = ""

        jabatan.Text = ""

        gapok.Text = ""

        status.Text = ""

        tuis.Text = ""

        anak.Text = ""

        tunak.Text = ""

        pajak.Text = ""

        lembur.Text = ""

        galem.Text = ""

        total.Text = ""

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        LV.Items.Clear()

    End Sub

    Private Sub btnpilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpilih.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        End

    End Sub

End Class