Membuat Kalkulator Sederhana dengan Visual Basic 6.0

Program kalkulator adalah program standar yang sudah tersedia di Microsoft Windows. Tetapi, tak ada
salahnya jika kita mencoba membuat kalkulator sendiri dengan Microsoft Visual Basic 6.0.
Pertama-tama, buatlah sebuah form sesuai selera Anda, yang bentuknya kurang lebih seperti
kalkulator standar Windows, seperti ini:


Untuk properties dari masing-masing objek, saya contohkan seperti dibawah ini, dengan letak
masing-masing objek disesuaikan dengan gambar diatas.
Textbox 1:
(Name) : txtDisplay
Alignment: 1-Right Justify
Text : (kosongkan)
Maxlength : 12
Command Button 1:
(Name) : cmdAngka
Index : 1
Caption : 1
Command Button 2:
(Name) : cmdAngka
Index : 2
Caption : 2
Command Button 3:
(Name) : cmdAngka
Index : 3
Caption : 3
Command Button 4:
(Name) : cmdAngka
Index : 4
Caption : 4
Command Button 5:
(Name) : cmdAngka
Index : 5
Caption : 5
Command Button 6:
(Name) : cmdAngka
Index : 6
Caption : 6
Command Button 7:
(Name) : cmdAngka
Index : 7
Caption : 7
Command Button 8:
(Name) : cmdAngka
Index : 8
Caption : 8
Command Button 9:
(Name) : cmdAngka
Index : 9
Caption : 9

Command Button 10:
(Name) : cmdAngka
Index : 0
Caption : 0
Command Button 11:
(Name) : cmdPlusMinus
Caption : +/-
Command Button 12:
(Name) : cmdKoma
Caption : .
Command Button 13:
(Name) : cmdOperator
Index : 1
Caption : +
Command Button 14:
(Name) : cmdOperator
Index : 2
Caption : -
Command Button 15:
(Name) : cmdOperator
Index : 3
Caption : x
Command Button 16:
(Name) : cmdOperator
Index : 4
Caption : /
Command Button 17:
(Name) : cmdClearEntry
Caption : CE
Command Button 18:
(Name) : cmdClear
Caption : C
Command Button 19:
(Name) : cmdSamaDengan
Caption : =
Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua
setting properties seperti diatas, maka codingnya saya contohkan seperti ini:
Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3

Private Const opBagi = 4
Private Operator As Integer
Private NilaiBaru As Boolean
' untuk menghapus karakter terakhir
Private Sub Hapus()
Dim txt As String
Dim min_len As Integer
txt = txtDisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub
' hapus angka, hasil terakhir dan operator
Private Sub cmdClear_Click()
cmdClearEntry_Click
Hasil = 0
Operator = opNol
End Sub
' hapus angka
Private Sub cmdClearEntry_Click()
txtDisplay.Text = ""
End Sub
' menambahkan koma (desimal)
Private Sub cmdKoma_Click()
If InStr(txtDisplay.Text, ".") Then
Beep
Else
If NilaiBaru Then
txtDisplay.Text = "."
NilaiBaru = False
Else
txtDisplay.Text = txtDisplay.Text & "."
End If
End If
End Sub
' Menghitung
Private Sub cmdSamaDengan_Click()
Dim HasilBaru As Double
If txtDisplay.Text = "" Then
HasilBaru = 0

Else
HasilBaru = CDbl(txtDisplay.Text)
End If
Select Case Operator
Case opNol
Hasil = HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
Case opKurang
Hasil = Hasil - HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opBagi
'Tidak bisa dibagi nol
If HasilBaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR"
Call cmdClear_Click
Else
Hasil = Hasil / HasilBaru
End If
End Select
Operator = opNol
NilaiBaru = True
txtDisplay.Text = Format$(Hasil)
End Sub
' menuliskan angka
Private Sub cmdAngka_Click(Index As Integer)
If NilaiBaru Then
txtDisplay.Text = Format$(Index)
NilaiBaru = False
Else
txtDisplay.Text = _
txtDisplay.Text & Format$(Index)
End If
End Sub
' tombol tambah/kurang/bagi/kali
Private Sub cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub
' merubah tanda +/-
Private Sub cmdPlusMinus_Click()
If NilaiBaru Then
txtDisplay.Text = "-"
ElseIf Left$(txtDisplay.Text, 1) = "-" Then
txtDisplay.Text = Right$(txtDisplay.Text, 2)
Else

txtDisplay.Text = "-" & txtDisplay.Text
End If
End Sub
' filter untuk angka saja yg dapat diketikkan
Private Sub Form_KeyPress(KeyAscii As Integer)
txtDisplay_KeyPress KeyAscii
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay_KeyUp KeyCode, Shift
End Sub
' supaya kursor tetap di kanan
Private Sub txtDisplay_Change()
txtDisplay.SelStart = Len(txtDisplay.Text)
End Sub
Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub
' untuk mengetikkan angka di keyboard
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
Case "*", "x", "X"
cmdOperator_Click opKali
Case "+"
cmdOperator_Click opTambah
Case vbCrLf, vbCr, "="

cmdSamaDengan_Click
Case "-"
cmdOperator_Click opKurang
Case "."
cmdKoma_Click
Case "/"
cmdOperator_Click opBagi
Case "C", "c"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub
' untuk ketikan angka di numpad
Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
cmdAngka_Click 0
Case vbKeyNumpad1
cmdAngka_Click 1
Case vbKeyNumpad2
cmdAngka_Click 2
Case vbKeyNumpad3
cmdAngka_Click 3
Case vbKeyNumpad4
cmdAngka_Click 4
Case vbKeyNumpad5
cmdAngka_Click 5
Case vbKeyNumpad6
cmdAngka_Click 6
Case vbKeyNumpad7
cmdAngka_Click 7
Case vbKeyNumpad8
cmdAngka_Click 8
Case vbKeyNumpad9
cmdAngka_Click 9
Case vbKeyMultiply
cmdOperator_Click opKali
Case vbKeyAdd
cmdOperator_Click opTambah
Case vbKeySeparator
cmdSamaDengan_Click
Case vbKeySubtract
cmdOperator_Click opKurang
Case vbKeyDivide
cmdOperator_Click opBagi
Case vbKeyDecimal
cmdKoma_Click
Case vbKeyBack, vbKeyDelete
Hapus
End Select
KeyCode = 0
End Sub

PEMROGRAMAN VISUAL

Aplikasi SMS dengan VB & Mobile FBUS 1.5 ActiveX Control Part 2

PROGRAM UNTUK MENGIRIM SMS


Ikutilah langkah-langkah berikut untuk membuat program yang dapat mengirimkan sebuah SMS:
1. Dari form yang telah kita buat sebelumnya, tambahkan sebuah CommandButton dan rubahlah
captionnya menjadi “Kirim SMS”. Lalu aturlah letak component-componentnya sehingga
tampilannya menjadi seperti gambar dibawah ini.

2. Click dua kali pada CommandButton yang mempunyai caption “Kirim SMS”, kemudian
ketikkan listing program berikut :
Private Sub Command3_Click()
'Variabel A adalah variabel yang akan menampung nilai hasil proses
pengiriman SMS
'A akan bernilai TRUE jika pengiriman berhasil dan FALSE jika
pengiriman gagal
'Proses pengiriman SMS ini akan mengembalikan suatu nilai yang bertype
BOOLEAN
'Nomor tujuan untuk pengiriman SMS saat ini adalah ABCDEFGHIJKL. Nomor
ini dapat
'diganti sesuai dengan kebutuhan
'Begitu pula dengan pesan SMS yang dikirimkan dapat diganti sesuai
dengan kebutuhan
A = MFBUS15Control1.SMS.SendMessage("ABCDEFGHIJKL ", "Hallo, ini hanya
test")
'Untuk melakukan cek, apakah pengiriman SMS berhasil atau gagal
If A = True ThenMsgBox "Pengiriman SMS berhasil"
Else
MsgBox "Pengiriman SMS gagal"
End If
End Sub
3. Jalankan program, kemudian click CommandButton Connect sehingga koneksi berhasil. Setelah
koneksi berhasil, klik CommandButton Kirim SMS maka program akan memberitahu apakah
pengiriman SMS berhasil atau gagal.

Diposkan oleh jefri gunawan

C++

C++ adalah bahasa pemrograman komputer C++ dikembangkan di Bell Labs (Bjarne Stroustrup) pada awal tahun 1970-an.Bjarne Stroustrup pada Bell labs pertama kali mengembangkan C++ pada awal 1980-an.Perbedaan Antara Bahasa pemrograman C dan C++ meskipun bahasa-bahasa tersebut menggunakan sintaks yang sama tetapi mereka memiliki perbedaan, C merupakan bahasa pemrograman prosedural, dimana penyelesaian suatu masalah dilakukan dengan membagi-bagi masalah tersebut kedalam su-submasalah yang lebih kecil, Selain itu, C++ merupakan bahasa pemrograman yang memiliki sifat Pemrograman berorientasi objek, Untuk menyelesaikan masalah, C++ melakukan langkah pertama dengan menjelaskan class-class yang merupakan anak class yang dibuat sebelumnya sebagai abstraksi dari object-object fisik, Class tersebut berisi keadaan object, anggota-anggotanya dan kemampuan dari objectnya, Setelah beberapa Class dibuat kemudian masalah dipecahkan dengan Class.

7 Hotel Termahal di Dunia

• Email

RumahCom – Uang memang tak bisa membeli kebahagiaan. Tetapi, menghabiskan malam di kamar hotel super mewah menjadi impian setiap orang. Suasana yang nyaman, fasilitas lengkap, dan santapan yang lezat selalu menjadi pemanis suite hotel tersebut. Berikut ini tujuh hotel termahal di dunia yang dikutip dari pacsafe.com.

lihat foto-foto di sini
1. Hotel President Wilson - Jenewa, SwissDengan tarif USD65.000 per malam, Royal Penthouse Suite di Hotel President Wilson merupakan hotel dengan harga tertinggi di dunia. Betapa tidak, suite mewah ini memiliki kapasitas 12 kamar dan hanya dapat diakses melalui lift pribadi.
Tak hanya itu, beragam fasilitas seperti perpustakaan, grand piano, dan meja biliar barulah sebagian dari fasilitas yang tersedia di sini. Di sisi lain, pemandangan Mont Blanc dan Danau Jenewa siap memanjakan mata para tamu yang datang ke suite super mewah ini.
2. Raj Palace Hotel - Jaipur, IndiaPresidential suite di Raj Palace Hotel di Jaipur, India menawarkan gaya hidup mewah bagi para tamunya. Suite mewah nan legendaris ini juga memiliki private roof terrace, kolam renang, museum, dan beragam fasilitas lain. Dengan dekorasi ruangan yang mencengangkan, membuat Anda enggan meninggalkan ruangan yang dibanderol USD45.000 per malam ini.
3. Hotel Four Seasons - New York City, Amerika SerikatTarif USD42.000 per malam untuk penthouse seluas 400 meter persegi ini pasti tidak murah, tetapi pemandangan 360 derajat kota Manhattan yang ditawarkan di sini mungkin sebanding dengan harga tersebut. Suite ini memiliki sembilan kamar dan dilengkapi dengan pelayan pribadi untuk menjamin pelayanan terbaik.
4. Hotel Martinez - Cannes, PrancisPemandanganan yang ditawarkan di teras penthouse Martinez Hotel, Cannes ini mungkin layak membuat tarif suite hotel ini dipatok sebesar USD37.500 per malam. Ditambah lagi suite ini memiliki dua kamar tidur dan dua kamar mandi yang super mewah.
5. Sky Villa - Las Vegas, Amerika Serikat
Sky Villa milik bos Playboy, Hugh Hefner di Palms Resort, dibanderol USD35.000 per malam. Dicap dengan segala sesuatu berbau Playboy, penthouse ini dilengkapi dengan air terjun, tempat tidur berputar, dan bathtub berukuran besar yang cukup untuk berpesta. Satu-satunya hal yang hilang dari penthouse ini adalah Kelinci Playboy.
6. Royal Villa, Grand Resort Lagonissi - Athena, YunaniRoyal Villa di Grand Resort Lagonissi, Athena menyediakan koki, pelayan, dan pianis pribadi. Kendati terletak di tepi pantai, namun akan sulit rasanya meninggalkan vila mewah ini, karena vila dilengkapi dengan kolam renang di dalam dan luar ruangan, pusat kebugaran, dan ruang pijat. Untuk menikmati satu malam di villa berkamar tidur tiga ini, Anda harus merogoh kocek USD34.400.
7. Hotel Cala di Volpe - Sardinia, ItaliaMeski ada di posisi ketujuh, namun banyak orang yang bilang bahwa suite hotel ini adalah yang tercantik di planet ini. Presidential suite di hotel ini menghadap pantai Smerelda begitu indah serta dilengkapi gudang anggur, kolam renang, dan pusat kebugaran pribadi. Semua ini bisa Anda nikmati dengan membayar USD32.736 per malam.
Anto Erawanantoerawan@rumah.com

Pesawat Otomatis untuk Fotografi dari Udara

• Email

Para penggemar videografi dan fotografi pasti sudah tidak asing dengan aerial photography, teknik merekam objek dari udara. Biasanya dibutuhkan peralatan seperti pesawat remote control yang dipasangkan dengan kamera DSLR atau camcorder.

Namun sayangnya tidak semua orang bisa mengendalikan pesawat remote control. Lalu bagaimana solusinya? Anda tidak perlu khawatir karena sebuah perangkat inovatif bernama LA100 Automatic UAV telah berhasil diciptakan dan akan mempermudah kegiatan memotret para fotografer udara.

LA100 Automatic UAV

LA100 Automatic UAV merupakan hasil ide inovatif dari Lehmann Aviation yang berbasis di Prancis. Masih ingat dengan kamera tangguh, GoPro HERO3? Ya, LA100 Automatic UAV merupakan aksesori pelengkap yang khusus dibuat untuk dipasangkan dengan GoPro HERO3.

LA100 Automatic UAV hadir dengan material yang terbuat dari bahan buih dan serat karbon dengan bobot total sekitar 850 gram. Pesawat ini dirancang untuk bekerja secara otomatis.

Maksudnya di sini Anda tidak perlu lagi mengendalikannya dengan remote control. Sebelum menerbangkan pesawat ini Anda harus memprogram arah terbangnya terlebih dahulu lewat aplikasi khusus yang dimilikinya.

Setelah itu, Anda dapat memasangkan kamera GoPro3 di bagian atas bodi atau bagian bawah sayap untuk hasil foto secara vertikal. Dan meski tergolong ringan, pesawat ini nyatanya sanggup terbang dengan dua buah GoPro HERO3 dalam waktu yang bersamaan.

Untuk kinerja terbangnya sendiri, LA100 Automatic UAV dapat terbang dengan kecepatan 20 hingga 80 kilometer per jam untuk waktu terbang sekitar 5 menit. Pesawat ini mampu menempuh jarak terbang hingga sekitar 500 meter dan dapat juga terbang di kondisi berangin dengan kecepatan hingga 45 km/jam dan pada kondisi suhu dingin pada temperatur -25 hingga 60 derajat Celcius.

LA100 Automatic UAV akan mulai tersedia di pasaran pada bulan Desember 2012. Harga jualnya sekitar $1275 belum termasuk dengan kamera GoPro HERO3 yang dijual terpisah.

Untuk lebih jelasnya, simak videonya di link ini.



Kristian Tjahjono, kontributor situs teknologi konsumen yangcanggih.com. Antusias terhadap berbagai jenis gadget, mulai dari komputer, ponsel, sampai kamera digital.

Sejarah Kota Medan

Kesawan


Kali ini saya akan bercerita mengenai kota kelahiran saya yaitu Kota Medan
Pada zaman dahulu Kota Medan ini dikenal dengan nama Tanah Deli dan keadaan tanahnya berawa-rawa kurang lebih seluas 4000 Ha. Beberapa sungai melintasi Kota Medan ini dan semuanya bermuara
ke Selat Malaka. Sungai-sungai itu adalah Sei Deli, Sei Babura, Sei Sikambing, Sei Denai, Sei Putih, Sei Badra, Sei Belawan dan Sei Sulang Saling/Sei Kera. dan Sei Deli.
Pada mulanya yang membuka perkampungan Medan adalah Guru Patimpus, lokasinya terletak di Tanah Deli, maka sejak zaman penjajahan orang selalu merangkaikan Medan dengan Deli (Medan–Deli). Setelah zaman kemerdekaan lama kelamaan istilah Medan Deli secara berangsur-angsur lenyap sehingga akhirnya kurang popular.
Dahulu orang menamakan Tanah Deli mulai dari Sungai Ular (Deli Serdang) sampai ke Sungai Wampu di Langkat sedangkan Kesultanan Deli yang berkuasa pada waktu itu wilayah kekuasaannya tidak mencakup daerah di antara kedua sungai tersebut.
Secara keseluruhan jenis tanah di wilayah Deli terdiri dari tanah liat, tanah pasir, tanah campuran, tanah hitam, tanah coklat dan tanah merah. Hal ini merupakan penelitian dari Van Hissink tahun 1900 yang dilanjutkan oleh penelitian Vriens tahun 1910 bahwa di samping jenis tanah seperti tadi ada lagi ditemui jenis tanah liat yang spesifik. Tanah liat inilah pada waktu penjajahan Belanda ditempat yang bernama Bakaran Batu (sekarang Medan Tenggara atau Menteng) orang membakar batu bata yang berkwalitas tinggi dan salah satu pabrik batu bata pada zaman itu adalah Deli Klei.
Mengenai curah hujan di Tanah Deli digolongkan dua macam yakni : Maksima Utama dan Maksima Tambahan. Maksima Utama terjadi pada bulan-bulan Oktober s/d bulan Desember sedang Maksima Tambahan antara bulan Januari s/d September. Secara rinci curah hujan di Medan rata-rata 2000 pertahun dengan intensitas rata-rata 4,4 mm/jam.
Menurut Volker pada tahun 1860 Medan masih merupakan hutan rimba dan di sana sini terutama dimuara-muara sungai diselingi pemukiman-pemukiman penduduk yang berasal dari Karo dan semenanjung Malaya. Pada tahun 1863 orang-orang Belanda mulai membuka kebun Tembakau di Deli yang sempat menjadi primadona Tanah Deli. Sejak itu perekonomian terus berkembang sehingga Medan menjadi Kota pusat pemerintahan dan perekonomian di Sumatera Utara. test Pada awal perkembangannya merupakan sebuah kampung kecil bernama "Medan Putri". Perkembangan Kampung "Medan Putri" tidak terlepas dari posisinya yang strategis karena terletak di pertemuan sungai Deli dan sungai Babura, tidak jauh dari jalan Putri Hijau sekarang. Kedua sungai tersebut pada zaman dahulu merupakan jalur lalu lintas perdagangan yang cukup ramai, sehingga dengan demikian Kampung "Medan Putri" yang merupakan cikal bakal Kota Medan, cepat berkembang menjadi pelabuhan transit yang sangat penting.
Semakin lama semakin banyak orang berdatangan ke kampung ini dan isteri Guru Patimpus yang mendirikan kampung Medan melahirkan anaknya yang pertama seorang laki-laki dan dinamai si Kolok. Mata pencarian orang di Kampung Medan yang mereka namai dengan si Sepuluh dua Kuta adalah bertani menanam lada. Tidak lama kemudian lahirlah anak kedua Guru Patimpus dan anak inipun laki-laki dinamai si Kecik.
Pada zamannya Guru Patimpus merupakan tergolong orang yang berfikiran maju. Hal ini terbukti dengan menyuruh anaknya berguru (menuntut ilmu) membaca Al-Qur'an kepada Datuk Kota Bangun dan kemudian memperdalam tentang agama Islam ke Aceh.
Keterangan yang menguatkan bahwa adanya Kampung Medan ini adalah keterangan H. Muhammad Said yang mengutip melalui buku Deli: In Woord en Beeld ditulis oleh N. ten Cate. Keterangan tersebut mengatakan bahwa dahulu kala Kampung Medan ini merupakan Benteng dan sisanya masih ada terdiri dari dinding dua lapis berbentuk bundaran yang terdapat dipertemuan antara dua sungai yakni Sungai Deli dan sungai Babura. Rumah Administrateur terletak di seberang sungai dari kampung Medan. Kalau kita lihat bahwa letak dari Kampung Medan ini adalah di Wisma Benteng sekarang dan rumah Administrateur tersebut adalah kantor PTP IX Tembakau Deli yang sekarang ini.

John Anderson, seorang pegawai Pemerintah Inggeris yang berkedudukan di Penang, pernah berkunjung ke Medan tahun 1823. Dalam bukunya bernama “Mission to the Eastcoast of Sumatera”, edisi Edinburg tahun 1826, Medan masih merupakan satu kampung kecil yang berpenduduk sekitar 200 orang. Di pinggir sungai sampai ke tembok Mesjid kampung Medan, ada dilihatnya susunan batu-batu granit berbentuk bujur sangkar yang menurut dugaannya berasal dari Candi Hindu di Jawa.

Menurut legenda, dizaman dahulu kala pernah hidup di Kesultanan Deli Lama kira-kira 10 km dari kampung Medan, di Deli Tua sekarang seorang putri yang sangat cantik dan karena kecantikannya diberi nama Putri Hijau. Kecantikan puteri itu tersohor kemana-mana, mulai dari Aceh sampai ke ujung utara Pulau Jawa.Sultan Aceh jatuh cinta pada puteri itu dan melamarnya untuk dijadikan permaisurinya. Lamaran Sultan Aceh itu ditolak oleh kedua saudara laki-laki Putri Hijau. Sultan Aceh sangat marah karena penolakannya itu dianggap sebagai penghinaan terhadap dirinya. Maka pecahlah perang antara kesultanan Aceh dan kesultanan Deli.

Menurut legenda yang tersebut di atas, dengan mempergunakan kekuatan gaib, seorang dari saudara Putri Hijau menjelma menjadi seekor ular naga dan yang seorang lagi sebagai sepucuk meriam yang tidak henti-hentinya menembaki tentara Aceh hingga akhir hayatnya.

Kesultanan Deli Lama mengalami kekalahan dalam peperangan itu dan karena kecewa, Putera mahkota yang menjelma menjadi meriam itu, meledak bagian belakangnya terlontar ke Labuhan Deli dan bagian depannya kedataran tinggi Karo, kira-kira 5 km dari Kabanjahe.Pangeran yang seorang lagi yang telah berubah menjadi seekor ular naga itu, mengundurkan diri melalui satu saluran dan masuk ke dalam Sungai Deli disatu tempat yang berdekatan dengan Jalan Putri Hijau sekarang. Arus sungai membawanya ke Selat Malaka dari tempat ia meneruskan perjalanannya yang terakhir di ujung Jambo Aye dekat Lok Seumawe, Aceh.Putri Hijau ditawan dan dimasukkan dalam sebuah peti kaca yang dimuat ke dalam kapal untuk seterusnya dibawa ke Aceh.Ketika kapal sampai di ujung Jambo Aye, Putri Hijau mohon diadakan satu upacara untuknya sebelum peti diturunkan dari kapal. Atas permintaannya, harus diserahkan padanya sejumlah beras dan beribu-ribu telur. Permohonan tuan Putri itu dikabulkan.

Tetapi, baru saja upacara dimulai, tiba-tiba berhembus angin ribut yang maha dahsyat disusul oleh gelombang-gelombang yang sangat tinggi. Dari dalam laut muncul abangnya yang telah menjelma menjadi ular naga itu dengan menggunakan rahangnya yang besar itu, diambilnya peti tempat adiknya dikurung, lalu dibawanya masuk ke dalam laut.

Istana Maimun

Legenda ini sampai sekarang masih terkenal dikalangan orang-orang Deli dan malahan juga dalam masyarakat Melayu di Malaysia. Di Deli Tua masih terdapat reruntuhan benteng dari Puri yang berasal dari zaman Putri Hijau, sedangkan sisa meriam, penjelmaan abang Putri Hijau, dapat dilihat di halaman Istana Maimun, Medan.

Kepemimpinan tanpa Nyali

Media Indonesia, 20/12/2012

David Krisna Alka, Peneliti Populis Institute dan Maarif Institute for Culture and Humanity

Apa makna penting dari kepemimpinan politik di tengah berseraknya kasus korupsi di Tanah Air ini? Maknanya, ketidakpercayaan masyarakat terhadap institusi politik makin tinggi.

Di Republik ini, ketika kader partai politik (parpol), baik itu yang di legislatif maupun di eksekutif, terlibat korupsi, tidak ada keputusan (ketulusan) dan peringatan yang cepat dilakukan kepemimpinan institusi politik.

Patologi korupsi menghantui kepemimpinan di negeri ini. Masyarakat yang dipimpin kepemimpinan yang cenderung korup bisa menjatuhkan kepemimpinan. Dengan menarik pernyataan Xin Jinping (2012), korupsi diibaratkan sebagai cacing yang berkembang biak di bagian yang membusuk. Sebuah pepatah kuno China yang berarti kejatuhan bakal menimpa pihak yang lemah. Artinya, dosa politik yang bernama korupsi bisa melemahkan kepemimpinan dalam sebuah negeri.

Fakta menunjukkan korupsi menyebabkan pudarnya ke percayaan masyarakat terhadap parpol. Mereka bahkan tidak percaya kepada sebuah pemerintahan. Berpolitik bukan seperti mengunyah permen karet. Apabila hilang rasa manisnya, lalu permen karetnya dilengketkan di atas kursi kekuasaan. Itu berarti kekuasaan tanpa perasaan.

Pemberantasan korupsi di Indonesia terkesan begitu lambat. Setiap pengadilan kasus korupsi tampak berlarut-larut dan memakan waktu bertahun-tahun untuk menunggu koruptor masuk `kandang besi'. Aneh bin ajaib, ada pula peristiwa saling gertak di antara pejabat negara soal keterlibatan dalam korupsi.

Uji nyali 

Jadi, di mana letak kekuatan kenegarawanan seorang pemimpin agar korupsi tak lagi menjadi masalah yang menendang-nendang hati sanubari Ibu Pertiwi? Yang terjadi, seolah pemimpin tak punya nyali untuk sigap memberantas korupsi. Pemimpin yang tak bernyali bikin rakyat sakit hati. 

Bayangkan, rakyat bercucuran keringat mencari sesuap nasi, tapi teperdaya oleh pemimpin yang mereka pilih; presiden, gubernur, atau bupati. Jika kekuasaan yang diraih dari hasil korupsi, pemimpin sebuah negeri tak akan pernah punya nyali memberantas korupsi. Nyali pemimpin ada karena kebersihan laku dan hati dalam berjuang meraih kekuasaan.

Bagi politisi, korupsi ialah dosa politik terberat jika dibandingkan dengan dosa moral politik lainnya. Dosa politik yang tak akan diampuni rakyat dan direlakan begitu saja. Jutaan rakyat Indonesia secara langsung dimiskinkan akibat korupsi sehingga kesenjangan pendapatan, kesenjangan pembangunan wilayah, dan kesenjangan sosial marak terjadi.

Mengibarkan tinggitinggi iklan antikorupsi malah menjilat iklan sendiri. Koruptor menjadi parasit kepemimpinan politik. Uang menjadi senjata politik paling ampuh dan alat praktis meraih puncak kepemimpinan institusi politik. Itulah yang acap kali terjadi dalam dunia politik Indonesia selama ini.

Menggelegaknya berahi kekuasaan dapat membuat lupa dari mana banyaknya uang datang. Alhasil, per ingatan kepada para petinggi partai dan pejabat pemerintah, jangan sekali-kali main-main dengan jabatan. Mentang-mentang pejabat, seenaknya melangkahi hukum! 

Sejarah sebagai se jarah kepemimpinan politik menjadi sasaran kritik. Sejarawan Azyumardi Azra (2002: 163) mengatakan sejarah tentang politik nyaris merupakan sejarah penguasa yang elitis, sejarah tentang mainstream, atau mereka yang dipandang sebagai mainstream. Maka, dalam sejarah politik seperti itu, tak ada tempat bagi kaum papa, orang kecil, massa rakyat jelata, apalagi kelompok atau gerakan yang dipandang yang berada di luar mainstream.

Pemimpin politik yang membiarkan terjadinya tindakan-tindakan korupsi ialah pemimpin yang sakit. Korupsi yang melibatkan institusi politik dalam suatu kepemimpinan merupakan bagian dari kegagalan pemimpin. Apalagi jika terjadi pembiaran, bakal tak ada lagi kewibawaan, sebab tak ada kemampuan untuk meyakinkan (the power to persuade).

Rasanya sulit bisa bernapas lega di negeri sendiri karena pemberantasan korupsi berjalan lelet dan layu. Republik ini tak bisa hanya berharap kepada Komisi Pemberantasan Korupsi (KPK). Menurut Ahmad Syafii Maarif (2011), negara ini tidak pernah serius memberantas korupsi. Mungkin mereka mendengar, tetapi hati beku dan saraf kepekaan sudah mati.

Lambatnya memberantas berbagai persoalan kasus korupsi karena itu dilakukan separuh hati. Ketulusan membela kebenaran-keadilan bangsa dan negara tidak dilakukan sepenuh hati. Laku hidup bersih seolah tak dihormati di negeri yang katanya berbudi pekerti.

Sebagian besar generasi muda belum lega hendak di ranah politik mana semangat kebajikan kepemimpinan politik dibumikan. Sebagai representasi semangat perubahan ke arah yang lebih baik, generasi muda politik sebagai ahli waris masa depan kepemimpinan politik Indonesia pada gilirannya menyiratkan keyakinan pada masa depan yang bermakna.

Esensi capaian dalam berpolitik yaitu menemukan kesadaran baru berpolitik yang memanusiakan sehingga akan menemukan makna emansipatoris sebagai praksis pembebasan dan keadilan. Selain itu, tentu kita menanti sosok kepemimpinan negeri yang punya nyali, bukan pemimpin yang cuma mendengar tapi hati beku dan saraf kepekaan sudah mati.

http://pmlseaepaper.pressmart.com/mediaindonesia/PUBLICATIONS/MI/MI/2012/12/20/index.shtml?ArtId=006_046&Search=Y