رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.

AnswerCenter

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

  • مرجع پاسخگویی
  • تولید آموزش
  • سفارش پروژه

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

 برای استفاده از تمامی امکانات سایت لطفا در انجمن عضو شوید


بایگانی شده

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

  • 0
saeed120m

مشکل با BillingManager3

سوال

saeed120m    10

کاربر عادی

سلام دوستان

یه کتاب دارم

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

با BillingManager3

رو سامسونگ j3  با اندروید 5.1  راحت کار میکنه

ولی رو سونی xperia p با اندروید 4.1

و سامسونگ j5 با اندروید 6

امتحان کردم برنامه باز نمیشه

امتحان کردم مشکل از کدای درون پرداخت هست ، این کدارو که حذف میکنم برنامه راحت باز میشه

 

از این کتابخانه استفاده میکنم

MyketIAP

 

اینم کدهام

AddPermission(ir.mservices.market.BILLING)       'دسترسی درون پرداخت مایکت 




Sub Process_Globals
	Private key As String ="MIG"
	Dim oBillingManager As BillingManager3
End Sub

Sub Activity_Create(FirstTime As Boolean)
	If FirstTime Then
		oBillingManager.Initialize("BillingManager", key)
		
		oBillingManager.DebugLogging = False 
	End If
End Sub 

Sub BillingManager_BillingSupported(Supported As Boolean, Message As String)
	If Supported=True Then
		
	Else
		ToastMessageShow("برنامه از پرداخت درون برنامه ای پشتیبانی نمیکند",False)
	End If
End Sub


Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub Button_premium_Click
	oBillingManager.RequestPayment("premium", "inapp", "Developer Payload")
End Sub


Sub BillingManager_PurchaseCompleted (Success As Boolean, Product As Purchase)
	If Success= True Then
		ToastMessageShow("با تشکر، خرید با موفقیت انجام شد",True)

		cur=s.ExecQuery("select * from tbl ")

		S.ExecNonQuery("UPDATE tbl SET premium = 1 ")
Else If Success=False Then
			ToastMessageShow("خرید انجام نشد، دوباره تلاش کنید" , True)
	End If

End Sub


 

اگه میشه راهنمایی کنید

 

 

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


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

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

پست های پیشنهاد شده

m007moh    180

کاربر رو به رشد

در در 1397/10/20, 21:26:40، saeed120m گفته است :

سلام دوستان

یه کتاب دارم

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

با BillingManager3

رو سامسونگ j3  با اندروید 5.1  راحت کار میکنه

ولی رو سونی xperia p با اندروید 4.1

و سامسونگ j5 با اندروید 6

امتحان کردم برنامه باز نمیشه

امتحان کردم مشکل از کدای درون پرداخت هست ، این کدارو که حذف میکنم برنامه راحت باز میشه

 

از این کتابخانه استفاده میکنم

MyketIAP

 

اینم کدهام


AddPermission(ir.mservices.market.BILLING)       'دسترسی درون پرداخت مایکت 




Sub Process_Globals
	Private key As String ="MIG"
	Dim oBillingManager As BillingManager3
End Sub

Sub Activity_Create(FirstTime As Boolean)
	If FirstTime Then
		oBillingManager.Initialize("BillingManager", key)
		
		oBillingManager.DebugLogging = False 
	End If
End Sub 

Sub BillingManager_BillingSupported(Supported As Boolean, Message As String)
	If Supported=True Then
		
	Else
		ToastMessageShow("برنامه از پرداخت درون برنامه ای پشتیبانی نمیکند",False)
	End If
End Sub


Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub Button_premium_Click
	oBillingManager.RequestPayment("premium", "inapp", "Developer Payload")
End Sub


Sub BillingManager_PurchaseCompleted (Success As Boolean, Product As Purchase)
	If Success= True Then
		ToastMessageShow("با تشکر، خرید با موفقیت انجام شد",True)

		cur=s.ExecQuery("select * from tbl ")

		S.ExecNonQuery("UPDATE tbl SET premium = 1 ")
Else If Success=False Then
			ToastMessageShow("خرید انجام نشد، دوباره تلاش کنید" , True)
	End If

End Sub


 

اگه میشه راهنمایی کنید

 

 

به این موضوع دقت کن که روی هر گوشی استفاده میکنی حتما مایکت هم روی اون گوشی نصب باشه!!

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


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

×
×
  • جدید...