Manuel de référence PICBASIC
IF...THEN
expression THEN...ELSE...
IF
Action conditionnée
EXPLICATION
Cette instruction permet de réaliser des "actions" en fonction de tests et de conditions définies par vos soins.
EXEMPLE 1:
10
DIM I AS BYTE
20
IF
I > 5
THEN
EXEMPLE 2:
10
DIM I AS BYTE
20
DIM J AS BYTE
30
IF I > 5 THEN J = 0 ELSE J = 1
EXEMPLE 3:
10
DIM I AS BYTE
20
DIM J AS BYTE
30
IF I>5 THEN
40
J=ADIN(0)
50
ELSE
60
J=ADIN(1)
70
ENDIF
EXEMPLE 4:
10
IF I < 10 THEN
20
PRINT "I < 10"
30
ELSE IF I < 80 THEN
40
PRINT "10 < I <80"
50
ELSE
60
PRINT "I > 80"
70
END IF
On notera que les décalages vers la droite des instructions internes à la boucle IF ... THEN / ENDIF ne sont pas absolument
nécessaires, mais conseillés du fait qu'ils participent à une plus grande clarté et lisibilité du programme.
EXPRESSIONS CONDITIONNELLES
De même il est important de signaler que les tests peuvent également faire l'objet de conditions plus étendues:
EXEMPLES 5:
IF I<>5 THEN
'Si "I" différent de 5 alors...
IF I>=5 THEN
'Si "I" supérieur ou égal à 5 alors...
IF I>5 THEN
'SI "I" supérieur à 5 alors...
Il est également d'utiliser des conditions additionnelles du type "AND" / "OR" ("ET" / "OU")
IF I<5 AND I>10 THEN
'Si "I" inférieur à 5 et "I" supérieur à 10 alors...
IF I=5 OR I=10 THEN
'Si "I" égal à 5 ou "I" égal à 10 alors...
COMFILE Technology (traduction Française Lextronic)
GOTO 50
' Continu l'exécution du programme si I > 5
' J = 0 si I > 5, sinon J = 1
IF I<=5 THEN
'Si "I" inférieur ou égal à 5 alors...
IF I<5 THEN
'SI "I" inférieur à 5 alors...
IF I=5 THEN
'SI "I" égal à 5 alors...
78