Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Código Fuente » Delphi » Código de Delphi - Arduino Delphi 10.2 y puerto serie

Código de Delphi - Arduino Delphi 10.2 y puerto serie

Volver
Agregar Código Fuente
<<>>
sin imagen de perfil
Val: 54
Oro
Ha mantenido su posición en Delphi (en relación al último mes)
Gráfica de Delphi

Arduino Delphi 10.2 y puerto seriegráfica de visualizaciones


Delphi

Publicado el 25 de Enero del 2019 por Meta
2.789 visualizaciones desde el 25 de Enero del 2019
95

Tutorial Arduino Delphi 10.2 y Puerto serie. Interfaz creado con Delphi que puedes controlar el puerto serie a Arduino encendiendo y apagando un Led, manejar el LCD y recibes mensajes hacia el PC.

El entorno Delphi con el lenguaje pascal sigue vigente en la actualidad y su uso en Arduino está creciendo cada vez más.

83

1

Publicado el 25 de Enero del 2019gráfica de visualizaciones de la versión: 1
2.790 visualizaciones desde el 25 de Enero del 2019
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

Código fuente de Delphi:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
unit Principal;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, CPort;
 
type
  TForm1 = class(TForm)
    Label_Titulo: TLabel;
    Label_Mensajes: TLabel;
    Button_ON: TButton;
    Button_OFF: TButton;
    Button_COM: TButton;
    Button_Abrir: TButton;
    Memo_Mensajes: TMemo;
    Button_Limpiar: TButton;
    ComPort1: TComPort;
    procedure Button_ONClick(Sender: TObject);
    procedure Button_OFFClick(Sender: TObject);
    procedure Button_COMClick(Sender: TObject);
    procedure Button_AbrirClick(Sender: TObject);
    procedure Button_LimpiarClick(Sender: TObject);
    procedure ComPort1AfterClose(Sender: TObject);
    procedure ComPort1AfterOpen(Sender: TObject);
    procedure ComPort1RxChar(Sender: TObject; Count: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button_AbrirClick(Sender: TObject);
begin
  // Si el puerto está conectado.

  if ComPort1.Connected then
  begin
    ComPort1.Close; // Cierra el puerto.

 
    Button_COM.Enabled := True;
    Button_ON.Enabled := False;
    Button_OFF.Enabled := False;
  end
 
  else  // En caso contrario.

 
  begin
    ComPort1.Open;  // Abre el puerto.

 
    Button_COM.Enabled := False;
    Button_ON.Enabled := True;
    Button_OFF.Enabled := True;
  end;
end;
 
procedure TForm1.Button_COMClick(Sender: TObject);
begin
ComPort1.ShowSetupDialog; // Abre la configuración del puerto.

end;
 
procedure TForm1.Button_LimpiarClick(Sender: TObject);
begin
Memo_Mensajes.Clear();  // Limpia los mensajes del Memo.

end;
 
procedure TForm1.Button_OFFClick(Sender: TObject);
begin
ComPort1.WriteStr('Luz_OFF'); // Envía el comando "Luz_OFF" al puerto.

end;
 
procedure TForm1.Button_ONClick(Sender: TObject);
begin
ComPort1.WriteStr('Luz_ON');  // Envía el comando "Luz_ON" al puerto.

end;
 
procedure TForm1.ComPort1AfterClose(Sender: TObject);
begin
    if Button_Abrir <> nil then
    Button_Abrir.Caption := 'Abrir';
end;
 
procedure TForm1.ComPort1AfterOpen(Sender: TObject);
begin
   Button_Abrir.Caption := 'Cerrar';
end;
 
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
  // Recibe mensajes desde Arduino.

  ComPort1.ReadStr(Str, Count);
 
  // Muestra los mensajes en pantalla.

  Memo_Mensajes.Lines.Add( Str );
 
  // Guarda los mensjes de Arduino en un archivo txt.

  Memo_Mensajes.Lines.SaveToFile('archivo.txt');
end;
 
end.

96

Código de Arduino:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
// ----- Electrónica PIC -----

//

// Ejercicio 2.

//

// Encendido y apagado del Led 13 mediante puerto serie con pantalla.

// Es lo mismo que el Ejercicoi 1, pero usando el LCD Keypad Shield.

 
#include

 
// Inicializa la librería con sus pines indicados.

// RS, RW, Enable, D4, D5, D6, D7.

LiquidCrystal lcd(8, NULL, 9, 4, 5, 6, 7);
// LiquidCrystal lcd(8, 9, 4, 5, 6, 7);

 
// Pin 10 para saber que es luz de fondo.

const byte LuzFondo = 10;
 
const byte Led = 13;   // Declaramos la variable pin del Led.

char caracter;
String comando;
 
void setup()
{
  pinMode(Led, OUTPUT);  // Inicializa el pin del LED como salida:

  Serial.begin(115200);     // Puerto serie 115200 baudios.

  lcd.begin(16, 2);         // Formato de pantalla.

  lcd.clear();      // Borra la pantalla y su posición superior izquierda.

  lcd.print("    Arduino     ");
  delay(1000);
}
 
void loop()
{
  /*

    Voy leyendo carácter a carácter lo que se recibe por el canal serie

    (mientras llegue algún dato allí), y los voy concatenando uno tras otro

    en una cadena. En la práctica, si usamos el "Serial monitor" el bucle while

    acabará cuando pulsamos Enter. El delay es conveniente para no saturar el

    canal serie y que la concatenación se haga de forma ordenada.

  */
  while (Serial.available() > 0)
  {
    caracter = Serial.read();
    comando.concat(caracter);
    delay(10);
  }
 
  /*

    Una vez ya tengo la cadena "acabada", compruebo su valor y hago que

    la placa Arduino reacciones según sea este. Aquí podríamos hacer lo

    que quisiéramos: si el comando es "tal", enciende un Led, si es cual,

    mueve un motor... y así.

  */
 
  // Si los carácteres es recibido y verdadero.

  if (comando.equals("Luz_ON") == true)
  {
    digitalWrite(Led, HIGH); // Enciende el Led 13.

    Serial.write("ON - Led encendido.");    // Envía este mensaje al PC.

    lcd.setCursor(0, 1);
    lcd.print("Luz ON.         "); // Mostrar en el LCD.

  }
 
 
  if (comando.equals("Luz_OFF") == true)
  {
    digitalWrite(Led, LOW); // Apaga el Led 13.

    Serial.write("OFF - Led apagado. ");  // Envía este mensaje al PC.

    lcd.setCursor(0, 1);
    lcd.print("Luz OFF.        "); // Mostrar en el LCD.

  }
 
  // Limpiamos la cadena para volver a recibir el siguiente comando.

  comando = "";
}

82

Ver vídeo:

Ver visor:
https://www.slideshare.net/Metaconta2/arduino-delphi-tokio-102-y-puerto-serie-v100

;)

Si alguno de los archivos de descarga no funciona, comentanos aquí el error.




Comentarios sobre la versión: 1 (0)


No hay comentarios
 

Comentar la versión: 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad
Acepto las políticas de privacidad

http://lwp-l.com/s5035