Electric Power processor for Raspberry Pi
 
 'Receives UDP transmissions from the Power network sensor
 'http://www.codenquilts.com.au
 'Michael Ogden Aug 2019
 'ver 0.7
 'Use of TCP sockets reworked to use one at a time
 '
 option explicit
 option default none
 dim integer nogridpower
 dim integer upower,spower,ginpower,goutpower
 dim r$,d$,s$,f1$,f2$,f3$,f4$
 dim cr$=chr$(13)+chr$(10)
 dim string q=chr$(34)
 Dim APIKEY$="&apikey=d0fd780e6da5c4bccb6c726dd5dbb21c"
 
 '  Dim integer i,j,rlen
 '  Dim m%(4000)
 '  dim l%,count%
 '  'dim ret$,d$,s$,,f5$,f6$,f7$,f8$
 '  'dim p10$,s10$
 '
 randomize timer
 Do
   nogridpower=0
   'first get latest solar and Grid power values
   spower=val(GetUDP$("solar"))
   upower=val(GetUDP$("count"))
   if upower=0 then nogridpower=1
   upower=upower*3600/10
   'check solar contribution
   if nogridpower<>1 then
     ginpower=upower
     goutpower=0
     upower=upower+spower  'add solar to grid power
   else                    'solar is greater than grid input
     print "else calc"
     'so apply just an average grid usage and the balance as grid out
     upower=Int((500-400 * Rnd) + 400)
     ginpower=checkpos(upower-spower)
     goutpower=checkpos(spower-upower)
   endif
   '
   logpower
 loop
 
end
 
 
function checkpos(v%)as integer
 checkpos=v%
 if v%<0 then checkpos=0
end function
 
function GetUDP$(Pair$)
 'open UDP Socket and process inputs
 'exit when selected pair received
 local a1$,b$
 local c%
 on error skip
 udp close
 on error skip
 tcp close
 udp server 5001
 do
   pause 500
   on error skip
   UDP receive a1$,b$,c%
   'print a1$,b$,c%
   '
   if c%>0 then
     'print a1$
     r$=valuepair$(a1$,pair$)
     if r$<>"" then
       GetUDP$=r$
       exit do
     end if
   end if
 loop
 on error skip
 udp close
end function
 
 
sub logpower
 print "latest watts";upower
 print "latest Solar";spower
 print "to Grid";goutpower
 print "from Grid";ginpower
 '
 f1$="usage_W:"+str$(upower)+","
 f2$="solar_W:"+str$(spower)+","
 f3$="grid_out:"+str$(goutpower)+","
 f4$="grid_in:"+str$(ginpower)
 '
 d$="{"+f1$+f2$+f3$+f4$+"}"
 on error skip
 udp close
 on error skip
 tcp close
 on error skip
 tcp client "192.168.0.18",80
 s$= "GET /input/post.json?node=emontx&json="+d$+apikey$
 s$=s$+" HTTP/1.0"+cr$+cr$
 print s$
 on error skip
 TCP send s$
 Print ""
 on error skip
 tcp close
end sub
 
 
 
 'replaceString$(string$, replaceWhat$, replaceWith$)
FUNCTION replace$(R$, a$, b$)
 local integer i,j,c,d
 d=1
 replace$=R$
 i = LEN(a$) : j = LEN(b$)
 do while INSTR(d,replace$, a$) > 0
   c = INSTR(d,replace$, a$)
   replace$ = LEFT$(replace$, c-1) + b$ + MID$(replace$, c+i)
   d = c+j
 loop
END FUNCTION
 
 'ValuePair Function: Returns the value in ValuePair$ of Vparam$
 'in the string Vpair$
function ValuePair$(Vpair$,VParam$)
 local integer a,c,b
 Vpair$=replace$(Vpair$,"{","")
 Vpair$=replace$(Vpair$,"}",",")
 Vpair$=replace$(Vpair$,":","")
 b=len(Vparam$)+1
 a=instr(Vpair$,Vparam$)
 if a>0 then 'retrieve value
   if right$(Vpair$,1)<>"," then
     Vpair$=Vpair$+","
   end if
   c=instr(a+b,Vpair$,",")
   if c>0 then
     ValuePair$=mid$(Vpair$,a+b,c-(a+b))
   endif
 endif
end function