|
2D-программирование Вопросы, касающиеся двумерного программирования |
06.06.2011, 18:52
|
#16
|
Дэвелопер
Регистрация: 04.11.2009
Адрес: Украина, Днепропетровск
Сообщений: 1,480
Написано 662 полезных сообщений (для 1,985 пользователей)
|
Ответ: Вопрос по клавишам
Отлавливать Asc'ом код, ессно. Идея у тебя верная, наверное что-то не так в реализации.
While True
If KeyHit(79) Then End
Wend
|
У меня при нажатии единицы на нумпаде выходит
|
(Offline)
|
|
06.06.2011, 18:58
|
#17
|
Мастер
Регистрация: 24.06.2009
Адрес: Набережные Челны
Сообщений: 930
Написано 292 полезных сообщений (для 504 пользователей)
|
Ответ: Вопрос по клавишам
; GetKey Example Print "ЖМИ КНОПКУ !!!" .rep value="" While Not value value=GetKey() If value="27" Then Goto quit Wend Print "Код ASCII нажатой клавиши:" + value Goto rep .quit
Жаль у меня нет NumPada, может работает только при включённом NumLock?
ASCII это не то.
|
(Offline)
|
|
07.06.2011, 06:59
|
#18
|
Элита
Регистрация: 16.01.2010
Адрес: Новосибирск
Сообщений: 2,157
Написано 502 полезных сообщений (для 1,012 пользователей)
|
Ответ: Вопрос по клавишам
; GetKey Example
Print "ЖМИ КНОПКУ !!!"
.rep
value=""
While Not value
value=GetKey()
If value="27" Then Goto quit
Wend
Print "Код ASCII нажатой клавиши:" + value
Goto rep
.quit
|
ошибка будет,так как геткей выводит инит,надо сравнивать так:
; GetKey Example
Print "ЖМИ КНОПКУ !!!"
.rep
value=0
While Not value
value=GetKey()
If value=27 Then Goto quit
Wend
Print "Код ASCII нажатой клавиши:" + value
Goto rep
.quit
p.s лично у меня так только работала
|
(Offline)
|
|
07.06.2011, 11:47
|
#19
|
ПроЭктировщик
Регистрация: 26.08.2008
Сообщений: 149
Написано 10 полезных сообщений (для 18 пользователей)
|
Ответ: Вопрос по клавишам
У меня вообще ни в одном из примеров не работает. может кто знает какой нить Инпут код для реализации отлавливания клавиш и запись их в переменную?
|
(Offline)
|
|
07.06.2011, 12:15
|
#20
|
Элита
Регистрация: 16.01.2010
Адрес: Новосибирск
Сообщений: 2,157
Написано 502 полезных сообщений (для 1,012 пользователей)
|
Ответ: Вопрос по клавишам
;пихаем в цикл и проверяем,всё работает
string_$=Chr(GetKey())
If string_$>"!";чтоб отсеять символ нечитабельный
String__$=String__$+string_$
EndIf
Text x,y, String__$;чтоб видно было
это 100 процентов работает.....
|
(Offline)
|
|
09.06.2011, 02:03
|
#21
|
Мастер
Регистрация: 24.06.2009
Адрес: Набережные Челны
Сообщений: 930
Написано 292 полезных сообщений (для 504 пользователей)
|
Ответ: Вопрос по клавишам
Сообщение от Костян
;пихаем в цикл и проверяем,всё работает
string_$=Chr(GetKey())
If string_$>"!";чтоб отсеять символ нечитабельный
String__$=String__$+string_$
EndIf
Text x,y, String__$;чтоб видно было
это 100 процентов работает.....
|
Но не подходит для этого случая, так как выдаёт "имя" кнопки.
Требуемый код будет рабочим, если при нажатии на Esc даст символ 1, так как KeyHit(1) - нажатие на Esc
|
(Offline)
|
|
09.06.2011, 13:11
|
#22
|
Элита
Регистрация: 16.01.2010
Адрес: Новосибирск
Сообщений: 2,157
Написано 502 полезных сообщений (для 1,012 пользователей)
|
Ответ: Вопрос по клавишам
Требуемый код будет рабочим, если при нажатии на Esc даст символ 1, так как KeyHit(1) - нажатие на Esc
|
str(Getkey)--инит в текст переведёт...
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 12:07.
|