Witam,
Mam problem do zrealizowana, jest to moje zadanie zaliczeniowe. Do stworzenia mam program który będzie dizłąął na zasadzie "gra w życie" (jest opisana na wikipedii). jako że nie lubie od razu brac gotowca, chce sam to zrobic. podstawowe rzeczy jakie zrobilem to losowe rozrzucenie obiektów na podanej części okienka.
procedure kolo;
var
i:integer;
begin
setcolor(3);
fori:=1 to 150 do
circle(random(320),random(240),3);
end;
i mam problem bo potrzebuję tą procedurę wywoływac np co 5 sekund i nie mam pojęcia jak sie do tego zabrac. probowalem z implementaca takiej funkcji:
uses Dos;
function t:Longint;
var H,M,S,St:Word;
GetTime (H,M,S,St);
t := H*360000 + M*6000 + S*100+ St;
end;
ale to nic nie pomogło, jedynie wyrzycalo mi czas w ktorym procedura kolo została wywolana.
proszę o pomoc - wskazówki, co zrobi aby procedura kolo wywoływała sie samoczynnie co 5 sekund.
Pozdrawiam!