ENDPROC
PROC StartVaccum(num ZoneNo1, \num ZoneNo2, \num ZoneNo3, \num ZoneNo4, \num
ZoneNo5, \num ZoneNo6, \num ZoneNo7, \num ZoneNo8, \num ZoneNo9, \num
ZoneNo10)
ENDPROC
PROC StopVaccum(num ZoneNo1, \num ZoneNo2, \num ZoneNo3, \num ZoneNo4, \num
ZoneNo5, \num ZoneNo6, \num ZoneNo7, \num ZoneNo8, \num ZoneNo9, \num
ZoneNo10)
3HAC040633-002 Revision: -
cycletime:=clkRead(MyClock)/5;
pace:=3600/cycletime;
SetZone(ZoneNo1);
if Present(ZoneNo2) then
SetZone(ZoneNo2);
endif
if Present(ZoneNo3) then
SetZone(ZoneNo3);
endif
if Present(ZoneNo4) then
SetZone(ZoneNo4);
endif
if Present(ZoneNo5) then
SetZone(ZoneNo5);
endif
if Present(ZoneNo6) then
SetZone(ZoneNo6);
endif
if Present(ZoneNo7) then
SetZone(ZoneNo7);
endif
if Present(ZoneNo8) then
SetZone(ZoneNo8);
endif
if Present(ZoneNo9) then
SetZone(ZoneNo9);
endif
if Present(ZoneNo10) then
SetZone(ZoneNo10);
endif
ResetZone(ZoneNo1);
2 FlexGripper-Vacuum
2.3.5. Commissioning
Continued
Continues on next page
43