TEROBSESI BERAWAL DARI KEBIASAAN

Obsesi yaitu sebuah ambisi dan harapan, yang didasari dengan keinginan untuk dapat diraih, dimilik, dinikmati dijalani dan dihiasai dengan rasa yang kuat dan kemauan yang tinggi untuk melakukannya.

dapat kita lihat orang-orang yang terobsesi itu seperti apa?
nah, jawabnya adalah dia bagaikan harimau yang melompat dan menerkam dengan cara yang khas yang ada pada dirinya dalam menggapai dann meraih keinginannya tersebut.
dan apabila dia tidak mendapatkannya maka dia akan terus untuk mecari segala cara yang ada diotaknya, untuk mendapatkan dan meraih harapan dan keinginannya itu, halal bagi nya untuk melakukan, yang jelas dan nyata atas apa yang diperbuat atas obsesinya yang didasari dari kebiasaannya serta tanpa adanya sosialisai sosial dari orang-orang terdekat bagi dirinya, yang pada akhirnya dia selalu terbuai dan terhalusinasi dengan obsesinya itu.
yang awalnya sebuah kebiasaan dan kini menjadi terbiasa dengan impian itu.

jawaban no.2 langkah ke-1

Public Class Form1

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

        If password.Text = "1987" Then

            meta.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

        MsgBox("Anda yakin ingin keluar")

        End

    End Sub

End Class

jawaban no.3 langkah ke-2

Public Class meta

    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

        datagaji.Show()

        Me.Hide()

    End Sub

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

    End Sub

End Class

jawaban soal no.3 (sistem penggajian pegawai)

Public Class datagaji

    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)

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

End Class