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

[jfareba 37]

سلام

یه برنامه دارم 6 بخش داره میخوام برای هر بخش پرداخت جدا گانه بزارم

از لیست ویو استفاده کردم

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

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

p.Initialize("pardakht",key)
	For i = 0 To 30
 List.AddSingleLine("Basic4android ==> "&i)
Next

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub List_ItemClick (Position As Int, Value As Object)
	Meghdar= Value
	
	p.RequestPayment("rah","inapp","pardakht1")
	If File.Exists(File.DirAssets, "ParsRoid/paycode.ghf") = False Then
	If Position < 6 Or Position = 6 Then
	Msgbox("این مطلب باز است","مطلب باز می باشد")
	End If
	End If
	
	 If File.Exists(File.DirAssets, "ParsRoid/paycode.ghf") = False Then
	If Position > 6 Then 
	ToastMessageShow("این مطلب قفل است و پس از پرداخت باز می شود.",False)
	End If 
	End If
	
	 If File.Exists(File.DirAssets, "ParsRoid/paycode.ghf") = True Then
	Msgbox("این مطلب باز است","مطلب باز می باشد")
	End If
	
End Sub

Sub pardakht_PurchaseCompleted (Success As Boolean, Product As Purchase)
	If Success=True Then

If Product.DeveloperPayload="pardakht1" Then
ToastMessageShow("pardakht1 anjam shod",False)
End If 
StartActivity(javzana)

	Else
ToastMessageShow("anjam nashod",False)
	End If
	StartActivity(Me)

End Sub

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

[امین شاهدی 5,777]

خب شما برای کد پرداخت شرط نزاشتین و هر بار اجرا میشه ، کد requestPayment  رو جایی بزارین که گفتین : if position>6 then تا اگه پوزیشن از 6 بیشتر بود درخواست پرداخت انجام شه

[jfareba 37]

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