ON ERROR GOTO [adresse]
Active une procédure de gestion d’erreur.
| Paramètre | Description |
|---|---|
| adresse | Numéro de ligne ou étiquette |
Exemple
10 INPUT "TAPEZ LE NOM DU FICHIER AVEC EXTENSION"; F$
20 ON ERROR GOTO 100
30 OPEN OLD F$ AS 1
40 INPUT LINE#1, L$
50 PRINT L$
60 GOTO 40
70 PRINT "FIN DE FICHIER"
80 CLOSE 1
90 END
99 REM *** gestion des erreurs ***
100 IF ERR = 8 THEN RESUME 70
110 IF ERR = 4 THEN PRINT "FICHIER ABSENT": END
120 PRINT "ERREUR: "; ERR, "LIGNE: ";ERL: RESUME 10
Si une erreur survient lors de l’exécution de ce programme, un branchement est effectué à la ligne 100. Les lignes 100 à 120 constituent une procédure de gestion d’erreurs permettant, en fonction du type de l’erreur rencontrée (fichier absent, fin de fichier, …), d’effectuer le traitement approprié.
Action
L’instruction ON ERROR permet d’activer une procédure de gestion d’erreurs : si une erreur survient lors de l’exécution du programme, un branchement est immédiatement effectué à la ligne adresse identifiée par son numéro ou son étiquette.
Si adresse est omis ou nul, le programme s’arrête lorsqu’une erreur survient et affiche le numéro de l’erreur, le numéro de la ligne et le message correspondant.