Problemilla con tragaperras

[abuitrago81]

Hola a todos. Me han mandado hacer una maquina tragaperras en Visual basic.NET 2008.

Mi duda viene dada en que quiero que en un pictureBox vayan rotando 20 imagenes ( q voy sacando con un randomize ) cuando haga clic en el boton JUGAR.
Pero claro, con un for de 20 ni se aprecia, y sé que hay que utilizar un TIMER para hacer que vayan pasando de forma que se aprecie el intercambio...

Si meto todo el codigo del intercambio de imagen en el timer me lo hace nada mas entrar a la ventana y si lo pongo en el evento Click del boton no sé como hago para irme al Timer y que tengo q poner en el timer.

Una ayudita por favor!! Gracias!!

PD: Estoy empezando con esto del Vial Basic...

[gedarufi]

En el metodo del Timer debes de poner el código para que roten las imagenes, en el boton debes de habilitar el timer y con eso ha de bastar.

Saludos

[Dunderio]

Me toco hacer algo parecido y te vas a topar con varios problemas:
1-debes cargar en memoria las imagenes antes de ponerlas a rotar
con algo asi:
Private Sub cargar_fotos_memoria()
lienzo.Visible = False
Application.DoEvents()
Dim x As Integer
lbl_nombre.Text = "Cargando fotos"
For x = 0 To dt.Rows.Count - 1
Application.DoEvents()
foto.ImageLocation = My.Settings.ruta & dt.Rows(x).Item(2).ToString
Next
lienzo.Visible = True
End Sub
2-Debes usar una funcion que espere en tiempo real, algo como esto
Private Sub wait(ByVal interval As Integer)
Dim sw As New Stopwatch
sw.Start()
Do While sw.ElapsedMilliseconds < interval
' Allows UI to remain responsive
Application.DoEvents()
Loop
sw.Stop()
End Sub
3-Despues de esto ya el resto es fácil crea el loop con las imagenes y les metes el wait antes de que cambie.

Saludos

Espero te funcione.

[abuitrago81]

Gracias a los 2. Al final "toqueteando" lo conseguí sacar.