Section 7. Installation
CRBasic Example 24.
Groundwater Pump Test
'This program example demonstrates the use of multiple scans in a program by running a
'groundwater pump test. Note that Scan() time units of Sec have been changed to mSec for
'this demonstration to allow the program to run its course in a short time. To use this
'program for an actual pump test, change the Scan() instruction mSec arguments to Sec. You
'will also need to put a level measurement in the MeasureLevel subroutine.
'A groundwater pump test requires that water level be measured and recorded
'according to the following schedule:
'Minutes into Test Data-Output Interval
'----------------- --------------------
' 0-10 10 seconds
' 10-30 30 seconds
' 30-100 60 seconds
' 100-300 120 seconds
' 300-1000 300 seconds
' 1000+ 600 seconds
'Declare Variables
Public
PTemp
Public
Batt_Volt
Public
Level
Public
LevelMeasureCount
As Long
Public
ScanCounter(6)
As Long
'Declare Data Table
DataTable
(LogTable,1,-1)
Minimum
(1,Batt_Volt,FP2,0,False)
Sample
(1,PTemp,FP2)
Sample
(1,Level,FP2)
EndTable
'Declare Level Measurement Subroutine
Sub
MeasureLevel
LevelMeasureCount = LevelMeasur 1
'Included to show passes through sub-routine
'Level measurement instructions goes here
EndSub
'Main Program
BeginProg
'Minute 0 to 10 of test: 10-second data-output interval
Scan
(10,mSec,0,60)
'There are 60 10-second scans in 10 minutes
ScanCounter(1) = ScanCounter(1) + 1
'Included to show passes through this scan
Battery
(Batt_volt)
PanelTemp
(PTemp,250)
Call
MeasureLevel
'Call Output Tables
CallTable
LogTable
NextScan
172
Summary of Contents for CR1000
Page 2: ......
Page 4: ......
Page 6: ......
Page 32: ......
Page 36: ......
Page 38: ......
Page 40: ......
Page 60: ...Section 4 System Quickstart Figure 16 PC200W View Line Graph 60 ...
Page 96: ......
Page 98: ...98 ...
Page 302: ......
Page 453: ...Section 8 Operation Figure 115 Using the Keyboard Display 453 ...
Page 456: ...Section 8 Operation Figure 118 Real Time Custom 456 ...
Page 457: ...Section 8 Operation 8 8 1 3 Final Memory Tables Figure 119 Final Memory Tables 457 ...
Page 458: ...Section 8 Operation 8 8 2 Run Stop Program Figure 120 Run Stop Program 458 ...
Page 460: ...Section 8 Operation Figure 122 File Edit 460 ...
Page 461: ...Section 8 Operation 8 8 4 PCCard Memory Card Display Figure 123 PCCard CF Card Display 461 ...
Page 478: ......
Page 506: ......
Page 536: ......
Page 636: ......
Page 642: ......
Page 644: ......
Page 676: ......
Page 677: ......