FreeBasic
Вы хотите отреагировать на этот пост ? Создайте аккаунт всего в несколько кликов или войдите на форум.

код клавиш и их получение

Участников: 2

Перейти вниз

код клавиш и их получение Empty код клавиш и их получение

Сообщение  Eric-S Пт Сен 19, 2008 11:19 pm

Я уже забыл. Раньше, в qbasic, как-то получал нажатия клавиш.

Мне нужно
стрелка влево,
стрелка в право,
shift + пробел.

Стрелки, кажеться было двойное chr(0) + "m" или "k", но я не помню.

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

Eric-S

Сообщения : 738
Дата регистрации : 2008-08-06
Возраст : 40
Откуда : Россия, Санкт-Петербург

http://eric50.narod.ru

Вернуться к началу Перейти вниз

код клавиш и их получение Empty Re: код клавиш и их получение

Сообщение  Eric-S Сб Сен 20, 2008 4:53 am

Оп ля! А тут есть ещё GetKey. Я то обрадовался, что она может дать более удобный перехват нажатия
клавиш. Стрелочки работают, а вот shift+space нет.

Код:


dim k as integer

do
sleep
cls
k = getkey
print "total return: " & k

if ( k > 255 ) then
print "extendet code: " & ( k and &hff )
print "regular code: " & (k shr 8)
print "'" & chr( k shr 8 ) & "'"
else
print "regular code: " & (k)
print "'" & chr( k ) & "'"
end if

loop until k = 27

Eric-S

Сообщения : 738
Дата регистрации : 2008-08-06
Возраст : 40
Откуда : Россия, Санкт-Петербург

http://eric50.narod.ru

Вернуться к началу Перейти вниз

код клавиш и их получение Empty Re: код клавиш и их получение

Сообщение  ShenZN Сб Сен 20, 2008 1:16 pm

Eric-S, используй лучше Multikey Very Happy

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

ShenZN

Сообщения : 155
Дата регистрации : 2008-02-18
Откуда : Ukraine

http://lodestar-game.narod.ru

Вернуться к началу Перейти вниз

Вернуться к началу

- Похожие темы

 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения