PureBasic

Code : Tout sélectionner

Declare ErrorHandler()

OnErrorCall(@ErrorHandler())

PokeS(10, "Hello World") ;Ca va planter

Procedure ErrorHandler()
  MessageRequester("Ooops", "The following error happened: " + ErrorMessage(ErrorCode()) + #CRLF$ +"line : " +  Str(ErrorLine()))
EndProcedure

Code : Tout sélectionner

Declare ErrorHandler()
OnErrorCall(@ErrorHandler())

Code : Tout sélectionner

OnErrorGoto(?Erreur) ; A placer au tous début du code

; A placer complètement à la fin du code

End

Erreur:

Select ErrorCode()
    
  Case #PB_OnError_InvalidMemory ; Lecture ou écriture dans une zone protégée.
    MessageErreur$ = "Lecture ou écriture dans une zone mémoire protégée."
    
  Case #PB_OnError_Floatingpoint ; Erreur de calcul flottant.
    MessageErreur$ = "Erreur de calcul flottant."
    
  Case #PB_OnError_Breakpoint ; Point d'arrêt débogueur atteint (autres que ceux du PureBasic.
    MessageErreur$ = "Point d'arrêt du débogueur atteint."
    
  Case #PB_OnError_IllegalInstruction ; Exécution d'une instruction invalide.
    MessageErreur$ = "Instruction rencontrer invalide."
    
  Case #PB_OnError_PriviledgedInstruction ; Exécution d'une instruction privilégiée (system-) non autorisée.
    MessageErreur$ = "Instruction rencontrer privilégiée system non autorisée."

  Case #PB_OnError_DivideByZero ; Division par zéro (Windows seulement).
    MessageErreur$ = "Division par zéro."
    
EndSelect

MessageRequester("Erreur critique", "      Le programme a rencontrer un problème et dois fermer !" + Chr(13) + "      Imformation sur l'erreur: " + Chr(13) + Chr(13) + "      " + MessageErreur$, 16)