IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

> Коды клавиш
18192123
сообщение 27.04.2007 19:59
Сообщение #1


Профи
****

Группа: Пользователи
Сообщений: 920
Пол: Женский
Реальное имя: Марина

Репутация: -  2  +


А какие коды соответствуют клавишам
<--- , --->?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Sto
сообщение 28.04.2007 20:04
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 70
Пол: Мужской
Реальное имя: Илья

Репутация: -  2  +


Вот пример программы на использование управляющих клавиш.
Uses Crt;
Const Up = #72;
Down = #80;
Left = #75;
Right = #77;
Esc = #27;
Var x, y :Integer;
ch :Char;
Begin
ClrScr;
x:=5;
y:=5;
While(ch <> Esc) Do
Begin
ClrScr;
GotoXY(x,y);
Write('0');
ch := ReadKey;
If ch = #0 Then
Begin
ch := ReadKey;
Case ch of
Up : y:=y-1;
Down : y:=y+1;
Left : x:=x-1;
Right : x:=x+1;
End;
End;
End;
End.

Как убрать мигающий курсор незнаю.
Кто знает подскажите.

Сообщение отредактировано: Sto - 29.04.2007 14:08
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Lapp
сообщение 28.04.2007 22:33
Сообщение #3


Уникум
*******

Группа: Модераторы
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(Sto @ 28.04.2007 20:04) *

Вот пример программы на использование управляющих клавиш.
Кто знает подскажите.

Sto, ты читать не умеешь - только писатель? Читай ответы Klem4 и Altair'a - может, осознаешь свои ошибки.. А также понажимай в своей программе латинские буквы: H K M P.


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Sto
сообщение 28.04.2007 22:47
Сообщение #4


Пионер
**

Группа: Пользователи
Сообщений: 70
Пол: Мужской
Реальное имя: Илья

Репутация: -  2  +


И что это за цытата????

Читать я умею, ошибки нигде невижу!!!!!
Про клавиши H K M P знаю, если знаеш как сделать лутше почему не написал???????????????

Сообщение отредактировано: Sto - 28.04.2007 22:48
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Lapp
сообщение 28.04.2007 23:27
Сообщение #5


Уникум
*******

Группа: Модераторы
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(Sto @ 28.04.2007 23:47) *

если знаеш как сделать лутше почему не написал???????????????

Потому что уже написано.. См. сообщение #2.


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
18192123   Коды клавиш   27.04.2007 19:59
klem4   Case ReadKey Of #0: Begin Case ReadKey Of ...   27.04.2007 20:06
Sto   Данная прога возращает значения нажатых клавиш в A...   28.04.2007 0:52
klem4   и какойже результат твоя программа выдает при нажа...   28.04.2007 8:09
Altair   Sto, при считывании кода клавиши, проверь, что он ...   28.04.2007 12:13
Sto   Вверх 72 Вниз 80 Влево 75 Вправо 77 С помощью прог...   28.04.2007 15:55
Sto   Вот пример программы на использование управляющих ...   28.04.2007 20:04
Lapp   Вот пример программы на использование управляющих...   28.04.2007 22:33
Sto   И что это за цытата???? Читать я умею, ошибки ниг...   28.04.2007 22:47
Lapp   если знаеш как сделать лутше почему не написал???...   28.04.2007 23:27
volvo   Поиск - полезная штука, правда? Курсор   28.04.2007 23:20
Sto   Извиняюсь за неправильные программы. :unsure: В б...   29.04.2007 14:06
Lapp   Это лучше! :) На мой взгляд, ты зря не выводиш...   30.04.2007 3:02
-ALEX-   Код: 32 Символ: (пробел) Код: 33 Символ: ! Код...   14.05.2007 9:32
Seln   Вот полезная функция получше ReadKey. Содержит код...   20.05.2007 15:53
volvo   Seln Особенно это полезно будет, когда вместо Case...   20.05.2007 16:29
Seln   Особенно это полезно будет, когда вместо Case теб...   20.05.2007 16:33


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 22.06.2025 16:06
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"