14.07.2014 Aufrufe

Handbuch BasicMaker 2010 - SoftMaker

Handbuch BasicMaker 2010 - SoftMaker

Handbuch BasicMaker 2010 - SoftMaker

MEHR ANZEIGEN
WENIGER ANZEIGEN

Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.

YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.

Liefert eine Zeichenkette, die aus den ersten n Zeichen der übergebenen Zeichenkette besteht.<br />

Siehe auch: Len, Mid, Right<br />

Beispiel:<br />

Sub Main<br />

Dim LWord, Msg, RWord, SpcPos, UsrInp<br />

Msg = "Geben Sie zwei durch ein Leerzeichen "<br />

Msg = Msg & "getrennte Wörter ein."<br />

UsrInp = InputBox(Msg)<br />

SpcPos = InStr(1, UsrInp, " ") ' Leerzeichen finden<br />

If SpcPos Then<br />

LWord = Left(UsrInp, SpcPos - 1) ' Linkes Wort<br />

RWord = Right(UsrInp, Len(UsrInp) - SpcPos) ' Rechtes Wort<br />

Msg = "Das erste Wort ist " & LWord & ","<br />

Msg = Msg & " das zweite ist " & RWord & "."<br />

Else<br />

Msg = "Das waren nicht 2 Wörter."<br />

End If<br />

MsgBox Msg<br />

End Sub<br />

Len (Funktion)<br />

Len(String)<br />

Ermittelt die Länge einer Zeichenkette.<br />

Siehe auch: InStr<br />

Beispiel:<br />

Sub Main<br />

A$ = "<strong>BasicMaker</strong>"<br />

StrLen = Len(A$) 'Ergebnis: 10<br />

MsgBox StrLen<br />

End Sub<br />

Let (Anweisung)<br />

[Let] Variable = Ausdruck<br />

Weist einer Variablen einen Wert zu.<br />

Das Schlüsselwort Let war nur in älteren Versionen von Basic nötig. Es wird heutzutage normalerweise weggelassen.<br />

Beispiel:<br />

Sub Main<br />

Dim Msg, Pi<br />

Let Pi = 4 * Atn(1)<br />

Msg = "Pi = " & Str(Pi)<br />

MsgBox Msg<br />

End Sub<br />

Line Input # (Anweisung)<br />

Line Input [#]Dateinummer, Name<br />

Liest eine Zeile von einer Datei in die String- oder Variant-Variable Name.<br />

<strong>Handbuch</strong> <strong>BasicMaker</strong> <strong>2010</strong> Anweisungen und Funktionen von A-Z 309

Hurra! Ihre Datei wurde hochgeladen und ist bereit für die Veröffentlichung.

Erfolgreich gespeichert!

Leider ist etwas schief gelaufen!