
’ Page 3.58
’
’***** Sample values x,y (time,amplitude)
Time.Value = X.Zero
’Start at x-offset
MinMax.Flag = MinMax.Samples
’Switch flag (2, 1, 0)
FOR i = 1 TO Nbr.Of.Samples
IF (Signed.Samples = 0) OR (Sample.Value&(i) < CLimit) THEN
’Positive value
Amplit.Value = Sample.Value&(i) * Y.Resol
ELSE
’Negative value
Amplit.Value = - ((CMaxim - Sample.Value&(i)) * Y.Resol)
END IF
IF MinMax.Samples = 2 THEN
’Min/Max/Ave waveform
IF MinMax.Flag = 2 THEN
MinMax.Flag = MinMax.Flag - 1
PRINT #4, Time.Value; ","; Amplit.Value; ",";
ELSEIF MinMax.Flag = 1 THEN
MinMax.Flag = MinMax.Flag - 1
PRINT #4, Amplit.Value; ",";
ELSE
MinMax.Flag = 2
PRINT #4, Amplit.Value
Time.Value = Time.Value + X.Resol
END IF
END IF
IF MinMax.Samples = 1 THEN
’Min/Max waveform
IF MinMax.Flag = 1 THEN
MinMax.Flag = 0
PRINT #4, Time.Value; ","; Amplit.Value; ",";
ELSE
MinMax.Flag = 1
PRINT #4, Amplit.Value
Time.Value = Time.Value + X.Resol
END IF
END IF
IF MinMax.Samples = 0 THEN
’Single waveform
PRINT #4, Time.Value; ","; Amplit.Value
Time.Value = Time.Value + X.Resol
END IF
NEXT i
CLOSE #4: RETURN
’
’****************** End example program ******************
Summary of Contents for ScopeMeter 190 Series
Page 40: ...Page 3 29 Response Syntax acknowledge cr See an example for this command under QUERY PRINT QP...
Page 42: ...to the ScopeMeter...
Page 64: ......
Page 68: ...Resp Count Resp Count 2 PRINT x_divisions X Divisions...
Page 70: ...PRINT x_step X Step...
Page 72: ...nb nb ASC MID Resp Resp Count 1 1 ELSE...
Page 74: ......
Page 76: ...PRINT SumCheck so far MOD 256 SumCheck1 MOD 256 CLOSE END...
Page 78: ...END IF...
Page 80: ...END IF NEXT j...
Page 83: ...Resp Count Resp Count Sample Bytes...