Domótica: Cómo activar un relé por USB en Windows para control de aparatos (persianas, luces, etc)

Aunque lo más económico y versátil actualmente es utilizar Arduino como placa programable, con lo que nos evitamos la conocida falta de fiabilidad de Windows, cuando queremos activar aparatos de forma programada en ocasiones es más sencillo utilizar un relé por USB, bien porque ya tenemos un equipo que ha de estar siempre encendido, o por otros motivos, lo que nos permite en teoría controlar hasta 8 interruptores por cada conector USB en un mismo equipo.

Tenía que sustituir un viejo sistema que utilizaba el puerto LPT1 para el control de una alarma horaria, así que tras investigar adquirí 2 ud. de este Relé controlado por USB en Aliexpress.

Y si queremos controlar varios dispositivos, los hay de hasta 8 canales (relés) en una misma unidad, con 10A de capacidad cada relé, por lo que las posibilidades se amplían bastante.

Lo complicado fue ponerlo en marcha; mi equipo a veces no lo detectaba (mala calidad del cable que elegí  Hay que proteger la placa de interferencias o bien con una caja metálica o bien cubriéndolo con cinta de aluminio adhesiva), y el vendedor no terminaba de conseguir mandarme las librerías para su programación.
Por suerte Google me las encontró por "USBRelayExtLib", pero mi gozo en un pozo; el programa de comandos "CommandApp_USBRelay" no funcionaba ni como administrador ni en XP ni posteriores, así que tuve que recurrir a la librería incluída y al Autoit, gracias a que unos amigos habían dejado todos los detalles para su automatización en los foros del programa, ¡Así da gusto!

No entregan cable con el mismo, pero os servirá uno de esos que entregan con Arduino Uno (USB macho a hembra), que son de calidad con malla anti-interferencias:

El programa que utilizo yo es el siguiente; simplemente activo la alarma 4 segundos con este script, que gracias a Autoit incluso lo podemos convertir a .exe en un abrir y cerrar de ojos:

Este sería el script (pega en el Scite de Autoit):

#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=relay.ico #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <Array.au3> #cs 1. call usb_relay_init() to init the lib. 2. call usb_relay_device_enumerate() to get all the device pluged into pc 3. call usb_relay_device_open() open the device you need 4. other operation funcation: call usb_relay_device_open_one_relay_channel() to open one way relay call usb_relay_device_open_all_relay_channel() to open all relays call usb_relay_device_close_one_relay_channel()to close one way relay call usb_relay_device_close_all_relay_channel()to close all relays #ce $Serial = "abcde" Global $hDllRelay = DllOpen("usb_relay_device.dll") $aRet = DllCall( $hDllRelay, "ptr:cdecl", "usb_relay_device_enumerate" ) If @error Then   MsgBox(16, "error", "usb_relay_device_enumerate", 3)   Exit EndIf ;_ArrayDisplay($aRet, "$aRet") $ptr = $aRet[0] $tag_usb_relay_device_info = "ptr serial_number;ptr device_path;uint relay_type;int relay_next" ;$tag_usb_relay_device_info = "ptr serial_number;ptr device_path;uint relay_type;ptr relay_next" $t_usb_relay_device_info = DllStructCreate( $tag_usb_relay_device_info, $ptr ) If @error Then     MsgBox(0, "", "Error in DllStructCreate " & @error);     Exit EndIf $ptr_serial_number = DllStructGetData( $t_usb_relay_device_info, "serial_number" ) ConsoleWrite( "$ptr_serial_number = " & $ptr_serial_number & @CRLF ) $ptr_device_path = DllStructGetData( $t_usb_relay_device_info, "device_path" ) ConsoleWrite( "$ptr_device_path = " & $ptr_device_path & @CRLF ) $relay_type = DllStructGetData( $t_usb_relay_device_info, "relay_type" ) ConsoleWrite( "$relay_type = " & $relay_type & @CRLF ) $relay_next = DllStructGetData( $t_usb_relay_device_info, "relay_next" ) ConsoleWrite( "$relay_next = " & $relay_next & @CRLF ) ; Buffer for serial number for max. 32 characters $tag_serial_number = "char[32]" ; Fill buffer with data from the memory location given by the pointer $t_serial_number = DllStructCreate( $tag_serial_number, $ptr_serial_number ) ; Get serial number as a string $s_serial_number = DllStructGetData( $t_serial_number, 1 ) ; Print serial number ConsoleWrite( "$s_serial_number = " & $s_serial_number & @CRLF ) $aRet1 = DllCall( $hdllrelay, "int", "usb_relay_init" ) ConsoleWrite($aRet1[0] & @LF) ;Hemos cogido en $s_serial_number el número de serie del primero que tenemos conectado $aRet = DllCall( $hdllrelay, "int:cdecl", "usb_relay_device_open_with_serial_number", "str", $s_serial_number, "uint", 5 ) If @error Then   ConsoleWrite( "Errorcode: " & @error & @CRLF ) Else   ConsoleWrite( "Handle: " & $aRet[0] & @CRLF ) EndIf $para1 = "int" $para2 = $aRet[0] $para3 = "int" $para4 = 1 $aRet2 = DllCall($hdllrelay, "int:cdecl", "usb_relay_device_open_one_relay_channel", $para1, $para2, $para3, $para4) ConsoleWrite($aRet2[0] & @LF) Sleep(4000) ;Paramos 4 segundos antes de cerrar de nuevo el relé $aRet2 = DllCall($hdllrelay, "int:cdecl", "usb_relay_device_close_one_relay_channel", $para1, $para2, $para3, $para4) ConsoleWrite($aRet2[0] & @LF) DllClose($hdllrelay)

Si examináis el programa, y tenéis algo de experiencia programando, veréis que es bastante sencillo de interpretar; acabo de descubrir Autoit y creo que lo usaré para más cosas en el futuro.

Si queremos controlar más relés, deberemos tener en cuenta que este programa simplemente coge el primer relé conectado y lo activa, así que tendremos que identificarlos, bien con el "GuiApp_English.exe" incluído con la librería, o bien con el propio script.

Parte trasera:

 Y así quedó el relé para activar la alarma, conectado al equipo, protegido con cinta transparente para evitar cortos:

No os olvidéis de protegerlo contra interferencias; yo le puse cinta adhesiva de aluminio por encima

¡Disfrutad creando y experimentando!

Fuentes:
Librerías control USBRelay (Windows)
Librerías control USBRelay (Linux)
Código para control con Pithon
Foro Autoit sobre el uso de su librería con Autoit
Descarga de Autoit3 en Autoit.com