home *** CD-ROM | disk | FTP | other *** search
/ Online Praxis 1998 March / Image.iso / CD-ROM / ZUGANG / TONLINE / V20 / T-ONLINE.Z / ONERROR.MKR < prev    next >
Encoding:
Text File  |  1997-06-05  |  1.5 KB  |  48 lines
  1. #   -----------------------------------------
  2. #   - Beispielmakro fuer den Befehl onerror -
  3. #   -----------------------------------------
  4.  
  5. #   Protokollfensterausgaben ermoeglichen
  6. set PROTWIN = "on"
  7. debug "Makroname: ", argv_0, "\n"
  8.  
  9. #   Fehlerbehandlung aktivieren
  10. #   ACHTUNG!!! Nach Ausfuerung dieses Befehls wird
  11. #   bei *ALLEN* Fehlern zum Label Fehler verzweigt !!! 
  12. #   z.B. bei Verwendung einer nichtinitialisierten Variable
  13. onerror Fehler
  14.  
  15. goto Loop
  16.  
  17. #   ========================
  18. #   Fehlerbehandlungsroutine
  19. Fehler:
  20. ifnot ERRNO == "8" goto Alle
  21.  
  22. #   Fehler mit ERRNO = 8 behandeln (nicht numerisches Argument)
  23. messagebox Antwort : "Fehler in der Eingabe", "Der eingegebene Wert ist nicht numerisch", "OK"
  24. #   Eingabe wiederholen
  25. resumeat Loop
  26.  
  27.  
  28. #   Alle anderen Fehler behandeln, so ein Teil sollte immer vorhanden sein
  29. #   fuer unvorhergesehene Faelle
  30. Alle:
  31. set Text = "Das Makro wird wegen eines Fehlers abgebrochen.\n Fehlercode = ", ERRNO
  32. messagebox Antwort: "Fehler im Makro", Text, "OK"
  33. # Fehlerbehandlungsroutine muss mit end, resume oder resumeat
  34. # abgeschlossen werden, sonst knallt es beim naechsten Fehler
  35. end
  36. #   ========================
  37.  
  38.  
  39.  
  40. #  Eingabe einer Zahl zwischen 1 und 16
  41. Loop:
  42. input Zahl : "Bitte geben Sie eine Zahl zwischen 1 und 16 ein\n(Versuchen Sie mal die Eingabe eines nichtnumerischen Wertes)", "16"
  43. ifless Zahl than "1" goto Loop
  44. ifgreater Zahl than "16" goto Loop
  45.  
  46. debug "Eingabe: ", Zahl, "\n"
  47. end
  48.