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

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


mortezasaidi

سوال

با سلام

 

دوستان گرامی من قصد خرید کتابخانه پرداخت درون برنامه ای بازار را دارم

 

من یک کتاب دارم که 100 ردیف (id) دارد

 

می خواهم از ردیف 50 به بعد کاربر برنامه را بخرد یعنی از این ردیف گزینه خرید بالا بیاید و کاربر با خرید ان بتواند دیگر مطالب را بخواند.

 

لطف می کنند کد مورد نظر را برای من قرار بدهند

 

ممنون. :gol: :gol: :gol: :gol:

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

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

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

درود

از چند طریق میشه عمل کرد

شما توی کتابتون مطالب رو با استفاده از ListView گرفتید یا Multi Panel ؟

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

درود

از چند طریق میشه عمل کرد

شما توی کتابتون مطالب رو با استفاده از ListView گرفتید یا Multi Panel ؟

آقای ایزدی

 

listview

 

ممنون میشم کد را بنویسید

واقعا شرمنده :gol: :gol: :gol: :gol:

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

Sub ListView1_ItemClick (Position As Int, Value As Object)
	If Position < 50 Then
		کد باز کردن متن
	Else
		مسیج باکس مربوط به پرداخت درون پرداخت و شروع عملیات خرید
	End If
End Sub

خدمت شما

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

سلام

مجدد

آقای ایزدی عزیز

کد را گذاشتم

Sub ListViewData_ItemClick (Position As Int, Value As Object)

	If Position < 50 Then
If Pardakht = False Then
	Msgbox("خطایی رخ داد","خطا")
	Return
	Else
	payment.RequestPayment("eshterak","inapp",Id)
		End If
  	StartActivity(txtv)	
End Sub

ولی ایراد

B4A version: 5.00
Parsing code.    Error
Error parsing program.
Error description: Missing Keyword: end if
Occurred on line: 112
End Sub

را می گیرد با ید چه کرد

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

بفرمایید

Sub ListViewData_ItemClick (Position As Int, Value As Object)

	If Position < 50 Then
If Pardakht = False Then
	Msgbox("خطایی رخ داد","خطا")
	Return
	Else
	payment.RequestPayment("eshterak","inapp",Id)
		
End If
End If
  	StartActivity(txtv)	
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

دوست عزیز پیشنهاد میکنم آموزش های مقدماتی برنامه نویسی رو که توی بخش مبتدی ها هست دانلود کنید :)

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

با عرض سلام

 

آقای ایزدی

لطف می کنید

 

کد Multi Panel

 

را هم برایم بنویسید

 

ممنون

میشوم

در انجمن ندیم

:gol: :gol: :gol: :gol: :gol:

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

دوستان گرامی

 

هیچ کسی نمی تواند من چگونه می توانم این کار را نجام دهم !!

 

کد جناب ایزدی

Sub ListView1_ItemClick (Position As Int, Value As Object)
	If Position < 50 Then
		کد باز کردن متن
	Else
		مسیج باکس مربوط به پرداخت درون پرداخت و شروع عملیات خرید
	End If
End Sub

زمانی عمل می کند که یک گروه (دسته )داشته باشیم !!!

 

من در دیتابیسم 100 ردیف (id) دارم می خواهم 50 ردیف اولی دیتابیسم ( که ممکن است برخی ردیف ها متعلق به گروه 1 باشد برخی ها به گروه 2 و الی ... ) رایگان باشد و بقیه ردیف ها با استفاده از پرداخت درون برنامه ای با پرداخت هزینه باز شوند

 

ممنون می شوم

اساتید مجرب جواب بنده را بدهند.

 

:gol: :gol: :gol: :gol:

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

سلام

خب در اولین حالت شما بیا به وسیله LIMIT  مطالب رو بگیرید دیگه.

یک همچین کدی میشه :

MyBank.ExecQuery2("SELECT * FROM tbl ORDER BY id LIMIT ?",Array As String(50))
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

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