F - Epson

SPEL+ Sprachreferenz
Beispiel einer OPort Funktion
Das Beispiel unten schaltet Ausgang 5 ein und stellt dann sicher, dass dieser eingeschaltet ist, bevor
es fortfährt.
Function main
TMOut 10
OnErr errchk
Integer errnum
On 5 'Schaltet Ausgang 5 ein
Wait Oport(5)
Call mkpart1
Exit Function
errchk:
errnum = Err(0); EClr
If errnum = 94 Then
Print "TIME Out Error Occurred during period"
Print "waiting for Oport to come on. Check"
Print "Output #5 for proper operation. Then"
Print "restart this program."
Else
Print "ERROR number ", errnum, "Occurred"
Print "Program stopped due to errors!"
EndIf
Exit Function
Fend
Andere einfache Beispiele vom Online-Fenster sehen aus wie folgt:
> On 1
> Print Oport(1)
1
> Off 1
> Print Oport(1)
0
>
306 SPEL+ Language Reference Rev 3.5