by Erik Nestorovic (1 Submission)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 9th March 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
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
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
No comments have been posted about Converts numbers in decimal, binary, octal and hexadecimal into decimal, binary, octal and hexadeci. Why not be the first to post a comment about Converts numbers in decimal, binary, octal and hexadecimal into decimal, binary, octal and hexadeci.