sleep?

3 svar · 430 visningar · startad av FreeZer 21 sep. 2001

FreeZerMedlem sedan jan. 2001950 inlägg

Frågan21 sep. 2001 18:58#1

Om man använder: "sleep(100);"
så står programmet helt stilla under den tiden.

Hur ska jag skriva om jag vill att den ska upprepa en funktion och bara vänta i 100ms, inte frysa programmet i 100ms?

------------------
^FreeZer^
------------------
"Om du läser denna mening en gång till, kommer du att ha läst den minst två gånger..."

MattiasWMedlem sedan jan. 2000144 inlägg

24 sep. 2001 08:29#2

Läs detta:
http://www.drbob42.com/uk-bug/hood-08.htm

FreeZerMedlem sedan jan. 2001950 inlägg

24 sep. 2001 13:56#3

Sidan kan inte visas... ;)

------------------
^FreeZer^
------------------
"Om du läser denna mening en gång till, kommer du att ha läst den minst två gånger..."

MattiasWMedlem sedan jan. 2000144 inlägg

25 sep. 2001 06:22#4

Nu kan den det.

Exempel från sidan:
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
program Hood8;
uses
WinProcs, Forms, WinCrt;

procedure Sleep(MilliSecondsToWait: LongInt);
var StartTime: LongInt;
begin
  StartTime := GetTickCount;
  while (GetTickCount \>= StartTime) and
        (GetTickCount \< (StartTime + MilliSecondsToWait)) do
    Application.ProcessMessages
end {Sleep};

var i: Integer;
begin
writeln(GetTickCount);
for i:=1 to 10 do
begin
Sleep(i * 1000);
writeln(GetTickCount);
end
end.