Розробка проекту «Обмін валюти»

Завдання. Створити програму, яка переводитиме суму грошей у доларах у суму в гривнях. При цьому забезпечити такі вимоги до роботи програми:

• Заборона введення в числові поля нечислових даних;

• Заборона введення символу «мінус» в усіх позиціях числового поля;

• Заборона повтору введення символу «кома»;

• Перехід з об’єкта на об’єкт після натиснення на клавішу Enter;

• Встановлення чергового кольору для виведення суми грошей у гривнях.

Аналіз проекту

Алгоритм обчислення обміну валюти загальновідомий і не є складним. Компоненти, які необхідні для проекту, та робота з ними описані в попередніх проектах. Розглянемо на прикладі цього проекту ще один спосіб захисту числових полів від введення символьних даних.

Хід роботи

Алгоритм розробки проекту

1. Створити папку С:\Delphi\lab_4_2.

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

3. Розмістити на формі візуальні компоненти Label1, Label 2, Label3, Edit1, Edit2, Edit3, Button1.

4. Створити процедуру обробки події для кнопки «Обчислити», в яку занести зчитування даних з полів Edit1 та Edit2, обчислення суми гривень та виведення в поле Edit3 цього значення:

kurs:=strtofloat(edit1.Text);

suma_dol:=strtofloat(edit2.Text);

suma_gr:=suma_dol*kurs;

edit3.Text:=floattostr(suma_gr);

Спочатку будемо вважати, що всі дані будуть дійсними числами:

var kurs, suma_dol, suma_gr:real;

5. Для об’єкта Edit1 створити процедуру обробки події OnKeyPress, для цього: активізувати об’єкт, перейти на вкладку Events вікна Інспектора об’єктів, праворуч від назви події OnKeyPress ввести назву процедури, наприклад е1.

6. Занести в тіло процедури оператори:

procedure TForm1.e1(Sender: TObject; var Key: Char);

begin

case key of

'0'..'9', chr(8):;

',': if pos(',',edit1.Text)>0 then key:=chr(0);

chr(13): begin edit2.SetFocus; end;

else key:=chr(0);

end;

end;

7. Зробити подібну процедуру обробки події OnKeyPress для об’єкта Edit2.

8. Зберегти проект у папці С:\Delphi\lab_4_2.

9. Запустити проект та перевірити правильність його виконання.

Завдання для самостійного виконання

1. Зробіть так, щоб на початку роботи кнопка «Обчислити» була неактивною (властивість Enabled=False) і ставала б доступною тільки після того, як буде введена сума доларів.

2. Передбачити можливість повторного введення курсу долара та суми доларів. Для цього додати кнопку «Очистити» з початковим значенням властивості Enabled=False; активізувати цю кнопку тільки після відпрацювання події OnClick для кнопки «Обчислити»; після очистки полів edit1.Text, edit2.Text, edit3.Text знову зробити кнопки «Очистити» та «Обчислити» недоступними; встановити курсор на поле Edit1.

Питання для самоконтролю:

1. Що таке тип даних?

2. Які типи відносять до простих?

3. Яка функція повертає модуль числа х?

4. Яка функція повертає символ по його коду?

5. Який тип даних задається переліком тих значень, які він може одержувати?

6. Яка функція перетворює дату в рядок символів?

7. Яка функція повертає поточну дату і час?

8. Які типи відносять до структурованих в мові Object Pascal?

9. Яким чином здійснюється опис типу множина?

10. Яка функція перетворює ціле значення в рядок символів?