Tugas Bahasa Pemrograman

Listing Program

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nik.Items.Add("001")
        nik.Items.Add("002")
        nik.Items.Add("003")
        jabatan.Items.Add("MANDOR")
        jabatan.Items.Add("KEPALA BAGIAN")
        jabatan.Items.Add("STAFF")
        status.Items.Add("MENIKAH")
        status.Items.Add("TIDAK MENIKAH")


        For I = 1 To 4
            jumanak.Items.Add(I)

        Next I
        For I = 1 To 10
            Jlem.Items.Add(I)

        Next I

        BUATTABEL()


    End Sub


    Sub BUATTABEL()
        lv.Columns.Add("NIK", 80, HorizontalAlignment.Center)
        lv.Columns.Add("NAMA", 180, HorizontalAlignment.Left)
        lv.Columns.Add("JABATAN", 80, HorizontalAlignment.Center)
        lv.Columns.Add("GAJI", 180, HorizontalAlignment.Left)
        lv.Columns.Add("STATUS", 80, HorizontalAlignment.Center)
        lv.Columns.Add("TUNJ ISTRI", 180, HorizontalAlignment.Left)
        lv.Columns.Add("JUMLAH ANAK", 80, HorizontalAlignment.Center)
        lv.Columns.Add("TUNJ ANAK", 180, HorizontalAlignment.Left)
        lv.Columns.Add("JAM LEMBUR", 80, HorizontalAlignment.Center)
        lv.Columns.Add("HONOR LEMBUR", 180, HorizontalAlignment.Left)
        lv.Columns.Add("PAJAK", 80, HorizontalAlignment.Left)
        lv.Columns.Add("TOTAL", 180, 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(gaji.Text)
        LST.SubItems.Add(status.Text)
        LST.SubItems.Add(Tunistri.Text)
        LST.SubItems.Add(jumanak.Text)
        LST.SubItems.Add(Tunanak.Text)
        LST.SubItems.Add(Jlem.Text)
        LST.SubItems.Add(Ulembur.Text)
        LST.SubItems.Add(Pajak.Text)
        LST.SubItems.Add(Total.Text)
        lv.Items.Add(LST)


    End Sub

    Sub ikan(ByVal y As Form)
        nik.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        status.Text = ""
        Tunistri.Text = ""
        jumanak.Text = ""
        Tunanak.Text = ""
        Jlem.Text = ""
        Ulembur.Text = ""
        Pajak.Text = ""
        Total.Text = ""

    End Sub


    Private Sub JABATAN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        Select Case jabatan.Text
            Case "MANDOR" : gaji.Text = 1750000
            Case "KEPALA BAGIAN" : gaji.Text = 2500000
            Case "STAFF" : gaji.Text = 1250000
        End Select
        Pajak.Text = 0.015 * gaji.Text

    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" : Tunistri.Text = 0.09 * gaji.Text
            Case "TIDAK MENIKAH" : Tunistri.Text = 0

        End Select
    End Sub



    Private Sub JUMLAH_ANAK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumanak.SelectedIndexChanged

        If jumanak.Text >= 2 And status.Text = "MENIKAH" Then
            Tunanak.Text = 0.07 * gaji.Text
        ElseIf jumanak.Text = 1 And status.Text = "MENIKAH" Then
            Tunanak.Text = 0.03 * gaji.Text
        Else
            Tunanak.Text = 0


        End If

    End Sub

    Private Sub PROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PROSES.Click

        If jabatan.Text = "MANDOR" Then
            Ulembur.Text = 7500
        ElseIf jabatan.Text = "KEPALA BAGIAN" Then
            Ulembur.Text = 10000
        ElseIf jabatan.Text = "STAFF" Then
            Ulembur.Text = 5000
        Else
            Ulembur.Text = 0
        End If
        Total.Text = Val(Ulembur.Text * Jlem.Text) + Val(gaji.Text) + Val(Tunistri.Text) + Val(Tunanak.Text) - Val(Pajak.Text)

    End Sub


    Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged
        Select Case nik.Text
            Case "001" : nama.Text = "JULIADI MANALU"
            Case "002" : nama.Text = "KRIS EKA WATI"
            Case "003" : nama.Text = "SAPTA FINA"


        End Select


    End Sub

    Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click
        ISITABEL()
        BURUNG(Me)
    End Sub

    Private Sub HAPUSSEMUA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUSSEMUA.Click
        lv.Items.Clear()
    End Sub

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

    Private Sub BATAL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BATAL.Click
        nik.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        status.Text = ""
        Tunistri.Text = ""
        jumanak.Text = ""
        Tunanak.Text = ""
        Jlem.Text = ""
        Ulembur.Text = ""
        Pajak.Text = ""
        Total.Text = ""
    End Sub

    Private Sub KELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUAR.Click
        Me.Close()

    End Sub
End Class

Gambar hasil

Tugas SI-P1101

7 Keajaiban Paling Menakutkan di Dunia

Jika kita terbiasa mendengar, melihat kata 7 Keajaiban Dunia, tentunya pikiran kita akan melayang hingga menuju sebuah tempat yang indah, megah, berusia ratusan tahun dan dibuat secara luar biasa. Namun tanpa disadari sebenarnya ada tempat-tempat menyeramkan yang juga dikategorikan ke dalam Keajaiban ‘Dunia Lain,’ menyeramkan, sumpek, karena tempat-tempat tersebut bukanlah diperuntukkan bagi mereka yang hidup. Beragam ide dan alasan yang mengawali pembangunan tempat-tempat menyeramkan tersebut. Berikut kami merangkum 7 Keajaiban Paling Menakutkan di Dunia yang ada di berbagai belahan dunia:

7. Paris Catacombs

Di bagian selatan kota Paris, ibu kota Prancis ternyata terdapat sebuah tempat luas dibawah tanah berupa labirin-labirin yang digunakan untuk menyimpan sekitar lebih dari 6 juta jasad manusia didalamnya. Labirin bawah tanah tersebut memiliki total panjang sekitar 300 kilometer dan memiliki banyak sekali lorong – lorong yang bercabang-cabang sehingga jika orang yang mencoba masuk kedalamnya sangat mungkin dia tersesat.
Jumlah jasad yang tersimpan didalam The Catacombs hampir tiga kali lipat dari populasi penduduk yang hidup diatas labirin itu yaitu paris.Berdasarkan fakta sejarahnya, dahulu dengan berkembangnya agama kristiani dan adanya tradisi penguburan jasad yang harus dekat dengan lingkungan Gereja mengakibatkan pada abad 10 wilayah-wilayah pemakaman di pusat kota paris menjadi terlalu penuh dan sulit untuk berkembang karena berada dipusat kota. Hal tersebut mengakibatkan hanya kaum kaya yang sanggup melaksanakan ritual penguburan di dekat lingkungan gereja. Sedangkan untuk kaum yang tidak memiliki banyak uang, maka penguburan untuk kerabat mereka disediakan tempat pemakaman yang lebih mirip dengan tempat penguburan massal. Saat itu liang lahat yang sudah terisi oleh jasad manusia dapat dibongkar lagi dan dimasuki oleh jasad lainnya serta hanya sedikit jasad yang mampu membeli peti mati sendiri, sehingga akhirnya satu peti mati yang sudah digunakan dapat dipakai lagi untuk penguburan berikutnya.Saat ini The Catacombs dijadikan museum bawah tanah bagi para pelancong, dengan menyuguhkan galeri tulang belulang manusia yang disusun dengan rapi. Museum tersebut dibuka setiap hari dari jam 10 pagi sampai jam 5 sore dan dibatasi hanya 200 pengunjung setiap Tour nya.

6. Menara Tengkorak Niš, Serbia

 

Menara Tengkorak di Serbia adalah salah satu bangunan yang memiliki kumpulan tulang belulang,dan dimaksudkan untuk menakut-nakuti mereka yang melihatnya. Memang cara tersebut digunakan ratusan tahun di masa lalu, tepatnya di tahun 1809 ketika para pejuang pemberontak Serbia mengalami goncangan secara signifikan akibat berhadapan dengan pasukan Kekaisaran Ottoman. Untuk meredam arus pemberontakan pejuang Serbia, seorang komandan  Turki memerintahkan pasukannya untuk  memotong kepala dari jenazah yang telah meninggal,mengumpulkan dan menyusunnya hingga menjadi sebuah benteng, hal ini digunakan sebagai peringatan bagi mereka yang mencoba melawan kekaisaran. Sebanyak 952 tengkorak dikabarkan menjadi bagian dari benteng tersebut, namun seiring dengan waktu banyak terjadi klaim dan membawa tengkorak yang dianggap anggota keluarganya, hingga saat ini hanya tersisa 58 tengkorak saja di menara Niš.



5. Kapel Tengkorak, Czermna, Polandia

  
















Cerita mengenai keberadaan Kapel Tengkorak (Kaplica Czazek) merupakan salah satu yang menarik di antara gereja-gereja lainnya di Polandia. Kapel ini dibuat antara tahun 1776 dan 1804, ketika seorang pendeta Ceko dan dibantu beberapa penggali kubur setempat, menghabiskan waktu berjam-jam menggali dan mengangkat jenazah-jenazah yang jumlahnya tidak terhitung, karena itu adalah pemakaman massal. Mereka banyak menemukan sejumlah tengkorak dengan kondisi yang menarik kemudian dipisahkan dari tulang belulang lainnya. Tengkorak yang menarik salah satunya adalah yang memiliki lubang peluru di kepalanya, diduga semasa hidupnya ia adalah politisi. Beberapa tulang di bawa ke dalam kapel. Secara keseluruhan pendeta tersebut telah menemukan sebanyak 24.000 tengkorak dalam penggaliannya. Beberapa diantaranya berada 16 kaki di kedalaman tanah, namun hanya sekitar 3.000 tulang belulang yang menghiasi dan memenuhi ruangan kapel, para pendeta Ceko menamai ruangan ini dengan,”sanctuary of silence.”

4. Capela dos Ossos, Evora, Portugal

  
















Capela dos Ossos, atau lebih dikenal pula dengan nama Kapel Tulang (Chapel Bones), letaknya berdampingan dengan Gereja St. Francis yang merupakan salah satu obyek wisata di Kota Evora, Portugal. Capela dos Ossos ini dibangun pada abad ke 16, dengan tujuan untuk mengendalikan kebutuhan lahan pemakaman masyarakat setempat. Salah satu ruangan yang menarik adalah dimana terdapat dua jenazah yang dikeringkan—seorang lelaki dan anak kecil, menggantung dengan seutas rantai di dinding ruangan. Identitas mereka tidak diketahui, namun berdasarkan penuturan masyarakat setempat, hubungan mereka adalah ayah dan anak, yang bersikap jahat terhadap ibu/istrinya dan kemudian dikutuk.

3. Pemakaman Brno,  Republic Ceko

   















Pemakaman Bruno adalah sebuah pemakaman yang terletak di bawah Alun-Alun St.Jacob sudah ada sejak ratusan tahun lalu. Ketika sebuah proyek pembangunan gedung baru telah ditentukan dan akan dilaksanakan pada tahun 2001, sebuah kegiatan ekpsplorasi arkeologis pun dilakukan. Dan betapa terkejutnya para arkeolog, hampir 50.000 lebih kerangka manusia ditemukan terlihat memenuhi ruang terowongan bawah tanah. Beberapa kerangka digali kembali guna memperoleh ruang untuk jenazah yang baru, sepertinya itu yang dilakukan sehingga banyak kerangka yang terlihat di dalam ruang terowongan. Pernah pada suatu waktu kerang-kerangka tersebut berdempetan cukup erat, hingga kemudian terjadi sebuah bencana banjir dan menghantam semua kerangka yang ada di dalam terowongan. Kemudian pemerintah Kota Brno melakukan sebuah upaya restorasi pada 2010 hingga 2011. Tampaknya Pemakaman Brno ini adalah yang kedua terbesar di dunia. Dan pemakaman ini bukanlah tempat yang menyeramkan, namun tempat ini adalah sebuah tempat menjalin hubungan antara kehidupan dan kematian, sebuah tempat untuk bermeditasi.

2. Santa Maria della Concezione, Roma, Italia

   
















Santa Maria della Concezione adalah salah satu tempat terindah, sehingga tidak ada orang yang berpendapat bahwa kematian adalah hal yang menakutkan. Di dalam sebuah gereja nampak lebih dari 4.000 tulang belulang para biarawan Capuchin yang disusun sedemikian artistik,sehingga terlihat indah. Beberapa tulang belulang masih dilengkapi dengan jubah biarawan Capuchin, namun beberapa disusun ulang menjadi beberapa karya seni baik itu simbol maupun sebuah ornamen ruangan. Sebuah tulisan plakat pun terdapat di dalamruangan tersebut dan mengatakan,”Apa yang kamu alami saat ini, adalah yang pernah kami alami. Apa yang kami alami sekarang, adalah apa yang akan kamu alami.” Hal tersebut adalah sebuah peringatan mengenai akan datangnya kematian di dalam perjalanan kehidupan manusia. Sebuah peringatan yang hangat dan menyejukkan.

1. Pemakaman Sedlec, Republik Ceko

   

Salah satu tempat untuk melihat koleksi tulang belulang manusia terbanyak di dunia, adalah di Pemakaman Sedlec yang terdapat di negara Republik Ceko. Sebuah bangunan gereja kecil yang berada di pinggiran Kutna Hora, telah dipenuhi oleh lebih dari 40.000 kerangka manusia. Akibatnya gereja ini kemudian dikenal dengan Gereja Tulang (Bone Church), ribuan lebih tulang belulang tersusun membentuk sebuah ruang dan bangun yang ada ada di dalam gereja ini. Ornamen ruangan, simbol keagamaan, pagar tangga, dan banyak lagi.
Pada tahun 1278, seorang biarawan bernama Henry melakukan sebuah perjalan rohani ke tempat Jesus Kristus dimakamkan. Sepulang dari perjalanannya itu, ia membawa sejumlah kecil tanah dari makam tersebut. Ia kemudian menebarkan tanah tersebut ke berbagai ruangan di Pemakaman Sedlec, dan berupaya menyucikan tanah pemakaman tersebut. Akibatnya semua orang beranggapan bahwa pemakaman sedlec adalah sebuah tempat suci dan terbaik bagi jenazah seseorang dimakamkan, sehingga pada akhirnya pemakaman tersebut tidak bisa lagi menampung jenazah yang akan dikuburkan. Akhirnya pada 1511, jenazah yang telah dikuburkan kembali digali, kemudian tulang belulangnya mereka simpan di luar ruangan.
Upaya penggalian tersebut berlangsung lama, hingga pada tahun 1870 seorang tukang kayu, František Rint, disewa untuk mengatur interior ruangan, beserta tulang-belulang yang ada di dalam ruang tersebut. Ia pun memutar otak dan berusaha memikirkan keberadaan tulang belulang tersebut. Hingga akhirnya tercetuslah sebuah ide untuk membuat sebuah karya seni yang berasal dari tulang. Ia kemudian merangkai tulang belulang menjadi beberapa benda seni, ornamen ruangan, dan bahkan sarana ibadah seperti altar, tempat lilin, dan sebagainya. Walaupun sebenarnya menakutkan bahkan hampir mirip dengan kapel pemuja setan, namun Sedlec adalah bangunan sebuah gereja suci kristiani, yang juga merupakan sebuah pemakaman. Sedlec adalah sebuah bangunan dan tempat keajaiban dunia lain yang mengagumkan.

 

Thomas Alva Edison penemu bola lampu listrik.

Lahir 11 Februari 1847 di Milan, Ohio, Amerika Serikat , ia adalah anak ke tujuh atau anak terakhir dari Samuel Ogden Edison, Jr dan Nancy Matthews Elliott ( 1810-1871 ). Ayahnya lahir di Marshalltown Scotia, Canada tahun 1804, meninggal 1896. Thomas Alva Edison meninggal 8 Oktober 1931.

Pada masa kecilnya di sekolah, Edison selalu dapat nilai buruk, akhirnya Ibunya mengambil keputusan untuk menghentikannya dari sekolah, dan mengajarinya sendiri Dia rumah, dengan leluasa Edison isa membaca berbagai buku buku ilmiah yang biasa duibaca orang dewasa. Usia 12 tahun dia bekerja mejadi penjual koran, buah-buahan dan permen, di dalam kereta api, jurusan dari Port Huron ke Detroit. Pada masa itu Edison sudah mulai mengalami gangguan pendengarannya, tapi dia tidak peduli.

Pada satu saat dia menyelamatkan seorang anak berumur 3 tahun yang hampir tertabrak kereta api, Ayah anak tersebut adalah seorang station agent J.U Mac Kenzie dari Mount Clement, Michigan. Untuk membalas rasa terimakasihnya pada Edison, dia mengajari bagaimana menjadi operator telegrap, yang akhirnya dia diterima bekerja sebagai operator telegrap di perusahaan kereta api Grand Trunk.

Pada umur 19 tahun Edison pindah ke Louisvile, Kentucky dan bekerja di perusahaan Western Union. Dia meminta untuk dipekerjakan pada jam malam, tujuannya agar dia mempunyai banyak waktu untuk membaca dan melakukan percobaan-percobaan ilmiah. Suatu malam di tahun 1867, dia menumpahkan Sulfuric Acid ( asam belerang ) dilantai, dan sampai kebawah meja kerja bossnya, besok paginya dia dipecat.

Tahun 1870 dia menemukan mesin telegrap yang lebih baik, yang mampu mencetak pesan telegarap diatas kertas. Dari penemuannya itu dia mendapatkan uang cukup untuk mendirikan perusahaan sendiri, General Electric ( 1890 ), yang masih berdiri hingga saat ini.

25 Desember 1871 Edison menikah denan seorang gadis 16 tahun bernama Mary Stilwell, gadis pekerja toko. Mereka mempunyai anak 3 orang ;

1. Anak pertama bernama Marion Estelle Edison (1873–1965) dengan pangilan Dot.
2. Anak kedua bernama Thomas Alva Edison, Jr. (1876–1935) dengan panggilan Dash
3. anak ke tiga bernama William Leslie Edison (1878–1937) , seorang penemu, lulusan Sheffield Scientific School at Yale, 1900.

9 Agustus 1884 istri Edison meninggal karena kangker otak.

Setelah kematian istrinya, Mary Stiwell, Edison pindah dari Menlo Park. 24 Februari 1886, Edison meikah lagi dengan gadis berumur 20 tahun, Mina Miller di Akron, Ohio. Dari perkawinan kedua ini, Edison mempunyai 3 anak.

1. Medeline Edison ( 1888-1979 )
2. Charles Edison ( 1890-1969 ), dia yang memimpin perusahaan ayahnya setelah Edison meninggal, juga mengurus laboratoratorium percobaan di West Orange.
3. Theodore Edison ( 1898-1992 ), seorang lulusan dari MIT dalam ilmu fisika tahun 1923. Dia memiliki sekitar 80 hak patent atas temuannya.

Tahun 1874 dia pindah ke Menlo Park, New Jersey, dan mendirikan bengkel ilmiah yang besar dan yang pertama didunia. Dari sanalah dia banyak melakukan penemuan-penemuan. Tahun 1877 dia menemukan Gramafon, penemuan inilah yang membuat dia dikenal kalayak sebagai “Penyihir dari Menlo Park”. Dan menemukan lampu listrik ( bola lampu pijar ) pada tahun 1879, dari penemua inilah Thomas Alva Edison lebih dikenal dunia, karena dialah dunia menjadi benderang. Dia juga menemukan projektor untuk film film kecil. Di tahun 1882 dia memasang lampu-lampu listrik di jalan dan rumah-rumah sejauh satu kilometer di New York. Dan ini untuk pertama kalinya lampu listrik dipakai dijalan-jalan.

Tahun 1877-1878 dia mengembangkan penemuannya, Carbone Microphone yang dipakai pada seluruh telepeon buatan Graham Bell , temuannya ini juga dibuat untuk keperluan radio broadcasting dan umum.

Sesudah melakukan banyak percobaan untuk bola lampunya dengan menggunakan platinum dan metal filament, Edison kembali melakukan percobaan untuk lampu pijar ( bola lampu ) dengan menggunakan carbone filamen. Dan pada 22 Oktober 1879, percobaan itu berhasil, bola lampu mampu bertahan menyala terus sampai 40 jam. Edison terus melakukan percobaan tersebut sampai hasilnya memuaskan ( lampu bisa menyala lebih lama) . 4 November 1879 dia mendapatkan hak patennya atas bola lampu menggunakan carbon filamen, nomor patentnya 223,989.

Masih banyak lagi hasil penemuan Edison yang bermanfaat. Secara keseluruhan Edison telah menghasilkan 1.039 hak paten. Tapi penemuannya itu sangat jarang disebutkan antara lain : telegraf cetak, pulpen elektrik, proses penambangan magnetik, torpedo listrik, karet sintetis, baterai alkaline, pengaduk semen, mikrofon, transmiter telepon karbon dan proyektor gambar bergerak.

Thomas Alva Edison meninggal karena komplikasi penyakit diabetes di rumahnya Llewellyn Park, West Orange, New Jersey, pada 18 Otktober 1931. Istri keduanya, Mina meninggal tahun 1947.

Setelah kematiannya, beberapa bangunan jembatan, uiversitas, hotel, perkumpulan dan masih banyak lagi yang menggunakan namanya untuk penghormatan atas jasa-jasa temuannya.