'CR800 Series Datalogger
'TTS rain gage test program
'Program interval is 5 sec.
'Displays tips (0.01") from the rain gage tipping bucket for 5 sec. period as "rain"
'Rain is accumulated for the duration of the program run time as "total"
'Connect rain gage to pulse channel 1 (P1)
'Program date: 3/29/2007
'Program author: R. Eads, RiverMetrics LLC

'\\\\\\\\\\\\\\\\\\\\\\\\\ DECLARATIONS /////////////////////////

PreserveVariables
Public rain
Public total
Public tips

'\\\\\\\\\\\\\\\\\\\\\\\\\\\ MAIN PROGRAM ////////////////////////////

BeginProg
   SequentialMode
   tips = 0
   total = 0
   Scan(5,Sec, 3, 0)
      PulseCount(tips, 1, 1, 2, 0, 0.01, 0)
      rain = rain + tips   'Acuumulate total tips/interval
      total = rain + total 'Total tips while program runs
      rain = 0
   NextScan
EndProg

'\\\\\\\\\\\\\\\\\\\\\\\\\\\ END MAIN PROGRAM ////////////////////////////