چگونه اسلایدر عکس با دیتابیس آنلاین بسازیم؟

[graphicomid 0]

با سلام و احترام به اساتید بزرگوار سایت انسور سینتر

من یک دیتابیس دارم متشکل از id , link  که در قسمت  link آدرس لینک عکس قرارداد دادم

الان میخوام لینک ها را فراخوانی کنم و بصورت اسلاید عکس در برنامه فراخوانی شوند مثل نرم افزار بازار یا مارکت که  اگر هر وقت بخوام لینک عکس جدید اضاف کنم یا تغییر بدم لینک قبلی بصورت خودکار در برنامه عکس جدید اضافه یا عوض بشه لذا نمیدونم چطور این لینک ها را فراخوانی کنم

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

با تشکر

دستورات

Sub Process_Globals
	Dim sssss() As String
	Dim joda() As String
End Sub

Sub Globals
	
	Dim Slider As Slider
	Dim sliiider As HttpJob
	'Dim imSlider As ImageSlider
	Private img As ImageView
	
End Sub

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("1")
	
	sliiider.Initialize("sliiider",Me)
	sliiider.Download("http://192.168.0.119/administrator/slider.php")
 
End Sub
 
Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
 
 
 Sub  JobDone(job As HttpJob)
		
	If job.Success = True Then
	
		
 If job.JobName = "sliiider" Then
		Dim rep As String
		rep = job.GetString
		Dim first() As String = Regex.Split("<br>",rep)
		For i = 0 To first.Length-1
		Dim joda() As String = Regex.Split("#",first(i))
		
				Dim links As Map
				links.Initialize
				
			Slider.Initialize("Slider")
			Activity.AddView(Slider,0dip,0dip,100%x,40%y)
			
			Slider.AddSlide("1", sssss(1)) ' وقتی که اجرا میکنم از اینجا ارور میگیره
			Slider.AddSlide("2", sssss(2))
			Slider.AddSlide("3", sssss(3))
			Slider.AddSlide("4", sssss(4))
	
			Dim filelist As List = File.ListFiles(File.DirDefaultExternal  )
	
			For Each fi As String In filelist
				Dim path As String =File.Combine(File.DirDefaultExternal  , fi)
				If fi.LastIndexOf (".JPG")>0 Or fi.LastIndexOf (".png")>0  Then
					Slider.AddSlide(fi , "file:" & path )
				End If
			Next
			Slider.SetTransition(Slider.SLIDER_TRANSITION_Fade)
			Slider.Delay=5000
			Slider.Start
		
			CallSubDelayed2(ImageDownloader, "Download", links)
			CallSub(ImageDownloader, "ActivityIsPaused")
		
		Next
End If
End If

	
	
End Sub

 

[graphicomid 0]

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

[graphicomid 0]

سلام به همه کسی نیست کمک کند

 

[Mohsen27 199]

در 40 دقیقه قبل، graphicomid گفته است :

سلام به همه کسی نیست کمک کند

 

دوست عزیز شما تو باید لینک عکسارو درست فراخوانی کنید و بعدش دوباره اونارو دانلود کرده و به آبجکتی که اسلایدر از شما میخواد بدین(مثلا Bitmap)

روشی که استفاده کردین برای فراخوانی اطلاعات از دیتابیس آنلاین درست نیست.

جستجو کنید زیاد بحث شده درمورد دیتابیس آنلاین.

موفق باشید

[mohammad3250 206]

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

[mohammade79 127]

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

[graphicomid 0]

من اسلایدر آنلاین بلدم و فراخوانی از دیتابیس آنلاین بلد نیستم

 

[rezac 13]

متغیر ssss کجا مقدار دهی شده که داری از مقادیرش استفاده می کنی؟ ssss کلا خالیه که

[mohammade79 127]

در 1 ساعت قبل، graphicomid گفته است :

من اسلایدر آنلاین بلدم و فراخوانی از دیتابیس آنلاین بلد نیستم

 

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

 

[mohsen m 155]

شمارش در کامپیوتر همیشه از 0 شروع میشه. 

Slider.AddSlide("1", sssss(0)) ' وقتی که اجرا میکنم از اینجا ارور میگیره
Slider.AddSlide("2", sssss(1))
Slider.AddSlide("3", sssss(2))
Slider.AddSlide("4", sssss(3))

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

بد نیست ارور هم میزاشتین. آخه از کجا بدونیم ارور درباره چیه

[graphicomid 0]

Slider.AddSlide("1", sssss(0)) ' وقتی که اجرا میکنم از اینجا ارور میگیره

تمام دستورات رو اجرا میکنه ولی وقتی به خط بالا میرسه خطا میده

[graphicomid 0]

در 23 ساعت قبل، mohsen m گفته است :

شمارش در کامپیوتر همیشه از 0 شروع میشه. 

Slider.AddSlide("1", sssss(0)) ' وقتی که اجرا میکنم از اینجا ارور میگیره
Slider.AddSlide("2", sssss(1))
Slider.AddSlide("3", sssss(2))
Slider.AddSlide("4", sssss(3))

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

بد نیست ارور هم میزاشتین. آخه از کجا بدونیم ارور درباره چیه

طبق گفته شما بزرگوار انجام دادم ولی بازهم خطا داد

 

    at android.os.Looper.loop(Looper.java:164)
    at android.app.ActivityThread.main(ActivityThread.java:6541)
    at java.lang.reflect.Method.invoke(Native Method)
    at com.android.internal.os.Zygote$MethodAndArgsCaller.run(Zygote.java:240)
    at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:767)
    at android.os.Looper.loop(Looper.java:164)
    at android.app.ActivityThread.main(ActivityThread.java:6541)
    at java.lang.reflect.Method.invoke(Native Method)
    at com.android.internal.os.Zygote$MethodAndArgsCaller.run(Zygote.java:240)
    at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:767)
** Receiver (starter) OnReceive **
The Starter service should never be started from a receiver.
Cannot start from a receiver in debug mode.

 

[graphicomid 0]

سورس برنامه

لینک دانلود سورس

لطفا پس از کامل کردن برای همه به اشتراک بذارید که بقیه دوستان هم استفاده کنن

لازم به ذکر است که این سورس لازمه یک دیتابیس آنلاین و یا با نرم افزار xampp  دیتابیس با دوفیلد id و link  که در قسمت فیلد link لینک تصویر قرار میگیرد

[graphicomid 0]

در در 1397/05/13, 18:17:32، mohammade79 گفته است :

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

 

لینک دانلود سورس