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

ساخت صفحه خرید اشتراک


رضا قاسمی پور

سوال

سلام  دوستان 

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

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

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

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

در در 14 بهمن 1399 در 00:31، Mr Mansour گفته است :

دوست عزیز اگر شما درون پرداخت بازار رو بلد باشید میدونید برای محصولات مصرفی inapp قرار میدید و برای محصولات اشتراکی subs قرار میدید.

بقیه ی روند کاری هم مثل همون تنها تفاوت همین هستش.

حالا در ساب نتیجه ی پرداخت - اون رو بررسی و حالا اون کاری که مد نظر شماست انجام میدید. همین :viannen_45:


bazar.RequestPayment("ProductID","subs","Answercenter.IR")


Public Sub bazar_PurchaseCompleted (Success As Boolean, Product As Purchase)
	If Success = True  Then
		
	End If
End Sub

 

راجب زمان اشتراک رو این هارو فک کنم متغیر Product بهتون برگردونه - بنده تست نگرفتم . شما تست بگیرین مطمئنن جواب میگیرین. 

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

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

Sub Globals
    Dim api As String="MIHNMA0GCSqGSIb3DQEBAQUAA4G7ADCBtwKBrwDmUXgWmUubuT/vIxLsj+Ih4HLx/+Or+Fyem4MD8YmyVSx7g8mpOr6TtcFMkw/2sgS1GPWPSloPSK3ph41NyXdCpV7kVO1PX7vAifGEU0kAYETF0AZs2ls83gHIdyUEMEAZTn9wKj8+mLS4cg6+U4LPCjmuFO38k/edwWS0YtwGJjhQLGnTN5kZS2ZIh78lMC2NSvSCVRwzYoGiD0W7p/Vji605wg86kNn5AR0/OOUCAwEAAQ=="
    'کلیدی که در قسمت پرداخت درون برنامه ای بازار، باید دریافت کنید
    
    Dim x As BillingManager3
    'این کتابخانه از سری کتابخانه های inAppBazzar
    ' باید اضافه شوئ
    
    Dim phone As PhoneId
    'از این کتابخونه برای دریافت آی دیه گوشی استفاده میشه (بهتره استفاده بشه)
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("main")
    'بارگذاری لیوت اصلی
    
    x.Initialize("inapp",api)
    'راه اندازی کتابخانه بازار و وارد کردن پارامتر کلید پرداخت درون برنامه ای
    
    x.DebugLogging=True
    'اگر خواستید این گزینه را اضافه کنید ولی لزوم نداره
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
    x.RequestPayment("wallpaper_creator","inapp",phone.GetDeviceId)
    'با فشردن کلید پرداخت، این درخواست به بازار ارسال میشه
    'پارامتر اول از سمت چپ، نام برنامه است که در قسمت پرداخت درون برنامه اضافه میشود
    'پارامتر دوم، نامی است که در هنگام راه اندازی کتابخانه بازار ساخته شد
    'پارامتر سوم ای دی گوشی را میگیرد و بهتره که اضافه بشه
End Sub

Sub inapp_PurchaseCompleted (Success As Boolean, Product As Purchase)
    If Success=True Then
        ToastMessageShow("تشکر از خرید شما",False)
        File.WriteString(File.DirRootExternal,"payed.txt","true")
        x.ConsumeProduct(Product)
    Else
        ToastMessageShow("خرید انجام نشد. دوباره تلاش کنید",False)
    End If
End Sub
' به طور کلی این ساب بعد از خرید اجرا میشه

 

 

(الان کجاش  باید  عوض  شه؟)

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

دوست عزیز گفتم که جای inapp 

subs قرار بدید در  . متد RequestPayment

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

در 26 دقیقه قبل، Mr Mansour گفته است :

دوست عزیز گفتم که جای inapp 

subs قرار بدید در  . متد RequestPayment

حله تست  میکنم  دمت گرم :53:

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

با سلام ببینید این ب کارتون میاد یکم راهنمایی کرده ک چطوری اقدام کنید

https://developers.cafebazaar.ir/fa/docs/iab/subscriptions/

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

در 33 دقیقه قبل، DexterFstone گفته است :

با سلام ببینید این ب کارتون میاد یکم راهنمایی کرده ک چطوری اقدام کنید

https://developers.cafebazaar.ir/fa/docs/iab/subscriptions/

 

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

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

دوست عزیز اگر شما درون پرداخت بازار رو بلد باشید میدونید برای محصولات مصرفی inapp قرار میدید و برای محصولات اشتراکی subs قرار میدید.

بقیه ی روند کاری هم مثل همون تنها تفاوت همین هستش.

حالا در ساب نتیجه ی پرداخت - اون رو بررسی و حالا اون کاری که مد نظر شماست انجام میدید. همین :viannen_45:

bazar.RequestPayment("ProductID","subs","Answercenter.IR")


Public Sub bazar_PurchaseCompleted (Success As Boolean, Product As Purchase)
	If Success = True  Then
		
	End If
End Sub

 

راجب زمان اشتراک رو این هارو فک کنم متغیر Product بهتون برگردونه - بنده تست نگرفتم . شما تست بگیرین مطمئنن جواب میگیرین. 

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

بایگانی شده

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

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

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