User's Manual

R e m o t e C o n t r o l a n d P r o g r a m m i n g R e f e r e n c e f o r t h e F L U K E 1 9 0 f a m i l y o f S c o p e M e t e r ® t e s t t o o l s
p a g e 8 0
PRINT #4, "SumCheck2 MOD 256 ="; SumCheck2% MOD 256
‘
‘***** 1 byte CR
C.R = ASC(MID$(Resp$, Resp.Count, 1))
IF C.R <> 13 GOTO Wave2.Error
Resp.Count = Resp.Count + 1
CLOSE #4: RETURN
Wave2.Error:
PRINT "Waveform sample error at byte :"; Resp.Count
PRINT "Waveform decimal byte value ="; ASC(MID$(Resp$,Resp.Count,1)
PRINT "SumCheck so far (MOD 256) ="; SumCheck2% MOD 256
CLOSE: END
‘
Create.CSV:
‘
‘*****
‘***** Convert the total Response string to file Wave.CSV
‘***** as input file for Excel (spreadsheet), for example.
‘*****
‘
OPEN "Wave.CSV" FOR OUTPUT AS #4
PRINT #4, "Title , ";
IF MID$(Query$, 4, 2) = "10" THEN
PRINT #4, "Input A"
ELSEIF MID$(Query$, 4, 2) = "11" THEN
PRINT #4, "TrendPlot Reading 1"
END IF
IF Trace.Result = 0 OR Trace.Result = 1 THEN
PRINT #4, "ID ,"; Trace.Result ‘Acquisition trace
PRINT #4, "Type , "; "Acquisition trace"
ELSEIF Trace.Result = 2 THEN
PRINT #4, "ID ,"; 2 ‘TrendPlot trace
PRINT #4, "Type , "; "TrendPlot trace"
END IF
PRINT #4, "Date , "; Month$+"/"+Day$+"/"+MID$(Year$,3,2)
PRINT #4, "Time , "; Hours$+":"Minutes$+":"+Seconds$
‘
‘***** X.Scale = time per division (over 10 divisions)
PRINT #4, "X Scale ,"; X.Scale
PRINT #4, "X At 0% ,"; X.Zero
PRINT #4, "X Resolution ,"; X.Resol
PRINT #4, "X Size ,"; Nbr.Of.Samples
PRINT #4, "X Unit , ";
IF X.Unit = 7 THEN PRINT #4, "s"
IF X.Unit = 10 THEN PRINT #4, "Hz"
PRINT #4, "X Label ,";
IF X.Unit = 7 THEN PRINT #4, X.Scale; "s/Div"
IF X.Unit = 10 THEN PRINT #4, X.Scale; "Hz/Div"
‘
PRINT #4, "Y Scale ,"; Y.Scale
PRINT #4, "Y At 50% ,"; Y.Zero
PRINT #4, "Y Resolution ,"; Y.Resol
PRINT #4, "Y Size ,";
IF Sample.Bytes = 1 THEN ‘1-byte samples
PRINT #4, 256
END IF ‘Range = 256
IF Sample.Bytes = 2 THEN ‘2-byte samples
PRINT #4, 65536
END IF ‘Range = 256*256
PRINT #4, "Y Unit , ";
IF Y.Unit = 1 THEN PRINT #4, "V"
IF Y.Unit = 2 THEN PRINT #4, "A"
IF Y.Unit = 3 THEN PRINT #4, "Ohm"
PRINT #4, "Y Label ,";
IF Y.Unit = 1 THEN PRINT #4, Y.Scale; "V/Div"
IF Y.Unit = 2 THEN PRINT #4, Y.Scale; "A/Div"
IF Y.Unit = 3 THEN PRINT #4, Y.Scale; "Ohm/Div"
‘