Программная ошибка - ситуация, когда программа не делает того, чего пользователь от неё вполне обоснованно ожидает.
4. Руководство оператора
Программный продукт разработан для ведения электронного журнала.Так же в программе присутствует расписание, где каждый пользователь может ознакомится с текущим расписанием. Интерфейс программы простой и понятный и любой пользователь сможет в ней разобраться.
4.1 Выполнение программы
Чтобы загрузить программу «ИДПО ОГАУ» необходимо скопировать файлы с носителя информации на компьютер пользователя. После чего установить исполнимый файл IDPO.exe. Чтобы запустить рабочую программу на выполнение необходимо двойным щелчком кликнуть по иконке exe файла (по желанию можно создать ярлык на рабочем столе для более быстрого запуска). Интерфейс программы оформлен в обычном классическом стиле, как и многие другие программы ОС Windows. Поэтому с этой программой справится любой пользователь, который хоть немного работал на ПК. Запустив файл .exe, на экране появится главное окно программы. Для того чтобы начать работу, нужно выбрать необходимый пункт меню (журнал, расписание, помощь.)
Главное окно программы представлено на рисунке 14.
Рисунок 14 - Главное окно программы
Если работающему с программой сотруднику необходимо открыть отчёт и просмотреть данные продукции, тогда необходимо кликнуть по кнопке «Журнал» (см. рисунок 14 ).
Окно «Заполнение» представлено на рисунке 15.
Рисунок 15 - Ввод данных о пройденных занятиях
После ввода всех полей и нажатия кнопки «Заполнить» вся введенная информация сохраняется в специальном файле отчёта с расширением «.txt».
Информация о расписании звонков представлено на рисунке 16.
Рисунок 16 - Расписание звонков
Информация о расписании факультета финансы на рисунке 17.
Рисунок 17 - Расписание факультета финансы
Информация о расписании факультета экономика на рисунке 18.
Рисунок 18 - Расписание факультета экономика и управление
Информация о расписании факультета юриспруденция на рисунке 19.
Рисунок 19 - Расписание факультета юриспруденция
Информация о нас представлена на рисунке 20.
Рисунок 20 - Информация о нас
Информация о программе представлена на рисунке 22.
Рисунок 22 - Информация о программе
4.2 Сообщение оператору
При закрытии программы выводится сообщение, представленное на рисунке 23.
Рисунок 23 - Сообщение, возникающее при закрытии приложения
Заключение
За время выполнения курсовой работы были закреплены знания о языке программирования Delphi, полученные на теоретических курсах трпп, ппп, информационных технологиях, а так же на других предметах. Вспомнили, как работать с дополнительной литературой, выбирать только нужный материал. Освоили технику проектирования программных продуктов и применили её на практике.
При разработке программного продукта не мало важным критерием является мощность компьютера, на котором выполняется работа, от этого зависят сроки выполнения работы, потому что, чем быстрее машина выполняет все операции, тем быстрее будет получен нужный итог. При разработке программы так же необходимо учитывать в какой информационной среде и на какой мощности компьютера будет работать данная программа, необходимо учитывать возможности и потребности людей, которые будут основными пользователями разрабатываемой программы.
Разработанный программный продукт предназначен для облегчения работы учителей «Кулагинская СОШ». Под работой понимается просмотр электронного журнала, а так же заполнение журнала, наличие расписания занятий и звонков . Просмотр педагогического состава школы. Программный продукт имеет простой и понятный интерфейс, удовлетворяющий всем эргономическим требованиям.
Список использованных источников
1)Рудаков, А.В. Технология разработки программных продуктов: учебное пособие [Текст] /Рудаков А.В. - М.: ACADEMA, 2010.-207 с.(Среднее профессиональное образование)
2)Макарова, Н.В. Информатика: учебник /Н.В.Макарова -М.: Финансы и статистика, 2004.-767с.
3)Гофман В.Э. Delphi: Руководство программиста /В.Э.Гофман -СПб.: БХВ-Петербург, 2005.-1152с.
4)Семагин И.Г. Основы программирования /И.Г.Семагин, А.П.Шестаков. -М.: Академия, 2014. -385 c.
)Попов В.Б. TURBO PASCAL для школьников /В.Б.Попов -М.: Финансы и статистика, 2011. -518 c.
)Житкова О.А.Справочные материалы по программированию на языке Паскаль /О.А.Житкова, Е.К.Кудрявцева-М. Интеллект-центр, 2002. -77 с.
7)Меженный О.А. TURBO PASCAL. Учитесь программировать /О.А.Меженный. -М.: Диалектика, 2011.-88 с.
)Фаронов В.В. TURBO PASCAL 7.0 /В.В.Фаронов. -М.: Нолидж, 2014. -312 с.
Приложение
Текст программы
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3},
Unit4 in 'Unit4.pas' {Form4},
Unit5 in 'Unit5.pas' {Form5},
Unit6 in 'Unit6.pas' {Form6},
Unit7 in 'Unit7.pas' {Form7},
Unit8 in 'Unit8.pas' {Form8},
Unit9 in 'Unit9.pas' {Form9},
Unit10 in 'Unit10.pas' {Form10},
Unit11 in 'Unit11.pas' {Form11},
Unit12 in 'Unit12.pas' {Form12};
{$R *.res}
Application.Initialize;
Form1:=TForm1.Create(Application);
Form1.Show; Form1.Update;
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm4, Form4);
Application.CreateForm(TForm5, Form5);
Application.CreateForm(TForm6, Form6);
Application.CreateForm(TForm7, Form7);
Application.CreateForm(TForm8, Form8);
Application.CreateForm(TForm9, Form9);
Application.CreateForm(TForm10, Form10);
Application.CreateForm(TForm11, Form11);
Application.CreateForm(TForm12, Form12);
Form1.Hide; Form1.Free;
Application.Run;.Unit1;
Dialogs, jpeg, ExtCtrls;
TForm1 = class(TForm)
Image1: TImage;
private
{ Private declarations }
public
{ Public declarations }
end;
Form1: TForm1;
{$R *.dfm}
.Unit2;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, jpeg, ExtCtrls;
TForm2 = class(TForm)
MainMenu1: TMainMenu;
Image1: TImage;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form2: TForm2;
Unit3, Unit4, Unit5, Unit6, Unit8, Unit7, Unit9, Unit10, Unit11,
Unit12;
{$R *.dfm}
TForm2.FormCreate(Sender: TObject);t:longint;:=GetTickCount div 2000;(GetTickCount div 2000)< t+5 do;;
TForm2.N2Click(Sender: TObject);.Show;;
TForm2.N5Click(Sender: TObject);.Show;;
TForm2.N13Click(Sender: TObject);.Show;;
TForm2.N11Click(Sender: TObject);.show;;
TForm2.N12Click(Sender: TObject);.show;;
TForm2.N9Click(Sender: TObject);.Show;;
TForm2.N6Click(Sender: TObject);.show;;
TForm2.N7Click(Sender: TObject);.show;;
TForm2.N8Click(Sender: TObject);.show;;
.Unit3;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
TForm3 = class(TForm)
Label1: TLabel;
ComboBox2: TComboBox;
Label2: TLabel;
ComboBox1: TComboBox;
Label3: TLabel;
DateTimePicker1: TDateTimePicker;
Label4: TLabel;
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Label5: TLabel;
ComboBox3: TComboBox;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form3: TForm3;
f:textFile;
{$R *.dfm}
TForm3.Button2Click(Sender: TObject);;;
TForm3.Button1Click(Sender: TObject);
{ if OpenDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName); }
assignFile(f,ExtractFilePath(Application.ExeName)+'\'+combobox1.Text+'.txt');
append(f);
writeln(f,dateTimePicker1.date);
writeln(f,combobox2.text);
writeln(f,combobox3.text);
writeln(f,memo1.text);
closefile(f);
;
.Unit4;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
TForm4 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form4: TForm4;
{$R *.dfm}
TForm4.Button1Click(Sender: TObject);;;
.Unit5;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;
TForm5 = class(TForm)
Button1: TButton;
Image1: TImage;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form5: TForm5;
{$R *.dfm}
TForm5.Button1Click(Sender: TObject);;;
.Unit6;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
TForm6 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
Form6: TForm6;
{$R *.dfm}
.Unit7;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
TForm7 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
Form7: TForm7;
{$R *.dfm}
.Unit8;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;
TForm8 = class(TForm)
Image1: TImage;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form8: TForm8;
{$R *.dfm}
TForm8.Button1Click(Sender: TObject);;;
.Unit9;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
TForm9 = class(TForm)
Memo1: TMemo;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
RadioButton7: TRadioButton;
RadioButton8: TRadioButton;
RadioButton9: TRadioButton;
RadioButton10: TRadioButton;
RadioButton11: TRadioButton;
procedure k(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure RadioButton4Click(Sender: TObject);
procedure RadioButton5Click(Sender: TObject);
procedure RadioButton6Click(Sender: TObject);
procedure RadioButton7Click(Sender: TObject);
procedure RadioButton8Click(Sender: TObject);
procedure RadioButton9Click(Sender: TObject);
procedure RadioButton10Click(Sender: TObject);
procedure RadioButton11Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form9: TForm9;
{$R *.dfm}
TForm9.k(Sender: TObject);.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'1.txt');;
TForm9.RadioButton2Click(Sender: TObject);.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'2.txt');;
TForm9.RadioButton3Click(Sender: TObject);.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'3.txt');;
TForm9.RadioButton4Click(Sender: TObject);.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'4.txt');;
TForm9.RadioButton5Click(Sender: TObject);.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'5.txt');;
TForm9.RadioButton6Click(Sender: TObject);.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'6.txt');;
TForm9.RadioButton7Click(Sender: TObject);.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'7.txt');;
TForm9.RadioButton8Click(Sender: TObject);.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'8.txt');;
TForm9.RadioButton9Click(Sender: TObject);.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'9.txt');;
TForm9.RadioButton10Click(Sender: TObject);.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'10.txt');;
TForm9.RadioButton11Click(Sender: TObject);.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'11.txt');;
.Unit10;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
TForm10 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
private
{ Private declarations }
public
{ Public declarations }
end;
Form10: TForm10;
{$R *.dfm}
.Unit11;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
TForm11 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
private
{ Private declarations }
public
{ Public declarations }
end;
Form11: TForm11;
{$R *.dfm}
.Unit12;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
TForm12 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
Form12: TForm12;
{$R *.dfm}
.