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

 

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:

 

 
 

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:

 

 
 

Aside

Pelangi

Dari Wikipedia bahasa Indonesia, ensiklopedia bebas
Langsung ke: navigasi, cari

Pelangi

Rainbow formation.png

Pelangi atau bianglala adalah gejala optik dan meteorologi berupa cahaya beraneka warna saling sejajar yang tampak di langit atau medium lainnya. Di langit, pelangi tampak sebagai busur cahaya dengan ujungnya mengarah pada horizon pada suatu saat hujan ringan. Pelangi juga dapat dilihat di sekitar air terjun yang deras.

Pembentukan

Cahaya matahari adalah cahaya polikromatik (terdiri dari banyak warna). Warna putih cahaya matahari sebenarnya adalah gabungan dari berbagai cahaya dengan panjang gelombang yang berbeda-beda. Mata manusia sanggup mencerap paling tidak tujuh warna yang dikandung cahaya matahari, yang akan terlihat pada pelangi: merah, jingga, kuning, hijau, biru, nila, dan ungu.

Panjang gelombang cahaya ini membentuk pita garis-garis paralel, tiap warna bernuansa dengan warna di sebelahnya. Pita ini disebut spektrum warna. Di dalam spektrum warna, garis merah selalu berada pada salah satu sisi dan biru serta ungu di sisi lain, dan ini ditentukan oleh perbedaan panjang gelombang.

Pelangi tidak lain adalah busur spektrum warna besar berbentuk lingkaran yang terjadi karena pembiasan cahaya matahari oleh butir-butir air. Ketika cahaya matahari melewati butiran air, ia membias seperti ketika menembus prisma kaca dan keluar menjadi spektrum warna pelangi. Jadi di dalam tetesan air, kita sudah mendapatkan warna yang berbeda-beda berderet dari satu sisi ke sisi tetesan air lainnya. Beberapa dari cahaya berwarna ini kemudian dipantulkan dari sisi yang jauh pada tetesan air, kembali dan keluar lagi dari tetesan air. Cahaya keluar kembali dari tetesan air ke arah yang berbeda, tergantung pada warnanya. Warna-warna pada pelangi ini tersusun dengan merah di paling atas dan ungu di paling bawah pelangi.

Pelangi terlihat sebagai busur dari permukaan bumi karena terbatasnya sudut pandang mata, jika titik pandang di tempat yang tinggi misalnya dari pesawat terbang dapat terlihat sebagai spektrum warna yang lengkap yaitu berbentuk lingkaran. Pelangi hanya dapat dilihat saat hujan bersamaan dengan matahari bersinar, tapi dari sisi yang berlawanan dengan si pengamat. Posisi si pengamat harus berada di antara matahari dan tetesan air dengan matahari di belakang orang tersebut. Matahari, mata si pengamat, dan pusat busur pelangi harus berada dalam satu garis lurus.

Search Wikimedia Commons Wikimedia Commons memiliki galeri mengenai:

Nuvola apps kweather.svg  Artikel bertopik meteorologi ini adalah sebuah rintisan. Anda dapat membantu Wikipedia dengan mengembangkannya.

 

Menu navigasi

Bahasa lain

Aside

Manfaat dan Khasiat Kunyit bagi Manusia

23 May 2012Kategori: Obat alami Blm ada komentar

Oleh: Mohanapriya Gunasekaran

Kunyit (Curcuma domestica Vahl.) atau lebih dikenal sebagai kunir oleh masyarakat Jawa dan koneng dalam bahasa Sunda adalah tanaman obat yang berasal dari Asia. Tanaman dari famili Zingiberaceae ini tumbuh amat baik di Indonesia dan mudah didapati di pasaran. Bagian utama dari kunyit yang memiliki khasiat obat adalah rimpangnya yang berada di dalam tanah.

Kunyit tidak asing lagi bagi ibu-ibu, yang biasa menambahkannya dalam masakan sebagai salah satu ramuan bumbu. Kunyit juga digunakan sebagai pewarna alami masakan yang tidak karsinogenik, tidak menimbulkan sebarang efek samping dan aman dikonsumsi walaupun dalam jumlah yang banyak. Selain memberi warna, ia turut memberikan aroma yang khas dan dapat menutup bau yang tidak enak yang muncul dari telur dan daging.

Kunyit rasanya agak pahit dengan campuran sedikit pedas, berbau khas aromatik, berwarna kuning dan tidak beracun. Senyawa kimia utama yang terkandung dalam rimpang kunyit adalah minyak atsiri dan kurkuminoid. Warna kuning kunyit berasal dari kurkuminoid yang mengandung kurkumin. Aroma khasnya adalah dari minyak atsiri yang mengandung alkohol seskuiterpen. Rimpang kunyit juga mengandung protein, kalsium, fosfor, besi, lemak dan gom.

Khasiat kunyit

Kunyit telah digunakan selama lebih dari 2500 tahun di India, di mana ia kemungkinan besar pertama kali digunakan sebagai pewarna dan obat. Kunyit banyak digunakan dalam pengobatan Ayurveda, karena memiliki kualitas antiseptik dan antibakteri, memiliki efek yang sama dengan fluoride untuk gigi, menyembuhkan psoriasis dan peradangan sendi, serta membantu masalah pencernaan dan depresi.

Beberapa khasiat pengobatan kunyit pada manusia:

  1. Selain memiliki aktivitas antimikroba, antiradang, dan antivirus, kunyit juga berpotensi meningkatkan jumlah antioksidan dalam tubuh. Kurkumin, senyawa fenolik alami pada kunyit, bermanfaat untuk meningkatkan kekebalan tubuh.
  2. Kunyit berpotensi dalam pengobatan kanker. Pada penderita kanker, sel-sel kanker menjalar melalui pembuluh darah (metastasis) dan jaringannya menjadi tumor. Angiogenesis juga terjadi, yaitu pertumbuhan pembuluh darah baru yang menyebar ke arah tumor untuk suplai nutrien, oksigen dan sirkulasi kotoran. Kurkumin mengobati kanker dengan menghambat laju pertumbuhan pembuluh-pembuluh darah baru tersebut.
  3. Wanita yang mengalami masalah dengan haid dapat menggunakan kunyit untuk mengatasinya. Efek farmakologis kunyit dapat melancarkan darah dan haid serta mengurangi rasa nyeri dan lelah datang bulan.
  4. Sebagai antikoagulan alami, kunyit dapat menghalangi pembekuan darah dan mencegah terjadinya trombosis.
  5. Kunyit dapat menurunkan tekanan darah, mengobati diare, sakit lambung, asma, usus buntu, dan rematik.
  6. Sifat analgesik alami kunyit bekerja dengan menghambat Cox-2 yang mencetuskan rasa nyeri. Dengan sifat analgesik dan antiinflamasinya, kunyit dapat mengobati artritis dan rheumatoid artritis.
  7. Penyakit pikun dapat diperlambat dengan sering mengonsumsi kunyit dalam makanan. Penyakit Alzheimer adalah salah satu penyakit pikun yang terjadi umumnya pada usia tua, ketika kapasitas fisik otak berkurang. Kunyit berpotensi memperpanjang jangka waktu abilitas kognitif otak. Beberapa penelitian membuktikan bahwa manula di Asia yang sering mengkonsumsi kare (curry) yang mengandung kunyit memiliki daya ingatan yang lebih baik daripada manula di benua yang lain.

Produk berbahan kunyit

Kini terdapat pelbagai produk di pasaran yang menggunakan kunyit sebagai bahan utama maupun tambahan dalam ramuannya. Di antaranya adalah jamu. Jamu pada dasarnya berarti “obat kuat” atau “obat semua” dan merupakan sistem penyembuhan lokal yang berasal dari Indonesia. Kunyit adalah bahan jamu alami yang telah digunakan sejak jaman dahulu. Kunyit dalam jamu atau bahan lulur digunakan oleh para wanita untuk mencerahkan warna kulit serta menjadikannya lebih sehat, halus dan mulus. Hal tersebut karena kunyit mempunyai aktivitas antiseptik yang dapat menghilangkan gatal-gatal dan infeksi bakteri seperti jerawat. Jamu kunyit dapat mengembalikan kesegaran tubuh yang pegal dan capek. Pada wanita, jamu kunyit dapat mencegah timbulnya kista atau kanker rahim, karena kunyit memiliki aktivitas antikanker.

Namun demikian, dewasa ini pola kehidupan sudah semakin modern, masyarakat semakin sibuk dan tiada waktu untuk menggunakan kunyit secara konvensional. Beberapa produsen telah menjual kunyit dalam bentuk bubuk yang praktis dan mudah digunakan serta tahan lama, dengan tanggal kadaluarsa yang panjang. Kunyit dalam bentuk bubuk dan kapsul itu tersedia di toko-toko kesehatan dengan dosis sekitar 250-500 mg per kapsul. Kunyit juga digunakan oleh industri kosmetik dalam krim tabir surya, produk hair removal dan perawatan bekas luka.

Beberapa resep kunyit

Terdapat beberapa petua untuk mengonsumsi kunyit secara empiris di rumah, yaitu dengan cara merebus rimpang kunyit dan ditambah dengan beberapa ramuan lain sesuai dengan penyakit yang ingin diobati. Berikut adalah beberapa contoh:

  1. Demam: rimpang kunyit yang dicuci (20g), diparut, ditambah dengan air matang 100ml, diperas dengan saringan kain. Airnya diminum 2 kali sehari.
  2. Diare: kunyit diiris, direbus dengan air, ditambah 1 sendok teh air kapur sirih, aduk sampai rata. Dinginkan. Saringan airnya diminum 3 kali sehari sampai sembuh.
  3. Borok: kunyit diparut sebesar ibu jari, ditambah satu sendok teh air kapur sirih dan perasan air 1 jeruk nipis, aduk sampai rata. Oleskan campuran pada bagian tubuh yang sakit.
  4. Gatal (cacar air): sepotong kunyit, segenggam daun asam dicuci, diblender hingga halus seperti bubur. Oleskan pada bagian tubuh yang gatal.
  5. Keputihan: Kunyit tua (15g) dikupas dan diparut. Ditambah 150ml air asam dan gula jawa, aduk rata. Peras dengan kain, dan minum setiap hari.
  6. Radang amandel: setengah jari kunyit diparut, ditambah 2 sendok air minum, aduk sampai rata, peras dan ambil airnya. Tambah 1 kuning telur ayam kampung dan sedikit air kapur sirih. Kocok adunan, minum 1 hingga 2 kali sehari.
  7. Radang gusi: setengah ibu jari kunyit dan 3 potong gambir diiris. Rebus dalam 2 gelas air sehingga tersisa 1 gelas. Gunakan air itu untuk berkumur 3 hingga 4 kali sehari.
  8. Telat haid: kunyit dan daun sigading (15g), biji pala dan kapulaga (10g), ketumbar, jinten hitam dan cengkeh (5g). Rebus bahan tersebut dengan 3 gelas air sehingga tersisa 1 gelas. Dinginkan, saring, bagi menjadi 3 bagian untuk diminum 3 kali sehari.
  9. Kesehatan kulit dan umum (jamu): 100g rimpang kunyit segar, 100 ml air jeruk nipis, 11/2 sendok makan madu dan air secukupnya. Kunyit dihaluskan dengan blender, campurkan pasta kunyit tersebut dengan madu dan air jeruk nipis. Tambahkan air secukupnya. Minum secara teratur.

Bijaksana mengonsumsi

Walaupun kunyit memiliki banyak khasiat, penggunaannya harus bijaksana karena konsumsi berlebihan bisa menyebabkan pelbagai komplikasi. Kunyit tidak boleh digunakan oleh penderita batu empedu atau obstruksi empedu. Ibu hamil harus berkonsultansi dengan dokter dahulu sebelum mengonsumsi kunyit dalam jumlah tinggi karena kunyit dapat menstimulasi rahim. Orang lanjut usia tidak boleh makan kunyit berlebihan karena dapat menyebabkan nyeri lambung, gangguan hati maupun ginjal.

image source: Wikipedia

Tentang Penulis:
Mohanapriya Gunasekaran adalah mahasiswa asal Pulau Pinang, Malaysia yang sedang belajar di Fakultas Farmasi, Universitas Padjajaran (UNPAD), Bandung. Untuk interaksi dan korespondensi lebih lanjut, silakan menghubungi penulis melalui halaman kontak.

Rekomendasi:

Kunyit berisi 100% ekstrak kunyit pilihan (Curcuma domestica) yang berguna sebagai anti bakteri dan anti virus, mengatasi peradangan lambung dan usus, melancarkan sirkulasi darah dan memperbaiki fungsi hati.

Sebarkan, cetak atau simpan halaman ini:

  • Twitter
  • PDF
  • Print
  • Add to favorites
  • Facebook
  • Google Buzz

Berlangganan:

Anda menyukai artikel-artikel di situs ini? Kenapa tidak berlangganan saja lewat email? Bergabunglah dengan ribuan orang lain yang secara otomatis mendapatkan artikel baru dari situs ini ke email mereka. Masukkan alamat e-mailmu:

Komentar ditutup.