
Met One Rain Gage Models 380 and 385
5.1.1 CR200 Series Programming
'CR200 Series
'Example program showing measurement of a 380/385 sensor every 10 seconds.
'Declare Public Variables and Units
Public Rain_in
Units Rain_in=inch
'Define Data Tables
DataTable(Table1,True,-1) 'As an example store the data every 60 minutes.
DataInterval(0,60,Min)
Totalize(1,Rain_in,False)
EndTable
'Main Program
BeginProg
Scan(10,Sec)
'MetOne 380/385 Rain Gauge measurement Rain_in:
PulseCount(Rain_in,P_SW,2,0,0.01,0)
'Call Data Tables and Store Data
CallTable(Table1)
NextScan
EndProg
5.1.2 CR1000 Programming
‘CR1000
‘Example program showing measurement of a 380/385 sensor every 10 seconds.
‘Declare Variables and Units
Public Rain_in
Units Rain_in=inch
‘Define Data Tables
DataTable (Table1,True,-1)
DataInterval (0,60,Min,10) ‘As an example store the data every 60 minutes.
Totalize (1,Rain_in,FP2,False)
EndTable
‘Main Program
Begin Prog
Scan (10,Sec,1,0)
‘MetOne 380/385 Rain Gauge measurement Rain_in:
PulseCount (Rain_in,1,1,2,0,0.01,0)
‘Call Data Tables and Store Data
CallTable (Table1)
NextScan
End Prog
11
Komentarze do niniejszej Instrukcji