VPF::Лампочка - Форум программистов

Metalex

Дата 18.8.2009, 16:24 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет

Смоделировать на экране лампочку, включающуюся и выключающуюся нажатием клавиши.
Как быть с нажатием? Там же коды для каждой кнопки какие-то...

--------------------

Don't let the system get you down.

Keeper89

Дата 18.8.2009, 17:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: нет
Всего: 58

Metalex, что значит лампочку? Нарисовать? Или просто переключать значение булевой переменной? smile

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Metalex

Дата 18.8.2009, 17:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет

Эм... Будет нарисована лампочка. При нажатии на какую-то кнопку вокруг нее дорисовывается "свет". При отпускании кнопки - снова черный фон. Как быть с нажатием? Нарисовать-то я нарисую.

--------------------

Don't let the system get you down.

Keeper89

Дата 18.8.2009, 17:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: нет
Всего: 58

Пусть процедура рисования лампочки называется:

Код


procedure DrawLamp(state: Boolean); // True-включена

Тогда основной код будет выглядеть так (вкл./выкл. лампочки клавишей h):

Код


program Lamp;

uses Crt;

procedure DrawLamp(state: Boolean);
begin
     if state = true then write('True') else write('False');
end;

var
   lampState: Boolean;
   key: Char;

begin
     lampState := False;
     repeat
           clrscr;
           DrawLamp(lampState);
           key := readKey;
           if key = 'h' then lampState := Not(lampState);
     until key = #27;
end.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

volvo877

Дата 18.8.2009, 18:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

clrscr здесь не помощник. Графика все же, ClearDevice скорее. Хотя... Смотря, как будет рисоваться свет. Вполне возможно, что будет проще перейти в SetWriteMode(XORput), и просто вызывать отрисовку "света" по нажатию нужной кнопки. Тогда нечетное нажатие будет включать "свет", а четное - выключать его.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »