Jawaban soal 3 (Luckyana puspita sari)

soal no.3

listing program login:


Public Class Form1

    Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click
        If nama.Text = "lucky" And password.Text = "ulqui0rra" Then
            formmenu.Show()
            Me.Hide()
        Else
            MsgBox("Maaf! Password salah!")
            nama.Text = ""
            password.Text = ""
        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

hasil program:

listing program menu:

Public Class formmenu

    Private Sub DataPenggajianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPenggajianToolStripMenuItem.Click
        penggajian.show()
    End Sub

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

hasil program:

listing program penggajian: 

Public Class penggajian

    Sub buattabel()

        lv.Columns.Add("Nip", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Nama Pegawai", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Jabatan", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Gaji", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Status", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Tunj Istri", 80, HorizontalAlignment.Left)

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

        lv.Columns.Add("Tunj Anak", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Jam", 50, HorizontalAlignment.Left)

        lv.Columns.Add("Lembur", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Pajak", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Total Gaji", 80, HorizontalAlignment.Left)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim Lst As New ListViewItem

        Lst.Text = nip.Text

        Lst.SubItems.Add(nama.Text)

        Lst.SubItems.Add(Jabatan.Text)

        Lst.SubItems.Add(Gaji.Text)

        Lst.SubItems.Add(Status.Text)

        Lst.SubItems.Add(jlh_anak.Text)

        Lst.SubItems.Add(tunj_istri.Text)

        Lst.SubItems.Add(tunj_anak.Text)

        Lst.SubItems.Add(Jam.Text)

        Lst.SubItems.Add(lembur.Text)

        Lst.SubItems.Add(Pajak.Text)

        Lst.SubItems.Add(total_gaji.Text)

        lv.Items.Add(Lst)

    End Sub

    Sub clearisian()

        nip.Text = ""

        nama.Text = ""

        jabatan.Text = ""

        gaji.Text = ""

        status.Text = ""

        tunj_istri.Text = ""

        jlh_anak.Text = ""

        tunj_anak.Text = ""

        jam.Text = ""

        lembur.Text = ""

        pajak.Text = ""

        total_gaji.Text = ""

        nip.Focus()

    End Sub

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

        buattabel()

        nip.Items.Add("001")

        nip.Items.Add("002")

        nip.Items.Add("003")

        jabatan.Items.Add("MANDOR")

        jabatan.Items.Add("KEPALA BAGIAN")

        jabatan.Items.Add("STAF")

        status.Items.Add("MENIKAH")

        status.Items.Add("TIDAK MENIKAH")

        

    End Sub

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

        End

    End Sub

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

        isitabel()

    End Sub

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

        Call clearisian()

    End Sub

    Private Sub nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nip.SelectedIndexChanged

        If nip.Text = "001" Then

            nama.Text = "Luckyana"

        ElseIf nip.Text = "002" Then

            nama.Text = "Riza mochtar"

        ElseIf nip.Text = "003" Then

            nama.Text = "ghefira"

        End If

    End Sub

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

        If jabatan.Text = "MANDOR" Then

            gaji.Text = 1750000

        ElseIf jabatan.Text = "KEPALA BAGIAN" Then

            gaji.Text = 2500000

        ElseIf jabatan.Text = "STAF" Then

            gaji.Text = 1250000

        End If

    End Sub

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

        If status.Text = "MENIKAH" Then

            tunj_istri.Text = (0.09 * gaji.Text)

        ElseIf status.Text = "TIDAK MENIKAH" Then

            tunj_istri.Text = 0

        End If

    End Sub

    Private Sub btnoke_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnoke.Click

        If jlh_anak.Text = 1 Then

            tunj_anak.Text = (0.03 * gaji.Text)

        ElseIf jlh_anak.Text >= 2 Then

            tunj_anak.Text = (0.07 * gaji.Text)

        End If

        If jabatan.Text = "STAF" Then

            lembur.Text = jam.Text * 5000

        ElseIf jabatan.Text = "MANDOR" Then

            lembur.Text = jam.Text * 7500

        ElseIf jabatan.Text = "KEPALA BAGIAN" Then

            lembur.Text = jam.Text * 10000

        End If

        pajak.Text = (0.015 * gaji.Text)

        total_gaji.Text = Val(gaji.Text) + Val(tunj_istri.Text) + Val(tunj_anak.Text) + Val(label12.Text) - Val(pajak.Text)

    End Sub

    Private Sub btnhapusdtaygdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdtaygdipilih.Click

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

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

        lv.Items.Clear()

    End Sub

End Class

hasil program:

Jawaban soal 2 (luckyana puspita sari)

kembali ke soal 2

listing program


Public Class Form1
    Sub buattabel()
        lv.Columns.Add("npm", 80, 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 btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        lv.Items.Clear()
    End Sub

    Private Sub btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub
End Class

hasil program:

kisah 3 vampire

nah ne adalah cerita tentang kisah vampire.
saya dapat cerita ini dari buku yang pernah saya baca.

jadi ceritanya, ada 3 vampire sedang beradu ketangkasan, siapa yang paling sadis dan menyeramkan.
vampire 1 yang paling tua berkata"gue mau loe" pada liatin aksi gue,. vampire yang laen pun mengangguk.
vampire 1 pergi dengan secepat kilat dan dalam waktu 2 menit dia sudah kembali dengan mulut berlumuran darah. vampire itu berkata " loe pada liat desa yang di seberang sana?". kedua vampire yang lain mengangguk" liat liat". "desa yang di sana habbbiiissss".
vampire 2 pun gak mau kalah. dia pergi dengan cepat dan hanya dalam waktu 1 menit dia sudah kembali dengan darah di taringnya dan sambil berkata" loe liat kota yang di ujung sana". vampir yg lain pun menjawab" iya kita liat"."kota yang di ujung sana habiiisss, huahahahahahha".
 vampire 3 pun geram dan gak mau kalah, dia pun segera pergi,namun hanya dalam 1/2 menit dia sudah kembali dengan wajah berlumuran darah dan berantakan. vampire yang lain pun memuji ke tangkasan nya karena hanya dalam 1/2 menit dia sudah kembali." vampire yang 3 berkata pada vampire yang lainnya " loe pada liat tiang listrik yg ada di ujung jalan itu?". vampire yang lain menjawab"liat-liat". vampire 3:" sayang gue gak liat".

mengapa harus sesakid ini?

dalam kesedihan aku menangis

aku ingin melihatmu,

aku ingin menatapmu

walau hanya sesaat

   cinta ini terlalu dalam

   hingga sakit yang ku rasa

   cinta ini terlalu sulit

   untuk ku rasakan

mengapa harus menangis?

ketika cinta tak lagi ada

mengapa harus bersedih?

ketika tawa tak lagi ada

   aku menangis karena aku terlalu menyayangimu

   aku tertawa karena aku memilikimu

   aku ingin kamu seutuhnya

   tapi mengapa ini sulit?

   mengapa ini sakit?

inikah aku?

tak bisa lagi tertawa

hanya kepedihan di hati dan kebencian

rasa ini terlalu sakit

hingga aku tak dapat lagi tersenyum.