|
Poslao: 22 Maj 2007 23:43
|
offline
- Keeg
- Novi MyCity građanin
- Pridružio: 31 Mar 2007
- Poruke: 11
|
Kako napraviti da izmjerim interval izmedju pritiska i otpuštanja tipke (u milisekundama, of kors)?
|
|
|
|
|
Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
|
|
|
Poslao: 22 Maj 2007 23:54
|
offline
- NuLLCoDe
- Legendarni građanin
- Đuro Glumac
- dipl. ing. informatike
- Pridružio: 08 Feb 2004
- Poruke: 3640
- Gde živiš: ApAtIn
|
Pogledaj proceduru DecodeTime.
procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);
Tebi znaci treba poslednja vrednost, to su milisekunde trenutnog vremena. Nakon otpustanja tastera ponovo uradis ovo i od tog vremena oduzmes prethodno, s tim da sve konvertujes u MSec ako je taster bio pritisnut duzi period.
|
|
|
|
|
|
|
Poslao: 23 Maj 2007 00:39
|
offline
- Srki_82
- Moderator foruma
- Pridružio: 12 Jul 2005
- Poruke: 2483
- Gde živiš: Ljubljana
|
Preporucio bih ti da koristis high performance counetr-e. Vise o njima mozes ovde pronaci:
[Link mogu videti samo ulogovani korisnici]
[Link mogu videti samo ulogovani korisnici]
Ako ti je to previse precizno, mozes koristiti GetTickCount funkciju:
[Link mogu videti samo ulogovani korisnici]
|
|
|
|
|
|
|
Poslao: 23 Maj 2007 01:05
|
offline
- loshmi_sr
- Građanin
- Pridružio: 08 Jan 2007
- Poruke: 279
- Gde živiš: Srbija
|
var
Start: Cardinal;
begin
Start := GetTickcount;
Sleep(300);
ShowMessage(Inttostr(GetTickcount - Start));
end;
Možeš iskoristiti i funkciju MilliSecondsBetween(StartTime, EndTime), s tim što moraš deklarisati (StartTime, EndTime) - dodeliti vrednosti, u klauzuli uses potrebno ti je još DateUtils.
StartTime := Now();
Sleep(300);
EndTime := Now();
ShowMessage(IntToStr(MilliSecondsBetween(StartTime, EndTime)));
|
|
|
|
|
|
|
Poslao: 23 Maj 2007 13:06
|
offline
- beli0135
- Executor
- Pridružio: 03 Jan 2005
- Poruke: 2990
- Gde živiš: Beograd
|
Mozes i GetTickCount, to je sigurniji metod jer je najprecizniji.. znaci zapises tick na pritisku, na pustanju pa ih oduzmes.
|
|
|
|
|
|
