يك عدد را ازمبناي 2 دريافت و آنرا به مبناي ده ببرد

[ahmadfononi]

یک Command ایجاد کرده و کد های زیر را در آن قرار دهید
​

Private sub command 1_click()
N = val (text1.text)
D = 0
P = 0
While n<>0
M = n mod 10
D= d+ m*2^p
P = p +1
N = n\10
Wend
Label1.caption = d
End sub​