|
En este apartado iré subiendo los diferentes
códigos de algunos proyectos de la Web.
Aquí os dejo el código de la pinza robot:
'
{$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
|
