23 lines
778 B
XML
23 lines
778 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="sendEventTcp" access="private" >
|
|
<Parameters xmlns="http://www.staubli.com/robotics/VAL3/Param/1" >
|
|
<Parameter name="ev" type="string" use="value" xsi:type="element" dimensions="1" />
|
|
</Parameters>
|
|
<Locals>
|
|
<Local name="index" type="num" xsi:type="array" size="1" />
|
|
<Local name="msg" type="string" xsi:type="array" size="1" />
|
|
</Locals>
|
|
<Code><![CDATA[begin
|
|
//How to break a for?
|
|
for index=0 to 9
|
|
if ev!=""
|
|
if tcp_events[index]==""
|
|
tcp_events[index]=ev
|
|
ev=""
|
|
endIf
|
|
endIf
|
|
endFor
|
|
end]]></Code>
|
|
</Program>
|
|
</Programs> |