تایید متن تکست باکس

[vistamobile 1,700]

سلام . چجوری میشه متن داخل تکست باکس رو تایید کرد و کاربر بره به layout جدید؟

من خودم با عقل ناقصم اینو ساختم ولی عمل نکرد:

Sub Button1_Click	EditText1_EnterPressed
If ans=" جواب صحیح " Then
	correct = correct+1
End If
	Activity.LoadLayout("q2")
End Sub

که تو نرم افزار یه سیستم امتیاز دهی هم گذاشتم با هر پاسخ صحیح یک امتیاز. ولی راستش نمیدونم چجوری متن تکست باکس رو تایید کنم یا اصلا کد بالا صحیه؟

[vistamobile 1,700]

دادا پژمان دمت گرم اینو خودم ساختم مشکلم اینه که نمیخوام مجبور بشم واسه هر سوالی یه اکتیویتی بزنم. نمیخوام زیاد شلوغ بشه. یعنی با پاسخ درست یه لایوت جدید باز یشه نه اکتیویتی. *قلب**قلب**قلب*

با بدبختی درستش کردم . اینو نوشتم و کار کرد!!!

Sub RemoveView    Dim i As Int

   For i = Activity.NumberOfViews-1 To 0 Step - 1
   Activity.RemoveViewAt(i)
   Next

End Sub

بعدشم باتون سورس شما رو رو اینجوریش کردم:

Sub Button1_Click    If EditText1.Text="namjep" Then
   Activity.LoadLayout("test2")
   RemoveView
   Else
   Msgbox("جواب صحیح نیست!","خطا")
   End If
End Sub

من دست کاریش کردم چند بار ولی نشد و خیلی اذیت میکنه. آخرشم رفتم سراغ اکتیویتی ها. بابات پاسخگویی ممنون *گریه*

[مجید آرتا 5,870]

به این شکلم میتونید مورد مقایسه قرار بدید:

Sub ok_btn_Click
Dim GetTxt As String : GetTxt = "Basic4Android.Org"
   If EditText1.Text.Contains(GetTxt)=True Then
       StartActivity(activity2)
   Else 
       Msgbox("Your Data Not Equlse","")
   End If
End Sub

[vistamobile 1,700]

آقا مجید یه کد که لایوت باز کنه بجای اکتیویتی چی؟ *قلب*

این کد تعداد اکتیویتی هارو زیاد میکنه.

[مجید آرتا 5,870]

Sub ok_btn_Click
Dim GetTxt As String : GetTxt = "Basic4Android.Org"
   If EditText1.Text.Contains(GetTxt)=True Then
       Activity.LoadLayout("L1")
   Else 
       Msgbox("Your Data Not Equlse","")
   End If
End Sub

[vistamobile 1,700]

Sub ok_btn_Click
Dim GetTxt As String : GetTxt = "Basic4Android.Org"
   If EditText1.Text.Contains(GetTxt)=True Then
       Activity.LoadLayout("L1")
   Else 
       Msgbox("Your Data Not Equlse","")
   End If
End Sub

این کد عالیه فقط لایتوها میرن رو هم و قاطی میشن.

[پژمان نیکروان 6,054]

از این استفاده کن ببین چی میشه.

Sub ok_btn_Click Dim GetTxt As String : GetTxt = "Basic4Android.Org"     If EditText1.Text.Contains(GetTxt)=True Then Activity.RemoveAllViews          Activity.LoadLayout("L1")     Else          Msgbox("Your Data Not Equlse","")     End If End Sub

میاد اول پاک میکنه همشو بعد لود میکنه. حداقل دوتا اکتیویتی بذار ، یه اکتیویتی مخصوص سوالات که پرسیده میشه یکی هم به قول خودت جواب که میره لایوت بعدی. این کد بالا هم که دادم میتونی تو اکتیویتی دوم بذاری که کل ویو هارو پاک کنه بعد یه لایوت دیگه لود کنه. اگه متوجه نشدی بگو یه سورس کوچیک بنویسم واست.

[vistamobile 1,700]

متوجه شدم ممنون استاد. خودمم یه کد ساختم فعلا ایراد میگیره ولی ان شا الله درست شد میزارم*مرسی*

[aliakbari 0]

چجوری میشه توی سرویس یک لایوت رو لود کرد؟

[شایان آباد 2,148]

چجوری میشه توی سرویس یک لایوت رو لود کرد؟

 

دوست عزیز لطفا سوالات خود رو در تاپیک دیگران مطرح نکنید

هر سوال یک تاپیک

[vistamobile 1,700]

سلام هرکاری کردم نشد که نشد.

چندتا لایوت ساختم که لایوت اول استارت برنامست و میزنی میره سوال اول

جواب سوا اول رو که میزنی فقط رنک پیش زمینه لایوت دوم رو میاره و هیچ کاری نمیکنه.*عصبانی2*

[پژمان نیکروان 6,054]

خب این سورس رو نگاه کن.

3 تا لایوت استفاده شده.

دوتا اکتیویتی.

لایوت1: دوتا سوال توش وجود داره

لایوت2: با جواب درست دادن به سوال اول این لایوت لود میشه توی اکتیویتی دوم

لایوت3: جواب درست به سوال دوم این لایوت لود میشه توی اکتیویتی دوم

اکتیویتی اول: مختص لایوت 1 هست که سوال توشه

دوم: مختص لود شدن لایوت های درست جواب داده شده

دانلود سورس

[vistamobile 1,700]

خب این سورس رو نگاه کن.

3 تا لایوت استفاده شده.

دوتا اکتیویتی.

لایوت1: دوتا سوال توش وجود داره

لایوت2: با جواب درست دادن به سوال اول این لایوت لود میشه توی اکتیویتی دوم

لایوت3: جواب درست به سوال دوم این لایوت لود میشه توی اکتیویتی دوم

اکتیویتی اول: مختص لایوت 1 هست که سوال توشه

دوم: مختص لود شدن لایوت های درست جواب داده شده

دانلود سورس

این سورس عالیه. نمیدونم چرا به فکر خودم نرسید.*قلب*

چجوری میشه تو یک اکتیویتی چندتا لایوت ساخت که مخفی باشن و با عبور از یکی ، اون یکی لود بشه؟

[پژمان نیکروان 6,054]

والا لایوت مخفی من تاحالا ندیدم و یا بلد نیستم.

اما میتونی لایوت لود نکنی و وقتی طرف به اکتیویتی دوم منتقل شد ، ویو های مورد نظرت ادد بشه.

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

مثل همین سورس که یک لیبل تو هرکدوم از لایوت ها وجود داشت و متنی جدا داشت. میتونی درستش کنی فقط یک لایوت ولی متن لیبل رو تغییر بدی.

[vistamobile 1,700]

فعلا دارم رو toastmassage کار میکنم. یکی از دوستان گفت از این روش میشه. داداش شزمنده این دو روز حسابی اذیت شدی. *اشک کوچک*

[مجید آرتا 5,870]

دادا پژمان دمت گرم اینو خودم ساختم مشکلم اینه که نمیخوام مجبور بشم واسه هر سوالی یه اکتیویتی بزنم. نمیخوام زیاد شلوغ بشه. یعنی با پاسخ درست یه لایوت جدید باز یشه نه اکتیویتی. *قلب**قلب**قلب*

با بدبختی درستش کردم . اینو نوشتم و کار کرد!!!

Sub RemoveView    Dim i As Int

   For i = Activity.NumberOfViews-1 To 0 Step - 1
   Activity.RemoveViewAt(i)
   Next

End Sub

بعدشم باتون سورس شما رو رو اینجوریش کردم:

Sub Button1_Click    If EditText1.Text="namjep" Then
   Activity.LoadLayout("test2")
   RemoveView
   Else
   Msgbox("جواب صحیح نیست!","خطا")
   End If
End Sub

من دست کاریش کردم چند بار ولی نشد و خیلی اذیت میکنه. آخرشم رفتم سراغ اکتیویتی ها. بابات پاسخگویی ممنون *گریه*

شما اینجا به جواب خودتون رسیدید ولی متاسفانه از کدها به درستی استفاده نکردید و شما اول اومدید لایوت رو لود کردید بعد اومدید ویو ها رو Remove کردید که باعث خطا میشه

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

Sub ok_btn_Click
Dim GetTxt As String : GetTxt = "Basic4Android.Org"
   If EditText1.Text.Contains(GetTxt)=True Then
   RemoveView
    Activity.LoadLayout("test2")
   Else 
       Msgbox("Your Data Not Equlse","")
   End If
End Sub

[vistamobile 1,700]

شما اینجا به جواب خودتون رسیدید ولی متاسفانه از کدها به درستی استفاده نکردید و شما اول اومدید لایوت رو لود کردید بعد اومدید ویو ها رو Remove کردید که باعث خطا میشه

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

Sub ok_btn_Click
Dim GetTxt As String : GetTxt = "Basic4Android.Org"
   If EditText1.Text.Contains(GetTxt)=True Then
   RemoveView
    Activity.LoadLayout("test2")
   Else 
       Msgbox("Your Data Not Equlse","")
   End If
End Sub

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

تصحیح: شرمنده استاد. ایراد از دکمه های من بود.

[Farzad Musavi 576]

متن رو مستقیم تایید کن خب

if edittext1.text ="javab" then
Activity.LoadLayout("q2")
end if

[vistamobile 1,700]

متن رو مستقیم تایید کن خب

if edittext1.text ="javab" then
Activity.LoadLayout("q2")
end if

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

یعنی اینجوریباشه؟

Sub Button1_Click  
 If EditText1.text ="javab" Then
Activity.LoadLayout("q2")
End If
End Sub

[Farzad Musavi 576]

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

یعنی اینجوریباشه؟

Sub Button1_Click  
 If EditText1.text ="javab" Then
Activity.LoadLayout("q2")
End If
End Sub

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

[jeqele 562]

اصلا سوالو نفهمیدم.

متن مسیج باکس رو میشه تایید کرد اما تایید متن تکست باکس یعنی چی؟