Dos Timer y uno no funciona.

[XYON126]

Hola compañer@s!

Hace tiempo que no he pasado por el foro a causa del laboro que incluso me ha parado el tiempo libre para programar u aprender VB. ahora que puedo retornar a esto he continuado con un programilla que ya me funciona y le estoy aplicando unas modificaciones, esta es la de añadirle un cronometro de tiempo estipulado de inicio en un dia y fin en otro, el problema y consulta esta en lo siguiente.

1º ¿Es posible tener varios Timer en un mismo codigo y que actuen indistintamente?
2º ¿Es posible que un cronometro de cuenta atras o regresivo se inicie con por ejemplo : 1dia 20 horas 32 min 15 seg, naturalmente el formato de presentación es indiferente es solo a nivel de cantidad o volumen?

Posiblemente alguno se pregunte para que pueda ser lo que quiero hacer, la 1ª parte que ya funciona esta en este post
"http://www.forosdelweb.com/f69/reloj-fijo-825454/index2.html"
por si alguno le interesa, ahora lo que pretendo es aplicarlo como reloj de apertura y cierre y de hay añadirle el cronometro, para que os hagais una idea aqui os posteo una imagen del programita en ejecucion .:



Un saludo

[erbuson]

Hola Xyon, encantado de saludarte de nuevo, ante la duda de si o no puedes utilizar varios timer, acabo de hacer esta prueba.

Necesitas un Formulario con un array de 3 Timer y un array de 3 Labels

Timer1(0), Timer1(1), Timer1(2)
Label1(0), Label1(1), Label1(2)

Código vb:

Private Sub Label1_Click(Index As Integer)
  ' Al pulsar sobre el label se activa/desactiva su timer
  If Timer1(Index).Enabled Then
    Timer1(Index).Enabled = False
  Else
    Timer1(Index).Enabled = True
  End If
End Sub
 
Private Sub Timer1_Timer(Index As Integer)
  ' Al producirse el evento, se incrementa en 1 el label
  Label1(Index) = Val(Label1(Index).Caption) + 1
End Sub
 

Con este código puedes comprobar que funcionan independientes, después el cálculo que dena efectuar cada uno de ellos ya es independiente.

Saludos

[pkj]

Para hacer la cuenta atrás solo tienes que poner un timer con interval 1000 e ir descontando segundos cada vez que entras.
Si es durante mucho tiempo quizá te interese hacerlo con un interval menor aún y hacer la cuenta atras comparando la hora actual con la hora anterior.
Simplificando. Suponiendo que quieres esperar 3600 segundos (1 hora):

Código vb:

Dim TiempoEspera As Long
Dim HoraActual As Long
 
Private Sub Command4_Click()
  TiempoEspera = 3600
  HoraActual = Int(Timer)
  TimerCuentaAtras.Interval = 100
  TimerCuentaAtras.Enabled = True
End Sub
 
Private Sub TimerCuentaAtras_Timer()
  If HoraActual <> Int(Timer) Then
    HoraActual = Int(Timer)
    TiempoEspera = TiempoEspera - 1
    If TiempoEspera <= 0 Then
      TimerCuentaAtras.Enabled = False
      MsgBox "Tiempo transcurrido"
    End If
  End If
End Sub
 

Saludos

[XYON126]

Hola erbuson & pkj!

Muchas gracias por vuestra ayuda, por lo de varios timer como comentas erbuson lo he probado y si funciona aunque no es exactamente como tengo en mente, mi idea es en el formulario de la foto parte ya os es conocido, uso un timer para con el array que me ensenastes ha hacer, tengo el horario mundial de las ciudades especificadas; ahora el otro timer es para la otra parte del formulario la derecha, donde tengo un cronometro de cuentra atras que es de exactamente 121 horas y se inicia el domingo a las 22:00 Madrid o 16:00 New York y finaliza el viernes a las 23:00 Madrid o 17:00 New York, este cronometro lo que hace es avisarme cuanto tiempo me queda de mercado de divisas abierto para poder cerrar antes del cierre del mercado las operaciones o tradings que tenga abiertas y no tener que pagar Swap si es negativo, con esto mas o menos respondo a la idea que me esta dando pkj.
Lo malo de todo esto es que he probado dos timer en un programilla independiente y me funciona pero en este no y lo unico que he cambiado es poner la orden del command_Click en el Form_Load() toda la funcion o como funcion independiente y llamandola y no me funciona, ¿Porque razon me ocurre esto?

Aqui os posteo la foto del formulario y el codigo .:

Código vb:

Option Explicit
 
Dim Tiempo_restante As Date
Dim Horafinal As Date
Dim Horainicio As Date
Dim Fecha As Date
Dim Dia2 As Integer
 
Dim Londres As Date
Dim Nueva_York As Date
Dim Tokyo As Date
Dim Sidney As Date
Dim Madrid As Date
Dim Francfort As Date
Dim Zurich As Date
Dim Wellington As Date
Dim Toronto As Date
Dim Horario As Date
Dim Dia As String
 
Dim DifLondres As Date
Dim DifNueva_York As Date
Dim DifTokyo As Date
Dim DifSidney As Date
Dim DifWellington As Date
Dim DifToronto As Date
 
'Funcion para cambiar el color del texto
'################################################# ##########
Private Sub AjustaColor(Letrero As Label)
If Letrero.Caption = "ABIERTA" Then
Letrero.ForeColor = vbGreen
ElseIf Letrero.Caption = "CERRADA" Then
Letrero.ForeColor = vbRed
Else
Letrero.ForeColor = vbBlack
End If
End Sub
 
'Funcion para determinar Abierta/Cerrada
'################################################# ##########
' Ha sido modificada para recibir el Caption del Label que muestra el día y hora
Public Function CloseOpen(LabelHora As Label) As String
Dim Hora As Date, Dia As String
Hora = CDate(Right$(LabelHora.Caption, 8))
Dia = Left$(LabelHora.Caption, 3)
If Hora > CDate("8:29:59") And Hora < CDate("17:29:59") Then
CloseOpen = "ABIERTA"
Else
CloseOpen = "CERRADA"
End If
If Dia = "sáb" Or Dia = "dom" Then CloseOpen = "CERRADA"
If LabelHora.Index = 9 Then
    CloseOpen = "ABIERTA"
    If Dia = "vie" And Hora >= CDate("23:00:00") Then
    'If Dia = "dom" And Hora >= CDate("23:00:00") Then
    CloseOpen = "CERRADA"
    ElseIf Dia = "sáb" Or Dia = "dom" And Hora <= CDate("22:00:00") Then CloseOpen = "CERRADA"
    'ElseIf Dia = "dom" And Hora <= CDate("22:00:00") Then CloseOpen = "CERRADA"
    Else
    CloseOpen = "ABIERTA"
    End If
End If
End Function
 
Private Sub Command1_Click()
Dim Capital, Porcentaje, Riesgo, Volumen, Temp, Pips As Single
Capital = cmb_Capital
Porcentaje = cmb_riesgo
Pips = txt_pips
 
Riesgo = Capital * Porcentaje / 100
txt_pips = Pips
txt_riesgo = Riesgo
 
Temp = Riesgo / Pips
 
If Temp <= 0.1 Then
Volumen = 0.1
ElseIf Temp <= 0.2 Then
Volumen = 0.2
ElseIf Temp <= 0.3 Then
Volumen = 0.3
ElseIf Temp <= 0.4 Then
Volumen = 0.4
ElseIf Temp <= 0.5 Then
Volumen = 0.5
ElseIf Temp <= 1 Then
Volumen = 1
ElseIf Temp <= 2 Then
Volumen = 2
ElseIf Temp <= 3 Then
Volumen = 3
ElseIf Temp <= 4 Then
Volumen = 4
ElseIf Temp <= 5 Then
Volumen = 5
ElseIf Temp <= 6 Then
Volumen = 6
ElseIf Temp <= 7 Then
Volumen = 7
Else
Volumen = 8
End If
 
txt_volumen = Volumen
 
End Sub
 
'Funcion para cambiar el color del texto en cada Label
'################################################# ##########
Private Sub ComoEsta_Change(Index As Integer)
AjustaColor Comoesta(Index)
End Sub
 
'################################################# ##########
Private Sub HoraActual()
Dim Ahora As Date, Indice As Integer
Ahora = Now
PonerHora 0, Ahora, -1 'Londres
PonerHora 1, Ahora, -6 'NuevaYork
PonerHora 2, Ahora, 7 'Tokyo
PonerHora 3, Ahora, 8 'Sidney
PonerHora 4, Ahora, 0 'Madrid
PonerHora 5, Ahora, 0 'Francfort
PonerHora 6, Ahora, 0 'Zurich
PonerHora 7, Ahora, 10 'Wellington
PonerHora 8, Ahora, -6 'Toronto
PonerHora 9, Ahora, 0 'Madrid
PonerHora 10, Ahora, -6 'NuevaYork
End Sub
 
 
'################################################# ##########
Private Sub PonerHora(Indice As Integer, LaHora As Date, Diferencia As Integer)
' Pone la Hora en la Etiqueta correspondiente a Indice
QueHora(Indice) = Format(DateAdd("h", Diferencia, LaHora), "ddd hh:mm:ss")
' Después, la misma rutina, efectua el cambio de Abierta/Cerrada
Comoesta(Indice) = CloseOpen(QueHora(Indice))
End Sub
 
 
'################################################# ##########
Private Sub Timer1_Timer()
HoraActual
End Sub
'################################################# ##########
Private Sub Timer2_Timer()
 
'Contador regresivo
    Tiempo_restante = Horafinal - Time
    Label7.Caption = Format(Tiempo_restante, "hh:mm:ss")
 
End Sub
'################################################# ##########
Private Sub cronometro()
Horainicio = Time
    'el 1 indica los minutos desde los que comenzará la cuenta atrás.
    Horafinal = DateAdd("n", 1, Now)
    Timer2.Enabled = True
    Label7.Caption = Format(Tiempo_restante, "hh:mm:ss")
End Sub
'################################################# ##########
Private Sub Form_Load()
 
'Inicio función general relojes Bolsa.
HoraActual
Timer1.Interval = 1000
Timer1.Enabled = True
 
Fecha = Format(Date, "dd mmmm YYYY")
Label10 = Fecha
'Fin función general relojes Bolsa.
 
'Inicio función cronometro apertura-cierre Bolsa.
cronometro
 
Dia2 = DatePart("w", Fecha)
 
If Dia2 = "6" And Horainicio > CDate("22:59:59") Or Dia2 = "7" Or Dia2 = "1" And Horainicio > CDate("22:00:00") Then
Label13.Caption = "MERCADO CERRADO"
Else
Label13.Visible = False
Label8 = Dia2 - 7
 
End If
 
'Fin función cronometro apertura-cierre Bolsa.
 
End Sub
 

Un saludo