cloner01001 38 ارسال شده در 22 بهمن، ۱۳۹۷ اشتراک گذاری ارسال شده در 22 بهمن، ۱۳۹۷ سلام دوستان ، خسته نباشین سورس بارش برف برای b4a داری؟ یعنی از بالای صفحه بیاد تو جهت های شانسی حرکن کنه، یواش یواش کمرنگ شه و بعدش محو شه و این چرخه تکرار شه لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
dostmobile 329 ارسال شده در 22 بهمن، ۱۳۹۷ اشتراک گذاری ارسال شده در 22 بهمن، ۱۳۹۷ با سلام یه ایمیج برف یا * ایجاد کنید من 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 ارسال شده در 22 بهمن، ۱۳۹۷ اشتراک گذاری ارسال شده در 22 بهمن، ۱۳۹۷ https://www.b4x.com/android/forum/threads/raindrop-snow-effect.87144/ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
cloner01001 38 ارسال شده در 25 بهمن، ۱۳۹۷ سازنده اشتراک گذاری ارسال شده در 25 بهمن، ۱۳۹۷ در در 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 ارسال شده در 26 بهمن، ۱۳۹۷ اشتراک گذاری ارسال شده در 26 بهمن، ۱۳۹۷ در 12 ساعت قبل، cloner01001 گفته است : چطور سرعت بارش برف ها رو کم کنم؟ عدد ها رو تغییر دادم ولی هنگ کرد نرم افزار نمیدونم دقیقا کدوم عدد باید تغییر کنه ممنون از شما اینجا 4000 را تغیر بدی سرعت سقوط برف تغیییر میکنه image1.SetLayoutAnimated(4000,image1.Left,120%y,image1.Width,image1.Height) عدد تایمرا رو هم تغییر بدی شدت برف تغییر میکنه لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
mehrzad238 40 ارسال شده در 12 تیر، ۱۳۹۸ اشتراک گذاری ارسال شده در 12 تیر، ۱۳۹۸ شما میتونید از کتابخونه زیر استفاده کنید "رایگان" لینک دنلود کتابخانه بارش برف لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
سوال
cloner01001 38
سلام دوستان ، خسته نباشین
سورس بارش برف برای b4a داری؟ یعنی از بالای صفحه بیاد تو جهت های شانسی حرکن کنه، یواش یواش کمرنگ شه و بعدش محو شه و این چرخه تکرار شه
لینک ارسال
به اشتراک گذاری در سایت های دیگر
5 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.