F - Epson

SPEL+ Sprachreferenz
Beispiel einer Sense Anweisung
Dies ist ein einfaches Beispiel für die Verwendung der Sense-Anweisung.
Function test
.
.
TrySense:
Sense Sw(1) = 0 'Bestimmt, dass der Arm über
'dem Ziel hält, wenn
'der Eingang 1 ausgeschaltet ist.
Jump P1 C2 Sense
'Wenn der Arm am durch Js(0)=1 definierten Punkt stehen bleibt,
'wird ERRPRC ausgeführt und das Programm springt zu TrySense.
If Js(0) = 1 Then
GoSub ERRPRC
GoTo TrySense
EndIf
On 1; Wait 0.2; Off 1
.
.
Fend
> Sense Sw(1)=1 And Sw($1)=1
> Sense Sw(0) Or Sw(1) And Sw($1)
384 SPEL+ Language Reference Rev 3.5