LET I=0
DELETE *
Inicio:
SERVO 0=@ 'soltando los servos
SERVO 1=@
PRINT " Captura posición de los Servos "
PRINT "================================="
PRINT " --> MUEVA LOS SERVOS Y DESPUÉS DIGITE LA OPCIÓN DESEADA"
PRINT "1. MOSTRAR LA POSICION DE LOS SERVOS"
PRINT "2. PARA CAPTURAR LA POSICION DE LOS SERVOS "
PRINT "0. PARA FINALIZAR LA CAPTURA"
LET C=$IR
IF C=12 THEN Mostrar
IF C=13 THEN Capturar
IF C=21 THEN Teclado
PRINT "Error opcion no valida"
GOTO Inicio
Mostrar:
LET A=$SERVO(0) 'asigna valor a la variable
LET B=$SERVO(1)
PRINT "servo 0 = [",A,"]" 'Muestra valor del servo
PRINT "servo 1 = [",B,"]"
GOTO Inicio
Capturar:
INSERT I,A
LET I=I+1
INSERT I,B
LET I=I+1
PRINT @!:2
GOTO Inicio
Teclado:
PRINT "==> DIGITE EL TECLADO PARA DEFINIR SU OPCION"
PRINT "SI DIGITA S O s DEBE EJECUTAR LOS MOVIMIENTOS CAPTURADOS"
PRINT "SI DIGITA N O n DEBE CONTINUAR CON EL PASO SIGUIENTE"
LET T=$KBD
IF T = 83 or T = 115 THEN Ejecutar
IF T =110 or T=78 THEN Opcion
PRINT "error de tecla"
GOTO Teclado
Ejecutar:
PRINT "El arreglo es", @!:2
FOR X = 0 TO I [BY 2]
MOVE @{2,@![X],@![X+1]},10,1000
NEXT X
Opcion:
LET K=$KBD
PRINT "INDIQUE SU OPCION EN EL TECLADO"
PRINT "1.Ingresar nuevas posiciones"
PRINT "2.Terminar programa"
IF K = 49 THEN Inicio
IF K = 50 THEN Salir
PRINT "ERROR TECLA"
GOTO Opcion
Salir:
END
INTEGRANTES : Stefany Hurtado y Gisselle Encalada
