Jawaban SOAL 3 (Ardianti Harahap)

Kasus : Klik Disini

Public Class Menu
    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        End
    End Sub

    Private Sub GajiPegawaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GajiPegawaiToolStripMenuItem.Click
        GajiPegawai.MdiParent = Me
        GajiPegawai.Show()
    End Sub
End Class

Public Class Login
    Private Sub masuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles masuk.Click
        If nama.Text = "Ardianti" And password.Text = "password" Then
            My.Forms.Menu.Show()
            Me.Hide()
        Else
            MsgBox("Maaf Nama & Password Salah")
        End If
    End Sub
End Class

Public Class GajiPegawai

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        jabatan.Items.Add("Kepala Bagian")
        jabatan.Items.Add("Staf")
        jabatan.Items.Add("Mandor")
        kerja.Items.Add("Lembur")
        kerja.Items.Add("Tidak Lembur")
        For i = 1 To 8
            jamlembur.Items.Add(i)
        Next
        status.Items.Add("Menikah")
        status.Items.Add("Belum Menikah")
        kerja.Enabled = False
        jamlembur.Enabled = False
        status.Enabled = False
        jmlanak.Enabled = False
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
        LV.Columns.Add("Nama", 150, HorizontalAlignment.Left)
        LV.Columns.Add("Jabatan", 120, HorizontalAlignment.Left)
        LV.Columns.Add("Gaji Pokok", 120, HorizontalAlignment.Left)
        LV.Columns.Add("Kerja", 120, HorizontalAlignment.Left)
        LV.Columns.Add("Jam Lembur", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Upah Lembur", 120, HorizontalAlignment.Left)
        LV.Columns.Add("Status", 120, HorizontalAlignment.Left)
        LV.Columns.Add("Tunjangan Istri", 120, HorizontalAlignment.Left)
        LV.Columns.Add("Jumlah Anak", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Tunjangan Anak", 120, HorizontalAlignment.Left)
        LV.Columns.Add("Pajak", 120, HorizontalAlignment.Left)
        LV.Columns.Add("Total Gaji", 120, HorizontalAlignment.Left)
    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        Select Case jabatan.Text
            Case "Kepala Bagian"
                gajipokok.Text = 2500000
            Case "Staf"
                gajipokok.Text = 1250000
            Case "Mandor"
                gajipokok.Text = 1750000
        End Select
        pajak.Text = gajipokok.Text * 0.015
        kerja.Enabled = True
    End Sub

    Private Sub kerja_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kerja.SelectedIndexChanged
        Select Case kerja.Text
            Case "Lembur"
                jamlembur.Enabled = True
            Case "Tidak Lembur"
                upahlembur.Text = 0
                jamlembur.Enabled = False
                jamlembur.Text = 0
        End Select
    End Sub


    Private Sub jamlembur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jamlembur.SelectedIndexChanged
        Select Case jabatan.Text
            Case "Kepala Bagian"
                upahlembur.Text = 7500 * jamlembur.Text
            Case "Staf"
                upahlembur.Text = 5000 * jamlembur.Text
            Case "Mandor"
                upahlembur.Text = 10000 * jamlembur.Text
        End Select
        status.Enabled = True
    End Sub
    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        Select Case status.Text
            Case "Menikah"
                tunjistri.Text = gajipokok.Text * 0.09
                jmlanak.Enabled = True
            Case "Belum Menikah"
                tunjistri.Text = 0
                tunjanak.Text = 0
                jmlanak.Enabled = False
                jmlanak.Text = 0
        End Select
    End Sub

    Private Sub jmlanak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmlanak.TextChanged
        If Val(jmlanak.Text) = 1 Then
            tunjanak.Text = gajipokok.Text * 0.03
        ElseIf Val(jmlanak.Text) >= 2 Then
            tunjanak.Text = gajipokok.Text * 0.07
        End If
        If jmlanak.Text = "" Then
            tunjanak.Text = ""
        End If


    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        totgaji.Text = Val(gajipokok.Text) + Val(upahlembur.Text) + Val(tunjistri.Text) + Val(tunjanak.Text) - Val(pajak.Text)
    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        Dim LVitem As New ListViewItem
        LVitem.Text = nama.Text
        LVitem.SubItems.Add(jabatan.Text)
        LVitem.SubItems.Add("Rp. " & gajipokok.Text)
        LVitem.SubItems.Add(kerja.Text)
        LVitem.SubItems.Add(jamlembur.Text)
        LVitem.SubItems.Add("Rp. " & upahlembur.Text)
        LVitem.SubItems.Add(status.Text)
        LVitem.SubItems.Add("Rp. " & tunjistri.Text)
        LVitem.SubItems.Add(jmlanak.Text)
        LVitem.SubItems.Add("Rp. " & tunjanak.Text)
        LVitem.SubItems.Add("Rp. " & pajak.Text)
        LVitem.SubItems.Add("Rp. " & totgaji.Text)
        LV.Items.Add(LVitem)
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        nama.Text = ""
        jabatan.Text = ""
        kerja.Text = ""
        jamlembur.Text = ""
        status.Text = ""
        jmlanak.Text = ""
        gajipokok.Text = 0
        upahlembur.Text = 0
        tunjistri.Text = 0
        tunjanak.Text = 0
        pajak.Text = 0
        totgaji.Text = 0
        nama.Focus()
    End Sub

    Private Sub hapusterpilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusterpilih.Click
        LV.Items.Remove(LV.FocusedItem)
    End Sub

    Private Sub hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussemua.Click
        LV.Items.Clear()
    End Sub
End Class

 

Jawaban SOAL 2 (Ardianti Harahap)

Kasus : Klik Disini

Public Class Form1
    Sub BuatTable()
        list.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        list.Columns.Add("Nama", 100, HorizontalAlignment.Left)
        list.View = View.Details
        list.GridLines = True
        list.FullRowSelect = True
    End Sub
    Sub IsiTable()
        Dim lst As New ListViewItem
        lst.Text = npm.Text
        lst.SubItems.Add(nama.Text)
        list.Items.Add(lst)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTable()
    End Sub
    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        IsiTable()
        nama.Text = ""
        npm.Text = ""
    End Sub
    Private Sub btnHapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapusSemua.Click
        list.Items.Clear()
    End Sub
    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        list.Items.Remove(list.SelectedItems(0))
    End Sub
End Class

Bismillahirrahmanirrahim.. 

Alhamdulillaah, yah.. *kena virus syahrini, walaupun ini hari kuliah yang dijalani, tapi mumpung ada waktu istirahat bentar sebelum harus 'semedi' lagi di malam hari, saya sempatkan sore ini untuk bercerita tentang dunia perkuliahan yang baru saja saya jalani.. *horeee.

Bagaimana rasanya jadi mahasiswi? 

Rasanya jadi mahasiswi itu pusing. Udah pusing mikirin kuliahnya, ditambahin lagi harus pusing tiap hari mau pake 'kostum' apa. Saya, yang notabene-nya bukan orang yang fashionable dan kayaknya dari dulu kostum saya selalu dimeriahkan dengan nuansa suram, harus senantiasa putar otak memikirkan apakah baju ini pantas dipakai, atau sudah terlalu sering kah saya memakainya. Belum lagi saya harus pandai-pandai mengatur waktu antara kuliah - urusan anak kost (meliputi : nyapu, ngepel, nyuci, nyetrika) - belajar mandiri - nambah ilmu syar'i - ibadah. Pokoknya dunia baru ini membuat saya benar-benar bermetamorfosis. Dari anak rumahan yang biasanya apa-apa sudah tersedia, menjadi anak mandiri yang semuanya harus diurus sendiri. Saya merasa bagaikan kepompong yang baru menetas menjadi kupu-kupu cantik yang siap terbang ke langit tinggi.

• Manusia tak lepas dari problema, permasalahan dan dinamika kehidupan. Hanya orang-orang yang mampu menyikapi dengan bijak lah yang mampu bertahan.

• Lebih mudah untuk melawan ribuan orang bersenjata lengkap dibandingkan melawan kesombongan diri sendiri.

• Betapa sulitnya manusia bersyukur atas nafas yang masih berhembus di badan. Namun betapa mudahnya manusia mengeluh hanya karena kakinya menginjak kotoran.