Цель работы - создать программу, выполняющую следующие действия:
- После запуска программы в окне изображается рисунок, выбранный первым переключателем из раскрывающегося списка.
- Выбираем необходимый переключатель, рисунок из соответствующего раскрывающегося списка.
- Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.
 |
Описание плана разработки программы
1. Открыть новый проект.
2. Разместить на форме экземпляры компонентов: рамка GroupBox, переключатель RadioBatton, раскрывающийся список ComboBox.
3. Выполнить следующие действия:
| Выделенный объект | Вкладка окна Object Inspector | Имя свойства/ имя события | Действие |
| Form1 | Properties | Caption | Установка имени формы «Интерактивный электронный альбом» |
| Events | OnCreate | RadioButton1Click(RadioButton1); | |
| GroupBox1 (Вкладка Standard) | Properties | Caption | Введите название «Части света» |
| RadioBatton1 (Вкладка Standard) | Properties | Caption | Введите название «Европа» |
| Checked (Включен) | Задайте значение True | ||
| Tag | Присвоить значение 0 | ||
| Events | Onclick | В процедуре описать локальную переменную i. Описать действия переключателей, используя цикл с параметром i от 0 до 5. | |
| Для создания еще пяти переключателей можно использовать метод копирования через буфер обмена. Пока объект RadioBatton1 остается выделенным, нажмите комбинацию клавиш CTRL+C. Произойдет его копирование в буфер обмена. Теперь нажмите комбинацию CTRL+V – это команда вставки объекта из буфера обмена и Delphi автоматически изменит имя объекта – новый объект получит имя RadioBatton2. | |||
| RadioBatton2 | Properties | Caption | Введите название «Азия» |
| Tag | Присвоить значение 5 | ||
| RadioBatton3 | Properties | Caption | Введите название «Африка» |
| Tag | Присвоить значение 10 | ||
| RadioBatton4 | Properties | Caption | Введите название «Северная Америка» |
| Tag | Присвоить значение 15 | ||
| RadioBatton5 | Properties | Caption | Введите название «Южная Америка» |
| Tag | Присвоить значение 20 | ||
| RadioBatton6 | Properties | Caption | Введите название «Австралия» |
| Tag | Присвоить значение 25 | ||
| Выделите все шесть переключателей. Дайте команду Edit ® Align (Правка ® Выравнивание). Откроется окно Alignment (выравнивание). Установить слева переключатель Left Sides (Левые края), а справа Space Equally (Равные промежутки). Щелкните на кнопке OK. | |||
| GroupBox2 (Вкладка Standard) | Properties | Caption | Введите название «Города» |
| ComboBox1 (Вкладка Standard) | Properties | Style | Выбрать значение csDropDownList (Раскрывающийся список) |
| Events | OnChange | Image1.Picture.LoadFromFile (ListBox2.Items [ComBox1.Tag + ComboBox1.ItemIndex]); | |
| Image1 (Вкладка Additional) | Поместить объект на рамку | ||
| ListBox1 (Вкладка Standard) | Properties | Visible | Задайте значение False |
| Items (Пункты) | Щелкнуть на кнопке построителя. Введите в список тридцать названий городов - по пять для каждой части света. | ||
| ListBox2 (Вкладка Standard) | Properties | Visible | Задайте значение False |
| Items | Щелкнуть на кнопке построителя. Введите в список тридцать имен файлов, содержащих иллюстрации. |
4. Сохраните проект, запустите и протестируйте его.
Листинг подпрограммы
Задача 3
Создайте приложение, обеспечивающее ввод двух целых чисел и выполнение над ними арифметических операций сложения, умножения и вещественного деления. Для выбора операций используйте переключатели, вывод сообщения об ошибке при вводе делителя, равного нулю, выполните в отдельном окне сообщений.
Решение:
1. Сохраните проект в отдельной папке «Калькулятор». Проект назовите Calculator, а файл модуля – mainCalc.pas.
2. Задайте для свойства Form1.Caption значение «Калькулятор». Разместите на форме компоненты Edit1,2,3 и Label1,2,3. Задайте свойства Caption для компонентов Label – «операнд1», «операнд2», «Результат». Удалите текст Edit1,2,3 в соответствующих компонентах (используйте свойство Text). Разместите на форме компонент Button1. Кнопку назовите «Вычислить».
3. Разместите на форме компонент RadioGroup1 из палитры Standard. Задайте для свойства Caption значение «Операция». Затем выберите свойство Items (это свойство задает количество переключателей в группе и надписи около них). В окне String List Editor введите список элементов – символов арифметических операций в столбик: +, -, *, /. Щелкните мышкой по кнопке ОК, завершите формирование списка арифметических операций.
4. В окне Инспектора объектов задайте для свойства RadioGroup.ItemIndex значение 0, чтобы сделать первую кнопку (сложение) выбранной по умолчанию. Задайте размер символов этого компонента, установив значение 14 пунктов.
Примечание: определить во время выполнения, какая кнопка выбрана в данный момент, можно по индексу ItemIndex (0 означает первую кнопку, -1 – ни одна кнопка не выбрана).
Форма будет иметь следующий вид:
5. Создайте код обработки события щелчка на кнопке с надписью «Вычислить». Для решения задачи вычисления арифметических операций введите в текст процедуры TForm1.Button1Click следующее описание:
Var a, b: integer; c: real;
Так как в процедуре обработки нажатия кнопки должно быть 4 варианта реализации, по одному для каждой арифметической операции, то следует записать выбор вычисления с помощью оператора Case.
В основном теле процедуры обработки события введите текст остальных операторов следующим образом:
Begin
A:=StrToInt(Edit1.Text);
B:=StrToInt(Edit2.Text);
Edit3.Text:=’ ‘; {очистить от результата предыдущих вычислений}