tugas visual basic

Image

Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtnama.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdproses_Click()
Dim A As String
txttm.Text = “20” & Left(txtnpm.Text, 2)
txtnu.Text = Right(txtnpm.Text, 3)
A = Mid(txtnpm.Text, 3, 1)
If A = “1” Then
txtjur.Text = “Sistem Informasi”
ElseIf A = “2” Then
txtjur.Text = “Manajemen Informatika”
ElseIf A = “3” Then
txtjur.Text = “Tehnik Komputer”
End If
A = Mid(txtnpm.Text, 4, 2)
If A = “00” Then
txtprodi.Text = “Strata1”
ElseIf A = “01” Then
txtprodi.Text = “Diploma4”
ElseIf A = “02” Then
txtprodi.Text = “Diploma3”
End If
End Sub

Private Sub Cmdsimpan_Click()
Data1.Recordset.Update
End Sub

Private Sub Cmddelete_Click()
Data1.Recordset.Delete
End Sub

Private Sub Form_Load()

End Sub

 

Advertisements

TUGAS VISUAL BASIC

Image

Private Sub Combo1_Click()
Dim nama, jurusan, HM As String

Select Case Combo1.Text
 Case “12100144”
 Text1 = “SITI NURLAILA”
 Text2 = “Sistem Informasi”
 Case “09200048”
 Text1 = “AMALIA AMANAH”
 Text2 = “Manajemen Informatika”
 Case “09300024”
 Text1 = “SASKIA MECHA”
 Text2 = “Tehnik Informatika”
 End Select
 Text1.Text = Text1
 Text2.Text = Text2
 Text3.SetFocus
 End Sub
 
 Private Sub command2_Click()
Combo1.SetFocus
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Command1_Click()
Dim NA As Integer
Dim HM As String
Text7.Text = Val((Text3.Text) + Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text)) / 4
Text8.Text = “NA”

Select Case Text8.Text
 Case Is > 80
 HM = “A”
 Case Is > 70
 HM = “B”
 Case Is > 60
 HM = “C”
 Case Is > 50
 HM = “D”
 Case Is < 50
 HM = “E”
 End Select
 Text8.Text = HM
 End Sub

Private Sub Form_Load()
Combo1.AddItem “12100144”
Combo1.AddItem “09200048”
Combo1.AddItem “09300024”
End Sub

Private Sub text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
End If
End Sub

Private Sub text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If
End Sub
Private Sub text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text6.SetFocus
End If
End Sub

   
Image

Private Sub Command1_Click()
    Label2.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
   End
End Sub

Private Sub Option1_Click()
    Label2.ForeColor = vbBlue
End Sub

Private Sub Option2_Click()
   Label2.ForeColor = vbRed
End Sub

Private Sub Check1_Click()
    Label2.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
    Label2.Caption = Text2.Text
End Sub

Image

Private Sub Form_load()
Combo1.AddItem “I”
Combo1.AddItem “II”
Combo1.AddItem “III”
Combo1.AddItem “IV”
End Sub

Private Sub Command1_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub combo1_Click()
Dim gapok, pajak, tunjangan, total As Variant
Select Case Combo1.Text
Case “1”
Text3 = 1500000
Text4 = 150000
Case “II”
Text3 = 2000000
Text4 = 200000
Case “III”
Text3 = 2500000
Text4 = 250000
Case “IV”
Text3 = 3000000
Text4 = 300000
Case Else
Text3 = 0
Text4 = 0
End Select
Text6 = Val(Text3.Text) + Val(Text4.Text)
Text5 = Val(Text6.Text) * 0.1
Text6.Text = Val(Text6.Text) – Val(Text5.Text)
End Sub

Private Sub text1_keypress(keyascii As Integer)
If keyascii = 13 Then
Text2.SetFocus
End If
End Sub

Image

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub Command3_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub

Private Sub Command1_Click()
Dim S As String
Text5.Text = “20” & Left(Text2.Text, 2)
S = Mid(Text2.Text, 3, 1)
If S = “1” Then
Text3.Text = “Sistem Informasi”
ElseIf S = “2” Then
Text3.Text = “Manajemen Informatika”
ElseIf S = “3” Then
Text3.Text = “Tehnik Informatika”
ElseIf S = “4” Then
Text3.Text = “Manajemen & Komp. Akuntansi”
End If
S = Mid(Text2.Text, 4, 2)
If S = “00” Then
Text4.Text = “Strata Satu”
ElseIf S = “01” Then
Text4.Text = “Diploma Tiga”
ElseIf S = “02” Then
Text4.Text = “Diploma Empat”
ElseIf S = “03” Then
Text4.Text = “Diploma Dua”
End If
Text6.Text = Right(Text2.Text, 3)
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Image

Private Sub Command1_Click()
Dim A, JB, TT, PE, HG
Text4.Text = “20” & Right(Text1.Text, 2)
A = Mid(Text1.Text, 3, 3)
If A = “SIM” Then
Text2.Text = “sistem informasi manajemen”
Text3.Text = “Andra Setiawan”
Text6.Text = 75900
ElseIf A = “EDP” Then
Text2.Text = “elektronik data prosessing”
Text3.Text = “Desi Istiqomah”
Text6.Text = 62000
ElseIf A = “MNJ” Then
Text2.Text = “manajemen”
Text3.Text = “Sendy Fitrajaya”
Text6.Text = 42000
ElseIf A = “CDR” Then
Text2.Text = “corel-drau”
Text3.Text = “Tri Indahsari”
Text6.Text = 53000
ElseIf A = “RPL” Then
Text2.Text = “rekayasa perangkat lunak”
Text3.Text = “Ernita”
Text6.Text = 83000
End If
A = Left(Text1.Text, 1)
If A = “A” Then
Text5.Text = “andi offset yogyakarta”
ElseIf A = “I” Then
Text5.Text = “indah surabaya”
ElseIf A = “S” Then
Text5.Text = “salemba empat”
ElseIf A = “E” Then
Text5.Text = “elek media komputindo”
ElseIf A = “M” Then
Text5.Text = “maxicom”
End If
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub

Private Sub Command3_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub Form_Load()

End Sub

Image

Private Sub Command1_Click()
Dim A, JB, TT, PE, HG
Text4.Text = “20” & Mid(Text1.Text, 5, 2)
A = Left(Text1.Text, 3)
If A = “SIM” Then
Text2.Text = “sistem informasi manajemen”
Text3.Text = “fadia ulfa”
Text6.Text = 75900
ElseIf A = “EDP” Then
Text2.Text = “elektronik data prosessing”
Text3.Text = “nur agustina”
Text6.Text = 62000
ElseIf A = “MNJ” Then
Text2.Text = “manajemen”
Text3.Text = “rian hidayat”
Text6.Text = 42000
ElseIf A = “CDR” Then
Text2.Text = “corel-drau”
Text3.Text = “siti nurkhotimah”
Text6.Text = 53000
ElseIf A = “RPL” Then
Text2.Text = “rekayasa perangkat lunak”
Text3.Text = “winda erlianti”
Text6.Text = 83000
End If
A = Right(Text1.Text, 1)
If A = “A” Then
Text5.Text = “andi offset yogyakarta”
ElseIf A = “I” Then
Text5.Text = “indah surabaya”
ElseIf A = “S” Then
Text5.Text = “salemba empat”
ElseIf A = “E” Then
Text5.Text = “elek media komputindo”
ElseIf A = “M” Then
Text5.Text = “maxicom”
End If
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub

Private Sub Command3_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub Form_Load()

End Sub

Image

Private Sub Command1_Click()
Dim A, G, KS, T, S, B, J, GP
Text4.Text = Left(Text11, 4)
A = Mid(Text11.Text, 5, 1)
If A = “A” Then
Text1.Text = “A”
Text5.Text = “manager”
Text7.Text = 4000000
Text8.Text = 1025000
ElseIf A = “B” Then
Text1.Text = “B”
Text5.Text = “ka. seksi”
Text7.Text = 3500000
Text8.Text = 975000
ElseIf A = “C” Then
Text1.Text = “C”
Text5.Text = “staf”
Text7.Text = 3000000
Text8.Text = 925000
End If
A = Mid(Text11.Text, 7, 1)
If A = “S” Then
Text2.Text = “S”
Text3.Text = “singgle”
ElseIf A = “M” Then
Text2.Text = “M”
Text3.Text = “menikah”
ElseIf A = “M” Then
Text2.Text = “J”
Text3.Text = “janda”
ElseIf A = “D” Then
Text2.Text = “D”
Text3.Text = “duda”
End If
A = Right(Text11.Text, 3)
If A = “KEU” Then
Text6.Text = “accounting”
ElseIf A = “ADM” Then
Text6.Text = “administrasi”
ElseIf A = “SDM” Then
Text6.Text = “general attair”
ElseIf A = “EDP” Then
Text6.Text = “it unit”
ElseIf A = “SPM” Then
Text6.Text = “securiti”
End If
Text9.Text = Val((Text7.Text) + Val(Text8.Text))
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text10_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text11.SetFocus
End If
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
End Sub

Private Sub Command3_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Aside

Tugas 1

Image

Private Sub Command1_Click()
    Text1.SetFocus
    Text1 = “”
    Text2 = “”
    Text3 = “”

End Sub

Private Sub Command2_Click()
  Text1.SetFocus
    Text1 = “”
    Text2 = “”
    Text3 = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()

End Sub

Private Sub text1_keypress(keyASCII As Integer)

    If keyASCII = 13 Then
    Text2.SetFocus
    End If
End Sub

Private Sub text2_keypress(keyASCII As Integer)
    If keyASCII = 13 Then
    Text3.Text = Val(Text1.Text) * Val(Text2.Text)
    End If
End Sub

Tugas 2

Image

Private Sub Command1_Click()
    Text3.Text = Val(Text1.Text) * Val(Text2.Text)
    
End Sub

Private Sub Command2_Click()
    Text3.SetFocus
    Text1 = “”
    Text2 = “”
    Text3 = “”
End Sub

Private Sub Command3_Click()
    Unload Me
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    Text2.SetFocus
    End If

End Sub

Tugas 3

Image

Private Sub Command1_Click()
    Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command2_Click()
    Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Command3_Click()
    Text3.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub

Private Sub Command4_Click()
    Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub

Private Sub Command5_Click()
    Text1.SetFocus
    Text1 = “”
    Text2 = “”
    Text3 = “”
End Sub

Private Sub Command6_Click()
Unload Me
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    Text2.SetFocus
    End If
End Sub

Tugas 4

Image

Private Sub Command1_Click()
    Text7.Text = Val((Text3.Text) + Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text)) / 4
End Sub

Private Sub Command2_Click()
    Text1 = “”
    Text2 = “”
    Text3 = “”
    Text4 = “”
    Text5 = “”
    Text6 = “”
    Text7 = “”
End Sub

Private Sub Command3_Click()
Text1 = “”
    Text2 = “”
    Text3 = “”
    Text4 = “”
    Text5 = “”
    Text6 = “”
    Text7 = “”
End Sub

Private Sub Command4_Click()
    Unload Me
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    Text2.SetFocus
    End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    Text3.SetFocus
    End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    Text4.SetFocus
    End If
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    Text5.SetFocus
    End If
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    Text6.SetFocus
    End If
End Sub

Tugas 5

Image

Private Sub Command1_Click()
    Text3.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub

Private Sub Command2_Click()
    Text1.SetFocus
    Text1 = “”
    Text2 = “”
    Text3 = “”
End Sub

Private Sub Command3_Click()
    Unload Me
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    Text2.Text = Val(Text1.Text) * 0.1
    End If
End Sub

Aside

Selena Gomez Dalam Video Behind The Scene Iklan Cat Kuku Nicole

Selasa, 15 Januari 2013 09:15 | 

Justin Bieber

 

Selena Gomez Dalam Video Behind The Scene Iklan Cat Kuku Nicole
Selena Gomez

Kapanlagi.com – Putus dari Justin Bieber tidak membuat Selena Gomez terpuruk. Nyatanya ia masih tampil memukau dalam iklan cat kuku Nicole.

Seperti yang tampak dalam video berikut ini, Selena Gomez masih bisa tersenyum manis dan bersenang-senang selama bekerja. Ia juga berbagi cerita tentang seleranya di dunia fashion.

Apa kira-kira warna cat kuku favorit Selena Gomez? Simak dalam video berikut ini:

(kpl/rth)

 

> KEMBALI KE DEPAN

Aside

Selena Gomez Dalam Video Behind The Scene Iklan Cat Kuku Nicole

Selasa, 15 Januari 2013 09:15 | 

Justin Bieber

 

Selena Gomez Dalam Video Behind The Scene Iklan Cat Kuku Nicole
Selena Gomez

Kapanlagi.com – Putus dari Justin Bieber tidak membuat Selena Gomez terpuruk. Nyatanya ia masih tampil memukau dalam iklan cat kuku Nicole.

Seperti yang tampak dalam video berikut ini, Selena Gomez masih bisa tersenyum manis dan bersenang-senang selama bekerja. Ia juga berbagi cerita tentang seleranya di dunia fashion.

Apa kira-kira warna cat kuku favorit Selena Gomez? Simak dalam video berikut ini:

(kpl/rth)

 

> KEMBALI KE DEPAN

Aside

 

CARA MEMBUAT BAKSO PENTOL UBAYA

BAHAN:
300 GR DAGING SAPI ATAU AYAM CINCANG
3 SDM TEPUNG KANJI (TAPIOCA FLOUR)
3 BUAH BAWANG PUTIH, DIHALUSKAN / 2 SDT GARLIC POWDER
1 BUTIR TELUR, PUTIHNYA SAJA
1 SDT BAKING POWDER SUPAYA BAKSONYA MENGEMBANG BAGUS
1 SDT GARAM HALUS
1 BUAH MAGGI BLOK
MERICA BUBUK SECUKUPNYA
PALA BUBUK SECUKUPNYA

AIR SECUKUPNYA UTK MEREBUS SI PENTOL ^_^

PEMBUATAN:
ADUK SEMUA BAHAN DIATAS DENGAN BLENDER SAMPAI TERCAMPUR
RATA DAN LEMBUT. ULANGI BERKALI-KALI SAMPAI HALUS DAN LEMBUT.

JIKA TERLALU SULIT DIBLEND, BERI SEDIKIT AIR ES.

SETELAH HALUS DAN MERATA, BENTUK MENJADI BULATAN2 BAKSO
(AKA. PENTOL) DENGAN MENGGUNAKAN 2 BUAH SENDOK KECIL.

KALAU MALAS SEPERTI SAYA, ADA CARA YANG LEBIH PRAKTIS;
TARUH SEKEPALAN ADONAN DITELAPAK TANGAN,
GENGGAM SEPERTI MENGEPALKAN TANGAN DAN TEKAN SUPAYA MEMADAT,
KELUARKAN ADONAN DARI UJUNG KEPALAN (DIANTARA IBU JARI DAN TELUNJUK),
POTONG MEMBULAT DENGAN SENDOK KECIL.
HASILNYA TIDAK SEBULAT BAKSO YANG DIBULATKAN SATU PERSATU-SATU,
TAPI PROSES PEMBULATAN PENTOL JAUUUUH LEBIH CEPAT

contoh daftar riwayat hidup
Contoh surat lamaran
cara membuat website
CARA MEMBUAT BAKSO PENTOL UBAYA
TIPS DALAM MEMBUAT BAKSO
CARA MEMBUAT BAKSO KOMPLIT
CARA MEMBUAT BAKSO > RESEP DASAR MEMBUAT BAKSO
CARA MENYIMPAN BAKSO
CARA MEMBUAT BAKSO SENDIRI
CARA MEMBUAT MIE

Langganan: Entri (Atom)
 

Arsip Blog

Aside

e » Sejarah » 7 Keajaiban Dunia Baru Yang Mengagumkan

7 Keajaiban Dunia Baru Yang Mengagumkan

Categories:
 
7 Keajaiban dunia baru merupakan sebuah makaha karya yang luar biasa. Keajaiban yang membuat kita berfikir bahwa keindahan tersebut seakan mustahil untuk dibuat pada masanya. Namun keajaiban dunia tersebut benar adanya dan masih ada sampai sekarang.

Awal mula munculnya istilah keajaiban dunia itu sendiri berawal pada tahun 140 Sebelum Masehi. Dicetuskan pada sebuah puisi karya Antipater Sidon, Ia menuliskan struktur tempat-tempat yang indah dan mengagumkan di dunia, seakan semua hal itu adalah sebuah keajaiban.

Berikut ini adalah kutipan puisinya:

“Aku telah melihat tembok Babilonia yang agung yang di atasnya terbentang jalanan untuk kereta-kereta perang, dan patung Zeus di Alfeus, dan taman-taman gantung, dan Kolosus Matahari, dan karya besar yang membangun piramida-piramida tinggi, serta kuburan yang besar dari Mausolus; namun ketika aku melihat rumah Artemis yang menjulang ke awan-awan, yang lain itu semuanya kehilangan keindahannya, dan aku berkata, ‘Tengoklah, selain Olympus, Matahari tidak pernah lagi melihat apapun yang sedemikian agung.'” (Antipater, Greek Anthology IX.58)

Sementara itu, menurut situs Wikipedia sendiri, keajaiban dunia saat ini terbagi dalam beberapa kategori.

  1. Keajaiban Dunia Kuno
  2. Keajaiban Dunia Pertengahan
  3. Keajaiban Dunia Alami
  4. Keajaiban Dunia Bawah Air
  5. Keajaiban Dunia Modern
  6. 7 Keajaiban Dunia Baru

Nah untuk saat ini yang kita bahas adalah seputar Tujuh Keajaiban Dunia Baru, yang terakhir kali ditetapkan pada tanggal 7 Juli 2007. Sedangkan untuk keajaiban dunia terbaru saat ini terdapat 21 kandidat yang masih menunggu hasil voting. Jika sudah di umumkan akan segera diinformasikan disini.

Baiklah inilah daftar 7 Keajaiban Dunia

1. Tembok Besar Tiongkok (Tembok Besar China)

7 keajaiban dunia baru tembok besar China

Tembok Besar Tiongkok atau yang juga dikenal dengan nama tembok besar China adalah sebuah tembok terpanjang yang pernah dibangun oleh manusia dalam sejarah perkembangan manusia hingga saat ini. Nama lain dari tembok ini adalah Tembok Sepanjang 10.000 Li (Wànlĭ Chángchéng). Menurut hasil penelitian pemerintah RRC sendiri tembok sepanjang 8.851 km tersebut dibangun pada masa pemerintahan dinasti ming.

2. Petra

petra 7 keajaiban dunia baru

Petra dalam bahasa Yunani berarti “Batu” dan dalam bahasa Arab : البتراء, al-Bitrā merupakan situs arkeologikal di Yordania. Petra sendiri terletak pada dataran rendah di antara pegunungan yang membentuk sayap timur Wadi Araba, yaitu lembah besar mulai dari Laut Mati sampai Teluk Aqaba.

3. Patung Kristus Penebus

patung kristus penebus, tujuh keajaiban dunia

Patung yang masuk keajaiban dunia ini memiliki tinggi 38 meter. Posisinya yang strategis berada di puncak dari Gunung Corcovado dengan ketinggian 710 m, Taman Nasional Hutan Tijuca. Dalam bahasa Portugis: Cristo Redentor adalah sebuah patung Yesus Kristus yang menampilkan gaya arsitektur Art Deco terbesar. Patung ini terletak di kota Rio de Janeiro, Brasil.

4. Machu Picchu

machu picchu, keajaiban dunia

Machu Picchu juga dikenal dengan julukanya yaitu kota inca yang hilang. Salah satu keajaiban ini dibangun sekitar tahun 1450. Gaya bangunan Machu Picchu sangat mirip dengan gaya bangunan Inka kuno, berupa batu tembok berpelitur. Bangunan utamanya adalah Intihuatana, Kuil Matahari, dan Ruangan Tiga Jendela. Tempat-tempat tersebut dikenal sebagai tempat yang sakral.

5. Chichén Itzá

Chichén Itzá

Chichén Itzá merupakan sebuah situs kuno peradaban suku Maya yang terkenal akan ramalanya. Situs ini terletak di Meksiko semenjak abad 800 SM. Bangunan Chichén Itzá didirikan oleh raja suku Toltec bernama Quetzalcoatl yang datang ke Semenanjung Yukatan bersama pasukannya. Kala itu suku Maya sudah bermukim di wilayah tersebut. Kemudian suku maya dan suku Toltec bersama-sama mulai membangun berbagai kuil yang menyerupai piramid. Dapat disimpulkan bahwa periode puncak dari Chichen Itza adalah gabungan dua kebudayaan, yaitu kebudayaan suku Toltec dan suku Maya.  Situs ini, konon dianggap sebagai simbol pemujaan serta ilmu pengetahuan pada masanya. 

6. Koloseum

koloseum, 7 keajaiban dunia

Koloseum berada di kota Roma, Italia merupakan arena Gladiator pada masanya. Bangunan yang berukuran dengan tinggi 48 meter, panjang 188 meter, lebar 156 meter, serta memiliki luas seluruh area bangunanya sekitar 2.5 ha ini adalah sebuah karya besar bangsa romawi kuno. Dengan luas yang sedemikian rupa menjadikan tempat tersebut tempat yang megah untuk para penonton menyaksikan para Gladiator bertanding.

7. Taj Mahal

taj Mahal, 7 keajaiban dunia

Taj Mahal merupakan diarsiteki oleh arsitektur mughal, pembuatanya memakan waktu selama 22 tahun dengan mempekerjakan 20.000 karyawan. Bangunan ini merupakan keinginan dari kaisar Mughal shah Jahan sebagai sebuah musoleum untuk istrinya yang berdarah Persia, bernama Arjumand Banu Begum juga dikenal sebagai Mumtaz-ul-Zamani atau Mumtaz Mahal. Bangunan megah ini terletak di Agra, India. Sekilas tampak bangunan tersebut berupa beton, namun jika disaksikan dari jarak dekat anda akan melihat jika bangunan ini diperindah dengan 43 jenis batu permata, diantaranya adalah berlian, jed, kristal, topaz dan nilam.

Demikian seputar 7 Keajaiban dunia baru yang masih tampak mengagumkan hingga sekarang. Jika nantinya ada perubahan dari hasil voting untuk versi terbarunya akan di update disini, semoga bermanfaat.

 

 4  0

 

 0  2128

7 Keajaiban Dunia Baru Yang Mengagumkan
Reviewed by Portal Mint on 12/05/2012 Rating: 4.9 dari 5

Artikel Menarik Lainya: