رفتن به مطلب
بیسیک فور ایکس
  • اطلاعیه ها

    • H@mid.RS

      جذب نیرو   پنجشنبه, 10 فروردین 1396

      درود به دوستان عزیز به چند نفر مدیر برای بخش های php و گرافیک نیازمندیم درصورت تمایل درخواست خود را در پیام خصوصی بفرستید  
    • H@mid.RS

      تغییر نام کاربری   دوشنبه, 28 فروردین 1396

      درود دوستانی که نام کاربری انها با ایمل شان یکی بود تغییر کرد مثلا نام کاربری sss@tmail.com به sss تغییر کرد دوستانی که مشکل ورود دارند @ به بعد را پاک کنند
    • H@mid.RS

      کسب درآمد   پنجشنبه, 31 فروردین 1396

      دوستانی که میخواهند با انجمن خودشون همکاری کنند و از محیط انجمن درآمد کسب کنند به بنده پیام خصوصی بفرستند
    • H@mid.RS

      راه اندازی وبلاگ برای انجمن   دوشنبه, 18 اردیبهشت 1396

      درود به همه دوستان عزیز از این پس کاربران ویژه  - همکاران - و مدیران میتوانند در انجمن برای خود وبلاگ بسازند
  • 0
arastooms

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

سوال

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

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

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


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

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

Recommended Posts

  • 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

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 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  ادیت تکست بذارید

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


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

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

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

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 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

موفق باشید

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 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 میگه صحیح

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


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

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

دوستان اگ بخوام در زبان بیسیک یک عدد اعشاری رو از عدد صحیح تشخیص بدم باید از چ دستوری استفاده کنم میشه راهنمایی کنید؟؟؟

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


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

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

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

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

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

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

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

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

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

×