مشکل با ارسال متن لیبل

[vistamobile 1,700]

سلام. امروز خواستم یه کاری بکنم ولی هرکاری کردم نشد!! یه برنامه سوال و جواب طراحی کردم که تو قسمت آخر مجبورم که اکتویتی رو عوض کنم( به دلیل استفاده از دیتا بیس) حالا مشکلم اینجاست که واسه امتیاز دهی از دیتا بیس استفاده نکردم چون امتیاز ها ثبت نمیشن یعنی کاربر هر دفعه که بازی کنه امتیاز جدیدشو میبینه.

مشکلم اینجاست که امتیازات مرحله آخر تو اکتویتی اول نمیرن به اکتویتی دوم:

[size=3]Sub s10_3_Click[/size]
[size=3] If s10_3 = Sender Then[/size]
[size=3] ToastMessageShow("جواب درست بود",False)[/size]
[size=3] rank_10.Text = rank_10.Text + Ranker[/size]
[size=3] StartActivity(end1)[/size]
[size=3] [color=#ff0000][font=arial black]rank_11.Text = rank_10.text[/font][/color][/size]
[size=3] Activity.Finish[/size]
[size=3] End If [/size]
[size=3]End Sub [/size]

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

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

خب اسم اکتویتی مورد نظر رو زدی یا نه ؟

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

چون توی هیچکدوم اسم اکتویتی مورد نظرت قرار ندادی .

[vistamobile 1,700]

گفتم دیگه :

StartActivity(end1)

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

میدونم مختار جان توی میخای به لیبل داخل اکتیویتی endl بفرستی خوب اول لیبلش اسم اکتیویتی رو ننوشتی دیگه :

endl.rank_11.Text = rank_10.text

[vistamobile 1,700]

میدونم مختار جان توی میخای به لیبل داخل اکتیویتی endl بفرستی خوب اول لیبلش اسم اکتیویتی رو ننوشتی دیگه :

endl.rank_11.Text = rank_10.text

داداش گیجیدم!! میشه توضیح بدی؟

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

مشکلت مشکل خاصی نیست *گاز*

بزار ساده بگم *گاز*

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

اقا Label 1 لیبل اکتویتی اول بنده

Label 2 لیبل اکتیویتی دوم

خوب میخام متن Label 1 رو بفرستم توی Label 2 که توی اکتیویتی دوم که مثلا اسمش endl هستش میام مینویسم :

endl.Label2.Text = Label1.Text

همین دیگه *گاز*

[vistamobile 1,700]

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

[vistamobile 1,700]

عمل نکرد :

end1.rank_11.Text = rank_10.text
Word: rank_11
The following objects added permissions (duplicates are ignored):
No permissions were added.

[moinmah 40]

شما باید تد اکتیویتی endl و تو قسمت Process_Globals

اینو بنویسی :

Dim Rank_11 As Label

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

[vistamobile 1,700]

شما باید تد اکتیویتی endl و تو قسمت Process_Globals

اینو بنویسی :

Dim Rank_11 As Label

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

معین جان من لیبل rank_11 رو معرفی کردم. مشکل اینه که تو کد پایین ، rank_11 رو به عنوان لیبل نمیشناسه

[b]endl.Label2.Text = Label1.Text
[/b]

[moinmah 40]

آخه احتمالا تویه Process_Global نیست...

الان اگه Endl رو بنویسی و نقطه بذاری هیچ اتفاقی نمی افته ، چون تعریفش کردی تویه Globals ولی اگه تو Process_Globa تعریف کنی وقتی نقطه بذاری rank_11 رو میبینی

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

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

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

توی Process Globals نمیتونیم View رو به صورت عمومی تعریف کنیم این یک مورد.

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

یعنی اینطور میشه که شما اول یک متفییر عمومی تعریف کن توی اکتیویتی endl مثلا RankStr

endl.RankStr = rank_10.text

خب الان اون بالا من متنئ ریختم توی متغییری که توی اکتیویتی endl هست حالا بیا توی رویداد Create مربوط به اکتیویتی endl اینو بنویس :

rank_11.text = RankStr

[vistamobile 1,700]

نه . اینو ببین:

[vistamobile 1,700]

داداش گیج شدم دوباره. الان اینارو کجای دلم بزارم؟ *عصبانی2**عصبانی2* همونجوریه

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

آقا 2 تا اکتیویتی داریم.

یکی اسمش ac1 و یکیش ac2

2 تا لیبل داری و لیبل ac1 هست اسمش Label1 و لیبل ac2 هست اسمش Label2

تو میخوای Label1 رو بریزی توی Label2.این کار شدنیه ولی چطور.اقا شما بیا یک متغیر استرینگ توی ac2 در Proccess_Globals تعریف کن.مثلا ام متفییر هس Str.

خب الان میخاییم اول متن Label1 رو بریزیم توی Str.(چرا؟) چون میخوایم منتقلش کنیم به Label2.

مثلا توی دکمه این کدو مینویسیم که مربوط میشه به ac1.

Sub Button1_Click
ac2.Str = Label1.Text
StartActivity(ac2)
End Sub

اینجا اومدیم متنو ریختیم.خب میخایم دیگه توی Label2 ببینیمش و شما اینجا اینکارو میکنی

بیا توی رویداد Activity_Create کربوط به ac2 بنویس :

Label2.Text = Str

کل کار همین بود

[moinmah 40]

اوه عجب سوتی خفنی *لال*

آقا مجید درست میگه..

من همین الان تست کردم

اگه مشکل داشتی اینم سورس کد مثال

[vistamobile 1,700]

عــــاقا زن نگیرین حافظه و جیبتون خراب میــشه *گریه* الان میرم دوباره تست بنمایم

حــــــــــــــل شد. من اومدم اولش تو قسمت Sub Process_Globals اینو نوشتم تو هر دوتا اکتیویتی : Private rankstr As String

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

Sub s10_3_Click
   If s10_3 = Sender Then
   ToastMessageShow("جواب درست بود",False)
   rank_10.Text = rank_10.Text + Ranker
   StartActivity(end1)
   Activity.Finish
   end1. rankstr = rank_10.text
       End If    
End Sub    

و تو اکتیوتی دوم هم تو قسمت Sub Activity_Create(FirstTime As Boolean) هم نوشتم rank_11.text = rankstr

به همین سادگی، به همین خوشمزگی

[moinmah 40]

فقط برای RadioButton و CheckBox بیاد چیکار کرد؟

من یه متغیر به اسم Rd ساختم هم به طور نامشخص هم به طور Boolean بعد تعریفیش کردم :

Rd=rd1.checked

ولی وقتی تو اکتیویتی دیگه تویه دستور IF بازخوانی میکنم انگار اصلا تیک نخورده *wall*

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

فقط برای RadioButton و CheckBox بیاد چیکار کرد؟

من یه متغیر به اسم Rd ساختم هم به طور نامشخص هم به طور Boolean بعد تعریفیش کردم :

Rd=rd1.checked

ولی وقتی تو اکتیویتی دیگه تویه دستور IF بازخوانی میکنم انگار اصلا تیک نخورده *wall*

خب معادل سازی کنید دیگه *گاز* تو همین اکتویتی بیا شرط بزار مثلا اگه True بود عدد 1 رو توی متغییر مربوط به اکتویتی بعدی بزار و توی اکتویتی مورد نظر که میخای چک باکسو طبق چک باکس اکتویتی اول بزاری بیا همون متغییر رو شرط قرار بده.

مثلا میگی اگه عدد 1 توی متغییر بود بیا CHecked ویوی CHeckbox رو True کن.