Cara Buat Antena WajanBolic

 

1.Siapkan material yang dibutuhkan USB WLAN, wajan / penggorengan, pipa pralon 3″, pipa pralon 1.25″ dan dop pralon, kabel USB yang di perpanjang dan USB Extender jika di perlukan

Material Wajanbolic

2. Lubangi wajan, siapkan dop pralon 3″ dan dop pralon 1.25″ yang di bor di tengahkan. Kemudian baut dop pralon 3″ ke dasar wajan

Wajan untuk wajanbolic

3. Wajan tampak belakang sesudah di bautkan dop pralon di muka wajan.

Wajan tampak belakang

4. Siapkan USB WLAN. Tutup USB WLAN dengan karet untuk melindungi USB WLAN dari hujan.

USB WLAN

5. Masukan karet pelindung ke USB WLAN.

USB WLAN dalam lindungan karet

6. masukan USB WLAN yang dilindungi karet ke pralon 1.25″ sebagai dudukan. Posisikan USB WLAN sekitar 5.3 cm dari ujung pralon yang paling jauh dari wajan.

USB WLAN pada pralon 1.25″

7. USB WLAN pada pralon, tampak dari sudut lain.

USB WLAN dalam pralon 1.25"
 
8. Dop untuk di letakan di ujung pralon 3″. Semua dinding dop pralon ditutup dengan lakban aluminium. Kombinasi dop pralon yang di lapisi lakban alumunium dan pralon yang ditutupi kalban aluminium sebetulnya menjadi konstruksi antenna kaleng. Di ambil foto dari muka.

dop pralon 3″
9. Tutup pralon untuk diletakan di ujung pralon. Di ambil foto dari belakang.
Dop pralon 3″ dari belakang
10. Pralon 3″ dilapis lakban aluminium sepanjang 20cm, tidak sampai ujung. Sisakan beberapa sentimeter yang dihitung dari fokus wajan. Lubangi wajan sekitar 5.3 cm dari ujung, untuk connector USB WLAN.
Pralon 3″
11. USB WLAN sudah dimasukan ke pralon. USB WLAN keluar pada jarak sekitar 5.3 cm dari ujung pralonjavascript:void(0).
USB dalam pralon 3″
pralon 3″ dari sudut 2
12. Masukan dop pralon 3″.
pralon 3″ ditutup tampak samping
Pralon 3″ ditutup tampak muka
13. Masukan pralon 3″ ke tutup pralon 3″ yang sudah di baut ke wajan.
Pralon 3″ di Wajanbolic
14. WajanBolic dah selesai. Sambungkan kabel USB yang sudah di perpanjang dengan kabel UTP. Wajanbolic siap digunakan.
Wajanbolic
http://septydhandayani.blogspot.com/

Read More

membuat data base dengan XAMPP

teman - teman yang ingin menggunakan database dengan XAMPP bisa download disini

download 1
download 2
download 3

Read More

MEMBUAT APLIKASI ACAK ANGKA DENGAN VISUAL BASIC | MEMBUAT PROGRAM RANDOM ANGKA DENGAN VB

1.  Buatlah New Project pada software VB anda kemudian tambahkan lima kontrol label, satu kontrol timer dan tiga kontrol commandbutton pada form. Atur desain form seperti pada gambar berikut : 

 Gambar Aplikasi Acak angka 

2.   Ubah properti masing-masing kontrol dengan ketentuan sebagai berikut :

 

Kontrol	Properti	Setting
Label1, Label2, Label3, Label4, Label5	Caption Border Style Font	Semua dikosongkan 1-FixedSingle Bold dan ukuran 28
Timer1	Enabled Interval	False 100
Command1	Caption	Start
Command2	Caption	Stop
Command3	Caption	Keluar

  

3.   Klik ganda kontrol Timer, kemudian ketik program berikut :

Private Sub Timer1_Timer()

'label akan menampilkan bilangan acak 0-9'

Label1.Caption = Int(Rnd * 10)

Label2.Caption = Int(Rnd * 10)

Label3.Caption = Int(Rnd * 10)

Label4.Caption = Int(Rnd * 10)

End Sub

Rnd *10 atau Random akan menghasilkan bilangan acak desimal antara

0.12457-9.21654. Sedangkan int(integer) berfungsi untuk membulatkan

bilangan yang dihasilkan dari Rnd *10 dan hasil yang nantinya ditampilkan

adalah bilangan bulat antara 0-9.

Jadi perintah diatas adalah untuk menampilkan bilangan acak angka 0-9 pada

label1, label2, label3 dan label4.

4.  Klik ganda command1 (tombol start), kemudian ketikkan kode/script/listing berikut :

Private Sub Command1_Click()

'time diaktifkan'

Timer1.Enabled = True

'mengosongkan masing-masing label'

Label1.Caption = ""

Label2.Caption = ""

Label3.Caption = ""

Label4.Caption = ""

End Sub

Apabila tombol start diklik maka timer1 akan difungsikan untuk menampilkan bilangan acak pada masing-masing label.

5.  Klik ganda command2 (tombol stop), kemudian ketikkan kode/script/listing berikut :

Private Sub Command2_Click()

'time tidak diaktifkan'

Timer1.Enabled = False

'label 5 akan menampilkan hasil bilangan acak'

Label5.Caption = Label1.Caption & Label2.Caption & Label3.Caption & Label4.Caption

End Sub

Apabila tombol stop diklik, maka proses acak bilangan pada label1, label2, label3 dan label4 akan dihentikan dan hasilnya akan ditampilkan pada label5.

6.  Klik ganda command3(tombol Keluar),kemudian ketikkan kode/script/listing berikut :

Private Sub Command3_Click()

End

End Sub

7.  Jalankan program (F5) dan klik tombol start untuk mulai mengacak angka    lalu tekan tombol stop untuk menghentikannya.

8.  Hasilnya seperti gambar berikut :

 Gambar Hasil Aplikasi Acak Angka  

9.  Selamat mencoba kawan,,,Sesungguhnya kesuksesan itu hanya untuk
     mereka yang mau berusaha dan bertawakal !

http://meriwardana.blogspot.com

Read More

Membuat Mesin Kasir Sederhana Menggunakan Vb6.0

Aplikasi mesin kasir sederhana ini untuk mempermudahkan kita melakukan kegiatan jual dan beli.. pasti kalu tidak ada alat seperti ini ( Mesin Kasir ) kita pasti repot. Untuk membuat aplikasi yang kita butuhkan adalah Microsoft Visual Basic 6.0. langsung aja ya ke tahap pembuatan..Pertama anda harus membuka aplikasi Visual Basic 6.0. Setelah itu Buat Rancangan Form dengan komponen & property seprti yang di bwah ini

Semua rincian itu bisa anda ubah sesuka hati anda ..

Bila anda sudah membuat Form dan Rancangan seperti di atas , sekarang Tinggal memasukan kode ke dalam lembar kerja kode , berikut kodenya !

Private Sub Command1_Click()
If Text1.Text = "" Then
pesan = MsgBox("Nama Barang masih kosong , Mohon Diisi !!", vbInformation, "Peringatan")
End If
If Text2.Text = "" Then
pesan = MsgBox("Harga masih kosong , Mohon Diisi !!", vbInformation, "Peringatan")
End If
If Text3.Text = "" Then
pesan = MsgBox("Jumlah masih kosong , Mohon Diisi !!", vbInformation, "Peringatan")

Else
a = Int(Text2.Text)
b = Int(Text3.Text)


Text4.Text = a * b
Label6.Visible = True
Label9.Visible = True
Label9.Caption = a * b
Label8.Visible = True
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Label6.Visible = False
Label7.Visible = False
Label8.Visible = False
Label9.Caption = ""
End Sub

Private Sub Command3_Click()
d = Int(Text4.Text)
e = Int(Text5.Text)
f = e - d

Label9.Visible = True
Label9.Caption = f
Label7.Visible = True
Label8.Visible = True
End Sub

Private Sub Command4_Click()
Text5.Text = ""
Label6.Visible = False
Label7.Visible = False
Label8.Visible = False
Label9.Caption = ""
End Sub

Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Label6.Visible = False
Label7.Visible = False
Label8.Visible = False
Label9.Caption = ""
End Sub

Private Sub Form_Load()
Label6.Visible = False
Label7.Visible = False
Label8.Visible = False
End Sub

 http://sembeling.blogspot.com

Read More

realvnc

sebuah software untuk meremot sebuah PC bisa anda download disini

Read More

Anti Deepfreez

Jebol Deepfreez v6

Mungkin anda sudah banyak mengetahui dalam forum - forum hacker yang ada.. tapi bagaimana dengan yang belum tau...
Pada kesempatan kali ini, kita menggunakan tools yang bernama Uninstal Deep Freeze, bukan anti deep freeze. Fungsi tools ini sama kok, yaitu menjebol password deep freeze. Lumayan buat kalau di warnet,






















Cara Menggunakan nya :
Klik login, lalu tunggu sampai tombol crack aktif.
Kalau udah aktif, klik crack.
Tekan CTRL+Alt+Shift+F6 bersamaan.
Pilih Boot thawed. (Nggak usah masukan password)
Restart.
Download : 4shared
http://hackertoliz.blogspot.com/2010_05_01_archive.html

Read More

Radmin 3.4 Remote Control

Disana nanti ada 2 buah file yaitu rserv30 dan rview30, untuk melihat client kita install rview30 dan untuk target kita install rserv30, btw langung install rview30 di depan computer kita, lihat hasil installan dibawah ini jalankan









Setelah Beres, kemudian beralih ke pc target install rserv30 di pc target , kemudian
jalankan software tersebut







Permission untuk melakukan setting password, yang berfungsi untuk memberikan keamanan kepada server kerennya mah orang biar ga tahu kalo buka radmin view ,







ada 2 security mode , Radmin security berbasis Win9x, dan Windows NT security
untuk berbasis Win2k [ Server NT ], btw kita setting yang umum aja , pakai radmin security , klik permissions












Isi nama dan password , terserah , kemudian klik OK, kemudian klik All access maka kita dapat melakukan control penuh terhadap target













Nah setelah kita selesai setting, maka kita coba melakukan koneksi ke pc target ckckckck









untuk mengetahui IP target anda dapat lakukan dengan cara melihat properti di My Network Places dengan klik kanan kemudian klik kanan Local Area Connection, lihat Internet Protocol [ TCP /IP ] ga susah , daripada make under DOS [ kan belajar simple dan praktis ] J.

Setelah dapat silakan anda tambahkan di dalam kolom RadminView add IP target kemudian klik ok [ akan nampak hasilnya seperti diatas ], trus anda tinggal arahkan mau diapakan tuh pc target bisa Full Control, ViewControl, Chatt, telnet, File transfer , Restat, ShutDown, Dll pokoknya ada semua J, nah untuk masuk ke pc target akan diminta password dan user [ ini user dan password yang tadi kita setting ] mengapa memakai password ? jawabannya simple agar orang lain selain bukan anda tidak bisa melihat –lihat pc yang kita remote tadi.
Dibawah ini merupakan hasil dari monitoring client di warnet gw.. ckckckck..up sorry hanya untuk percobaan saja, bukan untuk mematai2 akun atau password user saya..kita bisa lakukan remote untuk bermacam2 keperluan.



































 

Nah semua yang berhubungan dengan aktifitas mata – mematai membutuhkan port untuk bisa koneksi dari Server ke Client , untuk pemakaian default RADMIN menggunakan port 4899, nah untuk mematikan secara darurat bisa dengan menghidupkan firewall di pc target , maka akan otomatis port 4899 terblock yang menyebabkan koneksi dari server ke client mati [ remotenya tidak bisa hidup ]



















Download :Radmin 3.4

http://hackertoliz.blogspot.com/2010_05_01_archive.html

Read More