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

[MahdiAbasi 1]

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

[MahdiHD 1,748]

دوست عزیز بارها و بار ها در این مورد بحث شده است و پاسخ داده شده است ، چندین پاسخ را هم بنده داده ام لطف کنید ببل از تاپیک زدن از سرچ بالای انجمن استفاده کنید. در اغلب موارد سرچ عنوان تاپیک کار ساز است یا علی

[MahdiAbasi 1]

دوست عزیز بارها و بار ها در این مورد بحث شده است و پاسخ داده شده است ، چندین پاسخ را هم بنده داده ام لطف کنید ببل از تاپیک زدن از سرچ بالای انجمن استفاده کنید. در اغلب موارد سرچ عنوان تاپیک کار ساز است یا علی

سرچ کردم پیدا نکردم جوابم رو !! ممنون میشم لینک بدید

[alirezakazemizaroomi 437]

داداش راحت ترین کار اینه که دوتا دیتابیس درست کنی تو دیتابیس اولت همونطوری که گفتی فقط چند تا متنو بذار وبرا بقیه متنات بنویس"لطفا نسخه کامل را خریداری کنید" بعد وقتی که پرداخت انجام شدبا کد زیر دیتابیس دومی(که کامل)رو جایگزین دیتابیس قبلی کن:

Dim ht As HttpJob
    ht.Initialize("update",Me )
   
    ht.Download("http://torab.ir/ccc/sql1.db")
File.WriteString(File.DirInternal,"Success-pay.txt","paysuccess")
 ProgressDialogShow("updating")

Sub JobDone(Job As HttpJob)
ProgressDialogHide
 If Job.Success Then
  If Job.JobName = "update" Then
   Dim ou As OutputStream
   File.Delete(File.DirInternal,"sql1.db")
   ou = File.OpenOutput(File.DirInternal,"sql1.db",False)
   File.Copy2(Job.GetInputStream,ou)
   ou.Close
   ToastMessageShow("آپدیت انجام شد ؛برنامه را دوباره اجرا کنید",True)
  End If
 End If
End Sub

[ebham 232]

Sub Panel1_Click

	Dim pnsender As Panel
	pnsender=Sender
	pager=pnsender.Tag


(Log(pager

	If (pager<5) OR (pager=5) Then 

		(StartActivity(mataleb

		Activity.Finish

	Else If pager>5 Then 
          
		If File.Exists(File.DirInternal,"GoldVR") Then 
	 ( StartActivity(mataleb
        Activity.Finish 
	Else			
		ToastMessageShow("لطفا برنامه را به نسخه طلایی ارتقا دهید . با تشکر",True)
			End If 
	End If 


End Sub

خوب توی کد بالا اومدیم گفیتم اگر کاربر بر روی مطالب 1 تا 5 کلیک کرد بره  به اکت مطلب -- حالا یه فایل ذخیره هم داریم که   موقعی که  خرید انجام میشه اون فایل ساخته میشه 

 

حالا اگر کاربر برنامه رو ارتقا داده بود پس اون فایل هستش پس اگر کابر ایتم ها 6 به بالا رو کلیک کنه باز هم میره اکت مطلب اگر هم موجود نبود پس خرید نشه و یه توست مسیج بهش میگه که لطفا برنامه رو ارتقا بدید