const reedinput=2 'any pin with interrupt capability
const readrate=2000' time in msec between sampling counter
setpin reedinput,INTL,countpulses, PULLUP 'set up an interrupt on negative going edges
settick readrate,updatepulserate 'set up an interrupt every "readrate" milliseconds
DIM integer pulserate, pulsecounter=0

do
print pulserate
pause readrate
loop

sub countpulses 'interrupt routine called when a negative going pulse arrives
pulsecounter=pulsecounter+1
end sub

sub updatepulserate 'called every readrate milliseconds
pulserate=pulsecounter
pulsecounter=0
end sub

'
'Michael Ogden
'April 2015
'
'Weather Station. metxx.bas

'Wind and Rain sensor code adapted from Sparkfun code

'
'Option Explicit
'Option Default Integer
Option autorun On
Cpu 48

'Constants
Const swVer="0.5"
Const redLed=9
Const DHT22pin=15
Const wSpeedPin=6
Const wDirPin=7
Const WindFactor=2.4
Const TestPause=30000
Const RainPin=5
Const RainFactor=0.2794
Const ADCFactor=0.0032258




' Setup BMP085/BMP185 pressure sensors
' TassyJim 28 Oct 2014

Dim BMPData(2) ' store data from BMP085
Dim cal(11) ' calibration data
oss = 0 ' over sampling 0 to 3
alt = 86 ' your altitude in metres

BMP085calMEM = &HAA ' start of 11 calibration values
BMP085address = &H77 ' BMP085 address
BMP085control = &HF4 ' BMP085 control register
BMP085temp = &H2E ' BMP085 temperature command
BMP085pres = &H34 ' BMP085 pressure command
BMP085pres = BMP085pres + oss*&H40 ' adjust command for oversampling
BMP085reading = &HF6 ' register for results of reading

I2c Open 400, 200 ' Enable I2C. use slow speeds for long leads
Pause 20
z = Calibrate() ' read the calibration data
' End Setup BMP085/BMP185 pressure sensors

'Define I/O

Setpin redLed,Dout
Setpin wSpeedPin, Intl,anemometerClick,Pullup
Setpin RainPin, Intl,rainguageClick,Pullup
Setpin wDirPin,Ain

' Array
Dim wArray(10)
Dim wdArray(10)
'
' Global variables
anem_count=0
anem_last=0
anem_min=1000
HGust=0
rain_count=0
rain_last=0
wCount=1
wdCount=1
'

'Init xb communications
InitxbComm 'initialise comms
iDeviceID=25 'Device ID
Status=3 'Callhome
xbWake 'Xbee wake

Init:
Watchdog 8000
'interupts
Settick 1000 ,T1,1 'establish seconds "Tick Timer"


Pause 1000
iCheckTimeFlag=1

'*** start main program loop
Main:
Do
'StartTime = Timer
Pause 1000
Watchdog 8000
Pulse RedLed, 200
If iCheckTimeFlag=1 Then ReqNetworkTime 'Periodic time Update from Server
'Print "Seconds:";secs
Select Case secs Mod 5

'every 5 secs
Case 0

windDirProc
Print wDir;" ";wadc;" ";wHeading
'SendDataUpdate

End Select

Select Case secs
Case 30
windSpeedProc
Case 60
windSpeedProc
rainProc
readhumidity
BMP085read
Print ""
Print "Time:";Time$
Print wDir;" ";wadc;" ";wHeading
Print "AvgWindSpeed:";wspeed
Print "Windgust:";wgust
Print "Highest Daily Windgust:";Hgust
Print "Rain:";mmrain
Print "Outside Temperature: " Str$(dhtTEMP,3,1);" Humidity: " Str$(dhtHUMID,3,1)
Print "T(BMP085):";Str$(t,3,1);" P(sl):";Str$(p0/100,5,1)

SendDataUpdate
End Select

Select Case mins

Case 5,10,15,20,25,30,35,40,45,50,55,60
'Print "5 mins_ Sending Data Update"
'SendDataUpdate
End Select

'Periodic housekeeping


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

'Sub routines
'rainguage sensor interrupt
Sub rainguageClick
thistime=Timer-rain_last
rain_last=Timer
If thistime>10 Then
rain_count=rain_count+1
'Print "Rain click"
End If

End Sub

'Wind speed sensor interrupt
Sub anemometerClick
thistime=Timer-anem_last
anem_last=Timer
If thistime>2 Then 'only process if > 2mSec, for debounce
anem_count=anem_count+1
If thistime<anem_min Then
anem_min=thistime 'gust
End If
'Print "Wind click"
Else
anem_count=0
End If
'print "Counts:";anem_count;" Time:";thistime;" Min Time:";anem_min
End Sub

'Wind Direction data process
Sub WindDirProc
wdResult=0
wDir=Pin(wDirPin)
'wADC=Int(wDir/ADCfactor) 'convert voltage to adc value
'wDirADC=Int(Pin(wDirPin)*0.00324)
select case wdir
case 2.4 to 2.6
wheading=0
'case 1.15 to 1.25
'wheading=22.5
case 1.4 to 1.6
wheading=45.0
'case .25 to .27
'wheading=67.5
case .35 to .65
wheading=90.0
'case .2 to .25
'wheading=112.5
case .66 to .95
wheading=135.0
'case .
'wheading=157.5
case .85 to 1.15
wheading=180.0
'case 291 to 304
'wheading=202.5
case 1.95 to 2.15
wheading=225.0
'case 585 to 605
'wheading=247.5
case 2.85 to 3.15
wheading=270.0
'case 816 to 836
'wheading=292.5
case 2.7 to 2.95
wheading=315.0
'case 692 to 712
'wheading=337.5
case ELSE
wheading=lastreading
end select
'For x=1 To 9 'move data up array
' wdArray(x)=wdArray(x+1)
'Next x
'wdArray(10)=wHeading 'place latest reading in Array
'For x=1 To 10 'addup all data in array
' wdResult=wdResult+wdArray(x)
'Next x
'wdCount=wdCount+1
'If wdCount=10 Then wdCount=1
'wHeading=wdResult/10 'get average the the last 10 wind dir samples
lastreading=wheading
End Sub

'Wind Speed data process
Sub WindSpeedProc
wResult=0
'Print "Counts:";anem_count;" Time:";thistime;" Min Time:";anem_min
'calc wind average
reading=anem_count
anem_count=0
wSpeed=(windfactor*reading)/(testpause/1000)
'calc Gust
'Print "Wind Count:";wcount
'Print "ActualWindSpeed:";wspeed
reading=anem_min
anem_min=1000
wGust=(1/(reading/1000))*windfactor
For x=1 To 9 'move data up array
wArray(x)=wArray(x+1)
Next x
wArray(10)=wSpeed 'place latest reading in Array
For x=1 To 10 'addup all data in array
wResult=wResult+wArray(x)
Next x
wCount=wCount+1
If wCount>10 Then wCount=1
wSpeed=wResult/10 'get average the the last 10 wind samples
If wgust>hgust Then hgust=wgust
'Print "WindSpeedArray:";wresult
'Print "AvgWindSpeed:";wspeed
'Print "Windgust:";wgust
'Print "Highest Windgust:";Hgust
End Sub

'Rain sensor process
Sub RainProc
reading=rain_count
rain_count=0
mmRain=mmRain + (reading*rainfactor)
'Print "Rain:";mmrain
End Sub

'Humidity Sensor
Sub readhumidity
Dht22 DHT22pin, dhtTEMP, dhtHUMID ' dump stale reading
'Print Time$;" Temperature: " Str$(dhtTEMP,3,1);" Humidity: " Str$(dhtHUMID,3,1)
End Sub

'End of Sensor routines