5 Kota Yang Hilang Dari Dunia

Berikut ini adalah daftar kota kuno yang lenyap dari peradaban manusia selama berabad-abad yang kami rangkum dalam artikel 5 Kota Yang Hilang Dari Dunia.

1). Machu Picchu

Kota yang hilang pertama kita adalah Machu Picchu, mungkin banyak yang sudah tahu tentang tempat yang sekarang menjadi tujuan wisata dunia ini, terpencil didekat Lembah Urubamba, Peru. Machu Picchu terbagi jadi beberapa distrik serta kurang lebih 140 bangunan yang dibatasi dinding batu yang diukir. Diyakini kota ini didirikan pada awal abad ke-15 oleh suku Inca, namun ditinggalkan sekitar 100 thn kemudian karena wabah penyakit cacar yang datang dari benua Eropa.

2). Pompeii

Pompeii adalah sebuah kota romawi kuno yang hancur di thn 79 Masehi akibat letusan dari gunung berapi Vesuvius. Ledakan tersebut mengubur semua warga Pompeii dibawah abu serta batuan sedalam 18 meter. Diperkirakan Pompeii mempunyai 20 ribu penduduk pada saat itu. Tempat yang dulunya diyakini sebagai lokasi untuk berlibur bagi golongan atas Roma ini ditemukan kembali setelah terkubur selama kurang lebih 17 abad, tepatnya di tahun 1748 oleh beberapa pekerja yang sedang membangun istana Raja Naples. Sejak saat itu Pompeii jadi lokasi penggalian para arkeolog.

3). Angkor

 Angkor di Kamboja merupakan pusat Kerajaan Khmer pada tahun 800 Masehi sampai 1400-an. Namun akhirnya ditinggalkan sesudah invasi oleh tentara Thailand pada thn 1431. Penduduk Angkor meninggalkan beberapa ribu patung Budha yang sekarang tertutup oleh rimbunannya hutan. Angkor tidak tersentuh manusia sampai tahun 1800-an beberapa arkeolog dari Perancis memulihkannya.

4). Memphis

Kota yang dibangun pada thn 3.100 sebelum masehi ini merupakan ibukota peradaban Mesir kuno serta pusat administratif selama beberapa abad sebelum ditinggalkan oleh penduduknya karena kebangkitan Thebes serta Alexandria. Memphis diyakini mempunyai populasi sekitar 30 ribu jiwa, membuatnya jadi kota kuno terbesar dalam sejarah. Memphis ditemukan lagi oleh ekspedisi Napoleon pada akhir abad ke ke-18.

5). Petra

Kota yang hilang Petra terletak di negara Yordania. Lokasinya di dekat Laut Mati, diyakini dulunya merupakan pusat perdagangan yang ramai. Arsitekturnya merupakan bukti kemajuan peradaban pada masa itu dan sebuah masterpiece yang berupa ukiran batu indah pada bebatuan pegunungan di sekelilingnya. Di thn 363 sebuah gempa bumi menghancurkan sebagian bangunan serta melumpuhkan infrastruktur, selanjutnya kota ini ditinggalkan penduduknya di padang pasir selama berabad-abad sebelum ditemukan thn 1812 oleh penjelajah asal Swiss. (bin)

 5 jenis ikan hias cantik di dunia

Berikut ini adalah daftar jenis jenis ikan hias berwarna cantik yang kami rangkum dalam artikel 5 Jenis Jenis Ikan Hias Cantik Di Dunia.

1). Ikan Mandarinfish

 

Mandarinfish tak bisa disamakan dengan ikan Mandarin atau Chinese Perch. Ikan bernama latin Synchiropus splendidus merupakan bagian dari keluarga ikan Dragonet yang popular didalam akuarium air asin. Ikan yang aslinya berasal dari Pasifik atau tepatnya di Kep. Ryukyu selatan hingga ke Australia ini sangat berwarna-warni serta enerjik. ikan mandarinfish ini asli pasifik. Harga nya tak lebih dari $ 20/ekor, namun yg lantas menjadi problem yaitu makanan mereka, Mandarinfish hanya mengonsumsi mikroinvertebrata yg biasa hidup di batuan koral. Untuk dapat memeliharanya di rumah, kita butuh batuan koral yg cukup didalam aquarium.

2). Ikan Juvenile Emporer Angel

 

Ikan cantik ini amat populer dimata penyelam laut. Berwarna biru gelap dengan pola cincin, namun ketika dewasa mereka mempunyai garis kuning. Waktu tumbuhnya sekitar 4 thn dan dapat tumbuh hingga sepanjang 40 cm.

3). Ikan Clown Trigger

Ikan Trigger merupakan 40 spesies ikan warna-warni yang berasal dari keluarga Balistidae. Identik dengan garis serta bintiknya, mereka menghuni laut tropis serta subtropis dimuka bumi dengan keanekaragaman spesies terbesar di lautan Indo Pasifik. Umumnya dapat ditemui di perairan dangkal, pesisir, dan terlebih pada terumbu-terumbu karang.

4). Ikan Badut

 

Ikan ini juga dikenal dengan atau Clownfish atau Anemonefish. Ikan badut merupakan ikan dengan warna yang indah dan cantik yang biasanya terdiri dari warna kuning atau oranye dengan garis putih dan hitam, walau ini bergantung pada jenis dari ikan badut tersebut. Ukuran terbesar dapat mencapai panjang hingga 18 cm dan yang terkecil nyaris hanya sepanjang 10 cm.

5). Ikan Rainbow Parrot

 

Ikan ini diberi nama Parrot dikarenakan mulutnya yang mirip dengan paruh burung Kakaktua. Mereka menggunakan mulutnya yang mirip paruh tersebut untuk menghancurkan serta memakan invertebrata kecil yang hidup di batu karang. Selain itu mereka juga mengunyah karang serta meludahkan sisa kalsiumnya. Warna biru atau hijaunya yang cantik sangat cocok untuk menghiasi aquarium. (bin)

Berikut ini adalah daftar bencana alam terbesar di dunia beserta gambarnya yang kami rangkum dalam artikel 5 Peristiwa Bencana Alam Terbesar Di Dunia serta Gambarnya.

1). Tri-State Tornado pada tanggal 18 Maret 1925

Sepanjang sekitar 3,5 jam; Tri-State Tornado jadi tornado yang sangat mematikan setelah menghancurkan daratan utama Amerika. Tornado ini membunuh kurang lebih 700 orang serta menghancurkan sekitar 15 ribu rumah di negaa bagian Illinois, Indiana serta Missouri. Sesudah bencana besar ini, pemerintah Amerika mulai membuat sistem peringatan tornado yang ditargetkan bisa mengurangi angka kematian bila bencana alam besar datang kembali.

2). Kebakaran Peshtigo pada tanggal 8 Oktober 1871

 

Kebakaran Peshtigo terjadi di Wisconsin, Amerika Serikat, berbarengan dengan kebakaran hebat di kota Chicago. Peshtigo dirundung kekeringan lalu api mulai merambah kota saat angin kencang membawa api kecil dari padang yang terbakar. Api yang makin tidak teratasi terus berjalan serta sampai pada sisi lain dari sungai Peshtigo, itu membuat kota Peshtigo terjebak dari 2 sisi. Waktu api telah sukses dipadamkan, sekitar 1200 orang meninggal serta 12 kota hangus dilalap api.

3). Banjir Johnstown pada tanggal 31 Mei 1889

Di sekitar akhir abad ke-19, industri kecil di kota Johnstown, Pennsylvania punya reputasi sebagai produsen besi dan baja berkwalitas tinggi. Seluruh ketenaran tersebut tersapu tanpa sisa waktu sebuah bendungan bernama South Fork yang kurang terurus diatas gunung, berjarak lebih kurang 14 mil dari kota, jebol karena hujan tanpa henti. Air yang diperkirakan mencapai 20 juta ton menghancurkan kota Johnstown dengan dan membunuh sekitar 2209 penduduk serta menenggelamkan 1600 rumah.

4). Gelombang panas pada musim panas tahun 1988

 

Kekeringan menempa serta menghancurkan bidang agrikultur di Amerika Serikat pada musim panas tahun 1988. Hal tersebut makin diperparah dengan serangan gelombang panas. Kerugian yang pada bidang agrikultur diperkirakan mecapai $ 61 miliar. Kekeringan ini juga menyebabkan kebakaran di Taman Nasional Yellowstone serta Gunung Rushmore. Lebih kurang 5 ribu sampai 10 ribu orang terkena beragam masalah kesehatan yang diakibatkan oleh bencana alam besar ini.

5). Gelombang panas pada musim panas tahun 1980

 

Bencana alam yang berupa gelombang panas pada musim panas thn 1980 bisa jadi merupakan salah satu dari bencana terburuk didalam sejarah Amerika. Temperatur tinggi menyerang Amerika bagian tengah serta selatan dengan suhu sampai 32, 2 derajat celsius. Sejumlah 10 ribu nyawa melayang akibat udara panas serta beragam penyakit karena stress berkelanjutan. (bin)

Art

Berikut ini adalah daftar jenis kucing tercantik di dunia beserta gambarnya yang kami rangkum dalam artikel 5 Jenis-Jenis Kucing Tercantik Di Dunia serta Gambarnya.

1). Kucing Maine Coon

Kucing jenis Maine Coon berasal dari Maine, Amerika Serikat. Kucing cantik ini merupakan keturunan dari kucing jenis Anggora serta American Shorthair. Karakternya yang cantik serta gampang akrab dengan pemiliknya membuatnya disukai oleh pecinta kucing di dunia. Bulunya tidak tebal, lembut, serta warnanya bermacam-macam.

2). Kucing Birman

Kucing jenis Birman dikenal sebagai kucing keramat di negara Birma. Kucing ini amat cantik dengan pola warna yang menarik serta jari kaki putih dan bersih. Namun sayangnya kucing jenis ini terhitung langka di dunia.

3). Kucing Turkish Van

Meskipun kucing jenis Turkish Van adalah kucing yang mandiri, namun bulu-bulunya yang indah dan lembut seperti sutra membuat pecinta kucing suka merawat kucing jenis ini. Kesukaan Turkish Van bermain air amat menghibur keluarga yang memeliharanya.

4). Kucing Persia

Kucing Persia adalah jenis kucing dengan bulu panjang yang sangat popular di negara kita. Kucing ini amat suka hidup sebagai kucing rumahan, mereka dapat dengan cepat akrab dengan kucing lain serta orang rumah.

5). Kucing Anggora

Kucing jenis Anggora adalah jenis kucing cantik dan juga terkenal di Indonesia. Gerakannya yang lemah gemulai merupakan salah satu ciri-ciri kucing ini. Bulu yang lembut, tubuh panjang yang elegan, telinga tegak lurus, serta mata besar yang lucu membuat kucing Anggora pecinta kucing cantik. (bin)

Ar

tugas pemograman mengunakan list view

Public Class Form1
    Sub buatTabel()
        LV.Columns.Add("NIK", 150, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA KARYAWAN", 150, HorizontalAlignment.Center)
        LV.Columns.Add("JABATAN", 150, HorizontalAlignment.Center)
        LV.Columns.Add("GAJI POKOK", 150, HorizontalAlignment.Center)
        LV.Columns.Add("STATUS", 150, HorizontalAlignment.Center)
        LV.Columns.Add("TUNJANGAN keluarga", 150, HorizontalAlignment.Center)
        LV.Columns.Add("PAJAK", 150, HorizontalAlignment.Center)
        LV.Columns.Add("TOTAL GAJI", 150, HorizontalAlignment.Center)
        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(tunjangankeluarga.Text)
        Lst.SubItems.Add(pajak.Text)
        Lst.SubItems.Add(totalgaji.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()
        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")
    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 = 17500000
            Case "Kepala Bagian" : gaji.Text = 2500000
            Case "Staff" : gaji.Text = 1250000

        End Select
        pajak.Text = 0.15 * gaji.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 = "Hasbi M Ritonga"
            Case "002" : nama.Text = "Fitri Lubis"
            Case "003" : nama.Text = "Nova"

        End Select
    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" : tunjangankeluarga.Text = 0.15 * gaji.Text
            Case "Tidak Menikah" : tunjangankeluarga.Text = 0
        End Select
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        totalgaji.Text = Val(gaji.Text) + Val(tunjangankeluarga.Text) - Val(pajak.Text)
    End Sub

    Private Sub btnsimpn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpn.Click
        IsiTabel()
        nik.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        status.Text = ""
        tunjangankeluarga.Text = ""
        pajak.Text = ""
        totalgaji.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 btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub
End Class