• 0
arastooms

تشخیص عدد صحیح و اعشاری

سوال

سلام به همه دوستان 
قصد دارم یک عدد از ورودی بگیرم و آنالیز کنم اگر اعشاری بود مسیج بدم اعدد اعشاری و اگر صحیح بود مسیج بدم عدد صحیح است

آیا کتابخونه ای هست برای این منظور و یا سورس کد کوچکی که من رو راهنمایی بفرمایید.

طاها الیاس زاده پسند دیده است

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

8 پاسخ به این سوال تا کنون داده شده است

  • 0
Private a As Float
Private b As Int
a=12.233233

Sina as int 
Sina = a*200
B=floor( sina)
If sina -B = 0 
عدد صحیح 
Else
اعشاری
End if

arastooms پسند دیده است

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
Sub EditText1_TextChanged (Old As String, New As String) 
Dim test As String 
test=New.ToLowerCase
If test= "1" Or test="2" Then
EditText1.Text=""
Msgbox("خطا","متن ورودی اشتباه است")
End If 
End Sub

سلام 

من متوجه کار کرد این کد ها نشدم ؟؟

میشه کمی توضیح بفرمایید چه طور کار میکنه ؟؟

و از کجا تشخیص میده 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

اگه ادیت تکس پره اینجوری تست کن

	If edittext.Text.IndexOf(".")<>-1 Then
		Msgbox("عدد اعشاری","")
	Else
		Msgbox("تحیح اعشاری","")
	End If

البته قبلش edittext را از نوع number  بذاریذ

 

اگر هم میخواید در زمان وارد کردن عدد متوجه بشه همین کد رو تو رویداد change  ادیت تکست بذارید

Sina و salmana پسند شده است

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

Sub IsDecimal(s As String) As Boolean
Return IsNumber(s) And Floor(s) = s
End Sub

این رو یه تست بزن

arastooms پسند دیده است

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

اینو خودم گفتم ببین می شه

S as float 
S = floor(edidtext1.text)
If edidtext1 -s = 0 then
Msgbox("""عدد صحیح"
Else
Msgbox("""اعشاری"

گفتم بیاد عدد رو که در ادیت تکست یک هست رو رند کن و بریز توی متغیر s حالا بیا عدد ادیت تکس یک رو منها s کن اگر برابر صفر بود بنویس عدد صحیح نبود بنویس اعشاری

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

دوستان از همه تشکر میکنم بابت راهنمایی و مطالب 

:rolleyes:  :rolleyes:  :rolleyes: 
اصلا من با ادیت تکس کاری ندارم من عدد رو میگیرم و میخام یک سری عملیات روش انجام بدم 
فقط میخام بفهمم که صحیح هست یا اعشاری 
شما فرض کنید اصلا یک عدد من معرفی میکنم در یک مقدار int 
dim xxx as int = 2.3
این رو چه طور بفهمم که اعشاری هست 
در واقع من عدد رو میگیرم از ورودی و مشکلی ندارم باهاش 
بعد میام روی عدد یه عملیات ریاضی انجام میدم مثلا عدد کار بر رو به 200 تقسیم میکنم
 و میدم به xxx 
حالا میخام ببینم این xxx اعشاری هست یا صحیح 
در واقع میخام ببینم مضربی از 200 هست یا نه ؟؟

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

ببخشید پست آخر رو ندیدم :unsure:

---------------------------

سلام ،

کد زیر چک می کنه اگر متن EditText دارای نقطه بود یعنی اعشاری و اگر دارای نقطه نبود یعنی یک عدد معمولی هست:

If EditText1.Text.Contains(".") = True Then
	Msgbox("Float", "")
Else
	Msgbox("Integer", "")
End If

موفق باشید

Sina پسند دیده است

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

دوستان از همه تشکر میکنم بابت راهنمایی و مطالب 

:rolleyes:  :rolleyes:  :rolleyes: 

اصلا من با ادیت تکس کاری ندارم من عدد رو میگیرم و میخام یک سری عملیات روش انجام بدم 

فقط میخام بفهمم که صحیح هست یا اعشاری 

شما فرض کنید اصلا یک عدد من معرفی میکنم در یک مقدار int 

dim xxx as int = 2.3

این رو چه طور بفهمم که اعشاری هست 

در واقع من عدد رو میگیرم از ورودی و مشکلی ندارم باهاش 

بعد میام روی عدد یه عملیات ریاضی انجام میدم مثلا عدد کار بر رو به 200 تقسیم میکنم

 و میدم به xxx 

حالا میخام ببینم این xxx اعشاری هست یا صحیح 

در واقع میخام ببینم مضربی از 200 هست یا نه ؟؟

 

اینجوری که کاری نداره داداشم

مثلا عددت m  هست با مقدار 26.32 بیا اینکار کن

Dim m As Double
	Dim baghimande As Float
	m=26.32
	
	baghimande=m Mod 1
	
	If baghimande=0 Then 
	Msgbox("صحیح",baghimande)
	Else
	Msgbox("اعشاری",baghimande)
	End If

الان میگه اعشاری بداری 26 میگه صحیح

salmana و Sina پسند شده است

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !


ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید


ورود به حساب کاربری