![Campbell ARG100 Скачать руководство пользователя страница 13](http://html1.mh-extra.com/html/campbell/arg100/arg100_user-manual_3777426013.webp)
User Guide
5
4.1.1 CR1000 Example Program
'CR1000
'ARG100 Tipping
Blk > P1
' Clr
>
ground
Public Rain_mm
Units Rain_mm=mm
DataTable(Rain,True,-1)
DataInterval(0,60,Min,0)
Totalize(1,Rain_mm,FP2,0)
EndTable
BeginProg
Scan(1,Sec,1,0)
PulseCount(Rain_mm,1,1,2,0,0.2,0)
CallTable(Rain)
NextScan
EndProg
4.1.2 CR200(X) Series Example Program
'CR200(X) Series
'ARG100 Tipping
Blk > P_SW
' Clr
>
ground
'Declare Variables and Units
Public Rain_mm
Units Rain_mm=mm
'Define Data Tables
DataTable(Rain,True,-1)
DataInterval(0,60,Min)
Totalize(1,Rain_mm,0)
EndTable
'Main Program
BeginProg
Scan(1,Sec)
'ARG100 Rain Gauge measurement Rain_mm:
PulseCount(Rain_mm,P_SW,2,0,0.2,0)
'Call Data Tables and Store Data
CallTable(Rain)
NextScan
EndProg