Buchempfehlung
Windows System Programming
Windows System Programming
Das Kompendium liefert viele interessante Informationen zur Windows-Programmierung auf Englisch. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

Code-Beispiel

Code-Beispiele » Kleine Helferlein

ASCII-Tabelle anzeigen lassen

Lizenz:Erster Autor:Letzte Bearbeitung:
k. A.AdministratorSebastian 03.06.2011

Oft benötigt man beim Programmieren den ASCII-Code eines bestimmten Zeichens. Das folgende Programm kann eine Tabelle mit allen ASCII-Codes ausgeben:

' compiliert mit FB 0.18 (CVS 18.05.2007)
' Der Code darf beliebig verwendet werden. Die Benutzung
' erfolgt jedoch ausschließlich auf eigene Gefahr.

DECLARE SUB Titel
DECLARE SUB VarianteA
DECLARE SUB VarianteB

DIM As String e

'SCREEN 12
WIDTH 80,29
COLOR 0,15
CLS

LOCATE ,,0

DO
    DO
        Titel
        LOCATE 10,10,0: PRINT "Anzeigevariante w";CHR(132);"hlen:"
        LOCATE 12,11,0: PRINT "A - Spaltenweise"
        LOCATE 13,11,0: PRINT "B - Zeilenweise"
        LOCATE 14,11,0: PRINT "E - Ende"
        LOCATE 16,10,0: PRINT "=> Auswahl: "
        e=INPUT(1)
        SELECT CASE UCASE(e)
        CASE "A": VarianteA
        CASE "B": VarianteB
        CASE "E", CHR(27): End
        END SELECT
    LOOP
LOOP



SUB Titel
COLOR 0,15
CLS
COLOR 0,7
PRINT STRING(8,205); " ASCII-Tabelle "; STRING(6,205); _
   " (c) S. Steiner, www.freebasic-portal.de "; STRING(10,205)
COLOR 0,15
END SUB

SUB VarianteA
DIM AS UInteger Zeichen, Row, Col
DIM As String c
Titel
Zeichen = 0
FOR Col = 1 TO 10
    FOR Row = 1 to 26
        IF Zeichen > 255 then exit for
        IF (Zeichen <> 0) AND (Zeichen <> 7) AND (Zeichen <> 8) _
          And (Zeichen <> 9) AND (Zeichen <> 10) AND (Zeichen _
          <> 13) THEN
            c=CHR(Zeichen)
        ELSE
            c=" "
        END IF
        LOCATE 2+Row,2+((Col-1)*8),0: PRINT USING "### !"; _
           Zeichen, c;
        IF Col < 10 THEN
            PRINT " ";CHR(179);" ";
        ELSE
            PRINT ""
        END IF
        Zeichen += 1
    NEXT Row
NEXT Col
SLEEP
END SUB

SUB VarianteB
DIM AS UInteger Zeichen
DIM As String c
Titel
PRINT " ";
FOR Zeichen = 0 to 255
    IF (Zeichen <> 0) AND (Zeichen <> 7) AND (Zeichen <> 8) _
      And (Zeichen <> 9) AND (Zeichen <> 10) AND (Zeichen _
       <> 13) THEN
        c=CHR(Zeichen)
    ELSE
        c=" "
    END IF
    PRINT USING "### !"; Zeichen, c;
    IF (((Zeichen+1) MOD 10 = 0) AND (Zeichen > 0)) OR _
      (Zeichen = 255) THEN
        PRINT ""
        PRINT " ";
    ELSE
        PRINT " ";CHR(179);" ";
    END IF
NEXT Zeichen
SLEEP
END SUB

Normalerweise wird die Codepage 850 verwendet. Wenn Sie die Liste mit den erweiterten ASCII-Zeichen (Codepage 437) benötigen, entfernen Sie den Apostrophen vor "SCREEN 12". In den Grafikmodi verwendet FreeBasic nämlich diesen erweiterten Zeichensatz.


Attachments zum Code-Beispiel
Bilddateishot_asctab1.pngScreenshot (CP850)AdministratorSebastian07.06.07
Bilddateishot_asctab2.pngScreenshot (CP437)AdministratorSebastian07.06.07
Ausführbare Datei (Binary)asctab.exeCompiliertes BeispielAdministratorSebastian07.06.07

Zusätzliche Informationen und Funktionen
  • Das Code-Beispiel wurde am 07.06.2007 von AdministratorSebastian angelegt.
  • Die aktuellste Version wurde am 03.06.2011 von Redakteurytwinky gespeichert.
  Bearbeiten Bearbeiten  

  Versionen Versionen