Search Kode ASCII

Dari programmer untuk programmer :
Apakah Anda tahu apa itu kode ASCII(American Standard Code for Information Interchange)?

Kode ASCII merupakan suatu standar internasional dalam kode huruf dan simbol seperti Hex dan Unicode tetapi ASCII lebih bersifat universal, contohnya 124 adalah untuk karakter "|". Ia selalu digunakan oleh komputer dan alat komunikasi lain untuk menunjukkan teks. Kode ASCII sebenarnya memiliki komposisi bilangan biner sebanyak 8 bit. Dimulai dari 00000000 hingga 11111111. Total kombinasi yang dihasilkan sebanyak 256, dimulai dari kode 0 hingga 255 dalam sistem bilangan Desimal. (http://id.wikipedia.org/wiki/ASCII)


Di sini telah saya sediakan aplikasi untuk mengetahui beberapa kode ASCII, Anda bisa mendownloadnya disini!















http://www.4shared.com/file/217297272/8cda6ec0/Contoh_KeyAscii.html

Key arrow

Source Code :
Private Sub cmd_start_Click()
cmd_start.Visible = 0
keyOn = 1
Label1.Visible = 1
End Sub

Private Sub Timer1_Timer()
Call movea
End Sub



Module Code :
Option Explicit
Public keyOn As Boolean
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer


Sub movea()
If keyOn Then

If GetAsyncKeyState(vbKeyUp) Then
Form1.Shape1.BackColor = vbBlue
End If

If GetAsyncKeyState(vbKeyDown) Then
Form1.Shape1.BackColor = vbRed
End If

If GetAsyncKeyState(vbKeyRight) Then
Form1.Shape1.BackColor = vbYellow
End If

If GetAsyncKeyState(vbKeyLeft) Then
Form1.Shape1.BackColor = vbGreen
End If

If GetAsyncKeyState(vbKeyEscape) Then
keyOn = False
Form1.Label1.Visible = 0
Form1.cmd_start.Visible = 1
End If

End If
End Sub

Link Download :
http://www.4shared.com/file/209540512/3b1868b0/Contoh_GetAsyncKeyStatedfd.html