DELPHI 7.0

Лабораторна робота № 4. Тема: Задача про біржу цінних паперів. Таблиця рядків StringGrid і її властивості. Кнопки BitBtn і SpeedButton. Події і їх обробка.

Мета роботи. Створити бізнес-гру «Біржа цінних паперів», що моделює щорічне інвестування капіталу в акції трьох різних підприємств. На момент інвестування відомо, що на кінець року ринок може знаходитися в одному з трьох можливих з деякою вірогідністю станів, від чого будуть залежати прибутки або збитки інвестора. У таблиці 3x3 приведені значення прибутків або збитків на кожен вкладений долар для трьох можливих станів ринку і трьох підприємств (наприклад, Hundai, Philips, Bosh). Конкретний стан ринку вирішується вже після інвестиції. Потрібно, враховуючи всі три можливі стани ринку, інвестувати капітал у всі три підприємства з метою здобуття максимального прибутку. Інвестиції треба робити впродовж декількох років. Якщо це робити вдало, можна чекати прибуток (збільшення капіталу), інакше - підприємство чекають збитки. Навчитися застосовувати таблицю текстових рядків StringGrid, а також кнопки типу BitBtn і SpeedButton для виконання обчислень або стандартних дій. Ознайомитися з поняттям події в Delphi.

Виконання роботи

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

2. Поміняйте заголовок (Caption) форми з «Form1» на «Біржа цінних паперів» і збільште розміри форми.

3. Відмовтесь від можливості міняти розміри вікна програми, вказавши значення bsDialog властивості BorderStyle форми.

4. Збережіть виконану на даний момент форму в своїй папці (FileSave All).

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

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

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

5. Розташуйте в нижній частині форми дві піктографічні кнопки типу SpeedButton і командної кнопки закінчення роботи програми BitBtn.

Для цього застосуєте компоненти SpeedButton і BitBtn із закладки Additional палітри компонентів. На кнопках SpeedButton можна розташувати піктограму із спеціального набору піктограм - графічних файлів формату bmр. Кнопки типу BitBtn володіють властивістю Kind (стандартна дія) з можливими значеннями bkClose (Закрити), bkCancel (Відмінити), bkYes (Так), bkNo (Немає), bkHelp (Допомога) і іншими. На них також можуть бути розташовані піктограми. Якщо задати стандартну дію, то дану кнопку програмувати не потрібно. Задайте наступні значення властивостей вставлених об'єктів.

Властивість	Значення
Name	SpeedButton1	SpeedButton2	BitBtn1
Caption	&Біржові результати	&Наступний рік	&Вихід
Glyph(Файл з піктограмою)	С:\Program Files\Common Files\Borland Shared\ Images\Buttons\check.bmp	С:\Program Files\ Common Files\ Borland Shared\ Images\Buttons\arrow3r.bmp
Kind			BkClose

Символ & у заголовку кнопки вказує на те, що цю кнопку можна нажимати також і за допомогою «гарячої» комбінації клавіш Alt + буква заголовка, перед якою стоїть цей символ.