Вопрос по клавишам

[Reks888]

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

While True
If KeyHit(79) Then End
Wend

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

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

; 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 это не то.

[RegIon]

; 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]

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

[RegIon]

;пихаем в цикл и проверяем,всё работает
string_$=Chr(GetKey()) 
If string_$>"!";чтоб отсеять символ нечитабельный 
String__$=String__$+string_$
 EndIf 
Text x,y, String__$;чтоб видно было

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

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

Сообщение от Костян

;пихаем в цикл и проверяем,всё работает
string_$=Chr(GetKey()) 
If string_$>"!";чтоб отсеять символ нечитабельный 
String__$=String__$+string_$
 EndIf 
Text x,y, String__$;чтоб видно было

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

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

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

[RegIon]

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

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