
Appendix B. Example Programs
B.2 CR200(X) Series Example Program
'Program records precipitation from one TE525 or TE525WS Rain Gage once a
'second and stores the total every 60 minutes
'Wiring Diagram
'==============
'TE525 or TE525WS
' Wire
' Color Function CR1000
' ----- -------- ------
' Black Pulse Output P1
' White Ground AG*
' Clear Shield AG*
'*AG = Analog Ground (represented by ground symbol on CR200(X) wiring panel
'Declare the variables and units for the rain measurement
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)
'TE525/TE525WS Rain Gage measurement Rain_mm:
PulseCount(Rain_mm,P_SW,2,0,0.254,0)
'For TE525MM Rain Gage, use multiplier of 0.1 in PulseCount instruction
'Call Data Tables and Store Data
CallTable(Rain)
NextScan
EndProg
B-2
Commentaires sur ces manuels