Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » Modificar el intervalo de un timer

Visual Basic - Modificar el intervalo de un timer

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

Modificar el intervalo de un timer

Publicado por Rogelio (3 intervenciones) el 28/09/2013 19:27:54
Que codigo podria utilizar para cambiar el intervalo de un timer en minutos mediante un textbox

Yo utilizo este código pero no me funciona solamente cada 1 minuto.

Timer1.Interval = Text1.Text * 1000 * 60

Y me funciona cada minuto pero si quiero que sea en 2 minutos o mas me marca error.

Alguien me podria ayudar?
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

Modificar el intervalo de un timer

Publicado por jcmg (24 intervenciones) el 29/09/2013 06:09:17
Hola Rogelio
intentale asi: colocandole un contador a cada minuto
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Command1_Click()
    Const mi = 60000                            '1 minuto

    For a = 1 To Text1
        Timer1.Enabled = True
        Timer1.Interval = mi
    Next a
        Text2 = a * mi
        a = a + 1
End Sub
 
Private Sub Timer1_Timer()
    Const mi = 60000                               1 minuto
    contador = Text2
    If contador = Text2 Then
        MsgBox "hi"
        Timer1.Enabled = False
    End If
End Sub
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
Imágen de perfil de Antoni Masana
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Modificar el intervalo de un timer

Publicado por Antoni Masana (558 intervenciones) el 01/10/2013 12:57:44
Si en en Text1.Text tienes el intervalo que deseas en minutos debes hacer esto:

1
Timer1.Interval = val(Text1.Text) * 1000 * 60


Esto deberia funcionar.

Pasas el contenido de la variable a numerico y multiplicas por 60 para pasarlo a segundos y por 1000 para pasarlo a milesimas.

y ante la duda:

1
2
MsgBox val(Text1.Text) * 1000 * 60
Timer1.Interval = val(Text1.Text) * 1000 * 60
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