'http://www.codenquilts.com.au
'Michael Ogden March 2016
'uM Wifi Clock Weather
'Code Portions Geoff Graham

Option Explicit
Option Default Integer
Option autorun On

'Constants
'Define I/O
'Global variables
Dim string IDPdata(100) length 50
Dim Secs,r
dim esp$,buff$,lastwind$
dim Queue$(20) length 80 'transmit queue to ESP8266

'intialise modules

'Initialise Arrays
idpdata(0)="uM Wifi Clock ver 1.1" 'software version number
idpdata(48)="no weather conditions to display"
idpdata(49)="Town"
idpdata(51)="Min"
idpdata(52)="Max"

'time array values
idpdata(01)=left$(time$,2)
idpdata(02)=mid$(time$,4,2)
idpdata(03)=mid$(time$,7,2)
idpdata(6)="NTP Date"
'init ESP8266 communications
Open "com2:9600,1024" As #2 'initialise commS
'interupts
Settick 1000 ,T1,1 'establish seconds "Tick Timer"

' now draw the display
CLS
'GUI Interrupt TouchDown, TouchUp
text 80,0,idpdata$(6),,1,2,rgb(green)
box 0,30, mm.hres-1,60,3,rgb(red), rgb(blue)
weatherupdate
'queue initial requests
r=espQueue("time:") 'try to get NTP time data
r=espQueue("owm:") 'get weather data

'*** start main program loop
Do
'StartTime = Timer
Watchdog 8000

esp$=Input$(1,#2)
Print esp$; 'data from ESP8266
buff$=buff$+esp$
if esp$=chr$(10) or esp$=chr$(62) or esp$=chr$(125) then
if esp$=chr$(10) then 'terminator is line feed

if instr(buff$,"NTP:") then
idpdata(6)= mid$(buff$,5,10) + " " + right$(buff$,5)
text 80,0,idpdata$(6),,1,2,rgb(green)
time$=parseb$(buff$,4," ") 'set the clock from NTP
endif

elseif esp$=chr$(62) then 'terminator is >

if instr(buff$,"getdata:>") then
'print "Queue items:";r
SendEsp 'send next item in the queue, success is in r
endif
'
else 'terminator is }
'json
'print
'print buff$
'print
parseJson
endif
buff$="" 'clear string
endif

'Print "Loop elapsed time"; Timer-StartTime
Loop
'***** End main program loop
End



'**************** sub routines *********************

'T1 - 1second Tick interrupt
'set up some time flags
Sub T1
secs=secs+1 'update seconds timer
text mm.hres/2,60,time$,cm,1,4,rgb(cyan),rgb(blue)

'if touch(x)<>-1 then end

if secs mod 15 =0 then 'every 15 secs
weatherupdate
endif

if secs mod 30 =0 then 'every 15 secs
r=espQueue("owm:") 'try to get weather data
endif

if secs mod 60 =0 then 'every 60 secs

endif

if secs mod 1800 =0 then 'every 30 minutes

endif

if secs mod 43200 =0 then 'every 12 hours
r=espQueue("time:") 'try to get NTP time data
endif

if secs => 86400 then '24 hrs reached
secs = 0 'reset counter
endif

End Sub


sub WeatherUpdate
text 0,95,idpdata(49) + " Forecast",,1,2,rgb(green)
text 0,125,"Weather:",,1,1,rgb(white)
text 80,125,left$(idpdata(48)+space$(30),30),,1,1,rgb(white)
text 0,145,"Temp Deg C",,1,1,rgb(white)
text 95,145,idpdata(51) + " to " + idpdata(52),,1,1,rgb(white)
text 0,165,"Curr Temp: " + idpdata(34) + " 'C",,1,2,rgb(green)
text 0,195,"Wind: " + idpdata(38) + " at "+ idpdata(37) + " km/h "
text 0,215,"Pressure: "+ idpdata(36) + "hPa Humidity "+ idpdata(35) + "% "
end sub

sub parseJson
local temp!
'print buff$
if instr(buff$,"temp") then
temp!=val(jsonValue$(buff$,"temp",6))
idpdata(34)= str$(temp!,0,1)
endif
if instr(buff$,"temp_min") then
temp!=val(jsonValue$(buff$,"temp_min",10))
idpdata(51)= str$(temp!,0,1)
'print "OWM Temp Min";idpdata(51)
endif
if instr(buff$,"temp_max") then
temp!=val(jsonValue$(buff$,"temp_max",10,chr$(125)))
idpdata(52)= str$(temp!,0,1)
'print "OWM Temp Max";idpdata(52)
endif
if instr(buff$,"humidity") then
idpdata(35)= jsonValue$(buff$,"humidity",10)
endif
if instr(buff$,"pressure") then
idpdata(36)=jsonValue$(buff$,"pressure",10)
endif
if instr(buff$,"speed") then
temp!=val(jsonValue$(buff$,"speed",7))*3.6
idpdata(37)=str$(temp!,0,1)
endif
if instr(buff$,"deg") then
temp!=val(jsonValue$(buff$,"deg",5,chr$(125)))
idpdata(38)=wheading$(temp!)
print "OWM Wind direction";idpdata(38)
endif
if instr(buff$,"description") then
idpdata(48)=jsonValue$(buff$,"description",14,chr$(34))
' print "OWM Rain";idpdata(48)
endif
if instr(buff$,"name") then
idpdata(49)=jsonValue$(buff$,"name",7,chr$(34))
' print "OWM City Name";idpdata(49)
endif
if instr(buff$,"icon") then
idpdata(50)= jsonValue$(buff$,"icon",7,chr$(34)) + ".bmp"
endif
end sub

function jsonValue$(json$,jsonParam$,b,d$)
local a,c
'print "json$:";json$
'print "jsonparam$:";jsonparam$
'print b
if d$="" then d$=","
'locate parameter
a=instr(json$,jsonparam$)
'print "A is:";a
if a>0 then 'retrieve value
c=instr(a+b,json$,d$)
if c>0 then
jsonvalue$=mid$(json$,a+b,c-(a+b))
endif
endif
end function

function espQueue(store$)
local e
espqueue=0
for e=1 to 20
if queue$(e)="" then
queue$(e)=store$
espqueue=e
exit for
endif
next e
'if the store failed then espQueue will be 0
end function

sub SendESP
local e
'send from top of queue if its not empty
if queue$(1)<>"" then
print #2,queue$(1)
print queue$(1)
endif
'move up items is queue
for e=2 to 20
queue$(e-1)=queue$(e)
next e
queue$(20)="" 'make the last item empty
end sub

sub SendESPNow(strout$)
'send immediately to ESP8266)
print #2,strout$
print queue$(1)
end sub

'Wind Direction data process
Function wHeading$(adc!)
select case adc!
case 101.25 to 123.75
wHeading$ = "ESE"
case 56.25 to 78.75
wHeading$ = "ENE"
case 78.75 to 101.25
wHeading$ = "E"
case 146.25 to 168.75
wHeading$ = "SSE"
case 123.75 to 146.25
wHeading$ = "SE"
case 168.75 to 191.25
wHeading$ = "S"
case 10 to 33.75
wHeading$ = "NNE"
case 33.75 to 56.25
wHeading$ = "NE"
case 191.25 to 213.75
wHeading$ = "SSW"
case 213.75 to 236.25
wHeading$ = "SW"
case 326.25 to 348.75
wHeading$ = "NNW"
case 348.75 to 10
wHeading$ = "N"
case 281.25 to 303.75
wHeading$ = "WNW"
case 303.75 to 326.25
wHeading$ = "NW"
case 258.75 to 281.25
wHeading$ = "W"
case else
wHeading$=lastwind$
end select
lastwind$=wHeading$
End Function


'********************* Library Code **************************

Function Parse$(s$,FieldNumber,d$)
Local String stringArg$
Local Integer intOldY,intY,intX
if d$="" then
d$=","
endif
StringArg$ = S$ + d$
intOldY = 1:intX=0:intY=0
Parse$ = ""
do While intY < Len(StringArg$) And intX < FieldNumber
intY = Instr(intOldY, StringArg$, d$)
intX = intX + 1
If intX = FieldNumber Then
parse$ = Mid$(StringArg$, intOldY, intY - intOldY)
Endif
intOldY = intY + 1
loop
'print s$; intx; inty; intoldy
End Function

Function Parseb$(sb$,FieldNumberb,db$)
Local String stringArgb$
Local Integer intOldYb,intYb,intXb
if db$="" then
db$=","
endif
StringArgb$ = Sb$ + db$
intOldYb = 1:intXb=0:intYb=0
Parseb$ = ""
do While intYb < Len(StringArgb$) And intXb < FieldNumberb
intYb = Instr(intOldYb, StringArgb$, db$)
intXb = intXb + 1
If intXb = FieldNumberb Then
parseb$ = Mid$(StringArgb$, intOldYb, intYb - intOldYb)
Endif
intOldYb = intYb + 1
loop
End Function

Function Ltrim(sString As String)As String
ltrim=Str$(Val(sString))
End Function

memclear
serialprintln ""
serialprintln "Esp8266-Mcu Initialising......"
ver$ = "ESP8266-Mcu 1.3"
'connect "SSID" "yr Password" "Yr Local IP" "Yr Gateway IP" "255.255.255.0"
prompt$ = "getdata:"
serialflush
serialtimeout 2000
timesetup(11,0)
'setupemail "mail.smtp2go.com" 2525 "Youremail" "yourpassword"
f1 = 23.3
f2 = 78
f3 = 10
f4 = 1008
f5 = 23.3
f6 = 78
f7 = 12.6
f8 = 18.6
f9 = 120
f10 = 90
f11 = "0"
f12 = "0"
f13 = "0"
f14 = "0"
f15 = "0"
'default town and parameters for OWMap
'owmparam = "&units=metric&mode=json&appid=yourAPI"
owmtown = "Melbourne,AU" & owmparam
'Yr WEB Page here
cls
wprint "<br>"
wprint "<br>"
button "Exit" [quit]
timer 1000 [update]
wait

[update]
'goto [exitupdate]
input prompt$ str$
'serialprintln "length of Input:"
'serialprintln len(str$)
if len(str$) = 0 then goto [exitupdate]
if instr(str$,"sync:") > 0 then goto [parsedata]
gosub [parse]
cmd = field$
goto [command]
[parsedata]
gosub [parse]
sstatus = field$
gosub [parse]
f1 = field$
gosub [parse]
f2 = field$
gosub [parse]
f3 = field$
gosub [parse]
f4 = field$
gosub [parse]
f5 = field$
gosub [parse]
f6 = field$
gosub [parse]
f7 = field$
gosub [parse]
f8 = field$
gosub [parse]
f9 = field$
gosub [parse]
f10 = field$
gosub [parse]
f11 = field$
gosub [parse]
f12 = field$
goto [exitupdate]
[command]
if cmd == "time" then gosub [gettime]
if cmd == "email" then gosub [sendemail]
if cmd == "info" then gosub [getinfo]
if cmd == "quit" then goto [quit]
if cmd == "reboot" then reboot
if cmd == "net" then gosub [setnet]
if cmd == "ts" then gosub [thingspeak]
if cmd == "owm" then gosub [weather]
if cmd == "town" then gosub [changetown]
[exitupdate]
wait

[thingspeak]
input "gettsdata:" str$
gosub [parse]
sstatus = field$
gosub [parse]
ts.key$ = field$
gosub [parse]
ts.fieldnum$ = field$
gosub [parse]
ts.fielddata$ = field$
sendts(ts.key$,ts.fieldnum$,ts.fielddata$)
return

[setnet]
input "getnetwork:" str$
gosub [parse]
sstatus = field$
gosub [parse]
net.name$ = field$
gosub [parse]
net.password$ = field$
gosub [parse]
net.ip$ = field$
gosub [parse]
net.gateway$ = field$
gosub [parse]
net.mask$ = field$
if net.ip$ == "" then [auto] else [static]
[static]
connect net.name$ net.password$ net.ip$ net.gateway$ net.mask$
goto [exitsetnet]
[auto]
connect net.name$ net.password$
[exitsetnet]
gosub [getinfo]
return

[sendemail]
input "getemail:" str$
gosub [parse]
sstatus = field$
gosub [parse]
address$ = field$
gosub [parse]
reply$ = field$
gosub [parse]
subject$ = field$
gosub [parse]
body$ = field$
email address$ reply$ subject$ body$
return

[getinfo]
serialprintln ""
serialprint "Version:"
serialprintln ver$
serialprint "IP:"
serialprintln ip()
read "WIFIname" blaWIFIssid
serialprint "SSID:"
serialprintln blaWIFIssid
serialprint "FlashFree:"
serialprintln flashfree()
serialprint "RamFree:"
serialprintln ramfree()
return

[gettime]
ntp$ = time()
ntp$ = "NTP:" & ntp$
serialprintln ntp$
return

[parse]
field$ = ""
delim = instr(str$,":")
field = delim - 1
rest = len(str$) - delim
field$ = left(str$,field)
str$ = right(str$,rest)
'serialprintln "Parse"
'serialprintln field$
'serialprintln str$
'serialprintln
return

[changetown]
input "gettown:" str$
gosub [parse]
owmtown = field$ & owmparam
return

[weather]
owmbla = "api.openweathermap.org/data/2.5/weather?q=" & owmtown
serialprint wget(owmbla)
return

[quit]
timer 0
wprint "<a href='/'>Menu</a>"
end