Text 203, 55 rader
Skriven 2005-02-10 15:50:00 av "kirk Shirley" <kirkshirl (1:278/230)
Ärende: Re: How can I convert a Hex number to a binary number?
==============================================================



Rick Rothstein <rickNOSPAMnews@NOSPAMcomcast.net> wrote in message
news:OpydnVLmht9FF5bfRVn-rg@comcast.com...
> > I am using the following function for decimal numbers but I have a
> neeed to
> > convert hex to binary.
> >
> > Public Function Binary(Number As Long) As String
> > If Abs(Number) > 1 Then
> >         Binary = Binary(Number \ 2) & CStr(Abs(Number Mod 2))
> >     Else
> >         Binary = CStr(Number)
> > End If
> > End Function
>
> ' Limit on the size the HexString value is 2147483648 hex-digits
> Function Hex2Bin(ByVal HexString As String, _
>               Optional WithBlanks As Boolean) As Variant
>     Dim X As Integer
>     Const BinValues = "0000000100100011" & _
>                       "0100010101100111" & _
>                       "1000100110101011" & _
>                       "1100110111101111"
>     If UCase$(Left$(HexString, 2)) = "&h" Then
>       HexString = Mid$(HexString, 3)
>     End If
>     For X = 1 To Len(HexString)
>         Hex2Bin = Hex2Bin & Mid$(BinValues, _
>                   4 * Val("&h" & Mid$(HexString, X, 1)) + 1, 4)
>         If WithBlanks Then Hex2Bin = Hex2Bin & " "
>     Next
> End Function
>
> Rick - MVP
>
Thanks Rick,
 but i nee a little more info.  When I try to convert anything   like $A ,
it says undefined variable.

            Hex2Bin (AF)

 My numbers I need to display are single byte form such as  $OF, $AF.  Keep
in mind  the dollar sign in only means that it is a hex number.
I'm not familar with the proper way  for VB.  My hex numbers that are
comming into the program will be a single byte in ASCII over MS Comm.  For
instance I might receive a string  $FF $3B $CF without the dollar sign .
Kirk




--- UseNet To RIME Gateway @ 2/10/05 2:47:00 PM ---
 * Origin: MoonDog BBS, Brooklyn,NY, 718 692-2498, 1:278/230 (1:278/230)