І-й спосіб

Створення програм з використанням списків, таблиць та фіксаторів значень (залежних перемикачів).

Завдання: Створити програму з назвою “Currency Exchange” для проведення обмінних операцій між іноземними валютами та гривнями.

В програмі передбачити виконання наступних дій:

– вибір типу операції із валютою (купівля/продаж);

– вибір валюти та виведення поточного обмінного курсу для вибраної валюти;

– введення суми в іноземній валюті, яку купує чи продає клієнт, та виведення еквіваленту у гривнях.

Вибір валюти потрібно зробити 4-ма різними способами з використанням: 1) комбінованого списку ComboBox; 2) списку вибору ListBox; 3) групи залежних перемикачів (фіксаторів) RadioGroup; 4) таблиці рядків StringGrid. Для цього створіть 4 варіанти програми. Для збереження файлів кожного із варіантів заведіть окремі папки.

Мета: Навчитися використовувати компоненти ComboBox, ListBox, StringGrid, RadioButton та RadioGroup для розробки прикладних програм.

Хід роботи:

І-й спосіб

1. Створіть форму із наступними компонентами:

2. Вилучіть значення із поля Caption для компонент: Label3, Label7 та із поля Text для компонент: ComboBox1, Edit1 Edit2 та Edit3. Ці поля будуть заповнюватися в процесі виконання програми.

3. Заповніть поля Caption для Label1, Label2, Label4, Label5, Label6, RadioButton1 та RadioButton2 так, щоб форма мала наступний вигляд:

Для всіх полів виведення та редагування краще встановити шрифт розміром 10 пунктів.

4. Запрограмуємо подію OnClick для фіксаторів RadioButton1 та RadioButton2 так, щоб при їх вибрі у поле Caption компонент Label3 та Label7 записувалися значення ’купуєте’ або ’продаєте’ та ’до оплати’ або ’до видачі’ відповідно. Для цього виконуємо по черзі подвійне клацання на RadioButton1 та RadioButton2 і у редакторі коду оформляємо методи:

void __fastcall TForm1::RadioButton1Click(TObject *Sender)

{

Label3->Caption="купуєте";

Label7->Caption="до оплати";

 

}

//-------------------------------------------------------------------

 

void __fastcall TForm1::RadioButton2Click(TObject *Sender)

{

Label3->Caption="продаєте";

Label7->Caption="до видачі";

}

5. Виконайте прогонку програми. Виберіть по черзі обидва типи операції обміну. Результати вибору будуть наступні:

6. Використовуючи інспектор об’єктів, для властивості Items списку ComboBox1 зафіксуємо список валют, які підлягають обміну. Наприклад,

USD

Euro

RusRuble

7. Для того, щоб у полі Edit1 для вибраної валюти можна було відображати відповідний обмінний курс, у файлі Unit1.h опишемо масив:

const double Kv[4][2]={5.05,5.15,6.1,6.2,0.15,0.16};

рядки якого містять значення обмінного курсу (купівля, продаж) для кожної із валют, які занесені у ComboBox1. У полі Edit1 має автоматично відображатися відповідний обмінний курс після того, як у списку ComboBox1 буде вибрана валюта. Для цього потрібно описати метод опрацювання події OnChange для ComboBox1 таким чином:

void __fastcall TForm1::ComboBox1Change(TObject *Sender)

{

if (RadioButton1->Checked)

Edit1->Text=FloatToStr(Kv[ComboBox1->ItemIndex][0]);

else

Edit1->Text=FloatToStr(Kv[ComboBox1->ItemIndex][1]);

 

}

Властивість Checked фіксує стан перемикача типу RadioButton. Властивість ItemIndex для компонент-списків фіксує індекс вибраного елемента (індексація розпочинається з нуля). Якщо не вибраний жодний елемент списку, то значенням властивості є –1. Функція FloatToStr здійснює перетворення дійсних чисел в рядки символів.

Виконайте прогонку програми та проекспериментуйте із списком ComboBox1.

8. Тепер можна програмувати обчислення ’Суми до видачі’ чи ’до оплати’ (Edit3) залежно від введеної ’Суми в іноземній валюті’ (Edit2). Для цього запрограмуємо подію OnChange для Edit2:

void __fastcall TForm1::Edit2Change(TObject *Sender)

{

if (RadioButton1->Checked)

Edit3->Text=FloatToStr(StrToInt(Edit2->Text)*

Kv[ComboBox1->ItemIndex][0]);

else

Edit3->Text=FloatToStr(StrToInt(Edit2->Text)*

Kv[ComboBox1->ItemIndex][1]);

}

Виконайте програму із середовища C++ Builder. Завантажте відповідний exe-файл із середовища ОС Widows.