Schleifentakt beeinflussen

[MrHoliday]

Hallo liebe Programmierer,

Ich möchte innerhalb einer "Do While" o.ä. -Schleife
einige Berechnungen ausführen und die Ergebnisse
z.B im Sekundentakt anzeigen.
Kann ich der Schleife angeben "Warte eine Sekunde und
laufe einmal durch....warte eine Sekunde und...."
Am Besten wäre, ich könnte den Schleifendurchlauf
mit einem Regler beeinflussen.

Danke für Anregungen

MrHoliday

 

[jank1310]

Benutze dazu doch einfach einen Timer.
und mit einem Regler oder so tust du dann den Intervall einstellen.

 

[hotschen]

Eine weitere Möglichkeit:

Private Sub Command1_Click()
Dim i
Dim ergebnis
Dim start
    i = 1
    Do While i <= 10
        ergebnis = i ^ 2
        Label1.Caption = i
        Label2.Caption = ergebnis
        start = Timer               'Die ist der Timer
        Do While start + 1 >= Timer '"""""""""""""""""
            DoEvents                '"""""""""""""""""
        Loop                        '"""""""""""""""""
        i = i + 1
    Loop
End Sub

oder über eine API:

Declare Sub Sleep Lib "kernel32" (Byval dwMilliseconds As Long)

Private Sub Command1_Click() 
  Sleep 1000     'In Millisekunden angegeben
End Sub

 

[jank1310]

Timer ist eindeutig leichter
Bleibt bei Sleep eigentlich das ganze Programm stehen?

 

[hotschen]

Naja, was einfacher oder "besser" ist...in diesem Fall wohl eher Geschmachssache

Bleibt bei Sleep eigentlich das ganze Programm stehen?

Jepp (Glaub ich jedenfalls zu 97%)

 

[MrHoliday]

Timer hat prima geklappt,
Dank an Alle!