تغییر مبنا ها در کامپایلر B4A

[saimon2 0]

سلام و خسته نباشید.

من میخوام کد هگزادسیمالی که به این صورت گرفتم رو به دسیمال یا هر مبنای دیگه ای تبدیل کنم.

این کار روش  یا کتابخانه خاصی داره؟ تبدیل مبنا های ده دهی  یا دودویی که کاراکتر ندارند رو میتونم ی کاریش کنم ولی اینارو نه!

ممنون میشم راهنمایی بفرمایید مثال :

0X3F.

[مجید آرتا 5,874]

سلام

سورسی رو در براتون قرار میدم که می تونید مبناهارو به هم تبدیل کنید.

در مورد مبنای هگزادسیمال، برای تبدیل به هر مبنای دیگه ای، از 0x  توی تبدیلات استفاده نکنید.اگر به این شکل هست 0xffddaa شما از استفاده ی 0x  صرف نظر کنید.

توی کد سمپل هایی هست ک مشاهده کنید متوجه میشید.

 

فایل سورس » Base Converter(Www.AnswerCenter.IR).rar

موفق و موید باشید

[saimon2 0]

با تشکر. فقط نمیشه خروجی رشته به عدد تبدیل بشه؟کاریش نمیشه کرد؟برای من تعیین ارزش هر رقم از مینای باینری مهمه راهی هم جز استفاده از دستور مد و تقسیم بلد نیستم.

با تشکر

البته زمانی رو میگم که رشتم دارای کاراکتر هم باشه و بخوام ارزش ارقام اونو در بیارم( مقدارشون صفر هست یا یک هست)

اگه راهی هم برای سطر بالا وجود نداشت چطوری قسمتی از یک رشته رو جدا کنم؟

خیلی ببخشید طولانی شد

[saimon2 0]

ببخشید اسپم میشه ولی اگه به همون تابع بشه رشته ای فرستاد هم مشکلم حل میشه این کارو تست کردم اما جواب نداد.

بازم ببخشید

[مجید آرتا 5,874]

سلام دوستم

دقیقا متوجه منظورتون نشدم.

واضح تر بگید چیکار میخوایید انجام بدید.

 

[saimon2 0]

9 hours ago, مجید آرتا said:

سلام دوستم

دقیقا متوجه منظورتون نشدم.

واضح تر بگید چیکار میخوایید انجام بدید.

 

سلام . ببخشید که منظورم رو واضح بیان نکردم

راستش من میخوام مقداری رو به عنوان ورودی برای این تابعی که شما معرفی کردید بفرستم .

مثلا متغیری تعریف کنم که از اون طریق بتونم مقدار عبارتی رو که میخوام تبدیل کنم به تابع اساین کنم.

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

با تشکر

[مجید آرتا 5,874]

سلام

خب متغیر رو تعریف کنید و به تابع بدید

Dim num As String = "15"
Log(ConvertFromBaseToBase(num,10,16))

' ' ' ' ' ' ' ' Another Sample
Dim num As String = edtNumber.Text
If IsNumber(num) Then 
	Log(ConvertFromBaseToBase(num,2,16))
End If

منظورتون همچین چیزی بود ؟

[saimon2 0]

30 minutes ago, مجید آرتا said:

سلام

خب متغیر رو تعریف کنید و به تابع بدید

Dim num As String = "15"
Log(ConvertFromBaseToBase(num,10,16))

' ' ' ' ' ' ' ' Another Sample
Dim num As String = edtNumber.Text
If IsNumber(num) Then 
	Log(ConvertFromBaseToBase(num,2,16))
End If

منظورتون همچین چیزی بود ؟

بله من خودم ی جا اشتباه لپی داشتم.

تشکر