• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Make the object Timer in runtime and checking intervals time independently. Add one timer control a

Make the object Timer in runtime and checking intervals time independently. Add one timer control a

Make the object Timer in runtime and checking intervals time independently. Add one timer control and 4 button 4 label to a form

Rate Make the object Timer in runtime and checking intervals time independently. Add one timer control a

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim aNum(0 To 4) As Integer
'EMD Productions 2002(c)
'Make the object timer in runtime and checking
'intervals time independently.
'Add one timer control and 4 button, 4 label
'Tiempo=Timer control
'**********************************************
Private Sub cmdTiempo_Click(Index As Integer)
 If cmdTiempo(Index).Caption = "Start" Then
    lblTotal(Index).Caption = 0
  aNum(Index) = 1
       cmdTiempo(Index).Caption = "Stop"
Tiempo(Index).Enabled = True
 Else
  Tiempo(Index).Enabled = False
cmdTiempo(Index).Caption = "Start"
End If

End Sub

Private Sub Form_Load()
'Make timer controls on runtime
Dim cObjetos As Integer
Dim cObj As Integer

For cObj = 1 To cmdTiempo.Count - 1
    Load Tiempo(cObj)
       Next cObj
End Sub

Private Sub lblTotal_Change(Index As Integer)
'Stop timer about index
If lblTotal(Index).Caption = 10 Then
    Beep
    cmdTiempo(Index).Caption = "Start"
      Tiempo(Index).Enabled = False
    End If 
End Sub

Private Sub Tiempo_Timer(Index As Integer)
    lblTotal(Index).Caption = aNum(Index)
aNum(Index) = aNum(Index) + 1
End Sub