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

19. Запрограммируйте кнопку «Выход».

Воспользуйтесь процедурой закрытия окна программы Close:

procedure TForml.Button2Click(Sender: TObject); begin

Close {Закрываем окно программы]

end;

20. Запрограммируйте кнопку «Вычислить».

Данное в поле редактирования - это значение свойства Text типа string. Для преобразования этого данного в числовой дейст­вительный тип (real) воспользуйтесь процедурой Val, а наоборот — процедурой Str. Опишите соответствующие основные (kurs, suma) и дополнительные (cod, ed) переменные в разделе var.

procedure Tforml.ButtonlClick(Sender: TObject); var kursl, kurs2, summa : real; cod : integer; ed : string[9];

begin

{Получаем значения курса покупки)

Val (Editl.Text, kursl, cod);

{Получаем значения курса продажи)

Val (Edit2.Text, kurs2, cod);

{Получаем числовое значение суммы в USD)

Val (Edit3.Text, summa, cod);

if RadioButton2.Checked = True then

summa: = summa * kurs2

else

summa := summa * kursl;

Str(summa:9:2, ed);

Edit4.Text := ed; {Полученное число суммы в гривнах преобразовываем в текстовый формат и результат присваиваем свойст­ву Text поля вывода Edit4)

end;

21. Сохраните работу (Save All).

22. Выполните программу и поупражняйтесь с разными денеж­ными суммами и операциями купли - продажи. Закройте окно программы «Обмен валюты».

Для прерывания работы программы в случае неправильного

ввода входных данных выполните пункт главного меню Run => Program Reset.

23. Измените размеры и цвета символов (в частности объектов Label3 и Edit3), расположение объектов, фон формы (свой­ство Color) так, чтобы форма выглядела как можно лучше.

24. Обеспечьте появление подсказки «Введите сумму в долла­рах» после перемещения указателя мыши к полю Edit3.

Выберите объект Edit3 и установите значение True для свойства ShowHint, а в поле значения свойства Hint введите текст подсказки. Сохраните работу, запустите программу и убедитесь, что подсказка появляется.

25. Поменяйте вид стрелки с => на а <= на

Для этого выберите объект Label3 и в поле значения свойства Caption введите русскую букву р, после чего, активизировав свой­ство Font, выберите название шрифта Wingdings. Дважды щелк­ните на правом переключателе и в его процедуре введите русскую букву р вместо =>. В процедуре для левого переключателя симво­лы <= замените буквой п. Сохраните работу, запустите программу и убедитесь, что стрелка изменила свой вид.

26. Создайте ехе-файл Вашей программы.

Выполните пункт главного меню Project => Build All.

27. Закройте среду Delphi, запустите созданную программу и выполните вычисления для разных входных данных.

Запустите ехе-файл с именем проекта и пиктограммой ^ из своей папки.

28. Продемонстрируйте созданную форму преподавателю. За- кончите работу.

Замечание. Обратите внимание на использование запятой или точки во входных данных. В числах, которые указывают кур­сы валют, сумму гривней или долларов, для десятичной точки используйте символ, предусмотренный операционной системой вашего компьютера (см. Start (Пуск) => Settings (Настройка)

=> Control Panel (Панель управления) => Regional Settings

(Язык и стандарты) => закладка Number (Числа), строка

Decimal symbol (Разделитель целой и дробной частей числа)).

Задача 2.1. Вставьте в созданную форму ещё одну кнопку для очистки полей денежных сумм. Выполните программу и убеди­тесь в правильности ее работы.

Подсказка. Для объектов Edit3, Edit4 в процедуре обработки события нажатия на кнопку очистки используйте команду при­сваивания их свойствам Text пустой строки (‘’’)/

Задача 2.2. Обеспечьте появление подсказки «Введите курс купли» и «Введите курс продажи» после перемещения указателя мыши к полям Editl и Edit2 соответственно (см. п. 24).

Задача 2.3. В процедуре для кнопки «Вычислить» предусмот­рите 1% сбора в пенсионный фонд от операции продажи.

Задача 2.4. Модифицируйте программу, введя дополнитель­ную возможность: после щелчка мышью на стрелке изменяется тип операции (купля, продажа). Запишите в отчет фрагмент про­граммного кода, реализующий эту возможность. Выполните про­грамму.

Подсказка. Для этого дважды щелкните на текстовом поле стрелки. Откроется окно программного кода с заготовкой проце- дуры Label3Click (описание действий в случае щелканья на объек- те Label3). В теле этой процедуры можно воспользоваться коман- дами вида:

if RadioButtonl.Checked=True then begin

• • • {Меняем направление стрелки на => для

Label3.CapUon)

• • • {Устанавливаем переключатель в правое положение,

меняя значение свойств Checked объектов

• • • RadioButlonl и RadioButton2)

end

else

begin

• • • {Устанавливаем направление стрелки <=}

• • • {Устанавливаем переключатель в левое положение,

меняя значения свойств Checked объектов

end;

Задача 2.5. Упростите форму (удалите лишние объекты) и из­мените код кнопки «Вычислить» так, чтобы ее можно было ис­пользовать для перевода миль в километры или наоборот в зави­симости от положения переключателя _к(1 миля = 1,609344 километров).

Задача 2.6. В созданную для задачи 2.5. форму вставьте объект группу переключателей (RadioGroup) для выбора типа мили из двух возможных значений: морской или обычной (1 морская ми­ля = 1,852 километров).

Подсказка. Чтобы ввести подписи к переключателям исполь­зуйте свойство Items группы переключателей RadioGroup, а для контроля выбора определенного переключателя воспользуйтесь свойством Itemlndex (равняется -1, если ни один не выбран, 0 -если выбран первый переключатель группы, 1 - если второй и т.д.)