Timer question

[walterf25]

Ok, i have the following code and it doesn't seem to be working, can anyone please tell me what i'm doing wrong, basically what i'm trying to accomplish is display several pictures at an interval of every 10 seconds, i have a total of 4 pictures but eventually i want to be able to add more, any help will be greatly appreciated!!

Sub Timer1_Tick
picturenumber = 0
imageview1.Gravity = Gravity.FILL
Select picturenumber

Case 0    :Imageview1.Bitmap = LoadBitmap(File.DirAssets, "elections.jpg")
Case 1   :imageview1.Bitmap = LoadBitmap(File.DirAssets, "image10.jpg")
Case 2   :imageview1.Bitmap = LoadBitmap(File.DirAssets, "senate.jpg")
Case 3   :imageview1.Bitmap = LoadBitmap(File.DirAssets,_
"wethepeople2.jpg")

i
End Select
If picturenumber >= 3 Then
picturenumber = 0
End If
Picturenumber = picturenumber + 1

End Sub

thanks,
Walter

 

[wl]

I guess you also DIMensioned a Timer and initialized it as "Timer1" ?


Wim

 

[thedesolatesoul]

You are initialising picturenumber to 0 in the beginning of the subroutine.
After that all the other code becomes redundant.

 

[NJDude]

I would write a more compact code, something like the one in the attached project.

I hope that helps.

 

[walterf25]

Thanks NJDUDE you're the man, that's exactly what i was looking for, awesome works perfect!!!!!
:sign0098: