|
Description:
Codes of all bots of
this site, can be ordered by sending an e-mail to the private email
address of this page.
Here I leave with you unlock the robot gripper:.
'
{$STAMP BS2}
'
{$PBASIC 2.5}
'Autor: Jaume Quintana
'Fecha: 27 Octubre 2007
'Descripcion:
'Prueba de pinza robot que coge y deja objeto
x
VAR Word
OUTPUT
1
inicio:
FOR
x = 1 TO 100
PULSOUT
15,400 'servo pinza coge objeto
TOGGLE
3 'Enciende led 1
PAUSE
10
NEXT
PAUSE
1000
'pinza coge objeto
FOR x = 1 TO 100
PULSOUT 14,1200 'servo muñeca posicion derecha recta
TOGGLE
2 'Enciende led 2
PAUSE
10
NEXT
PAUSE
1500
FOR
x = 1 TO 100
PULSOUT
14,750 'servo muñeca posicion recta
TOGGLE
2 'Enciende led 2
PAUSE
10
NEXT
PAUSE 1500
FOR x = 1 TO 100
PULSOUT 14,300 'servo muñeca posicion derecha recta
TOGGLE
2 'Enciende led 2
PAUSE
10
NEXT
PAUSE
1500
'pinza deja objeto
FOR x = 1 TO 100
PULSOUT 15,1000 'servo abre pinza y deja objeto
TOGGLE
3 'Enciende led 1
PAUSE
10
NEXT
PAUSE
1500
GOTO inicio 'Vuelve a empezar
|
