[ peromalosutra @ 25.06.2005. 11:41 ] @
Naisao sam na ovaj problem kada sam pokusao u svoj program (tel. imenik) staviti proceduru koja bi ispisivala trenutno vrijeme u pozadini koristeci proceduru gettime. Medjutim ova procedura bi trebala da bude aktivna tokom cijelog rada programa bez obzira sta korisnik programa trenutno radi (upisuje imena, pretrazuje imenik, itd.). Na primjer ova procedura radi, ali zaustavlja izvodjenje glavnog programa: Code: procedure vrijeme; var sat,min,sek,br:word; begin window (70,1,80,1); textbackground (black); gettime(sat,min,sek,br); repeat inc(sek,1); gotoxy (70,1); write (sat,':',min); delay (1000); if sek=60 then begin sek:=0; inc(min,1); end; if min=60 then begin min:=0; inc(sat,1); end; until keypressed; {ovdje ce naravno biti neki drugi uslov} end; (ovo pisem iz glave, pa mozda ima koja greska) |