PRINT et PRINTL
GW-Basic, utilisé par PC-Basic
Pour afficher un affichage à l'écran.
Syntaxe:
PRINT [list of expressions][;]
?[list of expressions][;]
Commentaires:
Si la liste d'expressions est omise, une
ligne vide s'affiche.
Si une liste
d'expressions est incluse, les valeurs des expressions sont affichées.
Les expressions de la liste peuvent être des expressions numériques et/ou de chaîne, séparées par des virgules, des espaces ou des points-virgules.
Les constantes de chaîne de la liste
doivent être placées entre guillemets doubles.
Pour plus
d'informations sur les chaînes, consultez la fonction STRING$.
Un point
d'interrogation (?) peut être utilisé à la place du mot PRINT lors de
l'utilisation de l'éditeur de programme GW-BASIC.
Positions
d'impression
GW-BASIC divise la ligne en zones d'impression de 14 espaces.
La position de chaque élément imprimé est déterminée par la ponctuation utilisée pour séparer les éléments de la liste :
Position d'impression du séparateur
, Début de la zone suivante
; Immédiatement après la dernière valeur
espace(s) Immédiatement après la dernière valeur
Si une virgule, un point-virgule ou une fonction SPC ou TAB termine une liste d'expressions, l'instruction PRINT suivante commence l'impression sur la même ligne, espacée en conséquence.
Si la liste d'expressions se termine sans
virgule, point-virgule ou fonction SPC ou TAB, un retour chariot est placé à la
fin des lignes (GW-BASIC place le curseur au début de la ligne suivante).
Un retour
charriot/saut de ligne est automatiquement inséré après l'impression des
caractères de largeur, où la largeur est de 40 ou 80, comme défini dans
l'instruction WIDTH. Cela entraîne le saut de deux lignes lorsque vous imprimez
exactement 40 (ou 80) caractères, à moins que l'instruction PRINT ne se termine
par un point-virgule.
Lorsque des
nombres sont imprimés à l'écran, les nombres sont toujours suivis d'un espace.
Les nombres positifs sont précédés d'un espace. Les nombres négatifs sont
précédés du signe moins (-). Les nombres simple précision sont représentés avec
sept chiffres ou moins dans un format à virgule fixe ou entier.
Voir les
instructions LPRINT et LPRINT USING pour plus d'informations sur l'envoi de
données à imprimer sur une imprimante.
Exemples:
10 X$= STRING$(10,45)
20 PRINT X$"MONTHLY
REPORT" X$
RUN
----------MONTHLY REPORT----------
Programme HEX1
Imprime pour les codes ASCII de 1 à 32, les codes hexadécimaux en 4 colonnes en utilisant:
Une boucle FOR ... NEXT
la fonction TAB (pour positionner à n Espaces sur l'écran) et le ;
10 CLS
20 FOR X= 1 TO 31 STEP 4
30 PRINT TAB(0)X;"HEX= "HEX$(X);TAB(15)
X+1;"HEX= "HEX$(X+1);TAB(30) X+2;"HEX= "HEX$(X+2);TAB(45) X+3;"HEX= "HEX$(X+3)
40 NEXT X
Programme HEX2
Imprime pour les codes ASCII de 1 à 32, les codes hexadécimaux en 4 colonnes en utilisant:
la fonction TAB (pour positionner à n Espaces sur l'écran) et le ;
10 CLS
20 PRINT TAB(0)1;"HEX=
"HEX$(1);TAB(15) 9;"HEX= "HEX$(9);TAB(30) 17;"HEX= "HEX$(17);TAB(45) 25;"HEX=
"HEX$(25)
30 PRINT TAB(0)2;"HEX=
"HEX$(2);TAB(15) 10;"HEX= "HEX$(10);TAB(30) 18;"HEX= "HEX$(18);TAB(45) 26;"HEX=
"HEX$(26)
40 PRINT TAB(0)3;"HEX=
"HEX$(3);TAB(15) 11;"HEX= "HEX$(11);TAB(30) 19;"HEX= "HEX$(19);TAB(45) 27;"HEX=
"HEX$(27)
50 PRINT TAB(0)4;"HEX=
"HEX$(4);TAB(15) 12;"HEX= "HEX$(12);TAB(30) 20;"HEX= "HEX$(20);TAB(45) 28;"HEX=
"HEX$(28)
60 PRINT TAB(0)5;"HEX=
"HEX$(5);TAB(15) 13;"HEX= "HEX$(13);TAB(30) 21;"HEX= "HEX$(21);TAB(45) 29;"HEX=
"HEX$(29)
70 PRINT TAB(0)6;"HEX=
"HEX$(6);TAB(15) 14;"HEX= "HEX$(14);TAB(30) 22;"HEX= "HEX$(22);TAB(45) 30;"HEX=
"HEX$(30)
80 PRINT TAB(0)7;"HEX=
"HEX$(7);TAB(15) 15;"HEX= "HEX$(15);TAB(30) 23;"HEX= "HEX$(23);TAB(45) 31;"HEX=
"HEX$(31)
90 PRINT TAB(0)8;"HEX=
"HEX$(8);TAB(15) 16;"HEX= "HEX$(16);TAB(30) 24;"HEX= "HEX$(24);TAB(45) 32;"HEX=
"HEX$(32)
Programme HEX3
Imprime pour les codes ASCII de 1 à 32, les codes hexadécimaux en 4 colonnes en utilisant:
Une boucle FOR ... NEXT
Des tableaux, Les tableaux sont utilisés pour sauvegarder plusieurs valeurs dans une seule variable.
Il y a 4 variables de tableau, une pour chaque colonne: A, B, C et D. Les tableaux sont déclarés avec DIM.
la fonction TAB (pour positionner à n Espaces sur l'écran) et le ;
10 CLS
20 DIM A(8),B(8),C(8),D(8)
30 FOR I
= 1 TO 8
40 A(I)=I:B(I)=I+8:C(I)=I+16:D(I)=I+24
50 PRINT TAB(0)A(I);"HEX=
"HEX$(A(I));TAB(15) B(I);"HEX= "HEX$(B(I));
60 PRINT TAB(30) C(I);"HEX=
"HEX$(C(I));TAB(45) D(I);"HEX= "HEX$(D(I))
70 NEXT I
Programme HEX4
Imprime pour les codes ASCII de 32 à 255, les caractères et les codes hexadécimaux en 4 colonnes en utilisant:
Une boucle FOR ... NEXT
Des tableaux, Les tableaux sont utilisés pour sauvegarder plusieurs valeurs dans une seule variable.
Il y a 4 variables de tableau, une pour chaque colonne: A, B, C et D. Les tableaux sont déclarés avec DIM.
la fonction TAB (pour positionner à n Espaces sur l'écran) et le ;
10 CLS
20 DIM A(87),B(87),C(87),D87)
30
FOR I= 32 TO 87
40 A(I)=I:B(I)=I+56:C(I)=I+112:D(I)=I+168
60 PRINT
TAB(0)A(I);" ";CHR$(A(I));" ";"HEX= "HEX$(A(I));
70 PRINT TAB(20) B(I);"
";CHR$(B(I));" ";" ";"HEX= ";" ";HEX$(B(I));
80 PRINT TAB(40) C(I);"
";CHR$(C(I));" ";" ";"HEX= ";" ";HEX$(C(I));
90 IF D(I)>255 THEN 110
100
PRINT TAB(60) D(I);" ";CHR$(D(I));" ";" ";"HEX= ";" ";HEX$(D(I))
110 NEXT I
Comme le résultat est trop grand pour être affiché en entier, on peut utiliser la commande LPRINT pour imprimer le résultat. LPRINT envoi un vers les gestionnaire d'imprimante de Windows.
10 CLS
20 DIM A(87),B(87),C(87),D87)
30 FOR I= 32 TO 87
40 A(I)=I:B(I)=I+56:C(I)=I+112:D(I)=I+168
60 LPRINT
TAB(0)A(I);" ";CHR$(A(I));" ";"HEX= "HEX$(A(I));
70 LPRINT TAB(20) B(I);"
";CHR$(B(I));" ";" ";"HEX= ";" ";HEX$(B(I));
80 LPRINT TAB(40) C(I);"
";CHR$(C(I));" ";" ";"HEX= ";" ";HEX$(C(I));
90 IF D(I)>255 THEN 110
100
LPRINT TAB(60) D(I);" ";CHR$(D(I));" ";" ";"HEX= ";" ";HEX$(D(I))
110 NEXT I
Le programme ci-dessous affiche sur 4 colonnes les valeurs hexadécimales pour les valeurs décimales de 32 à 255.
On utilise la variable P comme indicateur de position. Soit 0, 15, 30 et 45.
le ; de PRINT permet d'afficher sur la même ligne.
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
