Visualización de mensajes inalámbricos de uLisp con un Pi Pico W

Esta es una pantalla de mensajes inalámbrica basada en una Raspberry Pi Pico W y escrita en Lisp. Puede enviar un mensaje a través de Wi-Fi desde un navegador web en un teléfono móvil o computadora, y se muestra en una pantalla alfanumérica de 8 caracteres:

Puede usarlo para recordatorios o mensajes cortos a otra persona en su hogar.

Introducción

Utiliza dos módulos alfanuméricos I2C de cuatro caracteres de Adafruit; también puedes usar mi pantalla alfanumérica de ocho caracteres; consulte Pantalla alfanumérica de ocho caracteres.

Aquí hay un circuito que muestra cómo están conectados:

Los dos módulos de visualización alfanuméricos deben configurarse en diferentes direcciones I2C utilizando los enlaces de soldadura en la parte posterior de cada módulo. Deje el módulo izquierdo en su configuración predeterminada, para que tenga la dirección I2C #x70, y conecte el enlace A0 del módulo derecho con una gota de soldadura para darle la dirección #x71.

Construí esto en una placa de prueba de tamaño completo sin los rieles de alimentación para hacerlo más compacto.

Una vez que haya configurado el programa para que se cargue y ejecute automáticamente, como se describe a continuación, la pantalla de mensajes se puede alimentar a través del puerto USB o de una batería Lipo de 3,7 V conectada a los pines VSYS y GND de la placa. Configuración de la visualización de mensajes inalámbricos Instalar uLisp

Instale la última versión de ARM uLisp, versión 4.2, que contiene las extensiones inalámbricas para Raspberry Pi Pico W, siguiendo las instrucciones en la página de placas RP2040, pero primero elimine el comentario de la directiva en la parte superior de la fuente del archivo:< / p> #define resetautorun

Esto le permite hacer que el programa se cargue y se ejecute automáticamente cuando se enciende.

Instalación del programa de visualización de mensajes

La forma más fácil de instalar el programa de visualización de mensajes inalámbricos es abrir el monitor serial Arduino IDE, copiar el texto completo del programa desde el enlace al final de este artículo, pegarlo en el cuadro de entrada del monitor serial y presionar regresar.

Editar declaraciones:

(defvar *ssid* "MiRed") (defvar *contraseña* "MiContraseña")

el nombre de red y la contraseña correctos para conectarse a su red Wi-Fi.

prueba el programa

Luego pruebe el programa evaluando:

(pantalla de mensaje)

Después de unos segundos, Raspberry Pi Pico W se conectará a la red Wi-Fi y las pantallas alfanuméricas deberían mostrar la dirección IP asignada a la pantalla de mensajes:

Ahora intente enviar un mensaje a la pantalla de mensajes desde una computadora o teléfono abriendo un navegador web y escribiendo algo como:

http://10.0.1.33/?Hola_David

Reemplace la dirección IP 10.0.1.33 con lo que se mostró cuando comenzó la visualización del mensaje.

El mensaje debe tener hasta ocho caracteres y contener solo caracteres válidos en las URL. Si desea incluir un espacio, introdúzcalo como un guión bajo.

El mensaje aparecerá en la pantalla y el navegador web responderá con:

Bien recibido

Salga del programa de visualización de mensajes escribiendo un carácter ~ y presionando Intro.

Ejecución automática de programas

Ahora guarde la imagen Lisp con el comando:

(guardar-imagen 'mostrar-mensaje)

Ahora, cuando enciende la Raspberry Pi Pico W, uLisp carga la imagen guardada y luego ejecuta automáticamente la función de visualización de mensajes (siempre que recuerde descargar uLisp con la directiva #define resetautorun sin comentarios, como se explicó anteriormente).

El programa

Aquí está el programa uLisp para mostrar mensajes inalámbricos.

La función de encendido inicializa los dos controladores de pantalla HT16K33 utilizados en los módulos de pantalla alfanuméricos:

(alto en (bri) (hacer veces (un 2) (con-i2c(str(+a#x70)) (byte de escritura #x21 str) (reiniciar-i2c str) (byte de escritura (+ bri #xe0) str) (reiniciar-i2c str) (byte de escritura #x81 str))))

Necesitas un parámetro bri para ajustar el brillo de las pantallas de 0 (apagado) a 15 (máximo).

La lista de *códigos* define códigos de segmento para cada uno de los caracteres desde ASCII 32, espacio, hasta ASCII 95, guión bajo:

(defvar *códigos* '(#x0 #x6 #x220 #x12CE #x12ED #xC24 #x235D #x400 #x2400 #x900 #x3FC0 #x12C0 #x800 #xC0 #x4000 #xC00 #xC3F #x6 #xDB #x8F #xE6 #x2069 #xFD #x7 #xFF #xEF #x1200 #xA00 #x2400 #xC8 #x900 #x1083 #x2BB #xF7 #x128F #x39 #x120F #xF9 #x71 #xBD #xF6 #x1200 #x1E #x2470 #x38 #x536 #x2136 #x3F #xF3 #x203F #x20F3 #xED #x1201 #x3E #xC30 #x2836 #x2D00 #x1500 #xC09 #x39 #x2100 #xF #xC03 #x0))

La pantalla de funciones