Soal 2 (Dio Nugraha)

Ketentuan soal 2


Listing Program:

Public Class Form1
    Sub buattabel()
        LV.Columns.Add("npm", 70, HorizontalAlignment.Center)
        LV.Columns.Add("nama", 180, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub

    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = npm.Text
        lst.SubItems.Add(nama.Text)
        LV.Items.Add(lst)
    End Sub

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

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
        isitabel()
        npm.Text = ""
        nama.Text = ""
    End Sub

    Private Sub Btnhapussem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussem.Click
        LV.Items.Clear()
    End Sub

    Private Sub Btnhapuspil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapuspil.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub
End Class

Jawaban SOAL 3 (Dio Nugraha)

Ketentuan soal 3

Listing program


Public Class FormLogint

    Private Sub Btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnok.Click
        If Username.Text = "Dio" And Password.Text = "99" Then
            FormMenu.Show()
            Me.Hide()
        Else
            MsgBox("Maaf! Password salah!")
            Username.Text = ""
            Password.Text = ""
        End If
    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        End
    End Sub
End Class

Hasil progrm

Listing program

Public Class FormMenu

    Private Sub PenggajianKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PenggajianKaryawanToolStripMenuItem.Click

        pegawai.Show()

    End Sub

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

        End

    End Sub

End Class

Hasil program

Listing program

Public Class pegawai

    Sub buattabel()

        LV.Columns.Add("NIK", 50, HorizontalAlignment.Center)

        LV.Columns.Add("Nama", 100, HorizontalAlignment.Left)

        LV.Columns.Add("Jabatan", 70, HorizontalAlignment.Left)

        LV.Columns.Add("Gaji Pokok", 70, HorizontalAlignment.Left)

        LV.Columns.Add("Status", 70, HorizontalAlignment.Left)

        LV.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Tunjangan Istri", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Tunjangan Anak", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Pajak", 70, HorizontalAlignment.Left)

        LV.Columns.Add("Lembur", 70, HorizontalAlignment.Left)

        LV.Columns.Add("Jam Lembur", 70, HorizontalAlignment.Left)

        LV.Columns.Add("Total Gaji", 70, HorizontalAlignment.Left)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim Lst As New ListViewItem

        Lst.Text = NIK.Text

        Lst.SubItems.Add(Nama.Text)

        Lst.SubItems.Add(jabatan.Text)

        Lst.SubItems.Add(gapok.Text)

        Lst.SubItems.Add(Stts.Text)

        Lst.SubItems.Add(J_Ank.Text)

        Lst.SubItems.Add(T_Istri.Text)

        Lst.SubItems.Add(T_Ank.Text)

        Lst.SubItems.Add(pajak.Text)

        Lst.SubItems.Add(lembur.Text)

        Lst.SubItems.Add(lemb.Text)

        Lst.SubItems.Add(Total.Text)

        LV.Items.Add(Lst)

    End Sub

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

        buattabel()

        jabatan.Items.Add("Mandor")

        jabatan.Items.Add("Kepala Bagian")

        jabatan.Items.Add("Staf")

        NIK.Items.Add("111")

        NIK.Items.Add("222")

        NIK.Items.Add("333")

        NIK.Items.Add("444")

        Stts.Items.Add("MENIKAH")

        Stts.Items.Add("BELUM MENIKAH")

    End Sub

    Sub clearisian()

        NIK.Text = ""

        Nama.Text = ""

        jabatan.Text = ""

        gapok.Text = ""

        Stts.Text = ""

        J_Ank.Text = ""

        T_Istri.Text = ""

        T_Ank.Text = ""

        pajak.Text = ""

        lemb.Text = ""

        lembur.Text = ""

        Total.Text = ""

        NIK.Focus()

    End Sub

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

        If jabatan.Text = "Mandor" Then

            gapok.Text = 1750000

        ElseIf jabatan.Text = "Kepala Bagian" Then

            gapok.Text = 2500000

        ElseIf jabatan.Text = "Staf" Then

            gapok.Text = 1250000

        Else

            gapok.Text = 0

        End If

    End Sub

    Private Sub Stts_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Stts.SelectedIndexChanged

        If Stts.Text = "BELUM MENIKAH" Then

            T_Istri.Text = 0

            T_Ank.Text = 0

            J_Ank.Text = 0

        ElseIf Stts.Text = "MENIKAH" Then

            T_Istri.Text = 0.9 / 100 * gapok.Text

        End If

    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click

        If J_Ank.Text = 1 Then

            T_Ank.Text = J_Ank.Text * (0.3 / 100 * gapok.Text)

        ElseIf J_Ank.Text >= 2 Then

            T_Ank.Text = J_Ank.Text * (0.7 / 100 * gapok.Text)

        End If

        pajak.Text = Val(1.5 / 100 * gapok.Text)

        Total.Text = Val(gapok.Text) + Val(T_Ank.Text) + Val(T_Istri.Text) + Val(lembur.Text) - Val(pajak.Text)

        isitabel()

        NIK.Text = ""

        Nama.Text = ""

        jabatan.Text = ""

        gapok.Text = ""

        Stts.Text = ""

        J_Ank.Text = ""

        T_Istri.Text = ""

        T_Ank.Text = ""

        pajak.Text = ""

        lembur.Text = ""

        lemb.Text = ""

        Total.Text = ""

    End Sub

    Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged

        If NIK.Text = "111" Then

            Nama.Text = "DIO"

        ElseIf NIK.Text = "222" Then

            Nama.Text = "HAMDAN"

        ElseIf NIK.Text = "333" Then

            Nama.Text = "SYAHRIL"

        ElseIf NIK.Text = "444" Then

            Nama.Text = "AYU"

        End If

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        Call clearisian()

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

        End

    End Sub

    Private Sub gapok_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gapok.TextChanged

    End Sub

    Private Sub lemb_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lemb.TextChanged

        If jabatan.Text = "Mandor" Then

            lembur.Text = lemb.Text * 7500

        ElseIf jabatan.Text = "Kepala Bagian" Then

            lembur.Text = lemb.Text * 1000

        ElseIf jabatan.Text = "Staf" Then

            lembur.Text = lemb.Text * 5000

        Else

            lembur.Text = 0

        End If

    End Sub

End Class

Hasil program

my story 5

lanjut cerita yg terakhir utk hri ne...
habis pulang kuliah tmpat kwan beli nasi bungkus mkan d rumah rame2, truz cobain game bola baru susah tpi seru asik dan membingungkan, maen game smbil nunggu hujan brhenti stelah hujan brhenti saya dan tema2 saya pulang ke rumah naek angkot, angkotnya padet bokong saya jdi sakit stelah smpai d rumah saya langsung instal game baru stelah ntu saya online lge..
skian dan trima kasih.

my story 4

ntah pa lge yg mau saya tulis, bingung...
capek deehh...
nonton tv tpi acar gk ad yg enak...
hadeehh

my story 3

biasanya klo habis tidur sinag saya langsung online klo sinyal lge buruk saya online tengah2 mlam truz smpek pagi deehh...
klo udh mlam ntu kan suka laper jdi klo ad mkanan d meja mkan saya mkan aj pa yg ad di meja mkan, laper...

my story 2

biasanya klo abis pulang kuliah saya langsung buka laptop truz maen game ampek muntah, stelah ntu mkan duduk bntar truz tidur deehh...

my story 1

saya seorang MHS di STMIK BUDIDARMA semester 5, pagi hari saya pergi ke kampus mau belajar setelah pulang dari kampus saya ngumpul sama teman2 mkan siang, shabis ntu kami prgi ke tmpat teman kami lakukan hal2 yg gk jelas tpi bikin seru dan asik2 bget dan kgak bikin stres...