PSET, PRESET
GW-Basic, utilisé par PC-Basic
Exemple de programmation
Pour afficher un point à un endroit spécifié sur l'écran lors de
l'utilisation du mode graphique.
Syntaxe:
PRESET(x,y)[,color]
PSET(x,y)[,color]
Commentaires:
(x,y) représente les coordonnées du point.
color est
la couleur du point.
Les coordonnées peuvent être données sous forme
absolue ou relative.
PRESET (réinitialisation du point). PRESET "sait" que vous voulez utiliser la
couleur d'arrière-plan, vous n'avez donc pas besoin de donner la couleur.
Forme absolue
(x absolu, y absolu) est plus courant et se réfère directement à un point sans tenir compte du dernier point référencé.
Par exemple:
(10,10)
Forme relative
STEP (décalage x, décalage y) est un point relatif au point le plus récent
référencé. Par exemple:
STEP(10,10)
Les valeurs de coordonnées peuvent être au-delà du bord de l'écran.
Cependant, les valeurs en dehors de la plage d'entiers (-32768 à 32767)
provoquent une erreur "Overflow".
(0,0) est toujours le coin supérieur
gauche et (639,349) est le coin inférieur droit pour SCREEN 9.
Voir les
instructions
SCREEN, COLOR, PALETTE pour
plus d'informations.
Exemple:
Le programme ci-dessous trace une ligne diagonale de (0,0) à (100,100) dans SCREEN 1,2,7,8,9
10 SCREEN 1
20 LOCATE 1,5:PRINT "SCREEN 1,
320 × 200 pixels, 40 caractères"
30 GOSUB 1000
40 SCREEN 2
50 LOCATE
1,5:PRINT "SCREEN 2, 640 × 200 pixels 80 caractères"
60 GOSUB 1000
70
SCREEN 7
80 LOCATE 1,5:PRINT "SCREEN 7, 320 × 200 pixels, 40 caractères"
90 GOSUB 1000
100 SCREEN 8
110 LOCATE 1,5:PRINT "SCREEN 8, 640 × 200
pixels, 80 caractères"
120 GOSUB 1000
130 SCREEN 9
140 LOCATE 1,5:PRINT
"SCREEN 9, 640 × 350 pixels, 80 caractères"
150 GOSUB 1000
160 LOCATE 14,1
170 SCREEN 0
180 END
1000 FOR I=0 TO 100
1010 PSET (I,I)
1020 NEXT
1030 LOCATE 14,1:PRINT"Appuyez sur une touche pour continuer"
1040
A$=INKEY$:IF A$="" THEN 1040
1050 RETURN
POINT Function
Pour lire la couleur ou la valeur d'attribut
d'un pixel à partir de l'écran.
Syntaxe:
POINT(x,y)
POINT(function)
Commentaires:
Dans la première syntaxe, x et y sont les
coordonnées du point à examiner.
Si le point donné est hors plage, la
valeur -1 est renvoyée.
Consultez les instructions
SCREEN, COLOR, PALETTE pour
connaître les valeurs de couleur et d'attribut valides.
POINT avec un
argument permet de récupérer les coordonnées graphiques courantes.
POINT(fonction) renvoie la valeur des coordonnées graphiques x ou y courantes
comme suit :
Retours de fonction
0 la coordonnée x physique actuelle.
1 la coordonnée y physique actuelle.
2 la coordonnée x logique actuelle si WINDOW est actif ; sinon, il renvoie la coordonnée x physique actuelle comme dans 0 ci-dessus.
3 la coordonnée y logique courante si WINDOW est actif ; sinon, il renvoie la coordonnée y physique actuelle comme dans 1 ci-dessus.
Exemple 1:
10 SCREEN 1 20 FOR C=0 TO 3 30 PSET (10, 10),C 40 IF POINT(10, 10)<>C THEN PRINT "BROKEN BASIC=" 50 NEXT C
Exemple 2:
Ce qui suit inverse l'état actuel d'un point :
10 SCREEN 2
20 IF POINT(I, I)<>0 THEN PRESET(I,
I) ELSE PSET(I, I)
Exemple 3:
Voici une autre façon d'inverser un point :
20 PSET (I, I), 1-POINT(I, I)
Exemple 4:
5 SCREEN 7 '320 × 200
pixels
10 RANDOMIZE TIMER
20 CLS
30 X = INT(320*RND(1)+1)
40 Y =
INT(200*RND(1)+1)
50 C = INT(15*RND(1)+1)
60 PSET(X,Y),C
70 IF POINT (X,Y)=12
THEN GOTO 90
80 GOTO 30
90 PRINT "La couleur du point "X Y" est Rouge
clair"
