Attribute VB_Name = "Conversion"
Option Explicit

Public Boucle As Integer
Public GBit As Byte
Public SBit As Byte
Public GHexNum As String
Public GBinNum As String
Public CharRead As String


Public Function CBin(BitNum As Byte) As String 'conversion en binaire

GHexNum = Hex(BitNum)
If Len(GHexNum) = 1 Then GHexNum = "0" & GHexNum
GBinNum = ""
CharRead = Left(GHexNum, 1)
ConvHBin
GBinNum = GBinNum & CharRead
CharRead = Right(GHexNum, 1)
ConvHBin
GBinNum = GBinNum & CharRead
CBin = GBinNum
End Function

Public Function CHex(BinNum As String) As Byte 'conversion en byte

If Len(BinNum) <> 8 Then Exit Function

GHexNum = ""
CharRead = Left(BinNum, 4)
ConvBinH
GHexNum = GHexNum & CharRead
CharRead = Right(BinNum, 4)
ConvBinH
GHexNum = GHexNum & CharRead
CHex = "&h" & GHexNum

End Function

Public Function Complement(BinNum As String) As String 'renvoie le complement à 1

Complement = Format(11111111 - BinNum, "00000000")

End Function


'****************************************************************************************************
'PROCEDURES:

Public Sub ConvHBin()

If CharRead = "0" Then CharRead = "0000"
If CharRead = "1" Then CharRead = "0001"
If CharRead = "2" Then CharRead = "0010"
If CharRead = "3" Then CharRead = "0011"
If CharRead = "4" Then CharRead = "0100"
If CharRead = "5" Then CharRead = "0101"
If CharRead = "6" Then CharRead = "0110"
If CharRead = "7" Then CharRead = "0111"
If CharRead = "8" Then CharRead = "1000"
If CharRead = "9" Then CharRead = "1001"
If CharRead = "A" Then CharRead = "1010"
If CharRead = "B" Then CharRead = "1011"
If CharRead = "C" Then CharRead = "1100"
If CharRead = "D" Then CharRead = "1101"
If CharRead = "E" Then CharRead = "1110"
If CharRead = "F" Then CharRead = "1111"

End Sub

Public Sub ConvBinH()

If CharRead = "0000" Then CharRead = "0"
If CharRead = "0001" Then CharRead = "1"
If CharRead = "0010" Then CharRead = "2"
If CharRead = "0011" Then CharRead = "3"
If CharRead = "0100" Then CharRead = "4"
If CharRead = "0101" Then CharRead = "5"
If CharRead = "0110" Then CharRead = "6"
If CharRead = "0111" Then CharRead = "7"
If CharRead = "1000" Then CharRead = "8"
If CharRead = "1001" Then CharRead = "9"
If CharRead = "1010" Then CharRead = "A"
If CharRead = "1011" Then CharRead = "B"
If CharRead = "1100" Then CharRead = "C"
If CharRead = "1101" Then CharRead = "D"
If CharRead = "1110" Then CharRead = "E"
If CharRead = "1111" Then CharRead = "F"

End Sub