Практическая работа № 19
«Головоломка № 2»
Цель работы -создать компьютерную версию головоломки: из изображенных пяти сброшенных флажков установить все. Но при выборе одного флажка меняется состояние двух следующих.
|
Создать программу, выполняющую следующие действия:
- После запуска программы в окне изображаются пять сброшенных флажков.
- Щелкать разрешено только на сброшенных флажках. Щелчок на установленном флажке не действует.
- При установке какого-то флажка меняется состояние двух следующих флажков. При этом сброшенные флажки устанавливаются, а установленные - сбрасываются.
- Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.
Описание плана разработки программы
1. Открыть новый проект.
2. Разместить на форме экземпляры компонентов: список флажков CheckBox, надпись Label.
3. Выполнить следующие действия:
Таблица 21. Свойства проекта 19
| Выделенный объект | Вкладка окна Object Inspector | Имя свойства/ имя события | Действие |
| Form1 | Properties | Caption | Установка имени формы «Все пять» |
| Events | OnCreate | Создать глобальную логическую переменную s. В то время, когда идет обработка события, переменная имеет значение True (да). | |
| CheckBox1 (Вкладка Standard) | Properties | Caption | Задать значение «1». |
| Events | OnClick | Необходимо работать с флажками, как с массивом. Форма является контейнером для флажков. У объектов-контейнеров имеется свойство Controls (Элементы управления) – массив элементов управления, находящихся в данном контейнере: Controls [i] as TCheckBox. | |
| Для создания еще пяти флажков можно использовать метод копирования через буфер обмена. | |||
| CheckBox2 | Properties | Caption | Задать значение «2». |
| CheckBox3 | Properties | Caption | Задать значение «3». |
| CheckBox4 | Properties | Caption | Задать значение «4». |
| CheckBox5 | Properties | Caption | Задать значение «5». |
| Продолжение таблицы 21 | |||
| Выделенный объект | Вкладка окна Object Inspector | Имя свойства/ имя события | Действие |
| Label1 (Вкладка Standard) | Properties | Caption | Введите текст: «Сумма: 0» |
| Autosize | Задайте значение False | ||
| Alignment | Задайте значение taCenter |
4. Сохраните проект, запустите и протестируйте его.
Дата добавления: 2014-12-02; просмотров: 1315;