beautypg.com

Teledyne LeCroy X-STREAM OSCILLOSCOPES Remote Control User Manual

Page 303

background image

Waveform Template

WM-RCM-E Rev D

ISSUED: February 2005

297


FFraction = CDbl(FDigit And 127) ' Fraction started
FFraction = FFraction * Mult2

FByte = ByteOrd3 + 2 * ByteOrd
FDigit = Desc(DescPoint + FByte)
FFraction = FFraction + CDbl(FDigit) * Mult3

FByte = ByteOrd3 + 3 * ByteOrd
FDigit = Desc(DescPoint + FByte)
FFraction = FFraction + CDbl(FDigit) * Mult4 ' Fraction completed
' ______________________________________________________________

FVariable = 2 ^ FExponent
GetFloat = FVariable * FSign * (1 + FFraction) ' Conversion
completed

End

' End of GetFloat ______________________________________________