رفتن به مطلب
  • 0

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


abbas2142

سوال

با سلام

 

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

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

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

Sub hemayat_PurchaseCompleted (Success As Boolean, Product As Purchase)
	If Success=True Then
	ToastMessageShow("پرداخت انجام شد",False) 
	StartActivity(asb)
	Else
	ToastMessageShow("انجام نشد",False)
	End If
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

ارسال های توصیه شده

بیا بالا

 

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

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

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

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

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

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

؟

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

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

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

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

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

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

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

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

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

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

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

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

 

اینم سورسش

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

Dim buy As Boolean = False


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

end if 


if 
buy = ture then
startacticity()
end if 
لینک ارسال
به اشتراک گذاری در سایت های دیگر

activity.finish 

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

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

activity.finish 

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

 

 

 

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

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

نشد 

 

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

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

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

StartActivity("asb")
کاظم جان از شما بعیده!

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

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

نه استرینگ!

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

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

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

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

نه استرینگ!

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

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

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

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

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

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

مگه داریم؟

مگه میشه؟

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

چی شد ؟؟؟؟

 

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

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

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...