رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.

AnswerCenter

مرکز پاسخگویی به سوالات برنامه نویسی

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

 برای استفاده از تمامی امکانات سایت لطفا در انجمن عضو شوید


بایگانی شده

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

  • 0
cloner01001

بارش برف در b4a

سوال

cloner01001    38

کاربر عادی

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

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

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


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

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

پست های پیشنهاد شده

dostmobile    327

کاربر نیمه فعال

با سلام

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

من 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 رو تغییر بدین

 

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


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

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

 

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


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

×
×
  • جدید...