| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Timer in VBA (4603 mal gelesen)
|
Andü Mitglied Informatikkaufmann
Beiträge: 12 Registriert: 20.06.2005
|
erstellt am: 07. Jul. 2005 08:19 <-- editieren / zitieren --> Unities abgeben:
|
PaulSchuepbach Moderator Programmierer
Beiträge: 1005 Registriert: 01.10.2003
|
erstellt am: 07. Jul. 2005 08:57 <-- editieren / zitieren --> Unities abgeben: Nur für Andü
|
Andü Mitglied Informatikkaufmann
Beiträge: 12 Registriert: 20.06.2005
|
erstellt am: 07. Jul. 2005 09:02 <-- editieren / zitieren --> Unities abgeben:
|
Andü Mitglied Informatikkaufmann
Beiträge: 12 Registriert: 20.06.2005
|
erstellt am: 07. Jul. 2005 09:33 <-- editieren / zitieren --> Unities abgeben:
also ich hab nochmals gesucht und etwas gefunden. leider das falsche. ich suche keinen timer, der eine Programmabfolge verlangsamt, sondern einen Timer, der nebenher läuft, und so kleine Arbeiten macht (in meinem Fall die Caption pro Sekunde um einen Punkt erweitert), dass man sieht, dass das Programm noch arbeitet. Und die hier forgeschlagenen Timer sind ja schleifen, d.h. während der Timer-Arbeit wird nichts anderes mehr abgearbeitet. Hat da jemand eine Lösung? gruß andü Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Cookiie Mitglied
Beiträge: 32 Registriert: 20.06.2005
|
erstellt am: 13. Jul. 2005 09:13 <-- editieren / zitieren --> Unities abgeben: Nur für Andü
Hi, genau so ein Beispiel ist in der MS Hilfe mit dabei. Ich denke mal du meintest sowas. Code:
Timer Function Example This example uses the Timer function to pause the application. The example also uses DoEvents to yield to other processes during the pause.Dim PauseTime, Start, Finish, TotalTime If (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then PauseTime = 5 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop Finish = Timer ' Set end time. TotalTime = Finish - Start ' Calculate total time. MsgBox "Paused for " & TotalTime & " seconds" Else End End If
Man muß dazu sagen, richtige Parallelität gibt es erst ab mindestens 2 Prozessoren. Alles was mit einem gerechnet wird ist pseudoparallel und wird immer linear abgearbeitet. Multithread usw erreichst du nur durch wechsel innerhalb deines Programmcodes. Gruß Cookiie [Diese Nachricht wurde von Cookiie am 13. Jul. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |