Tous les Basics: (optimisation vitesse)
opérateur booléen:
AND, OR et NOT.
Rappel:
"OR" (ou) symbolisé par "+" et AND (et) symbolisé par "." [edité car "+"/"." inversés (1+0=1 et 1.0=1)].
N'importe quelle variable peut être utilisée en variable Booléen.
Elle prend souvent la valeur de 0 pour Faux (false) et 1 pour vraie (true)
Sauf, sur certains basic, ou False= -1.
Pour une condition OR, on remplace "OR" par "Si on a * ou * " : A OR B = 1 Si on a A ou B en TRUE (<>0)
Pour une condition AND, on remplace "AND" par "Si on a * et * " : A AND B = 1 Si on a A et B sont en TRUE (<>0)
LET A=1
LET B=1
LET C= A OR B = 1 (car A est à 1; B est à 1; Si A ou B est à 0 même résultat. C=1)
LET C= A AND B = 1 (car A est à 1; B est à 1; C=1 sauf si A ou B changent d'état.)
Bon, c'est simple...
NOTA : On oublie la fonction XOR, qui ne peut être utilisée sur une fonction booléen, car le XOR de A= NOT A !
J'en viens à mon exemple!
On prend des coordonnées fixes sur l'écran de 21x32 caractères.
Utilisées si l'on passe avec un bonhomme (curseur) sur ces coordonnées, ça fait quelque chose... un "Booom!" pour rester ludique.
Donc, test en X (lignes) et Y(colonnes). x(de 0 à 20) y(0 à 31)
Ligne Y n°1: X coordonnées 7, 14 et 20 piégées!
Ligne Y n°2: X coordonnées 3, 10 et 15 piégées!
Ligne Y n°3: X coordonnées 7,13 et 15 piégées!
Voici donc les conditions:
Code : Tout sélectionner
100 IF X=7 AND Y=1 OR X=14 AND Y=1 OR X=20 AND Y=1 THEN GOTO 200
110 IF X=3 AND Y=2 OR X=10 AND Y=2 OR X=15 AND Y=2 THEN GOTO 200
120 IF X=7 AND Y=3 OR X=13 AND Y=3 OR X=15 AND Y=3 THEN GOTO 200
180 GOTO 50
200 PRINT "BOOM!!"
Comme on l'a vu, trop de codes ralenti le basic, donc, il faut simplifier et effacer les redondances!
On va résonner par ligne... si on est en ligne 1 tester les points X des colonnes!
Donc,
Code : Tout sélectionner
100 IF Y=1 AND (X=7 OR X=14 OR X=20) THEN GOTO 200
110 IF Y=2 AND (X=3 OR X=10 OR X=15) THEN GOTO 200
120 IF Y=3 AND (X=7 OR X=13 OR X=15) THEN GOTO 200
180 GOTO 50
200 PRINT "BOOM!!"
Ca fait cela de moins à tester!
Mais, pourquoi tester toutes les ligne quand X n'a qu'une valeur possible?
Donc,
Code : Tout sélectionner
95 ON Y+1 GOSUB 100,110,120,130,... (Y+1 car y commence à 0)
98 GOTO 50
100 REM
110 IF X=7 OR X=14 OR X=20 THEN GOTO 200
115 RETURN
120 IF X=3 OR X=10 OR X=15 THEN GOTO 200
125 RETURN
130 IF X=7 OR X=13 OR X=15 THEN GOTO 200
135 RETURN
200 PRINT "BOOM!!"
[GOSUB 100+Y*10 pour Spectrum/Zx81]
Nota: Il est possible de faire une réduction plus pointue grâce au
tableau de Karnaugh
Mais, l'exécution sera forcement trop gourmande en temps, même si réduite en une seule ligne.
Donc, dans ce cas, les conditions ne passent pas forcement par des IF !
A l'inverse, si le code comprend un trop grand nombre de conditions redondantes...
Il est parfois utile d'utiliser une condition booléenne via une variable.
110 IF (X=7 OR X=14) AND (X=20 OR X=12) THEN GOTO 200
120 IF (X=5 OR X=4) AND (X=20 OR X=12) THEN GOTO 200
Au lieu de répéter (X=20 OR X=12), placez le déclencheur (trigger) dans une variable!
100 LET trig=(X=20 OR X=12)
110 IF (X=7 OR X=14) AND trig THEN GOTO 200
120 IF (X=5 OR X=4) AND trig THEN GOTO 200
La condition est ainsi calculée qu'une fois.
.
.