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 7 5
YXvalue#(4) = nb
Resp.Count = Resp.Count + 3
‘*****
‘* Further calculation after ‘Signed.Samples’ determination
‘*****
‘***** 3 bytes <y_at_0> = <mantissa_high><mantissa_low><exponent>
‘***** <mantissa> = <mantissa_high> * 256 + <mantissa_low>
‘***** <y_at_0> = <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 2
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(5) = ASC(MID$(Resp$, Resp.Count + 2, 1)) YXvalue#(5) = nb
Resp.Count = Resp.Count + 3
‘*****
‘* Further calculation after ‘Signed.Samples’ determination
‘*****
‘***** 3 bytes <x_at_0> = <mantissa_high><mantissa_low><exponent>
‘***** <mantissa> = <mantissa_high> * 256 + <mantissa_low>
‘***** <x_at_0> = <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 2
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(6) = ASC(MID$(Resp$, Resp.Count + 2, 1))
YXvalue#(6) = nb
Resp.Count = Resp.Count + 3
‘*****
‘* Further calculation after ‘Signed.Samples’ determination
‘*****
‘***** 8 bytes <year><month><date>
FOR i = 0 TO 7
SumCheck1% = (SumCheck1% + ASC(MID$(Resp$,Resp.Count+i,1))) MOD 2
NEXT i
Year$ = MID$(Resp$, Resp.Count, 1)
Year$ = Year$ + MID$(Resp$, Resp.Count + 1, 1)
Year$ = Year$ + MID$(Resp$, Resp.Count + 2, 1)
Year$ = Year$ + MID$(Resp$, Resp.Count + 3, 1)
Month$ = MID$(Resp$, Resp.Count + 4, 1)
Month$ = Month$ + MID$(Resp$, Resp.Count + 5, 1)
Day$ = MID$(Resp$, Resp.Count + 6, 1)
Day$ = Day$ + MID$(Resp$, Resp.Count + 7, 1)
Resp.Count = Resp.Count + 8
PRINT "<date_stamp> = "; Year$ + "-" + Month$ + "-" + Day$;
‘
‘***** 6 bytes <hours><minutes><seconds>
FOR i = 0 TO 5
SumCheck1% = (SumCheck1% + ASC(MID$(Resp$,Resp.Count+i,1))) MOD 2
NEXT i
Hours$ = MID$(Resp$, Resp.Count, 1)
Hours$ = Hours$ + MID$(Resp$, Resp.Count + 1, 1)
‘