Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   .NET (https://www.clubdelphi.com/foros/forumdisplay.php?f=17)
-   -   Enviar y recibir datos por el puerto serie (https://www.clubdelphi.com/foros/showthread.php?t=96071)

REHome 23-01-2023 07:13:07

Enviar y recibir datos por el puerto serie
 
Buenas:

Quiero hacer un programa, que lee entradas de datos por el puerto serie y depende que comandos reconozca, automáticamente lo devuelve.

Es decir:

Recibe el comando por el puerto serie llamado: Luz_ON

Como lo reconoce, devuelve al puerto: ON - Led encendido.

También aparece en pantalla dicho dato del propio programa que lo envía.

Me imagino que estará leyendo todo el rato los if que contenga los comandos. Solo hay dos. Luz_ON y Luz_OFF, si le entra otro dato que no reconozca, lo ignorará.

Aquí hay un código hecho en Arduino que si hace tal cosa, exactamente tiene que funcionar como este, pero en C#.

Código Arduino:
Código:

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.
}

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 le llega el mensaje Luz_ON.
  if (comando.equals("Luz_ON") == true)
  {
    digitalWrite(Led, HIGH); // Enciende el Led 13.
    Serial.write("ON - Led encendido.");    // Envía este mensaje a C++.
  }

  // Si le llega el mensaje Luz_ON.
  if (comando.equals("Luz_OFF") == true)
  {
    digitalWrite(Led, LOW); // Apaga el Led 13.
    Serial.write("OFF - Led apagado. ");  // Envía este mensaje a C++.
  }

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

Saludos.

REHome 26-01-2023 22:09:25

Lo he intentado hacer así, pero que va.

Código:

using System;
using System.IO.Ports;

namespace Emulador_Puerto_Serie_Arduino_03
{
    internal class Program
    {
        static void Main(string[] args)
        {

            // alguna inicialización
            SerialPort sp = new SerialPort();
            sp.PortName = "COM4";
            sp.BaudRate = 115200;
            sp.Open();

            // esperamos
            while (true)
            {
                string comando = sp.ReadLine();

                if (comando == "Luz_ON")
                {
                    // Enciende el Led.
                    Console.ForegroundColor = ConsoleColor.Green;

                    Console.SetCursorPosition(0, 0);
                    Console.WriteLine("\u2588\u2588\u2588\u2588");
                    Console.WriteLine("\u2588\u2588\u2588\u2588");
                    Console.WriteLine("\u2588\u2588\u2588\u2588");

                    // devuelve el resultado
                    sp.WriteLine("ON - Led encendido.");
                }

                // Si le llega el mensaje Luz_OFF.
                if (comando == "Luz_OFF")
                {
                    // Apaga el Led.
                    Console.ForegroundColor = ConsoleColor.DarkGreen;

                    Console.SetCursorPosition(0, 0);
                    Console.WriteLine("\u2588\u2588\u2588\u2588");
                    Console.WriteLine("\u2588\u2588\u2588\u2588");
                    Console.WriteLine("\u2588\u2588\u2588\u2588");

                    // devuelve el resultado
                    sp.WriteLine("OFF - Led apagado. ");
                }
            }

            // cerramos
            sp.Close();
            Console.ReadKey(true);
        }
    }
}



La franja horaria es GMT +2. Ahora son las 12:35:33.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi