
CXX-UM-01850-EN-01
Else
sign = ""
End If
dec = 1
For p = 2 To Len(bin_data)
Bit = Mid$(bin_data, p, 1)
If Bit = "1" Then dec = dec + 2 ^ -(p - 1)
Next
dec = (2 ^ e) * dec
wiv_sign = sign + Str(dec)
dec = Val(wiv_sign)
the_res_is_zero:
Select Case Val(dp_pos)
Case 1
result_str = Format(dec, "0 0")
Case 2
result_str = Format(dec, "0 00")
Case 3
result_str = Format(dec, "0 000")
Case 4
result_str = Format(dec, "0 0000")
Case 5
result_str = Format(dec, "0 00000")
Case 6
result_str = Format(dec, "0 000000")
Case 7
result_str = Format(dec, "0 0000000")
Case 8
result_str = Format(dec, "0 00000000")
Case 9
result_str = Format(dec, "0 000000000")
Case Else
result_str = Format(dec, "0")
End Select
End Sub
Computer Interface Information
Page 26
February 2018