Tension %hs1%yellow;'>%0vol%V | Corriente %cu%A Potencia %hs1%yellow;'>%0po%W | Factor de potencia %fac% Consumo ayer %hs1%yellow;'>%3pa%W | Consumo hoy %3ph%W ;

>D 128
po=0
vol=0
cu=0
fac=0
pa=0
ph=0
tmp="WebSend [192.168.1.201/cm?cmnd=Status%2010]"
tmp2=0
res=0
ps=""
str=""
tm=""
rstr=""
label=""
val=0
val2=""
cur=0
pow=0
batno=0
dbatno=0
m:volt=0 5
m:curr=0 5
m:temp=0 5
m:coul=0 5
snd=""
upt=""
hs1="{m}<span style='color:"

>B
;open serial port for RS232
res=so(32 33 115200 8N1 1024)
;declare string variable
is1(5 "")
is2(5 "")
;month
tmp2=is(0 "Ene|Feb|Mar|Abr|May|Jun|Jul|Ago|Sep|Oct|Nov|Dic|")

>E
po=gwr("\"Power\":" 2)
vol=gwr("\"Voltage\":" 2)
cu=gwr("\"Current\":" 2)
fac=gwr("\"Factor\":" 2)
pa=gwr("\"Yesterday\":" 3)
ph=gwr("\"Today\":" 3)
;print %po%
;print %vol%
;print %cu%
;print %fac%

>F
;check for serial data
res=sa()
if res>0{
rstr=sr(10)

;IMPRIME puerto serie en consola
;print %rstr% 

rstr=sb(rstr 1 sl(rstr))
label=sb(rstr 0 13)
;make sure we have a data & not an empty line
if sl(label)>1{
;get value
val=st(rstr : 2)
if val==0{
val2=st(rstr : 2)
}

;POWER **** con 2 espacios *****
if sb(label 0 7)=="Power  "{
dbatno=sb(label 7 1)
}

; Longitud de cadena 13 CARACTERES EXACTOS
switch label
case "Voltage      " volt[dbatno]=val/1000
case "Current      " curr[dbatno]=val/1000
case "Temperature  " temp[dbatno]=val/1000
case "Coulomb      " coul[dbatno]=val
case "Basic Status " is2[dbatno]=val2
case "Soh. Status  " is1[dbatno]=val2

ends

;end label length check
}
;end serial receive
}

>S
upt=s2hms(upsecs)
; CADA 10 SEGUNDOS
if upsecs%10==0 {
=>%tmp%
;call a battery on each pass
batno+=1
snd="pwr "+s(0batno)+"\n"
;print TX battery %batno% 
res=sw(snd)
if batno==5 {
batno=0
endif

;suma total current reading as we want total
cur=curr[1]+curr[2]+curr[3]+curr[4]+curr[5]
pow=volt[-2]*cur
}

>R
;close serial port
sc()

#wtime
if wm==0 {
;show time, weekday and date
wcs {s}<h1 style="color:lime;font-size:15px;">%0day% %is[month]% %0year%%hs1%yellow;'>%2.0hours%:%2.0mins%:%2.0secs%<br> 
    dp(2 0)
    ps=s(int(sunrise/60))+":"+s(sunrise%60)
    str=s(int(sunset/60))+":"+s(sunset%60)
    res=sunset-sunrise
    tm=s(int(res/60))+":"+s(res%60)
    wcs {s}??%ps%%hs1%lightgreen;'><---%tm%--->  %str%??{e}<br>
    dp(0 2)
}
<br>

>W
%=#wtime
<hr><H1>
Tension %hs1%yellow;'>%0vol%V | Corriente %cu%A
Potencia %hs1%yellow;'>%0po%W | Factor de potencia %fac%
Consumo ayer %hs1%yellow;'>%3pa%W | Consumo hoy %3ph%W
;<hr>
<H2>Carga :%hs1%aqua;'><H2>%0coul[-2]%%% | %0(coul[-2]*96)%W
;<hr>
Total%hs1%Orange;'>%2volt[-2]%V | %1cur%A | %0pow%W | %0temp[-2]%C 
<hr></H2>
Bat 1 2024%hs1%yellow;'>%2volt[1]%V | %1curr[1]%A | %1temp[1]%C | %0coul[1]%%% | %is1[1]% | %is2[1]%
Bat 2 2020%hs1%yellow;'>%2volt[2]%V | %1curr[2]%A | %1temp[2]%C | %0coul[2]%%% | %is1[2]% | %is2[2]%
Bat 3 2018%hs1%yellow;'>%2volt[3]%V | %1curr[3]%A | %1temp[3]%C | %0coul[3]%%% | %is1[3]% | %is2[3]%
Bat 4 2025%hs1%yellow;'>%2volt[4]%V | %1curr[4]%A | %1temp[4]%C | %0coul[4]%%% | %is1[4]% | %is2[4]%
Bat 5 2025%hs1%yellow;'>%2volt[5]%V | %1curr[5]%A | %1temp[5]%C | %0coul[5]%%% | %is1[5]% | %is2[5]%