Bien commencé le projet météo pour la prévision de la pluie avec un NoceMCU et des LED's RGB

Meteo/a_meteo2-tests.lua

@@ -5,13 +5,14 @@
 -- les conditions pour toutes les heures la journée
 -- Source: https://github.com/nodemcu/nodemcu-firmware/blob/master/lua_examples/sjson-streaming.lua
 
-print("\n a_meteo2-tests.lua zf190302.1934 \n")
+print("\n a_meteo2-tests.lua zf190303.1440 \n")
 
-local s = tls.createConnection()
+--local s = tls.createConnection()
+local s = net.createConnection()
 s:on("connection", function(sck, c)
 --  sck:send("GET /repos/nodemcu/nodemcu-firmware/git/trees/master HTTP/1.0\r\nUser-agent: nodemcu/0.1\r\nHost: api.github.com\r\nConnection: close\r\nAccept: application/json\r\n\r\n")
 --  sck:send("GET /services/json/lausanne HTTP/1.0\r\nHost: www.prevision-meteo.ch\r\n\r\n")
-  sck:send("GET /services/json/Lausanne HTTP/1.0\r\nHost: www.prevision-meteo.ch\r\n\r\n")
+    sck:send("GET /services/json/Lausanne HTTP/1.0\r\nHost: www.prevision-meteo.ch\r\n\r\n")
 end)
 
 -- The receive callback is somewhat gnarly as it has to deal with find the end of the header
@@ -21,7 +22,7 @@ s:on("receive", function(sck, c)
 end)
 
 local function getresult()
-  print(node.heap())
+    print(node.heap())
 end
 
 s:on("disconnection", getresult)
@@ -29,5 +30,6 @@ s:on("reconnection", getresult)
 
 -- Make it all happen!
 --s:connect(443, "api.github.com")
-s:connect(443, "www.prevision-meteo.ch")
+--s:connect(443, "www.prevision-meteo.ch")
+s:connect(80, "www.prevision-meteo.ch")
 

Meteo/boot.lua

@@ -0,0 +1,30 @@
+-- Scripts à charger après le boot pour démarrer son appli
+
+print("\n boot.lua zf190303.1437 \n")
+
+function heartbeat()
+    f= "flash_led_xfois.lua"   if file.exists(f) then dofile(f) end
+    boottimer1=tmr.create()
+    tmr.alarm(boottimer1, 1*1000,  tmr.ALARM_AUTO, function()
+        xfois =2
+        blink_LED ()
+    end)
+end
+
+f= "led_rgb.lua"   if file.exists(f) then dofile(f) end
+f= "wifi_ap_start.lua"   if file.exists(f) then dofile(f) end
+f= "wifi_cli_conf.lua"   if file.exists(f) then dofile(f) end
+f= "wifi_cli_start.lua"   if file.exists(f) then dofile(f) end
+--f= "telnet_srv2.lua"   if file.exists(f) then dofile(f) end
+--f= "web_ide2.lua"   if file.exists(f) then dofile(f) end
+--f= "web_srv2.lua"   if file.exists(f) then dofile(f) end
+--f= "set_time.lua"   if file.exists(f) then dofile(f) end
+--f= "dsleep.lua"   if file.exists(f) then dofile(f) end
+
+
+
+--heartbeat()
+
+
+
+

Meteo/flash_led_xfois.lua

@@ -0,0 +1,33 @@
+-- programme pour faire clignoter x fois une LED avec un rapport on/off
+print("\n flash_led_xfois.lua zf181208.1521 \n")
+
+--zLED=0            --NodeMCU
+zLED=4             --EPS-M3
+zTm_On_LED = 50    --> en ms
+zTm_Off_LED = 100    --> en ms
+nbfois = 0
+gpio.write(zLED, gpio.HIGH)
+gpio.mode(zLED, gpio.OUTPUT)
+ztmr_Flash_LED = tmr.create()
+
+function blink_LED ()
+    if nbfois >= xfois then
+--        print(nbfois)
+        nbfois = 0
+    else 
+        if gpio.read(zLED)==gpio.HIGH then
+            gpio.write(zLED, gpio.LOW)
+            tmr.alarm(ztmr_Flash_LED, zTm_Off_LED, tmr.ALARM_SINGLE, blink_LED)
+        else 
+            gpio.write(zLED, gpio.HIGH)
+            nbfois = nbfois+1
+            tmr.alarm(ztmr_Flash_LED, zTm_On_LED, tmr.ALARM_SINGLE, blink_LED)
+        end
+    end
+end
+
+xfois =2
+blink_LED ()
+
+
+

Meteo/goodies/rm_files.lua

@@ -0,0 +1,12 @@
+-- pour effacer TOUS les fichiers qui se trouve dans la flash du NodeMCU
+
+print("\n rm_files.lua zf180907.1511 \n")
+
+
+l=file.list() i=0
+for k,v in pairs(l) do
+    i=i+v
+    file.remove(k)
+end
+print("-------------------------------")
+print("\nC'est tout effaced :-) \n")

Meteo/initz.lua

@@ -0,0 +1,47 @@
+--Script de bootstrap, test au moment du boot qui a été la cause de boot.
+-- Si la cause est un power on ou une connexion depuis l'IDE, alors
+-- le script repair.lua pendant xx secondes avant de continuer
+--Source: https://nodemcu.readthedocs.io/en/master/en/modules/node/#nodebootreason
+
+print("\n init.lua zf190217.1231 \n")
+
+zswitch=3     --switch flash
+gpio.mode(zswitch, gpio.INT, gpio.PULLUP)
+
+function hvbouton()
+--    gpio.trig(zswitch, "none")
+    tmr.unregister(initalarme)
+    f= "boot.lua"   if file.exists(f) then dofile(f) end
+end
+
+gpio.trig(zswitch, "both", hvbouton)
+
+function second_chance()
+    print("seconde chance...")
+    f= "repair.lua"   if file.exists(f) then dofile(f) end
+    initalarme=tmr.create()
+    tmr.alarm(initalarme, 4*1000,  tmr.ALARM_SINGLE, function()
+        f= "boot.lua"   if file.exists(f) then dofile(f) end
+    end)
+end
+
+_, reset_reason = node.bootreason()
+print("reset_reason:",reset_reason)
+if reset_reason == 0 then
+    print("power on")
+    second_chance()
+elseif reset_reason == 4 then
+    print("node.restart")
+    f= "boot.lua"   if file.exists(f) then dofile(f) end
+elseif reset_reason == 5 then
+    print("dsleep wake up")
+    f= "boot.lua"   if file.exists(f) then dofile(f) end
+elseif reset_reason == 6 then
+    print("external reset")
+    second_chance()
+--    f= "boot.lua"   if file.exists(f) then dofile(f) end
+else
+    print("autre raison")
+    second_chance()
+end
+

Meteo/led_rgb.lua

@@ -0,0 +1,37 @@
+-- Scripts juste pour allumer ou éteindre une LED sur un ruban RGB
+-- tout sur la couleur: https://www.w3schools.com/colors/default.asp
+-- roue des couleurs: https://iro.js.org/?ref=oldsite
+
+print("\n led_rgb.lua zf190303.1436 \n")
+
+nbleds=3
+ws2812.init()
+myLedStrip = ws2812.newBuffer(nbleds, 3)
+
+function RGB_clear()
+    myLedStrip:fill(0, 0, 0)   ws2812.write(myLedStrip)
+end
+
+function RGB_reform(R1, G1, B1)         --conversion de RGB à BRG
+    rR1=B1   rG1=R1   rB1=G1
+end
+
+function zled_rgb(num_led, R1, G1, B1, zpower)
+    RGB_reform(R1, G1, B1)
+    myLedStrip:set(num_led, rR1*zpower, rG1*zpower, rB1*zpower)
+    ws2812.write(myLedStrip)
+end
+
+function zled_write()
+    ws2812.write(myLedStrip)
+end
+
+
+RGB_clear()
+
+--[[
+zled_rgb(1,255,0,0,1)
+zled_rgb(2,0,255,0,1)
+zled_rgb(2,0,255,0,0.05)
+zled_rgb(3,0,0,255,1)
+]]

Meteo/set_time.lua

@@ -0,0 +1,29 @@
+-- Scripts pour régler l'horloge quand on est connecté en WIFI
+-- Permet aussi de 'compresser' le unix time afin de prendre moins de place dans les strings
+
+print("\n set_time.lua zf190217.1426 \n")
+
+--source: https://www.freeformatter.com/epoch-timestamp-to-date-converter.html
+
+ztime2019 = 1546300800      -- Unix time pour le 1.1.2019
+
+function set_time()
+    sntp.sync(nil, nil, nil, 1)
+end
+
+function ztime_compress(ztime_long)
+    return ztime_long - ztime2019
+end
+
+function ztime_uncompress(ztime_short)
+    return ztime_short + ztime2019
+end
+
+function ztime_format(ztime)
+    tm = rtctime.epoch2cal(ztime + 3600)
+    return(string.format("%04d/%02d/%02d %02d:%02d:%02d", tm["year"], tm["mon"], tm["day"], tm["hour"], tm["min"], tm["sec"]))
+end
+
+set_time()
+print(ztime_format(rtctime.get()))
+

Meteo/wifi_ap_start.lua

@@ -0,0 +1,14 @@
+-- Démarre le WIFI en mode AP
+
+print("\n wifi_ap_start.lua   zf181119.2359   \n")
+
+local zmodewifi=wifi.getmode()
+if zmodewifi == wifi.NULLMODE then
+    print("WIFI mode AP only")
+    wifi.setmode(wifi.SOFTAP)
+elseif zmodewifi == wifi.STATION then
+    print("WIFI mode AP+CLI")
+    wifi.setmode(wifi.STATIONAP)
+end
+wifi.ap.config({ ssid = "NodeMCU "..wifi.ap.getmac(), pwd = "12345678" })
+f= "wifi_info.lua"   if file.exists(f) then dofile(f) end

Meteo/wifi_cli_conf.lua

@@ -0,0 +1,13 @@
+-- Petit script pour configurer le client WIFI du NodeMCU
+
+print("\n wifi_cli_conf.lua   zf190217.1245   \n")
+
+--credentials par défaut
+--cli_ssid="3g-s7"
+cli_ssid="3G-zf"
+cli_pwd="12234567"
+
+--ses propre credentials
+f= "credentials.lua"    if file.exists(f) then dofile(f) end
+
+wifi.sta.config{ssid=cli_ssid, pwd=cli_pwd, save=true}

Meteo/wifi_cli_start.lua

@@ -0,0 +1,14 @@
+-- Petit script pour connecter le NodeMCU sur un AP Wifi avec l'accompte sauvé en EEPROM
+print("\n wifi_cli_start.lua   zf181119.2359   \n")
+
+local zmodewifi=wifi.getmode()
+if zmodewifi == wifi.NULLMODE then
+    print("WIFI mode CLI only")
+    wifi.setmode(wifi.STATION)
+elseif zmodewifi == wifi.SOFTAP then
+    print("WIFI mode AP+CLI")
+    wifi.setmode(wifi.STATIONAP)
+end
+wifi.sta.autoconnect(1)
+wifi.sta.connect()
+f= "wifi_get_ip.lua"   if file.exists(f) then dofile(f) end

Meteo/wifi_info.lua

@@ -0,0 +1,31 @@
+-- Petit script pour afficher les infos actuel du WIFI
+print("\n wifi_info.lua   zf181119.0014   \n")
+
+local zmodewifi=wifi.getmode()
+
+--wifi.NULLMODE, wifi.STATION, wifi.SOFTAP, wifi.STATIONAP
+
+if zmodewifi == wifi.NULLMODE then
+    print("WIFI OFF")
+elseif zmodewifi == wifi.STATION then
+    print("WIFI mode CLI")
+    print("Connected IP:\n",wifi.sta.getip())
+    do
+        local sta_config=wifi.sta.getconfig(true)
+        print(string.format("Current client config:\n\tssid:\"%s\"\tpassword:\"%s\"\n\tbssid:\"%s\"\tbssid_set:%s", sta_config.ssid, sta_config.pwd, sta_config.bssid, (sta_config.bssid_set and "true" or "false")))
+    end
+elseif zmodewifi == wifi.SOFTAP then
+    print("WIFI mode AP")
+    print("AP MAC:\n",wifi.ap.getmac())
+    print("AP IP:\n",wifi.ap.getip())
+    print("AP Connect:\n",wifi.ap.getconfig())
+elseif zmodewifi == wifi.STATIONAP then
+    print("WIFI mode CLI+AP")
+    print("Connected IP:\n",wifi.sta.getip())
+    do
+        local sta_config=wifi.sta.getconfig(true)
+        print(string.format("Current client config:\n\tssid:\"%s\"\tpassword:\"%s\"\n\tbssid:\"%s\"\tbssid_set:%s", sta_config.ssid, sta_config.pwd, sta_config.bssid, (sta_config.bssid_set and "true" or "false")))
+    end
+    print("AP MAC: "..wifi.ap.getmac())
+    print("AP IP: "..wifi.ap.getip())
+end

WebIDE/web_ide3.html

@@ -0,0 +1,36 @@
+    if vars=="edit" then
+        conn:send("
+
+        <script>function tag(c){document.getElementsByTagName('w')[0].innerHTML=c};\n
+        
+        
+        ")
+        conn:send("
+        
+        var x=new XMLHttpRequest()\nx.onreadystatechange=function(){if(x.readyState==4) document.getElementsByName('t')[0].value = x.responseText; };\nx.open('GET',location.pathname,true)\nx.send()</script>
+        
+        
+        ")
+        conn:send("
+        
+        
+        <a href='/'>Back to file list</a><br><br><textarea name=t cols=79 rows=17></textarea></br>
+        
+        ")   
+        conn:send("
+        
+        
+        <button onclick=\"tag('Saving');x.open('POST',location.pathname,true);\nx.onreadystatechange=function(){if(x.readyState==4) tag(x.responseText);};\nx.send(new Blob([document.getElementsByName('t')[0].value],{type:'text/plain'}));\">Save</button><a href='?run'>run</a><w></w>
+        
+        
+        
+        ")
+    end    
+
+
+        <script>function tag(c){document.getElementsByTagName('w')[0].innerHTML=c};\n
+        var x=new XMLHttpRequest()\nx.onreadystatechange=function(){if(x.readyState==4) document.getElementsByName('t')[0].value = x.responseText; };\nx.open('GET',location.pathname,true)\nx.send()</script>
+        <a href='/'>Back to file list</a><br><br><textarea name=t cols=79 rows=17></textarea></br>
+
+        <button onclick=\"tag('Saving');x.open('POST',location.pathname,true);\nx.onreadystatechange=function(){if(x.readyState==4) tag(x.responseText);};\nx.send(new Blob([document.getElementsByName('t')[0].value],{type:'text/plain'}));\">Save</button><a href='?run'>run</a><w></w>
+