• Home
 · 
• Math/Dates
 · 
• Converts numbers in decimal, binary, octal and hexadecimal into decimal, binary, octal and hexadeci

Converts numbers in decimal, binary, octal and hexadecimal into decimal, binary, octal and hexadeci

Converts numbers in decimal, binary, octal and hexadecimal into decimal, binary, octal and hexadecimal.

API Declarations


'delete the form and add a module for this convesion program



Rate Converts numbers in decimal, binary, octal and hexadecimal into decimal, binary, octal and hexadeci

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    Dim strMenuOption As String
    Dim myEnter As String
    
    myEnter = Chr(10) & Chr(13)
    
    Do
        strMenuOption = InputBox("MAIN MENU" & myEnter & myEnter _
                     & "[1] Decimal to Binary" & myEnter _
                     & "[2] Decimal to Octal" & myEnter _
                     & "[3] Decimal to Hexadecimal" & myEnter & myEnter _
                     & "[4] Binary to Decimal" & myEnter _
                     & "[5] Binary to Octal" & myEnter _
                     & "[6] Binary to Hexadecimal" & myEnter & myEnter _
                     & "[7] Octal to Decimal" & myEnter _
                     & "[8] Octal to Binary" & myEnter _
                     & "[9] Octal to Hexadecimal" & myEnter & myEnter _
                     & "[10] Hexadecimal to Decimal" & myEnter _
                     & "[11] Hexadecimal to Binary" & myEnter _
                     & "[12] Hexadecimal to Octal" & myEnter & myEnter _
                     & "[0] End" & myEnter, "CONVERION PROGRAM", "0", 1, 1)
        If strMenuOption <> "" Then
            Select Case strMenuOption
            Case "1": DecimalToBinary
            Case "2": DecimalToOctal
            Case "3": DecimalToHexadecimal
            Case "4": BinaryToDecimal
            Case "5": BinaryToOctal
            Case "6": BinaryToHexadecimal
            Case "7": OctalToDecimal
            Case "8": OctalToBinary
            Case "9": OctalToHexadecimal
            Case "10": HexadecimalToDecimal
            Case "11": HexadecimalToBinary
            Case "12": HexadecimalToOctal
            Case "0": End
           End Select
        End If
    Loop
       
    
End Sub

Sub DecimalToBinary()
Dim intNumber As Integer
Dim intRemainder As Integer
Dim strRemainder As String
Dim strBinaryNumber As String

intNumber = CInt(InputBox("Enter number in decimal:", "DECIMAL TO BINARY CONVERSION"))
Do While intNumber >= 1
    intRemainder = intNumber Mod 2
    strRemainder = CStr(intRemainder)
    intNumber = intNumber \ 2
    strBinaryNumber = strRemainder & strBinaryNumber
Loop
MsgBox "The Number in Binary is : " & strBinaryNumber, , "DECIMAL TO BINARY CONVERSION"
End Sub

Sub DecimalToOctal()
Dim intNumber As Integer
Dim intRemainder As Integer
Dim strRemainder As String
Dim strOctalNumber As String

intNumber = CInt(InputBox("Enter number in decimal:", "DECIMAL TO OCTAL CONVERSION"))
Do While intNumber >= 1
    intRemainder = intNumber Mod 8
    strRemainder = CStr(intRemainder)
    intNumber = intNumber \ 8
    strOctalNumber = strRemainder & strOctalNumber
Loop
MsgBox "The Number in Octal is : " & strOctalNumber, , "DECIMAL TO OCTAL CONVERSION"
End Sub

Sub DecimalToHexadecimal()
    Dim intNumber As Integer
    Dim intRemainder As Integer
    Dim strRemainder As String
    Dim strHexaNumber As String
        
    intNumber = CInt(InputBox("Enter number in decimal:", "DECIMAL TO HEXADECIMAL CONVERSION"))
    Do While intNumber >= 1
        intRemainder = intNumber Mod 16
        strRemainder = CStr(intRemainder)
        intNumber = intNumber \ 16
        Select Case strRemainder
            Case "10": strRemainder = "A"
            Case "11": strRemainder = "B"
            Case "12": strRemainder = "C"
            Case "13": strRemainder = "D"
            Case "14": strRemainder = "E"
            Case "15": strRemainder = "F"
        End Select
        strHexaNumber = strRemainder & strHexaNumber
    Loop
    MsgBox "The Number in Hexadecimal is : " & strHexaNumber, , "DECIMAL TO HEXADECIMAL CONVERSION"
End Sub

Sub BinaryToDecimal()
Dim strBinNum As String
 
    Dim BinNumSize, PlaceValue As Integer
    Dim BitValue As String
    Dim lngBaseX As Long
 
 strBinNum = InputBox("Insert Number in Binary", "BINARY TO DECIMAL CONVERSION")
 
    BinNumSize = Len(strBinNum)
 
    For PlaceValue = 0 To BinNumSize - 1
        BitValue = Mid(strBinNum, BinNumSize, 1)
        BinNumSize = BinNumSize - 1
        lngBaseX = (2 ^ PlaceValue * CInt(BitValue)) + lngBaseX
 
    Next PlaceValue
    
    MsgBox "The Number in Decimal is: " & lngBaseX, , "BINARY TO DECIMAL CONVERSION"
End Sub


Sub BinaryToOctal()

 strBinNum = InputBox("Insert Number in Binary", "BINARY TO OCTAL CONVERSION")
 
    BinNumSize = Len(strBinNum)
 
    For PlaceValue = 0 To BinNumSize - 1
        BitValue = Mid(strBinNum, BinNumSize, 1)
        BinNumSize = BinNumSize - 1
        lngBaseX = (2 ^ PlaceValue * CInt(BitValue)) + lngBaseX
    Next PlaceValue
    
    intNumber = lngBaseX
Do While intNumber >= 1
    intRemainder = intNumber Mod 8
    strRemainder = CStr(intRemainder)
    intNumber = intNumber \ 8
    strOctalNumber = strRemainder & strOctalNumber
Loop
MsgBox "The Number in Octal is : " & strOctalNumber, , "BINARY TO OCTAL CONVERSION"

End Sub

Sub BinaryToHexadecimal()

    strBinNum = InputBox("Insert Number in Binary", "BINARY TO HEXADECIMAL CONVERSION")
 
    BinNumSize = Len(strBinNum)
 
    For PlaceValue = 0 To BinNumSize - 1
        BitValue = Mid(strBinNum, BinNumSize, 1)
        BinNumSize = BinNumSize - 1
        lngBaseX = (2 ^ PlaceValue * CInt(BitValue)) + lngBaseX
    Next PlaceValue
    
    intNumber = lngBaseX
    
    Do While intNumber >= 1
        intRemainder = intNumber Mod 16
        strRemainder = CStr(intRemainder)
        intNumber = intNumber \ 16
        Select Case strRemainder
            Case "10": strRemainder = "A"
            Case "11": strRemainder = "B"
            Case "12": strRemainder = "C"
            Case "13": strRemainder = "D"
            Case "14": strRemainder = "E"
            Case "15": strRemainder = "F"
        End Select
        strHexaNumber = strRemainder & strHexaNumber
    Loop
    MsgBox "The Number in Hexadecimal is : " & strHexaNumber, , "BINARY TO HEXADECIMAL CONVERSION"
End Sub

Sub OctalToDecimal()
    Dim exponent, bit, lastbit, DecNum As Integer
    Dim OctNum, OctLen As String
    
    exponent = 0
    OctNum = InputBox("Insert Number in Octal", "OCTAL TO DECIMAL CONVERSION")
    OctLen = Len(OctNum)
    
    Do
        lastbit = Mid(OctNum, OctLen, 1)
        OctLen = OctLen - 1
        bit = lastbit * 8 ^ exponent
        exponent = exponent + 1
        DecNum = DecNum + bit
    Loop Until OctLen = 0
    
    MsgBox "The Number in Decimal is: " & DecNum, , "OCTAL TO DECIMAL CONVERSION"
 End Sub
 Sub OctalToBinary()
     Dim exponent, bit, lastbit, DecNum As Integer
    Dim OctNum, OctLen As String
    Dim intNumber As Integer
    Dim intRemainder As Integer
    Dim strRemainder As String
    Dim strBinaryNumber As String

    exponent = 0
    OctNum = InputBox("Insert Number in Octal", "OCTAL TO BINARY CONVERSION")
    OctLen = Len(OctNum)
    
    Do
        lastbit = Mid(OctNum, OctLen, 1)
        OctLen = OctLen - 1
        bit = lastbit * 8 ^ exponent
        exponent = exponent + 1
        DecNum = DecNum + bit
    Loop Until OctLen = 0
    
intNumber = DecNum
Do While intNumber >= 1
    intRemainder = intNumber Mod 2
    strRemainder = CStr(intRemainder)
    intNumber = intNumber \ 2
    strBinaryNumber = strRemainder & strBinaryNumber
Loop
MsgBox "The Number in Binary is : " & strBinaryNumber, , "OCTAL TO BINARY CONVERSION"

 End Sub
 Sub OctalToHexadecimal()
    Dim exponent, bit, lastbit, DecNum As Integer
    Dim OctNum, OctLen As String
    Dim intNumber As Integer
    Dim intRemainder As Integer
    Dim strRemainder As String
    Dim strHexaNumber As String
    
    exponent = 0
    OctNum = InputBox("Insert Number in Octal", "OCTAL TO HEXADECIMAL CONVERSION")
    OctLen = Len(OctNum)
    
    Do
        lastbit = Mid(OctNum, OctLen, 1)
        OctLen = OctLen - 1
        bit = lastbit * 8 ^ exponent
        exponent = exponent + 1
        DecNum = DecNum + bit
    Loop Until OctLen = 0
        
    intNumber = DecNum
    Do While intNumber >= 1
        intRemainder = intNumber Mod 16
        strRemainder = CStr(intRemainder)
        intNumber = intNumber \ 16
        Select Case strRemainder
            Case "10": strRemainder = "A"
            Case "11": strRemainder = "B"
            Case "12": strRemainder = "C"
            Case "13": strRemainder = "D"
            Case "14": strRemainder = "E"
            Case "15": strRemainder = "F"
        End Select
        strHexaNumber = strRemainder & strHexaNumber
    Loop
    MsgBox "The Number in Hexadecimal is : " & strHexaNumber, , "OCTAL TO HEXADECIMAL CONVERSION"
 End Sub

Sub HexadecimalToDecimal()
    Dim HexNumber, LastNum, HexLen As String
    Dim exponent, DecNum, lastbit As Integer
    
    HexLen = 0
    LastNum = 0
    HexNumber = 0
    exponent = 0
    DecNum = 0
    
    HexNumber = InputBox("Enter Number in Hexadecimal", "HEXADECIMAL TO DECIMAL CONVERSION")
        
    HexNumber = UCase(HexNumber)
        
        HexLen = Len(HexNumber)
    Do

            LastNum = Mid(HexNumber, HexLen, 1)
                If LastNum = "A" Then
                    LastNum = "10"
                ElseIf LastNum = "B" Then
                    LastNum = "11"
                ElseIf LastNum = "C" Then
                    LastNum = "12"
                ElseIf LastNum = "D" Then
                    LastNum = "13"
                ElseIf LastNum = "E" Then
                    LastNum = "14"
                ElseIf LastNum = "F" Then
                    LastNum = "15"
                End If
                If Len(LastNum) = 1 Then
                    lastbit = LastNum * 16 ^ exponent
                ElseIf Len(LastNum) = 2 Then
                    lastbit = LastNum * 16 ^ exponent
                End If
                DecNum = lastbit + DecNum
            exponent = exponent + 1
            HexLen = HexLen - 1

    Loop Until HexLen = 0
MsgBox "The Number in Decimal is: " & DecNum, , "HEXADECIMAL TO DECIMAL CONVERSION"
End Sub

Sub HexadecimalToBinary()
    Dim HexNumber, LastNum, HexLen As String
    Dim exponent, DecNum, lastbit As Integer
    Dim intNumber As Integer
    Dim intRemainder As Integer
    Dim strRemainder As String
    Dim strBinaryNumber As String
    
    HexLen = 0
    LastNum = 0
    HexNumber = 0
    exponent = 0
    DecNum = 0
    
    HexNumber = InputBox("Enter Number in Hexadecimal", "HEXADECIMAL TO BINARY CONVERSION")
        
    HexNumber = UCase(HexNumber)
        
        HexLen = Len(HexNumber)
    Do

            LastNum = Mid(HexNumber, HexLen, 1)
                If LastNum = "A" Then
                    LastNum = "10"
                ElseIf LastNum = "B" Then
                    LastNum = "11"
                ElseIf LastNum = "C" Then
                    LastNum = "12"
                ElseIf LastNum = "D" Then
                    LastNum = "13"
                ElseIf LastNum = "E" Then
                    LastNum = "14"
                ElseIf LastNum = "F" Then
                    LastNum = "15"
                End If
                If Len(LastNum) = 1 Then
                    lastbit = LastNum * 16 ^ exponent
                ElseIf Len(LastNum) = 2 Then
                    lastbit = LastNum * 16 ^ exponent
                End If
                DecNum = lastbit + DecNum
            exponent = exponent + 1
            HexLen = HexLen - 1

    Loop Until HexLen = 0
    
    intNumber = DecNum
Do While intNumber >= 1
    intRemainder = intNumber Mod 2
    strRemainder = CStr(intRemainder)
    intNumber = intNumber \ 2
    strBinaryNumber = strRemainder & strBinaryNumber
Loop
MsgBox "The Number in Binary is : " & strBinaryNumber, , "HEXADECIMAL TO BINARY CONVERSION"
End Sub

Sub HexadecimalToOctal()
    Dim HexNumber, LastNum, HexLen As String
    Dim exponent, DecNum, lastbit As Integer
    Dim intNumber As Integer
    Dim intRemainder As Integer
    Dim strRemainder As String
    Dim strOctalNumber As String
    
    HexLen = 0
    LastNum = 0
    HexNumber = 0
    exponent = 0
    DecNum = 0
    
HexNumber = InputBox("Enter Number in Hexadecimal", "HEXADECIMAL TO OCTAL CONVERSION")
        
    HexNumber = UCase(HexNumber)

        HexLen = Len(HexNumber)
    Do

            LastNum = Mid(HexNumber, HexLen, 1)
                If LastNum = "A" Then
                    LastNum = "10"
                ElseIf LastNum = "B" Then
                    LastNum = "11"
                ElseIf LastNum = "C" Then
                    LastNum = "12"
                ElseIf LastNum = "D" Then
                    LastNum = "13"
                ElseIf LastNum = "E" Then
                    LastNum = "14"
                ElseIf LastNum = "F" Then
                    LastNum = "15"
                End If
                If Len(LastNum) = 1 Then
                    lastbit = LastNum * 16 ^ exponent
                ElseIf Len(LastNum) = 2 Then
                    lastbit = LastNum * 16 ^ exponent
                End If
                DecNum = lastbit + DecNum
            exponent = exponent + 1
            HexLen = HexLen - 1

    Loop Until HexLen = 0
    
    intNumber = DecNum
Do While intNumber >= 1
    intRemainder = intNumber Mod 8
    strRemainder = CStr(intRemainder)
    intNumber = intNumber \ 8
    strOctalNumber = strRemainder & strOctalNumber
Loop
MsgBox "The Number in Octal is : " & strOctalNumber, , "HEXADECIMAL TO OCTAL CONVERSION"
End Sub