Manuel Amos Professional  Sommaire  Index

Gestion des Erreurs


RESUME LABEL
structure : sauter a une etiquette apres qu une erreur ait ete isolee via une procedure
Resume Label etiquette

Cela definit l etiquette a laquelle revenir apres une erreur. Elle doit etre appelee en dehors de votre gestionnaire d erreur, juste apres la commande ON ERROR PROC ou ON ERROR GOTO initiale. Pour un exemple de RESUME LABEL, veuillez consulter la derniere routine de ce chapitre.

ERRN
fonction : retourner le numero de code de la derniere erreur
nombre=Errn
Print Errn

Lorsque vous utilisez ON ERROR pour creer des routines de gestion d erreur, vous voudrez savoir quel type d erreur s est produit dans le programme principal. Les erreurs detectees pendant l execution du programme possedent chacune un numero de code specifique, et ce numero peut etre retourne en utilisant la fonction ERRN.

ERROR
instruction : generer volontairement une erreur et retourner a l editeur
Error numero

Supposons que vous ayez mis en place une routine de gestion d erreur et que vous vouliez tester vos competences. La commande ERROR offre une methode simple pour simuler diverses erreurs sans attendre qu elles se produisent reellement. Pour tester ce systeme, selectionnez le code d erreur de votre choix a l aide des numeros listes dans le chapitre suivant. Par exemple :

X> Error 88

Cela quittera votre programme et affichera un message d erreur "Disque plein", simulant ce qui se produirait si votre disque actuel etait rempli de donnees. Vous pouvez egalement combiner ERROR avec la fonction ERRN pour afficher l erreur actuelle de votre programme :

X> Error Errn

Enfin, ERROR peut etre utilise avec RESUME LABEL a l interieur d une routine de gestion d erreur, pour revenir directement a une etiquette definie precedemment. Par exemple :

E> On Error Proc AIDE
   Resume Label ACCUEIL
   Error 88
   Print "Cette ligne n est jamais affichee"
   ACCUEIL : Print "Bonjour ! Bonjour ! Je suis de retour !"
   End
   Procedure AIDE
    Print "Il semble y avoir une erreur !"
    Resume Label
   Endproc
Retour    Suivant
12.02.03