Fluke ScopeMeter 190 Series, Programming Reference Manual

Page: 77 / 120

’ Page 3.52
Interpret.Samples:
’
’***** Interpret the <trace_samples> waveform data bytes
’***** in the Resp$ string (see appendix C).
’*****
’***** 1 byte separator admin/samples : ,
’***** 2 bytes <trace_samples> block trailing : #0
’
SumCheck2% = 0
IF MID$(Resp$, Resp.Count, 3) <> ",#0" GOTO Wave2.Error
Resp.Count = Resp.Count + 3
’
’***** 1 byte <block_header>
nb = ASC(MID$(Resp$, Resp.Count, 1))
IF nb <> 144 GOTO Wave2.Error
Resp.Count = Resp.Count + 1
’
’***** 4 bytes <block_length>
Block2.Length& = ASC(MID$(Resp$, Resp.Count, 1))
FOR i = 1 TO 3
Block2.Length& = Block2.Length& * 256
Block2.Length& = Block2.Length& + ASC(MID$(Resp$,Resp.Count+i,1))
NEXT i
Resp.Count = Resp.Count + 4
PRINT "Number of sample chars ="; Block2.Length&
OPEN "Samples" FOR OUTPUT AS #4
PRINT #4, "Number of sample chars ="; Block2.Length&
’
’***** 1 byte <sample_format>
Sample.Format = ASC(MID$(Resp$, Resp.Count, 1))
SumCheck2% = SumCheck2% + Sample.Format
IF (Sample.Format AND 128) = 128 THEN
Signed.Samples = 1
ELSE
Signed.Samples = 0
END IF
IF (Sample.Format AND 112) = 64 THEN
’bits 6, 5, 4
MinMax.Samples = 1 ’Min/Max=100
ELSEIF (Sample.Format AND 112) = 96 THEN
MinMax.Samples = 2
’Min/Max/Ave=110
ELSEIF (Sample.Format AND 112) = 0 THEN
MinMax.Samples = 0
’Normal=000
ELSEIF (Sample.Format AND 112) = 112 THEN
IF MID$(Query$, 5, 1) = "1" THEN
’TrendPlot
MinMax.Samples = 2 ’Min=Max=Ave=111
ELSE ’Average Min/Max
MinMax.Samples = 1 ’Min=Max=111
END IF
ELSE
MinMax.Samples = 7
’Unknown format!
END IF
Sample.Bytes = Sample.Format AND 7
IF Sample.Bytes = 1 THEN
’Single-byte samples
CLimit = C128 : CMaxim = C256
ELSE ’Double-byte samples
CLimit = C32768 : CMaxim = C65536