stoppuhr

  • VB6

Es gibt 25 Antworten in diesem Thema. Der letzte Beitrag () ist von udo f..

    habe hier mal nur die beiden timer kann mir jemand sagen warum wenn beide laufen sie nur nochhalb so schnell sind

    Visual Basic-Quellcode

    1. Option Explicit
    2. Dim Stunden As Byte
    3. Dim Minuten As Byte
    4. Dim Sekunden As Integer
    5. Dim bytZehntel As Byte
    6. Dim bytHundertstel As Byte
    7. Dim Stunden1 As Byte
    8. Dim Minuten1 As Byte
    9. Dim Sekunden1 As Integer
    10. Dim bytZehntel1 As Byte
    11. Dim bytHundertstel1 As Byte
    12. Dim intBeenden As Integer
    13. Dim intZwischenzeitLöschen As Integer
    14. Dim Variable As Byte
    15. Dim CmDialog1 As String
    16. Dim Zeit As Long
    17. Dim Ticks As Long
    18. Dim Zeit2 As Long
    19. 'Dim Ticks As Long
    20. Private Declare Function GetTickCount Lib "kernel32" () As Long
    21. Private Sub tmrAnzeige1_Timer() 'uhr1
    22. Zeit = Zeit + GetTickCount - Ticks
    23. Ticks = GetTickCount
    24. If optSekunden.Value Then
    25. lblZeit1.Caption = Format(Zeit / 1000, "0.00")
    26. Else
    27. If Zeit >= 1000 Then
    28. Sekunden = Sekunden + Zeit \ 1000
    29. Zeit = Zeit - (Zeit \ 1000) * 1000
    30. If Sekunden >= 60 Then
    31. Minuten = Minuten + Sekunden \ 60
    32. Sekunden = Sekunden - (Sekunden \ 60) * 60
    33. If Minuten >= 60 Then
    34. Stunden = Stunden + Minuten \ 60
    35. Minuten = Minuten - (Minuten \ 60) * 60
    36. End If
    37. End If
    38. End If
    39. lblZeit1.Caption = Stunden & ":" & Format(Minuten, "00") & ":" & Format(Sekunden, "00")
    40. End If
    41. End Sub
    42. Private Sub tmrAnzeige2_Timer() 'uhr2
    43. Zeit2 = Zeit2 + GetTickCount - Ticks
    44. Ticks = GetTickCount
    45. If optSekunden.Value Then
    46. lblZeit2.Caption = Format(Zeit2 / 1000, "0.00")
    47. Else
    48. If Zeit2 >= 1000 Then
    49. Sekunden1 = Sekunden1 + Zeit2 \ 1000
    50. Zeit2 = Zeit2 - (Zeit2 \ 1000) * 1000
    51. If Sekunden1 >= 60 Then
    52. Minuten1 = Minuten1 + Sekunden1 \ 60
    53. Sekunden1 = Sekunden1 - (Sekunden1 \ 60) * 60
    54. If Minuten1 >= 60 Then
    55. Stunden1 = Stunden1 + Minuten1 \ 60
    56. Minuten1 = Minuten1 - (Minuten1 \ 60) * 60
    57. End If
    58. End If
    59. End If
    60. lblZeit2.Caption = Stunden1 & ":" & Format(Minuten1, "00") & ":" & Format(Sekunden1, "00")
    61. End If
    62. End Sub