Langkah-langkahnya sebagai berikut :
- Buatlah sebuah project di Ms.Visual basic
- Simpan dengan nama KeyAscii atau sesuai keinginan kita
- Lalu tambahkan sebuah TextBox , dan biarkan secara Default
(sehingga namanya menjadi Text1)
- Kemudian masukan Listing code ke dalam source code visual basic
Private sub Form_Achivate()
Text1.Enabled = False
End Sub
Private sub Form_Keypress (keyAscii As Interger)
Text1 = keyAscii
End sub
- Kemudian jalankan program & tekan huruf-huruf di dalam keyboard, maka di dalam textbox akan keluar nilai Ascii di keyboard yang kita tekan.
Contohnya seperti berikut :
Enter 13
Spasi 32
Alt -9
1 49
2 50
3 51
4 52
5 53
6 54
7 55
8 56
9 57
Spasi 32
Alt -9
1 49
2 50
3 51
4 52
5 53
6 54
7 55
8 56
9 57
Tidak ada komentar:
Posting Komentar