• Home
 · 
• Math/Dates
 · 
• Very Easy and Cool way to convert decimal figures into binary figures. U can make ur own conversion

Very Easy and Cool way to convert decimal figures into binary figures. U can make ur own conversion

Very Easy and Cool way to convert decimal figures into binary figures. U can make ur own conversion just to do a bit more work..enjoy!!! email

Rate Very Easy and Cool way to convert decimal figures into binary figures. U can make ur own conversion

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Dim loopcounter As Integer
    If myNum >= 2 ^ 31 Then
        Dec2Bin = "Number too big"
        Exit Function
    End If
    Do
        If (myNum And 2 ^ loopcounter) = 2 ^ loopcounter Then
            Dec2Bin = "1" & Dec2Bin
        Else
            Dec2Bin = "0" & Dec2Bin
        End If
        loopcounter = loopcounter + 1
    Loop Until 2 ^ loopcounter > myNum
End Function
 
Private Sub Command1_Click()
Label1.Caption = Dec2Bin(Val(Text1.Text))
End Su