Program Kriptografi Pada VB.Net 08

Public Class Vernam


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plainteks.Text = ""
        kunci.Text = ""
        chiperteks.Text = ""

    End Sub

    Private Sub enkript_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enkript.Click
        Dim a As Integer
        Dim jumlah As Integer
        Dim sKey As String
        Dim nKata As Integer
        Dim nKunci As Integer
        Dim sKata As String
        Dim sPlain As String = ""
        Dim nEnc As String
        a = 0
        sKata = plainteks.Text
        jumlah = Len(sKata)
        sKey = kunci.Text
        For i = 1 To jumlah
            If a = Len(sKey) Then
                a = 1
            Else
                a = a + 1

            End If
            nKata = Asc(Mid(sKata, i, 1)) - 65
            nKunci = Asc(Mid(sKey, a, 1)) - 65
            nEnc = ((nKata + nKunci) Mod 26)
            sPlain = sPlain & Chr((nEnc) + 65)
        Next i
        chiperteks.Text = sPlain
    End Sub

    Private Sub plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles plainteks.KeyPress
        e.KeyChar = UCase(e.KeyChar)
        Dim tombol As Integer = Asc(e.KeyChar)
        If Not (((tombol >= 65) And (tombol <= 90) Or (tombol = 8))) Then
            e.Handled = True
        End If


    End Sub

    Private Sub plainteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles plainteks.TextChanged
    End Sub
End Class

Public Class Form1

    Private Sub Btnenskript_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenskript.Click
        Dim jumlah As Double = Len(plainteks.Text)
        Dim x As String
        Dim xkalimat As String = ""
        Dim i As Double
        Dim bil As Integer
        For i = 1 To jumlah
            x = Mid(plainteks.Text, i, 1)
            bil = Asc(x) + 3
            x = Chr(bil)
            xkalimat = xkalimat + x
        Next
        chipteks.Text = xkalimat
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plainteks.Text = ""
        chipteks.Text = ""
    End Sub
End Class

Public Class vigenere

    Private Sub vigenere_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plainteks.Text = ""
        kunci.Text = ""
        chiperteks.Text = ""
    End Sub

    Private Sub enkrippt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enkrippt.Click
        Dim a As Integer
        Dim jumlah As Integer
        Dim sKey As String
        Dim nKata As Integer
        Dim nKunci As Integer
        Dim sKata As String
        Dim sPlain As String = ""
        Dim nEnc As String
        a = 0
        sKata = plainteks.Text
        jumlah = Len(sKata)
        sKey = kunci.Text
        For i = 1 To jumlah
            If a = Len(sKey) Then
                a = 1
            Else
                a = a + 1
            End If
            nKata = Asc(Mid(sKata, i, 1)) - 26
            nKunci = Asc(Mid(sKey, a, 1)) - 26
            nEnc = ((nKata + nKunci) Mod 26)
            sPlain = sPlain & Chr((nEnc) + 26)
        Next i
        chiperteks.Text = sPlain

    End Sub

    Private Sub chiperteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles chiperteks.KeyPress
        e.KeyChar = UCase(e.KeyChar)
        Dim tombol As Integer = Asc(e.KeyChar)
        If Not (((tombol >= 26) And (tombol <= 90) Or (tombol = 8))) Then
            e.Handled = True
        End If
    End Sub

    Private Sub chiperteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chiperteks.TextChanged

    End Sub
End Class

Public Class gronsfeld

    Private Sub gronsfeld_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plainteks.Text = ""
        kunci.Text = ""
        chiperteks.Text = ""

    End Sub

    Private Sub plainteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles plainteks.TextChanged
      
    End Sub

    Private Sub enkript_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enkript.Click
        Dim a As Integer
        Dim jumlah As Integer
        Dim sKey As String
        Dim nKata As Integer
        Dim nKunci As Integer
        Dim sKata As String
        Dim sPlain As String = ""
        Dim nEnc As String
        a = 0
        sKata = plainteks.Text
        jumlah = Len(sKata)
        sKey = kunci.Text
        For i = 1 To jumlah
            If a = Len(sKey) Then
                a = 1
            Else
                a = a + 1
            End If
            nKata = Asc(Mid(sKata, i, 1)) - 326
            nKunci = Asc(Mid(sKey, a, 1)) - 326
            nEnc = ((nKata + nKunci) Mod 326)
            sPlain = sPlain & Chr((nEnc) + 326)
        Next i
        chiperteks.Text = sPlain
    End Sub

    Private Sub chiperteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles chiperteks.KeyPress
        e.KeyChar = UCase(e.KeyChar)
        Dim tombol As Integer = Asc(e.KeyChar)
        If Not (((tombol >= 326) And (tombol <= 90) Or (tombol = 8))) Then
            e.Handled = True
        End If
    End Sub

    Private Sub chiperteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chiperteks.TextChanged

    End Sub
End Class

Read More

Ahsan/Hedra Letupkan Euforia Istora

JAKARTA – Euforia akhirnya meledak di Istora Senayan. Ganda putra Mohammad Ahsan/Hendra Setiawan membuat seluruh penonton bersorak usai menyelamatkan muka Indonesia dengan merebut gelar juara Djarum Indonesia Open Super Series Premier (DIOSSP) 2013.

Sukses ini didapat pasangan yang barus dipasangkan sekira setahun lalu, usai menumbangkan ganda putra Korea, Ko Sung Hyun/Lee Yong Dae dengan dua game langsung 21-14 dan 21-18.

Bermain di bawah dukungan penuh ribuan pendukung di Istora Senayan, Minggu (16/6) petang, Ahsan/Hendra langsung tampil menyerang. Tekanan demi tekanan terus dilancarkan sehingga memaksa unggulan kedua ini tidak dapat berbuah banyak di game pertama.

Di game kedua, Ahsan/Hendra kembali mengambil inisiatif serangan dan terus memimpin perolehan poin 14-11. Namun, pasangan Ko/Dae tidak lantas menyerah dan sempat menyamakan kedudukan menjadi 14-14.

Permainan reli-reli penjang nan mendebarkan kerap diperagakan kedua pasangan. Ahsan/Hendra yang terus menyerang akhirnya sukses menuntaskan perlawanan Ko/Dae dengan skor 21-18 dalam tempo 39 menit.

Kemenangan ini langsung disambut euforia seluruh penonton di Istora, tak terkecuali Ketua Umum PBSI yang juga Menteri Perdagangan Indonesia, Gita Wirjawan yang menyaksikan secara langsung ditemani Menpora, Roy Suryo dan Agum Gumelar. Pasalnya, ini merupakan satu-satunya gelar yang bisa diraih Indonesia setelah sebelumnya gagal di nomor tunggal putra, putri, ganda putri dan ganda campuran.

Usai pertandingan, rona kebahagiaan pun terpancar jelas di wajah Ahsan dan  Hendra. “Kami sadar bahwa kami adalah satu-satunya harapan untuk meraih gelar, maka kami bermain habis-habisan untuk bisa menang,” ujar Hendra Setiawan.

“Jujur, stamina saya sudah habis, tapi dukungan dari supporter membuat saya kuat,” timpal Ahsan memberikan apresiasi besar kepada supporter Indonesia yang tak pernah lelah memberikan dukungan. 

Sumber : http://famagulz.blogspot.com/2013/06/ahsanhendra-letupkan-euforia-istora.html#ixzz2WRSzGpve

Read More

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

http://www.mesran.blogspot.com/2013/05/tugas-ti-p1104.html


Nah, kali nie kita akan kembali dengan pembahasan VB 08....
Listview di gunakan untuk menampilkan data dalam bentuk tabel yang mempunyai
baris dan kolom......

Nah penasaran kan. heee.
Sekarang kita masuk keprogramnya. silah kan anda rancang seperti pada gambar di atas.

kemudian anda copy code ini ke form code..

Public Class Form1

    Private Sub kodebarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodebarang.SelectedIndexChanged

        If kodebarang.Text = "TS001" Then

            nomorpembelian.Text = "1"

            namabarang.Text = "Laptop"

            merk.Text = "Acer"

            harga.Text = "105000"

            totalharga.Focus()

        ElseIf kodebarang.Text = "TS002" Then

            nomorpembelian.Text = "2"

            namabarang.Text = "HP"

            merk.Text = "Nokia"

            harga.Text = "1200000"

            totalharga.Focus()

        ElseIf kodebarang.Text = "VG003" Then

            nomorpembelian.Text = "3"

            namabarang.Text = "Printer"

            merk.Text = "Cannon"

            harga.Text = "2500000"

        End If

    End Sub

    Sub BuatTable()

        LV.Columns.Add("NOMOR PEMBELIAN", 150, HorizontalAlignment.Center)

        LV.Columns.Add("KODE BARANG", 120, HorizontalAlignment.Center)

        LV.Columns.Add("NAMA BARANG", 120, HorizontalAlignment.Center)

        LV.Columns.Add("MERK", 120, HorizontalAlignment.Center)

        LV.Columns.Add("HARGA", 120, HorizontalAlignment.Center)

        LV.Columns.Add("JUMLAH BELI", 150, HorizontalAlignment.Center)

        LV.Columns.Add("TOTAL HARGA", 150, HorizontalAlignment.Center)

        LV.GridLines = True

        LV.FullRowSelect = True

        LV.View = View.Details

    End Sub

    Sub IsiTable()

        Dim x As New ListViewItem

        With x

            .Text = nomorpembelian.Text

            .SubItems.Add(kodebarang.Text)

            .SubItems.Add(namabarang.Text)

            .SubItems.Add(merk.Text)

            .SubItems.Add(harga.Text)

            .SubItems.Add(jumlahbeli.Text)

            .SubItems.Add(totalharga.Text)

            LV.Items.Add(x)

        End With

        nomorpembelian.Focus()

    End Sub

    Sub Total_Harga()

        Dim i As Long

        i = 0

        For j As Integer = 0 To lv.Items.Count - 1

            i = i + Val(lv.Items(j).SubItems(4).Text)

        Next

        Totalharga.Text = "RP." & Format(i, "###.######")

    End Sub

    Sub hapus()

        nomorpembelian.Text = ""

        kodebarang.Text = ""

        namabarang.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlahbeli.Text = ""

        totalharga.Text = ""

    End Sub

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

        kodebarang.Items.Add("A001")

        kodebarang.Items.Add("A002")

        kodebarang.Items.Add("A003")

        BuatTable()

    End Sub

    Private Sub btnsimpankelistvew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpankelistvew.Click

        totalharga.Text = harga.Text * jumlahbeli.Text

        IsiTable()

        nomorpembelian.Focus()

        hapus()

    End Sub

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

        nomorpembelian.Text = ""

        namabarang.Text = ""

        kodebarang.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlahbeli.Text = ""

        totalharga.Text = ""

    End Sub

    Private Sub btnhapussemuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemuadata.Click

        namabarang.Text = ""

        kodebarang.Text = ""

        namabarang.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlahbeli.Text = ""

        totalharga.Text = ""

        LV.Items.Clear()

        If LV.SelectedItems.Count <> 0 Then

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

        Else

            MsgBox("Semua Data Terhapus")

        End If

    End Sub

    Private Sub btnhapusdatayangdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdatayangdipilih.Click

        If LV.SelectedItems.Count <> 0 Then

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

        Else

            MsgBox("Pilih Dulu Yang Mau Di hapus")

        End If

    End Sub

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

        Close()

    End Sub

End Class

Terima Kasi.....

Read More

Penambahan Nilai UTS Pak Mesran Program Sederhana Visual Basic 08 Menggunakan Listview

http://www.mesran.blogspot.com/2013/05/tugas-ti-p1104.html

Nah, kali nie kita akan kembali dengan pembahasan VB 08....
Listview di gunakan untuk menampilkan data dalam bentuk tabel yang mempunyai
baris dan kolom......

Nah penasaran kan. heee.
Sekarang kita masuk keprogramnya. silah kan anda rancang seperti pada gambar di atas.

kemudian anda copy code ini ke form code..

Public Class Form1

    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("Staf")

        Status.Items.Add("Menikah")
        Status.Items.Add("Belum Menikah")
    End Sub
    Sub buattabel()
        LV.Columns.Add("Nik", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Jabatan", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Gaji", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Status", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Tunjangan", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Total", 80, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim i As New ListViewItem
        i.Text = Nik.Text
        i.SubItems.Add(Nama.Text)
        i.SubItems.Add(Jabatan.Text)
        i.SubItems.Add(Gaji.Text)
        i.SubItems.Add(Status.Text)
        i.SubItems.Add(Tunjangan.Text)
        i.SubItems.Add(Pajak.Text)
        i.SubItems.Add(Total.Text)
        LV.Items.Add(i)
    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 "Staf" : 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 = "Ucok"
            Case "002" : Nama.Text = "Ujang"
            Case "003" : Nama.Text = "Udin"
        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" : Tunjangan.Text = 0.15 * Gaji.Text
            Case "Belum Menikah" : Tunjangan.Text = 0
        End Select

    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        Total.Text = Val(Gaji.Text) + Val(Tunjangan.Text) - Val(Pajak.Text)
        isitabel()
    End Sub

    Private Sub BtnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBaru.Click
        Nik.Text = ""
        Nama.Text = ""
        Jabatan.Text = ""
        Gaji.Text = ""
        Status.Text = ""
        Tunjangan.Text = ""
        Pajak.Text = ""
        Total.Text = ""
    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

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

    End Sub
End Class

Ini lah kode yang sangat sederhana, tapi kita tidak mengetahui kesederhaannya !!
hee, betul kn.....
semoga berhasil sobat... see you ke pembahasan VB berikutnya.
 

Read More

Surga Dan Neraka Di Dunia

SURGA DUNIA

Singapura

Singapura adalah kota terbersih di dunia. Kota yang dibangun oleh Sir Thomas Stamford Raffless ini merupakan kota yang sangat strategis dan terletak pada jalur lintas perdagangan antar negara dan antar benua. Kendati hampir seluruh penduduknya adalah kaum pendatang dari seluruh duinia, namun pemerintah Singapura menerapkan disiplin yang amat ketat sehingga kebersihan kota amat terjaga. Kamu tidak akan menemukan puntung rokok, kaleng minuman, sisa permen karet, atau sampah yang bertebaran di kota ini seperti yang banyak kita lihat di kota-kota Indonesia. Hal ini membuat Singapura menjadi salah satu tempat favorit untuk turis dan transaksi bisnis

Zurich, Swiss

Zurich yang terletak Swiss ini ditetapkan sebagai kota yang paling baik untuk ditinggali di seluruh dunia berdasarkan versi konsultan dari Mercer. Penilaian ini diambil berdasarkan beberapa faktor yaitu masalah lalu lintas, kualitas udara, dan laporan dari para ekspatriat yang tersebar di 600 kota di seluruh dunia. Kota dengan populasi penduduk 347.517 orang ini memiliki angka harapan hidup mencapai 80 tahun. Tempat yang sangat baik untuk dikunjungi

Bangkok, Thailand

Bangkok adalah kota wisata terbaik di dunia berdasarkan versi situs Travel + Leisure tahun 2008. Bangkok dinilai memiliki banyak tempat wisata yang bagus, pemandangan indah, dan hotel-hotel yang baik. Diperkirakan sekitar 15 juta wisatawan mancanegara datang ke Bangkok setiap tahunnya. Kota ini mengandalkan beberapa tempat-tempat bersejarah paling banyak dikunjungi di Thailand seperti Grand Palace, Wat Pho dan Wat Arun. Kota ini juga merupakan kota dengan pertumbuhan pencakar langit tercepat di Asia

Paris, Perancis

Paris adalah kota mode dan pusat seni dunia. Disinilah berbagai macam karya seni dari seluruh dunia, termasuk hasil-hasil karya seni yang termasyur sepanjang era Reinassance Eropa berada. Museum Lovre merupakan museum seni terbesar dan terlengkap di Eropa yang berada di kota ini. Selain itu, Paris juga menyimpan berbagai karya arsitektur yang megah dan menarik. Di kota ini terdapat Menara Eifel, katedral Notradame, dan Arc de Triumph yang banyak dikunjungi oleh para turis mancanegara. Tidak hanya sebagai kota seni, Paris juga dikenal dengan institusi pendidikannya yang berkualitas dan taman-taman kota yang indah. Sekitar 30 juta wisatawan dari seluruh dunia berkunjung ke salah satu kota yang menjadi surga dunia ini setiap tahunnya

Stockholm, Swedia

Stockholm adalah surga dimana para bidadari-bidadari berkumpul. Ya, inilah kota yang dinilai memiliki wanita-wanita cantik di dunia, baiuk dari segi kecantikan jasmani, sikap dan perilaku, keramah-tamahan, dan sopan santun dalam bersikap. Wanita Stockholm juga sangat berpendidikan. Semua wanita dapat berbicara dengan bahasa Inggris yang baik sehingga tidak ada hambatan dalam berkomunikasi bagi para turis dan pendatang. Wanita Stockholm dapat membuat kamu merasa gembira dengan segala caranya

NERAKA DUNIA

Port Moresby, Papua Nugini

Di kota ini, penyakit benar-benar merajalela. Lebih dari 115 penderita HIV muncul tiap bulannya hingga menjadi tempat terburuk untuk tinggal di dunia berdasarkan voting intelegen ekonomi pada tahun 2004. Populasi yang tidak terkontrol, pemerkosaan, dan pencurian menambah keruwetan kota. Di jalanan terdapat MI6, geng yang banyak mencuri bank dan pertokoan. Dijamin, kalo berliburan di kota ini, kamu akan membawa pulang penyakit

Linfen, China

Kota ini ditetapkan sebagai kota terpolusi di dunia versi Blacksmith Institute. Udara kota sangat gelap diakibatkan oleh industri pertambangan batu bara dan makanan serta emisi kendaraan bermotor yang sangat parah dan tidak memperhatikan dampak lingkungan. Jarak pandang yang sangat dekat membuatmu harus menjaga jarak sekitar dan juga menggunakan masker

Bujumbura, Republik Burundi

Dengan angka pendapatan perkapita terendah ditambah dengan korupsi yang amat parah, negara ini menjadi negara paling miskin di dunia. Apalagi pembunuhan terhadap pemimpin politik akibat perang saudara yang belum kunjung padam banyak terjadi di kota ini. Bujumbura, kota di sebelah barat Afrika ini bukanlah tempat yang baik untuk berlibur

Pyongyang, Korea Utara

Tidak ada kebebasan di kota ini. Semuanya telah diatur oleh pemerintah yang berkuasa. Pyongyang adalah kota yang penuh dengan tekanan dan penindasan politik oleh pemerintah komunis Korea Utara. Kota yang dibangun kembali setelah hancur pada perang Korea (1950-1953) ini hanya memiliki satu chanel TV dan stasiun radio yang dikuasai oleh pemerintah pula

Chernobyl, Ukraina

Akibat ledakan nuklir di tahun 1986, kota ini menjadi hancur dan seluruh makhluk hidup terkontaminasi oleh radiasi nuklir yang ditimbulkannya. Luas wilayah yang terkena radiasi mencapai 233.000 kilometer persegi. Radiasi yang ditimbulkannya sekitar 400 kali lebih kuat dibandingkan radiasi bom atom yang jatuh di Hiroshima. Sekitar 50.000 warga kota harus diungsikan dari kota ini sehingga kota ini menjadi kota mati

Oklahoma, Amerika Serikat

Tornado amat sering menyapu kota ini. Terutama di sekitar bulan Maret sampai Agustus. Bukan tempat yang baik untuk menetap di kota ini

Mogadishu, Somalia

Hukum adalah sesuatu yang tidak akan pernah didapatkan di kota ini. Sejak pemberontakan di tahun 1992, kota ini belum mendapatkan kembali kedamaian. Kemiskinan dan musim kemarau yang panjang menimbulkan korban kelaparan di mana-mana

Yakutsk, Rusia

Tempat yang mempunyai temperatur paling ekstrem di dunia. Suhu di kota ini berkisar pada 50 derajat Celcius di bawah nol dan sekolah terpaksa sering diliburkan. Kamu tentu membutuhkan berlapis-lapis jaket dan selimut agar dapat tidur nyaman di kota ini. Kabut tebal membuat jarak pandang hanya 10 meter

Dhaka, Bangladesh

Dakka selain harus menanggung beban politik yang sering kisruh di negara tersebut, juga harus menanggung beban polusi udara dan kemiskinan. Secara terus menerus 9.7 juta tons sampah dibuang melalui sungai di kota tiap tahunnya hingga membuat kota ini berlangganan banjir

Baghdad, Irak

Akibat invansi dan kebrutalan tentara Amerika Serikat, keindahan kota Baghdad yang pernah menjadi pusat kejayaan Islam ini rata dengan tanah. Penjarahan dan penculikan marak di kota ini. Jalan-jalan hancur dan ditumbuhi rumput liar.

Sumber : http://famagulz.blogspot.com/2013/04/surga-neraka-di-dunia.html#ixzz2QSLcKkq3

Read More

Bandara Paling Menantang Di Dunia

Bandara Madeira

Lokasi: Santa Cruz, Portugal
Tahun berdiri: 1964

Madeira Airport adalah sebuah bandara internasional. Bandara ini pernah terkenal dengan landasan pacu pendek yang dikelilingi oleh pegunungan tinggi dan laut yang membuat pendaratan sulit bahkan untuk pilot berpengalaman. Landasan yang asli hanya 1.400 meter, namun kemudian diperpanjang 400 meter.

Panjang landasan diperpanjang dua kali pada tahun 2003 hingga di atas lautan. Karena dibangun menggunakan sampah, perpanjanganitu dibangun di atas 180 tiang yang tingginya sekitar 70m.

Bandara Juancho E. Yrausquin

Lokasi: Saba, Belanda
Tahun berdiri: 1963

Bandara Juancho E. Yrausquin adalah satu-satunya bandara di pulau Karibia, Saba, di Antiles Belanda. Bandara ini mencangkup seluruh lokasi di pulau kecil ini. Terlepas dari kenyataan bahwa belum ada tragedi besar yang pernah terjadi di sini. Beberapa ahli masi menganggap bahwa ini adalah salah satu bandara paling berbahaya di dunia.

Yang membuat bandara ini berbahaya adalah bahwa kedua ujung landasan pacu tersebut ditahan oleh tebing yang akhirnya langsung ke laut sementara satu sisinya ditutupi dengan bukit-bukit tinggi. Ini membuat kemungkinan pesawat terbang untuk overshoot landasan pacu saat mendarat atau lepas landas dan berakhir di laut atau di tebing.

Landasan Terbang Es

Lokasi: Pulau Ross, Antartika
Tahun beridir: -

Landasan terbang es adalah salah satu dari tiga landasan utama yang digunakan untuk mengangkut barang ke para peneluti di antartika. Tidak ada landasan pacu beraspal di sini. Semua pesawat harus mendarat di sepanjang es dan salju. Pendaratan harus dilakukan dengan ekstra hati-hati. Salah satu tantangan yang pilot harus hadapi adalah untuk mengarahkan pesawat ke bagian tanah agar pesawat tidak terjebak ke dalam salju. Oke, terdengar gila!

Bandara Internasional Princess Juliana

Lokasi: Saint Maarten, Karibia Timur
Tahun berdiri: 1942

Bandara Princess Juliana adalah bandara tersibuk kedua di Karibia Timur. Bandara ini dinamai Juliana dari Belanda, seorang putrimahkota yang mendarat di sini tahun 1944. Bandara ini memiloiki landasan yang sangat pendek, sekitar 2.180 meter yang membuatnya sangat terkenal. Karena pendeknya landasan ini, pesawat harus mendekati pulau dengan terbang sangat rendah. Berbagai foto jet yang terbang di atas 10-20 meter atau 30-60 kaki di atas pulau ini diperkirakan palsu tetatpi ternyata asli.

Bandara Courchevel

Chourchevel adalah nama daerah ski terbesar di Perancis. Daerah ini memiliki bandara dengan landasan pacu yang sangat pendek sehingga pilot harus mendarat di sebuah strip pelambat dan lepas landas di strip penolak untuk mendapatkan kecepatan yang cukup. Hanya pesawat pribadi atau charter dan helikopter diperbolehkan mendarat. Kamu harus melihat bandara in idalam adegan pembukaan film Tomorrow Never Dies.

Bandara Internasional Barra

Lokasi: Barra, Skotlandia
Tahun berdiri: 1975

Sumber

Sumber : http://famagulz.blogspot.com/2013/04/bandara-paling-menantang-di-dunia.html#ixzz2QSILjWvr

Read More