انیمیشن چند عدد لیبل

[تک1 71]

سلام دوستان یک سورس با حال براتون طراحی کردم کار این سورس به این صورته 6 عدد لیبل تعریف میکنید و لیبلها را به صورت پله ایی بچینید و برای تکست هر لیبل یک حرف بنویسید این به دلخواه خودتان است رنک لیبلها بازم هم به ایده خودتان بستگی دارد بعد با اجرا این کد و ران کردن میبینید که لیبلها به صورت بالا و پایین میروند مثل توپ بستکبال

موفق باشید

Sub Globals
Dim timer1 As Timer 
Dim label1,label2,label3,label4,label5,label6 As Label 
Dim matt(6) As Int
Dim k() As Label 
Dim i As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
timer1.Initialize("timer1",100)
timer1.Enabled=True
k = Array As Label (label1,label2,label3,label4,label5,label6)
End Sub

Sub Activity_Pause (UserClosed As Boolean)
timer1.Enabled=False
End Sub

Sub Timer1_Tick()
Try
For i = 0 To 6
k(i).top = k(i).top + matt(i)
matt(i) = matt(i) + 5
If k(i).top   > 100 Then
matt(i) = - (20)
End If
Next 
Catch
End Try
End Sub

خیلی کارها میشه با این کد انجام داد