A small function to convert decimal integer values to a binary string. The number of bits can be optionally specified but this will be increased if insufficient.
Public Function DecToBin(DeciValue As Long, Optional NoOfBits As Integer = 8) _
As String
'********************************************************************************
'* Name : DecToBin
'* Date : 2003
'* Author : Alex Etchells
'*********************************************************************************
Dim i As Integer
'make sure there are enough bits to contain the number
Do While DeciValue > (2 ^ NoOfBits) - 1
NoOfBits = NoOfBits + 8
Loop
DecToBin = vbNullString
'build the string
For i = 0 To (NoOfBits - 1)
DecToBin = CStr((DeciValue And 2 ^ i) / 2 ^ i) & DecToBin
Next i
End Function
or may be a one liner like...
Dim binaryString As String = Convert.ToString(numberToConvert, 2)
Use PadLeft(n, "0") for required minimum length(n) of the output string.
so it would look like
Dim binaryString As String = Convert.ToString(numberToConvert, 2).PadLeft(n, "0")
Prashant
Dim BS As String
Number = Val(Text1.Text)
BS = ""
While Number > 0
BS = Number Mod 2 & BS
Number = Number \ 2
Wend
Text2.Text = BS
Hi DoctorMahdi,
How do I put BS into an array before display it into text2.text. Thank you.