برنامه ی تبدیل مبنا 16 به 10

[هانی هاشمی]

با سلام
برنامه ی تبدیل مبنای 16 به 10 رو می خوام اگه کسی داره اینجا بزاره

[mahdi_farhani]

دوست عزیز اینم کدش ولی الگوریتم های دیگه هم هست ....


s = Text1.Text
n = 0
d = 0
For i = 1 To Len(s)
m = Right(s, 1)
s = Mid(s, 1, Len(s) - 1)
Select Case m
Case "A"
d = 10
Case "B" ' Or "b"
d = 11
Case "C" ' Or "c"
d = 12
Case "D" ' Or "d"
d = 13
Case "E" ' Or "e"
d = 14
Case "F" ' Or "f"
d = 15
Case Else
d = Val(m)
End Select
n = n + (d * (16 ^ (i - 1)))
Next i
Label1.Caption = n

دوست عزیز به عنوان یه بردار کوچکتر بهتون پیشنهاد می کنم این برنامه های ساده رو حداقل یکمی روش فکر کنید ....
موفق باشید

[S_VB.max]

MsgBox Val("&H" + Text1.Text)

[mahdi_farhani]

ایولا ..... اینو نمیدونستم که ویبی اینطوری هم تبدیل میکنه ....
کد بالا دیگه کشک کردی دیگه خیلی حال دادی.. 20 خط دستور رو تو یه &h خلاص کردی
مرسی ..

[habibb]

Uses wincrt;


Var


Number:string[10];


N,I,m,d,p:longint;


Begin


Writeln('enter number');


Readln(number);


I:=1;p:=1;d:=length(number);n:=0;


For i:=d downto 1 do


Begin


If ( number [i]>='0') and (number[i]<='9') then


M:=ord(number[i])-48


Else if (number[i]='A') or ( number[i]='a') then
M:=10


Else if (number[i]='B') or ( number[i]='b') then


M:=11


Else if (number[i]='C') or ( number[i]='c') then


M:=12


Else if (number[i]='D') or ( number[i]='d') then


M:=13


Else if (number[i]='E') or ( number[i]='e') then


M:=14


Else if (number[i]='F') or ( number[i]='f') then


M:=15;


N:=m*p+n;


P:=p*16;


end;


Writeln;writeln('the number is ten base');


writeln(n);


end.

[Tasiyan]

Uses wincrt;


Var


Number:string[10];


N,I,m,d,p:longint;


Begin


Writeln('enter number');


Readln(number);


I:=1;p:=1;d:=length(number);n:=0;


For i:=d downto 1 do


Begin


If ( number [i]>='0') and (number[i]<='9') then


M:=ord(number[i])-48


Else if (number[i]='A') or ( number[i]='a') then

M:=10


Else if (number[i]='B') or ( number[i]='b') then


M:=11


Else if (number[i]='C') or ( number[i]='c') then


M:=12


Else if (number[i]='D') or ( number[i]='d') then


M:=13


Else if (number[i]='E') or ( number[i]='e') then


M:=14


Else if (number[i]='F') or ( number[i]='f') then


M:=15;


N:=m*p+n;


P:=p*16;


end;


Writeln;writeln('the number is ten base');


writeln(n);


end.


دوست عزيز به 3 سال پيش برگشتي : http://barnamenevis.org/forum/images/statusicon/post_old.gif دوشنبه 04 اردیبهشت 1385, 04:32 صبح
قوانين سايت رو مطالعه كن/تاريخ تاپيك هم نگاه كن
موفق باشيد