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;