رفتن به مطلب
  • 0

انیمیشن


mverkiani

سوال

یه سوال در مورد این سورسم داشتم اینکه هر کاری میکنم لیبل ساخته شده فقط از ابتدای عرض خودش چرخش می کنه در حالی که من میخوام از مرکزش بچرخه

میشه راهنمایی کنید

#Region  Project Attributes 
	#ApplicationLabel: ViewRotation
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	Dim Timer1 As Timer
End Sub

Sub Globals
	Dim lblTest1 As Label
	
	
	Dim Alpha = 0 As Float
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Timer1.Initialize("Timer1", 10)
	Activity.LoadLayout("main")
	setPivotX(lblTest1, 0)
	
	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Activity_Click
	Timer1.Enabled = Not(Timer1.Enabled)
	
	
End Sub


Sub Timer1_Tick
	Alpha = Alpha + 10
	If Alpha >= 360 Then
	Timer1.Enabled = False
		Alpha = 0
	End If
	setRotationY(lblTest1.Width/2, Alpha)
	
	
End Sub



'Sets the rotation angle around the Y axis of the given view
'v = view
'Angle = rotation angle in degrees
Sub setRotationY(v As View, Angle As Float)
	Dim jo = v As JavaObject
	jo.RunMethod("setRotationY", Array As Object(Angle))
	
End Sub

'Sets the rotation angle of the given view
'v = view
'Angle = rotation angle in degrees
Sub setRotation(v As View, Angle As Float)
	Dim jo = v As JavaObject
	jo.RunMethod("setRotation", Array As Object(Angle))
	
	
End Sub

'Sets the X pivot point of the given view
'v = view
'X = X coordinate of the pivot in pixels
'reference upper left corner, default pivot middle of the view
Sub setPivotX(v As View, X As Float)
	Dim jo = v As JavaObject
	jo.RunMethod("setPivotX", Array As Object(X))
	
	
End Sub

'Sets the Y pivot point of the given view
'v = view
'Y = Y coordinate of the pivot in pixels
'reference upper left corner, default pivot middle of the view
Sub setPivotY(v As View, Y As Float)
	Dim jo = v As JavaObject
	jo.RunMethod("setPivotY", Array As Object(Y))
	
	
End Sub

'Gets the X pivot point of the given view
Sub getPivotX(v As View) As Float
	Dim jo = v As JavaObject
	Return jo.RunMethod("getPivotX", Null)
	
	
End Sub

'Gets the Y pivot point of the given view
Sub getPivotY(v As View) As Float
	Dim jo = v As JavaObject
	Return jo.RunMethod("getPivotY", Null)
	
	
End Sub

 

 

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

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

ارسال های توصیه شده

با تشکر فراوان از جناب مجید آرتا عزیز بابت راهنمایی و معرفی کتابخانه

 

سورس کد جدید رو با کتابخانه ICOS نوشتم و همو انیمیشنی بود که می خواستم ممنون

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

متشکرم

Animation.zip

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

سلام

برای انیمیشن دادن کتابخونه های مختلفی هستش.

به وسیله کتابخونه Animation  و بهو سیله این تابع InitializeRotateCenter میتونید عمل مورد نظر رو انجام بدید

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

سلام

برای انیمیشن دادن کتابخونه های مختلفی هستش.

به وسیله کتابخونه Animation  و بهو سیله این تابع InitializeRotateCenter میتونید عمل مورد نظر رو انجام بدید

 

 

این هم سورس کامل به همراه فایل ها

 نه منظورم این هست که به همین صورت انیمیشن اجرا بشه ولی مرکز ثقل چرخش، وسط لیبل باشه

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

سلام

بنده روش کار این سورس رو نمیدونم و بهتون پیشنهاد می کنم از این کتابخونه ها استفاده کنید :

  • Animation
  • Animation Plus
  • ICOSLibrary
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...