تشخیص مبنای عدد ورودی

[taninpersian]

سلام ، کسی فانکشن یا متدی برای تشخیص عدد ورودی کابر داره که بتونه تشخیص بده که مثلا ایا این عدد ورودی مبنای 8 هست یا خیر ؟ اگر راهنمایی کنید ممنون میشم:قلب::قلب::قلب:

[taninpersian]

واقعا ممنون بابت این همه توجه :ناراحت::ناراحت::ناراحت::نار� �حت::ناراحت:

[Aryan.Software]

با فرض اینکه مبنای مورد نظر کوچک ترین مبنای ممکن باشه:


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
myMabna = GetMabna(TextBox1.Text)
MsgBox(myMabna)
End Sub

Public Function GetMabna(ByVal Number)

Dim ResMabna As Integer = 0
If IsNumeric(Number) Then
For Each Chr As Char In Number.ToString
If Val(Chr) > ResMabna Then ResMabna = Val(Chr)
Next

Return ResMabna + 1
Else
Return -1
End If
End Function

[محمد آشتیانی]

سلام ، کسی فانکشن یا متدی برای تشخیص عدد ورودی کابر داره که بتونه تشخیص بده که مثلا ایا این عدد ورودی مبنای 8 هست یا خیر ؟ اگر راهنمایی کنید ممنون میشم:قلب::قلب::قلب:

سلام
خیر امکان پذیر نیست ، از نظر ظاهری یک عدد در مبنای 2 تشکیل شده از 0 و 1 ، یا برای مبنای 8 اعداد 0 الی 7
حالا شما با دیدن عدد 10 از کجا میخوای متوجه بشی این عدد در مبنای 2 هست یا 8 یا 10 یا 16 و یا هر مبنای دیگری؟ این عدد در همه مبناها درسته البته با مقادیر متفاوت
تنها مبنایی که میشه دقیق مشخص کرد ، مبنای 16 هست ، تازه اونم به شرطی که حتما یکی از کاراکترهای a,b,c,d,e,f (که هرکدوم معرف یک عدد هستن) توی اون عدد باشه
یا مثلا برای عدد 931 فقط میشه حدس زد که این عدد تو مبنای 10 یا بیشتره

جواب نهایی شما اینه که چیزی که شما میخوای اصلا امکان پیاده سازیش نیست.


موفق باشید.

[taninpersian]

سلام به دوستان گل . خب گفته جناب اشتیانی صحیح اما اگر عدد 8 یا 9 باشه که میشه گفت مبنای 8 نیست و یا 18 و 19 ، درست عرض کردم؟