Zeitberechnung !

[neffe]

hallo

ich möchte eine repeat/until oder ähnliche schleife nach genau einer Sekunde abbrechen. wie mach ich das bzw wie heißen die Funktionen, die die Uhrzeit geben bzw Zeitdifferenzen berechnen können

Vielen Dank
Antwort bitte an : ---> Scottier@gmx.net
Matthias

[Manu]

Ach du Schande.. für gewöhnlich regelst du sowas mit Timern.. die kannst du immer abbrechen.. aber.. gibts unter TP Timer?
Ich hab jedenfalls nie unter TP damit gearbeitet.. auch nicht mit Zeit.. gibts irgendwas wie GetTickCount(); wie bei C++ unter TP? Dann könntest du damit die Zeitdifferenzen managen..

Bin momentan etwas überfragt, evtl. kann ich dir morgen mehr sagen, oder jemand anders der sich noch besser an seine TP Zeit erinnert hilft weiter :)

AgentSmith

PS.: Das hier ist ein Forum, eine Community.. da wird einem geholfen und man soll helfen, wenn man kann.. Also wirst du Antworten kaum an deine Mailaddy kriegen, damit du hier ja nie wieder reinschauen musst.
Doch das nur am Rande...

[neffe]

ganz ruhig ... hab mich ja nicht umsonst registriert
ich find das ganze hier schon ne gelungene sache ... und da ich´s auch mit anderen sprachen zu tun hab werd ich auch öfters mal vorbeischauen.


Matthias

[Manu]

Freut mich zu hören :)

Sorry, aber ich hab jetzt voll verschusselt, meinen Infolehrer zu fragen, wegen Timern.. aber IMHO geht das unter TP alles nur pseudogenau mit der Zeit.. werd ihn morgen fragen, dan kann ichs dir genau sagen :)

cya

[neffe]

diese antwort habe ich vom webplain forum :

Greetings ,

um die Uhrzeit zu bekommen bzw. damit zu arbeiten , musst Du erstmal die
Unit Dos einbinden .
Das kann dann so ausehen :

Program Uhr;
Uses Crt,Dos;

var
hh,mm,ss,ms : Word ; {Stunde,Minute,Sekunde,Millisekunde}

Begin
GetTime (hh,mm,ss,ms);
Writeln (´Stunde : ´,hh);
Writeln (´Minute : ´,mm);
Writeln (´Sekunde : ´,ss);
Writeln (Millisek : ´,ms);
Readln;
End.

Natürlich kannst Du jetzt mit den einzelnen Werten rumrechnen .

The only One


----------------------------------------------------------------
werde erstmal damit rumprobieren ...

Neffe

[Manu]

OK, viel erfolg! :)

[Diogenes]

Unter DOS:

Einbinden von CRT mit

uses CRT;

und dann mit

Delay( MilliSeconds)

den Rechner MilliSeconds ms aufhalten. Achtung! RTE 200 wegen schnellen Rechners beachten!
Unter Windows: Ja! Die Unit WinProcs bindet GetTickCount ein. Damit läßt sich

procedure Delay( Time: LongInt);

var
OldTime: LongInt;

procedure Nothing;

begin
end;

begin
OldTime := GetTickCount;
while GetTickCount - OldTime <= Time do
Nothing
end;

programmieren.