کند شدن برنامه هنگام پخش انیمیشن

[Ali BBH 27]

سلام خسته نباشید بنده دارم رو یه برنامه کار میکنم که قسمت منوش یکم گرافیکیه و نیاز به پخش چندین انیمیشن است .....حالا من برنامه رو اون جور که میخوام طراحی و کد نویسی کردم قسمت اولشو

تو شبیه ساز هم درست کار میکنه ولی هنگامی که رو گوشی اجراش میکنم به صورت خیلی کند و پرش انیمیشن ها اجرا میشه رو چندین گوشی امتحان کردم این جور بوده رو بلو استکم به همین صورت بوده

ایا راهی وجود داره که پخش انیمیشن ها بهینه بشه ؟

 

 

 

اینم از کد برنامه :

Sub Process_Globals

    
    Dim timer1 As Timer
    Dim timer2 As Timer
    Dim timer1_2 As Timer
    Dim timer2_2 As Timer
    Dim tim_lbl1 As Timer
    Dim tim_lbl2 As Timer
    Dim tim_lbl3 As Timer
    Dim tim_lbl4 As Timer
    Dim tim_lbl5 As Timer
    Dim tim_lbl6 As Timer
    Dim tim_lbl7 As Timer
    Dim tim_lbl8 As Timer
    Dim tim_lbl9 As Timer
Dim tim_lbl1 As Timer
    Dim tim_lbl1 As Timer
End Sub

Sub Globals

    

Dim ani1 As AnimationPlus

    Private background As ImageView
    Private list2 As Button
    Private list1 As Button
    Private Lien2 As ImageView
    Private menoImage As ImageView
    Private line1 As ImageView
    Private logo1 As ImageView
    Private logo2 As ImageView
    Private Label1 As Label
    Private Label2 As Label
    Private Label3 As Label
    Private Label4 As Label
    Private Label5 As Label
    Private Label6 As Label
    Private Label7 As Label
    Private Label8 As Label
    Private Label9 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)

    Activity.LoadLayout("layout1")

timer1.Initialize("tim1",100)
timer2.Initialize("tim2",100)
timer1_2.Initialize("tim3",100)
timer2_2.Initialize("tim4",100)
tim_lbl1.Initialize("lbl1",100)
tim_lbl2.Initialize("lbl2",100)
tim_lbl3.Initialize("lbl3",100)
tim_lbl4.Initialize("lbl4",100)
tim_lbl5.Initialize("lbl5",100)
tim_lbl6.Initialize("lbl6",100)
tim_lbl7.Initialize("lbl7",100)
tim_lbl8.Initialize("lbl8",100)
tim_lbl9.Initialize("lbl9",100)
End Sub




Sub tim1_tick
    If logo2.Left>10 Then
    logo2.Left=logo2.Left-7
    logo1.Left=logo1.Left-7
    line1.Left=line1.Left+2
    Lien2.Left=Lien2.Left+2
Else
        ani1.InitializeAlpha("logo2",1,0)
    ani1.Duration=500
    ani1.Start(logo2)
    logo2.Visible=False
        timer1.Enabled=False
    End If

End Sub

Sub tim2_tick
    ani1.InitializeAlpha("meno",0,1)
    ani1.Duration=300
    ani1.Start(menoImage)
    menoImage.Visible=True

    tim_lbl1.Enabled=True
    timer2.Enabled=False
    

End Sub




Sub list1_Click
    
    timer1.Enabled=True
    timer2.Enabled=True
    ani1.InitializeAlpha("list1",1,0)
    ani1.Duration=600
    ani1.Start(list1)
    list1.Visible=False
    ani1.InitializeAlpha("list2",0,1)
    ani1.Duration=600
    ani1.Start(list2)
    list2.Visible=True

    
    
End Sub



Sub tim3_tick
    If logo2.Left<35 Then
    logo2.Left=logo2.Left+5
    logo1.Left=logo1.Left+5
    line1.Left=line1.Left-2
    Lien2.Left=Lien2.Left-2
Else
        ani1.InitializeAlpha("logo2",0,1)
    ani1.Duration=500
    ani1.Start(logo2)
    logo2.Visible=True
        timer1_2.Enabled=False
    End If

End Sub

Sub tim4_tick
ani1.InitializeAlpha("meno",1,0)
    ani1.Duration=300
    ani1.Start(menoImage)
    menoImage.Visible=False
    
    ani1.InitializeAlpha("l1",1,0)
    ani1.Duration=100
    ani1.Start(Label1)
    Label1.Visible=False
    ani1.InitializeAlpha("l2",1,0)
    ani1.Duration=100
    ani1.Start(Label2)
    Label2.Visible=False
    ani1.InitializeAlpha("l3",1,0)
    ani1.Duration=100
    ani1.Start(Label3)
    Label3.Visible=False
    ani1.InitializeAlpha("l4",1,0)
    ani1.Duration=100
    ani1.Start(Label4)
    Label4.Visible=False
    ani1.InitializeAlpha("l5",1,0)
    ani1.Duration=100
    ani1.Start(Label5)
    Label5.Visible=False
    ani1.InitializeAlpha("l6",1,0)
    ani1.Duration=100
    ani1.Start(Label6)
    Label6.Visible=False
    ani1.InitializeAlpha("l7",1,0)
    ani1.Duration=100
    ani1.Start(Label7)
    Label7.Visible=False
    ani1.InitializeAlpha("l8",1,0)
    ani1.Duration=100
    ani1.Start(Label8)
    Label8.Visible=False
    ani1.InitializeAlpha("l9",1,0)
    ani1.Duration=100
    ani1.Start(Label9)
    Label9.Visible=False
    timer2_2.Enabled=False


End Sub











Sub list2_Click
    timer1_2.Enabled=True
    timer2_2.Enabled=True
        ani1.InitializeAlpha("list1",0,1)
    ani1.Duration=300
    ani1.Start(list1)
    list1.Visible=True
    ani1.InitializeAlpha("list2",1,0)
    ani1.Duration=300
    ani1.Start(list2)
    list2.Visible=False
End Sub




Sub lbl1_tick
    ani1.InitializeAlpha("l1",0,1)
    ani1.Duration=300
    ani1.Start(Label1)
    Label1.Visible=True
    tim_lbl2.Enabled=True
    tim_lbl1.Enabled=False
End Sub
Sub lbl2_tick
    ani1.InitializeAlpha("l2",0,1)
    ani1.Duration=300
    ani1.Start(Label2)
    Label2.Visible=True
    tim_lbl3.Enabled=True
    tim_lbl2.Enabled=False
End Sub
Sub lbl3_tick
    ani1.InitializeAlpha("l3",0,1)
    ani1.Duration=300
    ani1.Start(Label3)
    Label3.Visible=True
    tim_lbl4.Enabled=True
    tim_lbl3.Enabled=False
End Sub
Sub lbl4_tick
    ani1.InitializeAlpha("l4",0,1)
    ani1.Duration=300
    ani1.Start(Label4)
    Label4.Visible=True
    tim_lbl5.Enabled=True
    tim_lbl4.Enabled=False
End Sub
Sub lbl5_tick
    ani1.InitializeAlpha("l5",0,1)
    ani1.Duration=300
    ani1.Start(Label5)
    Label5.Visible=True
    tim_lbl6.Enabled=True
    tim_lbl5.Enabled=False
End Sub
Sub lbl6_tick
    ani1.InitializeAlpha("l6",0,1)
    ani1.Duration=300
    ani1.Start(Label6)
    Label6.Visible=True
    tim_lbl7.Enabled=True
    tim_lbl6.Enabled=False
End Sub
Sub lbl7_tick
    ani1.InitializeAlpha("l7",0,1)
    ani1.Duration=300
    ani1.Start(Label7)
    Label7.Visible=True
    tim_lbl8.Enabled=True
    tim_lbl7.Enabled=False
End Sub
Sub lbl8_tick
    ani1.InitializeAlpha("l8",0,1)
    ani1.Duration=300
    ani1.Start(Label8)
    Label8.Visible=True
    tim_lbl9.Enabled=True
    tim_lbl8.Enabled=False
End Sub
Sub lbl9_tick
    ani1.InitializeAlpha("l9",0,1)
    ani1.Duration=300
    ani1.Start(Label9)
    Label9.Visible=True
    tim_lbl9.Enabled=False
End Sub

 

[پژمان نیکروان 6,055]

سلام.

آخه شما از چند تا تایمر استفاده کردید احتمالا هنگ بخاطر همونه.

سرچ کنید "Animation" و از کتابخانه انیمیشین استفاده کنید.

[Ali BBH 27]

سلام.

آخه شما از چند تا تایمر استفاده کردید احتمالا هنگ بخاطر همونه.

سرچ کنید "Animation" و از کتابخانه انیمیشین استفاده کنید.

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

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

به غیر از یکیش :     ani1.InitializeTranslate که برای حرکت اشیاع کاربرد داره هرچی هم گشتم تو انجمن اموزش کار با این تابع رو پیدا نکردم همه ی اموزشا در مورد الفا هست

برای این هم از خودم مقدار میدم دقیق حرکت نمیکنن اشیاع

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

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

[ghost94 151]

سلام دوستم

 

متغیر فضاییه که شما میتونید داده هاتون رو توی اون نگه داری کنید 

این فضا از حافظه رم و سی پی یو بهره میگیره

مسلما علت استفاده از این همه متغیر تکراری باعث کرش برنامه میشه و وقتی برنامه رو اجرا میکنید انیمیشن هاتون دچار پرش میشه!

شما باید از آرایه ها و حلقه ی فور استفاده کنید 

اینکار باعث میشه که سرعت برنامه تا حد زیادی افزایش پیدا کنه و هم اینکه حجم کدهاتون تا حد زیادی کم بشه

موفق و پیروز باشید