Fluke ScopeMeter 190 Series, Programming Reference Manual

Page: 85 / 120

’ Page 3.57
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$+":"M":"+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"
PRINT #4,
’