رفتن به مطلب
  • 0

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


MahdiAbasi

سوال

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

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

4 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

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

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

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

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

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

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

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر


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 به بالا رو کلیک کنه باز هم میره اکت مطلب اگر هم موجود نبود پس خرید نشه و یه توست مسیج بهش میگه که لطفا برنامه رو ارتقا بدید 

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

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...