بارش برف در b4a

[cloner01001 38]

سلام دوستان ، خسته نباشین

سورس بارش برف برای b4a داری؟ یعنی از بالای صفحه بیاد تو جهت های شانسی حرکن کنه، یواش یواش کمرنگ شه و بعدش محو شه و این چرخه تکرار شه

[dostmobile 329]

با سلام

یه ایمیج برف یا * ایجاد کنید

من 4 تایمر در نظر گرفتم که برفهای ریز سرعت بیشتر و برفهایدرشت سرعت کمتر و ...

Private Timer1 As Timer
Private Timer2 As Timer
Private Timer3 As Timer
Private Timer4 As Timer

تو اکتیوتی کریت هم اینیشالایز میکنیم

	Timer1.Initialize("Timer_1",50)
	Timer2.Initialize("Timer_2",100)
	Timer3.Initialize("Timer_3",150)
	Timer4.Initialize("Timer_4",400)
	Timer1.Enabled=True
	Timer2.Enabled=True
	Timer3.Enabled=True
	Timer4.Enabled=True

خب حالا میریم سراغ کدهای ساب تایمر

	Dim image1 As ImageView
	image1.Initialize("")
	image1.Bitmap =LoadBitmap(File.DirAssets, "snow1.png")
	image1.Gravity = Gravity.FILL
	Dim left As Int =Rnd(0,100)
	Activity.AddView(image1,(left*Activity.Width)/100,-20%x,10dip,10dip)
	Dim a As Int = Rnd(0,10)
	If a >5  Then
		image1.SendToBack
	Else
		image1.BringToFront
	End If
	image1.SetLayoutAnimated(4000,image1.Left,120%y,image1.Width,image1.Height)
	image1.SetVisibleAnimated(5000,False)
	Sleep(5000)
	image1.RemoveView

برای تغییر سایز ایمج ویو اون 10dip رو تغییر بدین

 

[MrMedia 98]

https://www.b4x.com/android/forum/threads/raindrop-snow-effect.87144/

[cloner01001 38]

در در 1397/11/22, 21:58:21، dostmobile گفته است :

با سلام

یه ایمیج برف یا * ایجاد کنید

من 4 تایمر در نظر گرفتم که برفهای ریز سرعت بیشتر و برفهایدرشت سرعت کمتر و ...

Private Timer1 As Timer
Private Timer2 As Timer
Private Timer3 As Timer
Private Timer4 As Timer

تو اکتیوتی کریت هم اینیشالایز میکنیم

	Timer1.Initialize("Timer_1",50)
	Timer2.Initialize("Timer_2",100)
	Timer3.Initialize("Timer_3",150)
	Timer4.Initialize("Timer_4",400)
	Timer1.Enabled=True
	Timer2.Enabled=True
	Timer3.Enabled=True
	Timer4.Enabled=True

خب حالا میریم سراغ کدهای ساب تایمر

	Dim image1 As ImageView
	image1.Initialize("")
	image1.Bitmap =LoadBitmap(File.DirAssets, "snow1.png")
	image1.Gravity = Gravity.FILL
	Dim left As Int =Rnd(0,100)
	Activity.AddView(image1,(left*Activity.Width)/100,-20%x,10dip,10dip)
	Dim a As Int = Rnd(0,10)
	If a >5  Then
		image1.SendToBack
	Else
		image1.BringToFront
	End If
	image1.SetLayoutAnimated(4000,image1.Left,120%y,image1.Width,image1.Height)
	image1.SetVisibleAnimated(5000,False)
	Sleep(5000)
	image1.RemoveView

برای تغییر سایز ایمج ویو اون 10dip رو تغییر بدین

 

 

چطور سرعت بارش برف ها رو کم کنم؟ عدد ها رو تغییر دادم ولی هنگ کرد نرم افزار نمیدونم دقیقا کدوم عدد باید تغییر کنه

ممنون از شما

[m007moh 181]

در 12 ساعت قبل، cloner01001 گفته است :

 

چطور سرعت بارش برف ها رو کم کنم؟ عدد ها رو تغییر دادم ولی هنگ کرد نرم افزار نمیدونم دقیقا کدوم عدد باید تغییر کنه

ممنون از شما

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

image1.SetLayoutAnimated(4000,image1.Left,120%y,image1.Width,image1.Height)

عدد تایمرا رو هم تغییر بدی شدت برف تغییر میکنه

 

[mehrzad238 40]

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

لینک دنلود کتابخانه بارش برف