VB. Source Code :: Kotak Lampu

Source Code VB 6.0

Stop Kontak Lampu

-   Source Code dibawah ini adalah Membuat Tombol/Command Button menjadi seperti stop kontak lampu di rumah masing masing

- Langkah-Langkahnya adalah :

 1. Buat 1 Project baru dengan 1 Form, 1 Module, dan 1 Commandbutton.

 2. Copy-kan code berikut ke dalam editor form & module Tsb.

      //kode ini untuk di module//

 Public Declare Function SendMessage Lib "user32" Alias _ "SendMessageA" _

      (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As _

      Long, lParam As Any) As Long

      Public Const BM_SETSTATE = &HF3

      Public Const WM_LBUTTONDOWN = &H201

      Public Const WM_LBUTTONUP = &H202

      //akhir kode untuk module//

//kode ini untuk di form//

      Dim blnTekan As Boolean

      Private Sub Command1_Click()

      If blnTekan = False Then

       Call SendMessage(Command1.hwnd, BM_SETSTATE, 1, ByVal 0&)

       blnTekan = True

       Exit Sub

      ElseIf blnTekan = True Then

      blnTekan = False

      Call SendMessage(Command1.hwnd, BM_SETSTATE, 0, ByVal 0&)

      End If

      End Sub

//akhir kode untuk form//

Read More

Tips Mempercepat Performa Windows XP

Anda bisa mempercepat akses Windows XP anda dengan mematikan semua fitur grafik dan efek di WinXP. Caranya anda klik kanan di My Computer, terus pilih My properties, setelah itu tekan tombol Performance Setting, matikan semua fitur yang anda rasa tidak perlu atau anda bisa memilih adjust for better performance.
Kalau untuk browsing dan memori anda pas-pasan (256 MB-512 MB), anda bisa memilih Mozilla FireFox. Untuk membuka 25 situs dalam 1 windows memakai tab, FireFox cuma butuh memori 55 MB, kalau Internet Explorer hampir 2-3 kali lipat memakai memori lebih besar.

Selain itu untuk mempercepat akses kedua Windows di atas dan menjaga kestabilan serta gangguan sistem keamanan akibat trojan, virus, maupun spyware, anda bisa memakai program speed up yang ada di http://click2clean.e-games.com.my/Speedup/speedup.asp

Matikan semua startup anda yang tidak perlu di windows, caranya pilih “run” di “start” menu terus ketik “msconfig” terus pilih “startup” di pojok kanan, lalu matikan semua startup yang anda anggap tidak berguna.

Read More

Mempercepat Booting Windows XP

Mungkin anda pernah mengalami booting windows yang sangat lambat
Berikut langkah-langkahnya agar booting windows anda menjadi lebih cepat :

Langkah 1 :
Buka aplikasi notepad
Ketikkan “del c:\windows\prefetch\ntosboot-*.*/q” (Tanpa tanda kutip )
dan save as dengan nama ntosboot.bat dalam drive c:\

Langkah 2 :
Lalu klik menu Start–>Run–> dan ketikkan gpedit.msc

Langkah 3 :
Klik Computer Configuration–>Windows Settings–>Script–>lalu klik 2 kali pada Shutdown

Langkah 4 :
Dalam Windows Shutdown Properties klik add lalu browse. lalu cari letak file ntosboot.bat yang anda buat tadi dan klik open

Langkah 5 :
Lalu klik OK ,Apply dan OK sekali lagi untuk menyelesaikannya

Langkah 6 :
Lalu klik menu Start–>Run–> dan devmgmt.msc

Langkah 7 :
Klik IDE ATA/ATAPI controllers–>Primary IDE Channel ( Klik 2 kali untuk membuka properties )

Langkah 8 :
Pilih Advanced Settings
Pada Device 0 atau Device 1
Ganti Device Type menjadi None ( Ganti saja pilihan Device Type yang tidak terkunci )

Langkah 9 :
Klik IDE ATA/ATAPI controllers–>Secondary IDE Channel ( Klik 2 kali untuk membuka properties )
Ulangi seperti Langkah 8

Langkah 10 :
Restart Komputer anda dan anda bisa lihat perubahannya.

Semoga Bermanfaat

Read More