Display ASCII Table

Category: Application Features

Date: 03-28-2012

Return to Index


'Compilable Example:
#Compiler PBWin 9, PBWin 10
#Compile EXE
 
Function PBMain()
   Local temp() As String, i As Long, all$
   Dim temp(32)
   For i = 0 To 31
      temp(i) = Chr$(i+33) + Chr$(9) + Str$(i+33)
   Next i
   For i = 0 To 31
      temp(i) = temp(i) + Chr$(9) + Chr$(i+65) + Chr$(9) + Str$(i+65)
   Next i
   For i = 0 To 31
      temp(i) = temp(i) + Chr$(9) + Chr$(i+97) + Chr$(9) + Str$(i+97) + Chr$(9)
   Next i
   all$ = Join$(temp(), $CrLf)
   all$ = all$ + $CrLf + $CrLf + " 0  null" + $Tab + $Tab + "12  formfeed (FF)"
   all$ = all$ + $CrLf + " 8  backspace" + $Tab + "13  carriage return (CR)"
   all$ = all$ + $CrLf + " 9  tab" + $Tab + $Tab + "27  escape (ESC)"
   all$ = all$ + $CrLf + "10  linefeed (LF)" + $Tab + "32  space"
 
   MsgBox all$, %MB_Ok, "ASCII Table"
End Function
 
'gbs_00731
'Date: 03-10-2012


created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm