تشخیص حروف

[phd.khosravi 64]

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

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

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

[phd.khosravi 64]

 

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

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

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

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

[Nemesis 1,846]

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

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

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

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

[shahab.es 5,429]

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

خیلی عالی بود

زیاد

فقط

<>

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

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

!=

[Nemesis 1,846]

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

[ahmandir 11]

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

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

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

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

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

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

[phd.khosravi 64]

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

[arash127 488]

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

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

End If

[phd.khosravi 64]

ممنون فقط راه ساده تر و سریع تری وجود نداره برا این کار ؟

[arash127 488]

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

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

 

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

[Nemesis 1,846]

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

[phd.khosravi 64]

میشه لطفا به صورت کد نویسی بگین که بهتر متوجه بشم

[Nemesis 1,846]

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

به این صورت

[phd.khosravi 64]

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

[shahab.es 5,429]

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

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

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

[phd.khosravi 64]

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

[Nemesis 1,846]

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

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