'http://www.codenquilts.com.au
'Michael Ogden April 2018
'Credits
'Protocol John.Geek.nz
'Software original coding ideas - Tassie Jim
'La Crosse TX20 Anenometer communications
'
'mx170 version
DIM code$
dim integer isWind,wSpeed
dim float wDir


SETPIN 16, INTH, Wind ' triggers on a high

do
if isWind=1 then
print "Wind degrees:";wDir
Print "Wind Speed m/Sec:";wSpeed
print
end if
pause 3000
loop

SUB Wind
local integer s
code$=""
'timer=0
for s=1 to 5 'check for start frame , exit with fail if not correct
pause 0.42
IF PIN(16) = 1 THEN ' we went from low to high
code$ = code$ + "0"
ELSE ' we went from high to low
code$ = code$ + "1"
ENDIF
pause 0.42
next s
if code$<>"00100" then
isWind=0:wDir=0:wSpeed=0
exit sub
end if
for s=6 to 41
pause .42
IF PIN(16) = 1 THEN ' we went from low to high
code$ = code$ + "0"
ELSE ' we went from high to low
code$ = code$ + "1"
ENDIF
pause .42
next s
'print timer
'print code$
'print "start:";left$(code$,5)
isWind=1
wDir=val("&B"+endian$(mid$(code$,6,4),4))*22.5
wSpeed=val("&B"+endian$(mid$(code$,10,12),12))
' print "CheckSum:";endian$(mid$(code$,22,4),4)
' print "IwindDir:";endian$(mid$(code$,26,4),4)
' print "IwindSpeed:";endian$(mid$(code$,30,12),12)
END SUB

function endian$(en$,l%)
do
endian$=endian$+mid$(en$,l%,1)
l%=l%-1
loop until l%=0
end function

'Wind speed sensor interrupt
Sub anemometerClick
local thistime
thistime=Timer-anem_last 'thistime measures the time between pulses
thistimeW=thistime
anem_last=Timer
If thistime>5 Then 'only process if > 5mSec, for switch debounce
anem_count=anem_count+1 'Adds up pulses single pulse per/rotation
If thistime<anem_min Then 'If the time is less than 1 second
anem_min=thistime 'gust 'then thistime = gust
End If
'Print "Wind click" 'Prints this EVERY time the reed switch closes=**TEST USE ONLY - DELETE WHEN happy its working properly
'use this to check how many switch closures per revolution when turning by hand
end if
'print "Incr Anem counts:";anem_count;" This Pulse interval:";thistime;" Min Pulse interval:";anem_min
End Sub

'http://www.codenquilts.com.au
'Michael Ogden April 2018
'Credits
'Protocol John.Geek.nz
'Software original coding ideas - Tassie Jim
'La Crosse TX20 Anenometer communications
'
'mx170 version
'ver 1.03 (Oct 2018)

option autorun on
if mm.watchdog then Print "Reset error"
cpu 48
sub MM.STARTUP
'set Nowifi=1 if no ESP8266
'Nowifi=1
end sub
'Constants
const node$="ESP_Wind"
const serv$="ESP_Svr"
DIM code$,a$,c$
dim integer isWind,Wstop,xwdir,xwspeed
dim integer t,s
dim float wDir,wSpeed
'tv1 and tv2 delays, tv1 plus tv2 sets bit bang timing in this case ~ 1.2msec/bit
'tv1 sets the delay after "wind" interupt on pin 16 so sampling occurs ~ 350-400uSec
'after start of bit. tv2 sets the balance of 1.2mSec. In the case of MX170 @ default
'40MHz, tv1 can be set to zero and tv2=0.37. Timings shown below are for MX170 @
'48MHz. Other faster Micromites will require different settings for tv1 and tv2
dim float tv1=0.15
dim float tv2=0.46
'
SETPIN 16, INTh,Wind' triggers on a High or Low
setpin 10, dout
setpin 14, dout
pin(10)=0 'DTR
pin(14)=0
do
'***** mxWiFi Hook **** Network only
if userprocessflag=1 then
'StartTime = Timer
UserProcess
UserProcessFlag=0
xbsend "udp.send:|"+from$+"|"+chr$(4)+"|"
'Print "Processing elapsed time"; Timer-StartTime
watchdog 60000
continue do 'skip to a new loop immediately , there may be more external processing to do
endif
'***** End mxWiFi Hook ****
watchdog 60000
if isWind=1 then
print "Wind degrees/direction:";wDir;"/";winddir(wdir)
Print "Wind Speed m/Sec/km/h:";wSpeed;"/";wspeed*3.6
print
a$=str$(wdir) + "," + winddir(wdir)+ "," + str$(wspeed) +"," + str$(wspeed*3.6,3,1)
'UDP Network only transmission,data may be sent by other means
xbsend "udp.cast:|"+serv$+":|"+node$+"|Log|4|"+a$
WaitforReady 'reset flag
isWind=0
end if
pause 1000
loop

function WindDir(w as float)as string
select case w
case 0
WindDir="N"
case 22.5
Winddir="NNE"
case 45
Winddir="NE"
case 67.5
Winddir="ENE"
case 90
Winddir="E"
case 112.5
Winddir="ESE"
case 135
Winddir="SE"
case 157.5
Winddir="SSE"
case 180
Winddir="S"
case 202.5
Winddir="SSW"
case 225
Winddir="SW"
case 247.5
Winddir="WSW"
case 270
Winddir="W"
case 292.5
Winddir="WNW"
case 315
Winddir="NW"
case 337.5
Winddir="NNW"
case else
Winddir="-"
end select
end function


SUB Wind
for s=1 to 41 'sample frame
pause tv1
IF PIN(16) = 1 THEN ' we went from low to high
pin(14)=1:pause .1:pin(14)=0 'debug OSC calibration
code$ = code$ + "0"
ELSE ' we went from high to low
pin(14)=1:pause .1:pin(14)=0 'debug OSC calibration
code$ = code$ + "1"
ENDIF
pause tv2
next s
print code$
if left$(code$,5)="00100" then sig=1
xwdir= val("&B"+endian$(mid$(code$,6,4),4)) xor val("&B"+endian$(mid$(code$,26,4),4))
xwspeed= val("&B"+endian$(mid$(code$,10,12),12)) xor val("&B"+endian$(mid$(code$,30,12),12))
print sig;xwdir;xwspeed 'debug
if sig=1 and xwdir=15 and xwspeed=4095 then 'data verification
isWind=1
wDir=val("&B"+endian$(mid$(code$,6,4),4))*22.5
wSpeed=val("&B"+endian$(mid$(code$,10,12),12))/10
code$=""
else
isWind=0:wDir=0:wSpeed=0:code$=""
xwdir=0:xwspeed=0:sig=0:csum=0
end if
END SUB

function endian$(en$,l%)
do
endian$=endian$+mid$(en$,l%,1)
l%=l%-1
loop until l%=0
end function

'External command processing sub Routine if required, network only
sub extCmd
'print "External Commands:";from$;" ";cmd$;" ";cfg$;" ",strin$
end Sub