Главная страница
Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
|
Инструкция по выполнению
Лабораторная работа №23-24
Создание оконных интерактивных приложений. Динамические массивы
Цель работы:
1) получить навыки работы с системой Delphi;
2) ознакомления со свойствами некоторых компонентов;
3) ознакомление с созданием и использованием своих процедур;
4) ознакомиться с некоторыми визуальными компонентами системы Delphi, предназначенными для программирования пользовательского интерфейса;
Продолжительность работы - 4 часа.
Задания выполняются максимум по 2 человека.
Необходимо выполнять данную лабораторную работу по инструкции, т.е. пошагово.
Дано: A, B – целочисленные квадратные матрицы размерностью N× M (1≤ N≤ 10, 1≤ M≤ 10). Написать программу, выполняющую расчет матрицы C=A+B, использующую оконный интерфейс и работающую в интерактивном режиме (см. рис. 1).

Рис. 1. Внешний вид программы сложения матриц
Инструкция по выполнению
- В окне Object Inspector задайте следующие свойства основной формы Form1:
Свойство
| Значение
| Описание
| Caption
| Сложение матриц
|
| Font\Size
|
|
| Position
| poScreenCenter
|
| BorderStyle
| bsDialog
|
| Height
|
|
| Width
|
| | - Последовательно расположите на форме Form1 перечисленные ниже объекты (см. рис. 1) и установите для них указанные в таблице значения свойств.
- Кнопка Button1 класса TButton со свойствами:
Свойство
| Значение
| Описание
| Anchors\akLeft
| False
|
| Anchors\akTop
| False
|
| Anchors\akRight
| True
|
| Anchors\akBottom
| True
|
| Caption
| Выход
|
| Enabled
| True
|
| - Строка редактирования Edit1 класса TEdit со свойствами:
Свойство
| Значение
| Описание
| Width
|
|
| - Счетчик UpDown1 класса TUpDown (компонент
– «UpDown (ComCtrls)» расположен на закладке Win32) со свойствами: Свойство
| Значение
| Описание
| Associate
| Edit1
|
| Max
|
|
| Min
|
|
| Orientation
| udVertical
|
| - Метка Label1 класса TLabel со свойствами:
Свойство
| Значение
| Описание
| Caption
| & N–количество строк
|
| FocusControl
| Edit1
|
| ShowAccelChar
| True
|
| - Строка редактирования Edit2 класса TEdit со свойствами:
Свойство
| Значение
| Описание
| Width
|
|
| - Счетчик UpDown2 класса TUpDown (компонент
– «UpDown (ComCtrls)» расположен на закладке Win32) со свойствами: Свойство
| Значение
| Описание
| Associate
| Edit2
|
| Max
|
|
| Min
|
|
| Orientation
| udVertical
|
| - Метка Label2 класса Tlabel:
Свойство
| Значение
| Описание
| Caption
| & M–количество строк
|
| FocusControl
| Edit2
|
| ShowAccelChar
| True
|
| - Групповая панель GroupBox1 класса TgroupBox со свойствами:
Свойство
| Значение
| Описание
| Caption
| Матрица A
|
| Height
|
|
| Width
|
|
| - Строковая таблица StringGrid1 класса TStringGrid (компонент
– «StringGrid (Grids)» расположен на закладке Additional) со свойствами: Свойство
| Значение
| Описание
| Align
| alClient
|
| ColCount
|
|
| FixedCols
|
|
| FixedRows
|
|
| Options\goEditing
| True
|
| RowCount
|
|
| ScrollBars
| ssNone
|
| - Групповая панель GroupBox2 класса TgroupBox со свойствами:
Свойство
| Значение
| Описание
| Caption
| Матрица B
|
| Height
|
|
| Width
|
|
| - Строковая таблица StringGrid2 класса TStringGrid (компонент
– «StringGrid (Grids)» расположен на закладке Additional) со свойствами: Свойство
| Значение
| Описание
| Align
| alClient
|
| ColCount
|
|
| FixedCols
|
|
| FixedRows
|
|
| Options\goEditing
| True
|
| RowCount
|
|
| ScrollBars
| ssNone
|
| - Групповая панель GroupBox3 класса TgroupBox со свойствами:
Свойство
| Значение
| Описание
| Caption
| Матрица C
|
| Height
|
|
| Width
|
|
| - Строковая таблица StringGrid3 класса TStringGrid (компонент
– «StringGrid (Grids)» расположен на закладке Additional) со свойствами: Свойство
| Значение
| Описание
| Align
| alClient
|
| ColCount
|
|
| FixedCols
|
|
| FixedRows
|
|
| Options\goEditing
| False
|
| RowCount
|
|
| ScrollBars
| ssNone
|
| - Метка Label3 класса TLabel со свойствами:
Свойство
| Значение
| Описание
| Caption
| +
| | Font\Size
|
| | Font\Style\fsBold
| True
| | - Метка Label4 класса TLabel со свойствами:
Свойство
| Значение
| Описание
| Caption
| =
| | Font\Size
|
| | Font\Style\fsBold
| True
| | - По мере добавления объектов на форму регулярно выполняйте запуск программы. Немного поработайте с приложением, чтобы разобраться с особенностями его работы. Попробуйте, перетаскивая границы изменить размеры окна, сменить его положение, свернуть, максимизировать, развернуть до нормальных размеров, понажимать на кнопки, ввести в редактируемые элементы произвольную текстовую, числовую информацию, нажать клавиши Alt+N, Alt+M и т.д. Закройте приложение. В приведенных таблицах постарайтесь заполнить графу Описание. С этой целью можно попытаться установить другие значения свойств, указанных в таблицах, запуская при этом программу и наблюдая за происходящими при этом изменениями. Не забудьте по окончании экспериментов установить для всех объектов значения свойств, указанные в таблицах и сохранить приложение.
- Добавьте в описание приватных процедур класса TForm1 (верхняя часть окна редактирования модуля Unit1) описание процедуры ReCalculation:
type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Button1: TButton;
Label1: TLabel;
Edit1: TEdit;
UpDown1: TUpDown;
Label2: TLabel;
Edit2: TEdit;
UpDown2: TUpDown;
GroupBox1: TGroupBox;
StringGrid1: TStringGrid;
GroupBox2: TGroupBox;
StringGrid2: TStringGrid;
Label3: TLabel;
Label4: TLabel;
GroupBox3: TGroupBox;
StringGrid3: TStringGrid;
private
{ Private declarations }
|