Как вычислить ФПС? Как ускорить работу с графикой?

[Don Leno]

У меня два вопроса: как вычислить ФПС? Как ускорить работу с графикой?
Ниже приведен мой код программы:

Код: Выделить всё

Public stoper As Boolean
Public x As Long

Sub InitGraph()
stoper = False
frmMain.Show
Set lrbg = LoadPicture(App.Path + "\sbg.jpg")
End Sub

Sub Sync()

Set lrMain = LoadPicture(App.Path + "\main.jpg")
' Приходится каждый раз грузить изображение
' в память!!! Это сильно тормозит прогу

hMain = CreateCompatibleDC(frmMain.hdc)
hbg = CreateCompatibleDC(frmMain.hdc)

SelectObject hMain, lrMain.Handle
SelectObject hbg, lrbg.Handle
x = x + 20
If x = 200 Then x = 0
BitBlt hMain, x, 50, 200, 200, hbg, 0, 0, SRCCOPY

SelectObject hMain, lrMain

frmMain.Picture = lrMain


DeleteDC hbg
DeleteDC hMain


End Sub

Sub Main()
Call InitGraph
x = 0
Do Until stoper = True
tmr = GetTickCount
Sync
DoEvents
tmr = GetTickCount - tmr
frmMain.lblFPS.Caption = "FPS: " & Str(1/tmr)
' Здесь я применил Апи GetTickCount для вычисления времени кадра и
'потом секунду разделил на время кадра, но у меня показывает 1-2 ФПС?!
' 8) непонимаю что не так(((
Loop

'MsgBox "End!"
End
End Sub

Буду благодарен если кто поможет)))

[Хакер]

как вычислить ФПС?

Не надо считать количество времени, ушедшее на один кадр, а затем выводить величину 1 / frame_time. Надо считать кадры, а каждую секунду выводить значение счётчика и сбрасывать его в 0. Можно не каждую секунду, а каждые полсекунды, но выводить тогда скомпенсированное на соответствующий коэффициент значение (×2 в случае с половиной секунды).

Код омерзителен отсутствием отступов, при чтении крововые слёзы проступают.

Код: Выделить всё

Set lrMain = LoadPicture(App.Path + "\main.jpg")
' Приходится каждый раз грузить изображение
' в память!!! Это сильно тормозит прогу


Кто же заставляет поступать так тупо? «Приходится»... Да с чего бы это оно так приходится?

[Don Leno]

Согласен код омерзителен, но пишу лишь для себя, а не для других. И при этом это лишь тестовый проект. Если знаешь альтарнативу вместо загрузки изображения по новой - напиши.

Спасибо за подсказку с фпс)))

[ger_kar]

но пишу лишь для себя, а не для других

Так для себя в первую очередь необходимо писать хорошо структурированный код. Причем это должно войти в привычку. Ведь самому же приятно смотреть на свой эстетически красиво оформленный код, а то, что с ним в разы лучше разбираться про это я просто помолчу...

[Хакер]

Согласен код омерзителен, но пишу лишь для себя, а не для других.

При этом ты в данный момент занимаешься тем, что показываешь этот код другим и просишь в нём копаться. Не находишь противоречие?

Если знаешь альтарнативу вместо загрузки изображения по новой - напиши.

Знаю. Пишу: загружать картинку единожды.

[Don Leno]

У меня всег две картинки. 1 - фон, 2 - движущийся объект. То есть при наложении получается шлейф. Как этого избежать? Как загрузить фон единожды и потом по новой наложить объект на него?

[Хакер]

загрузить фон единожды....

Код: Выделить всё

Sub Main()
Set lrMain = LoadPicture(App.Path + "\main.jpg")
...........
Call Sync(lrMain)
...........

[Хакер] :: Вот неужели не хватает сообразительности не использовать [icode] вместо [code] для многострочных фрагментов кода? Уже не первый раз замечаю за bon818 это. Исправлено.

[Don Leno]

bon818 это не помогло, проверил. Изображение оставляет шлейф. Я хочу использовать как бы несколько слоев. Один рисунок - это фон, второй - движущийся объект, третий - еще что нить. При наложении всех слоев в один - должен получаться один кадр который я потом присваиваю к рисунку формы. После чего все происходит по новой.

[VisualFreeBasic]

Точность API GetTickCount составляет около 15 миллисекунд, что относительно неточно. Рекомендуется использовать timeGetTime и сначала установить высокоточный timeBeginPeriod.

The accuracy of the GetTickCount API is about 15 milliseconds, which is relatively inaccurate. It is recommended to use timeGetTime and set the high-precision timeBeginPeriod first

Код: Выделить всё

Private Declare Function timeBeginPeriod Lib "winmm.dll" _
  (ByVal uPeriod As Long) As Long
Private Declare Function timeEndPeriod Lib "winmm.dll" _
  (ByVal uPeriod As Long) As Long

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
timeBeginPeriod  1
t=timeGetTime
msgbox "aa"
msgbox timeGetTime -t


[Don Leno]

VisualFreeBasic, thanx, конечно))
Но правда поздновато!)) Не забывай смотреть на даты. А то получается некропостинг)))