اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

 برای استفاده از تمامی امکانات سایت لطفا در انجمن عضو شوید


mehdi1376

آموزش افزودن پرداخت درون برنامه به صورت ساده

5 ارسال در این موضوع قرار دارد

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

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("fehrest")
	pardakht.Initialize("pardakht","key")
	
    lv.SingleLineLayout.Label.Gravity = Gravity.CENTER
	lv.SingleLineLayout.Label.TextSize = 15dip
	lv.SingleLineLayout.ItemHeight = 60dip
	lv.SingleLineLayout.Label.TextColor=Colors.black
	Dim lbl  As Label
    lbl= lv.SingleLineLayout.Label
	lbl.Typeface=Typeface.LoadFromAssets("font66.TTF")
	
	Dim backlist As BitmapDrawable
	backlist.Initialize(LoadBitmap(File.DirAssets,"dsfd.jpg"))
	
	
	
	If FirstTime  =True Then 
		parser.Initialize 
	End If 
	Dim read As InputStream 
	read = File.OpenInput (File.DirAssets,"list.xml")
	parser.Parse (read,"Parser")
	read.Close 
End Sub
Sub Parser_EndElement (uri As String , name As String , text As StringBuilder)
	If parser.Parents.IndexOf("list")>-1 Then 
		If name ="Fasl" Then 
			fasl= text.ToString 
		Else If name="Name_fasl" Then
			name_fasl=text.ToString 
		Else If name="File_name" Then
			url=text.ToString 
		End If 
	End If
	If name = "list" Then
		lv.AddSingleLine2("     "& fasl, url)
	
	End If 
	
	
End Sub 

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub lv_ItemClick (Position As Int, Value As Object)
   pardakht.RequestPayment("lollipoptaste","inapp","pardakht1")
   If (Position>3) AND (File.Exists(File.DirInternal,"fullversion.txt")=False) Then
	 Msgbox("نسخه دمو","پیام")
    filename=Value 
    StartActivity("motalee") 
      Else
     ToastMessageShow("نسخه طلایی",False)
	 
	 End If
	
End Sub

Sub pardakht_PurchaseCompleted (Success As Boolean, Product As Purchase)
	
	If Success = True Then

	File.WriteString(File.DirInternal,"fullversion.txt","true")
	ToastMessageShow("shod","false")
	Else
	ToastMessageShow("naaashod","false")
	End If 
	
End Sub

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


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

می تونید به این صورت عمل کنید :

کد زیر رو در ساب آیتم کلیک بگذارید .

If Position >=3 Then
Msgbox("باید بخرید","")
StartActivty("pardakht")
End If

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


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

سلام اگه چند تا محصول داشته باشیم که با خرید هرکدوم عملیات خاصی بخواد انجام بشه تو ساب  pardakht_PurchaseCompleted چطوری باید کد رو بنویسیم لطفا راهنمایی کنید خیلی لازم دارم 
 

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


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

بعد از

If Success=True Then

تا else هر کدی که میخوای وقتی پرداخت انجام شد اجر بشه رو بنویس

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


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

مطالب شما نیاز است به تایید مدیران برسد

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

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   حذف قالب بندی

  تنها استفاده از ۷۵ اموجی مجاز می باشد.

×   لینک شما به صورت اتوماتیک جای گذاری شد.   نمایش به عنوان یک لینک به جای

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

×   شما مستقیما نمی توانید تصویر خود را قرار دهید. یا آن را اینجا بارگذاری کنید یا از یک URL قرار دهید.