رفتن به مطلب
  • 0

تشخیص حروف


phd.khosravi

سوال

If EditText1.Text = "a" OR "b" OR "c" Then
		ToastMessageShow("لطفا نام خود را به صورت فارسی وارد نمایید",False)
	End If

چرا وقتی تو برنامه b یا c میزنم بعد که رو باتن کلیک میکنم خطا میده ؟ ایرادش کجاش ؟

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

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

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

ارسال های توصیه شده

 

اینم استانداردش

Sub EditText1_TextChanged (Old As String, New As String)
    If New.ToLowerCase <> New.ToUpperCase Then
  	  ToastMessageShow("english",False)
	  EditText1.text = Old
    End If
End Sub

این دقیقا چطور میفهمه که اگه انگلیسی بود پیغام بده ؟

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

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

با استفاده از کلمات بزرگ و کوچیک که با caps lock کار میکنن

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

ما در فارسی کلمات بزرگ و کوچیک نداریم

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

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

حامد به حدی حال کردم که نتونستم پست ندم

خیلی عالی بود

زیاد

فقط

<>

این یعنی مقادیر فرق کنه؟(اولین باره دیدمش :D )

خوب نمیتونیم بگیم مساوی نباشه؟ 

!=

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

ماهایی که از qbasic شروع کردیم عادت به سیمبل <> کردیم بازم راه هست واسه رسیدن به محاسبه نا مساوی

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

در در 1394/05/01, 15:00:05، Nemesis گفته است :

با استفاده از کلمات بزرگ و کوچیک که با caps lock کار میکنن

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

ما در فارسی کلمات بزرگ و کوچیک نداریم

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

دمت گرم خیلی خوشم اومد

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

شرمنده یه سوال.... میشه کاری کرد که فقط حروف رو تو ادیت تکس بنویسی مثلا اعداد یا : , @#% از این سمبلها رو وارد کرد پیغام نشون بده ؟  میدونم که یکی از راه هاش وارد کردن تکی تکیه ولی دنبال یه روش بهتر و سریعتر هستم

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


If EditText1.Text = "a" OR EditText1.Text = "b" OR EditText1.Text = "c" Then

ToastMessageShow("لطفا نام خود را به صورت فارسی وارد نمایید",False)

End If

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

از دستور select case استفاده کن

یا مثلا میتونی حروف را داخل ارایه ذخیره کنی و به یه حلقه فور ازشون استفاده کنی.

 

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

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

در رویداد text change شما بیا یه select case بذار که هر کلمه لاتین تا تایپ میشه اخطار بده و پاک کنه

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

Sub text1_TextChanged (Old As String, New As String)
	Select New
	Case "a" Or "A"
		ToastMessageShow("لطفا نام خود را به صورت فارسی وارد نمایید",False)
		text1.text = Old
	Case "b" Or "B"
		ToastMessageShow("لطفا نام خود را به صورت فارسی وارد نمایید",False)
		text1.text = Old
	Case "c" Or "C"
		ToastMessageShow("لطفا نام خود را به صورت فارسی وارد نمایید",False)
		text1.text = Old
	End Select
End Sub

به این صورت

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

خب دیگه فقط میخوام بجز فارسی هر زبان دیگه یی استفاده شد پیغام بده که نام را فارسی وارد نمایید

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

خوب پس برعکس کار کن

بیا و فارسی هارو بده و بگو اگه اینا بود، تایپ کنه

اگه اینا نبود، خطا بده....

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

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

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

اینم استانداردش

Sub EditText1_TextChanged (Old As String, New As String)
    If New.ToLowerCase <> New.ToUpperCase Then
  	  ToastMessageShow("english",False)
	  EditText1.text = Old
    End If
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...