Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
ПО.doc
Скачиваний:
5
Добавлен:
19.02.2016
Размер:
172.54 Кб
Скачать

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

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

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

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

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

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

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

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

Ведущим конфигурацию проекта является разработчик приложения. Ведущий конфигурацию поддерживает данный документ (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 данного отчета.

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

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 «Не задан интервал»