SoloCodigo

 
En efecto deberias dirigirte a:  
http://foros.solocodigo.com/index.php?showforum=39

Public ini As Date
Public ini2 As Date

Private Sub Command1_Click()
Label3.Caption = 0
ini = Time
lapso.Interval = 500
Command2.Enabled = True
Command1.Enabled = False
Dim dife As Date
lapso.Enabled = True
dife = Time - ini
lbl_horas = Hour(dife)
lbl_minutos = Minute(dife)
lbl_segundos = Second(dife)
lbl_horas.Refresh
lbl_minutos.Refresh
lbl_segundos.Refresh
End Sub

Private Sub Form_Load()
Command2.Enabled = False
Command4.Enabled = False
End Sub
Private Sub lapso_Timer()
Dim dife As Date
lapso.Enabled = True
dife = Time - ini
lbl_horas = Hour(dife)
lbl_minutos = Minute(dife)
lbl_segundos = Second(dife)
lbl_horas.Refresh
lbl_minutos.Refresh
lbl_segundos.Refresh

End Sub



Private Sub Command2_Click()
x = 0
If Option2.Value = True Then
     Label3.Caption = 180 * lbl_minutos
        If lbl_minutos >= 1 Then
            x = 180 * lbl_minutos
            Else
                If lbl_segundos <= 60 Then
                    x = 180
                End If
            End If
                    If lbl_minutos >= 1 And lbl_segundos <= 15 Then
                     x = (180 * lbl_minutos) + 90
                        Else
                            If lbl_minutos >= 1 And lbl_segundos > 15 Then
                                x = (180 * lbl_minutos) + 180
                            End If
                        End If
lapso.Enabled = False
Label3.Caption = x
Command1.Enabled = True
Command2.Enabled = False
                    End If


If Option1.Value = True Then
            Label3.Caption = 70 * lbl_minutos
        If lbl_minutos >= 1 Then
            x = 70 * lbl_minutos
            Else
                If lbl_segundos <= 60 Then
                    x = 70
                End If
            End If
                    If lbl_minutos >= 1 And lbl_segundos <= 15 Then
                     x = (70 * lbl_minutos) + 40
                        Else
                            If lbl_minutos >= 1 And lbl_segundos > 15 Then
                                x = (70 * lbl_minutos) + 70
                            End If
                        End If



lapso.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
Label3.Caption = x
End If
End Sub






Private Sub Command3_Click()
Dim dife2 As Date
Label13.Caption = 0
ini2 = tiempo
Timer2.Interval = 500
Command4.Enabled = True
Command3.Enabled = False
Timer2.Enabled = True
dife2 = tiempo - ini2
lbl_horas2 = Hour(dife2)
lbl_minutos2 = Minute(dife2)
lbl_segundos2 = Second(dife2)
lbl_horas2.Refresh
lbl_minutos2.Refresh
lbl_segundos2.Refresh
End Sub

Private Sub Command4_Click()

y = 0
If Option4.Value = True Then
     Label13.Caption = 180 * lbl_minutos2
        If lbl_minutos2 >= 1 Then
            y = 180 * lbl_minutos2
            Else
                If lbl_segundos2 <= 60 Then
                    y = 180
                End If
            End If
                    If lbl_minutos2 >= 1 And lbl_segundos2 <= 15 Then
                     y = (180 * lbl_minutos2) + 90
                        Else
                            If lbl_minutos2 >= 1 And lbl_segundos2 > 15 Then
                                y = (180 * lbl_minutos2) + 180
                            End If
                        End If
Timer2.Enabled = False
Label13.Caption = y
                    End If


If Option3.Value = True Then
            Label13.Caption = 70 * lbl_minutos2
        If lbl_minutos2 >= 1 Then
            y = 70 * lbl_minutos2
            Else
                If lbl_segundos2 <= 60 Then
                    y = 70
                End If
            End If
                    If lbl_minutos2 >= 1 And lbl_segundos2 <= 15 Then
                     y = (70 * lbl_minutos2) + 40
                        Else
                            If lbl_minutos2 >= 1 And lbl_segundos2 > 15 Then
                                y = (70 * lbl_minutos2) + 70
                            End If
                        End If



Timer2.Enabled = False
Command3.Enabled = True
Command4.Enabled = False
Label13.Caption = y
End If
End Sub






He intentado modificar el codigo pero no me sale, pienso que puede ser problema de variables, en la variable ini con la variable time y la Dife. pero en este caso les coloque dife2

tu duda es realmente sencilla, lo unico que requieres es de 3 timers

te hice un ejemplo sencillo de como controlar timers


[dohtml]<div align='center' style='background-color: #d9d9d7;'>PD este mensaje debe de ser movido a VB</div>[/dohtml]