15. Заблокуйте можливість введення даних для поля Edit4, задавши його властивість Enabled (доступність) як False, оскільки це поле міститиме результат.

Змінювати значення певної властивості можна подвійним клацанням на ній лівою клавішею миші. Збережіть роботу (Save All). Виконайте програму і переконайтеся, що не можна ввести чи редагувати дані у полі об'єкта Edit4.

16. Задайте значення курсів купівлі та продажу валюти, а також кількість валюти, яку кантор купує чи продає.

Для цього активуйте об’єкт ComboBox1 і у вікні Object Inspector перейдіть на закладку Events. У полі OnSelect двічі клацніть лівою клавішею миші. Активується вікно тексту програми з заготовкою процедури ComboBox1Select, у якій задаватимуться значення полів (курси валют).

procedure TForm1.ComboBox1Select(Sender: TObject);

begin

end;

У неї необхідно ввести такий текст програми:

procedure TForm1.ComboBox1Select(Sender: TObject);

begin

if ComboBox1.Items.Strings[ComboBox1.ItemIndex] ='USD' then

begin

Edit1.Text:='7.90';

Edit2.Text:='8.05';

end;

if ComboBox1.Items.Strings[ComboBox1.ItemIndex] ='євро' then

begin

Edit1.Text:='10.5' ;

Edit2.Text:='10.9';

end;

end;

Зауваження. Зверніть увагу на використання коми чи крапки у вхідних даних. У числах, які стосуються курсу валюти, гривневої чи доларової сум для десяткової крапки використайте символ, передбачений операційною системою вашого комп'ютера (див. Start (Пуск) => Settings (Налаштовування) => Control Panel (Панель керування) => Regional Settings => закладка Number (Числа), рядок Decimal symbol (Символ десяткової крапки) ).

17. Запрограмуйте радіокнопки так, щоб напрямок стрілки показував на вид операції: купівля чи продаж. Зробіть активним поле Edit3.

Клацніть двічі на правому перемикачі RadioButton2 (Продаж). Отримаєте заготовку процедури RadioButton2Click. В тілі цієї процедури опишіть дії, які мають відбутися у результаті клацання на правому перемикачі RadioButton2: procedure TForm1.RadioButton2Click(Sender: TObject);

begin

Label1.Caption:='=>'; { Змінюємо напрямок стрілки }

Edit3.SetFocus; {Активізуємо поле Edit3}

end;

Аналогічно запрограмуйте подію Click клацанням на лівому перемикачі RadioButton1, врахувавши, що стрілка має показувати на ліве поле ('<=').

Фрагмент програмного коду створеної процедури запишіть у звіт.

18.3апустіть програму і переконайтесь, що перемикач виконує свої функції.

19. Запрограмуйте кнопку "Кінець".

Скористайтесь процедурою закриття вікна програми close:

procedure TForm1.Button2Click(Sender: TObject);

begin

close; {Закриваємо вікно програми}

end;

20.Запрограмуйте кнопку "Обчислити".

Дане у полі редагування — це значення властивості Text об'єкта типу string. Для перетворення цього даного у числовий дійсний тип (real) скористайтесь процедурою Val, а навпаки — процедурою Str.

Опишіть основні (kurs, suma) і додаткові (cod, ed) змінні у розділі var.

procedure TForm1.Button1Click(Sender: TObject);

var kurs1, kurs2, suma: real;

cod: integer;

ed: string[9];

begin

Val(Edit1.Text, kurs1, cod); { Одержуємо значення курсу купівлі }

Val(Edit2.Text, kurs2, cod); { Одержуємо значення курсу продажу }

Val(Edit3.Text, suma, cod); {Одержуємо числове значення суми проданої чи купленої валюти}

if RadioButton2.Checked = True then

suma:= suma * kurs2

else

suma := suma * kurs1;

Str(suma:9:2, ed); Edit4.Text := ed; {Одержане число суми в гривнях перетворюємо у текстовий формат і результат присвоюємо властивості Text поля виведення Edit4}

end;

21.Збережіть роботу (Save All).

22. Виконайте програму і проекспериментуйте з різними грошовими сумами і операціями купівлі чи продажу. Закрийте вікно програми "Обмін валюти".

Для переривання роботи програми у випадку неправильного введення вхідних даних виконайте пункт головного меню Run => Рrogram Reset.

23. 3абезпечте появу підказок "Введіть суму в доларах" або "Введіть суму в євро" (відповідно до обраної валюти) після переміщення вказівника миші до поля Edit3.

Виберіть об'єкт Edit3 і встановіть властивість ShowHint у True, а у значення властивості Hint введіть текст підказок в процедурі обробки події OnMouseMove.

Збережіть роботу, запустіть програму і переконайтеся, що підказка з'являється.

24. Передбачте у створеній програмі ще одну кнопку для очистки, полів грошових сум. Виконайте програму і переконайтесь у правильності її роботи.

Використайте команду присвоєння властивостям Text порожнього рядка (") .

25. Забезпечте появу підказки "Введіть курс купівлі" та "Введіть курс продажу" після переміщення вказівника миші до полів Edit1 та Edit2 відповідно.

26. У програмному коді кнопки "Обчислити" передбачте 1% збору у пенсійний фонд від операції купівлі-продажу.

27. Вставте об’єкт Image для відображення знаків валют.

У програмному коді передбачте, щоб відображався знак валити, яка купується або продається.

28. Створіть ехе-файл програми.

29. 3акрийте Delphi, запустіть створену програму і виконайте обчислення для різних початкових даних.

Запустіть ехе-файл з іменем проекту зі своєї власної папки.