Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: R3Z en 24 Junio 2015, 06:19 AM

Título: Duda Sobre Loop?
Publicado por: R3Z en 24 Junio 2015, 06:19 AM
Como Yo Hago Un loop con 6 fotos  cuando llega a la ultima foto vuelve a la primera


Código (vb) [Seleccionar]

dim jumps as integer
for jumps = 1 to 6 
image1.visble=true
image2.visble=true
image3.visble=true
image4.visble=true
image5.visble=true
image6.visble=true

next jump

End Sub
Título: Re: Duda Sobre Loop?
Publicado por: ivancea96 en 27 Junio 2015, 15:01 PM
Cuando el for acaba, vuelve al principio. Es un bucle.
Título: Re: Duda Sobre Loop?
Publicado por: R3Z en 27 Junio 2015, 23:42 PM
Seria Con Timer ?   por que no me hace nada
Título: Re: Duda Sobre Loop?
Publicado por: ivancea96 en 27 Junio 2015, 23:49 PM
¿Pero qué es lo que no consigues hacer?
Título: Re: Duda Sobre Loop?
Publicado por: R3Z en 27 Junio 2015, 23:53 PM
Código (vb) [Seleccionar]
www.youtube.com/watch?v=gw6iV3qaXWM



Queria Hacer Algo asi Dale en 2:08

Título: Re: Duda Sobre Loop?
Publicado por: ivancea96 en 28 Junio 2015, 00:36 AM
Sí, hazlo con un timer. Con un for no verías nada, ya que cambiaría las imágenes al instante.
Título: Re: Duda Sobre Loop?
Publicado por: R3Z en 28 Junio 2015, 00:43 AM
No me hace nada tengo el timer interval en 1000 y todavia

Código (vb) [Seleccionar]
Private Sub Form_Load()
Dim jumps As Integer
For jumps = 1 To 2
Mario.Visible = True
Luigi.Visible = True
Next
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = True
End Sub
Título: Re: Duda Sobre Loop?
Publicado por: rob1104 en 12 Julio 2015, 04:36 AM
Olvídate del for...  esto es algo muy básico, pero te dará la idea del uso del timer

Código (vb) [Seleccionar]
Private Sub Form_Load()
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    if mario1.visible = true
         mario1.visible = false
         luigi1.visible = true
    else
         mario1.visible = true
         luigi1.visible = false
    end if
End Sub