Handbuch BasicMaker 2010 - SoftMaker

Sub Main
On Error Goto Fehler
Print 1/0 'Fehler (Division durch Null) auslösen
MsgBox "Ende"
Exit Sub
Fehler:
'Fehlerbehandlungsroutine
Dim DgDef, Msg, Response, Title
Title = "Fehler"
Msg = "Es ist ein Laufzeitfehler aufgetreten. Möchten Sie fortfahren?"
DgDef = MB_YESNO + MB_ICONEXCLAMATION
End Sub
Response = MsgBox(Msg, DgDef, Title)
If Response = IDYES Then
Resume Next
Else
Stop
End If
Zu Testzwecken können Laufzeitfehler mit dem Befehl Err.Raise künstlich ausgelöst werden.
Syntax: Err.Raise Nummer
Für Nummer ist die Fehlernummer anzugeben:
3: "RETURN ohne GOSUB"
5: "Ungültiger Funktionsaufruf"
6: "Überlauf"
7: "Speicher voll"
9: "Subskript außerhalb des gültigen Bereichs"
10: "Array hat feste Größe oder ist vorübergehend verriegelt"
11: "Division durch Null"
13: "Typen passen nicht zueinander"
14: "Stringspeicher voll"
16: "Ausdruck zu komplex"
17: "Operation kann nicht ausgeführt werden"
18: "Durch Benutzer abgebrochen"
20: "RESUME ohne Fehler"
28: "Stapelspeicher voll"
35: "SUB, FUNCTION oder PROPERTY nicht definiert"
47: "Zu viele DLL-Klienten"
48: "Fehler beim Laden der DLL"
49: "Fehlerhafter DLL-Aufruf"
51: "Interner Fehler"
52: "Ungültiger Dateiname oder ungültige Dateinummer"
53: "Datei nicht gefunden"
54: "Ungültiger Dateimodus"
55: "Diese Datei ist bereits geöffnet"
57: "Fehler bei Ein-/Ausgabe auf Gerät"
58: "Datei existiert bereits"
59: "Fehlerhafte Datensatzlänge"
60: "Datenträger voll"
62: "Versuch, hinter dem Dateiende zu lesen"
63: "Ungültige Satznummer"
67: "Zu viele Dateien geöffnet"
68: "Gerät nicht verfügbar"
70: "Zugriff verweigert"
71: "Datenträger nicht bereit"
74: "Umbenennen über Laufwerke hinweg nicht möglich"
75: "Fehler beim Zugriff auf Pfad oder Datei"
76: "Pfad nicht gefunden"
91: "Objektvariable oder WITH-Block-Variable nicht gesetzt"
92: "FOR-Schleife nicht initialisiert"
93: "Fehlerhafter Musterstring"
94: "Fehlerhafte Benutzung von NULL"
Handbuch BasicMaker 2010 Anweisungen und Funktionen von A-Z 315