Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
cronos - Form1.frm

Form1.frm

Caricato da: Albertking82
Scarica il programma completo

  1. Option Explicit
  2. Dim f As Boolean
  3. Dim num As Integer
  4. Dim ora As Integer, min As Integer, sec As Integer, mil As Integer
  5. Private Sub Command1_Click()
  6. num = num + 1
  7. Label1.Caption = Text3.Text
  8. Label2.Visible = True
  9. Label1.Visible = True
  10. List1.AddItem num & " - " & Text3.Text
  11. End Sub
  12.  
  13. Private Sub Command2_Click()
  14.   If Timer1.Enabled = True Then
  15.      Command2.Caption = "Start"
  16.      Timer1.Enabled = False
  17.      Timer2.Enabled = False
  18.      Command1.Enabled = False
  19.   Else
  20.      Timer1.Enabled = True
  21.      Timer2.Enabled = True
  22.      Command2.Caption = "Stop"
  23.      Command1.Enabled = True
  24.   End If
  25. End Sub
  26.  
  27. Private Sub Command3_Click()
  28. Call Form_Load
  29.  
  30. End Sub
  31.  
  32. Private Sub Form_Load()
  33.  min = 0
  34.  ora = 0
  35.  sec = 0
  36.  mil = 0
  37.  Text3.Text = "00.00.00.00"
  38.  Command1.Enabled = False
  39.  Label2.Visible = False
  40.  Label1.Visible = False
  41.  Timer1.Enabled = False
  42.  Timer2.Enabled = False
  43.  List1.Clear
  44. End Sub
  45.  
  46. Private Sub Timer1_Timer()
  47.  sec = sec + 1
  48.    If sec > 59 Then
  49.      sec = 0
  50.      min = min + 1
  51.    End If
  52.      If min > 59 Then
  53.         min = 0
  54.         sec = 0
  55.         ora = ora + 1
  56.       End If
  57.      If sec > 9 Then
  58.            Text3.Text = "0" & CStr(ora) & "." & "0" & CStr(min) & "." & CStr(sec) _
  59.              & "." & CStr(mil)
  60.       Else
  61.            Text3.Text = "0" & CStr(ora) & "." & "0" & CStr(min) & "." & "0" & CStr(sec) _
  62.              & "." & CStr(mil)
  63.      End If
  64.           If min > 9 Then
  65.                   Text3.Text = "0" & CStr(ora) & "." & CStr(min) & "." & CStr(sec) _
  66.                                 & "." & CStr(mil)
  67.            Else
  68.                    Text3.Text = "0" & CStr(ora) & "." & "0" & CStr(min) & "." & CStr(sec) _
  69.                    & "." & CStr(mil)
  70.           End If
  71. End Sub
  72.  
  73. Private Sub Timer2_Timer()
  74.  mil = mil + 1
  75.    If mil > 99 Then
  76.       mil = 0
  77.    End If
  78.      If sec > 9 Then
  79.             Text3.Text = "0" & CStr(ora) & "." & "0" & CStr(min) & "." & CStr(sec) _
  80.              & "." & CStr(mil)
  81.       Else
  82.              Text3.Text = "0" & CStr(ora) & "." & "0" & CStr(min) & "." & "0" & CStr(sec) _
  83.                            & "." & CStr(mil)
  84.                            Exit Sub
  85.      End If
  86.        If min > 9 Then
  87.              Text3.Text = "0" & CStr(ora) & "." & CStr(min) & "." & CStr(sec) _
  88.              & "." & CStr(mil)
  89.         Else
  90.               Text3.Text = "0" & CStr(ora) & "." & "0" & CStr(min) & "." & CStr(sec) _
  91.              & "." & CStr(mil)
  92.              End If
  93. End Sub