Показать сообщение отдельно
Старый 11.02.2007, 23:09   #2
Platon
Знающий
 
Регистрация: 04.08.2006
Адрес: Россия
Сообщений: 297
Написано 39 полезных сообщений
(для 70 пользователей)
Re: Кадры в секунду

Надо увеличивать счетчки кадров в цикле до тех пор пока не пройдет 1 секунда, после чего значение счетчика присвоить какой-нить переменной, которая будет выводиться на экран, а счетчик обнулить. Для контроля времени можно использовать функцию Millisecs() - возвращает системное время в миллисекундах. Проверяя разницу между текущим временем и временем запомненым во время последнего "сброса" можно определить тот или иной промежуток времени.
Например:
	;Проверяем разницу между текущим временем и запомненым заранее
	If ((MilliSecs() - FpsTimer) > 999) Then
		;Присваиваем "выходной" переменной значение счетчика
		FpsAmount = FpsBuffer
		;Обнуляем счетчик
		FpsBuffer = 0
		;"Сбрасываем" таймер
		FpsTimer = MilliSecs()
	Else
		;Увеличиваем значение счетчика пока не прошла секунда
		FpsBuffer = FpsBuffer + 1
	EndIf
В этом случае выводим переменную FpsAmount
(Offline)
 
Ответить с цитированием