Membuat Lampu Keyboard Kelap-Kelip – Simple Visual Basic


http://www.mesran.blogspot.com/
  1. Buka Notepad atau buat file text baru dengan cara klik kanan – New – Text document. Lalu beri nama misalnya discolamp.txt
  2. Kemudian masukan script visual basic berikut:
    1
    2
    3
    4
    5
    6
    7
    Set wshShell =wscript.CreateObject("WScript.Shell")
    do
    wscript.sleep 100
    wshshell.sendkeys "{CAPSLOCK}"
    wshshell.sendkeys "{NUMLOCK}"
    wshshell.sendkeys "{SCROLLLOCK}"
    loop
    save dan close.
  3. Setelah itu rename/ ganti nama file tadi dan ubah ekstensinya menjadi .VBS. Contohnya dari discolamp.txt menjadi discolamp.vbs, maka dengan begini file tersebut kini menjadi file executeable oleh visual basic
  4. Nah selesai deh, kini tinggal buka kembali file tersebut dengan double click file tadi dan perhatikan apa yang terjadi dengan keyboard komputer anda. Lampu keyboard yang terdiri dari Num Lock, Caps Lock, dan Scroll Lock pun akan kelap-kelip saling bergantian



Untuk stop atau menghentikan fungsi dari visual basic ini, tekan Ctrl + Alt -Del atau klik kanan pada task bar lalu klik Task Manager – klik pada tab Processes – cari file wscript.exe dan end task.
Oya, bagi yang kesulitan merubah ekstensi file dikarenakan secara default file extension pada komputer kita disembunyikan (hide), seperti contoh file Microsoft Word dengan nama “Tugas-Sekolah” tidak tampil sebagai “Tugas-Sekolah.doc” atau seperti contoh di atas discolamp.txt hanya tampil sebagai discolamp. Maka cara untuk dapat menampilkan atau menyembunyikan ekstensi file tersebut ikuti langkah-langkah berikut:

Pada Windows Explorer klik Tools pada menu – Folder Options maka akan muncul windows baru.
Pilih tab View disamping kanan tab General, lalu cari Hide extensions for known file types. Pilih uncheck atau hilangkan centang untuk memunculkan esktensi file atau sebaliknya klik atau check pada untuk menyembunyikan ekstensi file, lalu klik apply atau OK.

Komentar

Posting Komentar

Postingan populer dari blog ini

Menghapus data Pada Listview

Gambar
http://www.mesran.blogspot.com/ Class Form1     Sub buattabel()         LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)         LV.Columns.Add("Nama", 180, HorizontalAlignment.Left)         LV.View = View.Details         LV.GridLines = True         LV.FullRowSelect = True     End Sub     Sub isitabel()         Dim lst As New ListViewItem         lst.Text = NPM.Text         lst.SubItems.Add(Nama.Text)         LV.Items.Add(lst)     End Sub     Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click     End Sub     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         buattabel()     End Sub     Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click         isitabel()         NPM.Text = ""         Nama.Text = ""     End Sub     Private Sub Bt
Baca selengkapnya

ENTAH SIAPA YANG TAHU??

Gambar
ENTAH SIAPA YANG TAHU?? Dalam rintihan lelakaq sasak sering aku bercerita Tentang langit jingga, tentang gunung yang berdiri megah Ditanah yang tak bernama.. Baru sekali aku menemukanya… Dulu sebelum aku tidur nenekku sering bercerita   entah tentang cerita raja-raja sampai silsilah keluarga sebagi penghantar tidur malamku Tapi .. tak pernah tentang tanah ini, Di tanahku daun berguguran hanya seperempat musim saja Selebihnya daun-daun hijau sesekali jatuh namun menjadi humus Ber re_inkarnasi menjadi daun-daun baru atau sebagai ayah untuk daun-daun yang lama. Dua batang bunga melati maasih menyulam hidup di dahan pepohonan tua Entah sampai kapan,, ? Seolah tak punya harapan.. Sering aku berdiskusi dengan angin malam Menikmati hembusan angin yang Nampak mulai tak damai,, Tak juga dingin Tak sedamai gendongan inaq dikala bayi, tak sedingin pelukan mamiq dikala terik..? Kadang aku tersenyum sendiri,, mengapa aku hidup disini,, Coba mengelana bagai raja pejanggik dalam dongeng Apa untuk
Baca selengkapnya

PROGRAM PEMBAYARAN LISTRIK DENGAN VB NET

Gambar
http://www.mesran.blogspot.com Public Class Form1        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Dim x As String         No_urut.Text = "1" & Microsoft.VisualBasic.Right(KODE.Text, 2)         x = Microsoft.VisualBasic.Mid(KODE.Text, 4, 3)         If x = "MED" Then             daerah.Text = "MEDAN"             pajak.Text = 0.015         ElseIf x = "BEL" Then             daerah.Text = "BELAWAN"             pajak.Text = 0.015         ElseIf x = "TEM" Then             daerah.Text = "AKSARA"             pajak.Text = 0.015         ElseIf x = "MAR" Then             daerah.Text = "MARENDAL"             pajak.Text = 0.015         ElseIf x = "BIN" Then             daerah.Text = "BINJAI"             pajak.Text = 0.015         ElseIf x = "PAK" Then             daerah.Text
Baca selengkapnya