Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!Code-Beispiel
ASCII-Tabelle anzeigen lassen
| Lizenz: | Erster Autor: | Letzte Bearbeitung: |
| k. A. |  Sebastian |  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 SUBNormalerweise 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 | |||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
|
| Zusätzliche Informationen und Funktionen | |||||||
|---|---|---|---|---|---|---|---|
|
|||||||
Bearbeiten
Versionen
