خطا درساخت پرداخت درون برنامه ای

[amirjun32 105]

سورس پرداخت درون برنامه ای من این خطا رو میدهو

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

#Region Activity Attributes

#FullScreen: False

#IncludeTitle: True

#End Region

Sub Process_Globals

'1.Copy Lib Files in Additional Library Folder

'2.check the CandoIap in refrenced Library panel

'Public key

Private key As String = "کد"

Dim phid As PhoneId

Dim pay As EtechInApp

Dim paysupport As Boolean

End Sub

Sub Globals

'Private buy_btn As Button

Private btnbuy As Button

End Sub

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("buy")

pay.Initialize("BillingManager", key)

pay.DebugLogging = True

If File.Exists(File.DirInternal,"payok") Then

btnbuy.Visible=False

End If

End Sub

Sub btnbuy_Click

If paysupport = True Then

Msgbox("Not Support","Error")

Return

Else

pay.RequestPayment("10_coin","inapp",phid)

End If

End Sub

Sub BillingManager_BillingSupported (Supported As Boolean, Message As String)

paysupport=Supported

End Sub

Sub BillingManager_PurchaseCompleted(Success As Boolean, Product As Purchase)

If Success Then

ToastMessageShow("تشکر از خرید شما",False)

File.WriteString(File.DirInternal,"payok.txt",".")

btnbuy.Visible=False

Else

ToastMessageShow("خطا در پرداخت",False)

End If

End Sub

میشه راهنمایی کنید که مشکل در کجاست و باید چکارش کنم؟

[milad19 113]

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

بعد هم بفرمایید از چه مارکتی هست؟

[amirjun32 105]

اون کد مخصوص من نبود و یکی ازدوستان به عنوان نمونه به من داده بود

از مارکت بازار.

[vistamobile 1,700]

فک کنم بازار یه کتابخونه فروشی داره. کسی از دوستان آموزش ویدئویی داره؟ من یکی دارم خیلی طولانیه

[milad19 113]

بله باید کتابخونه رو داشته باشید که قیمتش در سایت کوئیک لرن 50 تومنه

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

[amirjun32 105]

من خودم کتابخونشو دارم.اگه کسی بتونه مشکل منو حل کنه رایگان بهش میدم.

[vistamobile 1,700]

من خودم کتابخونشو دارم.اگه کسی بتونه مشکل منو حل کنه رایگان بهش میدم.

دادا شرط نذار دیگه.*باکلاس* هدیه کن به همه*گاز*

[مصطفی حقیقی 176]

این ارور زمانی اتفاق می افته که یکی از متغییر های استفاده شده null باشه

[amirjun32 105]

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

[resan 52]

سورس پرداخت درون برنامه ای من این خطا رو میدهو

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

#Region Activity Attributes

#FullScreen: False

#IncludeTitle: True

#End Region

Sub Process_Globals

'1.Copy Lib Files in Additional Library Folder

'2.check the CandoIap in refrenced Library panel

'Public key

Private key As String = "کد"

Dim phid As PhoneId

Dim pay As EtechInApp

Dim paysupport As Boolean

End Sub

Sub Globals

'Private buy_btn As Button

Private btnbuy As Button

End Sub

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("buy")

pay.Initialize("BillingManager", key)

pay.DebugLogging = True

If File.Exists(File.DirInternal,"payok") Then

btnbuy.Visible=False

End If

End Sub

Sub btnbuy_Click

If paysupport = True Then

Msgbox("Not Support","Error")

Return

Else

pay.RequestPayment("10_coin","inapp",phid)

End If

End Sub

Sub BillingManager_BillingSupported (Supported As Boolean, Message As String)

paysupport=Supported

End Sub

Sub BillingManager_PurchaseCompleted(Success As Boolean, Product As Purchase)

If Success Then

ToastMessageShow("تشکر از خرید شما",False)

File.WriteString(File.DirInternal,"payok.txt",".")

btnbuy.Visible=False

Else

ToastMessageShow("خطا در پرداخت",False)

End If

End Sub

میشه راهنمایی کنید که مشکل در کجاست و باید چکارش کنم؟

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

اول از همه باید بگی کدوم کتابخونه بازار رو داری (آقای زلفغار)یا (آقا مجتبی ) بعدش میتونم راهنماییت کنم

یا اینکه کلا فیلم بزارم که مراحل id گرفتن و کد نویسیش به چه صورته ؟

غیر از این کدها شما باید کد های مفیست رو هم اضافه کنی که به برنامه اجازه خرید درون برنامه ای و اتصال به اینترنت رو بده