Solved

VB Binary Error Messages

Posted on 2002-07-09
2
146 Views
Last Modified: 2010-05-02
I am working with an API for a 3rd party program.

This program has several error codes as follows

1 - Error Description 1
2 - Error Description 2
4 - Error Description 4
8 - Error Description 8
16 - Error Description 16
32 - Error Description 32
64 - Error Description 64

When this API returns an error though it only returns 1 error code.  It adds the error numbers together so if an eror code of 6 is returned you know that this is made up of error 4 and error 2 as this is the only combination that gives 6.  Similarly if an erro code of 9 is retured you know this must have been an error code of 8 and 1.

What I need is a VB function, code etc which will parse any given binary number to give me a list or array etc of the individual error numbers which make up a returned error.

I could write this myself but I'm in a hurry so rather than general ideas on how I might write this I just want quick and easy copy and paste code.

Thanks

Dave
0
Comment
Question by:daveamour
2 Comments
 
LVL 43

Accepted Solution

by:
TimCottee earned 50 total points
ID: 7140266

Private Function GetError(ByVal intError As Integer) As String
    Dim intValue As Integer
    Dim intPower As Integer
    intValue = intError
    For intPower = 6 To 0 Step -1
        If intValue >= 2 ^ intPower Then
            GetError = GetError & "Description " & CStr(2 ^ (intPower)) & vbLf
            intValue = intValue - (2 ^ intPower)
        End If
    Next
End Function

Call :

Msgbox GetError(6)


       
0
 
LVL 19

Author Comment

by:daveamour
ID: 7140269
I've actually already solved this.  There are more than 7 error though.

I converted the error message to a binary string and then wrote this code:

Private Function showXMLErrors(strErrorNumber As String) As String
    Dim i As Integer
    Dim strXML As String
   
    strXML = "<?xml version=""1.0"" encoding=""UTF-8"" ?>"
    strXML = strXML & "<Errors>"
   
    For i = 1 To Len(strErrorNumber)
      strXML = strXML & "<Error Code=" & 2 ^ (Len(strErrorNumber) - i) & ">" & Mid(strErrorNumber, i, 1) & "</Error>"
    Next
   
    strXML = strXML & "</Errors>"
   
    showXMLErrors = strXML
End Function

Thanks anyway though and you can have the points for helping.

Cheers

Dave
0

Featured Post

Problems using Powershell and Active Directory?

Managing Active Directory does not always have to be complicated.  If you are spending more time trying instead of doing, then it's time to look at something else. For nearly 20 years, AD admins around the world have used one tool for day-to-day AD management: Hyena. Discover why

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

The debugging module of the VB 6 IDE can be accessed by way of the Debug menu item. That menu item can normally be found in the IDE's main menu line as shown in this picture.   There is also a companion Debug Toolbar that looks like the followin…
You can of course define an array to hold data that is of a particular type like an array of Strings to hold customer names or an array of Doubles to hold customer sales, but what do you do if you want to coordinate that data? This article describes…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…

803 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question