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

[taha1371 84]

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

 

1 میخوام تا زمانی که پرداخت انجام نشده  وقتی که کلیک میکنه نره داخل اکتویت

 

 

2وقتی که پرداخت انجام شد بکه ار حمایت شما متشکرم و بره تو اکتویتی  ودفع بد که روی بانتو کلیک کرد چیری نگه و بره داخل اکتوتی 

 

 

 

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

Sub Button3_Click
	pardakht.RequestPayment("taranr","inapp","pardahkt1")
	StartActivity(a3)
End Sub

Sub Button2_Click
	pardakht.RequestPayment("taranr","inapp","pardahkt1")
	StartActivity(a2)
End Sub

Sub Button1_Click
	pardakht.RequestPayment("taranr","inapp","pardahkt1")
	StartActivity(a1)
End Sub

Sub pardakht_PurchaseCompleted (Success As Boolean, Product As Purchase)
	If Success=True Then
		If Product.DeveloperPayload="pardahkt1" Then
    ToastMessageShow("با تشکر از حمایت شما",False)

End If
	Else
	ToastMessageShow("پرداخت انجام نشده است",False)
	End If
End Sub

[dostmobile 329]

بنظر من شما باید بعد از پرداخت یه فایل متنی بسازین قسمت ساب پرداخت اضافه کنید

در قسمت باتن ها هم اینجور بنویسید

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

Sub pardakht_PurchaseCompleted (Success As Boolean, Product As Purchase)
	If Success=True Then
		If Product.DeveloperPayload="pardahkt1" Then
    ToastMessageShow("با تشکر از حمایت شما",False)
اینجا میگیم یه فایل متنی بساز 
file.WriteString(File.DirInternalCache,"NAME.txt","")
End If
	Else
	ToastMessageShow("پرداخت انجام نشده است",False)
	End If
End Sub

خب حالا میریم سراغ باتنها

چک میکنیم اگر فایل متنی وجود داشت انگاه برو اکتیویتی مورد نظر ,وگرنه برو ساب پرداخت

If File.Exists(File.DirInternalCache,"NAME.txt") = True Then
	Log("hast")
	StartActivity(x)
	Else
		pardakht     'boro be sub pardakht'
	
End If