Eremote Thymio 2000 (3 / 4 paso)

Paso 3: Programar el Robot

Ahora conectar el Thymio al ordenador e introducir este código: (puede utilizar las instrucciones en la página de antes o la película)

<! Aesl-fuente de DOCTYPE >
red de < >

<!--lista de eventos-->

<!--lista de constantes-->

<!--Mostrar palabras clave estado-->
< bandera palabras clave = "true" / >

<!--nodo thymio-II-->
< nombre de nodo = "thymio-II" > var temp
var rc5_speed_l
var rc5_speed_t
var vmin =-600
var vmax = 600

var led_pulse

Timer.period[0]=20

Sub setmotor
Llame a math.min (rc5_speed_t, rc5_speed_t, vmax)
Llame a math.max (rc5_speed_t, rc5_speed_t, vmin)
Llame a math.min (rc5_speed_l, rc5_speed_l, vmax)
Llame a math.max (rc5_speed_l, rc5_speed_l, vmin)
motor.Left.Target = rc5_speed_l + rc5_speed_t
motor.Right.Target = rc5_speed_l - rc5_speed_t

button.left de onEvent
Si button.left==1 entonces
rc5_speed_t = -200
final
callsub setmotor

button.right de onEvent
Si button.right==1 entonces
rc5_speed_t = 200
final
callsub setmotor

button.center de onEvent
Si button.center==1 entonces
rc5_speed_t = 0
rc5_speed_l = 0
final
callsub setmotor

button.backward de onEvent
Si button.backward==1 entonces
Si rc5_speed_t! = 0 entonces
rc5_speed_t = 0
otra cosa
rc5_speed_l = rc5_speed_l-200
final
final
callsub setmotor

button.forward de onEvent
Si button.forward==1 entonces
Si rc5_speed_t! = 0 entonces
rc5_speed_t = 0
otra cosa
rc5_speed_l = rc5_speed_l + 200
final
final
callsub setmotor

botones de onEvent
Cuando button.backward==1 y button.forward==1 do
rc5_speed_l = 0
final
Cuando button.right==1 y button.left==1 do
rc5_speed_t = 0
final
callsub setmotor

timer0 onEvent
Pulso de color #Body
led_pulse = led_pulse + 1
Si led_pulse > 0 entonces
llamar a leds.top (led_pulse, 0, led_pulse)
Si led_pulse > 40 entonces
led_pulse = -64
final
otra cosa
Temp de =-led_pulse/2
llamar al leds.top (temp, 0, temp)
final

rc5 onEvent
Si rc5.command! = 0 entonces
Si rc5.command == 2 entonces
Si rc5_speed_t! = 0 entonces
rc5_speed_t = 0
otra cosa
rc5_speed_l = rc5_speed_l + 200
final
elseif rc5.command == 4 entonces
rc5_speed_t = -200
elseif rc5.command == 8 entonces
Si rc5_speed_t! = 0 entonces
rc5_speed_t = 0
otra cosa
rc5_speed_l = rc5_speed_l-200
final
elseif rc5.command == 6 entonces
rc5_speed_t = 200
elseif rc5.command == 5 entonces
rc5_speed_t = 0
rc5_speed_l = 0
final
RC5.Command = 0
final
prox onEvent
llamar al sound.system(-1)
llamar al leds.temperature(0,0)
llamar al leds.top(0,0,0)
llamar al leds.circle(0,0,0,0,0,0,0,0)

Si prox.horizontal[2] > 3000 y rc5_speed_l > 0 entonces
rc5_speed_l = 0
final
Si prox.horizontal[0] > 1500 y prox.horizontal[6] & lt; 1000 y rc5_speed_l > 0 then rc5_speed_t = 300
final
Si prox.horizontal[6] > 1500 y prox.horizontal[0] & lt; 1000 y rc5_speed_l > 0 then rc5_speed_t = -300
final < / nodo >

< / red >

Artículos Relacionados

LC-2000 (PA)-P2P 2.4GHz RF remoto Arduino Sketch cargar Demo

LC-2000 (PA)-P2P 2.4GHz RF remoto Arduino Sketch cargar Demo

Este documento da un ejemplo de cómo utilizar LC-2000 (PA)-P2P para terminar de cargar Wireless. El módulo serie LC-2000-P2P está trabajando en por a por el modo, una pares de LC-2000-P2P ha contenido dos unis, uno es maestro y otro esclavo, puede up
Actualización de las mangueras de vacío para el Hyundai Trajet año 2000.

Actualización de las mangueras de vacío para el Hyundai Trajet año 2000.

Aquí es cómo actualicé las mangueras de vacío de goma en este año 2000 Hyundai trajet.Paso 1: La línea de freno. Se trata de una nueva válvula que he instalado. Elegí el tamaño correcto de tubo de silicona y se deslizó en ambos lados de la conexión.P
LC-2000 (PA)-P2P remoto Control

LC-2000 (PA)-P2P remoto Control

Este documento da un ejemplo de cómo controlar el LED por PC y solucionar algunas de las dudas planteadas, también haré un vídeo subido a Internet, recepción haga clic en ver.Paso 1: Estructura del sistema En esta cúpula, no cambiar la conexión del h
Limpieza y mantenimiento a Webasto Air Top 2000 D

Limpieza y mantenimiento a Webasto Air Top 2000 D

compré un usado Webasto Air Top 2000 D en ebay para el uso en mi proyecto de RV "Van el Hal". Poco después de instalar el calentador comenzó a fumar mal. Decidí llevarlo aparte y limpiarlo para ver si arreglaría el problema. Lo ha hecho. Documen
Cómo hacer una Nimbus 2000

Cómo hacer una Nimbus 2000

En el universo de Harry Potter, Harry recibe un 2000 de Nimbus racing broom de la profesora McGonagall cuando él une al equipo de Quidditch de Gryffindor. Se trata de cómo hice el mío para una fiesta de Halloween de Harry Potter.Ha entrado en el conc
Cambiar luces de tablero de instrumentos en 2000-2007 Subaru Impreza

Cambiar luces de tablero de instrumentos en 2000-2007 Subaru Impreza

es realmente frustrante cuando se queman las luces detrás de sus medidores, porque usted no puede saber qué tan rápido te vas o cuánto gas le queda! Afortunadamente son fáciles de reemplazar.Mi coche es un sedán de Impreza 2004. Este procedimiento de
Cuatro grados de libertad Lego Robot brazo hecho de dos Robots Thymio

Cuatro grados de libertad Lego Robot brazo hecho de dos Robots Thymio

este grado 4 del brazo de robot de libertad está hecho de dos Thymio Robots y un montón de lego.  Las ruedas pequeñas lego rota delante de los sensores de proximidad para medir la distancia real recorrida.Este brazo robot fue creado por: Dr. Stéphane
¿Decisión Maker 2000

¿Decisión Maker 2000

tienen dificultad para tomar decisiones? ¿Cambia decisiones mejor dejadas al azar la vida? Ahora con la decisión Maker 2000, ¡ es fácil! Tú y tus amigos pueden tomar decisiones importantes sin esfuerzo. Que la decisión Maker 2000 preguntas importante
Hacer que Windows 7 se vea como Vista o 2000

Hacer que Windows 7 se vea como Vista o 2000

Windows 7 es un gran sistema operativo, pero algunas personas no sean cómodos con la nueva interfaz o la barra de tareas. Te mostrará cómo configurar su ordenador para parecerse a Windows Vista o Windows 2000 de forma rápida y sencilla.Paso 1: Libera
Vuelva a conectar altavoces en 2000 Ford Windstar

Vuelva a conectar altavoces en 2000 Ford Windstar

debido a las dobles puertas correderas para asientos traseros, no existe ninguna manera fácil de sustituir los altavoces en el 2000 Ford Windstar conduzco. Shimmy hasta una caja de altavoces pequeños para el tronco y había cableado a través de todo e
¿Carbage colector 2000

¿Carbage colector 2000

usted nunca golpeado en tu papelera de reciclaje? ¿Que siempre quisiste usar una única herramienta de la limpieza en vez de dos? Las soluciones es hacer y usar el Carbage colector 200. Es un simple recolector de basura que recoge la basura con solo u
Sustitución de una válvula PCV para el Hyundai Trajet año 2000!

Sustitución de una válvula PCV para el Hyundai Trajet año 2000!

Aquí es cómo sustituí el oem PCV válvula y ojal en un Hyundai trajet 2000.Paso 1: Quitar la válvula oem y el ojal. quité la primavera abrazaderas en el otro extremo de la línea de vacío a la válvula. Luego tiró de él hacia fuera con un pedazo de su o
Cambio de juntas de tubo de enchufe de chispa para Hyundai Trajet 2000.

Cambio de juntas de tubo de enchufe de chispa para Hyundai Trajet 2000.

Aquí es cómo yo reemplazar los sellos de tubo de enchufe de chispa de este Hyundai trajet 2000.Paso 1: Quitar la tapa de la válvula. La tapa de la válvula tiene que salir. Esto implica que todos los paquetes de bobinas y material eléctrico para desco
2000 de grúa electromagnética

2000 de grúa electromagnética

Has oído hablar de las grúas.Has oído hablar de electroimanes.Has oído hablar de los sensores!Ahora te presentamos a usted, por primera vez (posiblemente no la primera vez), una grúa electromagnética que percibe las cosas, el 2000 de grúa electromagn