forum.boolean.name - как создать счетчик фпс?)

forum.boolean.name (http://forum.boolean.name/index.php)

- MidletPascal (http://forum.boolean.name/forumdisplay.php?f=46)

- - как создать счетчик фпс?) (http://forum.boolean.name/showthread.php?t=8233)

KAK? TAK!

01.05.2009 13:35

как создать счетчик фпс?)

срочняк надо:mad: :mad: :mad: :mad: :mad: :mad: :mad: :mad: :( :( :( :( :( :( :( :(

KAK? TAK!

01.05.2009 16:54

Ответ: как создать счетчик фпс?)

VINT, знаешь как сделать?

ViNT	01.05.2009 16:56

Ответ: как создать счетчик фпс?)

Товарищи, хватат флудить и задавать глупые вопросы.

По вопросу:
Вариантов несколько, простейший - при каждой отрисовке увеличивать значение целочисленой переменной и выводить его с интервалом в 1 секунду, например с помощью Lib_timer. естественно, после вывода значение сбрасывается в 0.

beisik

01.05.2009 18:03

Ответ: как создать счетчик фпс?)

Я делаю так:

Код:

var

  fps_time: integer;

  fps_cur: integer;

  fps: integer;



...



procedure CountFPS;

begin

  if fps_time <= GetRelativeTimeMs then

  begin

    fps_time := GetRelativeTimeMs + 1000;

    fps := fps_cur;

    fps_cur := 0;

  end;

  fps_cur := fps_cur + 1;

end;



...



// Инициализация:

 fps_time := GetRelativeTimeMs - 1000;



...



// При каждой отрисовке

  CountFPS;



...



// Выводим

  DrawText('FPS: ' + IntegerToString(fps), 8, 8);

Часовой пояс GMT +4, время: 10:52.