Specifications

Timer(2,sec,2)

TimeSince12Von = Timer(2,sec,4)

'Do the measurements

'\'SerialOpen(com2,4800,0,0,150)'due to a possible bug in the CR1000 OS, i

'Wiring Panel Temperature measurement PTemp_C:

PanelTemp(PTemp_C,_50Hz)

ExciteV(Vx3,2500,0)'This MUST be right after any bridge, P107 and Pa

'get a feel of the season...

RealTime(RTime)

If DayOfYear >= BeginOfSummer AND DayOfYear < BeginOfWinter Then IsSummer = Tr

'open COM2 for the Garmin GPS (com2 gets closed when SW12 goes off, so thet

' SerialOpen(com2,4800,0,0,2000)

'do now whatever needs the 12V switched supply to be ON but doesn't use the

'Enables the MUX by bringing its _RES input high and then explicitly resets t

PortSet(1,1) 'brings the _RES input on the MUX high (means the MUX is in ope

Delay(0,1,sec)'waits for the MUX to be fully awake after SW12V came up and _R

PulsePort(1,20000) 'pulses low the _RES input on the MUX for 20 ms

'advances to MUX differential channel 1 and measures Young Wind Direction Sens

'(optimized solution to to share the same MUX position). So, first measure Win

PulsePort(2,5000)

Delay(0,20,msec)' allows for settling time

PulseCount(WS_ms,1,1,1,1,0.098,0)

BrHalf(WindDir,1,mV2500,14,1,1,2500,True,0,_50Hz,355,0)''consider using fast

ExciteV(Vx3,2500,0)'This MUST be right after any bridge, P107 and Pa

If WindDir>=360 Then WindDir=0

'...then measure BP_mmHg from the CS100. This must never occur less than 1 se

VoltSe(BP_mmHg,1,mV2500,13,1,0,_50Hz,0.2,600.0)

BP_mmHg=BP_mmHg*0.75006

'cycles through and measures the 8 termistors in the termistor string and the

For it = 1 To TermStringSz Step 2

'first measure the thermistors

PulsePort(2,5000)' COULD THIS REPLACE THE FOLLOWING DELAY???

Delay(0,20,msec)' allows for settling time -> don't remove or measures gets

Therm107 (TermStringT(it),1,15,Vx3,20000,_50Hz,1.0,0)

Therm107 (TermStringT(it+1),1,16,Vx3,20000,_50Hz,1.0,0)

' Delay(0,300,msec)

'then measure the current shunts located at the same MUX position

VoltDiff (Currents((it+1)/2),1,mV7_5,7,True,0,_50Hz,200,0)'200 is for a sh

ExciteV(Vx3,2500,0)'This MUST be right after any bridge, P107 and Pa

'advances to MUX differential channel 11 and measures both the Xtilt and Ytilt

PulsePort(2,5000)

Delay(0,20,msec)

VoltSe(Xtilt,1,1,13,1,0,_50Hz,1,0)

VoltSe(Ytilt,1,1,14,1,0,_50Hz,1,0)

'advance the MUX to measure the 4 radiation signals from the CNR1 (can too be

PulsePort(2,5000)