Happy Codings - Programming Code Examples

Visual Basic Programming Code Examples

Visual Basic > Code Snippets

Decimal to binary conversion



Decimal to binary conversion

'convert to binary 
Public Function CBin(ByVal Nr As Long, Optional Precision As Integer = 8) As String
Do Until Nr = 0
CBin = CStr((Nr Mod 2)) + CBin
Nr = Nr \ 2
Loop
CBin = Format(Val(CBin), String(Precision, "0"))
End Function

Private Sub Form_Load()
MsgBox CBin(88)
End Sub

Go confidently in the direction of your dreams. Live the life you have imagined.

Henry David Thoreau

Our greatest glory is not in never falling, but in rising every time we fall.

Confucius

When you come out of the storm you won't be the same person that walked in. That's what the storm is all about.

Haruki Murakami

The successful people of this world take life as it comes. They just go out and deal with the world as it is.

Ben Stein

While we may not be able to control all that happens to us, we can control what happens inside us.

Benjamin Franklin

Education breeds confidence. Confidence breeds hope. Hope breeds peace.

Confucius

You keep putting one foot in front of the other, and then one day you look back and you've climbed a mountain.

Tom Hiddleston

A person who never made a mistake never tried anything new.

Albert Einstein