forum.boolean.name - Вопрос по клавишам

Страница 2 из 2

Показывать 64 сообщений этой темы на одной странице

forum.boolean.name (http://forum.boolean.name/index.php)

- 2D-программирование (http://forum.boolean.name/forumdisplay.php?f=13)

- - Вопрос по клавишам (http://forum.boolean.name/showthread.php?t=14745)

Reks888

06.06.2011 18:52

Ответ: Вопрос по клавишам

Отлавливать Asc'ом код, ессно. Идея у тебя верная, наверное что-то не так в реализации.

Цитата:

While True
If KeyHit(79) Then End
Wend

У меня при нажатии единицы на нумпаде выходит

LLI.T.A.L.K.E.R.

06.06.2011 18:58

Ответ: Вопрос по клавишам

ASCII это не то.

RegIon

07.06.2011 06:59

Ответ: Вопрос по клавишам

Цитата:

; 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 лично у меня так только работала

Petrofan

07.06.2011 11:47

Ответ: Вопрос по клавишам

У меня вообще ни в одном из примеров не работает. может кто знает какой нить Инпут код для реализации отлавливания клавиш и запись их в переменную?

RegIon

07.06.2011 12:15

Ответ: Вопрос по клавишам

Код:

;пихаем в цикл и проверяем,всё работает

string_$=Chr(GetKey()) 

If string_$>"!";чтоб отсеять символ нечитабельный 

String__$=String__$+string_$

 EndIf 

Text x,y, String__$;чтоб видно было

это 100 процентов работает.....

LLI.T.A.L.K.E.R.

09.06.2011 02:03

Ответ: Вопрос по клавишам

Цитата:

Сообщение от Костян (Сообщение 190532)

Код:

;пихаем в цикл и проверяем,всё работает

string_$=Chr(GetKey()) 

If string_$>"!";чтоб отсеять символ нечитабельный 

String__$=String__$+string_$

 EndIf 

Text x,y, String__$;чтоб видно было

это 100 процентов работает.....

Но не подходит для этого случая, так как выдаёт "имя" кнопки.

Требуемый код будет рабочим, если при нажатии на Esc даст символ 1, так как KeyHit(1) - нажатие на Esc

RegIon

09.06.2011 13:11

Ответ: Вопрос по клавишам

Цитата:

Требуемый код будет рабочим, если при нажатии на Esc даст символ 1, так как KeyHit(1) - нажатие на Esc

Код:

str(Getkey)--инит в текст переведёт...

Часовой пояс GMT +4, время: 09:37.

Страница 2 из 2

Показывать 64 сообщений этой темы на одной странице