Program Kalkulator Sederhana

1.    PADA LABEL KALKULATOR

Private Sub Label3_Click()

Label3.BackColor = purple

End Sub

Private Sub Timer1_Timer()

Label2.BackColor = RGB((Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))

End Sub

Private Sub Timer2_Timer()

Label3.Left = Val(Label3.Left) - 20

If Val(Label3.Left) < -7000 Then Label3.Left = 70

End Sub

Private Sub txtDisplay_Change()

txtDisplay.SelStart = Len(txtDisplay.Text)

End Sub

Private Sub txtDisplay_GotFocus()

txtDisplay_Change

End Sub

2.    PADA TOMBOL ANGKA

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

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

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

Private Sub cmdClear_Click()

cmdClearEntry_Click

Hasil = 0

Operator = opNol

End Sub

Private Sub cmdClearEntry_Click()

txtDisplay.Text = ""

End Sub

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

Private Sub cmdOperator_Click(Index As Integer)

cmdSamaDengan_Click

Operator = Index

NilaiBaru = True

End Sub

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

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

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

Private Sub Command1_Click()

End

End Sub

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

Private Sub Label1_Click()

End Sub

Private Sub Label3_Click()

Label3.BackColor = purple

End Sub

Private Sub Timer1_Timer()

Label2.BackColor = RGB((Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))

End Sub

Private Sub Timer2_Timer()

Label3.Left = Val(Label3.Left) - 20

If Val(Label3.Left) < -7000 Then Label3.Left = 70

End Sub

Private Sub txtDisplay_Change()

txtDisplay.SelStart = Len(txtDisplay.Text)

End Sub

Private Sub txtDisplay_GotFocus()

txtDisplay_Change

End Sub

3.    UNTUK MASING _ MASING PENJUMLAHAN

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

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

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

Private Sub cmdClear_Click()

cmdClearEntry_Click

Hasil = 0

Operator = opNol

End Sub

Private Sub cmdClearEntry_Click()

txtDisplay.Text = ""

End Sub

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

Private Sub cmdOperator_Click(Index As Integer)

cmdSamaDengan_Click

Operator = Index

NilaiBaru = True

End Sub

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

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

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

Private Sub Command1_Click()

End

End Sub

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

Private Sub Label1_Click()

End Sub

Private Sub Label3_Click()

Label3.BackColor = purple

End Sub

Private Sub Timer1_Timer()

Label2.BackColor = RGB((Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))

End Sub

Private Sub Timer2_Timer()

Label3.Left = Val(Label3.Left) - 20

If Val(Label3.Left) < -7000 Then Label3.Left = 70

End Sub

Private Sub txtDisplay_Change()

txtDisplay.SelStart = Len(txtDisplay.Text)

End Sub

Private Sub txtDisplay_GotFocus()

txtDisplay_Change

End Sub

SELAMAT MENCOBA YuAH..............

 (^_^).... yipIIIYipPiii....

10 Musium Mengerikan Didunia

10 Museum Anker dan Menyeramkan di Dunia

Share

Museum-museum dibawah ini memang sangat menyeramkan dan menakutkan. Inilah 10 Museum Yang Paling Menakutkan di Dunia yang berhasil dirangkum team duniakita.

10. House on the Rock

Museum ini awalnya dirancang untuk mengumpulkan benda apa saja, House on the Rock berlokasi di Deer Shelter Rock, Wisconsin yang pertama kali dibuka pada tahun 1959. Disini terdapat replika dari berbagai kota Amerika di awal abad 20 replika juga ada monster laut sepanjang 200 kaki.Namun sayangnya semua koleksi di rumah museum inidibiarkan berdebu dan dalam ruang gelap. Kalian bisa membayangkan bagaimana sebuah ruangan gelap berisi berbagai alat musik tua dan ratusan boneka tak terawat bersatu dengan bau pengap dan hawa mistis menyeramkan!

9. Glore Psychiatric Museum

Siapa sih yang tidak ingin melihat sebuah museum yang didedikasi untuk sejarah hal hal hebat seperti perawatan kejut listrik dan Lobotomies?ya.hampir semua orang minat hal itu, tapi jika kalian ingin lihat hal hal yang mengejutkan, silahkan berkunjung ke Glore Psychiatric Museum. Dan jika kalian melihat bagian paling mengerikan di museum ini, santai saja sebab itulah kenikmatannya. Jangan lupa untuk mengunjungi area pengobatan kuno dimana anda bisa melihat instrumen untuk pasien yang mengalami pendarahan dan diaorama operasi psychosurgical menarik yang membuat kalian terus melangkah.

8. New Haven Ventiloquist Museum

Di New Haven Connecticut terdapat sebuah museum yang hanya mengandung baris demi baris boneka ventriloquist tua. Setiap tempat duduk di teater memiliki boneka di dalamnya . duniakita.info Sekarang kebanyakan orang tidak lagi menderita Autonomatonophobia (rasa takut jika melihat figur manusia buatan - yes it's real) Ada seribu "Chuckie" disini.

7. Catacombs of Palermo

Catacombs dari Palermo berubah menjadi sebuah museum kematian. Jauh di dalam perut biara Kapusin kalian bisa melihat ratusan mayat - baik biksu atau mayat mayat masyarakat setempat. Mayat mayat ini di bariskan di sepanjang dinding dalam pakaian saat mereka dikuburkan. Mayat-mayat itu diletakkan di Catacombe dari akhir abad ke-16 sampai pemakaman yang terakhir - Rosalia Lombardo pada 1920-an. Udara dingin dan lingkungan kering berarti bahwa jenazah sangat terjaga dengan baik - tersimpan dengan sangat baik sehingga terlihat seperti tidur.Yang paling mengerikan mayat mayat ini seperti terlihat siap bangun setiap saat untuk menyerang para pengunjung.Tempat liburan yang asik bukan?hiiiy

6. London Dungeon

Ruang bawah tanah London yang sangat terkenal. Menempatkan benda benda menakutkan yang tersisa disini . Sebuah peninggalan penjara bawah tanah dan tempat penyiksaan di abad pertengahan. Jika Anda pergi ke Dungeon sebaiknya minum dulu jika memiliki sakit jantung sebab disini banyak aktor bayaran yang akan melompat tiba tiba dan menakut nakuti kalian .Antrian masuk kesini sangat panjang , sebab atraksi yang sangat terkenal. duniakita.infoSatu-satunya tempat lain yang memiliki antrian terpanjang lainnya yaitu toko roti di Soviet Rusia.

5.Lombrop's Museum of Criminal

Cesare Lambroso mendirikan sekolah Italia kriminologi. Tidak mengherankan jika museum ini - diisi dengan objek yang memang mengerikan.Dikombinasikan dengan berbagai macam koleksi yang menggambarkan tindak kejahatan, ada senjata yang digunakan untuk menyembelih manusia, bahkan Lambroso memiliki koleksi kepala yang di awetkan dalam botol formalin dengan sempurna. Jika Anda tertarik dengan kisah kejahatan - atau hanya ingin menghabiskan hari menatap tengkorak, potongan sisa sisa tubuh manusia, dan benda-benda mengerikan lainnya, ini adalah tempat yang cocok.

4. Madame Tussaud

Ini mungkin entri yang paling terkenal di dalam daftar. Madame Tussauds di London yang terkenal karena koleksi replika terbesar yang dibuat dari lilin - kebanyakan dari orang-orang terkenal. Tapi museum itu mulai lebih mengerikan. Madame Tussaud memulai koleksi sejak revolusi Perancis. Dia akan pergi ke Guillotine setelah mendengar ada orang telah dieksekusi dan membuat cetakan lilin kepala mereka yang terputus!. Dan yang paling dikenal mungkin adalah patung lilin Raja terakhir dari Perancis. Kesemua kepala ini dipajang di museum bersama dengan koleksi lain yang mengerikan, menampilkan gambaran kesadisan dalam sejarah. Ketika kalian melihat patung replika berukuran seperti asli dari salah satu korban Jack the Ripper, kalian akan berpikir dua kali untuk kemari. Oh ya satu lagi- untuk membuat hal-hal yang lebih menakutkan, ruang penuh kengerian ini sekarang menambah atraksi dengan aktor yang akan melompat keluar dan menakut-nakuti pengunjung. Sepertinya kalian harus membawa celana dalam cadangan kalau kemari. hahahahaha

3.Museum of Anatomy

Honoré Fragonard adalah seorang profesor anatomi - setidaknya dia sampai ia dikurung karena menunjukkan gejala kegilaan! Dua puluh tahun kemudian ia mulai pekerjaan yang akan membuat prestasi cemerlang dalam hidupnya. Tahun 1794 ia mengumpulkan mayat untuk koleksinya dan menjadi museum tentang anatomi terbesar . Museum dirancang untuk menyimpan dan mamerkan koleksi mayat yang dikuliti olehnya dan dibalsem dengan resep resep rahasia - resep yang tetap menjadi misteri sampai hari ini. Koleksinya berisi tubuh hewan yang dikuliti dan di awetkan, mayat anak-anak, dan juga mayat kriminal yang tewas dieksekusi serta koleksi tengkorak dari panti-panti gangguan mental .

2. Mutter Museum

Museum Mutter terkenal karena koleksi yang besar dari spesimen tengkorak dan anatomi termasuk model lilin seorang wanita dengan tanduk manusia tumbuh di dahinya, dipajang juga sebuah kerangka tertinggi dari Amerika Utara, usus manusia sepanjang 5 kaki (digambarkan di atas) yang berisi lebih dari 40 pon kotoran, dan ketakutan tubuh dari Soap Lady misterius yang seluruh tubuh mayat itu berubah menjadi sabun setelah dia meninggal. Museum ini juga rumah tumor ganas diambil dari tubuh Presiden Grover Cleveland, ada juga hati kembar siam dari Siam terkenal Chang dan Eng Bunker, dan bagian organ pembunuh Presiden Abraham Lincoln, John Wilkes Booth.

1.The Purgatory Museum

Menurut doktrin Katolik, orang yang meninggal dengan hanya sedikit dosa pada jiwa mereka akan menuju ke api penyucian untuk dibersihkan oleh api itu sebelum melayang ke surga. Di Gereja Hati Kudus di distrik Prati Roma, terdapat sebuah museum kecil yang terletak di belakang altar samping. Ini adalah museum api penyucian. Tempat ini benar-benar menakutkan, memamerkan dokumentasi kasus-kasus jiwa-jiwa di api penyucian yang kembali ke bumi untuk menghantui . Beberapa item yang dipajang yaitu meja dengan tanda hangus dan garis-garis yang diukir dari itu oleh tangan dari dunia lain, serta jejak sidik jari terbakar pada pakaian dan seprai. Tapi mungkin item yang paling menakutkan dari semua itu adalah sebuah buku berisi telapak tangan hangus di salah satu lembarannya. Sebuah telapak tangan biarawati yang sudah lama meninggal dan terjebak di api penyucian atas dosa dosa yang tidak diketahui.