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

[abbas2142 557]

با سلام

 

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

و برنامه همین جوری می مونه

این ها هم کد های استفاده شده

Sub hemayat_PurchaseCompleted (Success As Boolean, Product As Purchase)
	If Success=True Then
	ToastMessageShow("پرداخت انجام شد",False) 
	StartActivity(asb)
	Else
	ToastMessageShow("انجام نشد",False)
	End If
End Sub

[abbas2142 557]

بیا بالا

 

بعد سه روز یعنی کسی نیست جواب من رو بد ؟؟؟؟؟؟؟

[مجید آرتا 5,875]

موقع پرداخت این پیغام :

	ToastMessageShow("پرداخت انجام شد",False) 

یا این پیغام نمایش داده میشه :

	ToastMessageShow("انجام نشد",False)

؟

[vistamobile 1,700]

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

[abbas2142 557]

خوب منم توی این موندم 

چطوری باید این کار رو بکنم ؟؟؟؟؟؟

[vistamobile 1,700]

خوب منم توی این موندم 

چطوری باید این کار رو بکنم ؟؟؟؟؟؟

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

"save1" و تو کد نویسی بگو که اگر این فایل وجود داشت فلان باتون فعال باشه!! فک کنم تو /اموزش درون خرید هستش. 

[abbas2142 557]

والا من نمی دونم منظورتون کدوم آموزش هستش ولی آموزشی که من دیدم اصلا از فایل txt  و... استفاده نمی کرد و یه پیغامی هم نشون می داد واسه خودش که واسه من نشون داد نمی شد 

 

اینم سورسش

Sub Process_Globals

End Sub

Sub Globals
Dim pardakht As BillingManager_b4a_org
Dim key As String="کلید RSA"
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("l1")
pardakht.Initialize("pardakht",key)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub button1_Click
pardakht.RequestPayment("inapptest","inapp","pardakht1")
End Sub

Sub button2_Click
pardakht.RequestPayment("inapptest1","inapp","pardakht2")
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

' برای حرید کتابخانه به آدرس زیر بروید
' www.shop.basic4android.org
' www.basic4android.org

    Else
ToastMessageShow("anjam nashod",False)
    End If
End Sub

[abbas2142 557]

بیا بالا

شاید یکی کمک کرد

[امین پوراباذری 1,045]

یه متغییر بولین به برنامه معرفی کن خوب مقدار پیش فرضش بگذار false  بعد بیا داخل اکتیویتی پرداخت بگو اگر پرداخت با موفقیت انجام شد مقدارش true کن حالا یه if بگذار اگر مقدار متغییر بولین true بود فلان اکتیویتی باز کنه اگر دیدی انجام نمیشه لاگ بگذار ببین اصلا این قسمت اجرا میشه که مقدار بولین را true کنه یا اصلا پرداخت انجام نمیشه که مقدار بولین true بشه

Dim buy As Boolean = False


if 
پرداخت انجام شد 
then
buy = true 

end if 


if 
buy = ture then
startacticity()
end if 

[aloneboy7617 155]

activity.finish 

این رو اضافه کن احتمالا درست بشه

[abbas2142 557]

activity.finish 

این رو اضافه کن احتمالا درست بشه

 

 

 

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

[Kazem Forghani 2,928]

به این شکل بنویسید :

StartActivity("asb")

[abbas2142 557]

نشد 

 

کلا کد خودم رو بی خیال بگید چطوری بعد پرداخت برم داخل اکتیوتی

[coco 1,746]

به این شکل بنویسید :

StartActivity("asb")

کاظم جان از شما بعیده!

چجوری باید اینجوری بره!

اکیتیویتی آبجکت هست!

نه استرینگ!

[Kazem Forghani 2,928]

کاظم جان از شما بعیده!

چجوری باید اینجوری بره!

اکیتیویتی آبجکت هست!

نه استرینگ!

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

 می خواید باور نکنید

[coco 1,746]

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

 می خواید باور نکنید

خودت این ور و اون ور اسم اکتیویتی رو "" میزاری؟

مگه داریم؟

مگه میشه؟

[abbas2142 557]

چی شد ؟؟؟؟

 

من می خوام هروقت پرداخت صورت گرفت یه اکتیوتی باز بشه !!!!