Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

VB Binary Error Messages

Posted on 2002-07-09
2
Medium Priority
?
151 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 
LVL 43

Accepted Solution

by:
TimCottee earned 150 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

How to Use the Help Bell

Need to boost the visibility of your question for solutions? Use the Experts Exchange Help Bell to confirm priority levels and contact subject-matter experts for question attention.  Check out this how-to article for more information.

Question has a verified solution.

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

There are many ways to remove duplicate entries in an SQL or Access database. Most make you temporarily insert an ID field, make a temp table and copy data back and forth, and/or are slow. Here is an easy way in VB6 using ADO to remove duplicate row…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
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…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Suggested Courses

609 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