Difference between revisions of "Arduino/es"
Line 80: | Line 80: | ||
Yes, your Arduino 8-bit AVR board [[AVR Programming|can be programmed with FPC]] too. TBD. | Yes, your Arduino 8-bit AVR board [[AVR Programming|can be programmed with FPC]] too. TBD. | ||
− | == Ethernet | + | == Comunicación Ethernet == |
− | + | ||
+ | Aquí mostramos como comunicar con la placa a través del canal de comunicación Ethernet. | ||
+ | |||
=== Lazarus side ethernet application === | === Lazarus side ethernet application === | ||
+ | |||
TBD | TBD | ||
=== Arduino side ethernet application === | === Arduino side ethernet application === | ||
+ | |||
TBD | TBD | ||
Revision as of 18:24, 27 June 2017
Este artículo describe la manera de comunicar tu aplicación Lazarus/FPC con Placas Arduino. Esto abre un mundo completamente nuevo de sensores y actuadores físicos inteligentes para monitorización, control y adquisición de datos.
Comunicación serie
Aquí se muestra como comunicar con tu placa a través del canal de comunicación serie.
Lazarus side serial application
Existen varias posibilidades para comunicaciones serie en Lazarus/FPC.
Minimal Lazarus Synaser serial example
We will use Synaser from Synapse library in this example. Create Lazarus application with one form and two buttons. Include Synaser unit and add Synapse package as a new requirement to your project. In OnClick event of both buttons put something like this:
procedure TForm1.Button1Click(Sender: TObject);
var
ser: TBlockSerial;
begin
ser := TBlockSerial.Create;
try
ser.Connect('COM1'); // Escribe aquí el puerto COM asociado a la comunicación con Arduino(en linux es algo así como
'/dev/ttyUSB0')
Sleep(250);
ser.config(9600, 8, 'N', SB1, False, False); // Establecemos los parámetros para la conexión Serie.
ser.SendString('on'); // Enviamos la cadena 'on', El pulsador 2 debería tener aquí 'off'
finally
ser.free; // Liberamos los recursos tomados para TBlockSerial.
end;
end;
Arduino side serial application
You can program your Arduino in several languages.
Minimal Arduino C sketch serial example
You can follow this nice step by step tutorial. In short, you need to add a led with proper resistor to your input pin 13, compile this sketch in your Arduino IDE, and download it to your board:
int led = 13; // Pin 13
void setup()
{
pinMode(led, OUTPUT); // Set pin 13 as digital out
// Start up serial connection
Serial.begin(9600); // baud rate
Serial.flush();
}
void loop()
{
String input = "";
// Read any serial input
while (Serial.available() > 0)
{
input += (char) Serial.read(); // Read in one char at a time
delay(5); // Delay for 5 ms so the next char has time to be received
}
if (input == "on")
{
digitalWrite(led, HIGH); // on
}
else if (input == "off")
{
digitalWrite(led, LOW); // off
}
}
Minimal Arduino mikroPascal serial example
mikroPascal for AVR can be used to develop Arduino programs. TBD.
Minimal Arduino E-Lab AvrCo serial example
E-Lab AvrCo Multitasking Pascal can be used to develop Arduino programs. TBD.
Minimal Arduino FPC serial example
Yes, your Arduino 8-bit AVR board can be programmed with FPC too. TBD.
Comunicación Ethernet
Aquí mostramos como comunicar con la placa a través del canal de comunicación Ethernet.
Lazarus side ethernet application
TBD
Arduino side ethernet application
TBD
Resources
Forum topic that started this article
Raspberry Pi Lazarus application talking to Arduino over serial