Лабораторная работа №11-12

по дисциплине «Информатика».

Тема: Программирование процедур в Delphi.Объекты: строковая таблица StringGrid, кнопки BitBtn и SpeedButton.

Цель: 1) Обучить студентов использовать компонент StringGrid , а также кнопки BitBtn и SpeedButton для выполнения вычислений и стандартных операций над данными.

2) Освоение технологии написания кода программы на определённое событие в Delphi.

Ход работы:

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

1. Изменить заголовок формы с «Form1» на «Биржа ценных бумаг» и увеличить размеры формы.

2. Откажитесь от возможности изменять размеры окна программы, присвоив свойству формы BorderStyle значение bsDialog.

3. Сохраните созданную в данный момент форму в своей папке.

Биржа ценных бумаг

2003 год Начальный капитал инвестора составил 1000$

Прогноз прибыли на каждый вложенный доллар на конец года

Вероятность

41%

34%

25%

Рост евро

	Рост евро	Рост йены	Рост доллара		Инвестиции, $
Hundai	30 центов	-70 центов	70 центов		300
Philips	-30 центов	70 центов	-30 центов		500
Bosh	40 центов	0 центов	-50 центов		500

На начало года ваш капитал составляет 1300 долларов

Прибыль (убыток ) на конец года составит 140 долларов

Конец

Следующий год

Рис.1

4. Расположите в нижней части формы две пиктографические кнопки типа SpeedButton и кнопку окончания работы программы BitBtn (см. Рис1).Задайте следующие значения свойств вставленных объектов:

   Свойства	Значения
   Name	SpeedButton1	SpeedButton2	BitBtn1
   Caption	&Биржевые результаты	&Следующий год	&Конец
   Glyph( файл с пиктограммой)	C:\ Program Files\ Borland\ Delphi x.0\ Images\ Buttons\ ….	C:\ Program Files\ Borland\ Delphi x.0\ Images\ Buttons\ ….
   Kind			BkClose

5. Вставьте в форму три таблицы текстовых строк StringGrid (см. Рис1).Задайте следующие значения свойств этих объектов:

Свойства	Значения
Name	StringGrid1	StringGrid2	StringGrid3
ColCount (количество столбцов)	4	1	4
FixedCols (количество фиксированных столбцов)	1	0	1
RowCount (количество строк)	4	4	1
FixedRows (количество фиксированных строк)	1	1	0
Options*=>goEditing (возможность редактирования)	False	True	False