forum.boolean.name - Кадры в секунду

Надо увеличивать счетчки кадров в цикле до тех пор пока не пройдет 1 секунда, после чего значение счетчика присвоить какой-нить переменной, которая будет выводиться на экран, а счетчик обнулить. Для контроля времени можно использовать функцию Millisecs() - возвращает системное время в миллисекундах. Проверяя разницу между текущим временем и временем запомненым во время последнего "сброса" можно определить тот или иной промежуток времени.
Например:

Код:

        ;Проверяем разницу между текущим временем и запомненым заранее

        If ((MilliSecs() - FpsTimer) > 999) Then

                ;Присваиваем "выходной" переменной значение счетчика

                FpsAmount = FpsBuffer

                ;Обнуляем счетчик

                FpsBuffer = 0

                ;"Сбрасываем" таймер

                FpsTimer = MilliSecs()

        Else

                ;Увеличиваем значение счетчика пока не прошла секунда

                FpsBuffer = FpsBuffer + 1

        EndIf

В этом случае выводим переменную FpsAmount :-)