Hex addition and conversion

'In tthe function below, fnDecToAdd is the number you want to add (15 in your case) and fnMyDec is the base number to which you want to add. All calculations are done in decimal and then converted to Hex. Finally, it adds as many zeros as needed:

Private Sub Command1_Click()
MsgBox ConvertAddToHex(32, 15) 'execute. In this sample the result would be 002F
End Sub

Private Function ConvertAddToHex(ByVal fnMyDec As Long, fnDecToAdd As Long) As String
Dim x As String, y As String
x = Hex(fnMyDec + fnDecToAdd) 'calculate and convert to Hex
y = Len(x)
ConvertAddToHex = String(4 - y, "0") & x 'add zeros up to four places
End Function

S

Look this ! :)

To Add decimal value 52 to HEX value 1B use this:

Dim strHex As String
Dim intDec As Integer
Dim strResult As String
dim lngResult As Long

strHex="1B"
intDec=52

lngResult=VAL("&H" & strHEX)+intDec

MsgBox Hex$(lngResult)

Easy, isn't it ?  :)

hi guys

Sorry guys my index counting mechanism is messed up. I cann't even count the index in decimal properly and below is the code.(some times it displays 2 less on the last line and sometime not and also on boundary condition  (i.e. when there are 17 hex pair) first line is ok (0000-000F) but on 2nd line it displays 0010-0011 instead of  0010-0010.

This method takes a line of hex and chop it into line of 16 hex pair(32) and 16 spaces(i.e. allowedHexLength = 48 ) and store it into temprory UDT. Then calculate the starting and ending  Index and store at appropriate place in Array of UDT. I have used "hexBytes" to count the number of pair on 1 line when length of line is less then 48 so that i can add it to find the ending index for that line.

I need to store all this info in Array of UDT for my other method to just display it on the screen when and if needed.

******************************
   Private Type hexMessages
         hexLine As String
        startIndex As String
        endIndex As String
    End Type

    Private hexMessageArray() As hexMessages

    Dim thisLength As Integer
    Dim thisIndex As Double
    Dim thisStartIndex As Integer
    Dim thisEndIndex As Integer
         
    'calculate the length of line
    thisLength = Len(thisHexLine)
    'create appropriate size buffer for each line(Array of UDT)
    If thisLength > allowedHexLength Then
       ReDim hexMessageArray(thisLength \ allowedHexLength)
    Else
        ReDim hexMessageArray(0)
    End If
    'start putting the maximum allowed hex line in the buffer
    For thisIndex = LBound(hexMessageArray) To UBound(hexMessageArray)
        For intPlace = 1 To allowedHexLength
            strChar = Mid$(thisHexLine, intPlace, 1) 'Get 1 chars at a time
            If strChar = "" Then 'means end of line
                hexBytes = hexBytes + 2
                Exit For
            End If
            If strChar = " " Then ' means 1 pair is done ,increase the pair counter and also add space
                hexMessageArray(thisIndex).hexLine = hexMessageArray(thisIndex).hexLine + " "
                hexBytes = hexBytes + 1
            Else
                hexMessageArray(thisIndex).hexLine = hexMessageArray(thisIndex).hexLine _  
                                                                         + strChar  'Add it to the current word
            End If
        Next
       'calculate the starting and ending index
       If thisIndex = 0 Then ' for 1st loop only coz starting it from 0
            hexMessageArray(thisIndex).startIndex = "0"
            hexMessageArray(thisIndex).endIndex = Val((hexMessageArray(thisIndex).startIndex)  _
                                                                      + (hexBytes - 1))                      
        Else
            hexMessageArray(thisIndex).startIndex = Val((hexMessageArray(thisIndex  _
                                                                       -   1).endIndex) + 1)
            hexMessageArray(thisIndex).endIndex = Val((hexMessageArray(thisIndex).startIndex) _
                                                                       + (hexBytes - 1))            
        End If
Next

******************************

I know it is any extra work so i am increasing 25 pts. Sorry for any typos coz i am tooo tired to type

thanks

SC

If you don't want to do all of the conversion's youself you can use my DLL.

http://www.rawsoftware.com/list.asp?list=Software&License=All

Download cHex.zip, its in the list on that page. To see how to use it read the Full Story. It will
explain everything you should need to know.

Jason Holland