ایجاد انیمیشن باحال با کد در بیسیک فور اندروید

توی بیسیک4اندروید با دستور زیر میشه انیمیشن حاله دایره ای رو درستش کرد Sub CreateHaloEffect (Parent As B4XView, x As Int, y As Int, clr As Int) Dim cvs As B4XCanvas Dim p As B4XView = xui.CreatePanel("") Dim radius As Int = 150dip p.SetLayoutAnimated(0, 0, 0, radius * 2, radius * 2) cvs.Initialize(p) cvs.DrawCircle(cvs.TargetRect.CenterX, cvs.TargetRect.CenterY, cvs.TargetRect.Width / 2, clr, True, 0) Dim bmp As B4XBitmap = cvs.CreateBitmap For i = 1 To 5 CreateHaloEffectHelper(Parent,bmp, x, y, clr, radius) Sleep(800) Next End Sub ج Sub CreateHaloEffectHelper (Parent As B4XView,bmp As B4XBitmap, x As Int, y As Int, clr As Int, radius As Int) Dim iv As ImageView iv.Initialize("") Dim p As B4XView = iv p.SetBitmap(bmp) Parent.AddView(p, x, y, 0, 0) Dim duration As Int = 3000 p.SetLayoutAnimated(duration, x - radius, y - radius, 2 * radius, 2 * radius) p.SetVisibleAnimated(duration, False) Sleep(duration) p.RemoveViewFromParent End Sub

جستجو

اطلاعات تماس

شرکت فنی مهندسی آینده کاسپین

قزوين -بلوار نخبگان، کیلومتر 2 جاده باراجین

پارک علم و فن آوری دانشگاه امام خمینی

 تلفن : 09399871627 - 09124818264

برنامه نویسی - سیستم های  هوشمند

ایمیل مدیر: این آدرس ایمیل توسط spambots حفاظت می شود. برای دیدن شما نیاز به جاوا اسکریپت دارید

کانال تلگرام : https://t.me/future_c

تولیدات شرکت

سیستم کنترل تردد سازمانی

سیستم کنترل تردد مبتنی برRFID

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

سیستم مدیریت پالت قطعات خودرویی

برنامه فروشگاهی ایران پی

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

دستگاه کنترل ابزار برقی با گوشی

سیستم جادویی پخش خانگی

 

درمان افسردگي در اروميه روانشناس کودک در اروميه