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

AnswerCenter

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

  • مرجع پاسخگویی
  • تولید آموزش
  • سفارش پروژه

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

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

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


mehdi1376

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

پست های پیشنهاد شده

discoversh    54

کاربر عادی

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

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

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
Kazem Forghani    2,921

پاسخگو و راهنما

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

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

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

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


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

کاربر عادی

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

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


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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

مهمان
ارسال پاسخ به این موضوع ...

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

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

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

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

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


×
×
  • جدید...