22 lines
682 B
XML
22 lines
682 B
XML
<?xml version="1.0" encoding="utf-8"?>
|
|
<Programs xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://www.staubli.com/robotics/VAL3/Program/2">
|
|
<Program name="simulateEvents">
|
|
<Parameters xmlns="http://www.staubli.com/robotics/VAL3/Param/1">
|
|
<Parameter name="interval" type="num" xsi:type="element" />
|
|
</Parameters>
|
|
<Locals>
|
|
<Local name="str" type="string" xsi:type="array" size="1" />
|
|
</Locals>
|
|
<Code><![CDATA[begin
|
|
while true
|
|
delay(interval)
|
|
if isPowered()
|
|
str = "ON"
|
|
else
|
|
str = "OFF"
|
|
endIf
|
|
call sendEventTcp(str)
|
|
endWhile
|
|
end]]></Code>
|
|
</Program>
|
|
</Programs> |