47792 (588502), страница 8

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

Текст из файла (страница 8)

Трудоемкость разработки программы включает время на постановку задачи и время на программирование задачи и определяется по формуле

гдеn_э — количество этапов разработки программы,

Тпос_i — трудоемкость постановки задачи на i-м этапе разработки программы, дней,

Тпрг_i — трудоемкость программирования задачи на i-м этапе разработки программы, дней.

Разработка пакета программ, представленного в настоящем проекте, включала в себя 4 этапа:

1. Проектирование структур баз данных (Тпос = 1, Тпрг = 3);

2. Разработка программы создания и модификации тестов (Тпос = 0.4, Тпрг = 18);

3. Разработка программы контроля знаний (Тпос = 0.3, Тпрг = 15);

4. Разработка программы администрирования (Тпос = 0.3, Тпрг = 11);

Нормы времени учитывают ряд факторов, наибольшим образом влияющих на трудоемкость разработки проекта:

• количество разновидностей форм входной информации;

• количество разновидностей форм выходной информации;

• степень новизны задачи;

• сложность алгоритма;

• вид используемой информации;

• сложность контроля входной и выходной информации;

• язык программирования;

• объем входной информации;

• использование типовых решений, типовых проектов и программ,

• стандартных модулей.

Предусмотрено четыре степени новизны разрабатываемых задач:

• А — разработка задач, предусматривающая применение принципиально новых методов разработки, проведение научно-исследовательских работ;

• Б — разработка типовых проектных решений, оригинальных задач и систем, не имеющих аналогов;

• В — разработка проекта с использованием типовых проектных решений при условии их изменения, разработка проектов, имеющих аналогичные решения;

• Г — привязка типовых проектных решений.

Сложность алгоритма представлена тремя группами:

• 1 — алгоритмы оптимизации и моделирования систем и объектов;

• 2 — алгоритмы учета, отчетности, статистики и поиска;

• 3 — алгоритмы, реализующие стандартные методы решения, а также не предусматривающие применения сложных численных и логических методов.

Пакет программ, представленный в настоящем проекте, относится к степени В новизны разрабатываемой задачи. Сложность алгоритма решаемой задачи — 3.

Плановая прибыль на программу определяется по формуле

гдеС_пр — себестоимость программы, руб.,

Н_п — норма прибыли проектной организации (Н_п = 0.25).

Себестоимость программы определяется по формуле

гдеF — коэффициент накладных расходов проектной организации без учета эксплуатации ЭВМ (F = 1.15),

З_от — затраты на отладку программы.

Затраты на отладку программы определяются по формуле

гдеТ_отл — трудоемкость отладки программы, час. (Т_отл = 32).

Оптовая цена программы определяется по формуле

Ожидаемый годовой экономический эффект от сокращения ручного труда при обработке информации определяется по формуле

гдеЕ — коэффициент эффективности, равный ставке за кредиты на рынке долгосрочных кредитов (Е = 0.25).

Срок возврата инвестиций определяется по формуле

Результаты расчета сведены в табл. 7.2.

Таблица 7.2

Технико‑экономические показатели проекта

Разработанная «Обучающе-контролирующая система» обеспечивает получение годового экономического эффекта в сумме 2.952 млн. рублей. Прирост условной прибыли составляет 4.658 млн. рублей. При отпускной цене программы в 6.647 млн. рублей проект обеспечивает возврат инвестиций за 1.46 года.

ЗАКЛЮЧЕНИЕ

В результате дипломного проектирования разработана универсальная обучающе-контролирующая система, состоящая из следующих функциональных частей:

1. программа для создания и модификации тестов;

2. сервисная программа администрирования;

3. программа контроля знаний.

Разработанная универсальная обучающе-контролирующая система обладает следующими возможностями:

• создание на основе имеющихся баз знаний тестов по различным предметам;

• модификация созданных тестов;

• формирование билетов;

• задание времени ответа на вопросы билета;

• задание системы оценки результатов тестирования;

• контроль знаний обучаемых посредством тестирования;

• возможность работы системы в ЛВС;

• просмотр и распечатка результатов (протокола) тестирования на принтере

и может быть использована в учебном процессе преподавателями вузов, техникумов и средних школ.

Перспективным направлением дальнейших разработок по проблематике обучающе-контролирующих систем может служить применение в таких системах OLE и мультимедиа технологий.

Все задачи, поставленные при постановке задания, выполнены. Проведенный расчет говорит о экономической целесообразности разработки системы и возможности использования ее в учебном процессе.

Приложение 1

ТЕКСТ ПРОГРАММЫ TESTBUILDER

program TestBuilder;

uses

Forms,

S2 in 'S2.PAS' {TreeForm},

db_unit in 'db_unit.pas' {EditForm},

addtema in 'addtema.pas' {WinEditTema},

progrInd in 'progrInd.pas' {ProcessForm};

{$R *.RES}

begin

Application.Title:= 'TestBuilder';

Application.CreateForm(TTreeForm, TreeForm);

Application.CreateForm(TEditForm, EditForm);

Application.CreateForm(TWinEditTema, WinEditTema);

Application.CreateForm(TProcessForm, ProcessForm);

Application.Run;

end.

Текст модуля DB_Unit

unit S2;

interface

uses

SysUtils, WinTypes,{ Windows,} Messages, Classes, Graphics, Controls,

Forms, Dialogs, Buttons, StdCtrls, Grids, Outline, ComCtrls, DBCtrls,

DBTables, DB;

type

TTreeForm = class(TForm)

MainTree: TOutline;

AddDocBut: TSpeedButton;

DeleteBut: TSpeedButton;

FullExpBut: TSpeedButton;

FullColBut: TSpeedButton;

ExitBut: TSpeedButton;

AddTemaBut: TSpeedButton;

TemaSource: TDataSource;

QuestSource: TDataSource;

DBTema: TTable;

DBTemaTema_id: TAutoIncField;

DBTemaTema_name: TStringField;

DBQuest: TTable;

DBQuestTema_id: TIntegerField;

DBQuestQuest_id: TAutoIncField;

DBQuestQuest_name: TMemoField;

procedure AddDocButClick(Sender: TObject);

procedure MainTreeClick(Sender: TObject);

procedure DeleteButClick(Sender: TObject);

procedure FullExpButClick(Sender: TObject);

procedure FullColButClick(Sender: TObject);

procedure ExitButClick(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure AddTemaButClick(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure FormResize(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure AppendQuestion(temaId: longint);

procedure ClearQuestion;

private

{ Private declarations }

x1,x2: integer; {вспомогательные переменные}

CreateMainForm: boolean;

public

{ Public declarations }

end;

var

TreeForm: TTreeForm;

implementation

uses db_unit, addtema, progrInd;

{$R *.DFM}

procedure TTreeForm.AddDocButClick(Sender: TObject);

var

Nodename: string;

number,ind,docindex: longint;

begin

If MainTree.Items[MainTree.SelectedItem].Level = 1 then Exit;

If MainTree.Items[MainTree.SelectedItem].Level = 2 then {в NUMBER заносится номер темы }

begin

number:= longint(MainTree.Items[MainTree.SelectedItem].Data);{в NUMBER заносится номер темы}

ind:= MainTree.SelectedItem;

end

else

begin

number:= longint(MainTree[MainTree.SelectedItem].Parent.Data);

ind:= MainTree[MainTree.SelectedItem].Parent.Index;

end;

AppendQuestion(number); {добавление нового вопроса в БД вопросов}

With MainTree.Items[ind] do

If HasItems then number:= GetLastChild - GetFirstChild + 2 {определение числа потомков + 2}

else number:= 1;

Str(number,Nodename); {номер вопроса в теме}

Характеристики

Список файлов ВКР