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

[mortezasaidi 6]

با سلام

 

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

 

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

 

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

 

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

 

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

[مهدی ایزدی 9,203]

درود

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

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

[mortezasaidi 6]

درود

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

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

آقای ایزدی

 

listview

 

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

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

[مهدی ایزدی 9,203]

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

خدمت شما

[mortezasaidi 6]

سلام

مجدد

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

کد را گذاشتم

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

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

[نیما قبادی 246]

با سلام

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

یه End If کم کذاشتید

[mortezasaidi 6]

کجا دقیقا

 

کد را می گذارید

 

ممنون

[نیما قبادی 246]

بفرمایید

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

[مهدی ایزدی 9,203]

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

[mortezasaidi 6]

با عرض سلام

 

آقای ایزدی

لطف می کنید

 

کد Multi Panel

 

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

 

ممنون

میشوم

در انجمن ندیم

:gol: :gol:

[sajad8888 819]

سرچ کردن چیز خوبیه ها

http://answercenter.ir/topic/2213-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D8%AA%D8%B5%D9%88%DB%8C%D8%B1%DB%8C-%D8%B3%D8%A7%D8%AE%D8%AA-%D9%88-%D8%AE%D9%88%D8%A7%D9%86%D8%AF%D9%86-%D8%A7%D8%B7%D9%84%D8%A7%D8%B9%D8%A7%D8%AA-%D8%AF%DB%8C%D8%AA%D8%A7%D8%A8%DB%8C%D8%B3-%D8%A8%D8%A7-multi-panel/

[mortezasaidi 6]

دوستان گرامی

 

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

 

کد جناب ایزدی

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:

[مجید آرتا 5,874]

سلام

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

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

MyBank.ExecQuery2("SELECT * FROM tbl ORDER BY id LIMIT ?",Array As String(50))