Geschwindigkeit ermitteln und ausgeben

[Alexander Roth]

Egal für welche Sachen du die Geschwindigkeit messen willst, du brauchst erstmal die Zeit.

Da man nur den Zeitunterschied zwischen vorher und nachher messen muss, macht man:

Delphi-Quellcode:

var anfang,delta:longint;
begin
anfang:= gettickcount;
//blabla was du machen willst
delta:=(gettickcount-anfang);
label1.caption:=floattostr( delta/1000)  +' s';

Dann weisst du ja sicher wieveil da übertragen wurde und da für konstante Geschwindigkeiten in der Physik gilt:
v= s/t

also
label2.caption:={was auch immer}/delta; Dann hast du alles pro ms

Tschüss