---

Hallo,

beim Durchlaufen des Skripts fehlt mir noch eine Timer Funktion bzw. eine Wartezeit von 2 Sekunden, die an jedem Bauteil vorzufinden sein soll.
Leider überspringt das VBA (siehe Threads von mir) die einzelnen Schritte wie:
-Ausrichten
-Tangentiale Kanten ausblenden
-Bauteil auf dem Bildschirm komplett anzeigen
...
-als jpg abspeichern

Was wäre der Wartezeit-Befehl, damit das Bauteil diese Befehle noch durchläuft?

Lg
Starbuzz

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi

Code:

---

For wartezeit = 1 To 1000000
    DoEvents
Next

---

Gruß
Berno

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Starbuzz,

mein Vorschlag, speziell um auf eine Datei zu warten:

Code:

---

Public Sub WartenAufDatei(sFile As String)
    Dim fs As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    Dim wshShell As Object
    Set wshShell = CreateObject("WScript.Shell")
   
    Dim tStart As Single, tMax As Single
    tStart = Timer()
    tMax = tStart + 30  'maximale Dauer bis Abbruch
   
    Do
        If fs.FileExists(sFile) Then Exit Do
        wshShell.Popup "Warte auf Datei...", 1, "Warten...", vbOKOnly
        'WSHShell.Popup promt, Wartesekunden, Titel, Typ
    Loop While Timer() < tMax
     
    Set fs = Nothing
    Set wshShell = Nothing
End Sub

---

Alternativ lässt sich das Popup auch alleine verwenden (z.B. dann mit den 2 Sekunden).

Code:

---

Set wshShell = CreateObject("WScript.Shell")
wshShell.Popup "Text", 2, "Warten...", vbOKOnly

---

Vorteil mit dem Popup: keine CPU-Auslastung während des Wartens (im Gegensatz zu einer Endlosschleife, oben vorgeschlagen)
Nachteil: es lassen sich keine Zeiten kleiner 1 Sekunde einstellen

Gruß
KraBBy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP