Comandos en BASICIDE455

Comandos en BASICIDE455

En VT100

i: modo ingreso

.: salir de modo ingreso

r: modo ejecución

l: lista programa

c: clear memoria

>PRINT "HOLA MUNDO"

En editor

Para asignar el valor a una variable LET

Ej: LET i=0

LET i=0

Inicio:

     LET i=i+1

     Print "HOLA MUNDO"

     IF i=10 THEN fin ELSE Inicio

Fin:

Luego se compila, después download finalmente se ejecuta con el botón rojo del control.

$KBD captura lo que se escribe en el teclado

foro: http://robosavvy.com/forum/viewtopic.php?p=32739

inicio:

let a=$kbd

print a

goto inicio

$ir lectura de control remoto

7 rojo

6 izquierda

4 arriba

8 derecha

10 abajo

5 rotación der

3 rotaciió izq

11 mano derecha

9 mano izquierda

12 num 1

13 num 2

14 num 3

15 num 4

16 num 5

17 num 6

18 num 7

19 num 8

20 num 9

21 num 0

1 tecla A

2 tecla B

$kir lectura control y teclado

servo controla los aparatos

INICIO:
SERVO 0=@
LET A = $SERVO(0)
PRINT A
IF $KIR < 0 THEN
     GOTO INICIO
ELSE
     END
ENDIF

$PSD es un sensor del robot

INICIO:
   PRINT $PSD
   GOTO INICIO

Manejo de lista:



PRINT "PRUEBA DE LISTA"
LIST A=5,4,3,2,1,5
PRINT @A[1]
PRINT @A
LET A = @A
PRINT "LARGO = ",A
PRINT @A

LIST A=5,65,66,67,68,69
FOR I = 0 TO 4
OUT @A[I]
NEXT I
PRINT


FOR I=0 TO 10
PRINT $RND MOD 6
NEXT I


MOVE @{2,50,50},10,1000




INICIO:
IF $PSD < 20 THEN 
     MOVE @{2,80,125},10,1000
     END
ELSE
     GOTO INICIO


LEE POSICION DE SERVO 0 Y 1


INICIO:
SERVO 0=@
SERVO 1=@
LET A = $SERVO(0)
LET B = $SERVO(1)
PRINT "SERVO 0 = ",A
PRINT "SERVO 1 = ",B
WAIT 2000

IF $KIR < 0 THEN
     GOTO INICIO
ELSE
     END

linea recta


INICIO:
IF $PSD < 20 THEN 
     MOVE @{2,0,179},10,1000
     MOVE @{2,22,197},10,1000
     MOVE @{2,42,206},10,1000
     MOVE @{2,62,203},10,1000
     MOVE @{2,70,182},10,1000

     GOTO INICIO
ELSE
     IF $KIR < 0 THEN
         GOTO INICIO
     ELSE
         END
ENDIF



CIRCUNFERENCIA


INICIO:
IF $PSD < 20 THEN 
     MOVE @{2,88,206},10,1000
     MOVE @{2,64,161},10,1000
     MOVE @{2,61,138},10,1000
     MOVE @{2,98,181},10,1000
     MOVE @{2,114,211},10,1000

     GOTO INICIO
ELSE
     IF $KIR < 0 THEN
         GOTO INICIO
     ELSE
         END
ENDIF