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

AnswerCenter

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

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

اطلاعیه

کاربر گرامی

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

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


  • 0
Sign in to follow this  
vistamobile

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

Question

vistamobile    1,659

پاسخگو و راهنما

با سلام خدمت تمامی دوستان. من درون پرداخت رو پیاده کردم  و خرید انجام میشه و مبلغ کم میشه از اعتبار مایکتی خودم ولی درون برنامه هیچ اتفاقی نمیافته . اینم لاگ خرید:

*** Service (starter) Create ***
** Service (starter) Start **
** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
** Activity (main) Pause, UserClosed = true **
** Activity (start_mgame) Create, isFirst = true **
** Activity (start_mgame) Resume **
** Activity (start_mgame) Pause, UserClosed = true **
** Activity (shop_act) Create, isFirst = true **
** Activity (shop_act) Resume **
requestCode = 1
** Activity (shop_act) Pause, UserClosed = false **
sending message to waiting queue (OnActivityResult)
running waiting messages (1)
Arrived: 1, 1
** Activity (shop_act) Resume **

جالبه خیلی از دوستان مشکل من رو دارن و برگشتی خرید رو نمیتونن ثبت کنن. نمیدونم ایراد از کجاست ولی جهت اطمینان کد ها رو قرار میدم. ممنون میشم یکی از دوستان ببینه و جواب بده یا اگر نمونه سورس سالمی داره که رید انجام شده، اینجا به اشتراک بزاره. خرید مصرفی هستش(خرید سکه). اینم کدهای من :

Sub Process_Globals

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

	Dim oBillingManager As BillingManager3
End Sub

Sub Globals

کلید پرداخت:

	Dim key As String="MIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDTQ+l9SlTebW2ihOEzu3UQuRhvtG25MZe.........................."
	
	Private Button1 As Button

End Sub

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("shopl")

نصب درون پرداخت :

	oBillingManager.Initialize("BillingManager", key)
End Sub

دکمه خرید :

Sub Button1_Click
'	oBillingManager.RequestPayment("shop1", "inapp", "kharid1")
	oBillingManager.RequestPayment("shop1", "inapp", "kharid1")
End Sub

چک کردن درون پرداخت :

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


تایید خرید و اعمال سکه :

Sub BillingManager_PurchaseCompleted (Success As Boolean, Product As Purchase)
If Success=True Then
		If Product.ProductId="kharid1" Then
			oBillingManager.ConsumeProduct(Product)
		'	pardakht.ConsumeProduct(Product)
			ToastMessageShow("ده الماس و 50 سکه اضافه شد",True)
			Main.coin=Main.coin +50
			File.WriteString(File.DirInternal,"coinc.txt",Main.coin)

	End If
End If
End Sub

 

 

راستی دوستان دسترسی مانیفست رو هم دادم. :53::53::53::53::53::53:

 

 

 

 

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0
vistamobile    1,659

پاسخگو و راهنما

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

If Product.ProductId="kharid1" Then

در حالی که باید این تکه کد قرار داده بشه :

If Product.DeveloperPayload = "kharid1" Then

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

 

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

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

×
×
  • Create New...