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

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


taha1371

سوال

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

 من میخوام 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

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

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

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

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

 

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

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

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

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

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

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

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

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