Loading halaman Tutorial Visual Basic, Delphi, PHP - Calon Programer : Common Key Events Constants ...

Common Key Events Constants.
Pada penulisan sebelumnya saya sudah membahas tentang Daftar kode ASCII dalam pemprograman .Dalam Visual Basic 6, itu menggunakan satu set konstanta yang sesuai dengan nilai-nilai ASCII. Kita dapat menggunakan konstanta tersebut bukan ASCII itu. Pada tabel berikut adalah konstanta dan nilai-nilai ASCII yang dapat kita gunakan.
Event Constant
ASCII
Chr
Event Constant
ASCII
Chr
vbKey0
48
0
vbKeyR
82
R
vbKey1
49
1
vbKeyS
83
S
vbKey2
50
2
vbKeyT
84
T
vbKey3
51
3
vbKeyU
85
U
vbKey4
52
4
vbKeyV
86
V
vbKey5
53
5
vbKeyW
87
W
vbKey6
54
6
vbKeyX
88
X
vbKey7
55
7
vbKeyY
89
Y
vbKey8
56
8
vbKeyZ
90
Z
vbKey9
57
9
vbKeyDecimal
110
Decima point
vbKeyA
65
A
vbkeyBack
8
Backspace key
vbKeyB
66
B
vbKeyTab
9
Tab key
vbKeyC
67
C
vbkeyReturn
13
Return key(Enter key)
vbKeyD
68
D
vbKeyShift
16
Shift key

vbKeyE
69
E
vbKeyControl
17
Ctrl key
vbKeyF
70
F
vbKeyCapital
20
Caps Lock key
vbKeyG
71
G
vbKeyEscape
27
Esc key
vbKeyH
72
H
vbKeySpace
32
Space bar
vbKeyI
73
I
vbKeyInsert
45
Insert key
vbKeyJ
74
J
vbKeyDelete
46
Delete key
vbKeyK
75
K



vbKeyL
76
L



vbKeyM
77
M



vbKeyN
78
N



vbKeyO
79
O



vbKeyP
80
P



vbKeyQ
81
Q




Cara penulisan listingnya
 Kita dapat menuliskannya dalam 3 event. keyPress, KeyDown and KeyUp.

Contoh 1 :
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then  '13 adalah kode ASCII untuk Enter
Print "Anda telah menekan tombol ENTER"
Else
Print "Anda telah menekan tombol LAIN"
End If
End Sub
Listing diatas akan mendeteksi apakah kita menekan tombol ENTER atau tombol selain ENTER.


Contoh 2 :
Jika Anda ingin mendeteksi dan menampilkan tombol apa yang ditekan oleh pengguna, cukup ketik kode berikut :
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
Fungsi Chr akan mengkonversi nilai ASCII kedalam karakter yang ada pada susunan kode ASCII.


Contoh 3 :
Private Sub Form_KeyPress(KeyAscii As Integer)
For i = 65 To 90

Print Chr(KeyAscii)

Next
End Sub

Contoh diatas kita menggunakan perulangan For ...Next untuk menampilkan alphabet A sampai Z dengan menekan tombol pada keyboard.
Contoh 4 :
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then

For i = 97 To 122

Print Chr(i)

Next

End If
End Sub
Jika ingin melihat daftar kode ASCII bisa kalian lihat disini
Klik Like/share jika anda menyukai tulisan ini;

Tagg :

0 Reply :

Posting Komentar

Jika ada pertanyaan atau request,Komentar pada tab blogger akan lebih memudahkan saya untuk membalasnya karena lebih mudah melakukan pengecekan komentar.