PWM auf Sonoff Basic mit 2 getrennten Kanälen

>D 25

pcurr=0
pcurr2=0
sw=40
ofs=0
ofs2=0
dimmlevel=0
dimmlevel2=0
dimmlevel3=0
url_1="[192.168.178.41]"
url_2="[192.168.178.44]"

>B

=>sensor53 r

>T
pcurr=0-SML#Power_curr

>M 1
+1,3,s,16,9600,SML
1,77070100010800ff@1000,EVU Bezug,KWh,Total_in,4
1,77070100020800ff@1000,Einspeisung,KWh,Total_out,4
1,77070100100700ff@1,Aktueller Verbrauch,W,Power_curr,0

>S
pcurr2=0-pcurr

print "pcurr2" %pcurr2%

ofs=(pcurr-sw)/180

if ofs<0{
ofs=-ofs
}


if pcurr>sw{
dimmlevel=dimmlevel+ofs         
} 
else{
dimmlevel=dimmlevel-ofs   
}


if dimmlevel>100 {
dimmlevel=100
dimmlevel3=dimmlevel3+ofs
}

if dimmlevel<100 {
dimmlevel3=dimmlevel3-ofs
}
If dimmlevel3<0 {
dimmlevel3=0
}
->WebSend %url_1% Channel3 %0dimmlevel3%
print "dimm3" %dimmlevel3%


if pcurr<=0 {
dimmlevel=0
}
print %dimmlevel%

=>dimmer %dimmlevel%
->WebSend %url_2% dimmer %0dimmlevel%


ofs2=(pcurr2-40)/180

if ofs2<0{
ofs2=-ofs2
}
Print "ofs2" %ofs2%

if dimmlevel2<0 {
dimmlevel2=0
}

if pcurr2>30{
dimmlevel2=dimmlevel2+ofs2        
} 
else{
dimmlevel2=dimmlevel2-ofs2   
}

print "ofs2" %ofs2%

if pcurr2>40 {
->WebSend %url_2% Power on
}
print "Dim2" %dimmlevel2%
print "Pcurr" %pcurr%

if dimmlevel2>70 {
dimmlevel2=70
}

->WebSend %url_1% Channel2 %0dimmlevel2%

if pcurr>0 {
->WebSend %url_2% Power off
dimmlevel2=0
}

#