اسپلش

[dr.mohammad 68]

سلام من اول بذنامم از اسپلش استافاده میکنم و میخوام وقتی تموم میشه بره اکتویتی بعد چون من سه تا عکس دارم برا نشون دادن اما تو همون اولیش گیر کردم یعنی اسپلش اولو پشت سر هم تکرار می کنه و حتی به اکتیوتی بعدی هم نمیره و کدم این هستش:

کد اکتویتی اول

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
 Dim tmr As Timer
 tmr.Initialize("timer",2000)
	Private ImageView1 As ImageView
	Dim PH As Phone
	Private ScrollView2 As ScrollView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("l1")
    tmr.Enabled=True
	PH.SetScreenOrientation(0)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub timer_Tick
Dim a As Animation
a.InitializeAlpha("a1",1,0)
a.Duration=3000
a.Start(ImageView1)
End Sub
Sub a1_animationEnd
tmr.Enabled= False
ImageView1.Visible=False
Activity.Finish
StartActivity(main2)
End Sub
Sub ImageView1_Click
	StartActivity(main4)
End Sub

کد اکتویتی دوم

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
    Dim tmr As Timer
    tmr.Initialize("timer",2000)
	Private ImageView1 As ImageView
	Dim PH As Phone
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("l2")
    tmr.Enabled=True
'	PH.SetScreenOrientation(0)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub timer_tick
Dim a As Animation
a.InitializeAlpha("a1",1,0)
a.Duration=3000
a.Start(ImageView1)
End Sub
Sub a1_animationEnd

tmr.Enabled= False
ImageView1.Visible=False
Activity.Finish
StartActivity(main3)
End Sub
Sub ImageView1_Click
	StartActivity(main4)
End Sub

و اکتویتی سوم

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
    Dim tmr As Timer
    tmr.Initialize("timer",2000)
	Private ImageView1 As ImageView
	Dim PH As Phone
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("l3")
    tmr.Enabled=True
	PH.SetScreenOrientation(0)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub timer_tick
Dim a As Animation
a.InitializeAlpha("a1",1,0)
a.Duration=3000
a.Start(ImageView1)
End Sub
Sub a1_animationEnd

tmr.Enabled= False
ImageView1.Visible=False
Activity.Finish
StartActivity(main4)
End Sub
Sub ImageView1_Click
	StartActivity(main4)
End Sub

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

[nasim 370]

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

اسلایدر عکس ( Image Slider )

[dr.mohammad 68]

 

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

اسلایدر عکس ( Image Slider )

من نگاه کردم ولی این کد برای اسپلش نیست

[nasim 370]

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

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

متوجه منظورم شدین؟

[dr.mohammad 68]

 

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

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

متوجه منظورم شدین؟

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