2015-05-10
330
1. Создать в своём собственном каталоге, который должен находиться в каталоге Student\ название группы (например, tvn -1-01), новый подкаталог с названием lab 3. Если собственного каталога не существует, то создать его.
2. Запустить Дельфи 7 двойным щелчком по соответствующей пиктограмме, расположенной на рабочем столе. Создать заготовку новой программы и сохранить её в созданном каталоге (папке). Проверить количество сохранённых файлов. Должно быть не менее шести. Если число файлов меньше, повторить операции сохранения и добиться нужного числа файлов.
3. На форму положить следующие компоненты:
а) PageControl (контроль и создание многостраничных приложений) из набора (палитры) компонентов Win32 и расширить его на всё поле формы, оставив сверху около 1 см пространства формы (с точками). Нажимая правую кнопку мыши при положении указателя в любом месте компонента PageControl, выбрать в контекстном меню команду NewPage (новая страница, команда создания новой страницы). Операцию повторить несколько раз и убедиться, что в верхней части компонента PageControl появились закладки с названиями страниц типа ts1, ts2, ts3…(TabSheet1, TabSheet2, TabSheet3..). Перейти на закладку 1й страницы ts1 (TabSheet1). При этом в инспекторе объектов в поле ActivPage будет заголовок страницы ts1 (TabSheet1). Нажать левой кнопкой мыши на любом месте страницы. В инспекторе объектов в поле появится заголовок ts1 (TabSheet1) TTabSheet. Изменить в свойстве Caption (заголовок) инспекторе объектов название страницы на Главная. Перейти на вторую страницу нажав на заголовок страницы ts2 (TabSheet2) и центр страницы и изменить заголовок на Таблица. Поменять название 3 страницы на График, аналогичным способом;
|
|
|
б) на страницу Главная поместить компоненты button и memo из стандартного (Standard) набора (палитры) компонентов. Расширить поле memo до максимального размера вставить обе линейки прокрутки;
в) два компонента OpenDialog (dlgOpen) и SaveDialog (dlgSave) из набора (палитры) Диалоги (Dialogs). OpenDialog нужен для выбора файла при его открытии для чтения, а SaveDialog – при записи файла. Эти компоненты не будут видны в режиме исполнения программы и поэтому их можно поместить в любом месте формы (лучше в верхнем правом углу в свободное от компонента PageControl место;
г) перейти на страницу с заголовком Таблица и поместить на ней компонент button и строковая таблица (сетка) StringGrid из набора (палитры) дополнительный (Additional). В инспекторе объектов этого компонента найти счётчик (указатель) числа колонок (ColCount) и поставить в нём число колонок 15. В счётчике (указателе) числа рядов (RowCount) также поставить число рядов 15. Найти свойство число фиксированных (постоянно остающихся на месте при прокрутке) колонок и рядов FixedCols и FixedRows и поменять в них числа, наблюдая за изменением на таблице. Поставить в этих элементах числа 1. Поменять цвет фиксированных ячеек и остальных ячеек, на любой произвольный, но не раздражающий глаз;
|
|
|
д) перейти на страницу с заголовком График и поместить на ней button и компонент график Chart из набора (палитры) дополнительный (Additional). Двойным щелчком по компоненту Chart перейти в режим его редактирования. На странице Series нажать кнопку Add (добавить) и выбрать тип графика Line. На странице 3D убрать галочку в поле 3Dimention, превратив график в двухмерный. На странице Legend убрать галочку в поле Visible. На странице Panel, нажав кнопку цвета панели (Panel Color), установить цвет фона графика (панели) на белый. Перейти на закладку Series и на странице Format выбрать цвет графика чёрный и после нажатия кнопки Border установить толщину графика 3. Перейти на страницу Point (точки, фигуры). Рядом с надписью Visible поставить галочку для прорисовки фигур в точках вычисления значений графика. Выбрать высоту и ширину фигур в 10 или 15 точек. При построении экспериментального графика размер фигуры соответствует погрешности измерений. Из списка фигур в элементе Style понравившуюся фигуру (например, круг Cirkle). Нажимая кнопку Border выбрать цвет фигуры (чёрный) и толщину линии, которой фигура будет рисоваться (3). Нажимая кнопку выбора цвета заливки фигуры Background…, выбрать понравившийся цвет фигуры (белый).
4. Перейти на страницу Таблица. Создать заготовку процедуры нажав дважды на кнопку запуска на этой странице. В основной части процедуры (после первой открывающей скобки begin) написать строку
Strngrd1.Cells[0,0]:= '0,0';
Проверить правильность написания компонента StringGrid, посмотрев его имя в окне дерева объектов.
а) запустить программу на исполнение. Убедиться, что строка '0,0' появилась в левой верхней ячейке (Cells). В поле Cells компонента StringGrid в квадратных скобках в первой позиции указывается номер столбца, а через запятую номер строки;
б) пронумеровать столбцы вставив цикл с заданным числом повторений
for i:=1 to 14 do Strngrd1.Cells[i,0]:=IntToStr(i);
поскольку в процедуре появилась целочисленная переменная i, которая используется в цикле for как счётчик числа шагов, то её следует описать в разделе описания переменных этой процедуры как integer.
Запустить программу на исполнение и убедиться, что нумерация столбцов произведена правильно. Передвигая указатель линейки прокрутки найти 14 столбец и убедиться, что нулевой столбец остался крайним слева. Определить номер столбца, который следует за нулевым при этом положении ползунка линейки прокрутки;
в) пронумеровать строки вставив цикл с заданным числом повторений
for i:=1 to 14 do Strngrd1.Cells[0,i]:=IntToStr(i);
Запустить программу на исполнение и убедиться, что нумерация строк произведена правильно;
г) записать в 5 столбец 4 строки какую-либо строковую переменную, например Strngrd1.Cells[5,4]:= '5 col,4 row';
д) записать в нулевую строку 4 колонки строку 'U ном'; Запустить программу на исполнение и убедиться, что запись произведена там, где нужно;
е) записать в нулевую строку 8 колонки строку 'S ном'; Запустить программу на исполнение и убедиться, что запись произведена там, где нужно.
5. Создать новый документ таблиц Excel. В ячейку а1 записать число 11, а в ячейку b1 число 21. Сохранить файл в каталоге с программой.
6. Перейти в окно программного кода и дополнить список используемых программных блоков (unit) блоком ComObj. Этот список находится в верхней части кода после зарезервированных слов
unit Unit1;
