2. Постановка задачи

Создать класс <Таймер>. Разработать для класса функцию установки времени начала отсчета таймера и чтения его текущих показаний.

Исполнение модуля: файл динамической библиотеки dll.

Образец проектирования: Factory.

3. Разработка диаграмм uml

Диаграмма Use Case позволяет создать список операций, которые выполняет система. Данную диаграмму называют также диаграммой функций, так как на основе набора таких диаграмм создается список требований к системе и определяется множество выполняемых ею функций Диаграмма Use Case представлена на рисунке 1.

Диаграмма Class является основной для создания кода приложения. С ее помощью строится внутренняя структура программы. Диаграмма представлена на рисунке 2.

4. Формирование плана управления конфигурациями и план графика проекта

Ведущим конфигурацию проекта является разработчик приложения. Ведущий конфигурацию поддерживает данный документ (SCMP). Он отвечает за настройку и резервное копирование используемых инструментов управления конфигурациями.

План-график мероприятий по отчетам, архивации и обновлению конфигура­ции показан в таб. 1.

Таблица 1План график проекта

№ п/п	Разделы	29.03.2007	19.04.2007	15.05.2007	26.05.2007
1.	Введение	+
2.	Теоретические разделы	+
3.	Подбор исходных данных		+
4.	Разработка диаграмм UML		+
5.	Формирование плана управления конфигурациями и план-графика проекта		+
6.	Разработка программ тестирования		+
7.	Разработка основной программы			+
8.	Оформление программной документации				+
9.	Заключение				+
10.	Литература	+
	Защита проекта

Названия и элементы конфигураций представлены в разделе 6 данного отчета.

4. Разработка программы тестирования

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

LibHandle: THandle = 0;

sec:integer;

Form1: TForm1;

function showform : integer; stdcall;

external 'Project1.dll';

implementation

procedure TForm1.Button1Click(Sender: TObject);

begin

sec:=StrToInt(Edit1.Text);

Read(sec);

Showform;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

LibHandle:= LoadLibrary('Project1.dll');

if LibHandle< 1 then

begin

ShowMessage(SysErrorMessage(GetLastError));

exit;

end

else

begin

// библиотека загружена успешно

ShowMessage('LOAD OKAY');

end;

end;

end.

Тесты dll:

Рис.3 Форма ввода sec Рис.4 Отсчёт времени

Рис.5 Конец отсчёта времени Рис.6 Сообщение об окончании времени

Если интервал не задан, то выводится сообщение (рис.7):

Рис.7 «Не задан интервал»