درخواست آموزش محصول مصرفی

[vistamobile 1,700]

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

[vistamobile 1,700]

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

[Elyas Erfani 3,582]

بیا و کلاس رو ب این تغییر بده

Sub Class_Globals 	

 End Sub 

Public Sub Initialize 

End Sub

 Sub CheckSaveFile(FileName As String ,Label As Label , Emtiaz As String) As Boolean 

	If File.Exists(File.DirInternal , FileName) = True Then 

		Label.Text = Emtiaz 		

Else If File.Exists(File.DirInternal , FileName) = False Then 		

	'//فایل موجود نیست 

	End If 

End Sub

و ب این صورت در اکتیویتی کریت ها چک کن 

Dim cf As CheckFile
cf.Initialize
cf.CheckSaveFile("اسم فایل امتیاز ک قبلا سیو کردی.txt",Label1,"20")

۲تا نکته مهمو دقت کن

 

یکی امتیازو با "" وارد کنی

و نکته مهم تر هم فایلیو ک موقع اتمام پرداخت سیو میکنی در DirInternal سیو‌کنی حتما