' Pick and Place

Sub PRO1
   Set Ctrl = cao.AddController("", "CaoProv.DENSO.NetwoRC", "", "Conn=eth:192.168.0.1")

   Set arm = Ctrl.AddRobot("VM")
   arm.SPEED -1, 100	 '-1：手先速度
   FOR I=1 TO 10
      arm.MOVE 1, "P(608.26,322.53,312.91,177.17,-2.11,160.29,5)" '"P11"
      arm.MOVE 2, "P(608.26,322.53,14.43,177.17,-2.11,160.29,5)" '"P12"
      EXT.Delay 10
      arm.MOVE 2, "P(608.26,322.53,312.91,177.17,-2.11,160.29,5)" '"P11"
      arm.MOVE 1, "P(608.26,-287.86,312.91,177.17,-2.11,160.29,5)" '"P13"
      arm.MOVE 2, "P(608.26,-287.86,24.51,177.17,-2.11,160.29,5)" '"P14"
      arm.MOVE 1, "P(608.26,-287.86,312.91,177.17,-2.11,160.29,5)" '"P13"
   NEXT
End Sub