آموزش ساخت سورس نمایش فایل gif یا حرکتی

[alivoll 17]

سلام آیا کسی آموزش یا سورس داره که چند تا فایل gif یا همون عکس حرکتی رو تو یه صفحه لود کنه و موقع اجرا عکس ها کار کنه خیلی لازم دارم ممنون میشم کمکم کنین

[محمد رشوند 1,208]

این سورس کد همه چی کاملاْ معلومه

ok.rar

[alivoll 17]

این سورس کد همه چی کاملاْ معلومه

ok.rar

ایا میشه یه کاری کرد که بدون زدن دکمه عکس نمایش داده بشه ؟

[محمد رشوند 1,208]

@@alivoll,

بله میشه

در این قسمت از برنامه

Sub showgif_Click
		img.Initialize("img")
	Activity.Color = Colors.White 
	Activity.AddView(img,50%x - 21dip,50%y-21dip,42dip,42dip)
	ShowGifAnimation("test1.gif")
End Sub

قطعه کد داخلش که این میشه

img.Initialize("img")
	Activity.Color = Colors.White 
	Activity.AddView(img,50%x - 21dip,50%y-21dip,42dip,42dip)
	ShowGifAnimation("test1.gif")

داخل این قسمت قرار بدید به این صورت

Sub Activity_Create(FirstTime As Boolean)
	
Activity.LoadLayout("1")
		img.Initialize("img")
	Activity.Color = Colors.White 
	Activity.AddView(img,50%x - 21dip,50%y-21dip,42dip,42dip)
	ShowGifAnimation("test1.gif")
End Sub

[alivoll 17]

 

@@alivoll,

بله میشه

در این قسمت از برنامه

Sub showgif_Click
		img.Initialize("img")
	Activity.Color = Colors.White 
	Activity.AddView(img,50%x - 21dip,50%y-21dip,42dip,42dip)
	ShowGifAnimation("test1.gif")
End Sub

قطعه کد داخلش که این میشه

img.Initialize("img")
	Activity.Color = Colors.White 
	Activity.AddView(img,50%x - 21dip,50%y-21dip,42dip,42dip)
	ShowGifAnimation("test1.gif")

داخل این قسمت قرار بدید به این صورت

Sub Activity_Create(FirstTime As Boolean)
	
Activity.LoadLayout("1")
		img.Initialize("img")
	Activity.Color = Colors.White 
	Activity.AddView(img,50%x - 21dip,50%y-21dip,42dip,42dip)
	ShowGifAnimation("test1.gif")
End Sub

خب یه سوال دیگه؟؟؟

چجوری مثلا 4 تا یا بیشتر فایل gif رو اینجا فراخوانی کنم

[محمد رشوند 1,208]

@@alivoll,

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

	Dim img As ImageView 
	Dim img1 As ImageView 
	Dim img2 As ImageView 

در تابع کلیک

Sub showgif_Click
		img.Initialize("img")
		img1.Initialize("img1")
		img2.Initialize("img2")
		
		Timer1.Initialize("Timer1",0)
	Activity.Color = Colors.White 
	Activity.AddView(img,50%x - 21dip,10%y-21dip,42dip,42dip)
	Activity.AddView(img1,50%x - 21dip,40%y-21dip,42dip,42dip)
	Activity.AddView(img2,50%x - 21dip,60%y-21dip,42dip,42dip)
	ShowGifAnimation("test1.gif")
End Sub

و تایمر

Sub Timer1_Tick
Try
	Timer1.Enabled = False
	Frame = Frame + 1
	If Frame >= gif.FrameCount Then
		Frame = 0
	End If
	Timer1.Interval = gif.Delay(Frame)
	img.Bitmap = gif.Frame(Frame)
	img1.Bitmap = gif.Frame(Frame)
	img2.Bitmap = gif.Frame(Frame)
	Timer1.Enabled = True
Catch
	Timer1.Enabled = False
	Msgbox(LastException,"خطا")
End Try
End Sub

و نمایش گیف

Sub ShowGifAnimation(filename As String ) 

Try

	gif.DisposeFrames
	gif.Load(File.DirAssets, filename)
	Frame = 0
	Timer1.Interval = gif.Delay(Frame)	
	img.Bitmap = gif.Frame(Frame)
	img1.Bitmap = gif.Frame(Frame)
	img2.Bitmap = gif.Frame(Frame)
	img.Gravity = Gravity.FILL
	img1.Gravity = Gravity.FILL
	img2.Gravity = Gravity.FILL
	Timer1.Enabled = True
	gif.SaveFrame(0, File.DirRootExternal, "frame0.png", "P", 100)	
	gif.SaveFrame(0, File.DirRootExternal, "frame0.jpg", "J", 100)
	
Catch
	Msgbox(LastException,"خطا")
End Try

End Sub

[alivoll 17]

@@alivoll,

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

	Dim img As ImageView 
	Dim img1 As ImageView 
	Dim img2 As ImageView 

در تابع کلیک

Sub showgif_Click
		img.Initialize("img")
		img1.Initialize("img1")
		img2.Initialize("img2")
		
		Timer1.Initialize("Timer1",0)
	Activity.Color = Colors.White 
	Activity.AddView(img,50%x - 21dip,10%y-21dip,42dip,42dip)
	Activity.AddView(img1,50%x - 21dip,40%y-21dip,42dip,42dip)
	Activity.AddView(img2,50%x - 21dip,60%y-21dip,42dip,42dip)
	ShowGifAnimation("test1.gif")
End Sub

و تایمر

داداش ممنون از راهنمایتت اگه بشه واسه این یه سورس بساز بده من خوب متوج نشدم باید سورس ببینم

[محمد رشوند 1,208]

@@alivoll,

اینارو کپی کن تو سورست

باید سورس ببینم

من سورس دادم دیگه مگه چیز دیگه ای دادم

یکم برو توی قسمت تازه کار های سایت تاپیک های اونجارو حتماً حتماً بخون

[alivoll 17]

@@alivoll,

اینارو کپی کن تو سورست

 

 

من سورس دادم دیگه مگه چیز دیگه ای دادم

یکم برو توی قسمت تازه کار های سایت تاپیک های اونجارو حتماً حتماً بخون

داداش من الان این کار کد ها رو زدم ولی یه مشکل دارم

ShowGifAnimation("test1.gif")

با این کد فایل ها فراخوانی میشه دیگه چجئری کنم مثلا سه تا فایل فراخوانی کنم