• Home
 · 
• Custom Controls/Forms/Menus
 · 
• use of binary converter

use of binary converter

use of binary converter

Rate use of binary converter

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim r As Integer, i As Integer
Dim dec As Integer
Dim b(10) As Integer
a = Text1.Text
sum = 0
i = 0
c = 1
While (a > 0)
    r = a Mod 10
    sum = sum + (r * c)
    a = a \ 10
    c = c * 2
Wend
Text2.Text = sum

dec = sum
While (dec > 0)
b(i) = dec Mod 8
dec = dec \ 8
i = i + 1
Wend

For i = i To 0 Step -1
 Text3.Text = Text3.Text & b(i)
 Next i