
Model 237 Leaf Wetness Sensor
'Check if Leaf wetness is below 150 kOhms transition and count as time dry
If Rs_kohm < 150 AND Rs_kohm > 0 Then
ScanIntervalWet = ScanIntervalWet + 1
EndIf
'Calculate Time Fraction Wet at top of each hour
If IfTime (0,60,Min) Then 'Interval must match data table interval
TimeFractionWet = ScanIntervalWet / ScanIntervalSum
ScanIntervalWet = 0
ScanIntervalSum = 0
EndIf
CallTable (Wetness)
NextScan
EndProg
4.3 CR10(X) Programming Example
*Table 1 Program
01: 60 Execution Interval (seconds)
1: AC Half Bridge (P5)
1: 1 Reps
2: 13 25 mV Fast Range
3: 1 SE Channel
4: 1 Excite all reps w/Exchan 1
5: 2500 mV Excitation
6: 1 Loc [ Vs_Vx ]
7: 1 Multiplier
8: 0 Offset
2: Z=1/X (P42)
1: 1 X Loc [ Vs_Vx ]
2: 2 Z Loc [ Rs_kOhms ]
3: Z=X+F (P34)
1: 2 X Loc [ Rs_kOhms ]
2: -101 F
3: 2 Z Loc [ Rs_kOhms ]
4: If time is (P92)
1: 0 Minutes (Seconds --) into a
2: 60 Interval (same units as above)
3: 10 Set Output Flag High (Flag 0)
5: Real Time (P77)
1: 1220 Year,Day,Hour/Minute (midnight = 2400)
6: Sample (P70)
1: 1 Reps
2: 2 Loc [ Rs_kOhms ]
5
Komentarze do niniejszej Instrukcji