رفتن به مطلب
فایل های ویژه
PersianRetrofit
RecyclerView
Poolakey B4A
PersianTapsellPlus
PersianStandOut
AriaDatabase

فعال سازی باتون در ازای امتیاز دهی در بازار

amirex128

توسط amirex128
در آموزش های متنی

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

amirex128

amirex128 19

ارسال شده در
ارسال شده در

سلام

کسی میتونه تیکه کدی بزار که بشه باهاش در ازای امتیاز دهی در بازار باتون غیر فعال فعال بشه.

یعنی وقتی کاربر رو باتون کلید کرد یک مسیج باکس باز بشه بگه برای این که دکمه فعال بشه باید امتیاز بدید و وقتی کلید کرد به صفحه نظر دهی و امتیاز بازار منتقل بشه و بعد باتون فعال بشه>

:crazy::S

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

shahab.es 5,429

ارسال شده در
ارسال شده در

سلام عزیزم

در کل راهی نیست که شما مطمئن بشی که کاربر امتیاز بهت داده یا نه

میتونی یه مسیج باکس بذاری و وقتی کلیک کرد، منتقلش کنی به صفحه نظر دهی!!!!

در همین حین، یه فایل تکست یا یه ردیف توی دیتابیس ایجاد کنی و بعدا بیای و ببینی که اگه اون فایل موجوده، بیاد و دکمه رو فعال کنه

مثلا

در هنگام لود، بیای و برای اون دکمه ای که میخوای فعال بشه یه شرط بذاری

if file.exeist(file.dirinternal,"nazar.txt") = false then
button1.enabled  = false
else
button1.enabled = true
end if

در رویداد کلیک دکه ات هم باید یه شرط بذاری که اگه دکمه فعال بود، بیاد و مثلا بره توی یه اکتیویتی، اگه غیر فعال بود، بیاد و یه مسیج باکس 2 نشون بده و با کد زیر، به فایل تکست ایجاد کنه و کاربر رو بفرسته به صفحه نظرات

file.writestring(file.dirinternal,"nazar.txt","ok")

برای ارسال به صفحه نظرات، از کتابخونه اریا لیب و کلاس اریا مارکت هم میتونی استفاده کنی

 

برای اینکه خیالت راحت باشه که کاربر نظر میده، یه اماکاناتی رو باز کن در ازای نظر، که کاربر جرئت نکنه نظر نده :D:oops::crazy:

موفق باشی

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

amirex128 19

ارسال شده در
  • سازنده
ارسال شده در

سلام عزیزم

در کل راهی نیست که شما مطمئن بشی که کاربر امتیاز بهت داده یا نه

میتونی یه مسیج باکس بذاری و وقتی کلیک کرد، منتقلش کنی به صفحه نظر دهی!!!!

در همین حین، یه فایل تکست یا یه ردیف توی دیتابیس ایجاد کنی و بعدا بیای و ببینی که اگه اون فایل موجوده، بیاد و دکمه رو فعال کنه

مثلا

در هنگام لود، بیای و برای اون دکمه ای که میخوای فعال بشه یه شرط بذاری

if file.exeist(file.dirinternal,"nazar.txt") = false then
button1.enabled  = false
else
button1.enabled = true
end if

در رویداد کلیک دکه ات هم باید یه شرط بذاری که اگه دکمه فعال بود، بیاد و مثلا بره توی یه اکتیویتی، اگه غیر فعال بود، بیاد و یه مسیج باکس 2 نشون بده و با کد زیر، به فایل تکست ایجاد کنه و کاربر رو بفرسته به صفحه نظرات

file.writestring(file.dirinternal,"nazar.txt","ok")

برای ارسال به صفحه نظرات، از کتابخونه اریا لیب و کلاس اریا مارکت هم میتونی استفاده کنی

 

برای اینکه خیالت راحت باشه که کاربر نظر میده، یه اماکاناتی رو باز کن در ازای نظر، که کاربر جرئت نکنه نظر نده :D:oops::crazy:

موفق باشی

منظورتون رو متوجه شدم ولی به دلیل این که تازه واردم و تسلت کامل با بیسیک ندارم نمیتونم کامل کد ها رو بنویسم هرچی مینویسم با ارور مواجع می شم ؟

 

این کد های صفحه فهرست من هست من میخوام برای باتون های 9و10و13و14 همچین کاری بکنم؟

آیا باید از دیزاینر اول باتون ها رو غیر فعال کنم؟

میشه یکم بیشتر توضیح بدید یا روی این کاد های من تغییر ایجاد کنید

#Region  Activity Attributes 
	#FullScreen: True
	#IncludeTitle: false
#End Region

Sub Process_Globals

End Sub

Sub Globals

	Private Button1 As Button
	Private Button2 As Button
	Private Button3 As Button
	Private Button4 As Button
	Private Button5 As Button
	Private Button6 As Button
    Private Button7 As Button
	Private Button8 As Button
	Private Button9 As Button
	Private Button10 As Button
	Private Button11 As Button
    Dim pay As BillingManager_b4a_org
    Dim blnSupport As Boolean
    Dim phone1 As PhoneId
    Dim api As String : api = "MIHNMA0GCSqGSIb3DQEBAQUAA4G7ADCBtwKBrwCsygZ0rfXuE+EUHWSAjD3LtNSe30IJuh3TB3V70CkW2m3RdBaEXXwFFBoSTF/JXLmmzVMGkklqZl1H+WElxLuELVQ6XDyaTfNfxfzBl8QI5mGeQo9eWfWE/5GWBMC7Apvz6GK6akQ52kVvUC+qb1u/GwVs5mMDeZ+jZIsrCCxUuKcCAwEAAQ=="
	Private Button12 As Button
	Private Button13 As Button
	Private Button14 As Button
End Sub




Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("fehrest")
	pay.Initialize("salavat",api)
    pay.DebugLogging = True
    If File.Exists(File.DirInternal,"upgrade") Then
Button5.Enabled = True
 Button6.Enabled = True
   Button7.Enabled = True
  Button8.Enabled = True
  Button10.Enabled = True
End If




If File.exeist(File.dirinternal,"nazar.txt") = False Then
Button1.enabled  = False
Else
Button1.enabled = True
End If











End Sub

Sub salavat_BillingSupported (Supported As Boolean, Message As String)
	blnSupport = Supported
End Sub

Sub Activity_Resume



End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub Button1_Click	
StartActivity(Menu1)
	
End Sub
Sub Button2_Click
		StartActivity(Menu11)
End Sub
Sub Button3_Click
	StartActivity(Menu1)
End Sub
Sub Button4_Click
	StartActivity(Menu1)
End Sub
Sub Button5_Click
	
	StartActivity(Menu1)
End Sub
Sub Button6_Click
	StartActivity(Menu1)
End Sub
Sub Button7_Click
	StartActivity(Menu1)
End Sub
Sub Button8_Click
	StartActivity(Menu1)
End Sub
Sub Button9_Click
	StartActivity(gallery)
	Activity.Finish
End Sub

Sub Button10_Click
	StartActivity(salavat)
End Sub
Sub Button11_Click
	If blnSupport = False Then
 Msgbox("not support","error")
 Return
Else
pay.RequestPayment("salavat","inapp",phone1.GetDeviceId)
 End If
End Sub

Sub salavat_PurchaseCompleted (Success As Boolean, Product As Purchase)
	If Success = True Then
 ToastMessageShow("برنامه با موفقیت ارتقا داده شد",False)
Button5.Enabled = True
  Button6.Enabled = True
 Button7.Enabled = True 
 Button8.Enabled = True
Button10.Enabled = True
 File.WriteString(File.DirInternal,"upgrade","true")
End If
End Sub




Sub Button12_Click
Dim sh As ShareApp
	StartActivity(sh.ShareApps("ارسال برنامه به دوستان"))
End Sub

Sub Button13_Click
	StartActivity(ahd)
End Sub
Sub Button14_Click
	StartActivity(sadaghe)
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر
amirex128

amirex128 19

ارسال شده در
  • سازنده
ارسال شده در

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

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

shahab.es 5,429

ارسال شده در
ارسال شده در

ببین

شما به قول اقا مجید نمیتونی باتنی که غیر فعال هست رو رویداد بدی

میتونی بیای و نذاری روش کلیک شه

توی رویداد کلیکت، یه کدی مثه زیر بذار

اول یه شرط بذار که ببینه ایا قبلا نظر دادی یا نه

ما وقتی که نظر میدیم، یه فایل تکست ایجاد میکنیم دیگه

درسته؟

خوب

if file.exist(file.dirinternal,"nazar.txt") = false then

یعنی قبلا نظر نداده
 
a = Msgbox2("برای استفاده باید نظر بدید","قفل است","آره، نظر میدم","","نظر نمیدم",Null)
	If (a = DialogResponse.POSITIVE) Then
	هدایت کاربر به صفحه نظرات
ایجاد فایل تکست
	End If
	
	If (a = DialogResponse.NEGATIVE) Then
هیچی دیگه، نمیخواد نظر بده 
	End If
	
else
یعنی قبلا نظر داده

کدهای دکمه رو اینجا مینویسی....

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

amirex128 19

ارسال شده در
  • سازنده
ارسال شده در

من دقیقا همین کار هار و کردم ولی به یک شکل دیگه روی باتون هام یک پنل نامرئی گذاشتم وگفتم  وقتی روی این پنل کلید شد مسیج باکس رو بیار بعد پنل رو غیر فعال کن تا بشه از باتون استفاده کرد.

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

حالا وقتی کاربر برای بار دوم میره مسیج باکس نمیاد تا اینجاش درسته ولی نمیدونم برای چی باتون ها عمل نمیکنه فکر کنم پنل ها غیر فعال نمیشن. :zoor:

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

#Region  Activity Attributes 
	#FullScreen: True
	#IncludeTitle: false
#End Region

Sub Process_Globals

End Sub

Sub Globals

	Private Button1 As Button
	Private Button2 As Button
	Private Button3 As Button
	Private Button4 As Button
	Private Button5 As Button
	Private Button6 As Button
    Private Button7 As Button
	Private Button8 As Button
	Private Button9 As Button
	Private Button10 As Button
	Private Button11 As Button
    Dim pay As BillingManager_b4a_org
    Dim blnSupport As Boolean
    Dim phone1 As PhoneId
    Dim api As String : api = "MIHNMA0GCSqGSIb3DQEBAQUAA4G7ADCBtwKBrwCsygZ0rfXuE+EUHWSAjD3LtNSe30IJuh3TB3V70CkW2m3RdBaEXXwFFBoSTF/JXLmmzVMGkklqZl1H+WElxLuELVQ6XDyaTfNfxfzBl8QI5mGeQo9eWfWE/5GWBMC7Apvz6GK6akQ52kVvUC+qb1u/GwVs5mMDeZ+jZIsrMQSDs87dTssqQCaRWqVAmipugk3gUuKcCAwEAAQ=="
	Private Button12 As Button
	Private Button13 As Button
	Private Button14 As Button
	Private btn5 As Panel
	Private btn6 As Panel
	Private btn7 As Panel
	Private btn8 As Panel
	Private Panel2 As Panel
	Private Panel3 As Panel
	Private Panel6 As Panel
	Private Panel4 As Panel
	Private Panel5 As Panel
End Sub




Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("fehrest")
	pay.Initialize("salavat",api)
    pay.DebugLogging = True
    If File.Exists(File.DirInternal,"upgrade") Then
Button5.Enabled = True
 Button6.Enabled = True
   Button7.Enabled = True
  Button8.Enabled = True
  Button10.Enabled = True
End If

Button9.Enabled=False
Button10.Enabled=False
Button12.Enabled=False
Button13.Enabled=False
Button14.Enabled=False

If File.Exists(File.DirInternal,"star.txt") = False Then
Panel2.Enabled=True
Panel3.Enabled=True
Panel4.Enabled=True
Panel5.Enabled=True
Panel6.Enabled=True
Else

	Panel2.Visible=False
		Panel3.Visible=False
		Panel4.Visible=False
		Panel5.Visible=False
		Panel6.Visible=False
End If



End Sub

Sub salavat_BillingSupported (Supported As Boolean, Message As String)
	blnSupport = Supported
End Sub




Sub Button1_Click	
StartActivity(Menu1)
	
End Sub
Sub Button2_Click
		StartActivity(Menu11)
End Sub
Sub Button3_Click
	StartActivity(Menu1)
End Sub
Sub Button4_Click
	StartActivity(Menu1)
End Sub
Sub Button5_Click
	
	StartActivity(Menu1)

End Sub
Sub Button6_Click
	StartActivity(Menu1)
End Sub
Sub Button7_Click
	StartActivity(Menu1)
End Sub
Sub Button8_Click
	StartActivity(Menu1)
End Sub
Sub Button9_Click
	
	StartActivity(gallery)
	Activity.Finish
End Sub

Sub Button10_Click
	
	StartActivity(salavat)
End Sub
Sub Button11_Click
	If blnSupport = False Then
 Msgbox("ارتقا انجام نشد لطفا دسترسی به اینترنت و هم چنین از نصب بود بازار اطمینان حاصل فرمایید","error")
 Return
Else
pay.RequestPayment("salavat","inapp",phone1.GetDeviceId)
 End If
End Sub


Sub Button12_Click
	
Dim sh As ShareApp
	StartActivity(sh.ShareApps("ارسال برنامه به دوستان"))
End Sub

Sub Button13_Click
	
	StartActivity(ahd)
End Sub
Sub Button14_Click
	
	StartActivity(sadaghe)
End Sub

Sub salavat_PurchaseCompleted (Success As Boolean, Product As Purchase)
	If Success = True Then
 ToastMessageShow("برنامه با موفقیت ارتقا داده شد.از اعتماد شما سپاس گذاریم",False)
Button5.Enabled = True
  Button6.Enabled = True
 Button7.Enabled = True 
 Button8.Enabled = True
Button10.Enabled = True
 File.WriteString(File.DirInternal,"upgrade","true")
End If
End Sub

Sub star
	Dim sta As Int
	sta=Msgbox2("برای مشاهده این بخش لطفا به برنامه امتیاز دهید","فعال سازی بخش","امتیاز می دهم","بعدا امتیاز میدهم","",Null)
	If sta=DialogResponse.POSITIVE Then
			Dim intent1 As Intent
	intent1.Initialize(intent1.ACTION_EDIT,"bazaar://details?id=com.Amirex.salavat")
	StartActivity(intent1)
				Panel2.Visible=False
		Button9.Enabled=True
					Panel3.Visible=False
		Button12.Enabled=True
						Panel4.Visible=False
		Button13.Enabled=True
						Panel5.Visible=False
		Button14.Enabled=True
						Panel6.Visible=False
		Button10.Enabled=True
		File.writestring(File.dirinternal,"star.txt","ok")
		End If

End Sub




Sub pardakht1
		Dim i As Int
	i=Msgbox2("برای مشاهده این بخش لطفا برنامه رو ارتقا دهید","ارتقای برنامه","ارتقای برنامه","بعدا ارتقا میدم","",Null)
	If i= DialogResponse.POSITIVE Then
pay.RequestPayment("salavat","inapp",phone1.GetDeviceId)
		btn5.Visible=False
	End If
End Sub

Sub pardakht2
		Dim i As Int
	i=Msgbox2("برای مشاهده این بخش لطفا برنامه رو ارتقا دهید","ارتقای برنامه","ارتقای برنامه","بعدا ارتقا میدم","",Null)
	If i= DialogResponse.POSITIVE Then
pay.RequestPayment("salavat","inapp",phone1.GetDeviceId)
		btn6.Visible=False
	End If
End Sub

Sub pardakht3
		Dim i As Int
	i=Msgbox2("برای مشاهده این بخش لطفا برنامه رو ارتقا دهید","ارتقای برنامه","ارتقای برنامه","بعدا ارتقا میدم","",Null)
	If i= DialogResponse.POSITIVE Then
pay.RequestPayment("salavat","inapp",phone1.GetDeviceId)
		btn7.Visible=False
	End If
End Sub

Sub pardakht4
		Dim i As Int
	i=Msgbox2("برای مشاهده این بخش لطفا برنامه رو ارتقا دهید","ارتقای برنامه","ارتقای برنامه","بعدا ارتقا میدم","",Null)
	If i= DialogResponse.POSITIVE Then
pay.RequestPayment("salavat","inapp",phone1.GetDeviceId)
		btn8.Visible=False
	End If
End Sub


Sub btn5_Click
	pardakht1
End Sub
Sub btn6_Click
	pardakht2
End Sub
Sub btn7_Click
		pardakht3
End Sub
Sub btn8_Click
		pardakht4
End Sub
Sub Panel2_Click
	star
End Sub
Sub Panel3_Click
	star
End Sub
Sub Panel6_Click
	star
End Sub
Sub Panel4_Click
	star
End Sub
Sub Panel5_Click
	star
End Sub

:S :S :S :S

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

mohammad-alone 564

ارسال شده در
ارسال شده در

به جای این همه کد نوشتن یه باتن میساختی از سندر استفاده میکردی دوست خوبم

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

بایگانی شده

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

رفتن به فهرست موضوع ها

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

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