Vous n’êtes pas connecté.
Bonjour, visiteur, bienvenue sur les forums Aqua Computer Forum. Si c’est votre première visite, nous vous invitons à consulter l’Aide. Elle vous expliquera le fonctionnement de cette page. Pour avoir accès à toutes les fonctionnalités, vous devez vous inscrire. Pour cela, veuillez utiliser le formulaire d’enregistrement, ou bien lisez plus d’informations sur la procédure d’enregistrement. Si vous êtes déjà enregistré, veuillez vous connecter.
Citation de "moe"
zu isdn zeiten hatte ich mir auch einen zeitzähler programmiert, der je nach monatslänge die zeit korrekt rückwärtszählend anzeigte.
im netz wirst du kaum etwas gutes finden, wo nicht etwas dafür verlangt wird.... und ich hab damals ewig gesucht -> letztendlich gab ich auf und hab mich selbst dran gemacht.
für was möchtest du den timer einsetzen und was genau soll er protokollieren?
A64 NC3500+ 939 zu verkauCitation
* We die only once, and for such a long time. *Moliere*
Citation de "Cyrotech"
Ich habe hier ein kleines Tool, was cobra geschrieben hat. Wenn Du es haben willst, KM an mich.
Code source |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
Option Explicit Private Declare Function GetTickCount Lib "kernel32" () As Long Private Sub Timer1_Timer() Dim H As Single, M As Single, S As Single, MS As Single Dim strH$, strM$, strS$, strMS$ MS = GetTickCount() MS = MS / 1000 H = Int(MS / 3600) MS = MS - H * 3600 M = Int(MS / 60) MS = MS - M * 60 S = Int(MS) MS = Int((MS - S) * 10) strH = CStr(H) strM = Format(CStr(M), "##00") strS = Format(CStr(S), "##00") strMS = CStr(MS) Label1.Caption = strH & ":" & strM & ":" & strS & ":" & strMS End Sub |
-