API tools faq
paste
ottelo15

ottelo.jimdo.de Script by Andreas

ottelo15
Jul 14th, 2023 (edited)
206
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
YAML 10.88 KB | None | 0 0
raw download clone embed print report
  1. D 40
  2. ; IP for external ScriptEditor
  3. IP=192.168.12.79
  4.  
  5.  
  6. ; Description:
  7. ; Version see >W section
  8. ; Tasmota SML Script with Google Chart Support
  9. ; 4h, 24h Consumption Line Charts
  10. ; Month and Year Consumption (from grid) Tables
  11. ; Month and Year PV Production (to grid) Table
  12. ; Optional: Switch second esp if enough energy flows to grid (e.g. pool pump)
  13. ; charts need 30/60s to show correctly after boot
  14. ; Tasmota needs correct working NTP (internet) otherwise script dont start
  15.  
  16. ; HowTo:
  17. ; Download the ScriptEditor from Tasmota Script page or remove all comments manually
  18. ; https://www.dropbox.com/sh/0us18ohui4c3k82/AACcVmpZ4AfpdrWE_MPFGmbma?dl=0
  19. ; Change the IP
  20. ; change the -- SML -- script to your needs but dont change the order!
  21. ; search for websend and bu(swesp and uncomment this lines to switch second esp
  22. ; 4h chart are not permament, after restart data is lost
  23. ; 24h, month and year chart is permament and saved at midnight to flash
  24. ; First start, go to console and type:
  25. ;backlog script >dval=EnFrGrid; script >dval2=EnToGrid; script >dcon={0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0}; script >dprod={0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0};
  26. ;backlog script >mval=EnFrGrid; script >mval2=EnToGrid; script >mcon={0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0};
  27. ;script >=#rst24h
  28. ;script >svars
  29.  
  30. ; to change some values enter e.g.: script >dcon[day]=xxx
  31. ; console commands:
  32. ; script?var = get variable
  33. ; script >var=1 = set variable
  34. ; script >svars = save all permament vars
  35. ; script >=#sub = run sub
  36.  
  37.  
  38. ; -- ARRAYS --
  39. ; 24h power chart
  40. M:p:sday=0 288
  41. ; daily energy from grid table day 1-31
  42. M:p:dcon=0 31
  43. ; daily energy to grid table day 1-31
  44. M:p:dprod=0 31  
  45. ; monthly energy table
  46. ; from grid 1-12
  47. ; to grid 13-24
  48. M:p:mcon=0 24
  49. ; 4h power chart, value every 30s
  50. M:s4h=0 480
  51.  
  52. ; -- VARS --
  53. ; energy from grid [kWh]
  54. EnFrGrid=0
  55. ; energy to grid [kWh]
  56. EnToGrid=0
  57. ; actual power from or to grid [W]
  58. power=0
  59. ; monthval and dayval
  60. p:mval=0
  61. p:dval=0
  62. p:mval2=0
  63. p:dval2=0  
  64. tmp=0
  65. m5=0
  66. cstr="cnt0/12"
  67. cstr2="cnth0/120"
  68. utm="00d 00h 00m"
  69. avgv=0
  70. avgv2=0
  71. avgvc=0
  72. avgvc2=0
  73. PowerFrGridSum=0
  74. PowerToGridSum=0
  75. PowerToGridSumC=0
  76. p:EnToGridTotal=0
  77.  
  78. hour=0
  79. da=1
  80. swesp=0
  81. swespflg=0
  82.  
  83.  
  84. ; -- BOOT --
  85. >B
  86. =>sensor53 r
  87. is(0 "Jan|Feb|Mär|Apr|Mai|Jun|Jul|Aug|Sep|Okt|Nov|Dez|")
  88. ;disable mqtt at boot prevents sending 0
  89. smlj=0
  90.  
  91.  
  92. ; -- SUBS --
  93. ; reset 24h chart
  94. #rst24h
  95. for tmp 1 sday[-1] 1
  96.     sday[tmp]=0
  97. next
  98.  
  99. ; daily consumption month table
  100. #daysub
  101. wcs <div id="day" style="text-align:center;width:400px"></div>
  102. wcs <script language="JavaScript">function drawChart(){
  103. wcs var cssc={'headerRow':'hRow','rowNumberCell':'hCol','tableCell':'tCell'};
  104. wcs var data=google.visualization.arrayToDataTable([['Tag','Energie [kWh]',{role: 'style'}],
  105. for tmp 1 dcon[-1] 1
  106.     if (tmp==day)
  107.     {
  108.         wcs [%tmp%,%dcon[tmp]%,'red'],
  109.     }
  110.     if (tmp<day)
  111.     {
  112.         wcs [%tmp%,%dcon[tmp]%,'green'],
  113.     }
  114.     if (tmp>day)
  115.     {
  116.         wcs [%tmp%,%dcon[tmp]%,''],
  117.     }
  118. next
  119. wcs ]);
  120. wcs var options={chartArea:{left:40,width:'86%%'},legend:'none',title:'Tagesverbräuche Monatsansicht',vAxis:{format:'# kWh'},hAxis:{title:'Tag',ticks:[1,5,10,15,20,25,30]}};
  121. wcs var chart=new google.visualization.ColumnChart(document.getElementById('day'));
  122. wcs chart.draw(data,options);}google.charts.setOnLoadCallback(drawChart);</script>
  124. ; daily production month table
  125. #dayprod
  126. wcs <div id="dayp" style="text-align:center;width:400px"></div>
  127. wcs <script language="JavaScript">function drawChart(){
  128. wcs var cssc={'headerRow':'hRow','rowNumberCell':'hCol','tableCell':'tCell'};
  129. wcs var data=google.visualization.arrayToDataTable([['Tag','Energie [kWh]',{role: 'style'}],
  130. for tmp 1 dprod[-1] 1
  131.     if (tmp==day)
  132.     {
  133.         wcs [%tmp%,%dprod[tmp]%,'red'],
  134.     }
  135.     if (tmp<day)
  136.     {
  137.         wcs [%tmp%,%dprod[tmp]%,'green'],
  138.     }
  139.     if (tmp>day)
  140.     {
  141.         wcs [%tmp%,%dprod[tmp]%,''],
  142.     }
  143. next
  144. wcs ]);
  145. wcs var options={chartArea:{left:40,width:'86%%'},legend:'none',title:'Tageseinspeisung Monatsansicht',vAxis:{format:'# kWh'},hAxis:{title:'Tag',ticks:[1,5,10,15,20,25,30]}};
  146. wcs var chart=new google.visualization.ColumnChart(document.getElementById('dayp'));
  147. wcs chart.draw(data,options);}google.charts.setOnLoadCallback(drawChart);</script>
  149. ; monthly consumption & production year table
  150. #monthsub
  151. wcs <div id="month" style="text-align:center;width:400px"></div>
  152. wcs <script language="JavaScript">function drawChart(){
  153. wcs var cssc={'headerRow':'hRow','rowNumberCell':'hCol','tableCell':'tCell'};
  154. wcs var data=google.visualization.arrayToDataTable([['Monat','Energie [kWh]',{role: 'style'}],
  155. for tmp 1 12 1
  156.     if (tmp<month)
  157.     {
  158.         wcs ['%is[tmp]%',%mcon[tmp]%,'green'],
  159.         wcs ['%is[tmp]% (PV)',%mcon[tmp+12]%,'green'],
  160.     }
  161.     if (tmp==month)
  162.     {
  163.         wcs ['%is[tmp]%',%mcon[tmp]%,'red'],
  164.         wcs ['%is[tmp]% (PV)',%mcon[tmp+12]%,'red'],
  165.     }
  166.     if (tmp>month)
  167.     {
  168.         wcs ['%is[tmp]%',%mcon[tmp]%,''],
  169.         wcs ['%is[tmp]% (PV)',%mcon[tmp+12]%,''],
  170.     }
  171. next
  172. wcs ]);
  173. wcs var options={chartArea:{left:40,width:'86%%'},legend:'none',title:'Monatliche Verbräuche / Solareinspeisungen Jahresansicht',vAxis:{format:'# kWh'}};
  174. wcs var chart=new google.visualization.ColumnChart(document.getElementById('month'));
  175. wcs chart.draw(data,options);}google.charts.setOnLoadCallback(drawChart);</script>
  177.  
  178. ;-- SML --
  179. >M 1
  180. ;1=meter1 3=GPIO3 s=SML 0=filterOff 16=filterOn 9600=baud MT631=Name
  181. +1,3,s,0,9600,MT631
  182. ;1. line = sml[1] (actual power W), 2. = sml[2] (energy from grid kWh)
  183. 1,77070100100700ff@1,Leistung,W,Power_curr,0
  184. 1,77070100010800ff@1000,Verbrauch,KWh,Total_in,3
  185. ;1,77070100020800ff@1000,Netzeinspeisung,KWh,Total_out,2
  186. ;optional - check if your smart meter support this
  187. ;1,77070100200700ff@1,Spannung,V,Volt,1
  188. ;1,770701001f0700ff@1,Strom,A,Current,2
  189. ;1,770701000e0700ff@1,Frequenz,Hz,Frequency,1
  190. ;DWS74 Bugfix
  191. ;1,=so2,1
  192. #
  193.  
  194.  
  195. ; -- EVERY SECOND --
  196. >S
  197. ;start mqtt if smartmeter is sending
  198. if (sml[2]>0)
  199. {
  200.     smlj=1
  201. }
  202.  
  203. ;check if NTP works, otherwise arrays can be corrupted
  204. if (year<2020)
  205. {
  206.     print NTP not ready
  207.     break
  208. }
  209.  
  210. ; every 3s
  211. if (secs%3==0)
  212. {
  213.     ; actual power [W]
  214.     ;power=rnd(1000)-500 for google chart testing
  215.     ; copy SML value
  216.     power=sml[1]   
  217.     ; sum up power sml[1] for 4h and 24h chart
  218.     avgv+=power
  219.     avgv2+=power
  220.     avgvc+=1
  221.     avgvc2+=1  
  222.  
  223. ; for vitual PowerToGrid counter
  224.         if (power>0)
  225.         {
  226.             PowerFrGridSum+=power
  227.         }  
  228.         else
  229.         {
  230.             PowerToGridSumC=1
  231.             PowerToGridSum-=power
  232.         }  
  233.  
  234.     ; switch second ESP if power flows to grid, see >W section
  235.     if (swesp==1)
  236.     {
  237.         if ((power<-50 and (swespflg==0))
  238.         {
  239.             ;=>websend [192.168.0.50] power ON
  240.             ;print power ON %power%W
  241.             swespflg=1
  242.         }
  243.         if ((power>30) and (swespflg==1))
  244.         {
  245.             ;=>websend [192.168.0.50] power OFF
  246.             ;print power OFF %power%W
  247.             swespflg=0
  248.         }
  249.     }
  250. }
  251.  
  252. ; every 30s
  253. if (secs%30==0)
  254. {
  255.     ; 4h chart. idx is set automatically
  256.     s4h=avgv/avgvc
  257.     avgv=0
  258.     avgvc=0
  259.  
  260.     ; Set 4h x-axis a 30s => /120 values per hour for 4h diagram. Arraysize = 480 (new function cnth)
  261.     ; tasmota calc [hh:mm] via cnthX/Y. mm = X%Y * 60/Y. hh = X/Y
  262.     cstr2="cnth"+s(1.0((((hours+20)*120)+(mins*2)+(int(secs/30)))%2880+1))+"/120"
  263. }
  264.  
  265. ; every 60s
  266. if (secs%60==0)
  267. {
  268.     hour=hours
  269.     ;uptime in days hours minutes
  270.     utm=s(2.0(int(uptime/1440)))+"d "+s(2.0(int(uptime/60)%24))+"h "+s(2.0(uptime%60))+"m"
  271.  
  272.     ; copy SML values
  273.     ; energy from grid [kWh]
  274.     EnFrGrid=sml[2]
  275.     ; energy to grid [kWh]
  276.  
  277.         if ((PowerToGridSumC==1) and (PowerFrGridSum!=0))
  278.         {
  279.         EnToGrid=PowerToGridSum*(EnFrGrid-dval)/PowerFrGridSum
  280. ;        EnToGridTotal=EnToGrid+dval2
  281.         PowerToGridSumC=0
  282.         }
  283.  
  284. ;   EnToGrid=sml[3]
  285.     ; day consumption [kWh]
  286.     dcon[day]=EnFrGrid-dval
  287.     ; month consumption [kWh]
  288.     mcon[month]=EnFrGrid-mval
  289.     ; day production [kWh]
  290.     dprod[day]=EnToGrid
  291.     ; month production [kWh]
  292.     mcon[month+12]=EnToGridTotal+EnToGrid-mval2
  293.  
  294.     ; 24h chart. calc avg power [W] for last 5min and put into array[1-288]
  295.     m5=int((((hours*60)+mins)/5)+1)
  296.     ; set idx (pointer starts from 0)
  297.     sday[0]=m5
  298.     if (chg[m5]>0)
  299.     {
  300.         sday[m5]=int(avgv2/avgvc2)
  301.         avgv2=0
  302.         avgvc2=0
  303.     }
  304.  
  305.     ; Set 24h x-axis a 5m => /12 values per hour for 24h diagram. Arraysize = 288 (new function cnth)
  306.     ; tasmota calc [hh:mm] via cnthX/Y. mm = X%Y * 60/Y. hh = X/Y
  307.     cstr="cnth"+s(1.0(((hours)*12)+int(mins/5))+1)+"/12"
  308.  
  309.     ; day consumption & production calculation at midnight
  310.     if ((chg[hour]>0) and (hour==0))
  311.     {
  312.         if (day>1)
  313.         {
  314.             da=day
  315.         }
  316.         else
  317.         {
  318.             ; change of month, set last days to 0 (Feb, Apr...)
  319.             for tmp (da+1) 31 1
  320.                 dprod[tmp]=0
  321.                 dcon[tmp]=0
  322.             next
  323.             ; monthly values
  324.             mval=EnFrGrid
  325.             mval2=EnToGridTotal+EnToGrid
  326.         }
  327.         ; daily values
  328.         dval=EnFrGrid
  329.         dval2=EnToGridTotal+EnToGrid
  330.                 PowerFrGridSum=0
  331.                 PowerToGridSum=0
  332.                 PowerToGridSumC=0
  333.                 EnToGridTotal+=EnToGrid
  334.                 EnToGrid=0
  335.         ; save only once at midnight
  336.         svars
  337.     }
  338. }
  339.  
  340.  
  341. ; WEB INTERFACE
  342. >W
  343. ; Auto reload
  344. ;$<script> setTimeout("location.reload(true);",5000); </script>
  346. ; web button
  347. ; switch second ESP if power flows to grid, see >S section
  348. ;bu(swesp "switch ESP ON" "switch ESP OFF")
  349.  
  350. ; consumption
  351. Tagesverbrauch:{m}%2(EnFrGrid-dval)% kWh
  352. Monatsverbrauch:{m}%2(EnFrGrid-mval)% kWh
  353.  
  354. ; production    
  355. Tageseinspeisung:{m}%2(EnToGrid)% kWh
  356. Monatseinspeisung:{m}%2(EnToGridTotal+EnToGrid-mval2)% kWh
  357.  
  358. FromSum:{m}%PowerFrGridSum%
  359. ToSum:{m}%PowerToGridSum%
  360. EnToGridTotal:{m}%(EnToGridTotal+EnToGrid)% kWh
  361.  
  362. ; Time/Date
  363. Datum:{m}%s(2.0day)%.%s(2.0month)%.%s(2.0year)% - %s(2.0hours)%:%s(2.0mins)%:%s(2.0secs)%
  364. Uptime:{m}%0utm%
  365. $<div style="margin-left:-20px">
  367. ; 4h power chart - new value every 30s
  368. $<div id="chart1" style="text-align:center;width:400px"></div>
  369. $gc(lt s4h "wr" "Leistung [W]" cstr2)
  370. $var options = {
  371. $chartArea:{left:60,width:'83%%'},
  372. $legend:'none',
  373. $vAxis:{format:'# W'},
  374. $explorer:{actions:['dragToZoom', 'rightClickToReset']},
  375. $series: {0: {type: 'area'}},              
  376. $title:'Verbrauch 4 Stunden [Watt]'
  377. $};
  378. $gc(e)
  379.  
  380. ; 24h power chart
  381. $<div id="chart2" style="text-align:center;width:400px"></div>
  382. $gc(lt sday "wr" "Leistung [W]" cstr)
  383. $var options = {
  384. $chartArea:{left:60,width:'83%%'},
  385. $legend:'none',
  386. $vAxis:{format:'# W'},
  387. $explorer:{actions:['dragToZoom', 'rightClickToReset']},
  388. $series: {0: {type: 'area'}},            
  389. $title:'Verbrauch 24 Stunden [Watt]'
  390. $};
  391. $gc(e)
  392.  
  393. ; simply chart with 2 rows
  394. ;$<div id="chart3" style="text-align:center;width:400px"></div>
  395. ;$gc(c dprod "wr" "kWh" "cnt1" "Tägliche Einspeisung")
  396.  
  397. ; daily energy consumption month chart
  398. %=#daysub
  399. %=#dayprod
  400.  
  401. ; monthly energy consumption year chart
  402. %=#monthsub
  403.  
  404. $<center><span style="font-size:10px;">
  405. $Version 2023.02.28 (PV) by ottelo.jimdo.de & Dennis<br>
  406. $Hinweis: Die Daten werden immer um Mitternacht gespeichert!<br>
  407. $Sofort speichern dies in Console eingeben: "script >svars"<br>
  408. $</span></center></div>
  410. ; -- END SCRIPT --
  411. #
Tags: tasmota
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!