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

[taha1371 84]

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

 من میخوام 5 تا باتون باشه که 2 از اونا بعد پرداخت  فعال بشن 

 

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

 

 

اینم کدشه

Sub Button2_Click
    pardakht.RequestPayment("wallpaperone","inapp","kharid")
End Sub
Sub pardakht_PurchaseCompleted (Success As Boolean, Product As Purchase)
If Success=True Then
     If Product.DeveloperPayload="kharid" Then
     File.WriteString(File.DirInternal,"pardakht.txt",1)
End If
Else
ToastMessageShow("پرداخت انجام نشده است",False)
End If
end sub

[porya 959]

سلام این کد رو امتحان کنید

 

کد رویداد کلیک که در صورت پرداخت شدن یه فایل ایجاد میشه...

Sub Button2_Click
    pardakht.RequestPayment("wallpaperone","inapp","kharid")
End Sub
Sub pardakht_PurchaseCompleted (Success As Boolean, Product As Purchase)
	If Success=True Then
    	If Product.DeveloperPayload="kharid" Then
    	File.WriteString(File.DirInternal,"pardakht.txt",1)
    	StartActivity(menu)
	Activity.Finish
	End If
	Else
	ToastMessageShow("پرداخت انجام نشده است",False)
	End If
end sub

و این کد رو تو اکتیویتی کریت بذار که چک کنه فایل مورد نظر هست یا نه که اگه بود یعنی پرداخت انجام شده...

	If File.Exists(File.DirInternal,"pardakht.txt")=True Then
	دستورات مورد نظر
	End If

[taha1371 84]

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

[MahdiHD 1,748]

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

[taha1371 84]

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

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

[taha1371 84]

کسی کمک نمیکنه

[porya 959]

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

Sub Button2_Click
    If File.Exists(File.DirInternal,"pardakht.txt")=True Then
       StartActivity(menu)
    End If

    pardakht.RequestPayment("wallpaperone","inapp","kharid")
End Sub
Sub pardakht_PurchaseCompleted (Success As Boolean, Product As Purchase)
	If Success=True Then
    	If Product.DeveloperPayload="kharid" Then
    	File.WriteString(File.DirInternal,"pardakht.txt",1)
    	StartActivity(menu)
	Activity.Finish
	End If
	Else
	ToastMessageShow("پرداخت انجام نشده است",False)
	End If
end sub

[MahdiHD 1,748]

کسی کمک نمیکنه

کسی کمک نمیکنه

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