14.07.2014 Aufrufe

Handbuch BasicMaker 2010 - SoftMaker

Handbuch BasicMaker 2010 - SoftMaker

Handbuch BasicMaker 2010 - SoftMaker

MEHR ANZEIGEN
WENIGER ANZEIGEN

Erfolgreiche ePaper selbst erstellen

Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.

Sub Main<br />

X = Shell("Calc.exe", 1) ' Rechner aufrufen<br />

If X < 32 Then<br />

MsgBox "Rechner konnte nicht gestartet werden"<br />

Stop<br />

End If<br />

For I = 1 To 5<br />

SendKeys I & "{+}", True<br />

Next I<br />

' Tastendrücke senden<br />

Msg = "Der Rechner wird jetzt wieder beendet."<br />

MsgBox Msg<br />

AppActivate "Rechner"<br />

' Fokus auf Rechner setzen<br />

SendKeys "%{F4}", True<br />

' Alt+F4 zum Beenden senden<br />

End Sub<br />

Sin (Funktion)<br />

Sin(Num)<br />

Ermittelt den Sinus eines Winkels.<br />

Der Winkel muss im Bogenmaß (Radiant) angegeben werden.<br />

Siehe auch: Atn, Cos, Tan<br />

Beispiel:<br />

Sub Main<br />

pi = 4 * Atn(1)<br />

rad = 90 * (pi/180)<br />

x = Sin(rad)<br />

Print x<br />

End Sub<br />

Space (Funktion)<br />

Space(n)<br />

Erzeugt eine Zeichenkette, die aus n Leerzeichen besteht.<br />

Für n sind Werte zwischen 0 und 32767 zulässig.<br />

Siehe auch: String<br />

Beispiel:<br />

Sub Main<br />

MsgBox "Ab..." & Space(20) & "...stand"<br />

End Sub<br />

Sqr (Funktion)<br />

Sqr(Num)<br />

Berechnet die Quadratwurzel einer Zahl.<br />

Num darf nicht kleiner als 0 sein.<br />

Sub Wurzel<br />

Dim Titel, Msg, Zahl<br />

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

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

Erfolgreich gespeichert!

Leider ist etwas schief gelaufen!