如二進位、Byte、浮點數、整數之間的互轉
'浮點數轉二進位
Private Function DecimalToBinary(ByVal DecValue As Integer, Optional ByVal Num As Integer = 16) As String
Dim sValue As String = Convert.ToString(DecValue, 2)
Return String.Format("{0:x" & (Num - sValue.Length).ToString & "}", 0) & sValue
End Function
Public Function BinaryToInteger(ByVal sData As String) As Integer
Dim I As Int16
Dim bTemp As Integer
bTemp = 0
For I = sData.Length - 1 To 0 Step -1
bTemp = bTemp + Val(sData.Substring(I, 1)) * 2 ^ (sData.Length - 1 - I)
Next
Return bTemp
End Function
'Byte轉二進位
Public Function ByteToBinary(ByVal bData As Byte) As String
Return Strings.Right("00000000" & BinaryRecursive(bData), 8)
End Function
Public Function BinaryRecursive(ByVal bData As Byte) As String
If bData > 1 Then
Return BinaryRecursive(bData >> 1) & IIf((bData And 1) = 1, "1", "0")
Else
Return "1"
End If
End Function
'二進位轉Byte
Public Function BinaryToByte(ByVal sData As String) As Byte
Dim I As Int16
Dim bTemp As Byte
bTemp = 0
For I = sData.Length - 1 To 0 Step -1
bTemp = bTemp + Val(sData.Substring(I, 1)) * 2 ^ (sData.Length - 1 - I)
Next
Return bTemp
End Function
