Journal défilant avec ESP8266

Ce projet est réalisé avec l'environnement de développement Annex WIFI RDS.
Pour flasher l'interpréteur Basic dans la mémoire de l'ESP8266, toute la procédure est décrite sur le site. De nombreux exemples sont disponibles, ainsi que les fichiers d'aide.
Pour un projet relativement complexe comme celui-ci, quelques lignes de commande suffisent pour la prgrammation.
Le basic d'Annex Wifi permet aussi la création de pages HTML dynamiques.
L'ESP8266 étant accessible en Wifi sur le réseau local, il suffit de taper l'adresse IP dans un navigateur pour accéder au programme, à la page HTML et celle de configuration.

Le projet

J'utilise un ESP8266 et 4 afficheurs à matrice à LED de 8 x 8. L' ESP8266 est connecté en wifi au réseau local, une page HTML permet les réglages du journal défilant.

Les composants

• une carte ESP8266MOD12 de chez AZ-Delivery ( ou autre carte ESP8266 )
• 4 matrices à LED compatible avec le MAX7219 montées sur un circuit imprimé
• un capteur de température et d'humidité DHT11
• un bloc d'alimentation 5V
• une résistance de 4,7 Kohms

Les étapes de fonctionnement

Dans un navigateur, taper l'adresse IP de L'ESP8266

1. Copier le programme ci-dessus et le placer le directement dans l'éditeur et enregistrer le dans l'ESP8266.	2. Cliquer sur Run Vérifier le fonctionnement avec Output
3. Régler le TimeZone et mettre le programme en autorun

 

 

Le montage

Le montage peut être testé sur une plaque d'expérimentation et être intégré à un support. J'ai fabriqué un support en bois dans lequel j'ai fait des découpes pour placer les 4 afficheurs et la carte ESP8266. La matrice à LED se commande en SPI, on doit respecter le schéma suivant :

 

 

 

 

On place les composants sur la plaque de connexions en respectant le dessin de câblage.

Le programme

Le programme créé une page HTML pour obtenir ce que l'on veut afficher : Le message, la température, l'humidité, la date et l'heure.
Les instructions MaxSroll. permettent le défilement du texte.
Pour afficher tous les caractères accentués, je les ai remplacés par leur code ASCII.

 

DHT.SETUP 2, 11 TEMP$="" HUMD$="" JOUR$="" HEURE$="" L=0 V=50 'default message msg$ = "Mon message" 'when the textbox is updated, the program will jump to update_message gosub update_message onHtmlChange update_message onHtmlReload update_message 'Set 12 8x8 displays with GPIO15 as CS pin MaxScroll.Setup 4, 15 'Set the first message as the current time MaxScroll.print aff$ 'Set the refresh rate of the display (50 msec) - lower values -> scroll faster timer0 V, scrollme wait Scrollme: 'Scroll the display with an intensity of 15 MaxScroll.scroll L if led1 = 1 then TEMP$=" TEMP " + STR$(DHT.TEMP)+ "oC " else TEMP$="" end if if led2 = 1 then HUMD$=" HUM " + STR$(DHT.HUM) + "% " else HUMD$="" end if if led3 = 1 then JOUR$=" Nous sommes le " + DATE$ else JOUR$="" end if if led4 = 1 then HEURE$=" Il est " + TIME$ else HEURE$="" end if MaxScroll.next aff$ + JOUR$ + HEURE$ + HUMD$ + TEMP$ return update_message: ' clear the html screen Cls T$="" H$="" D$="" C$="" led1 = 0 led2 = 0 led3 = 0 led4 = 0 'create the textbox in the html page a$ = |<font color="red">| + |<font family="Arial">|+ "<center><h1> * JOURNAL DEFILANT * " +"</font> </font> </h1>" a$ = a$ + "<br>" a$ = a$ +|<font color="blue">| + |<font family="Arial">|+ "<center><h1> * Entrez votre message * " +"</font> </font> </h1>" a$ = a$ + textbox$(msg$,"cssST") a$ = a$ + cssid$("cssST"," width:400px;text-align:left") a$ = a$ + cssid$("cssST"," color:red") a$ = a$ + "<br>" a$ =a$ + |<font color="blue">| + |<font family="Arial">|+ "<center><h1> * Donnez d'autres infos * " +"</font> </font> </h1>" a$ = a$ + "<br>" a$ = a$ + BUTTON$("Température", Temp, "but1") ' "but1" is the ID a$ = a$ + LED$(led1) a$ = a$ + textbox$ (T$) a$ = a$ + "<br>" a$ = a$ + BUTTON$("Humidité", Humd, "but2") a$ = a$ + LED$(led2) a$ = a$ + textbox$ (H$) a$ = a$ + "<br>" a$ = a$ + BUTTON$("Date du jour", Date, "but3") a$ = a$ + LED$(led3) a$ = a$ + textbox$ (D$) a$ = a$ + "<br>" a$ = a$ + BUTTON$("Heure", Heure, "but4") a$ = a$ + LED$(led4) a$ = a$ + textbox$ (C$) a$ = a$ + "<br>" a$ =a$ + |<font color="blue">| + |<font family="Arial">|+ "<center><h1> * Réglez les paramètres * " +"</font> </font> </h1>" a$ = a$ + "<br>Intensité lumineuse: "+ slider$(L, 0,15)+ " " +textbox$(L,"Lum") html a$ Gosub convert MaxScroll.print aff$ return Temp: led1 = 1 - led1 ' invert the variable T$ = STR$(DHT.TEMP) + "°C" refresh Return Humd: led2 = 1 - led2 ' invert the variable H$ = STR$(DHT.HUM) + "%" refresh Return Date: led3 = 1 - led3 ' invert the variable D$ = DATE$ refresh Return Heure: led4 = 1 - led4 ' invert the variable C$ = TIME$ refresh Return convert: aff$=msg$ aff$ = replace$(aff$, "é", chr$(130)) aff$ = replace$(aff$, "â", chr$(131)) aff$ = replace$(aff$, "à", chr$(133)) aff$ = replace$(aff$, "ç", chr$(135)) aff$ = replace$(aff$, "ê", chr$(136)) aff$ = replace$(aff$, "ë", chr$(137)) aff$ = replace$(aff$, "è", chr$(138)) aff$ = replace$(aff$, "ï", chr$(139)) aff$ = replace$(aff$, "ô", chr$(147)) aff$ = replace$(aff$, "ö", chr$(148)) aff$ = replace$(aff$, "û", chr$(150)) return