MS-DOS y puerto serie

[Meta]

Hola:

Quiero enviar datos al puerto serie con el CMD de Windows, o el sustituto del cmd que es PowerShell, hacen lo mismo. Consiste en configurar dicho puerto que se hace así:

MODE COM1:9600,n,8,1

Y en la consola aparece esto:


Quiero crear un archivo .bat en el que solo tengo que pulsar la tecla 1 y envía esto: Luz_ON.

Si pulso la tecla 2, envía por el puerto serie Luz_OFF.

¿Existe la posibilidad de hacerlo?

Si es así. ¿Cómo se hace?

Saludos.

[Eleкtro]

Quiero enviar datos al puerto serie con el CMD de Windows

En teoría se supone que en Batch puedes usar los operadores de redirección para enviar datos a la entrada de un dispositivo en un puerto serie. Prueba así:

Script.cmd

Código (dos) [Seleccionar] Expandir

@Echo OFF & (CHCP 1252)1>Nul

MODE.com COM1 BAUD=9600 PARITY=n DATA=8 STOP=1

CHOICE.exe /C "12" /M "Choose an option..."
If %ErrorLevel% EQU 1 (
   Echo:Luz_ON>COM1
)
If %ErrorLevel% EQU 2 (
   Echo:Luz_OFF>COM1
)

Pause&Exit

...Y digo 'en teoría' por que nunca lo he necesitado probar ni tampoco puedo verificarlo ahora mismo.

Fuente:

• https://batchloaf.wordpress.com/2013/02/12/simple-trick-for-sending-characters-to-a-serial-port-in-windows/

o el sustituto del cmd que es PowerShell

@Meta, sabes manejarte con C#, y dado que estos temas los has tratado muchas veces en el subforo de programación .NET doy por hecho que sabes hacerlo en C#. Entonces, en mi opinión lo que más te convendría hacer sería desarrollar la lógica/tu clase en C# para tener una solución mucho más robusta, controlada y eficiente, y simplemente usar PowerShell para compilar el código escrito en C# y usarlo.

Aquí te dejo un ejemplo a seguir:

Script.ps1

Código (csharp) [Seleccionar] Expandir

# PowerShell template by Elektro

# # # # # # # # # # # # # # # # # # # #
# C# CodeDom Provider Compiler Sample #
# # # # # # # # # # # # # # # # # # # #
$csharpCode = @'
using Microsoft.VisualBasic;
using System;

namespace CSharpNamespace {

   public sealed class CSharpClass {

       public static bool CSharpFunction() {
           return true;
       }

   }

}
'@
$csType = Add-Type -TypeDefinition $csharpCode `
                  -CodeDomProvider (New-Object Microsoft.CSharp.CSharpCodeProvider) `
                  -PassThru `
                  -ReferencedAssemblies "Microsoft.VisualBasic.dll", `
                                        "System.dll" `
          | where { $_.IsPublic }

[bool]$result = [CSharpNamespace.CSharpClass]::CSharpFunction()

# # # # # # # # # # # # # #
# Application Termination #
# # # # # # # # # # # # # #
[System.Console]::WriteLine("Press any key to exit...")
[System.Console]::ReadKey($true)
Exit(0)

[Meta]

Hola:

Centrándome en el .cmd, o lo que es lo mismio, el .bat, no funciona el código:

Código (bash) [Seleccionar] Expandir

   @Echo OFF & (CHCP 1252)1>Nul
   
   MODE.com COM4 BAUD=115200 PARITY=n DATA=8 STOP=1
   
   CHOICE.exe /C "12" /M "Escoge una opción..."
   If %ErrorLevel% EQU 1 (
       Echo:Luz_ON>COM4
   )
   If %ErrorLevel% EQU 2 (
       Echo:Luz_OFF>COM4
   )
   
   Pause&Exit

Lo que he hecho es hacer guardar hacer dos archivos, uno llamado puerto_Luz_ON.txt y el otro llamado puerto_Luz_OFF.txt. En el puerto_Luz_ON.txt tiene solo el texto Luz_ON y el otro Luz_OFF de los txt.

Luego en el cmd puse:

Código (bash) [Seleccionar] Expandir

copy puerto_Luz_ON.txt COM4:

Ya me funciona, he enviado Luz_ON que está en el interior del archivo puerto_Luz_ON.txt.

Modificando el Scrip.cmd de arriba lo he hecho funcionar así:

Código (bash) [Seleccionar] Expandir

   @Echo OFF & (CHCP 1252)1>Nul
   
   MODE.com COM4 BAUD=115200 PARITY=n DATA=8 STOP=1
   
   CHOICE.exe /C "12" /M "Escoge una opción..."
   If %ErrorLevel% EQU 1 (
       copy puerto_Luz_ON.txt COM4:
   )
   If %ErrorLevel% EQU 2 (
       copy puerto_Luz_OFF.txt COM4:
   )
   
   Pause&Exit

Lo que no me hace gracia es que tengo que crear dos archivos .txt al lado del Script.cmd. La idea es tener todo en un solo archivo .cmd. Para eso se podría que no se si se puede, el Script.cmd crear los dos archivos .txt y su contenido Luz_ON y Luz_OFF. Poco a poco va tomando forma.

Datos de interés, el modo más rápido y abreviado frente a este:

Código (bash) [Seleccionar] Expandir

MODE.com COM4 BAUD=115200 PARITY=n DATA=8 STOP=1

Es este:

Código (bash) [Seleccionar] Expandir

MODE COM4:115200,n,8,1



En cuanto hacer el control del puerto serie con F#, no tiene que ver con C#, su codigo en C# si lo tengo hecho.

Código (csharp) [Seleccionar] Expandir

using System;
using System.IO.Ports;
using System.Text;

namespace Arduino_Consola_cs
{
   class Program
   {
       static void Main(string[] args)
       {
           // Título de la ventana.
           Console.Title = "Arduino Consola C#";

           // Tamaño ventana consola.
           Console.WindowWidth = 55; // X. Ancho.
           Console.WindowHeight = 18; // Y. Alto.

           // Cree un nuevo objeto SerialPort con la configuración predeterminada.
           SerialPort Puerto_serie = new SerialPort("COM4");

           Puerto_serie.BaudRate = 115200;
           Puerto_serie.Parity = Parity.None;
           Puerto_serie.StopBits = StopBits.One;
           Puerto_serie.DataBits = 8;
           Puerto_serie.Handshake = Handshake.None;
           Puerto_serie.RtsEnable = true;

           // Establecer los tiempos de espera de lectura / escritura.
           Puerto_serie.ReadTimeout = 500; // Milisegundos.
           Puerto_serie.WriteTimeout = 500;

           // Detecta cualquier dato recibido.
           Puerto_serie.DataReceived += new SerialDataReceivedEventHandler(DataReceivedHandler);

           Puerto_serie.Open(); // Abrir puerto.

           ConsoleKey tecla;
           Console.WriteLine("Pulse tecla 1 para encender y 2 para apagar:");

           do
           {
               tecla = Console.ReadKey(true).Key; // Espera pulsación de teclas.

               switch (tecla)
               {
                   case ConsoleKey.D1: // Tecla 1 del teclado estandar.
                   case ConsoleKey.NumPad1: // Tecla 1 del número del pad.
                       byte[] miBuffer1 = Encoding.ASCII.GetBytes("Luz_ON"); // Codificación ASCII y guarda en la variable array tipo byte.
                       Puerto_serie.Write(miBuffer1, 0, miBuffer1.Length); // Envía los datos del buffer todo su contenido.
                       Console.WriteLine("Comando \"Luz_ON\" enviado."); // Muestra en pantalla comandos enviado.
                       break;

                   case ConsoleKey.D2:
                   case ConsoleKey.NumPad2:
                       byte[] miBuffer2 = Encoding.ASCII.GetBytes("Luz_OFF");
                       Puerto_serie.Write(miBuffer2, 0, miBuffer2.Length);
                       Console.WriteLine("Comando \"Luz_OFF\" enviado.");
                       break;

                   default:
                       Console.WriteLine("Tecla el 1, el 2 y Escape para salir.");
                       break;
               }
           } while (tecla != ConsoleKey.Escape); // Pulsa Escape para salir del menú.

           Console.WriteLine("Presione cualquier tecla para terminar...");
           Console.WriteLine();
           Console.ReadKey(); // Espera pulsar una tecla cualquiera.
           Puerto_serie.Close(); // Cierra el puerto serie.
       }

       // Detecta cualquier dato entrante.
       private static void DataReceivedHandler(object sender, SerialDataReceivedEventArgs e)
       {
           SerialPort sp = (SerialPort)sender;
           string entradaDatos = sp.ReadExisting(); // Almacena los datos recibidos en la variable tipo string.
           Console.WriteLine("Dato recibido desde Arduino: " + entradaDatos); // Muestra en pantalla los datos recibidos.
       }
   }
}


Si C# ayuda hacer lo mismo en F#, lo tengo crudo porque apenas conozco sus cosas.

Como curiosidad de una noticia nueva del CMD de Windows.



www.muycomputer.com/2017/08/04/consola-de-windows-color/

Saludos.

[Meta]

Hola:

La mejor opción para enviar datos al puerto serie y funciona bien es este código:

Código (bash) [Seleccionar] Expandir

    @Echo OFF & (CHCP 1252)1>Nul
     
    MODE.com COM4 BAUD=115200 PARITY=n DATA=8 STOP=1
     
    CHOICE.exe /C "12" /M "Escoge una opción..."
    If %ErrorLevel% EQU 1 (
        copy puerto_Luz_ON.txt COM4:
    )
    If %ErrorLevel% EQU 2 (
        copy puerto_Luz_OFF.txt COM4:
    )
     
    Pause & Exit

Hay un problemilla. Si pulso la tecla 1 o la tecla 2 para enviar datos, se cierra el CMD. Debería dejarte pulsar las teclas 1 y 2 siempre, no que pulse una tecla y se cierra.

¿Se puede arreglar esto o es así?

Saludos.

[Eleкtro]

Hay un problemilla. Si pulso la tecla 1 o la tecla 2 para enviar datos, se cierra el CMD. Debería dejarte pulsar las teclas 1 y 2 siempre, no que pulse una tecla y se cierra.

¿Se puede arreglar esto o es así?

• FOR /L

( ...en un rango del 1 al "infinito". )

O también:

• GoTo

Saludos

[Meta]

Hola:

Hice esto, funciona pero no se si es el más adecuado hacerlo de esta manera, me siento que hice chapuza.

Código (bash) [Seleccionar] Expandir

@Echo OFF
title Arduino CMD y puerto serie

CHCP 1252 >Nul
MODE.com COM4 BAUD=115200 PARITY=n DATA=8 STOP=1
:Menu
    CLS
    echo.
    echo.
    echo.                   1.- Luz  ON
    echo.
    echo.                   2.- Luz  OFF
    echo.
    echo.                   3.- Salir
    echo.
    echo.
    echo.

    CHOICE.exe /C "123" /M "                   Escoge una opción "
    echo.
    echo.
    echo.

    If %ErrorLevel% EQU 1 (
        copy puerto_Luz_ON.txt  COM4:
        echo Puerto COM4: Luz ON
        timeout 1 >nul
        goto Menu
    )

    If %ErrorLevel% EQU 2 (
        copy puerto_Luz_OFF.txt COM4:
        echo Puerto COM4: Luz OFF
        timeout 1 >nul
        goto Menu
    )

    Pause

    Exit /B

Hay otra cosa que no se como se hace.

A la hora de recibir datos por el puerto serie. ¿Cómo se hace?

Lo comento porque cada vez que envío al puerto serie Luz_ON, desde el puerto serie me devuelve Luz encendido. Este mensaje tiene que mostrarse en pantalla.

Saludos.