Handbuch BasicMaker 2010 - SoftMaker

Siehe auch: Exit, Function, If ... Then ... Else, Select Case, Stop, Sub
Beispiel:
In diesem Beispiel beendet die End-Anweisung in der Routine "Test" die Programmausführung.
Sub Main
Dim Var1 as String
Var1 = "Hallo"
MsgBox "Test"
Test Var1
MsgBox Var1
End Sub
Sub Test(wvar1 as String)
wvar1 = "Ende"
MsgBox "Programmende wegen End-Anweisung"
End
End Sub
EOF (Funktion)
EOF(Dateinummer)
Liefert True, wenn das Dateiende ("End Of File") erreicht wurde.
Dateinummer ist die in der Open-Anweisung vergebene Nummer der betreffenden Datei.
Siehe auch: Open
Beispiel:
' Jeweils 10 Zeichen aus einer Datei lesen und anzeigen.
' "Testfile" muss bereits existieren.
Sub Main
Open "TESTFILE" For Input As #1
Do While Not EOF(1)
MyStr = Input(10, #1)
MsgBox MyStr
Loop
Close #1
End Sub
' Datei öffnen
' Wiederhole bis Dateiende
' 10 Zeichen lesen
' Datei schließen
Erase (Anweisung)
Erase Arrayname [, ...]
Initialisiert die Elemente eines Arrays neu.
Siehe auch: Dim
Beispiel:
Option Base 1
Sub Main
Dim a(10) As Double
Dim i As Integer
For i = 1 to 3
a(i) = 2 + i
Next i
Erase a
Print a(1), a(2), a(3) ' Ergebnis: 0 0 0
End Sub
294 Anweisungen und Funktionen von A-Z Handbuch BasicMaker 2010