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

AnswerCenter

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

  • مرجع پاسخگویی
  • تولید آموزش
  • سفارش پروژه

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

اطلاعیه

کاربر گرامی

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

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


  • 0
cloner01001

بارش برف در b4a

سوال

cloner01001    38

کاربر عادی

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

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

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


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

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

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

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

 

  • پسندیدن 2

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


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

 

 

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

ممنون از شما ♥

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
m007moh    180

کاربر رو به رشد

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

 

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

ممنون از شما ♥

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

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

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

 

  • پسندیدن 1

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


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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

مهمان
پاسخ به این سوال ...

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

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

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

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

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


×
×
  • جدید...