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

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

procedure Tforml.ButtonlClick(Sender: TObject);

var kurs1, kurs2, summa : real; cod : integer; ed : string[9];

begin

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

Val (Edit1.Text, kurs1, cod);

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

Val (Edit2.Text, kurs2, cod);

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

Val (Edit3.Text, summa, cod);

if RadioButton2.Checked = True then summa:= summa * kurs2 else

summa := summa * kurs1;

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. Поменяйте вид стрелки с => на ð , a <= на ï .

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

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.Caption}

{Устанавливаем переключатель в правое положение,меняя значение свойств Checked объектов RadioButtonl и RadioButton2}

end else

begin

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

{Устанавливаем переключатель в левое положение,меняя значения свойств Checked объектов RadioButtonl и RadioButton2}

end;

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

На форму FORM1 добавить кнопку вызова второй формы, запрограммировать вызов командой Form2.show; Оформите отчет и сделайте скриншот

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

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