Handbuch BasicMaker 2010 - SoftMaker

Sub Main
Dim LWord, Msg, RWord, SpcPos, UsrInp
Msg = "Geben Sie zwei durch ein Leerzeichen "
Msg = Msg & "getrennte Wörter ein."
UsrInp = InputBox(Msg)
SpcPos = InStr(1, UsrInp, " ") ' Leerzeichen finden
If SpcPos Then
LWord = Left(UsrInp, SpcPos - 1) ' Linkes Wort
RWord = Right(UsrInp, Len(UsrInp) - SpcPos) ' Rechtes Wort
Msg = "Das erste Wort ist " & LWord & ","
Msg = Msg & " das zweite ist " & RWord & "."
Else
Msg = "Das waren nicht 2 Wörter."
End If
MsgBox Msg
End Sub
RmDir (Anweisung)
RmDir Pfad
Entfernt das angegebene Verzeichnis.
Als Parameter wird der Pfad in der Notation Laufwerksbuchstabe:Verzeichnis erwartet.
Siehe auch: ChDir, ChDrive, CurDir, Kill
Beispiel:
Sub Main
Dim dirName As String
dirName = "t1"
MkDir dirName
MkDir "t2"
MsgBox "Verzeichnisse t1 und t2 erzeugt. Klicken Sie auf OK, um sie wieder zu
entfernen."
RmDir "t1"
RmDir "t2"
End Sub
Rnd (Funktion)
Rnd [()]
Erzeugt eine Zufallszahl zwischen 0 und 1.
Second (Funktion)
Second(Ausdruck)
Liefert die Sekunde der angegebenen Uhrzeit als ganze Zahl.
Ausdruck ist ein numerischer oder Zeichenkettenausdruck, der eine Zeit repräsentiert.
Siehe auch: Date, Day, Hour, Minute, Month, Now, Time, Weekday, Year
Beispiel:
Sub Main
T1 = Now
' Now = aktuelles Datum + Uhrzeit
Handbuch BasicMaker 2010 Anweisungen und Funktionen von A-Z 321