Коды клавиш Опции

[18192123]

А какие коды соответствуют клавишам
<--- , --->?

[klem4]

Case ReadKey Of
  #0: Begin
    Case ReadKey Of
      #72: { Вверх }
      #80: { Вниз }
      #75: { Влево }
      #77: { Вправо }
    End;
  End;  

[Sto]

Данная прога возращает значения нажатых клавиш в ASCII

Uses Crt;
 Var ch :Char;
     kod :Integer;
 Begin
  ClrScr;
  WriteLn('ASCII');
  kod := 0;
  While(kod <> 27) Do
   Begin
    ch := ReadKey;
    kod := Ord(ch);
    WriteLn(ch,' = ',kod);
   End;
 End.

Программа работает до нажатия Esc

[klem4]

и какойже результат твоя программа выдает при нажатии например тех-же стрелочек ?

[Altair]

Sto, при считывании кода клавиши, проверь, что он не ноль, иначе - считай еще раз и учти что получил расширенный код клавиши.

[Sto]

Вверх 72
Вниз 80
Влево 75
Вправо 77
С помощью проги можно также унанать код сочитания клавиш таких как Alt+клавиша или Ctrl+клавиша

На разных комп. может быть разная таблица ASCII

[Sto]

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

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

[Lapp]

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

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

[Sto]

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

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

Сообщение отредактировано: Sto - 28.04.2007 22:48

[volvo]

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

Поиск - полезная штука, правда?

Курсор

[Lapp]

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

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

[Sto]

Извиняюсь за неправильные программы.
В будущем буду повнимательней.
Исправил код второй проги.
Вот исправленая первая.

Uses Crt;
Var ch :Char;
Begin
	ClrScr;
	WriteLn('ASCII');
	While(ch <> #27) Do
	Begin
		ch := ReadKey;
		If ch = #0 then
		Begin
			ch := ReadKey;
		End
		Else
		Begin
			Write('Char = ');
			If ch < #32 Then Write('^',Chr(Ord(ch)+64),' ')
			Else Write(ch,' ');
		End;
		WriteLn('ASCII = ',Ord(ch));
	End;

End.

Сообщение отредактировано: Sto - 29.04.2007 14:10

[Lapp]

Это лучше!
На мой взгляд, ты зря не выводишь "0". Дело в том, что стрелки, F-клавиши и т.д имеют двойные коды. И мне кажется, не нужно скрывать это при выводе значений, иначе легко ошибиться.
Второе - лучше используй repeat, тогда не нужно будет инициализировать ch (что ты, кстати, забыл сделать в последнем варианте - не нужно полагаться на автоматическое обнуление).
И третье - зачем ты один оператор окружаешь скобками?.. нет смысла в этом.
Исправишь?

[-ALEX-]

Код: 32 Символ: (пробел)
Код: 33 Символ: !
Код: 34 Символ: "
Код: 35 Символ: #
Код: 36 Символ: $
Код: 37 Символ: %
Код: 38 Символ: &
Код: 39 Символ: '
Код: 40 Символ: (
Код: 41 Символ: )
Код: 42 Символ: *
Код: 43 Символ: +
Код: 44 Символ: ,
Код: 45 Символ: -
Код: 46 Символ: .
Код: 47 Символ: /
Код: 48 Символ: 0
Код: 49 Символ: 1
Код: 50 Символ: 2
Код: 51 Символ: 3
Код: 52 Символ: 4
Код: 53 Символ: 5
Код: 54 Символ: 6
Код: 55 Символ: 7
Код: 56 Символ: 8
Код: 57 Символ: 9
Код: 58 Символ: :
Код: 59 Символ: ;
Код: 60 Символ: <
Код: 61 Символ: =
Код: 62 Символ: >
Код: 63 Символ: ?
Код: 64 Символ: @
Код: 65 Символ: A
Код: 66 Символ: B
Код: 67 Символ: C
Код: 68 Символ: D
Код: 69 Символ: E
Код: 70 Символ: F
Код: 71 Символ: G
Код: 72 Символ: H
Код: 73 Символ: I
Код: 74 Символ: J
Код: 75 Символ: K
Код: 76 Символ: L
Код: 77 Символ: M
Код: 78 Символ: N
Код: 79 Символ: O
Код: 80 Символ: P
Код: 81 Символ: Q
Код: 82 Символ: R
Код: 83 Символ: S
Код: 84 Символ: T
Код: 85 Символ: U
Код: 86 Символ: V
Код: 87 Символ: W
Код: 88 Символ: X
Код: 89 Символ: Y
Код: 90 Символ: Z
Код: 91 Символ: [
Код: 92 Символ: \
Код: 93 Символ: ]
Код: 94 Символ: ^
Код: 95 Символ: _
Код: 96 Символ: `
Код: 97 Символ: a
Код: 98 Символ: b
Код: 99 Символ: c
Код: 100 Символ: d
Код: 101 Символ: e
Код: 102 Символ: f
Код: 103 Символ: g
Код: 104 Символ: h
Код: 105 Символ: i
Код: 106 Символ: j
Код: 107 Символ: k
Код: 108 Символ: l
Код: 109 Символ: m
Код: 110 Символ: n
Код: 111 Символ: o
Код: 112 Символ: p
Код: 113 Символ: q
Код: 114 Символ: r
Код: 115 Символ: s
Код: 116 Символ: t
Код: 117 Символ: u
Код: 118 Символ: v
Код: 119 Символ: w
Код: 120 Символ: x
Код: 121 Символ: y
Код: 122 Символ: z
Код: 123 Символ: {
Код: 124 Символ: |
Код: 125 Символ: }
Код: 126 Символ: ~
Код: 127 Символ: 
Код: 128 Символ: Ђ
Код: 129 Символ: Ѓ
Код: 130 Символ: ‚
Код: 131 Символ: ѓ
Код: 132 Символ: „
Код: 133 Символ: …
Код: 134 Символ: †
Код: 135 Символ: ‡
Код: 136 Символ: Ђ
Код: 137 Символ: ‰
Код: 138 Символ: Љ
Код: 139 Символ: ‹
Код: 140 Символ: Њ
Код: 141 Символ: Ќ
Код: 142 Символ: Ћ
Код: 143 Символ: Џ
Код: 144 Символ: ђ
Код: 145 Символ: ‘
Код: 146 Символ: ’
Код: 147 Символ: “
Код: 148 Символ: ”
Код: 149 Символ: •
Код: 150 Символ: –
Код: 151 Символ: —
Код: 152 Символ:
Код: 153 Символ: ™
Код: 154 Символ: љ
Код: 155 Символ: ›
Код: 156 Символ: њ
Код: 157 Символ: ќ
Код: 158 Символ: ћ
Код: 159 Символ: џ
Код: 160 Символ:
Код: 161 Символ: Ў
Код: 162 Символ: ў
Код: 163 Символ: Ј
Код: 164 Символ: ¤
Код: 165 Символ: Ґ
Код: 166 Символ: ¦
Код: 167 Символ: §
Код: 168 Символ: Ё
Код: 169 Символ: ©
Код: 170 Символ: Є
Код: 171 Символ: «
Код: 172 Символ: ¬
Код: 173 Символ: ­
Код: 174 Символ: ®
Код: 175 Символ: Ї
Код: 176 Символ: °
Код: 177 Символ: ±
Код: 178 Символ: І
Код: 179 Символ: і
Код: 180 Символ: ґ
Код: 181 Символ: µ
Код: 182 Символ: ¶
Код: 183 Символ: ·
Код: 184 Символ: ё
Код: 185 Символ: №
Код: 186 Символ: є
Код: 187 Символ: »
Код: 188 Символ: ј
Код: 189 Символ: Ѕ
Код: 190 Символ: ѕ
Код: 191 Символ: ї
Код: 192 Символ: А
Код: 193 Символ: Б
Код: 194 Символ: В
Код: 195 Символ: Г
Код: 196 Символ: Д
Код: 197 Символ: Е
Код: 198 Символ: Ж
Код: 199 Символ: З
Код: 200 Символ: И
Код: 201 Символ: Й
Код: 202 Символ: К
Код: 203 Символ: Л
Код: 204 Символ: М
Код: 205 Символ: Н
Код: 206 Символ: О
Код: 207 Символ: П
Код: 208 Символ: Р
Код: 209 Символ: С
Код: 210 Символ: Т
Код: 211 Символ: У
Код: 212 Символ: Ф
Код: 213 Символ: Х
Код: 214 Символ: Ц
Код: 215 Символ: Ч
Код: 216 Символ: Ш
Код: 217 Символ: Щ
Код: 218 Символ: Ъ
Код: 219 Символ: Ы
Код: 220 Символ: Ь
Код: 221 Символ: Э
Код: 222 Символ: Ю
Код: 223 Символ: Я
Код: 224 Символ: а
Код: 225 Символ: б
Код: 226 Символ: в
Код: 227 Символ: г
Код: 228 Символ: д
Код: 229 Символ: е
Код: 230 Символ: ж
Код: 231 Символ: з
Код: 232 Символ: и
Код: 233 Символ: й
Код: 234 Символ: к
Код: 235 Символ: л
Код: 236 Символ: м
Код: 237 Символ: н
Код: 238 Символ: о
Код: 239 Символ: п
Код: 240 Символ: р
Код: 241 Символ: с
Код: 242 Символ: т
Код: 243 Символ: у
Код: 244 Символ: ф
Код: 245 Символ: х
Код: 246 Символ: ц
Код: 247 Символ: ч
Код: 248 Символ: ш
Код: 249 Символ: щ
Код: 250 Символ: ъ
Код: 251 Символ: ы
Код: 252 Символ: ь
Код: 253 Символ: э
Код: 254 Символ: ю
Код: 255 Символ: я

[Seln]

Вот полезная функция получше ReadKey.
Содержит код клавиши в строке.
Пример:
клавиша вниз будет: '080',
клавиша P будет: '80'.


function getkey: string;
var
key: char;
s: string;
begin
key:=readkey;
if key<>#0 then begin str(ord(key),s); getkey:=s; end
else begin str(ord(readkey),s); getkey:='0'+s; end
end;

[volvo]

Seln
Особенно это полезно будет, когда вместо Case тебе придется городить огород с парой десятков If ... Else. Удобный велосипед, правда?

Сообщение отредактировано: volvo - 20.05.2007 16:30

[Seln]

Особенно это полезно будет, когда вместо Case тебе придется городить огород с парой десятков If ... Else. Удобный велосипед, правда?

Хе-хе ага
А, кстати, нафиг там else нужен?
Допустим:
...
...
repeat
key:=getkey;
if key='27' then exit;
if key='080' then p:=p+1;
if key='072' then p:=p-1;
until false
...
...

Ну и нафиг?
Так даже прикольней.


Сообщение отредактировано: Seln - 20.05.2007 16:44