Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.96/55: Рейтинг темы: голосов - 55, средняя оценка - 4.96
0 / 0 / 0
Регистрация: 22.09.2010
Сообщений: 7
1

KeyPressed

30.09.2010, 23:00. Просмотров 10383. Ответов 5
Метки нет (Все метки)

Помогите... У меня в программе KeyPressed встречается несколько раз... Первый раз все работает, а последующие нет, потому что как бы данные вводились и программа думает что кнопки уже нажимались. Мне надо как то обновить содержимое KeyPressed, что бы оно каждый раз в программе думало что кнопки еще не нажимались...
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.09.2010, 23:00
Ответы с готовыми решениями:

Почему не вводится keypressed. где ошибка?
Хочу сделать секундомер с небольшой графикой в консоли, но не пашет ввод или чёт другое program...

Не работает readkey и keypressed
Здравствуйте. Написал программу, используя PascalABC, столкнулся с необходимостью скомпилировать ее...

Программа, в которой использовался оператор keypressed останавливается на половине пути
Я делаю что то типа (только не смейтесь) wormsa и пока получился вот такая штука: uses crt,graph;...

Keypressed и Кэш
Добрый вечер друзья программисты! Столкнулся с проблеммой : repeat if keypressed then...

5
41 / 41 / 20
Регистрация: 10.02.2010
Сообщений: 179
30.09.2010, 23:02 2
Выложи код программы...
0
0 / 0 / 0
Регистрация: 22.09.2010
Сообщений: 7
30.09.2010, 23:13  [ТС] 3
Ой, она большая... щас попробу кинуть часть кода...

вот в этой части все работает на отлично
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
start:
           randomize;
           i:=random(600)+240;
           repeat
                 dec(i);
                 delay(1000);
                 if(i=0) then
                 begin
                      goto timeout;
                 end;
           until KeyPressed;
           begin
                readln(slov);
                goto good;
           end;
           timeout:
                   begin
                   textcolor(0);
                   time:=CurrentDateTime;
                   writeln;
                   writeln(,time.year,'.',time.month,'.',time.day,' ',time.hour,':',time.minute,':',time.second,', Бот');
                   writeln('Ау, ты там?');
                   start1:
                          kr:=5;
                          repeat
                                dec(kr);
                                randomize;
                                i:=random(600)+240;
                                repeat
                                      dec(i);
                                      delay(1000);
                                      if(i=0) then
                                      begin
                                           goto timeout1;
                                      end;
                                until KeyPressed;
                                textcolor(15);
                                begin
                                     readln(slov);
                                     goto good;
                                end;
                                timeout1:
                                         begin
                                              textcolor(0);
                                              reset(ay);
                                              for i:=1 to k[4] do
                                              begin
                                                   read(ay,slov2[i]);
                                                   readln(ay);
                                              end;
                                              randomize;
                                              j:=random(k[4])+1;
                                              time:=CurrentDateTime;
                                              writeln;
                                              writeln(,time.year,'.',time.month,'.',time.day,' ',time.hour,':',time.minute,':',time.second,', Бот');
                                              writeln(slov2[j]);
                                         end;
                               if(kr=0) then
                               begin
                                    ob:=true;
                                    goto finish;
                               end;
                          until kr=0;
                   end;
Но потом у меня в конце программы такая же часть стоит, и там KeyPressed срабатывает как уже нажатая клавиша, потому что до него в программу вводится куча всего...
0
41 / 41 / 20
Регистрация: 10.02.2010
Сообщений: 179
30.09.2010, 23:31 4
Попробуй использовать там где проскакивает:
Pascal
1
2
3
           repeat
              ............
           until KeyPressed and (ReadKey = #13);
#13 - это Enter или используй другую клавишу
0
0 / 0 / 0
Регистрация: 22.09.2010
Сообщений: 7
01.10.2010, 00:27  [ТС] 5
Спасибо, я кое что еще изменил, теперь работает так как мне надо
0
Модератор
60253 / 45367 / 31307
Регистрация: 18.05.2008
Сообщений: 108,994
01.10.2010, 08:43 6
Pascal
1
2
3
4
5
6
7
if keypressed then
 begin
  c:=readkey;
  case c of
  ............
  end;
until c=#27;//Esc
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.10.2010, 08:43

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Не работает keypressed
может можно както заменить?

Не работает keypressed.
Написал программу которая крутит треугольник вокруг своей оси при нажатии enter. Но при прогоне...

KeyPressed и ReadKey неработают
program octaedr; uses Crt,Graph; // используем графический режим const r=100; var ...

Отсутствует ожидание нажатия клавиши в keypressed
Добрый вечер, форумчане. Проблема такая, что при запуске программы пропускается вот этот блок if...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.