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.

kura-kura

dan ini lah dia hewan lucu yang paling saya suka..

eheehehheheh

kura-kura

Kura-kura dan penyu adalah hewan bersisik berkaki empat yang termasuk golongan reptil. Bangsa hewan yang disebut (ordo) Testudinata (atau Chelonians) ini khas dan mudah dikenali dengan adanya ‘rumah’ atau batok (bony shell) yang keras dan kaku.

Batok kura-kura ini terdiri dari dua bagian. Bagian atas yang menutupi punggung disebut karapas (carapace) dan bagian bawah (ventral, perut) disebut plastron. Kemudian setiap bagiannya ini terdiri dari dua lapis. Lapis luar umumnya berupa sisik-sisik besar dan keras, dan tersusun seperti genting; sementara lapis bagian dalam berupa lempeng-lempeng tulang yang tersusun rapat seperti tempurung. Perkecualian terdapat pada kelompok labi-labi (Trionychoidea) dan jenis penyu belimbing, yang lapis luarnya tiada bersisik dan digantikan lapisan kulit di bagian luar tempurung tulangnya.

Dalam bahasa Indonesia, kita mengenal tiga kelompok hewan yang termasuk bangsa ini, yalah penyu (bahasa Inggris: sea turtles), labi-labi atau bulus (freshwater turtles), dan kura-kura (tortoises). Dalam bahasa Inggris, dibedakan lagi antara kura-kura darat (land tortoises) dan kura-kura air tawar (freshwater tortoises atau terrapins).

avenged sevenfold

dan ini juga adalah salah satu group band idola saya..

ehehhehe

AVENGED SEVENFOLD

Avenged Sevenfold adalah band Hardrock Amerika dari Huntington Beach, California, yang dibentuk pada tahun 1999. Band ini terdiri dari vokalis M. Shadows, lead guitar Synyster Gates,Zacky Vengeance rhythm guitar, dan bassist Johnny Christ.

Avenged Sevenfold muncul dengan genre metalcore pada debut mereka Sounding the Seventh Trumpet, yang mengandung banya vokal scream. Band ini mengubah gaya mereka di album ketiga mereka dan rilis major label, City of Evil, yang menampilkan vokal melodis dan power ballad. Band ini terus mengeksplorasi suara baru dengan mengeluarkan yang berjudul Avenged Sevenfold dan menikmati kesuksesan mainstream lanjutan sebelum drummer mereka, James "The Rev" Sullivan, meninggal karena penyakit jantung dan dampak gabungan dari obat dan alkohol di tubuhnya pada tahun 2009. Meskipun kematiannya, band ini melanjutkan dengan bantuan kemudian mantan drummer Dream Theater Mike Portnoy untuk merilis dan melakukan tur dalam mendukung Nightmare, album kelima mereka pada tahun 2010 yang memulai debutnya di tempat atas, Billboard 200 yang berada di tempat pertama.

Sampai saat ini, Avenged Sevenfold telah merilis lima album studio, satu album live / kompilasi / DVD, dan enam belas single . Band ini telah menerima banyak penghargaan untuk kesuksesan mainstream di seluruh dunia mereka dan terutama dinyatakan sebagai salah satu pemimpin dan band kunci dalam New Wave of American Heavy Metal dan tampil sebagai tempat kedua di Atas Ultimate Guitar's Top Ten Band Decade.

bertualang ke air terjun dwi warna sibolangit medan

     Di sini saya akan berbagi informasi tentang salah satu tempat wisata yang cukup menyenangkan di daerah Sumatera Utara. Tempat kali ini yang kita bahas adalah Wisata Air Terjun Dwiwarna yang terletak di kawasan bumi perkemahan Sibolangit sekitar 2 jam dari kota Medan. Dari bumi perkemahan Sibolangit itu, kita harus menempuh lagi dengan berjalan kaki selama kurang lebih 1,5 jam melewati hutan belantara.

     Saya pergi bersama sahabat-sahabat saya dengan menyewa sebuah mobil dari Kota Medan. Kami berangkat siang hari sepulang kuliah . Perjalanan menuju Sibolangit cukup menyenangkan terutama pada saat kita memasuki wilayah perbukitan. Dimana nantinya kita akan jumpai pemandangan kota Medan dari atas bukit walaupun sedikit terhalang oleh pepohonan disekitarnya. Sebelum melakukan perjalanan ada baiknya kita menyiapkan perbekalan yang cukup, karena pada saat kita melakukan perjalanan menuju air terjun tersebut kita tidak akan menjumpai orang-orang yang berjualan barang-barang kebutuhan disana (namanya juga hutan,,hee). Jangan menggunakan pakaian yang ribet saat hendak berwisata kesana. Gunakanlah pakaian yang biasa digunakan untuk hiking atau semacamnya karena anda akan "berlumpur ria" saat hendak menuju air terjun tersebut.

     Setelah mobil kami memasuki wilayah perkemahan Sibolangit, Kami pun memarkirkan mobil di tempat pos pemberhentiannya karena perjalanan selanjutnya harus kami tempuh dengan berjalan kaki. Di tempat pos tersebut sudah ada pemandu wisata yang dapat memandu kita untuk menuju air terjun itu dan tentunya dengan biaya sewa pemandunya. Untuk keselamatan, ada baiknya kita menyewa pemandu karena perjalanan menuju air terjun Dwiwarna cukup jauh dan melewati hutan belantara yang kalau kita tidak berhati-hati, kita bisa tersesat. Setelah melakukan negosiasi dengan pemandu wisata terlebih dahulu kami melakukan doa bersama sebelum memasuki areal hutan. Pertama kali memasuki hutan, kami melewati parit-parit kecil yang dialiri air dari pegunungan. 

Perjalanan diteruskan dengan melewati pepohonan yang lebat beserta lumpur. Terkadang kami melewati sungai kecil yang berbatu, namun pada saat itu sungainya tidak sedang dialiri air jadi kami bisa melewati dengan mudah.

     Perjalanannya cukup jauh dan memakan waktu sekitar 1,5 jam. Samar-samar saya mendengar suara serangga hutan dibalik pepohonan. Jalannya pun berupa tanah basah yang berlumpur dan juga terkadang kalau kita tidak hati-hati maka kita bisa tersandung akar-akar pohon yang besar. Selain itu, saya juga menjumpai beberapa pohon yang tumbang karena faktor usia pohon yang sudah tua. Kami juga melewati pinggir jurang dimana kami bisa melihat sungai yang berada di bawah.  Jalan yang kami lewati begitu terjal dan cenderung naik turun. Saya pun berpegangan pada akar-akar apabila jalan tersebut sedang menanjak atau menurun. Karena bila tidak berpegangan kita bisa terpleset dan terjatuh cukup tinggi. Saya menyarankan untuk menggunakan sepatu atau sandal khusus hiking, karena bila menggunakan sandal biasa akan membuat kita kepayahan berjalan karena akan terkena lumpur dan bisa-bisa sandal kita putus. 

     Kami pun sering berhenti sesaat untuk sekedar beristirahat dan sekaligus menunggu rombongan yang tertinggal dibelakang. Pemandu wisata kami memang sudah lama jadi pemandu disitu. Dia pun terus-terusan mengawasi rombongan kami baik yang di depan maupun yang tertinggal di belakang untuk berjaga-jaga jangan sampai ada yang tersesat dan terpisah dari rombongan.. Sesaat sebelum kami sampai ke air terjun, kami melewati turunan tebing yang cukup curam sehingga untuk turun disediakan tali untuk berpegangan.

     Kami pun turun dengan susah payah karena harus membawa beban tas dan perbekalan Saya berpikir kalau kami sudah dekat dengan air terjun Dwiwarna, namun ternyata kami masih harus melakukan perjalanan lagi yang cukup jauh.

     Dengan susah payah kami menempuh perjalanan yang cukup jauh ini .Setelah sekian lama melalui perjalanan yang cukup panjang, akhirnya kami sampai pada air terjun yang kami tuju. Pertama kali melihat saya sangat kagum dengan keindahannya. Air terjun yang berwarna putih bercampur dengan warna biru laut sangat menggugah mata saya. 

 

     Saya pun langsung mengabadikan momen-momen disana dengan kamera telepon genggam. Sebagian yang lain ada yang langsung mandi di dekat air terjun sekaligus berfoto-foto bersama. Saya pun mencoba untuk merasakan langsung air pegunungan ini dan ternyata airnya sangat dingin sekali sehingga kaki saya langsung ngilu bila berlama-lama di dalam air. Walau dingin begitu, ada juga beberapa teman yang berendam dan berenang di dekat air terjun (salut!!!). Sesaat kemudian kami pun makan bekal yang kami sudah persiapkan sebelumnya. Walaupun cuma sekedar nasi bungkus dan makanan ringan kami cukup puas dengan bekal yang kami bawa. Karena di situ tidak ada tempat sampah maka bekas bungkus dari makanan kami itu, kami kumpulkan di tempat api unggun supaya dimusnahkan dengan cara dibakar.

     Setelah puas menikmati keindahan alam air terjun Dwiwarna. Kami pun bergegas pulang karena langit pun juga sudah mendung. Tak jauh dari lokasi air terjun, Perjalanan dengan rute yang sama kami lewati dengan hati.dan terus mengabadikan momen ini, .ahahahah cukup seru dan menegangkan deh pokoknya...

     Akhirnya sampailah kami pada base camp dan hujan pun juga telah reda. Di base camp terdapat kamar mandi untuk bersih-bersih dan berganti pakaian. Kami pun pulang dari tempat itu disaat hari telah gelap. Walau dengan kondisi tubuh yang cukup kelelahan namun kami pulang dengan senyum ceria dan membawa sejumlah cerita seru yang dapat dibagikan dengan teman lainnya.