Лабораторна робота № 2. Тема: Задача «Обмін валюти».

Об'єкти: поля редагування, перемикачі і їх властивості. Програмування розгалужень.

Мета роботи. Створити форму «Обмін валюти» для моделювання відповідних операцій обмінного пункту. Застосувати поля редагування (Edit) і перемикачі (RadioButton, радіокнопка), а також кнопки для виконання обчислень і виходу з програми.

Хід роботи.

1. Завантажте систему візуального програмування Delphi.

2. Відмовтеся від можливості змінювати озміри вікна програми:

• вкажіть значення властивості форми Border Style - bsDialog;

• виконайте програму (Run) і переконайтеся, що не можна змінити розмір форми. Зверніть увагу на відсутність кнопок для мінімізації і максимізації вікна, а також системного меню;

• Завершіть роботу програми.

3. Вставте у форму два об'єкти типу RadioButton (перемикач). Для цього клацніть на піктограмі об'єкту типу RadioButton (перемикач), яка знаходиться на закладці Standard палітри компонентів головного вікна Delphi. Після цього клацніть в точці вставки на формі. Повторіть ці дії, щоб вставити другу радіокнопку.

4. Задайте початкове значення другого перемикача як активне. Для цього клацніть на правому перемикачі і задайте значення його властивості Checked (контроль вибору) - True.

5. Вставте у форму два поля редагування — об'єкти Edit1 і Edit2. Для цього клацніть на піктограмі об'єкту типу Edit (редагування), яка знаходиться на закладці Standard палітри компонентів, а потім клацніть в потрібному місці на формі. Вставте другий об'єкт. Запустіть програму і потренуйтеся зі вставленими об'єктами: клацніть в полі редагування, введіть деяке число, видаліть його. Закрийте вікно програми.

6. Розмістіть на формі два текстові поля - об'єкти Label1 і LabeI2.

7. Вставте у форму два поля редагування об'єкти Edit3 і Edit4.

8. Вставте дві кнопки - об'єкти типу Button.

9. Вставте у форму ще два текстові поля — об'єкти Label3 і Label4.

10. Збережіть створений проект в своїй папці.

• Для цього виконаєте команду головного меню File  Save All (Зберегти Все) або натисніть на кнопку Save All на панелі інструментів.

• У вікні Save Unit as за допомогою списку виберіть свою папку, створіть в ній папку Valyuta і відкрийте її, задайте назву для файлу тексту програми UValyuta, заздалегідь видаливши запропоноване комп'ютером назву Unitl  кнопка Зберегти

.

• В наступному вікні «Save Projectl As» введіть назву файлу проекту PValyuta, видаливши запропоноване комп'ютером назву Projectl  зберегти. Зверніть увагу: файли проекту і тексту програми повинні мати різні назви.

11. Поміняйте назву форми з Form1 на Обмін валюти.

12. Змініть підписи Caption на об'єктах типу RadiоButton на Купівля, Продаж, Label1 на USD, Label2 на Гривні, Label4 на Курси валют.

13. Задайте однакові розміри для всіх текстових полів, полів редагування і кнопок і вирівняйте їх на формі. Для чого виділіть 5 об'єктів в лівому стовпці і в окні Object Inspeсtor задайте їх загальні для цих об'єктів значення в пікселях властивостей Width, Height, Left. Можете змінити стиль, колір або розмір шрифту одночасно для всіх виділених об'єктів. Аналогічно працюйте з правим стовпцем. Вирівняйте поля в горизонтальному напрямі. Для цього змінюйте властивість Top (відступ від верхньої межі вікна). Збережіть роботу Save All.

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

• Для цього задайте значення властивості Text об'єкту Editl, наприклад, 7.25. Повторіть це для об'єкту Edit2 (значення 7.45) і Edit3 (20).

15. Очистіть поле редагування Edil4. Для цього видалите значення властивості Text об'єкту Edit4. He плутайте значення властивостей Name і Text цих об'єктів.

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

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

18. Виконайте програму і переконайтеся, що не можна ввести або редагувати дані в полі Edit4.

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

• Клацніть двічі на правому перемикачі RadioButton2 (Продаж). Отримайте заготівку процедури RadioButton2Click.

• В тілі цієї процедури опишіть дії, які повинні бути виконані в результаті клацання на правому перемикачі RadioButton2:

procedure TForml.RadioButton2Click(Sender: Tobject);

begin

{Міняємо напрям стрілки}

Label3.Caption := '=>';

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

end;

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

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

20. Запустіть програму і переконайтеся, що перемикачі виконують що наказали їм функції.

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

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

procedure TForml.Button2Click(Sender: TObject);

begin

Close (Закриваємо вікно програми]

end;

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

• Данні в полі редагування - це значення властивості 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

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

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

Для переривання роботи програми у разі неправильного введення вхідних даних виконаєте пункт головного меню Run  Program Reset.

25. Змініть розміри і кольори символів (зокрема об'єктів Label3 і Edit3), розташування об'єктів, фон форми (властивість Color) так, щоб форма виглядала якнайкраще.

26. Забезпечте появу підказки «Введіть суму в доларах» після переміщення покажчика миші до поля Edit3.

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

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

28. Поміняйте вид стрілки з => на , а <= на .

• Для цього виберіть об'єкт Label3 і в полі значення властивості Caption введіть російську букву р, після чого, активізувавши властивість Font, виберіть назву шрифту Wingdings. Двічі клацніть на правому перемикачі і в його процедурі введіть російську букву р замість =>. В процедурі для лівого перемикача символи <= замініть буквою п. Збережіть роботу, запустіть програму і переконайтеся, що стрілка змінила свій вигляд.

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

Виконайте пункт головного меню Project  Build All.

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

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

31. Продемонструйте створену форму викладачу. Закінчіть роботу.

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

33. Виконайте додаткові завдання .

№ п/п	Задача
	Вставте в створену форму ще одну кнопку для очищення полів грошових сум. Виконайте програму і переконайтеся в правильності її роботи Підказка, Для об'єктів Edit3, Edit4 в процедурі обробки події натиснення на кнопку очищення використовуйте команду присвоєння їх властивостям Text порожнього рядка (")
	Забезпечте появу підказки «Введіть курс купівлі» і «Введіть курс продажу» після переміщення покажчика миші до полів Editl і Edit2 відповідно
	В процедурі для кнопки «Обчислити» передбачите 1% збору до пенсійного фонду від операції продажу
	Модифікуйте програму, ввівши додаткову можливість: після клацання мишею на стрілці змінюється тип операції (купівля, продаж). Запишіть в звіт фрагмент програмного коду, що реалізовує цю можливість. Виконайте програму Підказка. Для цього двічі клацніть на текстовому полі стрілки. Відкриється вікно програмного коду із заготівкою процедури Label3Click (опис дій у разі клацання на об'єкті Label3). В тілі цієї процедури можна скористатися командами вигляду: if RadioButtonl.Checked=True then begin {Міняємо напрям стрілки на => для Label3.Caption} {Встановлюємо перемикач в праве положення, змінюючи значення властивостей Checked об'єктів RadioButtonl і RadioButton2} end else begin {Встановлюємо напрям стрілки <=} {Встановлюємо перемикач в ліве положення, міняючи значення властивостей Checked об'єктів RadioButtonl і RadioButton2} end;
	В створену для задачі 4. форму вставте об'єкт групу перемикачів (RadioGroup) для вибору типу милі з двох можливих значень: морської або звичайної (1 морська миля = 1,852 кілометрів). Підказка. Щоб ввести підписи до перемикачів використовуйте властивість Items групи перемикачів RadioGroup, а для контролю вибору певного перемикача скористайтеся властивістю ItemIndex (дорівнює -1, якщо жоден не вибраний, 0 - якщо вибраний перший перемикач групи, 1 - якщо другий і т.д.)

34. Оформити звіт про лабораторну роботу, в якому записати: тему і мету роботи; послідовність виконання проекта, створеного на лабораторній роботі.