سورس کار با انیمیشن

[ارمین رمضانی دلیجانی 381]

به نام خدا

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

دانلود

پسورد فایل : basic4android.org

یاحق

[مهدی ایزدی 9,203]

با تشکر از آرمین عزیز.

کتابخانه Animation رو Add کنید . یک Button هم میتونید اگه خواستید از Design اضافه کنید:

و :

Sub Globals
   Dim an As Animation
Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
 Activity.LoadLayout("main")
an.InitializeRotate("btn1_e", 0 , 360 )'اینجا میگیم اسمی که برای صدا کردن این انیمیشن ما احتیاج داریم بتن_ی هستش و 0 هم میگیم از 0 تا 360 درجه بچرخه
an.Duration = 1000'زمانی که انجام چرخش طول میکشه
an.Start(Button1)'استارت شه کارمون
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub btn1_e_AnimationEnd'رویداد پایان انیمیشن
Msgbox("انیمیشن پایان یافت" ,"basic4android.org")'وقتی تموم شد بهمون بگه
'an.Start(Button1)'از دوبار بچرخه
End Sub

Sub Button1_Click
'an.Start(Button1)
End Sub