Про клаву ....

[petroff]

Простите за "тему не в тему" !
Я б хотел узнать как пользоватся клавой через directinput....
А то я пробывал опрашивать через " Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer"
Создал процедуру , вставил ее в цикл , но получилось слишком быстро.... то есть нажал один раз ... а вышло что раз 5 изменилось значение по этой клавише . То есть должен был быть "один выстрел .... а получилась очередь ..."

Попробывал через таймер еше хуже слишком медлено ?

Через "keydown" не подходит нельзя за раз отследить сразу две нажатые клавиши.... я знаю что можно как-то через directmusic но как ?

[Maxwell]

Не знаю причём тут DirectMusic, но через DirectImput делается так:

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

Dim DX As New DirectX8

Dim di As DirectInput8 'Объект DirectImput
Dim diDev As DirectInputDevice8 'Устройство DirectImput
Dim diState As DIKEYBOARDSTATE


'Инициализирует DirectInput >
Private Sub InitDI()

Set di = DX.DirectInputCreate()
If di Is Nothing Then Exit Sub

Set diDev = di.CreateDevice("GUID_SysKeyboard")
If diDev Is Nothing Then Exit Sub

diDev.SetCommonDataFormat DIFORMAT_KEYBOARD
diDev.SetCooperativeLevel Me.hWnd, DISCL_NONEXCLUSIVE Or DISCL_BACKGROUND
diDev.Acquire

End Sub


Private Sub Controling()
diDev.GetDeviceStateKeyboard diState

If diState.Key(DIK_W) <> 0 Then 'DIK_W - это нужная клавиша, в данном примере "W"
'Сдесь прописываешь то, что должно происходить
End If

End Sub

Не забудь при загрузки формы прописать InitDI и зациклить Controling.

[petroff]

Ну я имел ввиду опрос клавы производить черз музыкальный таймер ?!
Вроде у него более широкий диапозон .....чем у обычного таймера .....
Но все равно спасибо.....

[Mikle]

Чтобы через GetAsyncKeyState не получались "очереди", делают булевскую переменную, при нажатии на клавишу проверяют ее, и если False - заносят в нее True и производят выстрел. А при отжатии снова заносят False.

[Maxwell]

Зачем же мучаться и делать через DirectMusic, когда для этого есть DirectImput. Если ты используешь стандартную функцию Timer, то её можно домножать или делить (в зависимости от того, что хочешь сделать, ускорить или замедлить процесс)
Пример:
Timer/2 или Timer*3

[petroff]

Извини я не понял .... у таймера есть диапозон от 1 до 64767..так вот при значение 1 уже сильно тормозит... а меньше значение нельзя сделать - - ошибка

[petroff]

Mikle спасибо за совет все работает отлично .. но всетаки насчет таймера интересно !

[Maxwell]

Просто какии я игры не разбирал, к примеру Халфу на VC++, там тоже используется задержка между выстрелами, при момощи таймера.

[petroff]

ПОнимаешь если вставить опрос клавы в "таймер" , то будет сильно медленно .........
--------- ---------------
Цикл Таймер
Рендеринга. =0,1 сек Опрос клавы =1 сек
--------- ----------------
Все данные приблезительные.......

надо как то повысить частоту опроса клавиатуры

[Maxwell]

Понял, но над этим я не задумывался, просто не встречался с этой проблеммой.

[Mikle]

Вот пример:
http://www.tuapse-mikle.narod.ru/keyb.zip

1 - Одиночный выстрел
2 - Очередь
Esc - Выход
ScrollBar - регулятор скорострельности.

[petroff]

Спасибо ..за пример Mikle

[longwair]

Mikle
Не остался ли у тебя случайно пример что ты выкладывал выше, Оч хочу посмотреть.

[Mikle]

Не остался ли у тебя случайно пример что ты выкладывал выше, Оч хочу посмотреть.

Больше семи лет прошло, не осталось.
Пример чего конкретно нужен?

[longwair]

Mikle
Ну там где
1-Одиночный выстрел
2-Очередь
Я просто очередь через таймер делаю

[Mikle]

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