Jawaban Quiz Visual Basic

Jawaban Soal No.2

Kasus

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 simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        isitabel()

        npm.Text = ""

        nama.Text = ""

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        lv.Items.Clear()

    End Sub

    Private Sub hapusyangdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusyangdipilih.Click

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

    End Sub

End Class

 Jawaban Soal No.3

 Kasus

 

Public Class Form1

    Private Sub ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ok.Click

        If username.Text = "Mentari" And password.Text = "111" Then

            Formmenu.Show()

            Me.Hide()

        Else

            MsgBox("Maaf, Password Anda 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

Public Class Formmenu

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

        End

    End Sub

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

        Karyawan.Show()

        Me.Hide()

    End Sub

End Class

Public Class Karyawan

    Sub llembur()

        uanglembur.Text = Val(jamlembur.Text) * Val(lembur.Text)

    End Sub

    Sub totalgaji()

        total.Text = Val(gaji.Text) + Val(tunjanganistri.Text) + Val(tunjangananak.Text) + Val(uanglembur.Text) - Val(pajak.Text)

    End Sub

    Sub buattabel()

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

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

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

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

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

        LV.Columns.Add("Tunj.Istri", 70, HorizontalAlignment.Left)

        LV.Columns.Add("JumlahAnak", 75, HorizontalAlignment.Left)

        LV.Columns.Add("Tunj.Anak", 70, HorizontalAlignment.Left)

        LV.Columns.Add("JamLembur", 75, HorizontalAlignment.Left)

        LV.Columns.Add("UangLemburPerjam", 115, HorizontalAlignment.Left)

        LV.Columns.Add("UangLembur", 77, HorizontalAlignment.Left)

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

        LV.Columns.Add("Total", 70, 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(tunjanganistri.Text)

        lst.SubItems.Add(jumlahanak.Text)

        lst.SubItems.Add(tunjangananak.Text)

        lst.SubItems.Add(jamlembur.Text)

        lst.SubItems.Add(lembur.Text)

        lst.SubItems.Add(uanglembur.Text)

        lst.SubItems.Add(pajak.Text)

        lst.SubItems.Add(total.Text)

        LV.Items.Add(lst)

    End Sub

    Private Sub Karyawan_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")

        status.Items.Add("Menikah")

        status.Items.Add("Belum Menikah")

        jumlahanak.Items.Add("1")

        jumlahanak.Items.Add("2")

        jumlahanak.Items.Add("3")

        jumlahanak.Items.Add("4")

        jumlahanak.Items.Add("5")

        jumlahanak.Items.Add("6")

    End Sub

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

        If nip.Text = "01011010" Then

            nama.Text = "Ucok"

        ElseIf nip.Text = "01011012" Then

            nama.Text = "Dian S"

        End If

    End Sub

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

        If jabatan.Text = "Mandor" Then

            gaji.Text = 1750000

            lembur.Text = 7500

        ElseIf jabatan.Text = "Kepala Bagian" Then

            gaji.Text = 2500000

            lembur.Text = 10000

        ElseIf jabatan.Text = "Staf" Then

            gaji.Text = 1250000

            lembur.Text = 5000

        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

            tunjanganistri.Text = 0.09 * Val(gaji.Text)

            tunjanganistri.Enabled = True

            jumlahanak.Enabled = True

            tunjangananak.Enabled = True

        ElseIf status.Text = "Belum Menikah" Then

            tunjanganistri.Enabled = False

            jumlahanak.Enabled = False

            tunjangananak.Enabled = False

        End If

    End Sub

    Private Sub jumlahanak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahanak.SelectedIndexChanged

        If jumlahanak.Text = "1" Then

            tunjangananak.Text = 0.03 * Val(gaji.Text)

        ElseIf jumlahanak.Text >= "2" Then

            tunjangananak.Text = 0.07 * Val(gaji.Text)

        End If

    End Sub

    Private Sub gaji_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gaji.TextChanged

        pajak.Text = 0.015 * Val(gaji.Text)

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        isitabel()

        nip.Text = ""

        nama.Text = ""

        jabatan.Text = ""

        gaji.Text = ""

        status.Text = ""

        tunjanganistri.Text = ""

        jumlahanak.Text = ""

        tunjangananak.Text = ""

        pajak.Text = ""

        total.Text = ""

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        nip.Text = ""

        nama.Text = ""

        jabatan.Text = ""

        gaji.Text = ""

        status.Text = ""

        tunjanganistri.Text = ""

        jumlahanak.Text = ""

        tunjangananak.Text = ""

        lembur.Text = ""

        jamlembur.Text = ""

        uanglembur.Text = ""

        pajak.Text = ""

        total.Text = ""

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        LV.Items.Clear()

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        totalgaji()

    End Sub

 

    Private Sub jamlembur_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jamlembur.TextChanged

        llembur()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        End

    End Sub

End Class

Cerpen

Aku Ingin Kau Memahamiku ...

Huh! Laki-laki memang tak pernah bisa mengerti apa maunya perempuan! Tak terkecuali Abang, lelaki yang hampir empat tahun ini menjalin kasih denganku. Bayangkan saja, sudah hampir empat tahun lamanya kami bersama, dia tetap tidak mengerti isyarat-isyarat yang sengaja aku berikan padanya. Empat tahun bukanlah waktu yang sebentar. Itu kan berarti hampir 48 bulan alias 1.460 hari! Berarti, kalau dikalkulasikan, setidaknya kami sudah menghabiskan masa waktu 35.040 jam dikurangi waktu tidur kami yang delapan jam dan waktu-waktu di mana kami sedang repot dengan urusan masing-masing, berarti setidaknya sudah 20.000-an jam kami habiskan bersama-sama. Tapi, dari sederet angka tadi rasanya masih kurang cukup untuk membuat Abang memahamiku. Yang ada, malah Abang seringkali bilang, “Kamu kok susah banget dimengerti, sih, Dek?!” Huh! Basi!

Contohnya saja sore ini, di mana sudah seharian aku cemas menunggu kabar darinya. Sudah berpuluh kali aku meneleponnya tapi ponselnya tak kunjung aktif. Beberapa SMS juga sudah kulayangkan, dari mulai yang romantis sampai yang isinya hampir sadis, tapi tak satupun dibalas. Terang saja aku panik dan cemas, pasalnya Abang sudah berjanji padaku kalau hari ini ia akan menemaniku nonton, tapi sampai sekarang kok tidak ada kabar sama sekali?

Pikiranku sudah dipenuhi berbagai macam kemungkinan. Apa Abang masih tidur karena pusing akibat kehujanan waktu pulang dari rumahku kemarin? Atau, apa ponsel Abang kecopetan? Atau, jangan-jangan Abang lagi selingkuh sampai-sampai ponselnya sengaja dimatikan? Atau... ada yang tidak beres? Hii, ngeri sendiri rasanya aku membayangkan yang tidak-tidak. Makanya seharian aku hanya bisa duduk di sofa sambil menonton HBO seharian dan menelepon terus-terusan mencoba men-dial nomer ponsel Abang yang sudah kuhapal. Tiba-tiba saja, sekitar pukul 17.20, teleponku tersambung. Aku yang duduk malas dengan mata mengantuk, langsung bangkit terjaga dan menanti dengan deg-degan. Begitu suara Abang yang berat terdengar di ujung sana, aku langsung membombardirnya dengan sejuta pertanyaan.

“Bang, kamu di mana, sih? Adek tuh udah neleponin kamu seharian tapi enggak nyambung-nyambung. Adek kirim SMS kok enggak dibales-bales? Abang tau enggak, Adek cemas banget?! Adek sampe enggak bisa ngapa-ngapain seharian gara-gara nungguin Abang. Kan katanya Abang mau nemenin Adek nonton, gimana sih?!”

Aku terdiam, mengambil napas. Sesaat, tak terdengar respon dari ujung sana. Malahan, tiba-tiba saja aku mendengar suara Abang yang sedang asyik ngobrol dengan seorang laki-laki.

“...Itu velg-nya udah rapi, kan?”

“Oh, tenang aja, Mas.”

Aku bengong.

“Bang? Abang???”

“Iya, Dek?” suara Abang kembali terdengar.
“Abang lagi ngapain, sih?”

“Bentar, bentar, Dek, Abang lagi di bengkel, nih, ganti velg. Bentar ya....”

Dan Abang pun kembali ngobrol dengan tukang velg itu. Dan aku, pacarnya selama hampir empat tahun ini, dicuekin begitu aja!
“Glek! Berarti dari tadi aku ngomong panjang lebar sama sekali enggak didengerin sama Abang? Arrrgggghhhh!,” makiku dalam hati.
Setelah beberapa lama, suara Abang kembali terdengar. “Kenapa, Dek?”

Aku sungguh heran dengan sikap santai yang jelas-jelas tercermin di dalam suara Abang.
“Bang, dari tadi Adek telepon kok enggak nyambung-nyambung?,” serangku.

“Duh, maaf, Dek, tadi HP Abang ketinggalan. Ini juga baru aja disusulin sama Raffi,” katanya, masih dengan ketenangan tingkat tinggi yang membuatku semakin kesal.

“Jadi Abang di bengkel sama Raffi?,” tanyaku menyelidik sambil menyebutkan nama adik kandung Abang yang masih duduk di bangku SMA itu. “Terus, kenapa SMS Adek enggak dibalas?”

“Maaf, Dek, Abang lupa isi pulsa,” katanya.

“Apa????? Lupa isi pulsa? Enggak tau apa orang cemas setengah mati dari tadi?,” batinku.

“Kenapa enggak minjem HP Raffi untuk SMS? Atau, Abang kan bisa cari wartel atau telepon umum untuk ngabarin Adek?,” tanyaku

Abang tergelak, “Sorry, Dek, enggak kepikiran!”

Aku melengos kesal. “Abang lupa ya kalo hari ini Abang janji mau nemenin Adek nonton?,” rajukku.

“Maaf, Dek, Abang bukannya lupa. Tapi tiba-tiba mobil Abang ngadat, makanya Abang ke bengkel.”

“Lho, tadi katanya ganti velg, sekarang bilangnya mobilnya ngadat. Yang mana yang bener, sih?,” suaraku semakin meninggi.

“Ya tadi mesinnya ngadat. Terus, karena udah di bengkel, ya Abang sekalian ganti velg aja.”

Aku langsung cemberut.

“Nontonnya besok aja, ya, Dek, kan bisa sekalian nomat!,” bujuk Abang.

“Tapi besok kan Adek ada UTS, Bang. Mana bisa enak-enakan nomat.”

“Ya udah, begitu kamu pulang UTS, Abang jemput deh ke kampus. Terus, dari sana kita nonton, oke?”

Dan begitulah, acara kencan kami pun gagal cuma gara-gara Abang ke bengkel demi memperbaiki mobilnya yang ngadat dan sekalian mengganti velg-nya.

Kadang-kadang aku merasa aneh juga. Masa sih aku harus cemburu dengan kecintaan Abang pada mobilnya atau pada kesenangannya naik gunung, misalnya? Tapi, wajar kan kalau aku cemburu, aku ini kan pacarnya? Pacar yang hampir empat tahun ini menemani Abang, berbagi suka dan duka bersama. Pacar yang punya perasaan dan seharusnya lebih membutuhkan perhatian Abang ketimbang mobil dan hobi naik gunungnya.

Ya, laki-laki memang sulit mengerti apa maunya perempuan!
***.

Keesokan harinya, aku berangkat ke kampus dengan ceria. Malahan aku sengaja berdandan karena aku tahu, sepulang UTS aku akan nonton bersama Abang. Tapi ternyata, lagi-lagi aku kecewa. Mobil Abang tak terlihat di lapangan parkir kampusku! Aku pun segera menelepon Abang.

“Bang, di mana?”

“Di rumah,” jawabnya cuek.

Jleb!! Rasanya ada sebilah pisau yang menusuk dadaku saat itu juga. Sementara aku sudah berdandan habis dan menanti-nanti acara kencan dengannya, Abang malah kelupaan dengan janjinya menjemputku di kampus!

“Abang tuh udah mulai pikun atau udah enggak sayang lagi, sih, sama Adek?,” semprotku langsung begitu aku duduk di jok depan mobil Abang, satu jam kemudian. Terik siang dan rasa kesal telah membuat dandananku berantakan. Tapi aku sudah tak peduli. Niat untuk kencan dengan Abang sudah meluap pergi entah ke mana.

“Maaf, Dek. Abang tadi ketiduran. Kamu sih enggak bangunin Abang,” katanya ngeles.
“Bangunin gimana? Aku kan lagi UTS, Bang!! Mana bisa seenaknya nelepon Abang?”

Abang tertawa kecil, “Oh iya, ya? Maaf, deh. Kampus kita kan beda, makanya Abang enggak tau jadwal UTS kamu. Makanya, lain kali kamu SMS Abang, dong, untuk konfirmasi!”

Aku semakin sebal. “Jadi sekarang Adek yang salah?!”

Abang memandangku sambil menahan tawa. “Kamu kalau marah semakin cantik, deh!,” godanya.

“Iiih, udah tau orang ngambek, masih aja dibecandain!,” pikirku kesal. Aku hanya cemberut, tidak merespon.

“Ya udah, kita nonton di mana sekarang?,” tanya Abang.

“Enggak usah!,” bentakku, “Adek udah enggak mood nonton sama Abang!”

“Mana bisa?,” kata Abang, “Bisa-bisa Abang diputusin sama kamu karena enggak nepatin janji ngajakin kamu nomat hari ini.”

Aku tak menjawab. Malas. Aku hanya bisa memperhatikan jalanan sementara mobil Abang terus melaju menuju kawasan Pondok Indah.
***
“Udah nyampe, Dek,” kata Abang sambil mematikan mesin. Ia menarik bahuku hingga aku menghadap ke arahnya tepat sebelum aku sempat menghapus air mata yang tak bisa lagi aku bendung di pelupuk mataku. Sempat kulihat ekspresi kagetnya melihat air mataku. Namun aku tak peduli. Aku segera memalingkan wajah, berpura-pura tegar.

“Kamu nangis, Dek?” Abang kembali memutar tubuhku.

“Enggak!,” aku kembali berbalik.
Abang memutar tubuhku dengan lembut dan mematri bahuku dengan kedua lengan kekarnya, agar aku tak dapat menghindar lagi. “Coba Abang liat. Kok Adek Abang yang cantik nangis, sih? Dandanannya luntur, tuh!,” candanya.

Bukannya tertawa, aku malah menangis semakin menjadi. “Abang tuh beneran udah enggak sayang, ya, sama Adek?”

Abang nampak kaget, namun terus berusaha tenang, “Kok Adek ngomongnya gitu sih?”

“Abis Abang tuh enggak pernah ngertiin Adek. Adek tuh rasanya udah enggak pernah diperhatiin lagi sama Abang. Abang udah enggak nganggap Adek istimewa lagi. Enggak kayak dulu pas awal kita pacaran, Abang sekarang suka lupa sama janji Abang ke Adek. Abang lebih milih ke bengkel atau naik gunung daripada berduaan dengan Adek! Abang tuh lupa, ya, minggu lalu tuh kita enggak ketemuan karena Abang naik gunung sama temen-temen Abang?! Makanya kemarin Adek ngajakin Abang nonton, biar kita bisa ketemuan. Eh, Abang malah lebih milih ke bengkel daripada ketemu sama Adek! Adek sebel! Abang udah enggak sayang lagi sama Adek!,” cerocosku panjang lebar.

Abang memperhatikanku dengan ekspresi shock. Mungkin ia tak menyangka kalau masalahnya ternyata serumit itu. Tapi, biarlah, daripada aku memendam sendiri semua kekesalanku, lebih baik aku tumpahkan saja semuanya.

Beberapa saat lamanya, Abang tidak merespon. Ia mengusap air mata di pipiku dengan lembut dan tersenyum.

“Adek enggak boleh bilang kayak gitu. Abang tuh sayang banget sama Adek! Abang mau ikut temen-temen Abang naik gunung minggu lalu karena Abang mau ngasihin ini sama kamu,” katanya sambil mengambil sebuket bunga edelweiss di jok belakang mobil. Aku tersentak kaget.

“Adek lupa, ya, kalau Adek pernah nitip bunga edelweiss sama Abang kalau Abang naik gunung? Kan Adek sendiri yang bilang sama Abang, kalau bunga edelweiss ini melambangkan cinta yang abadi. Soal kemarin, Abang juga sebenernya sengaja menunda waktu ketemuan kita sampai hari ini biar Abang bisa ngasihin bunga edelweiss ini ke Adek tepat di hari jadi kita yang keempat tahun. Abang juga sengaja ngebetulin mobil karena Abang enggak mau waktu Abang jalan sama Adek, mobil ini ngadat di tengah jalan. Abang mau hari ini jadi hari yang istimewa, karena hari ini genap empat tahun sudah Adek jadi pacar Abang, jadi sahabat Abang yang paling baik, yang paling mengerti Abang.”

Aku tercenung. Jadi, hari ini...? Ya Tuhan, saking kesalnya akan tingkah laku Abang akhir-akhir ini, aku sampai lupa kalau hari ini adalah hari jadi kami yang keempat tahun! Hari ke-1.460 dalam hubungan kami yang begitu berharga ini. Perasaanku campur aduk, rasanya. Aku tak bisa berkata-kata. Yang bisa kulakukan hanyalah menangis.

“Yah, Dek, kok malah nangis lagi?,” tanya Abang panik. “Adek enggak suka, ya, sama bunga edelweiss-nya?”

Aku tertawa geli. Ternyata, setelah empat tahun kebersamaan kami, Abang masih belum bisa mengerti apa mauku. Ia masih kurang memahami isyarat-isyarat yang sengaja kuberikan padanya. Tapi, tak apalah. Selama Abang menyayangiku, aku toh akan tetap mencoba memahaminya dan membuat ia memahami diriku