jawaban no.2 (halaman 33 modul)

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

End Class

jawaban no.3 program ke1

Public Class Form1

    Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click

        If password.Text = "1980" Then

            mu.Show()

            Me.Hide()

        Else

            MsgBox("Maaf Password anda masih salah !!!")

        End If

    End Sub

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

   

        End

    End Sub

End Class

jawaban no.3 program ke2

Public Class mu

    Private Sub KeluarProgramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarProgramToolStripMenuItem.Click

        End

    End Sub

    Private Sub DataGajiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGajiToolStripMenuItem.Click

        dtgaji.Show()

        Me.Hide()

    End Sub

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

    End Sub

End Class

jawaban no.3 program ke3

Public Class dtgaji

    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)