Anasayfa > Kodlar > VB6’da Ascii kod bulma

VB6’da Ascii kod bulma


Girdiğiniz karakterin ascii kodunu gösteren program


Formunuza 2 adet label ve 2 adet textbox ekleyiniz. txtKey name'li textbox'ın başına Karakter caption'lı labeli koyunuz. txtAscii name'li textbox'ın başına ise Ascii Kodu caption'lı labeli koyunuz.


Dim strKey As String
Dim strAscii As String

Private Sub txtKey_KeyPress(KeyAscii As Integer)
If txtKey.Text <> "" And txtAscii.Text <> "" Then
txtKey = "": txtAscii = ""
End If
strAscii = KeyAscii
txtAscii.Text = strAscii
Select Case strAscii
Case 13
' eğer enter ise
txtKey.Text = "Enter"
Case 8
' backspace ise
txtKey.Text = "BackSpace"
Case 27
' Esc ise
txtKey.Text = "Esc"
Case 32
' space ise
txtKey.Text = "SpaceBar"
End Select

End Sub


Emre KIYIK

Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: