Keithley 2182 User Manual page 167

FOR j = 1 TO (CalcReadings)
Chan2! = Readings!(k%) - Reading!(k% + NumRdgsPerStep)
Chan2! = Chan2! / 2
DataCH2$(j) = STR$(Chan2!)
CH1pos! = 0!
CH1neg! = 0!
FOR i = 1 TO (NumRdgsPerStep - 1)
CH1pos! = CH1pos! + Reading!(k% + i)
CH1neg! = CH1neg! + Reading!(k% + i + NumRdgsPerStep)
NEXT i
Chan1! = ((CH1pos! - CH1neg!) / ((NumRdgsPerStep - 1) * 2))
DataCH1$(j) = STR$(Chan1!)
k% = k% + (NumRdgsPerStep * 2)
NEXT j
'Printing results to a file
OPEN "chan1.xls" FOR OUTPUT AS #1
OPEN "chan2.xls" FOR OUTPUT AS #2
FOR i = 1 TO CalcReadings
NEXT i
CLOSE #1
CLOSE #2
Stepping and Scanning
'this will place chan1.xls in your
'current working directory
'this will place chan2.xls in your
'current working directory
PRINT #2, DataCH2$(i)
PRINT #1, DataCH1$(i)
'close the chan1.xls file
'close the chan2.xls file
9-19