Manual

Waveform Template
WM-RCM-E Rev D ISSUED: February 2005 299
For I = 2 To
FByte = ByteOrd7 + I * ByteOrd
FDigit = Desc(DescPoint + FByte)
FFraction = FFraction + CDbl(FDigit) * DMult3
DMult3 = DMult3 / 256
Next I ' Fraction completed
' ______________________________________________________________
FVariable = 2 ^ FExponent
GetDoubleFloat = FVariable * FSign * (1 + FFraction)
End
' End of GetDoubleFloat ________________________________________
§ § §