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

استفاده از سکه در برنامه


ماهان محمدی

سوال

سلام سلام سلام

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

لطفا با نمونه کد و سمپل راهنماییم کنید

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

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

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

در 18 ساعت قبل، ماهان محمدی گفته است :

سلام سلام سلام

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

لطفا با نمونه کد و سمپل راهنماییم کنید

سلام. ببین این پروسه طولانی ولی سادست :

 

اول تو اکتیویتی main تو قسمت process global اینو بزن :

Sub Process_Globals
	' مقدار اولیه سکه
	Dim coin As Int = 10
	
End Sub

بعد تو Activity_Create همون اکتیوتی main ذخیرش کن به این صورت :

	If File.Exists(File.DirInternal ,"coinc.txt") = False Then
		File.WriteString(File.DirInternal,"coinc.txt",coin)
	End If

حالا باید بیایی برای فراخوانی مقدار سکه ذخیره شده هم یه خط کد بنویسی . این خط کد میاد اگر کاربر از بازی خارج شد، بعد وارد شد آخرین مقداری که سکه داشته رو فراخونی میکنه:

Sub Activity_Resume
	Try
		
		
		coin=File.ReadString(File.DirInternal,"coinc.txt")
		
	Catch
		Log(LastException)
	End Try
End Sub

همونطوری که مشخصه، اومدم تو  Activity_Resume اینو زدم . الان کارمون با اکتیویتی main تموم شد. بریم سراغ دیدن ویدئو یا کم و زیاد شدن سکه :

	Main.coin = Main.coin + 5
	File.WriteString(File.DirInternal,"coinc.txt",Main.coin)

این کد رو هر جایی خواستی تو هر اکتیوتی میتونی بزاری. یعنی چی؟ یعنی مثلا کاربر به سوالت جواب داده و 5 سکه جایزه گرفته، اینو میزاری تو ساب باتون جوابت. یا ویدئو رو دیده بعد تو ساب برگشت تایید ویدئو اینو میزاری. یا درون پرداخت کرده بعد تایید درون پرداخت اینو میزاری . مثلا اینجا کاربر من 50 سکه خریده. من تو ساب تایید خرید، بعد از خرید موفق این کد رو گذاشتم که 50 سکه اضافه بشه و ذخیره بشه

Sub pardakht_PurchaseCompleted (Success As Boolean, Product As Purchase)

' این تایید پرداخته
If Success= True Then
		If Product.DeveloperPayload = "pardakht1" Then		
pardakht.ConsumeProduct(Product)

' این اضافه و ذخیره کردن سکه ست
			Main.coin = Main.coin + 50
			File.WriteString(File.DirInternal,"coinc.txt",Main.coin)

		Msgbox("تبریک"," 50 سکه اضافه شد")
			
		
		End If
end if

 

 

 

 

 

 

 

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

در 4 ساعت قبل، vistamobile گفته است :

سلام. ببین این پروسه طولانی ولی سادست :

 

اول تو اکتیویتی main تو قسمت process global اینو بزن :


Sub Process_Globals
	' مقدار اولیه سکه
	Dim coin As Int = 10
	
End Sub

بعد تو Activity_Create همون اکتیوتی main ذخیرش کن به این صورت :


	If File.Exists(File.DirInternal ,"coinc.txt") = False Then
		File.WriteString(File.DirInternal,"coinc.txt",coin)
	End If

حالا باید بیایی برای فراخوانی مقدار سکه ذخیره شده هم یه خط کد بنویسی . این خط کد میاد اگر کاربر از بازی خارج شد، بعد وارد شد آخرین مقداری که سکه داشته رو فراخونی میکنه:


Sub Activity_Resume
	Try
		
		
		coin=File.ReadString(File.DirInternal,"coinc.txt")
		
	Catch
		Log(LastException)
	End Try
End Sub

همونطوری که مشخصه، اومدم تو  Activity_Resume اینو زدم . الان کارمون با اکتیویتی main تموم شد. بریم سراغ دیدن ویدئو یا کم و زیاد شدن سکه :


	Main.coin = Main.coin + 5
	File.WriteString(File.DirInternal,"coinc.txt",Main.coin)

این کد رو هر جایی خواستی تو هر اکتیوتی میتونی بزاری. یعنی چی؟ یعنی مثلا کاربر به سوالت جواب داده و 5 سکه جایزه گرفته، اینو میزاری تو ساب باتون جوابت. یا ویدئو رو دیده بعد تو ساب برگشت تایید ویدئو اینو میزاری. یا درون پرداخت کرده بعد تایید درون پرداخت اینو میزاری . مثلا اینجا کاربر من 50 سکه خریده. من تو ساب تایید خرید، بعد از خرید موفق این کد رو گذاشتم که 50 سکه اضافه بشه و ذخیره بشه


Sub pardakht_PurchaseCompleted (Success As Boolean, Product As Purchase)

' این تایید پرداخته
If Success= True Then
		If Product.DeveloperPayload = "pardakht1" Then		
pardakht.ConsumeProduct(Product)

' این اضافه و ذخیره کردن سکه ست
			Main.coin = Main.coin + 50
			File.WriteString(File.DirInternal,"coinc.txt",Main.coin)

		Msgbox("تبریک"," 50 سکه اضافه شد")
			
		
		End If
end if

 

 

 

 

 

 

 

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

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

در 1 ساعت قبل، ماهان محمدی گفته است :

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

ببخش بزرگوار. دقت نکردم 

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

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

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