تبدیل مبنای 2 به 10 و برعکس

[mahdi.manian]

سلام دوستان.

می خواستم برنامه ای بنویسم که عدد مبنای 2 را به 10 و برعکس تبدیل کنه.

ممنون میشم اگه دوستان سورس این برنامه و در صورت امکان الگوریتم آن را برای بنده اینجا بگذارند.


با تشکر.

[ho3ein.3ven]

سلام . تبدیل مبنای 2 به 10 :
Dim p
Dim a
a = 0
p = InputBox("")
For i = 0 To Len(p) - 1
h = Right(p, 1)
p = Left(p, Len(p) - 1)
h = h * (2 ^ i)
a = a + h
Next
Print a

تبدیل مبنای 10 به 2 :

p = ""
num = Text1.Text
If num = 0 Then
n = 0
GoTo kj
End If
Do While num <> 1
h = num Mod 2
p = p & Str(h)
num = num \ 2
Loop
p = p & "1"
n = StrReverse(p)
kj:
Label1.Caption = n