by WAR System (1 Submission)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 1st October 2005
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Fast code to convert decimal to binary numbers
Dim Binario As String, Inicial() As String, Final() As String
Dim Contador As Integer
Dim i As Integer, j As Integer, k As Integer
Do
Binario = Binario & CStr(Numero Mod 2)
Numero = Numero \ 2
Contador = Contador + 1
Loop Until Numero < 1
ReDim Inicial(Contador)
ReDim Final(Contador)
Binario = Trim(Binario)
For i = 1 To Contador
Inicial(i) = Mid$(Binario, i, 1)
Next i
Binario = ""
For j = 1 To Contador
Final(j) = Inicial(Contador + 1 - j)
Next j
For k = 1 To Contador
Binario = Binario & Final(k)
Next k
If Len(Binario) < 16 Then
Do While Len(Binario) < 16
Binario = "0" + Binario
Loop
End If
Bin = Binario
End Function