- •Проект приложения № 4.
- •1. Загрузите среду визуального программирования Delphi.
- •6. Вставьте в форму три таблицы текстовых строк StringGrid (см. Рис. 1).
- •8. В окне текста программы перед разделом implementation введите описание констант и переменных программы:
- •9. Запрограммируйте кнопки SpeedButtonl и SpeedButton2 следующим образом:
- •10. В окне текста программы после раздела implementation введите описание метода Refresh формы.
- •11. Запрограммируйте процедуру создания формы FormCreate.
- •12. Сохраните выполненную на данный момент работу в своей папке.
- •14. Запустите созданную программу и исследуйте ее работу.
- •15. Создайте ехе-файл программы.
- •16. Закройте Delphi, запустите созданную программу, сыграйте и попробуйте достичь хороших результатов.
- •17. Продемонстрируйте созданную форму преподавателю. Закончите работу.
Проект приложения № 4.
Задача о бирже ценных бумаг.Таблица строк StringGrid и ее свойства. Кнопки BitBtn и SpeedButton. События и их обработка
Цель работы. Создать бизнес-игру «Биржа ценных бумаг», моделирующую ежегодное инвестирование капитала в акции трёх разных предприятий (рис.2). На момент инвестирования известно, что на конец года рынок может находиться в одном из трех возможных с некоторой вероятностью состояний, от чего будут зависеть прибыли или убытки инвестора. В таблице 3x3 приведены значения прибылей или убытков на каждый вложенный доллар для трёх возможных состояний рынка и трех предприятий (например, Hundai, Philips, Bosh). Конкретное состояние рынка проясняется уже после инвестиции. Нужно, учитывая все три возможных состояния рынка, инвестировать капитал во все три предприятия с целью добиться максимальной прибыли. Инвестиции надо делать на протяжении нескольких лет. Если это делать удачно, можно ожидать прибыль (увеличение капитала), иначе -предприятия ждут убытки.
Научиться применять таблицу текстовых строк StringGrid, а также кнопки типа BitBtn и SpeedButton для выполнения вычислений или стандартных действий.
Ознакомиться с понятием события в Delphi.
Указание. Все фрагменты программы данной работы рекомендуется заранее разместить в файле и разрешить студентам копировать их в свою программу через буфер обмена.
Теоретические сведения. Объект StringGrid предназначен для создания в форме двумерной таблицы символьных строк. Кроме изученных свойств, таблица символьных строк имеет еще
Свойство |
Описание свойства |
Примеры значений | |
ColCount |
Количество столбцов таблицы |
3; 7 | |
RowCount |
Количество строк таблицы |
5; 8 | |
FixedCols |
Количество фиксированных столбцов таблицы, которые не прокручиваются слева |
0; 3 | |
FixedRows |
Количество строк в шапке таблицы, которые не прокручиваются вверх |
1; 2 |
Объект BitBtn - кнопка с рисунком и определенным типом действия. Стандартный набор файлов с рисунками для кнопок находится в папке C:\ Program Files\ Borland\ Delphi x.0\ Images\ Buttons. Этот объект владеет такими новыми свойствами:
Свойство |
Описание свойства |
Примеры значений |
Glyph |
Рисунок из файла на кнопке |
Адрес файла задается в диалоговом окне |
Kind |
Тип стандартного действия |
bkClose (закрывает окно), bkCancel (кнопка "Отменить" диалогового окна), bkNo (кнопка "Нет" диалогового окна) |
Объект SpeedButton применяют для создания кнопки панели инструментов. Рассмотрим такие свойства объекта:
Свойство |
Описание свойства |
Примеры значений |
Margin |
Расстояние в пикселях между рисунком и ближайшим к нему краем кнопки |
-1 - рисунок с текстом центрируется, 8 - восемь пикселей между краем кнопки и рисунком |
Layout |
Взаимное расположение рисунка и текста на кнопке |
blGlyphLeft (рисунок возле левой границы, текст справа), blGlyphRight (наоборот) |
Spacing |
Расстояние в пикселях между рисунком и текстом |
6 - шесть пикселей между рисунком и текстом на кнопке |
Ход работы