Caractères ASCII

GW-Basic, utilisé par PC-Basic

Programme avec Texte Seulement

PC-BASIC

L'American Standard Code for Information Interchange, ou ASCII, est une correspondance numérique des caractères vers les nombres.* Par exemple, la majuscule J correspond au code ASCII 74.

Les codes représentent plus que des lettres et des chiffres. Le code ASCII 236 représente le symbole de l'infini, par exemple, tandis que 227 est attribué à π.

Deux programmes sont présentés dans cette section : CHRGC.BAS et RNDCHR$.BAS.

CHRGC.BAS vous permet de faire défiler tous les codes de caractères ASCII affichables par GW-BASIC, simplement en appuyant sur les touches + et -. RNDCHR$.BAS est un économiseur d'écran de codes ASCII (bien que de tels programmes ne soient plus nécessaires avec les écrans d'ordinateur modernes).

Les deux programmes utilisent la fonction CHR$. CHR$ convertit le code ASCII en caractère qu'il représente. Étant donné que les codes ASCII vont de 1 à 255, les programmes doivent s'assurer que CHR$ reste dans ces limites.

La norme de l'industrie est maintenant Unicode.

5 REM CHRGC.BAS
10 KEY OFF:N=1:SCREEN 9
20 COLOR 1,1:CLS:COLOR 15
40 LOCATE 12,37:PRINT CHR$(N)
41 LOCATE 3,30:PRINT "CHR$:";N:G$=INKEY$
42 IF G$="" THEN GOTO 41
43 IF G$="+" THEN N=N+1
44 IF G$="-" THEN N=N-1
46 IF G$=CHR$(27) THEN CLS:END
50 IF N=>255 THEN N=1:CLS
55 IF N<1 THEN N=254:CLS
60 GOTO 40

5 REM RNDCHR$.BAS
10 KEY OFF:SCREEN 9:COLOR 14,0:CLS
20 F=INT(1+255*RND(1))
21 C=INT(1+15*RND(1)):IF C=8 THEN GOTO 21
22 X=INT(1+24*RND(1)):Y=INT(1+80*RND(1))
30 IF F=7 THEN GOTO 20
35 IF F=12 THEN GOTO 20
40 COLOR C:LOCATE X,Y:PRINT CHR$(F);;
45 IF INKEY$=CHR$(27) THEN CLS:END
50 GOTO 20

Combiner les deux programmes en un seul (avec un menu vous donnant une option sur le sous-programme vers lequel sauter) pourrait être une amélioration marginale mais n'est certainement pas nécessaire ; après tout, RNDCHR$.BAS, un économiseur d'écran, est juste pour le plaisir, contrairement à CHRGC.BAS, qui fonctionne comme une référence des codes ASCII que vous pourriez vouloir utiliser pour d'autres programmes.

Voici un autre programme qui utilise HEX$ et affiche les caractères en colonne.

10 CLS:P=0
20 FOR X= 32 TO 255
25 IF P=60 THEN P=0
30 PRINT TAB(P)X;"HEX= "HEX$(X);
35 P=P+15
40 NEXT X