Ok Gracias.
Mira encontré lo siguiente en
http://www.recursosvisualbasic.com.a...trol_timer.htm
Más algunos ajustes sacados de otros ejemplos llegué a esto.
Código:
Option Explicit
' Cantidad de minutos para el intervalo del timer
Const INTERVALO_EN_MINUTOS_SELECT As Integer = 7 ' determina la cantidad de minutos de trigger del timer
Const INTERVALO_EN_MINUTOS_INSERT As Integer = 9 ' determina la cantidad de minutos de trigger del timer
Dim cont As Long 'Contador.
Dim Tiempo As String 'Tiempo total transcurrido.
Código:
Private Sub Timer2_Timer()
cont = cont + 1
' cronometro en label lblcrono
Tiempo = Format(Int(cont / 3600) Mod 24, "00") & ":" & _
Format(Int(cont / 60) Mod 60, "00") & ":" & _
Format(Int(cont / 1) Mod 60, "00") ' & ":" & _
Format(cont Mod 10, "00") ' milisegundos
lblcrono.Caption = Tiempo
' comprueba que los segundos no sea igual a la cantidad de minutos _
que queremos ,valor fijado en la constante INTERVALOS_EN_MINUTOS
If (cont * 60) = ((INTERVALO_EN_MINUTOS_SELECT * 60) * 60) Then
' reestablece los valores a 0, para iniciar otro ciclo
' cont = 0
ConecCC_Click
ConsultaCC_Click
Else
If (cont * 60) >= (INTERVALO_EN_MINUTOS_INSERT * 60) * 60 Then
' reestablece los valores a 0, para iniciar otro ciclo
cont = 0
Label15.Caption = "Actualizado"
InsertCall_Click
End If
End If
End Sub
En sí funciona y hace lo que necesito,,..pero... no me deja conforme el tiempo, no logro subir mas de 9 minutos, al fijar en 10 el valor de la constante "Const INTERVALO_EN_MINUTOS_INSERT As Integer = 9 " me arroja un error que dice "error 6 en ... desbordamiento"
¿Es posible salvar esto? necesito un lapso de al menos 1 hora.
una vez más gracias
PD: El interval del timer lo tengo ajustado a 1000