Zeit messen

[Tsuki-Namida]

Hallo,
ich möchte eine Zeit messen und zwar wie folgt.

Ein Benutzer kann eine Zeit angeben in deren abständen eine Aktion regelmäsig passieren soll.

ich kann allerdings nicht mit Delay arbeiten weil ja das Programm an für diese Zeit still stehen bleibt und das darf nicht passieren da man auch andere aktionen werend dieser zeit machen kann.

Ich offe mal das Ihr mich versteht was ich in etwar brauche...

[Macros]

Plattformunabhängig?
Sonst gettickcount_() für Windows( in Millisekunden nach Systemstart)

[ts-soft]

Wenn Du ein Fenster hast, nimmste SetTimer, findeste genug Beispiele im Forum

[Tsuki-Namida]

hmm wie soll das gehen? wenn ich den befehl im debug anzeige erscheint nur die zahl "115801984" und diese ändert sich nicht

[HeX0R]

Ausserdem ist ElapsedMilliseconds() genau dasselbe wie gettickcount_() mit dem Vorteil, dass es auch unter Linux funzt.

[ts-soft]

Mit Fenster, Windows Only:

Code: Alles auswählen

Procedure Timer()
  Beep_(500, 100)
EndProcedure

Zeit.s = InputRequester("Zeit für Beep", "Bitte Sekunden angeben", "")
time = Val(Zeit) * 1000

If OpenWindow(0, 100,100,100,100,#PB_Window_SystemMenu,"Timertest")
  CreateGadgetList(WindowID(0))
  SetTimer_(WindowID(0), 0, time, @Timer())
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

(Freeware )

[Tsuki-Namida]

Ja da muss ich aber wieder mit "Delay" arbeiten... gibt es da keine andere Möglichkeit?

[HeX0R]

Ja da muss ich aber wieder mit "Delay" arbeiten... gibt es da keine andere Möglichkeit?

Also müssen musst du goa nix...

[ts-soft]

Ja da muss ich aber wieder mit "Delay" arbeiten... gibt es da keine andere Möglichkeit?

Wo ist da ein Delay im Code

[Tsuki-Namida]

StartTime = ElapsedMilliseconds() ; ermittelt den aktuellen Wert
Delay(1000) ; wartet 1000 Millisekunden
ElapsedTime = ElapsedMilliseconds()-StartTime ; der 'ElapsedTime' Wert sollte ca. 1000 Millisekunden betragen

Da brauche ich diesen befehl...