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

[رضا قاسمی پور 0]

سلام  دوستان 

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

[رضا قاسمی پور 0]

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

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

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

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

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]

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
' به طور کلی این ساب بعد از خرید اجرا میشه

 

 

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

[Mr Mansour 325]

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

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

[رضا قاسمی پور 0]

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

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

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

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

[DexterFstone 396]

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

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

[رضا قاسمی پور 0]

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

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

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

 

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

[Mr Mansour 325]

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

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

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

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 بهتون برگردونه - بنده تست نگرفتم . شما تست بگیرین مطمئنن جواب میگیرین.