Visual Basic - Modificar el intervalo de un timer

Life is soft - evento anual de software empresarial
   
Vista:

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

Modificar el intervalo de un timer

Publicado por Antoni Masana (88 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