Cara Membuat Pendeteksi Kursor Mouse dengan Visual Basic 6.0 - Pada kesempatan kali ini saya ingin membuat tutorial bagaimana cara membuat pendeteksi kursor mouse, mumgkin Anda pernah melihat tampilan suatu program yang memiliki pendeteksi posisi kursor,Sekarang kita bisa membuatnya dengan program Visual Basic,karena Visual Basic sudah menyediakan sebuah fungsi untuk keperluan tersebut.Fungsi API yang digunakan untuk mendeteksi posisi kursor tersebut adalah Function GetCursorPos.Dengan fungsi ini koordinat posisi kursor akan tampil dalam satuan pixel.
Fungsi pendeteksi ini terbagi 2 macam yaitu pendeteksi Aktif dan pendeteksi Pasif,Pendeteksi pasif artinya tidak dapat memberikan tampilan posisi kursor secara otomatis, posisi kursor baru akan tampil jika pengguna menekan tombol yang kita sudah buatkan di form, sedangkan pendeteksi Aktif artinya dapat mendeteksi secara otomatis saat program tersebut dijalankan tanpa harus menekan tombol command pada form.Kali ini Saya membuat tutorial bagaimana membuat program pendeteksi Aktif, karena ini lebih canggih dan praktis.
Masing-masing program tersebut kita akan bahas satu per satu
Masing-masing program tersebut kita akan bahas satu per satu
A. Program Pendeteksi Aktif
Program ini dapat dikatakan lebih canggih dari pada program pendeteksi pasif, karena program ini dapat mendeteksi posisi kursor secara otomatis.Jadi Anda tidak perlu meletakan tombol command pada form.Sebagai gantinya Anda hanya menambahkan satu kontrol Timer
Berikut dibawah ini adalah langkah-langkah dalam pembuatannya
Program ini dapat dikatakan lebih canggih dari pada program pendeteksi pasif, karena program ini dapat mendeteksi posisi kursor secara otomatis.Jadi Anda tidak perlu meletakan tombol command pada form.Sebagai gantinya Anda hanya menambahkan satu kontrol Timer
Berikut dibawah ini adalah langkah-langkah dalam pembuatannya
1. Buka Form VB 6 Sandar EXE
2. Letakan 2 buah Label dan 1 Timer pada form
3. Buka jendela kode, lalu pada bagian General Declaration ketika kode berikut di bawah ini :
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Dim a As POINTAPI
Dim b As Long
Dim c As Long
Private Sub Form_Load()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
mousepos
End Sub
Private Sub mousepos()
ret = GetCursorPos(a)
b = a.x
c = a.y
Label1.Caption = b
Label2.Caption = c
End Sub
Private Type POINTAPI
x As Long
y As Long
End Type
Dim a As POINTAPI
Dim b As Long
Dim c As Long
Private Sub Form_Load()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
mousepos
End Sub
Private Sub mousepos()
ret = GetCursorPos(a)
b = a.x
c = a.y
Label1.Caption = b
Label2.Caption = c
End Sub
3. Anda dapat mengatur interval untuk kecepatan pendeteksian dengan mengubah angka interval.
Timer.Interval=1
Semakin besar angka yang dimasukan maka semakin lambat
4. Simpan hasil pekerjaan Anda, jalankan program.
B. Program Pendeteksi Pasif
Program ini disebut pasif, karena tidak dapat memberikan tampilan posisi kursor secara otomatis.Posisi kursor baru akan ditampilkan jika mpengguna mengklik tombol command.
Berikut ini adalah langkah-langkah pembuatannya :
1. Letakan 2 buah Label dan 1 Commandbutton pada form
2. Buka jendela kode, lalu ketik kode dibawah ini di bagian General Declaration :
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Sub Command1_Click()
Dim lpPoint As POINTAPI
GetCursorPost lpPoint
Label1="X"&lpPoint.x
Label2="Y"&lpPoint.y
Untuk mendeteksi posisi kursor pada saat berada diluar tombol command, tentu saja Anda hanya perlu menekan tombol ENTER,karena sudah pasti tombol command tersebut akan tersorot oleh TabIndex
3. Simpan hasil pekerjaan Anda, jalankan program.
Demikian tip cara Cara Membuat Pendeteksi Kursor Mouse dengan Visual Basic 6.0 Selamat mencoba semoga berhasil.
No comments:
Post a Comment