TB 9-6625-173-24
APPENDIX A - CONTINUED
2V_DACadj.CR1
--------------------------------Program #3-----------------------------
'Program: Neg2V_DACadj.CR1
Const Range = mV2_5
Public Flag(8)
Public Batt
Public Diff1
BeginProg
Scan(1,sec,4,0)
Battery (Batt)
VoltDiff (Diff1,1,mV2_5,1,True,0,250,1.0,0)
ExciteV(Vx1,-2000,0)
AbortScan
NextScan
EndProg
PERFORMANCE CHECK PROGRAM
Verify Analog Ranges
--------------------------------Program #4-----------------------------
'Program: Rangetst.CR1
'This program tests the accuracy of all of the analog ranges using both
'single ended and differential measurement instructions on channel 1.
Public RangeDif1, RangeSE1
Public Flag(6)As Boolean
Flag 1 - 6, RangeDif1, Battery, Lithium Battery, and Panel Temperature
Sub Rng5000
Scan (1,Sec,3,0)
VoltSe (RangeSE1,1,mV5000,1,1,0,_60Hz,1.0,0)
VoltDiff (RangeDif1,1,mV5000,1,True,0,_60Hz,1.0,0)
If Flag(1)= False Then
ExitScan
EndIf
NextScan
EndSub
A-2
