Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic.NET » Ciclo for

Visual Basic.NET - Ciclo for

Volver
Nuevo Tema
<<>>
 
Vista:
Imágen de perfil de Misael
Val: 38
Ha disminuido su posición en 6 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Ciclo for

Publicado por Misael (35 intervenciones) el 13/09/2016 17:48:53
utilizando el ciclo for, como puedo hacer que al ejecutar mi programa, un label esteVisible e invisible y que se detenga hasta que le clic en el formulario
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

Ciclo for

Publicado por omar (155 intervenciones) el 13/09/2016 17:56:02
lo que puedes hacer es poner un time con intervalo de seguntos para hacerlo visible e invisible
y con solo pulsar en un boton detener el timer

con un for se pudiera realizar algo como un numero infinito

segun cada cierta cantidad cmo ejemplo 10 mas 10 se haga vivible y lo contrario invisible
yy detener el form con un metodo que es exit xub

creando un metodo ddentro del for si la variable es igual a false se sale del for
exit for

espeo a ver te ayudado en algo si no enviame un email
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Misael
Val: 38
Ha disminuido su posición en 6 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Ciclo for

Publicado por Misael (35 intervenciones) el 13/09/2016 20:56:54
gracias te lo agradezco

esto es lo que intento hacer y quiero que se detenga hasta que le de un clic en el formulario o en un botón detener


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Label5.Text = Label5.Text + 1
        If Label5.Text = 5 Then
            Label1.Visible = True
        Else
            If Label5.Text = 10 Then
                Label1.Visible = False
                Label2.Visible = True
            Else
                If Label5.Text = 15 Then
 
                    Label2.Visible = False
                    Label3.Visible = True
                Else
                    If Label5.Text = 20 Then
                        Label3.Visible = False
                        Label4.Text = True
                    End If
        End If
        End If
        End if
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Ciclo for

Publicado por omar (155 intervenciones) el 13/09/2016 21:11:25
puedes crear un metodo

buton_1click

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
detenido="s"
 
end sub
dim detenido as string=""
function parar() as string
if detenido="s"
 
end if
 
return detenido
end function
 
 
dim checa is string=parar
 
if checar="s"
exit for
end if
Label5.Text = Label5.Text + 1
        If Label5.Text = 5 Then
            Label1.Visible = True
        Else
            If Label5.Text = 10 Then
                Label1.Visible = False
                Label2.Visible = True
            Else
                If Label5.Text = 15 Then
 
                    Label2.Visible = False
                    Label3.Visible = True
                Else
                    If Label5.Text = 20 Then
                        Label3.Visible = False
                        Label4.Text = True
                    End If
        End If
        End If
End if
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
Imágen de perfil de Misael
Val: 38
Ha disminuido su posición en 6 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Ciclo for

Publicado por Misael (35 intervenciones) el 15/09/2016 02:07:25
gracias por el apoyo ya logre resolver el proyecto

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
'utilice:

 
label1.tex = label1.text + 1
 
Do
if label1.text = 10 then
label2.visible = true
end if
if label1.text = 20 then
label3.visible = true
end  if
if label1.text = 30
label4.visible = true
end if
Loop Until label1.text <> 0
label1.text = " "
label1.text = "1"
label2.visible = false
label3.visble = false
label4.visible = false
end if
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar