Несколько хитростей с D3D8

[Gemini]

Добрый день!

Вот у меня несколько вопросов:
1. Создаю Dx в полноэкранном режиме. После чего хочу его свернуть... И тут вылетает ошибка на рендере либо на слербуфере
Попытался сделать такую вещь:

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

If frmMain.WindowState <> vbMinimized Then
рендерим
End If


Но ошибки стали вылетать при разворачивании окна!
Вот сколько не пытался победить эту штуку, не получается!


2. Как правильно сделать ограничение по ФПС в оконном режиме (что бы не было рывков) (что - то даже в голову не приходит)???

3. Как сделан эффект в играх (затемнённый экран по которому водишь мышкой и круглая область вокруг курсора становиться более яркой - Эффект фонарика)????

[|( () ( T |/| |(]

На счёт первого:

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

If Me.WindowState <> vbMinimized Then
If Min = False Then
  D3DDevice.Present ByVal 0, ByVal 0, 0, ByVal 0
Else
  D3DDevice.Reset PRESENT_PARAMS
  Min = False
End If
Else
Min = True
End If

[Master_Zolan]

Насчет второго:
http://www.gotdotnet.ru/LearnDotNet/VBNET/500739.aspx
конкретно вот этот кусочек

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

While Created
     If (Now - DateTime1).TotalMilliseconds > 30 Then ' Прорисовку выполняем через каждые 30 миллисекунд
                ' если не устанавливать временной интервал, то цикл будут выполняться
                ' через разные промежутки времени, и движение корабля будет неравномерным
                ' Также если ваша система не будет успевать выполнять код за 30 миллисекунд
                ' то движение корабля тоже будет неравномерным, можно увеличить до 40
                ' но это уже будут видимые глазу скачки в движении
                ' Реальное время в миллисекундах, за которое происходит выполнение
                ' цикла отображаем в заголовке окна
                ' Если система успевает выполнить цикл, в заголовке будет отображаться число 31.25
                Me.Text = (Now - DateTime1).TotalMilliseconds
                DateTime1 = Now ' Создание точки отсчета времени
                    [код вывода графики и обработки событий]
     End If
End While

Насчет третьего подозреваю, что монжо под курсором наложить белый спрайт, в альфаканале которого градиентная черно-белая заливка из центра к краям.

[Gemini]

На счёт первого:

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

If Me.WindowState <> vbMinimized Then
If Min = False Then
  D3DDevice.Present ByVal 0, ByVal 0, 0, ByVal 0
Else
  D3DDevice.Reset PRESENT_PARAMS
  Min = False
End If
Else
Min = True
End If

Код выдает ошибку на : D3DDevice.Reset d3dpp. Где d3dpp - начальные настройки (при инициализации)
Чувствую что у же близко но что-то не то!

[Debugger]

Насчет рывков - я долго с этим сражался. Дело в том, что проект приходилось писать на разных компах. На одном FPS было 2000, на другом - 150 . Решение старое, но работает -

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

Option Explicit

Public Type int64
  dw1 As Long
  dw2 As Long
End Type

Public Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As int64) As Long
Public Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As int64) As Long
Dim QSpeed As Double
Dim QTime As Double
Public BetweenTime As Double 'Клон QTime. ToDo: слить их воедино
Dim QLastTime As Double
Const K_TIMER = 50

Public Sub QFreqIni()
Dim QD As int64
  QueryPerformanceFrequency QD
  If QD.dw1 < 0& Then QSpeed = QD.dw1 + 4294967296# Else QSpeed = QD.dw1
  If QD.dw2 < 0& Then QSpeed = QSpeed + (QD.dw2 + 4294967296#) * 4294967296# Else QSpeed = QSpeed + QD.dw2 * 4294967296#
  QSpeed = 1# / QSpeed
End Sub

Sub CalcTime()
    Dim QD As int64
    Dim T As Double
    Dim tmp As Double
    QueryPerformanceCounter QD
   
    If QD.dw1 < 0& Then T = QD.dw1 + 4294967296# Else T = QD.dw1
    If QD.dw2 < 0& Then T = T + (QD.dw2 + 4294967296#) * 4294967296# Else T = T + QD.dw2 * 4294967296#
   
    QTime = T * QSpeed
   
    tmp = QTime
    If QLastTime = 0 Then QLastTime = QTime
   
    QTime = QTime - QLastTime
    BetweenTime = QTime
    QLastTime = tmp
End Sub
Sub CT()
    CalcTime
End Sub
Function TimeVar(var)
    TimeVar = var * QTime * K_TIMER
End Function
Function TV(var)
    TV = TimeVar(var)
End Function

Соответсвенно, в самом начале вызываем QFreqIni. При каждой прорисовке вызываем CalcTime( или CT), а каждую переменную, которая должна быть связана со временем, засовываем в TimeVar (TV).

[Gemini]

Debugger
Не вариант засовывать все переменные зависящие от времени в одну функцию!
пример Master_Zolan более подходящий но там VB2005 у меня так в вб6 не работает!

Должно быть какое-то комуникабельное решение...

И по поводу сворачивания, есть у кого нибудь мысли почему reset ругаеться на передаваемые ему параметры?

[djalex777]

Debugger
Не вариант засовывать все переменные зависящие от времени в одну функцию!
пример Master_Zolan более подходящий но там VB2005 у меня так в вб6 не работает!

Должно быть какое-то комуникабельное решение...

Все функции, зависящие от времени, должны использовать разницу времени либо само время, и сами расчитывать эту разницу.

И по поводу сворачивания, есть у кого нибудь мысли почему reset ругаеться на передаваемые ему параметры?

А может дело не в передаваемых параметрах? (точнее так скорее всего и есть ) Reset можно использовать в определённом состоянии устройства. Для определения состояния используют функцию TestCooperativeLevel у класса Direct3DDevice8

[Gemini]

Во какой клёвый сайт нашел: Сайт

[Gemini]

Люди может кто нибудь сможет выложить пример 100% рабочего кода (лучше исходник) По сворачиванию и разворачиванию окна (в полноэкранном режиме) без ошибок.

[djalex777]

Можно так. В функцию рендеринга вставь это:

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

on error resume next   
Select Case d3ddevice.TestCooperativeLevel
   Case D3DERR_DEVICENOTRESET
      d3ddevice.Reset d3dpp
      Exit Function
   Case Is <> D3D_OK
      Exit Function
End Select
on error goto ErrorNow
... 'Твой код прорисовки и вывода на экран
Exit Function
ErrorNow:


[Gemini]

djalex777

Тоже не помогает. Вылетает при попытке развернуть окно!

[Vovik]

djalex777

Тоже не помогает. Вылетает при попытке развернуть окно!

Set RenderTergetSurf = obj.GetSurfaceLevel(0)
Set DepthStencilSurf = D3DDevice.CreateDepthStencilSurface(...)
- эти объекты нужно уничтожать перед вызовом d3dpp.Reset . еще MainFont.OnLostDevice - перед вызовом, а после MainFont.OnResetDevice.

[djalex777]

Set RenderTergetSurf = obj.GetSurfaceLevel(0)
Set DepthStencilSurf = D3DDevice.CreateDepthStencilSurface(...)
- эти объекты нужно уничтожать перед вызовом d3dpp.Reset . еще MainFont.OnLostDevice - перед вызовом, а после MainFont.OnResetDevice.

Естественно! При Reset все сурфейсы в памяти будут потеряны, из видео-памяти будут "выброшены" текстуры, которые в ней хранятся, а также информация обо всех состояниях устройства будет потеряна. До вызова Reset нужно освободить все Render Target и Depth Stenicl Surface, блоки состояний и ресурсы созданные в D3DPOOL_DEFAULT. Соответственно всё надо будет восстановить после Reset

[Gemini]

Вот теперь понятно.

Всем Спасибо!!!!

[Vovik]

Set RenderTergetSurf = obj.GetSurfaceLevel(0)
Set DepthStencilSurf = D3DDevice.CreateDepthStencilSurface(...)
- эти объекты нужно уничтожать перед вызовом d3dpp.Reset . еще MainFont.OnLostDevice - перед вызовом, а после MainFont.OnResetDevice.

Естественно! При Reset все сурфейсы в памяти будут потеряны, из видео-памяти будут "выброшены" текстуры, которые в ней хранятся, а также информация обо всех состояниях устройства будет потеряна. До вызова Reset нужно освободить все Render Target и Depth Stenicl Surface, блоки состояний и ресурсы созданные в D3DPOOL_DEFAULT. Соответственно всё надо будет восстановить после Reset

Естественно? Видимо для человека не особо естественным это было

[Gemini]

Блин! Не выходит! Если кому не трудно приаттачте примерчик плз!

Буду Очень благодарен!

[Mikle]

Лови.

[Gemini]

Mikle

Спасибо! Проверю у себя в проекте и отпишусь!

[Gemini]

Mikle
Попробовал сделать у себя в проекте так же но при разворачивании окна все равно происходит косяк с d3ddevice.Reset d3dpp.
Не могу понять в чём проблема....
Объясните плз последовательность.

Надо ли выгружать все загруженные текстуры и т.д.

[Bazilius]

2Gemini
Может быть не в тему выкладываю пример, но у меня сворачивается/разворачивается вроде-бы без ошибок (пробовал на разных компах под XP), правда без 3d. Текстуры не выгружаю, просто часть параметров (см. InitDevice() в модуле) инициализируем заново (в т.ч. спрайты) и восстанавливается без проблем Рендер обязательно находится в форме.
Не смог сделать поддержку D3DXFont, вылетает в каком-то месте, пришлось делать шрифт через спрайты/тайлы.

[Gemini]

Вот как делаю я.....

Посмотрите пожалуйста в чём ошибка...

[|( () ( T |/| |(]

Решение проблемы с текстом.

[Bazilius]

2Gemini
У меня были такие-же проблемы.
1. Насколько я понял, рендер обязательно должен находится в форме, а не в модуле. Посмотри примеры, в модулях, в основном, происходит только инициализация DX. В твоем случае попробуй перенести процедуры Render() и ClearBack() непосредственно в текст формы.
2. ShowInTaskbar в свойствах формы сделай True.
3. Вывод текста как у |( () ( T |/| |( а.

2|( () ( T |/| |(
Огромное спасибо

[Gemini]

3. Вывод текста как у |( () ( T |/| |( а.

Запустил пример... И так же вылетает ошибка при разворачивании формы....

[Bazilius]

2Gemini
Чей пример пробовал?

[Gemini]

2Gemini
Чей пример пробовал?

|( () ( T |/| |( а.

[Gemini]

Блин! (Код: d3dDevice.Reset PRESENT_PARAMETERS, номер ошибки -2005530520 (88760868) ) - Эта ошибка меня достала!!!! я не могу понять.... Что - то не правильно в настройках PRESENT_PARAMETERS или почему vb так ругаеться?????

Bazilius - спасибо! твой пример работает! Только я чуть ли не символ в символ перенёс твой код в свой но все равно вылетает ошибка!!!!

(Блин Уже срочно надо решение проблеммы (начальники гонят!!!!))

[Bazilius]

2Gemini
Создай проект, состоящий из одной только формы. Инициализируй только DX, без лишних прибамбасов, и шаг за шагом наращивай функциональность: сначала только рендер, потом подгружай текстуры, выводи изображения и т.д. Короче, делай все поэтапно, чтоб вычислить на каком из этапов вылетает ошибка...
Вот ссылка на старую тему по сворачиванию формы. Просто перенеси последний пример от Mikle в форму и посмотри как будет работать...

[djalex777]

Gemini, Хм... Вроде всё написали же как и что делать. Что должно быть до Reset и после него. Не читал видимо...

Посмотрел твой исходник:
1. В функции D3DInit ты делаешь проверку на то создалось ли устройство или нет после установки RenderState устройства. Где логика????
2. Функция рисующая текстуру. Рисуешь без установки VertexShader и как же оно по-твоему рисовать должно???? Где-то выше писал - после вызова Reset вертекс шадер нужно устанавливать заново. Либо непосредственно перед отрисовкой вставь установку VertexShader.

Сделаешь эти два пункта и вуаля - всё работает

[Gemini]

djalex777 -Магия!
по поводу:

1. В функции D3DInit ты делаешь проверку на то создалось ли устройство или нет после установки RenderState устройства. Где логика????

Мой косяк... Проглядел пока вставлял RenderState.

2. Функция рисующая текстуру. Рисуешь без установки VertexShader и как же оно по-твоему рисовать должно???? Где-то выше писал - после вызова Reset вертекс шадер нужно устанавливать заново. Либо непосредственно перед отрисовкой вставь установку VertexShader.

В примере он устанавливался в функции D3DInit.

РЕБЯТА ВСЕМ ОГРОМНОЕ СПАСИБО!!!!! (век не забуду )