Cara Membuat Lampu Keyboard Berkedip- Masih setia dengan tip dan trik visual basic 6.0, pada pertemuan kali ini saya ingin memberikan tips cara membuat lampu Keyboard Anda berkedip layaknya lampu disco.
Pernahkah anda melihat sederetan lampu yang menyala seperti berjalan dan berkedip, sebenarnya lampu ini banyak kita temui seperti misalnya disebuah kendaraan mobil atau motor sebagai aksesorisnya bahkan di HP-pun pernah ada.
Nah pada tutorial kali ini kitapun bisa membuat lampu berkedip menggunakan lampu keyboard pada komputer Anda dengan menggunakan VB6 dan Notepad. Lampu Keyboard yang dimaksud adalah lampu Capslock, Numlock dan ScrollLock.
Berikut adalah langkah-langkah dalam pembuatannya:
1. Buat form baru di Project anda, buka jendela kode lalu ketikan kode berikut ini:
3. Cari file yang baru saja anda simpan yang dijadikan file .EXE kemudian jalankan program [klik ganda]
Bagi anda yang tidak mempunyai program VB6 Anda bisa mencobanya menggunkan Notepad Berikut Langkah-langkah :
b. Cara Membuat Lampu Keyboard berkedip Ala Disco :
1. Buka Program Notepad dengan cara Star-All Program-Accesoris-Notepad
2. Ketik kode dibawah ini :
Pernahkah anda melihat sederetan lampu yang menyala seperti berjalan dan berkedip, sebenarnya lampu ini banyak kita temui seperti misalnya disebuah kendaraan mobil atau motor sebagai aksesorisnya bahkan di HP-pun pernah ada.
Nah pada tutorial kali ini kitapun bisa membuat lampu berkedip menggunakan lampu keyboard pada komputer Anda dengan menggunakan VB6 dan Notepad. Lampu Keyboard yang dimaksud adalah lampu Capslock, Numlock dan ScrollLock.
Berikut adalah langkah-langkah dalam pembuatannya:
Cara Membuat Lampu berkedip Ala Disco di Keyboard Komputer :
a. Menggunakan VB61. Buat form baru di Project anda, buka jendela kode lalu ketikan kode berikut ini:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Integer)
Private Sub Form_Load()
Set SH = CreateObject("WScript.Shell")
Do
Randomize
Select Case CInt(Rnd * 2)
Case 0
SH.SendKeys "{NUMLOCK}"
Case 1
SH.SendKeys "{CAPSLOCK}"
Case 2
SH.SendKeys "{SCROLLLOCK}"
End Select
Sleep 100
Loop
End Sub
2. Lalu simpan hasil pekerjaan Anda dan jamgan lupa jadilan file .EXE dengan cara klik File-Make Project-simpan-Ok.Private Sub Form_Load()
Set SH = CreateObject("WScript.Shell")
Do
Randomize
Select Case CInt(Rnd * 2)
Case 0
SH.SendKeys "{NUMLOCK}"
Case 1
SH.SendKeys "{CAPSLOCK}"
Case 2
SH.SendKeys "{SCROLLLOCK}"
End Select
Sleep 100
Loop
End Sub
3. Cari file yang baru saja anda simpan yang dijadikan file .EXE kemudian jalankan program [klik ganda]
Bagi anda yang tidak mempunyai program VB6 Anda bisa mencobanya menggunkan Notepad Berikut Langkah-langkah :
b. Cara Membuat Lampu Keyboard berkedip Ala Disco :
1. Buka Program Notepad dengan cara Star-All Program-Accesoris-Notepad
2. Ketik kode dibawah ini :
Set SH = CreateObject("WScript.Shell")
Do
Randomize
Select Case CInt(Rnd * 2)
Case 0
SH.SendKeys "{NUMLOCK}"
Case 1
SH.SendKeys "{CAPSLOCK}"
Case 2
SH.SendKeys "{SCROLLLOCK}"
End Select
WScript.Sleep 100
Loop
2. Simpan kode Anda dengan cara File-Save As-Pilih tempat Penyimpanan dan tulis nama filenya pada File Name dengan Extension [.VBS] misal Disco.vb dan pada Save AS Type pilih All filesDo
Randomize
Select Case CInt(Rnd * 2)
Case 0
SH.SendKeys "{NUMLOCK}"
Case 1
SH.SendKeys "{CAPSLOCK}"
Case 2
SH.SendKeys "{SCROLLLOCK}"
End Select
WScript.Sleep 100
Loop
3.Jalankan Program dengan klik ganda
Demikian tip cara Cara Membuat Game Sederhana di Visual Basic 6.0. Selamat mencoba semoga berhasil.....
No comments:
Post a Comment