/ Snippet Library - View Code

Visual Basic / Math / Decimal <-> Binary

Snippet details

ID: 377

Viewed: 1315

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

Converts to Decimal to Binary and Binary to Decimal.

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight AllOption Explicit Dim decml As Double Dim jbinary As String Dim digit As Single, power As Single Dim h As Integer, i As Integer, jbin As Integer Dim j As Integer, k As Integer
Code
Highlight AllPrivate Sub cmdCalculate_Click() decml = 16 'this is the number to convert DecBin decml, jbin ' convert from decimal to binary Print "Decimal ="; BinDec(jbin) ' convert from binary to decimal Print "binary = "; jbin ' display the result Print "Hex = "; Hex(decml) Print "OCTAL = "; Oct$(decml) End Sub ' converts a string of binary digits to its decimal equivalent Static Function BinDec(jbinary) Dim digit, power, i, jbin As Integer decml = 0: jbin = 0 jbinary = UCase(jbinary) For i = Len(jbinary) To 1 step -1 ' convert from binary to decimal digit = Asc(Mid(jbinary, i, 1)) - 48 If digit < 0 Or digit > 1 Then decml = 0: Exit For decml = decml + digit * 2 ^ (power) power = power + 1 Next i BinDec = decml End Function ' converts a decimal value to an equivalent string of binary digits Static Sub DecBin(decml, jbin) jbin = "" h = Hex(decml) ' convert from decimal to hexadecimal For i = 1 To Len(h) digit = InStr("0123456789ABCDEF", Mid(h, i, 1)) - 1 If digit < 0 Then jbin = "": Exit For j = 8: k = 4 Do ' convert from hexadecimal to binary jbin = jbin + Right$(Str((digit j) Mod 2), 1) j = j - (j 2): k = k - 1 If k = 0 Then Exit Do Loop While j Next i End Sub

No Reviews to show