
’ Page 3.49
’
DIM exponent(6)
’Exponents for Y/X.Zero & Y/X.Resol & Y/X.At.0
DIM YXvalue#(6)
’Values for Y/X.Zero & Y/X.Resol & Y/X.At.0
’
’***** 3 bytes <y_zero> = <mantissa_high><mantissa_low><exponent>
’***** <mantissa> = <mantissa_high> * 256 + <mantissa_low>
’***** <y_zero> = <sign><mantissa> E <sign><exponent>
’***** Example: +123E-4 = 123 / 10000 = 0.0123
FOR i = 0 TO 2
SumCheck1% = (SumCheck1% + ASC(MID$(Resp$,Resp.Count+i,1))) MOD 256
NEXT i
nb = ASC(MID$(Resp$, Resp.Count, 1))
IF nb >= 128 THEN
nb = - (256 - nb) * 256
’Negative value
nb = nb + ASC(MID$(Resp$, Resp.Count + 1, 1))
ELSE
nb = nb * 256
’Positive value
nb = nb + ASC(MID$(Resp$, Resp.Count + 1, 1))
END IF
exponent(1) = ASC(MID$(Resp$, Resp.Count + 2, 1))
YXvalue#(1) = nb
Resp.Count = Resp.Count + 3
’*****
’* Further calculation after ’Signed.Samples’ determination
’*****
’***** 3 bytes <x_zero> = <mantissa_high><mantissa_low><exponent>
’***** <mantissa> = <mantissa_high> * 256 + <mantissa_low>
’***** <x_zero> = <sign><mantissa> E <sign><exponent>
’***** Example: +123E-4 = 123 / 10000 = 0.0123
FOR i = 0 TO 2
SumCheck1% = (SumCheck1% + ASC(MID$(Resp$,Resp.Count+i,1))) MOD 256
NEXT i
nb = ASC(MID$(Resp$, Resp.Count, 1))
IF nb >= 128 THEN
nb = - (256 - nb) * 256
’Negative value
nb = nb + ASC(MID$(Resp$, Resp.Count + 1, 1))
ELSE
nb = nb * 256
’Positive value
nb = nb + ASC(MID$(Resp$, Resp.Count + 1, 1))
END IF
exponent(2) = ASC(MID$(Resp$, Resp.Count + 2, 1))
YXvalue#(2) = nb
Resp.Count = Resp.Count + 3
’*****
’* Further calculation after ’Signed.Samples’ determination
’*****
’***** 3 bytes <y_resolution> = <mantissa_high><mantissa_low><exponent>
’***** <mantissa> = <mantissa_high> * 256 + <mantissa_low>
’***** <y_resolution> = <sign><mantissa> E <sign><exponent>
’***** Example: +123E-4 = 123 / 10000 = 0.0123
FOR i = 0 TO 2
SumCheck1% = (SumCheck1% + ASC(MID$(Resp$,Resp.Count+i,1))) MOD 256
NEXT i
nb = ASC(MID$(Resp$, Resp.Count, 1))
IF nb >= 128 THEN
nb = - (256 - nb) * 256
’Negative value
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...