Programalama > VISUAL BASIC

Daha verilmiş ama başka bir deyimle daha basit olarak anlatmak istiyorum. 

Asc deyimi ile çok daha basit...

Sadece 1 Textox yaratın.

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
c = Asc(Text2.Text)
d = MsgBox(c, 64, "Sayı:")
Text1.Text = ""
End If
End Sub

'Ayrica harften keyascii degilde keyasciiden harf bulmak isterseniz:

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
a = Chr(Text1.Text)
b = MsgBox(a, 64, "Harf:")
Text2.Text = ""
End If
End Sub

Daha mantıksal ve daha basit öyle değil mi ?



anıl karagümüş
bilim_anil@hotmail.com