Trio Motion Coordinator MC216 - Page 382

9-10 Programming Examples
Example Programs
Trio Motion Technology
constants:
nozzle=8 ‘ output - nozzle raise/lower
vacuum=9 ‘ output - vacuum on / off
xdiv=6
ydiv=6
start:
xscale=1200/xdiv
xmid=xscale/2
yscale=1200/ydiv
ymid=yscale/2
FOR y=0 TO xdiv-1
FOR y=0 TO ydiv-1
GOSUB pick
MOVEABS((x*xscale)+xmid,(y*yscale)+ymid)
WAIT IDLE
GOSUB place
NEXT x
NEXT y
GOTO start
pick:
MOVEABS(pick_x, pick_y)
WAIT IDLE
OP(nozzle,ON)
OP(vacuum,ON)
wa(500)
OP(nozzle,OFF)
wa(500)
RETURN
place:
OP(nozzle,ON)
OP(vacuum,OFF)
wa(250)
OP(nozzle,OFF)
wa(500)
RETURN