by ACMOA (7 Submissions)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 15th October 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Converts decimal numbers to binary
API Declarations
Dim count As Integer
Dim BIN As String
For count = 7 To 0 Step -1
If conv And (2 ^ count) Then
BIN = BIN + "1"
Else
BIN = BIN + "0"
End If
Next
txtBinary.Text = BIN