Membuat Kalkulator Sederhana Dengan Visual Basic

Objek / Kontrol	Properties	Nilai
Form	Nama Caption	Form1 Form Kalkulator
Label	Nama Caption	Label1 Expresi
TextBox	Caption	TxtExpresi
Command1	Nama Caption	CmdUlang ULANG
Command2	Nama Caption	cmdTombol 7
Command3	Nama Caption	cmdTombol 8
Command4	Nama Caption	cmdTombol 9
Command5	Nama Caption	cmdTombol 4
Command6	Nama Caption	cmdTombol 5
Command7	Nama Caption	cmdTombol 6
Command8	Nama Caption	cmdTombol 1
Command9	Nama Caption	cmdTombol 2
Command10	Nama Caption	cmdTombol 3
Command11	Nama Caption	cmdTombol 0
Command12	Nama Caption	CmdOperator +
Command13	Nama Caption	CmdOperator -
Command14	Nama Caption	CmdOperator x
Command15	Nama Caption	CmdOperator /
Command16	Nama Caption	CmdSamaDengan =

Ketik kode program berikut :

Private Sub CmdAngka_Click(Index As Integer)

End Sub

Private Sub cmdOperator_Click(Index As Integer)

If TxtExpresi.Text = "" Then

JlhOperator = 0

Exit Sub

End If

If Cek Then Exit Sub

JlhOperator = JlhOperator + 1

If JlhOperator > 1 Then Exit Sub

TxtExpresi.Text = TxtExpresi.Text + CmdOperator(Index).Caption

Operator = CmdOperator(Index).Caption

Operand1 = Val(Nilai)

Nilai = ""

End Sub

Private Sub cmdSamaDengan_Click()

If TxtExpresi.Text = "" Then Exit Sub

If Cek Then Exit Sub

If JlhOperator = 0 Then

TxtExpresi.Text = TxtExpresi.Text & "=" & Nilai

Cek = True

Exit Sub

End If

Operand2 = Val(Nilai)

Select Case Operator

Case "+"

TxtExpresi.Text = TxtExpresi.Text & "=" & Operand1 + Operand2

Case "-"

TxtExpresi.Text = TxtExpresi.Text & "=" & Operand1 - Operand2

Case "x"

TxtExpresi.Text = TxtExpresi.Text & "=" & Operand1 * Operand2

Case Else

TxtExpresi.Text = TxtExpresi.Text & "=" & Operand1 / Operand2

End Select

Cek = True

JlhOperator = 0

End Sub

Private Sub cmdTombol_Click(Index As Integer)

If Cek Then

cmdUlangi_Click

Cek = False

End If

TxtExpresi.Text = TxtExpresi.Text + cmdTombol(Index).Caption

Nilai = Nilai + cmdTombol(Index).Caption

End Sub

Private Sub CmdUlang_Click()

Nilai = ""

TxtExpresi.Text = ""

JlhOperator = 0

End Sub

Private Sub Form_Load()

Cek = False

JlhOperator = 0

End Sub

Private Sub TxtExpresi_Change()

End Sub

Karakter Seseorang Berdasarkan Bulan Kelahirannya

Tiap manusia memiliki karakter yang berbeda-beda, ada yang rajin ada yang malas, ada yang baik hati ada yang jahat, ada yang terbuka namun tak sedikit yang misterius. Pada artikel sebelumnya telah dibahas karakter seseorang berdasar tanggal lahirnya, namun kali ini kita akan mencoba mengupas karakter seseorang menurut bulan kelahirannya.

JANUARY
* Ambisius dan serius
* Suka mengajar dan diajar
* Selalu mencari cacat dan kelemahan orang lain.
* Suka mengkritik
* Pekerja keras dan produktif
* Pandai, rapi dan terorganisir
* Sensitif dan memiliki pemikiran yang dalam
* Tahu cara membahagiakan orang lain
* Pendiam, kecuali pada saat tegang atau ‘tersulut’
* Cenderung menutup diri
* Sangat perhatian kepada hal kecil
* Cenderung tidak mudah sakit, tapi lemah terhadap dingin
* Romantis, tapi susah mengungkapkan cinta
* Menyukai anak
* Orang rumahan
* Setia
* Butuh meningkatkan kemampuan sosial
* Mudah cemburu

FEBRUARI
* Pemikirannya abstrak
* Menyukai realitas dan abstrak
* Cerdas dan pandai
* Perwatakan berubah-ubah
* Temperamental
* Pendiam, pemalu, dan sederhana
* Rendah diri
* Setia dan jujur
* Bertekad kuat dalam mencapaui tujuan
* Mencintai kebebasan
* Memberontak jika dihambat
* Menyukai agresifitas
* Terlalu sensitif dan mudah sakit hati
* Gampang marah
* Tidak menyukai hal-hal yang kurang perlu.
* Sangat suka berteman, tapi jarang memperlihatkannya
* Sangat berani, tapi keras kepala
* Ambisius
* Ingin mewujudkan impian dan harapan
* Tajam
* Menyukai hiburan dan waktu santai
* Boros
* Belajar menunjukkan perasaan

MARET
* Berkepribadian menarik
* Pengasih
* Pemalu dan tertutup
* Penuh rahasia
* Jujur, pemurah dan simpatik
* Menyukai ketenangan dan kedamaian
* Sensitif akan kebutuhan orang lain
* Suka melayani orang lain
* Tidak mudah marah
* Dapat dipercaya
* Sangat berterima kasih dan selalu membalas
* Pengamat dan penilai yang baik
* Penuh dendam
* Menyukai bermimpi dan berfantasi
* Suka bertualang
* Suka diperhatikan
* Menyukai dekorasi rumah
* Berbakat musik
* Menyukai hal-hal khusus
* Gampang berubah mood

APRIL
* Aktif dan dinamis
* Cepet mengambil keputusan dan suka membenci, tapi cenderung menyesal
* Menarik dan menyayangi
* Kuat mental
* Menyukai perhatian
* Diplomatis
* Suka menenangkan
* Ramah dan suka membantu memecahkan permasalahan
* Berani dan tidak kenal takut
* Cenderung suka bertualang
* Mencintai dan menyayangi
* Pandai membujuk dan murah hati
* Emosional
* Penuh dendam
* Selalu bergerak cepat
* Agresif
* Memiliki memori yang kuat
* Penggerak yang baik
* Pandai memotivasi orang dan diri sendiri
* Penyakit biasanya bersarang di kepala atau dada
* Mudah sekali cemburu berat

MEI
* Keras kepala dan keras hati
* Berkemauan keras dan memiliki motivasi tinggi.
* Memiliki pemikiran tajam
* Mudah marah
* Mudah menarik perhatian orang lain dan menyukai perhatian
* Memiliki perasaan yang dalam
* Cantik fisik dan mental
* Tegas
* Mudah terpengaruh
* Tidak butuh dimotivasi
* Mudah dihibur
* Sistematis (otak kiri)
* Suka bermimpi
* Peramal hebat
* Sangat pengertian
* Penyakit umumnya bersarang di leher dan telinga
* Imajinasi tinggi
* Kemampuan debat yang baik
* Kemampuan fisik yang baik
* Pernapasan lemah
* Mencintai literatur dan seni
* Mencintai petualangan
* Tidak suka diam dirumah
* Gelisah
* Pekerja keras
* Semangat tinggi
* Boros

JUNI
* Berpikir jauh dengan visi yang kuat
* Mudah dipengaruhi dengan kebaikan hati
* Sopan dan bertutur kata halus
* Memiliki banyak ide
* Sensitif
* Berpikiran aktif
* Ragu-ragu
* Cenderung menunda-nunda
* Pemilih dan cenderung hanya mau yang terbaik
* Temperamental
* Lucu dan suka humor
* Suka becanda
* Memiliki kemampuan debat yang baik
* Cerewet
* Penghayal
* Ramah
* Patuh pada peraturan
* Mampu menujukkan karakter
* Mudah disakiti
* Mudah terserang flu
* Suka berdandan
* Gampang bosan
* Pengeluh
* Butuh waktu lama untuk menyembukan luka hati
* Sadar merek
* Pengambil keputusan
* Keras kepala
* Mereka yang menyukaiku adalah musuh
* Mereka yang membenciku adalah teman

JULI
* Orang yang menyenangkan
* Penuh rahasia
* Susah diukur dan dimengerti
* Pendiam, kecuali saat tegang atau ‘tersulut’
* Bangga pada diri sendiri
* Memiliki reputasi
* Mudah ditenangkan
* Jujur
* Peduli tentang perasaan orang lain.
* Gampang diterima
* Ramah
* Mudah didekati
* Sangat emosional
* Temperamental dan tidak dapat diramalkan
* Gampang berubah mood dan mudah terluka
* Cerdik
* Sentimentil
* Tidak pendendam
* Pemaaf, tetapi tidak mudah melupakan
* Tidak menyukai barang yang tidak perlu
* Mampu membimbing orang lain baik secara fisik maupun mental
* Sensitif dan membentuk citra diri secara berhati-hati
* Suka memperhatikan dan mencintai
* Memperlakukan semua orang sama
* Siaga dan selalu berpikiran tajam
* Menilai orang melalui pengamatan
* Pekerja keras

AGUSTUS
* Suka bercanda
* Menarik
* Mudah membujuk dan sangat perhatian
* Berani dan tidak kenal takut
* Tegas dan miliki sifat kepemimpinan
* Tahu cara menghibur orang
* Terlalu murah hati dan egois
* Membangakan diri sendiri
* Haus pujian
* Semangat yang luar biasa
* Mudah marah
* Marah jika disulut
* Mudah cemburu
* Pengamat yang baik
* Selalu berhatihati dan waspada
* Berpikir cepat
* Berpikir mandiri
* Suka memimpin dan dipimpin
* Suka bermimpi
* Berbakat dalam bidang musik, seni, dan pertahanan
* Sensitif, dalam cara yang kurang menyenangkan
* Mudah jatuh sakit
* Cenderung terburu-buru
* Harus belajar tenang
* Romantis
* Mencintai dan menyayangi
* Suka berteman

SEPTEMBER
* Pandai membujuk dan berkompromi
* Berhati-hati, waspada, dan teratur
* Suka menunjukkan kesalahan orang lain
* Suka mengkritik
* Pendiam, namun sebetulnya pandai berbicara
* Tenang dan pendiam
* Baik hati dan simpatik
* Perhatian dan sangat mendetil
* Dapat dipercaya, setia, dan jujur
* Dapat bekerja dengan baik
* Sensitif
* Pemikir
* Ingatan kuat
* Cerdas dan mudah dikenali
* Harus menahan diri pada saat mengkritik
* Mampu memotivasi diri sendiri
* Pengertian
* Penuh rahasia
* Menyukai olah raga, bersantai, dan bertualang
* Jarang menunjukkan emosi
* Cenderung menekan emosi
* Sangat pemilih dalam melakukan hubungan
* Mencintai hal-hal lebar
* Sistematis

OKTOBER
* Suka ngobrol
* Mencintai orang yang mencintainya
* Suka langsung mengarah ke pusat permasalahan
* Menarik dan pandai membujuk
* Memiliki kecantikan dalam dan luar
* Tidak suka berbohong atau berpura-pura
* Simpatik
* Suka memperlakukan teman seperti orang penting
* Selalu berusaha mencari teman
* Gampang terluka dan gampang pula ’sembuh’
* Temperamen buruk
* Egois
* Jarang membantu, kecuali jika diminta
* Penghayal
* Sangat terpengaruh dengan pendapat pribadi
* Tidak peduli dengan pendapat orang lain
* Emosional
* Cepet mengambil keputusan
* Peramal hebat
* Suka bertualang, seni, dan karya sastra
* Tutur bahasa halus, suka mencintai dan menyayangi
* Romantis
* Gampang tersinggung dan mudah cemburu
* Sangat perhatian
* Suka bergerak diudara terbuka
* Adil dan tidak berat sebelah
* Boros dan mudah dipengaruhi
* Mudah kehilangan percaya diri

NOVEMBER
* Banyak memiliki ide
* Berpikiran kedepan
* Unik dan cerdas
* Ide yang luar biasa
* Pemikiran tajam
* Peramal yang hebat dan akurat
* Dapat menjadi dokter yang hebat
* Berhati-hati dan waspada
* Penuh rahasia
* Selalu ingin tahu
* Tahu cara menggali rahasia
* Selalu berpikir
* Tidak terlalu cerewat tetappi ramah
* Berani dan murah hati
* Sabar
* Keras kepala dan keras hati
* Jika ada kemauan, maka ada jalan
* Tidak mudah goyah
* Jarang marah, kecuali jika sengaja disulut
* Penyendiri
* Selalu berpikir berbeda dengan orang lain
* Berpikiran tajam
* Mampu memotivasi diri sendiri
* Tidak terlalu peduli dengan pujian
* Bersemangat
* Bertubuh kuat dan tegar
* Cintanya amat dalam

DESEMBER
* Setia dan murah hati
* Patriotis
* Aktif terlibat dalam permainan atau interaksi
* Kurang sabar dan terburu-buru
* Ambisius
* Berpengaruh dalam organisasi
* Menyenangkan
* Suka bersosialisasi
* Suka dipuji
* Suka diperhatikan
* Suka dicintai
* Jujur dan dapat dipercaya
* Tidak berpura-pura
* Mudah marah
* Kepribadiannya mudah berubah
* Tidak egois
* Bangga akan diri sendiri
* Tidak suka dikekang
* Suka becanda
* Memiliki sense of humor yang bagus* Logis.

sumber : http://igoey.blogdetik.com/

Mari Menoleh ke 'Model' Cina

ANARCHISME menggejala. Korupsi merajalela dan menyebar ke seluruh penjuru negara mengikuti gelombang yang namanya otonomi daerah.

Demokrasi telah berubah menjadi democrazy. Politik uang bukan sesuatu yang ditabukan sehingga bintang film dan pelawak jadi wakil rakyat. Karena sistem perwakilan tak berfungsi dengan benar, parlemen pindah ke jalanan sehingga hampir setiap hari demo membuat kemacetan lalu lintas.

Situasi itu makin dibikin runyam oleh sentimen kedaerahan dan tuntutan pengakuan etnisitas yang semakin kencang dan cenderung melupakan persatuan dan kesatuan.

Pada tahap yang lebih serius lagi sentimen kedaerahan itu telah berubah menjadi gerakan separatism. Keadaan diperparah lantaran instruksi pemerintah pusat dan pimpinan nasional kurang digubris oleh aparat administrasi yang berada di bawahnya.

Jika pemerintah dan kepala negara mengatakan hitam, baru sampai di tahap menteri saja warna itu jadi abu-abu, karena para menteri lebih setia kepada partai ketimbang kepada negara. Ketika kebijakan itu turun ke gubernur dan bupati warna hitam itu makin menghilang dan sampai ke administrasi paling bawah warna kebijakan itu sudah menjadi warna acak-acakan.

Akibatnya, sebagian kaum elite yang punya rasa keprihatinan di negeri itu mengkhawatirkan kemungkinan huru-hara berskala besar karena sebagai nasib rakyat jelata diterlantarkan. Ada yang meramalkan disintegrasi bukan sesuatu mustahil, kendati ada yang mengatakan keutuhan negara tak bisa ditawar alias harga mati. Begitulah keadaan politik, sosial, dan ekonomi, di sebuah negara yang berada di bagian selatan dunia.

Akibat lainnya, sebagian dari elit itu langsung menengok ke Cina, negeri yang 20 tahun silam menjadi hantu lantaran akan menularkan faham komunisme. Tapi, Cina kini telah berubah. Ia adalah negeri yang selamat dari krisis ekonomi global. Ia adalah kekuatan sedang menanjak. AS saja cukup dikhawatirkan kekuatan politik, militer, dan ekonomi baru itu. AS mesti menggandeng Cina kalau perekonomian global dan AS hendak diselamatkan,

Cerita Cina jadi kekuatan baru global cukup panjang. Itu dimulai ketika Deng Xiaoping, orang yang tiga kali dibetot mendiang Mao dari posisi dan kekuasaan, tiba-tiba saja muncul kembali dan berkuasa.

Dengan reformasinya, ia mencampakkan semua gagasan dan program Mao yang kelewat terobsesi egalitarianisme dan pengorbanan demi merealisasikan masyarakat tak berkelas, serta mengekspor revolusi. Deng keluar dengan motto 'menjadi kaya mulia' dan 'sosialisme tak berarti kemiskinan.'

Di bawah slogan reformasi Deng, ia mengundang investasi asing dan mengizinkan orang cari duit sebanyak-banyaknya. Rakyat dipacu bekerja keras demi tujuan akhir, yakni membuat Cina setara, atau kalau bisa melampaui kehebatan sejumlah negara besar lain.

Hasilnya sungguh luar biasa. Hanya dalam tempo 30 tahun Cina telah berubah dari sebuah negara kelas tiga menjadi kekuatan ekonomi dan militer yang disegani.

Untuk merealisasikan gagasan menjadikan Cina sebagai adikuasa, Deng punya modal utama. Itulah organisasi bernama Partai Komunis Cina (PKC). Salah satu kekhasan dari PKC adalah fleksibilitasnya.

Walaupun mendapat banyak rintangan, Deng berhasil membuat PKC yang dulu menjadi penjaga kemurnian Maoisme dan sosialisme menjadi tulang punggung reformasi. Keuntungan lainnya adalah sistem regenerasi kepemimpinan yang lancar dan berkesinambungan sehingga RRC tak akan pernah kekurangan tokoh untuk menjadi pemimpin.

Itu ditambah dengan sistem politik dan administrasi yang membuat PKC dan birokrasi tak terpisahkan. Dan cara itu telah membuat segala keputusan, di bawah sistem demokrasi terpusat, dapat direalisasikan mulai dari pemerintah pusat sampai ke administrasi paling bawah, sesuai putusan pimpinan.

Memang ada kekurangan yang kemudian menjadi sasaran kritik dalam dan luar negeri. Sistem yang diterapkan Cina membatasi kemerdekaan untuk berbicara dan mengeluarkan pendapat, kalau itu tak sesuai dengan kebijakan pemerintah.

Demokrasi ada, tapi dibatasi di kalangan intern PKC saja sebagai pemegang tunggal kekuasaan di negeri satu miliar manusia itu. Pokoknya sistem yang dianut adalah hak-hak pribadi harus dikesampingkan kalau bertentangan dengan kepentingan publik. Dan yang menentukan apa saja kepentingan publik itu adalah partai.

Negeri pertama yang dilukiskan pada bagian pertama ini sebenarnya sudah punya modal untuk maju sesuai jejak Cina, malahan reformasinya sudah ada terlebih dahulu daripada di Cina. Ia punya seorang pemimpin tegas dan partai pelopor yang bisa membawanya ke kemakmuran dan posisi terhormat di panggung global.

Namun harapan itu terputus lantaran para pemimpinnya lebih mementingkan kepentingan pribadi ketimbang kepentingan umum. Apalagi setelah keluarga presidennya terjun ke bisnis, korupsi, dan nepotisme merajalela. Harapan itu menjadi berantakan, apalagi setelah dilanda krisis ekonomi Asia menjelang 2000.

Jadi negeri di belahan selatan dunia itu harus merangkak lagi dari bawah.

Penulis adalah pengamat Cina [mor]

10 Password Wajib untuk Dihindari

http://inilah.com/

Sebuah firma keamanan telah menganalisis 32 juta password yang bocor dan diekspos di situs hacking RockYou. Analisis itu mendapatkan daftar password yang harus dihindari.

Pada bulan Desember 2009 lalu seorang peretas berhasil menerrobos database situs sebuah perusahaan, dan mendapatkan akses ke akun yang tidak terenkripsi sekaligus 32 juta password mereka.

Setelah mempelajari akun tersebut, Imperva membuat daftar password yang paling sering digunakan di web dan menyarakankan agar menghindarinya.

“Setiap orang harus mengerti bahwa kombinasi password yang lemah akan berarti terkena serangan dunia maya, dengan usaha minimal seorang peretas dapat memperoleh akses terhadap satu akun baru setiap detiknya, atau sekitar 1.000 akun untuk setiap 17 menit,” ujar Kepala Teknik Imperva Amichai Shulman.

“Masalah menjadi sangat serius dalam 20 tahun terakhir. Sekaranglah saatnya bagi tiap orang untuk membuat keamanan password dengan serius, langkah yang sangat penting dalam keamanan data,” tandas Shulman.

Adapun sepuluh password yang biasa digunakan pengguna akun dan dianalisis oleh studi Imperva adalah 123456, 12345, 123456789, password, iloveyou, princess, rockyou, 1234567, 12345678 dan abc123