Разработка приложения "Базовые логические операции"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
Вµ нормы доходности изображено на рисунке 8.
Рисунок 8 Внутренняя норма доходности
Проект эффективен.
Заключение
Программа Базовые логические операции полностью соответствует требованиям, рассмотренным в пункте 1.1.1 Постановка задачи. Выходные данные полностью удовлетворяют целям и потребностям задачи. Они могут представляться в виде текстовых документов Word, которые могут быть распечатаны.
iелью повышения надежности разрабатываемой программы был применен метод защитного программирования, что обеспечивает своевременную реакцию на аномалии и не приводит к аварийному завершению работы с программой. Был обеспечен программный контроль.
Программа рассчитана на эксплуатацию в течение длительного времени, поэтому она написана с учетом того, что со временем в ее функции или исходные данные могут быть внесены изменения.
При работе программы обеспечено выполнение всех заданных режимов.
Программа прошла тестирование и получила хороший результат.
программа тестирование пользователь эффективность экономический
Литература
1. Аширова Н.Г Конспект лекций по диiиплине Технология разработки программных продуктов Математический колледж г. Москва, 2010 год.
. Информация с сайта
. Экономика для колледжей. Базовый курс / Озерова О. П. - Ростов-на-Дону: Феникс, 2005;
. Экономический анализ предприятия. Учебник / Прыкина Л. В.: Юнити, 2006;
. Delphi 6. Учебный курс. - М.: Издатель Молгачева С.В., 2003. - 672 с., ил.
. Microsoft Word. Версия 2002. Шаг за шагом: Практ.пособ./Пер.с анг.-М.: издательствоЭКОМ, 2004.-336с.: илл.
. Катюшина В.А Конспект лекций диiиплине Пакеты прикладных программ. Математический колледж г. Москва, 2011 год.
Приложение А
Рисунок 1 Иерархическая структура программы.
Рисунок 2 граф тестирования программы
Таблица 3 Аномальные ситуации и реакция на них программы.
Аномальные ситуацииРеакция программы Отсутствие информации в полях добавленияВыдается сообщение: Поля должны быть заполнены и ожидается заполенение полейПовторная попытка выбора варианта или проверки вариантаВыдается сообщение: Вариант уже выбран или Оценка уже получена и ожидается исправление замечания Ввод текста в числовое полеВыдается сообщение: Ввод только 0 и 1 и ожидается исправление замечания Не выбрана одна или более операций над функциямиВыдается сообщение: Заполните все операции 3 функции и ожидается исправления замечанияТаблица 4 Результаты тестирования программы
№Входные данныеОжидаемый результатАномалия1Правильное значениенормальная работаНет2Отсутствие нужного значенияпереход на пустое полеДа3Отсутствие ненужного значениянормальная работаНет4Некорректные значенияблокировка вводаДа
Приложение Б
Входные формы приложения
Общая входная форма
Входная форма для преподавателя
Входная форма для студента
Форма для выбора действия преподавателя
Форма создания новой группы
Форма редактирования группы
Форма просмотра группы
Форма создания функций для домашнего задания
Форма для выбора действий студенту
Форма получения домашнего задания
Форма получения домашнего задания
Приложение В
Выходные формы
Форма после входа преподавателя
Форма создания новой группы
Форма редактирования группы
Форма просмотра группы
Форма входа студента
Вывод оценки студенту после проверки домашнего задания
Приложение Г
Листинг программы (Unit1).
unit Unit1;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, ExtCtrls, jpeg;
TForm1 = class(TForm)
Edit1: TEdit;
Label2: TLabel;
Label3: TLabel;
Button2: TButton;
ComboBox1: TComboBox;
MaskEdit1: TMaskEdit;
Panel1: TPanel;
Panel2: TPanel;
Label4: TLabel;
Label5: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Image1: TImage;
procedure Button2Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form1: TForm1;Unit2, Unit3, Unit4, Unit5, Unit6;
{$R *.dfm}TForm1.Button2Click(Sender: TObject);
s:string;
sl: TStringList;
i: integer;
b: boolean;
begin
s:=ComboBox1.Items[ComboBox1.ItemIndex];
if s = Преподаватель then
begin
if (edit1.Text=) or (MaskEdit1.text=) then
ShowMessage(Введите Фамилию и/или Пароль!)
else
begin
sl := TStringList.Create;
sl.LoadFromFile( spiski\prep.txt );
for i := 0 to sl.Count-1 do
0then"> if Pos( Edit1.Text, sl[i] ) > 0 then
0then"> if Pos( MaskEdit1.Text, sl[i+1] ) > 0 then
begin
form6.Show;
form6.label1.caption:=Edit1.Text;
end
else
ShowMessage(Неверно введен логин и/или пароль!!!);
sl.Free; end; end;
if s = Студент then
begin
if (edit2.Text=) or (edit3.text=) then
ShowMessage(Введите Фамилию и/или Группу!)
else
begin
if FileExists(spiski\+Edit3.Text+.txt) then
begin
b:=false;
sl := TStringList.Create;
sl.LoadFromFile( spiski\+Edit3.Text+.txt );
for i := 0 to sl.Count-1 do
0then"> if Pos( Edit2.Text, sl[i] ) > 0 then
begin
form4.label1.caption:=Edit2.Text;
form4.label2.caption:=Edit3.Text;
form5.Show;
b:=true;
break;
end;
if not b then
ShowMessage(Неверно введена фамилия и/или группа);
sl.Free;
end
else
Begin
ShowMessage(Неправильно введен № группы!);