Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на языке Pascal


Информационный Канал Subscribe.Ru


RusFAQ.ru: Программирование на языке Pascal

Выпуск № 269
от 03.04.2004, 13:20

Администратор:
Имя: Sensey
URL: Информационный ресурс
ICQ: 105679124
Украина, Харьков
О рассылке:
Задано вопросов: 455
Отправлено ответов: 1683
Активность: 369.8 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе][Обсудить на форуме]


 Список экспертов, ответы которых опубликованы в данном выпуске

Boriss
Статус: Профессиональный
Общий рейтинг: 156.95
URL: Программирование на Паскале
[Подробней >>]
Grand
Статус: Профессиональный
Общий рейтинг: 141.35
[Подробней >>]
Snowm@n
Статус: Доверительный
Общий рейтинг: 112.91
[Подробней >>]
 
Pawel
Статус: Профессиональный
Общий рейтинг: 159.03
[Подробней >>]
sir henry
Статус: Профессиональный
Общий рейтинг: 159.63
[Подробней >>]
VOVAN
Статус: Доверительный
Общий рейтинг: 104.28
[Подробней >>]


 Краткий перечень вопросов

Вопрос № 454. Уважаемые эксперты! Допустим есть код (см приложение) в котором циклически опрашивается состояние кл... (ответов: 6)

Вопросов: 1, ответов: 6


 Вопрос № 454

Уважаемые эксперты! Допустим есть код (см приложение) в котором циклически опрашивается состояние клавиатуры. Сначала, вроде, всё нормально, но в скором времени программа зависает. Может кто-нибудь встречался с подобным?


Приложение:


Вопрос отправлен: 31.03.2004, 05:59
Отправитель: =FeanaR=

[Следующий вопрос >>] [Список вопросов]

Отвечает Boriss

Доброе время суток, =FeanaR=!
Не видно причин для зависания. Может окно теряет фокус, хотя и это не может причиной. Наверно, надо поискать причину в другом месте
Я обычно использую такой код:

Приложение:

Ответ отправлен: 31.03.2004, 18:56
Отправитель: Boriss


Отвечает Grand

Добрый день, =FeanaR=!
Работаетю Может быть дело в другом?

Ответ отправлен: 01.04.2004, 22:21
Отправитель: Grand


Отвечает Snowm@n

Приветствую Вас, =FeanaR=!
для Extended клавиш надо опрашивать клавиатуру 2 раза.
uses crt;
var ch : char;
begin
repeat
if keypressed then begin
ch:=readkey;
{...}
if ch=0 then begin
ch:=readkey;
{...}
end;
end;
until ch=#27;
end.

Ответ отправлен: 31.03.2004, 08:18
Отправитель: Snowm@n


Отвечает Pawel

Приветствую Вас, =FeanaR=!
Я ТЕСТИРОВАЛ ТАКУЮ ПРОГУ:
uses crt;
var ch : char;
begin
repeat
if keypressed then
begin
ch:=readkey;
write(ch);
end;
until ch=#27;
end.
и ни каких зависаний не было.

Ответ отправлен: 31.03.2004, 10:34
Отправитель: Pawel


Отвечает sir henry

Здравствуйте, =FeanaR=!
Лучше сделать немножко по другому. В цикле Repeat ... Until будут проходить главные события, например, обработка каких либо данных, либо действие в зависимости от нажатой клавиши. А вот опрос клавиатуры сделать отдельной функцией, которая возвращает тот или иной результат в зависимости от нажатой клавиши. См. приложение.

Приложение:

Ответ отправлен: 31.03.2004, 16:15
Отправитель: sir henry


Отвечает VOVAN

Приветствую Вас, =FeanaR=!
у меня ничего не виснет, хотя "в скором времени" - понятие растяжимое.

Ответ отправлен: 31.03.2004, 16:49
Отправитель: VOVAN



Форма отправки вопроса

Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

(C) 2002-2003 Команда RusFAQ.ru.

 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке


 Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов:


 Выбор рассылки

Программисту
Assembler (25)
C / C++ (14)
Perl (1)
Builder / Delphi (17)
Pascal (19)
Basic / VBA (3)
Java / JavaScript (4)
PHP (8)
Криптография (6)
WinAPI (12)
Радиоэлектроника (8)
Пользователю
Windows 95/98/Me (38)
Windows NT/2000/XP (51)
"Железо" (27)
Поиск информации (18)
Администратору
Windows NT/2000/XP (25)
Linux / Unix (9)
Юристу
Гражданское право (11)
Семейное право (10)
Трудовое право (10)
КоАП (7)

Отправить вопрос всем экспертам выбранной рассылки.




Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.


Яндекс цитирования
© 2001-2004 Россия, Москва. Авторское право: Калашников О.А.

http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу


В избранное