Arduino es un plataforma de hardware libre, quizás la más conocida dentro del movimiento maker. En otras palabras es un pequeño microprocesador que registra entradas y salidas, entre otras funcionalidades.
Además permite comunicarse con un PC por medio de su puerto serie.
Lazarus dispone de la capacidad de gestionar puertos serie de una manera sencilla.
Preparando el entorno
Para hacer uso del puerto serie en Lazarus necesitamos añadir un librería, o componente. Para ello desde el menú Paquete seleccionamos Administrador de paquetes en línea.
Por supuesto tienes que tener conexión a internet. En la ventana que se abre, buscamos serial para que filtre todos los componentes que se llame así.
Pulsamos sobre instalar. Para que el componente esté disponible es necesario compilarlo e instalarlo. Para ello es necesario reconstruir Lazarus.
Si todo fue bien, Lazarus se cerrará y se volverá a abrir. Y ya tendremos nuestro componente listo para usar. En este caso se instaló en la paleta LazSerial.
Creando la aplicación
Para comunicar con nuestro Arduino, vamos a poner una serie de componentes. Creamos una aplicación nueva. Añade un componente TPanel, y alínealo a la parte de arriba y borra el texto de su propiedad Caption.
Añade dos botones sobre el componente TPanel. Uno será para conectar y otro para configurar el puerto serie.
Añade un componente TMemo, pon su propiedad ScrollBars con el valor ssAuthoBoth y alínealo al cliente.
Y no te olvides de añadir el componente LazSerial. La aplicación debería quedar algo así:
La comunicación serie, se realiza por medio un puerto, y a una velocidad determinada. Esta información debe coincidir con el el nombre el puerto serie al que está conectado nuestro Arduino y con la velocidad que hemos programado en nuestro Arduino.
Luis Llamas tiene en su Blog un excelente artículo sobre la comunicación serie en Arduino.
Para indicar a nuestro componente Lazserial como se debe comunicar, usaremos el evento Onclick del botón de configurar. Cuando se ejecute este evento, ejecutaremos el siguiente código:
|
1 2 3 4 5 6 7 8 9 10 11 |
procedure TLazSerialFrm.btConfigurarClick(Sender: TObject); begin LazSerial1.ShowSetupDialog; end; {% endcodeblock %} Ahora en el evento `OnClick` del botón conectar escribiremos la orden de activación. {% codeblock lang:pascal %} procedure TLazSerialFrm.btConectarClick(Sender: TObject); begin LazSerial1.Active := True; end; |
|
1 |
<pre class="wp-block-syntaxhighlighter-code"> |
|
1 |
Bien ahora solo queda que cuando se reciban datos, escribirlos en el componente TMemo. Para ello usaremos el evento RxData del componente LazSerial.
|
1 2 3 4 |
procedure TLazSerialFrm.LazSerial1RxData(Sender: TObject); begin Memo1.Lines.Add(LazSerial1.ReadData); end; |
Antes de probar la aplicación, vamos a escribir un simple programa en un Arduino.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
int led = 13; void setup() { Serial.begin(9600); pinMode (led,OUTPUT); } void loop() { digitalWrite (led,HIGH); Serial.println ("ON"); delay(1500); digitalWrite(led,LOW); Serial.println("OFF"); delay(1500); } |
Este simple programa enciende el LED del Pin 13, envía por el puerto serie la palabra ON, espera un segundo y medio, luego apaga el LED, envía por el puerto serie la palabra OFF, y espera un segundo y medio.
Probando la comunicación
Ejecuta la aplicación que has creado en Lazarus, y pulsa sobre el botón configurar. Y selecciona el puerto serie y la velocidad. El puerto dependerá de tu PC, y la velocidad es 9600 baudios, ya que es la hemos configurado en el programa del Arduino.
Ahora pulsa conectar y empezaras a recibirlos la información que envía Arduino.
Con esto ya podemos recibir la información que envía Arduino por el puerto serie.
En la próxima entrada veremos como enviar información a nuestra placa Arduino.
Saludos