اطلاعیه

کاربر گرامی

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

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


  • 0
cloner01001

بارش برف در b4a

سوال

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

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

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


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

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

  • 0

با سلام

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

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

 

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


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

 

 

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

ممنون از شما ♥

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
در 12 ساعت قبل، cloner01001 گفته است :

 

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

ممنون از شما ♥

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

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

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

 

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


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

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

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

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   حذف قالب بندی

  تنها استفاده از ۷۵ اموجی مجاز می باشد.

×   لینک شما به صورت اتوماتیک جای گذاری شد.   نمایش به عنوان یک لینک به جای

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

×   شما مستقیما نمی توانید تصویر خود را قرار دهید. یا آن را اینجا بارگذاری کنید یا از یک URL قرار دهید.