Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

delay u mikrosekundama

[es] :: Pascal / Delphi / Kylix :: delay u mikrosekundama

[ Pregleda: 3046 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

dekys
Dejan Stevanović

Član broj: 464
Poruke: 104



+1 Profil

icon delay u mikrosekundama23.06.2004. u 13:19 - pre 208 meseci
dali je nokome poznata neka procedura koja ce odraditi delay izrazenu u mikrosekundama. RAnije je ovde bilo govora o slicnoj koja je imala mogucnost pauzirana do 1 milisekunde.

Navedena funkcija je ranije opisana na ovom forumu. Meni je mikrosekunda potrebna za manipulaciju step motorima!

 
Odgovor na temu

Rapaic Rajko
Bgd

Član broj: 4105
Poruke: 799
217.119.242.*



+62 Profil

icon Re: delay u mikrosekundama30.07.2004. u 09:55 - pre 207 meseci
Zakasneli odgovor, ali upotrebljiv - sledi:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var atimer: THandle;
    alargeint: Int64;
begin
  atimer := CreateWaitableTimer(nil, false, 'MyTimer');
  if atimer <> 0 then begin
    try  // vreme ide u 100 ns intervalima (10000000 = 1 sekunda)
      // minus znaci relativno vreme ('od sad')
      alargeint := -(StrToInt64(Edit1.Text)); 
      SetWaitableTimer(atimer, alargeint, 0, nil, nil, false);
      WaitForSingleObject(atimer, infinite);
    finally
      CloseHandle(atimer);
    end;
    ShowMessage('Zavrsio je');
  end;
end;


Ovo je neverovatno mocna stvar, a reci cu i zasto. Zato sto thread koji ceka na timer NE TROSI procesorsko vreme. Do danas nisam ni ja znao za ovo; hvala za inspiraciju.
Pozdrav

Rajko
 
Odgovor na temu

dekys
Dejan Stevanović

Član broj: 464
Poruke: 104



+1 Profil

icon Re: delay u mikrosekundama02.08.2004. u 10:22 - pre 207 meseci
Hvala Rajko na ulozenom trudu!
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: delay u mikrosekundama

[ Pregleda: 3046 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.