مشکل درون پرداخت

[love-learning 3]

سلام...

سوالم اینه که من یه اکتیویتی ماژول دارم که توش یه سری توضیحات و دکمه پرداخت گذاشتم و قراره اینطور باشه که

وقتی کاربر پرداخت تو این اکتیویتی انجام داد، فلان باتن و فلان باتن تو اکتیویتی فلان و اکتیویتی فلان فعال بشن.

لطفا کدهای زیر ببینید

Sub Globals
Dim api As String : api = "RSA"
Dim pay As BillingManager3
Dim blnSupport As Boolean
Dim phone1 As PhoneId
	Private b3 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("f2")
pay.Initialize("upgrade",api)
pay.DebugLogging = True
If File.Exists(File.DirInternal,"upgrade") Then
اینجا باید بگم فلان دکمه فلان اکتیویتی فعال بشه  b3.Enabled = True
End If
End Sub

Sub upgrade_BillingSupported (Supported As Boolean, Message As String)
blnSupport = Supported
End Sub






Sub b2_Click   باتنی که داخل همین اکتیویتی که با اون پرداخت انجام میشه  
If blnSupport = False Then
 Msgbox("not support","error")
 Return
Else
 pay.RequestPayment("upgrade68","inapp",phone1.GetDeviceId)
End If
End Sub



Sub upgrade_PurchaseCompleted (Success As Boolean, Product As Purchase)
 If Success = True Then
  ToastMessageShow("برنامه با موفقیت ارتقا داده شد",False)
 ++>>> ایجا باید مشخص کنم که دکمه فلان اکتیویتی فعال بشه b3.Enabled = True
  File.WriteString(File.DirInternal,"upgrade","true")
 End If
End Sub


	

لطفا کمک کنید

[love-learning 3]

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

لطفا

[love-learning 3]

چطور میشه از ماژول کد برای اینکار استفاده کرد؟

لطفا راهنمایی کنید...

[امین پوراباذری 1,045]

برای این منظور از کتابخونه ی preference activity  استفاده کنید. البته از فایل ها هم میشه   یه متغیر از این کتابخونه معرفی کنید بعد بهش بگید اگر پرداخت انجام شد این متغییر true  بشه بعد داخل اکتیویتی اول شرط بگذارید که اگر این متغیر true  بود فلان باتون رو فعال کن. همین  کاربا فایل ها هم همینجوره ولی درعوض اونجا باید فایل بسازی