'CR1000 'Created by Short Cut (3.0) modified by AgriHouse.com 'Declare Variables and Units Public BattV Public PTemp_C Public DiffVolt(4) Public Mult(4)={1,1,1,1} Public Offs(4)={0,0,0,0} Units BattV=Volts Units PTemp_C=Deg C Units DiffVolt=mV 'Define Data Tables DataTable(Table1,True,-1) DataInterval(0,10,Sec,10) Average(1,DiffVolt(1),IEEE4,False)'leaf sensor #1 Average(1,DiffVolt(2),IEEE4,False)'leaf sensor #2 Average(1,DiffVolt(3),IEEE4,False)'leaf sensor #3 Average(1,DiffVolt(4),IEEE4,False)'leaf sensor #4 EndTable DataTable(Table2,True,-1) DataInterval(0,10,sec,10) Minimum(1,BattV,FP2,False,False) Average(1,PTemp_C,IEEE4,False) Average(1,BattV,IEEE4,False) EndTable 'Main Program BeginProg 'Main Scan Scan(1,Sec,1,0) 'Default Datalogger Battery Voltage measurement 'BattV' Battery(BattV) 'Default Wiring Panel Temperature measurement 'PTemp_C' PanelTemp(PTemp_C,_60Hz) 'Generic Differential Voltage measurements 'DiffVolt()' VoltDiff(DiffVolt(),4,AutoRange,1,True,0,_60Hz,Mult(),Offs()) 'Call Data Tables and Store Data CallTable(Table1) CallTable(Table2) NextScan EndProg '// Note: Leaf Sensor Connection '// Connected Leaf Sensor to 5vdc power source and ground (gnd) '// Leaf Sensor connected to analog input port:A0 (H) '// Note: How to read the leaf sensor signal val '// Leaf Sensor Not Affixed (NA) is the highest %. '// The Affixed (A) % is less than NA %. '// Thus (A%