Cara membuat Kalujukator Sederhana + Video Tutorial

 Hallo all posting saya kali ini adalah bagaimana cara membuat Kalkulator menggunakan Visual Basic
Langsung aja baca yang bener" jangan sampe salah :

saat membuka Visual Basic pilih standar.exe maka akan seperti ini

setelah Itu bikin seperti ini

lakukan seperti dibwh 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 : =
setelah Mengikuti sama seperti diatas maka akan seperti dibwh Ini



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

Untuk Membuat Icon.
Klik Form cari Tulisan Icon lalu Browse

Untuk Membuat dalam bentuk .exe,
Klik File > Make Project1.exe
untuk mendownload Visual Basic Portable
http://www.ziddu.com/download/15454900/VisualBasic6.0portableedition.rar.html
untuk Melalui Video
http://www.ziddu.com/download/15536975/caraBuatKalkulator.rar.html

By : Adam Achmad Ghazali
Blog : http://adamanakindonesia.blogspot.com

Read More

Cara Buat Trainer pake Cheat engine

Hallo kalian semua apa kabar ,,???
Mumpung Pembagian Rapot DiSmpn 98 Jakarta dahan
Smga Nilai kalian bagus". Heheheheheh
Kali ini saya akan memberikan Ilmu yg smga aja bermanfaat Untk kalian,!
Yaitu cara membuat Trainer Menggunakan Cheat Enggine.
Langsung aja Nie saya berikan
dalam bentuk Video 100 % work
http://www.ziddu.com/download/15536925/carabuatTrainer.rar.html
kalo engga daftar diforum gw
http://smp98jakarta.indonesianforum.net/t11-cara-buat-trainer-pake-ce



By         : Adam Achmad Ghazali
Blog     : http://adamanakindonesia.blogspot.com

Read More

_Cheat Ninja Saga Juni 2011

Cheat Ninja Saga Terbaru 2011. Games Ninja Saga merupakan game favorit bagi para gamers. Ninja Saga adalah salah satu permainan yang diciptakan dan sekaligus dimainkan di Facebook. Banyak sekali misi yang harus dijalankan sehingga banyak yang mengandalkan cheat ninja saga.

Dan banyak juga pemain Ninja Saga yang menginginkan selalu menang dalam permainannya. Kamu memerlukan cheat ninja saga token untuk dapat terus-terusan mengakali permainan. Berikut ini merupakan cheat ninja saga 2011 untuk membantu permainan Ninja Saga kamu lebih baik.

Siapkan yang diperlukan dalam penggunaan cheat ninja saga terbaru ini, seperti Cheat Engine versi terbaru, browser, dll. Semoga cheat ninja saga terbaru 2011 di bawah ini masih bekerja atau 100% work
Ninja Saga Cheat Critical Strike & Dodge
Butuh Tool CE 5.6 and Browser
1. masuk ke ninja saga anda dan masuk ke profil
2. buka Cheat engine dan pilih plugin.container.exe jika anda menggunakan mozilla fire fox diprocess list
3. klik Hex, Array of Bytes, Also scan read only mem
4. Scan “a93f9a9999999999a93f”
5. nanti akan didapat sebuah address,klik 2x akan masuk ke kedalam list
6. gandakan item tersebut (copy – paste)
7. pada item pertama klik kanan
- set a hot key.
set hotkey dengan F5
>>selanjutnya klik ok trus klik kanan di adres 1 >>
change record >> value >> isikan
” F03F000000000000F03F “
8. pada item kedua klik kanan
- set a hot key.
set hotkey dengan F6
>>selanjutnya klik ok trus klik kanan di adres 2>>
change record >> value >> isikan
” A93F000000000000F03F “
9. sekarang mainkan ninja saga, jangan lupa tekan F5(dodge mode).
sekaran setiap serangan akan dodge.
10. ketika akan menyerang tekan F6 (critical mode)
11. jangan lupa aktifkan dodge mode ketika akan diserang,
dan critical mode ketika akan menyerang, sebab musuhpun akan Critical atau dodge.
CATATAN: untuk kode F5 dan F6 bisa di rubah sesuai keinginan kalian…


Cheat Emblem Ninja Saga
1. harus punya token
2. scan token kamu sekarang (misal100) scan 100
3. kluar banyak addres tuh klik next scan 5 kali
4. masuk ke headquarter
5. convert token mu 1saja
6. scan lagi token mu yg sekarang (tadi tokenx kan 100 di convert 1 tinggal 99 ) scan 99
7. setelah itu ada muncul addres 1 klik addres tersebut tambah di addres belakanya +4 contoh(xxxxx6d+4)
8. kamu jadi premium deh
NB:jangan membeli senjata embelm karna senjatax tdk didpt di pakai jika mau beli jurus baju itu bisa di pakai jika anda membeli jurus sisakan satu slot jutsu


Cheat Gold Ninja Saga
1. buka cheat engine 5.6.1
2. ganti value type menjadi 4 bytes
3. masukan uang/gold kamu lalu tekan first scan
4. nanti ada address klik 2x sampai ada di bawah
5. ganti value (misalnya 1.000.000) lalu ke kage room
6. lalu keluar gold kamu menjadi 1.000.000


Cheat Ninja Saga: Amaterasu Hack
1. buka ce dan jutsu (kosongin satu)
2. ganti type text, unicode, asrom
3. scan skill41 pasti keluar 2 adress klik yg atas
4. ganti jadi skill 91
5. terus di cheat emblem dech
6. equip itu skill
7. trus charles nya cri app.ninjasaga.com
8. diperluas cri amf dan breakpoint selesai
9. enjoy the game


Cheat 1 Hit Kill Ninja Saga
* Masuk NS
* Masuk hunting boss dan attack bos yang diinginkan
* Setelah masuk,biarkan si boss menyerang kita dulu(kita dodge aja)
* Buka CE terus pilih 8 bytes
* Masukkan jumlah darah si boss
berikut data darah:
* Ginkotsu:7293
* Yanki:12760
* Sesho:27950
* Tengu fire:15819
* Tengu wind: 12052
* Byakko:75816
* Ape king:90720
* Turtle:132800
Tutor :
* First scan,cari yang addres sama dengan value yang dimasukkan tadi trz disebelahnya double klik
* Lalu coba attack si boss
* Langsung ganti value si boss dgn 0
* Attack si boss dan mati dech



Cheat Blood (Darah) Ninja Saga
buka ninja saganya terus buka cheat enginenya dan scan uang yang anda miliki
setelah tu address yang belakangnya 78 di ganti AC contoh (****AC)
di value terdapat jumlah level anda
coba melawan musuh sapa aja dan kalo darahnya mau habis valuenya diganti 60
cheat ni bukan untuk cheat darah aja tapi juga untuk berteman dengan lvl yang lebih tinggi dari lvl anda


Cheat Gold Ninja Saga
1. buka cheat engine
2. process ke mozila
3. selesaikan daily task itu misalnya mission completed 4
4. sudah selesai ingat “jangan diclaim dulu”
5. buka cheat engine ubah value type 4 bytes
6. tulis jumlah uang kamu lalu first scan
7. klik 2x adress yang muncul
8. klik adress 2x ganti xxxx78 menjadi xxxxAC
9. lalu ganti value nya menjadi 75000
10. lalu masuk kage room
11. lalu centang di cheat engine eneble speed hack 1.0 menjadi 500.0(sebetul nya gag perlu kll untuk pkk speddy boleh lah klu pkk modem di usahakan jangan)
12. lalu claim reward daily task nya
13. lalu kamu dapat gold 16 juta !!!
14. sudah selesai


Cheat Damage Ninja Saga
1. buka cheat engine
2. klik select proces to open(icon gambar komputer di pojok kanan setengah atas)
3. cari browser yang kamu pakai utk main ninja saga
4. trus klik open
5. pada kolom value type ganti dengan “Array of bytes” dan centang also scan read in-memory
6. scan kode ini 62 04 D3 24 64 A3 A2 di frist scan
7. klik 2x di bawah tulisan addres(pojok kanan setengah atas)
8. di bagian bawah kan hasil dari klik 2x tadi
9. di bawah tulisan value klik 2x
10. ganti kode 62 04 D3 24 64 A3 A2
11. menjadi 62 04 D3 24 64 A2 A2


Cheat Ninja Saga Critical
1. buka NS d flock browser
2. buka CE 5.6
3. cari gmbr komputer yg ada kaca pmbesarx n plih flock.exe
4. cari “value type” gnti “4bytes” ke “array of bytes”, jgn lupa centang “also scan read-only memory”
5. masukin kode yg mw d scan “9A9999999999A93F000000000000D03F9A”
6. klo dah dpt addresx, double klik ato klik 2x spy addresx msuk ke daftar di bagian bwah….
7. klo uda ada addresx d list tdi, double klik bagian “type”x, gnti ato ubah dari “array of bytes” mnjdi “double”, udah itu, valuex psti akn brubh jdi “0.05?, double klik valuex jdi “1? untuk dodge (damage musuh “0?)
8. untuk damage “1 hit kill” ato “critical strike damage”x, plih “NEW SCAN” di CE
9. masukin kode yg baru “000000000000F83F000000000000000000? , trus d scan lagi….
10. km akan dapat 1 addres atau lebih dari 1 addres….. plih addres yg belakangnya angka contohx “xxxxx280?
11. double klik addresx n ikuti step nomor 7…. nnti value yg d dapat “1.5? di gnti mnjadi “99999? untuk kritikal strike ato damage sampe 2juta…..


Cheat 3 Element Ninja Saga
1. buka ns pake mozilla
2. buka cheat engine 5.6 or higher
3. klik gambar komputer terus klik icon firefox
4. di value type pilih text
5. ketik skill96 ,first scan
6. nanti ketemu addressnya terus klik semua addressnya
7. ganti value semua address dengan skill94, minimize CE
8. balik ke ninja saga yang lu buka tadi
9. klik jutsu terus lu dapet 3 element
10. pergi ke academy beli satu skill yang paling lo butuhin. biarkan sampai prosesnya selesai.tutup academy
NB: -kosongin 1 slot jurus lu, kalo nggak bakalan nyesel
- pas tutup academy ninja saga langsung error , lu refresh aja pagenya ntar cek lagi ke academy dan jutsu element ketiga lu masih proses gak ngilang
- klo kmu butuh fire : ganti skill96 dengan skill98
- klo kmu butuh Ligthning : ganti skill96 dengan skill94
- klo kmu butuh water : ganti skill96 dengan skill96


Cheat Token Ninja Saga
- BUKA CHEAT ENGINE
- pilih MOZILA UNTUK aktivin cheat nya
- trus masuk ke profil ns kamu
- tulis token ns kamu DI cheat ENGINE
- FIRST SCAN
- NANTI PASTI MUNCUL 2 ADDRES
- double kilck ke-2 nya
- TRUS ganti valuenya JADI 334633473340
- LALU KLICK OK
- LALU NEXt sccan
TRUS LO MASUK KE KAGE ROOM LAWAN YG LEVEL 1 TERUS KABUR & LIHAT TOKEN MU
PASTI NANTI JADI 3333333


Cheat Level Up Ninja Saga
1. Buka kembali Cheat Engine (CE) lalu “Value Type” nya ganti menjadi “Array Of Bytes”, Lalu Centang “Also Scan Read-Only Memory”
2. Centang Hex dan Isi dengan “62 04 D3 24 64 A3 A2?, Lalu Klik First Scan
3. Setelah Muncul 2 Adress di bagian Kiri, Double Klik satu per satu adress nya,
di bagian bawah ada 2 daftar setelah di double klik satu per satu adress nya
4. Setelah itu Klik kanan di salah satu dari 2 daftar/baris, lalu ke Change Record, lalu klik Value,
pasti agan menemukan “62 04 D3 24 64 A3 A2?,
Delete Adress yang ada di atas lalu ganti dengan “62 04 D3 24 64 A2 A2?
5. masukan duitmu di kotak value,klik new scan!
6. kemudian cari addres yang belakangnya 78(misalnya xxxxx78 x itu angka berapa aja)
7. KILIK2X ganti addres (78) yang tadi dengan AC(kalo belakangnya xxxxx68 belakangnya diganti 9C)
8. di value terlihat levelmu, ganti dengan angka 60(lavel maximal)
9. centang kotak di samping tulisan “no description”
10. recruit temenmu yg level 60
11. lawan boss apa aja
12. pasti damagenya 100000
(bisa udah ada buktinya aku yg semula level 1 dalam sehari langsung lvel 26)

karena Blog saya tidak Mengaktifkan Copy
Supaya Gampang Download Semua Tulisan Diatas http://adf.ly/1iw9T

Read More

_Cara Buat Virus Rese tapi gak bahaya_

oke all.....
gw sebenernya bikin Virus Boongan Ini Hanya Iseng" aja..
Virus ini 100% gak bahaya tapi rese dan Bisa membuat orang cukup panik
langung aja Virus pertama Ini Cukup mudah cuma butuh notepad
masukan ini :

Dim code
Dim pass
pass = "Adam anak Indonesia"
MsgBox "Maaf, saat ini komputer anda telah terinfeksi virus paling ganas didunia, segera anda kunjungi http://adamanakindonesia.blogspot.com atau silahkan hubungi adam_doelas@yahoo.co.id via facebook  untuk medapatkan password penjinak virusnya. Jika dalam jangka waktu 1 hari anda belum mendapatkan passwordnya maka komputer anda akan terformat dengan sendirinya: " & Time, 16, "Virus Paling Bahaya"
Do
code = InputBox("Masukkan password untuk menggagalkan virus ini.", "Virus  Removal")
If code<>pass Then
MsgBox "Kode" & code & " Password yang anda masukan salah, segera kunjungi adanakakindonesia.blogspot.com untuk mendapatkan passwordnya "
End If
Loop Until code=pass
MsgBox "Selamat! Password diterima dan Komputer anda telah aman dari virus. dan anda pun berhasil saya permainkan hehehe :P" 
Untuk yang berwarna merah boleh diganti apa aja...
terus save as dengan format .vbs contoh " adam.vbs "
download Code yang diatas + contoh yang udah jadi untuk Passwordnya virusnya " Adam anak Indonesia" http://adf.ly/1iO7c
cara download tunggu loading yang dipojok kanan atas selesai tar baru klik


Virus kedua juga gak bahaya tapi lebih repot yaitu menampilkan box pesan tanpa henti...
satu"nya jalan Restart Komputer (PC)

langung aja Virus pertama Ini Cukup mudah cuma butuh notepad
masukan ini :
@ECHO off
:Begin
msg * hahahaa... anda telah memasuki wilayah terlarang!!!
msg * Komputermu Kena Virus yang nyusahin Nie...
msg * mo lari kmana..kamu sudah tidak bisa lari kmana mana
msg * jangan kipa napa>>>
msg * virus ini sangad berbahaya,, hahhahahaaa,,, g' bisa di kluarin kcuali di instal sj tuh kompinya
msg * Kalo nggak bisa di instal buang aja....
msg * Kalo nggak mw di buang lempar aja...
msg * Kalo nggak mw di lempar dibakar aaja....
msg * Masih nggak bisa juga???
msg * ya.. uuddah, maaf.. heheheheehee
msg * Sial banget nasib lo chuy....
msg * Lebih baik buat saya jaa...
msg * Okehhh good luck!! ^_^
msg * Salam, http://adamanakindonesia.blogspot.com.blogspot.com/~
msg * kita ulang dari awal ya,, sampe seratus kali, hahahaa
msg * Kalo ngga' mw di ulng restar paksa tuh kominya,,,,hohohohooo
msg * wkwkwkwkwkwk
GOTO BEGIN

Untuk Tulisan berwarna merah bisa diganti Sesuai keiingan
Download Code + Contoh udah jadi ( saran untk Contoh jngn dibuka tar kalian harus restart Komputer )
http://adf.ly/1iOVy
cara download tunggu loading yang dipojok kanan atas selesai tar baru klik

Read More

_Cara membuat Effect pada lagu__

oke all.....
kaliini saya memberikan aplikasi Pembuat Effect pada lagu....
nama aplikasinya "Audacity"
download  http://adf.ly/1htdQ
cara download nya diatas pojok kanan tar tungguin waktu selesai

pertama instal dulu

abis itu :

• buka Audacity
• klik File>Open pilih lagu
• pada kotak bawah ( yang ada garis biru ) pencet Ctrl+A
• klik Effect > Change Pitch >
• pilih Pitch to : B ( terserah kalo gak cocok yang laen )
• kalo dah klik oke
• coba play dulu
• klik Export Selection As Wav
• selesai

Nie klao mau hasil karya saya..
Judul My Heart http://cdn.x.indowebster.com/download/54/z7wofdbwk6wf2zuu9jsorhlndpkwqz61.3gp
Judul Avenged Sevenfold - seize The day
http://cdn.x.indowebster.com/download/54/68qnei0polj5ax52cww3zhkailfwz8wx.3gp

Read More