قرار دادن پرداخت هدیه در برنامه (درون برنامه بازار)

[ah313mad 34]

سلام خسته نباشید عزیزان

 

من میخواستم یه بخش داخل برنامه ام قرار بدم که هر کدوم از افرادی که برنامه ام رو از " بازار " دانلود کردند .در صورتی که تمایل داشتن مثلا 500 تومن به عنوان هدیه و یا کمک به برنامه پرداخت کنن. یعنی نمی خوام بخش خاصی از برنامه باز بشه یا امکان جدیدی بهش اضافه بشه فقط پرداخت کنه و برگرده به یه صفحه از نرم افزار که از کاربر تشکر کنه . 

 

میتونید راهنمایی کنید

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

فرقی نداره که ... بیا این کدی واسه خودم نوشتم مثل اینه :

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
Dim pardakht As BillingManager3
Dim paysupport As Boolean
Dim codebazar As String="token shoma dar bazar"
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	'Activity.LoadLayout("Layout1")
Try
pardakht.Initialize("pardakht",codebazar)
pardakht.DebugLogging = True
Catch
End Try
End Sub

Sub pardakht_BillingSupported (Supported As Boolean, Message As String)
	paysupport=Supported
End Sub 
Sub pardakht
Try
	pardakht.RequestPayment("gif500t","inapp","pardakht")

	Catch
		ToastMessageShow("خطایی رخ داده است. لطفا دوباره امتحان کنید",False)
		End Try
End Sub

Sub pardakht_PurchaseCompleted(Success As Boolean, Product As Purchase)
	If Success Then
	ToastMessageShow("تشکر ازحمایت شما",False)
	Else
	ToastMessageShow("خطا در پرداخت",False)
	End If
	End Sub

[ah313mad 34]

منتظرم دوستان عزیز

[coco 1,746]

سلا دوستان!

من کتابخونه رو دارم!

کسی میتونه سورس همچین پرداختی که به عنوان هدیه باشه رو بهم بده لطفا؟؟

[Kazem Forghani 2,927]

سلا دوستان!

من کتابخونه رو دارم!

کسی میتونه سورس همچین پرداختی که به عنوان هدیه باشه رو بهم بده لطفا؟؟

شما با همون کتابخانه ایی که خریدید سورس نیست ؟ یا آموزشی ؟

[coco 1,746]

شما با همون کتابخانه ایی که خریدید سورس نیست ؟ یا آموزشی ؟

خیر نیست!

[ah313mad 34]

 

فرقی نداره که ... بیا این کدی واسه خودم نوشتم مثل اینه :

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
Dim pardakht As BillingManager3
Dim paysupport As Boolean
Dim codebazar As String="token shoma dar bazar"
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	'Activity.LoadLayout("Layout1")
Try
pardakht.Initialize("pardakht",codebazar)
pardakht.DebugLogging = True
Catch
End Try
End Sub

Sub pardakht_BillingSupported (Supported As Boolean, Message As String)
	paysupport=Supported
End Sub 
Sub pardakht
Try
	pardakht.RequestPayment("gif500t","inapp","pardakht")

	Catch
		ToastMessageShow("خطایی رخ داده است. لطفا دوباره امتحان کنید",False)
		End Try
End Sub

Sub pardakht_PurchaseCompleted(Success As Boolean, Product As Purchase)
	If Success Then
	ToastMessageShow("تشکر ازحمایت شما",False)
	Else
	ToastMessageShow("خطا در پرداخت",False)
	End If
	End Sub

 

 

دست شما درد نکنه . یه توضیح هم درباره سورس بدید و جایگزیناش و در بخش دیزاین باید چه چیزایی اضافه کنیم که ممنون میشم