Sunday, June 28, 2015

Cara menonaktifkan Keyboard dan mouse dengan visual basic 6.0

Cara menonaktifkan Keyboard dan mouse dengan visual basic 6.0 - Hai Sobat naga kali ini saya akan share tentang cara menonaktifkan mouse dan keyboard dengan visual basic 6.0 tapi jangan takut ini saya buat hanya 5 detik kalau anda mau meruabahnya silahkan

sebelum kita membuat program tersebut, saya akan menjelaskan sedikit tentang visual basic 6.0.

Pengertian Visual Basic 6.0
    Visual basic 6.0 adalah salah satu aplikasi untuk membuat system informasi database dan masih banyak lagi. Visual basic 6.0 ini adalah terusan dari visual basic 1.0 sampai 5.0. walau agak tertinggal, tapi aplikasi software ini masih digunakan untuk pengimplementaisannya di dalam pembuatan sistem database. Visual basic 6.0 ini pun berkembang menjadi visual studio, visual basic 2008, Visual Basic 2009 sampai menjadi visual basic .net.
    Visual basic 6.0 ini sering juga di gunakan dalam perhitungan gaji, penjualan barang dan lain-lain. visual basic ini support dengan operating sistem windows. dan untuk databasenya bisa menggunakan microsoft access, SQL servers dan oracle.
     Dalam menu visual basic terdapat komponen-komponen yang tentu saja di perlukan untuk menentukan Kode atau sintak yang akan digunakan. karena walaupun salah titik atau koma dalam visual basic 6.0 ini akan mengakibatkan program sistem debug atau error script.

Visual Basic 6.0

buatlah:


  •  1 buah form pilih standar exe
  •  1 buah timer dengan nama : Timer1


dan masukkan code berikut Di General (Declarations) :

Option Explicit 

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long 

Private Sub Command1_Click() 
    Timer1.Enabled = True 
    BlockInput True 
End Sub 

'Gunakan kode di bawah, agar komputer Anda tidak usah di restart 
Private Sub Form_Load() 
    Timer1.Interval = 1000 '1 detik 
    Timer1.Enabled = False 
End Sub 

'Timer1.Interval = 1000 '1 detik 
Private Sub Timer1_Timer() 
    Static i As Integer 
    i = i + 1 
    If i > 5 Then 'Tunggulah 5 Detik 
        BlockInput False 'Mengaktifkan kembali keyboard dan mouse 
        i = 0 
    End If 

End Sub

Sekian, Terima Kasih
Temukan Artikel Lainnya di Bapaknaga

Semoga Bermanfaat

Cara menonaktifkan Keyboard dan mouse dengan visual basic 6.0 Rating: 4.5 Diposkan Oleh: media tion