ASCII-Code eines Zeichens ermitteln VB-Version:  VB5, VB6
	Views:  1.639

Immer wieder wird gefragt: Wie kann ich den ASCII-Code eines Zeichensermitteln? Natürlich könnte man einfach einen Blick in diese  Tabelle in unserer Rubrik  Befehlsreferenz werfen, aber ich denke, dass die Frage so nicht gemeint ist .

Also starten wir ein neues Projekt mit einem Textfeld, einem Label und zweiCommandButtons. Dann brauchen wir nur noch folgenden Code:

Option Explicit
 
Dim iAscCode As Integer
Dim sChar As String
 
' Zeichen in ASCII-Code umwandeln
Private Sub Command1_Click()
  iAscCode = Asc(Text1.Text)
  Label1.Caption = iAscCode
End Sub
 
' ASCII-Code in Zeichen umwandeln
Private Sub Command2_Click()
  sChar = Chr(Text1.Text)
  Label1.Caption = sChar
End Sub

Natürlich ist das nur ein ganz einfaches Beispiel ohneFehlerbehandlungsroutine, d. h. wenn Sie z. B. mehr als einen Buchstabeneingeben wird nur der ASCII-Code für den ersten Buchstaben angezeigt, oder wennSie eine nicht existierende Code-Zahl eingeben, erhalten Sie einenLaufzeitfehler. Dieses Beispiel soll lediglich demonstrieren, wie Sie denASCII-Code eines Zeichens ermitteln bzw. wieder zurückwandeln können.