>D 40
hour=0
M:s4h=0 144
M:s4hamx=0 144
cstr2=""
s1=0
es1=0
ea=0
eax=0
p:m1=0
p:em1=0
p:g1=0
p:eg1=0
h1=0
eh1=0
hkw1=0
ehkw1=0
gkw1=0
egkw1=0
hgp=0
ehgp=0
ggp=0  
eggp=0
hr=0
gp=37.31
egp=19.2
amx=6
alwm=0
alwg=0
alwh=0
alwa=0
alwe=0
aus=0
amxs=0
ec=""
zs4h=0
zs4hamx=0
xa=0
xb=0
>B
->sensor53 r
>S
=>Publish tele/%topic%/SENSOR {"Aktuell Plus1":%0eax%}
h1=s1-m1
hkw1=h1
hgp=(hkw1*gp)/100
gkw1=g1
ggp=(gkw1*gp)/100
eh1=es1-em1
ehkw1=eh1
ehgp=(ehkw1*egp)/100
egkw1=eg1
eggp=(egkw1*egp)/100
hr=hours
if chg[hr]>0
and hr==0
{
m1=s1
g1=h1
em1=es1
eg1=eh1
svar
}
if pwr[1]==1
{
if alwm==0
{
amx=6
alwm=1
amxs=1
}
}
else
if alwm==1
{
aus=1
alwm=0
=>power2 0
=>power3 0
}
}
if eax>1500
{ 
alwe=alwe+1
if alwe>300
{ 
alwe=300
}
}
else
alwe=0
}
if pwr[2]==1
{
alwe=300
}
if alwm==1
{
if alwe==300
and alwg==0
{ 
alwg=1
=>WebSend [go-eCharger]/mqtt?payload=alw=1
amxs=1
=>power2 0
}
if alwg==1
and alwh<30
{
alwh=alwh+1
}
if alwh==30
{
if eax<0
and amx>6
{
xa=xa+1
}
else
xa=0
}
if eax>300
{
xb=xb+1
}
else
xb=0
}
if xa>5
or xb>10
{
if eax<0
{ 
amx=amx-1
}
if eax<-230
{ 
amx=amx-1
}
if eax<-460
{ 
amx=amx-1
}
if eax<-690
{ 
amx=amx-1
}
if eax<-920
{ 
amx=amx-1
} 
if eax<-1150
{ 
amx=amx-1
}
if eax<-1380
{ 
amx=6
}
if eax>300
{ 
amx=amx+1
}
if eax>530
{ 
amx=amx+1
}
if eax>760
{ 
amx=amx+1
}
if eax>990
{ 
amx=amx+1
}
if eax>1220
{ 
amx=amx+1
}
if eax>1450
{ 
amx=amx+1
}
if eax>1680
{ 
amx=amx+1
}
if eax>1910
{ 
amx=amx+1
}
if amx>20
{
amx=20
}
if amx<6
{
amx=6
}
amxs=1
if amx==20
{
aus=1
=>power1 0
=>power2 0
=>power3 0
} 
}
if eax<0
and amx==6
{
alwa=alwa+1
}
else
alwa=0
}
if alwa>300
{
aus=1
}
}
}
if aus==1
{
amx=6
=>WebSend [go-eCharger]/mqtt?payload=alw=0 
print Ausschalten
amxs=1
alwg=0
alwh=0
alwa=0	
aus=0
eax=0
}
if amxs==1
{ 
=>WebSend [go-eCharger]/mqtt?payload=amx=%0amx%
print - Geändert - Laden %0alwg%|%0alwe&|%0alwh&|%0alwa&|%0amx& A
amxs=0
xa=0
xb=0
if alwh==30
{
alwh=20
}
}
hour=hours
zs4h=zs4h+eax
if alwg==1
{     
zs4hamx=zs4hamx+(amx*225)
}
if upsecs%300==0
{
s4h=(zs4h/300)
s4hamx=(zs4hamx/300)
zs4hamx=0
zs4h=0
}
hour-=12
if (hour<0)
{
cstr2="cnth"+s(1.0((24-12+hours)*12)+(mins*0.20))+"/12"
}
else
cstr2="cnth"+s(1.0((hours-12)*12)+(mins*0.20))+"/12"
}
hour=hours
if pwr[3]==1
{
alwa=0
}
>T
s1=SML#Verbrauch
es1=SML#Einspeise
ea=SML#Power_curr
eax=ea*-1
if eax>=0
{
ec="color:#38ba5b;"
}
else
ec="color:#e00a02;"
}
>W
<style>form button{display:none}</style>
<p
<p
Heute</span> {m}%3h1% kWh | %2hgp% €
{m}%3eh1% kWh | %2ehgp% €
<p
<p
Gestern {m}%3g1% kWh | %2ggp% €
{m}%3eg1% kWh | %2eggp% €
<p
<p
<span style=%ec%>Aktuell{m}<span style=%ec%>%0eax%W
Laden{m}%0alwg%|%0alwe%|%0alwh%|%0xb%|%0xa%|%0alwa%|%0amx%A 
<p
<p
;$<script> setTimeout("location.reload(true);",300000); </script>
$<div id="chart1" style="text-align:center;width:310px;height:100%%;padding:0px"></div>
$gc(lt s4h s4hamx "wr" "Ertrag [W]" "Ladung [W]" cstr2)
$var options = {
$chartArea:{left:52,right:20,width:'83%%'},
$width:'100%%',
$legend:'none',
$vAxis:{format:'# W',viewWindow:{}},
$explorer:{actions:['dragToZoom', 'rightClickToReset']},
$};
$gc(e)
>M 1
+1,3,s,0,9600,SML
1,77070100100700ff@1,Aktuell,W,Power_curr,0
1,77070100100700ff@1,Aktuell,W,Power_Import_W,0
1,77070100010800FF@1000,Verbrauch,kWh,Verbrauch,4
1,77070100020800FF@1000,Einspeise,kWh,Einspeise,4
#