Kamis, 28 Maret 2013

18 Jalan Raya Terunik Yang Ada di Dunia


Jalan layang sudah lah bukan merupakan hal yang aneh dan banyak di jumpai di negara-negara. Biasanya harga jual rumah yang terletak dekat dengan jalan layang ini mempunyai harga yang cukup tinggi dikarenakan daya tarik dari jalan layang tersebut. Akan tetapi bentuk jalan layang-jalan layang dibawah ini lain daripada yang lain dan sungguh menakjubkan.

1. Hana Highway @ Maui, Hawaii
Hana Highway dibangun di pesisir pantai Maui, tidak seperti pantai Hawaii yg berpasir, yg banyak bebatuan. Jika melewati jalan ini, kita akan melalui 600 kelokan/tikungan dan 54 jembatan hanya dalam 52 mil (sekitar 84 km).

2. Passo dello Stelvio @ Lombardy, Italy
Passo dello Stelvio mempunyai 48 kelokan yg kalo kita liat seperti sanggul. Pusing pasti kalo lewat sini, dan hebatnya lagi, jalan ini pertama kali dikonstruksikan pada 1820 :matabelo:

3. Guoliang Tunnel @ Hunan, China
Dengan lebar jalan tidak lebih dari 4 meter, dengan pemandangan kanan-kiri jurang bertebing batu, ditambah lg beberapa terowongan yg menembus Pegunungan Taihang, dijamin lewat jalan ini bakal jadi pengalaman yg tak terlupakan.

4. Monumental Axis @ Brasilia, Brazil
Versi gedenya Monas & Merdeka di Jakarta, ditambah bangunan2 kepresidenan dan pemerintah Brazil.

5. The Atlanterhavsveien @ Møre og Romsdal, Norway 
Uniknya bisa diliat sendiri di gambar, tp yg lebih hebat lagi, jalan ini dibangun di daerah yg sering dilewati angin ribut dan para arsitek pembangunnya mengalami puluhan kali angin ribut saat membangunnya.

6. The Magic Roundabout @ Swindon, England
Dibangun pada 1972, merupakan jalan putaran paling kompleks di dunia, ngalahin Semanggi.

7. Highway 1 @ Iceland
Di Indonesia mungkin sama dengan Jakarta Outter Ring Road atau Ring Road di Jogja, jalan yg dibuka pada 1974 ini mengitari satu negara, bukan kota

8. The Cherohala Skyway @ Robbinsville, N.C., US
Menghubungkan dua negara bagian, North Carolina dan Tennessee, dengan range elevasi dari 270 m – 1620 m, Cherohala Skyway menawarkan pemandangan khas pegunungan Amerika.

9. Yungas Road @ La Paz, Bolivia
Mendapat julukan “Road of Death” karena banyaknya kecelakaan di jalan ini

10. Dalton Highway @ Livengood, Alaska
The Bureau of Land Management di Amrik sono sampe ngasi peringatan, “Anda tidak akan menemukan restoran, toko-toko, atau SPBU, yang ada hanyalah hutan, tundra, dan pegunungan…”. Dalton Highway menghubungkan Alaska dengan ladang minyak Prudhoe Bay, jalannya berjejer sejajar dengan pipa minyak sepanjang 414 mil.

11. Capulin Volcano Road @ Capulin, New Mexico
Jalan sepanjang 3,2 km ini sangat sempit, hingga apabila ada bus yg akan naik atau turun gunung, semua arus lalu lintas harus berhenti (brp lama tu yak nungguinnya) :gila:

12. Karakoram Highway @ Gilgit-Baltistan, Pakistan
Jalannya tidaklah besar, seperti jalan setapak, tapi melintasi 3 pegunungan besar, Himalaya, Karakoram, dan Pamir. Pembangunannya menelan korban jiwa para pekerjanya, 810 dari Pakistan dan 82 dari China.

13. Avenida 9 de Julio @ Buenos Aires, Argentina
Pada sisi terlebarnya, jalan ini punya 8 jalur di mana masing2 sisinya terhubung dengan 2 jalur tambahan yg digunakan apabila arus lalu lintas sedang padat. Total lebar (lebar ya, bukan panjang) jalan ini adalah 138 meter :matabelo: :gila: kasihan yang mau nyebrang


14. Trollstigen @ Rauma, Norway
8 kelokan 180 derajat di ketingggian 840 meter, ditambah dengan air terjun dan pemandangannya, mau coba? 

15. Canton Avenue @ Pittsburgh, Penn.
Diklaim sebagai jalan tercuram di dunia, mempunyai tingkat kemiringan 37% (setiap 100 kaki (30 meter) horizontal, tingkat elevasi naik 37 kaki (11 meter)). Main sepatu roda di jalan ini seru kali ya ...

16. The High Five Interchange @ Dallas, Texas
Pada 2006, American Public Works Association memilih interchange ini sebagai salah satu “Public Works Projects of the Year.” Jakarta mesti punya lebih banyak interchange ni keknya :nohope:

17. Lombard Street @ San Francisco
Mungkin merupakan jalan paling terkenal di SF, aslinya memiliki tingkat elevasi 27%, sebelum tahun 1922 ditambah 8 kelokan hingga turun menjadi 16% saja. Mudah-mudahan tidak ada pengendara yang ceroboh

18. Tibbitt to Contwoyto Winter Road @ Northwest Territories, Canada
Kalo yg ini sebenernya bukan jalan betulan, hanya danau2 es yg membeku yg saling terhubung hingga membentuk jalur yg bisa dilalui truk. Temperatur di jalur sepanjang 600 km ini bisa mencapai -70 derajat F.


Jalan raya terunik lainnya :

Continue reading...

Kode VB 6.0 untuk Simpan, Edit, Cari, dan Hapus Pada Database


Berikut adalah comtoh penulisan code vb6 untuk simpan, cari, ubah dan hapus data dengan menggunakan Data Control, ADODC, dan ADODB. (codenya basic/pemula)

Code-code dibawah ini hanya sebatas code-code dasar untuk simpan, cari, ubah dan hapus, tidak disertakan code-code validasi, penanganan error ataupun code untuk koneksinya.

1. DATA CONTROL

Yang perlu diperhatian adalah bahwa Data Control membutuhkan index untuk pencarian yang selanjutnya untuk melakukan edit dan hapus data

#Simpan Data :
Data1.Recordset.AddNew
Data1.Recordset!namakolom1 = Text1.Text
Data1.Recordset!namakolom2 = Text2.Text
Data1.Recordset.Update
Data1.Refresh

#Pencarian Data :
Data1.Recordset.Index = "KodeIdx"
Data1.Recordset.Seek "=", Textcari.Text
If Not Data1.Recordset.NoMatch Then
     Text1.Text = Data1.Recordset!namakolom1
     Text2.Text = Data1.Recordset!namakolom2
Else
     MsgBox "Maaf, Data Tidak Ditemukan!"
End if

#Edit Data :
Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Data1.Recordset.Edit
Data1.Recordset!namakolom1=Text1.Text
Data1.Recordset!namakolom2=Text2.Text
Data1.Recordset.Update
Data1.Refresh

#Hapus Data :
Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Data1.Recordset.Delete
Data1.Refresh

2. ADODC 

#Simpan Data :
Adodc1.Recordset.AddNew
Adodc1.Recordset!namakolom1 = Text1.Text
Adodc1.Recordset!namakolom2 = Text2.Text
Adodc1.Recordset.Update
Adodc1.Refresh

#Pencarian Data :
Adodc1.Recordset.Find "namakolom1='" + Text1.Text + "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
     Text1.Text = Adodc1.Recordset!namakolom1
     Text2.Text = Adodc1.Recordset!namakolom2
Else
     MsgBox "Maaf, Data Tidak Ditemukan!"
End if

#Edit Data :
Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu
Adodc1.Recordset!namakolom1=Text1.Text
Adodc1.Recordset!namakolom2=Text2.Text
Adodc1.Recordset.Update
Adodc1.Refresh

#Hapus Data :
Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Adodc1.Recordset.Delete
Adodc1.Refresh

3. ADODB

#Simpan Data :
ado.Execute "INSERT INTO [nama tabel] VALUES ('" + Text1.Text + "','" +  Text2.Text + "')"

#Pencarian Data :
Set Rs = New Adodb.Recordset
Rs.Open "SELECT * FROM [nama table1] WHERE [nama kolom1]='" + TextCari.Text + "'", ado
If Not rs.EOF Then
     Text1.Text = rs("namakolom1")
     Text2.Text = rs("namakolom2")
Else
     MsgBox "Maaf, Data Tidak Ditemukan!"
End if

 #Edit Data :
ado.Execute "UPDATE [nama tabel] Set [namakolom1]='" + Text1.Text + _
                    "',[namakolom2]='" + Text2.Text + _
                    "' WHERE [nama kolom1]='" + TextCari.Text + "'"
Code diatas tidak memerlukan lagi kode pencarian seperti code edit untuk DATA dan Adodc

#Hapus Data :
ado.Execute "DELETE * FROM [nama tabel] WHERE [nama kolom1]='" + TextCari.Text + "'"
Code diatas tidak memerlukan lagi kode pencarian seperti code hapus untuk DATA dan Adodc
Continue reading...

Tampilan Windows Dari Masa Ke Masa



Windows 1.0

Windows 2.0

Windows 2.1

Windows 3.0

Windows 3.1

Windows NT 3.1

Windows NT 3.51

Windows 95

Windows 98

Windows 2000

Windows ME

Windows XP

Windows Vista

Windows 7

Windows 8

Windows Blue

Catatan : Windows Blue akan diperkenalkan kepada developer dan penggemar Windows pada bulan Juni 2013 mendatang
Continue reading...
 

Visitor Online

Followers

Zona Artikel Copyright © 2011 Not Magazine Transparent 3 Column is Designed by Yudi