تایمر و لود

[momax360 15]

سلام

 

من لودینگ دارم و می خوام پس از ده ثانیه بره اکتیویتی بعدی 

 

چند تا تایمر امتحان کردم جواب نداد

 

http://s8.picofile.c...84/ggg.zip.html

[Mr Mansour 325]

بفرمایید

 

Sub Globals
	

	
	Private rl1 As RotateLoading
	Dim Timer1 as Timer
	
End Sub

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("1")
   
    rl1.CircleWidth = 7
	rl1.ShadowColor = Colors.White
	rl1.CircleColor = Colors.Red
	rl1.ShadowPosition = 5
	rl1.FadeInTime = 5000
	rl1.FadeOutTime = 1000
    rl1.start
	Timer1.Initialize("t",2500)
	Timer1.Enabled = True
End Sub

Sub t_Tick
	Timer1.Enabled = false
	StartActivity("Name Activity")
	Activity.Finish
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

 

[reza sabouri 444]

درود ، استاد اگه یکمی سرچ کنید ، حتما مطالب مفید تری پیدا میکنید .

Sub globals

Dim timer1 as timer

End sub

Activity_create (first time as boolean)

Activity.loadlayout("layout1)

Timer1.intialize("t1",5000)

End sub

حالا بعد از لودینگت بیا و فعالش کن

Timer1.enabled=true

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

Sub t1_tick

Startactivity("name")

End sub

[momax360 15]

در 27 دقیقه قبل، 2roshke گفته است :

درود ، استاد اگه یکمی سرچ کنید ، حتما مطالب مفید تری پیدا میکنید .

Sub globals

Dim timer1 as timer

End sub

Activity_create (first time as boolean)

Activity.loadlayout("layout1)

Timer1.intialize("t1",5000)

End sub

حالا بعد از لودینگت بیا و فعالش کن

Timer1.enabled=true

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

Sub t1_tick

Startactivity("name")

End sub

خطا میده

 

[reza sabouri 444]

در 22 دقیقه قبل، momax360 گفته است :

خطا میده

 

فک کنم باید بزنی dim timer1 as timer

نه time

[momax360 15]

در 21 دقیقه قبل، 2roshke گفته است :

فک کنم باید بزنی dim timer1 as timer

نه time

بازم اخطار میده

[reza sabouri 444]

یک اسکرین لطف میکنین از خطا ؟

خطای قبلی اگه دقت کنید به time

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

[mostafa.kasiri 115]

سلام

کتابخونتون اشتباه است با کتابخانه timer باشه

و این هم کد 

Sub Process_Globals
	Dim TIMER1 As Timer
End Sub
Sub Globals

End Sub
Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("L2")
TIMER1.Initialize("Timer1",2000)
TIMER1.Enabled=True
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub timer1_Tick
TIMER1.Enabled=False
StartActivity(site)
Activity.Finish
End Sub

 

[momax360 15]

در 3 ساعت قبل، Mr Mansour گفته است :

بفرمایید

 

Sub Globals
	

	
	Private rl1 As RotateLoading
	Dim Timer1 as Timer
	
End Sub

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("1")
   
    rl1.CircleWidth = 7
	rl1.ShadowColor = Colors.White
	rl1.CircleColor = Colors.Red
	rl1.ShadowPosition = 5
	rl1.FadeInTime = 5000
	rl1.FadeOutTime = 1000
    rl1.start
	Timer1.Initialize("t",2500)
	Timer1.Enabled = True
End Sub

Sub t_Tick
	Timer1.Enabled = false
	StartActivity("Name Activity")
	Activity.Finish
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

 

ممنون درست شد