3.6.1 Описание проблемной программы (блок - схема)
Редактор
Уроков
Шаблоны
Добавить узел
Выбор шаблона
Добавить подузел
Удалить узел
Загрузить RTF-файл
Сохранить документ
4 Организация производства
4.1 Комплекс технических средств, необходимый для решения задачи
Данная программа может работать в среде операционных систем Windows 8.1, Windows 8, Windows 7, Windows XP. Особых требований, по современным меркам, к ресурсам компьютера пакет не предъявляет: процессор PentiumIV или Celeron с тактовой частотой не ниже 180 МГц, оперативной памяти - 265 Мбайт, место на жестком диске 15 МБ. Стандартные монитор, поддерживающий до 32 бит цвета (68000 цветов).
Программа выполнена в среде объектно-ориентированного программирования Delphi7.
4.2 Инструкция пользователю по работе с программой
Данная инструкция позволит познакомить пользователя с подробностями работы программы.
При запуске программы перед пользователем появляется главное окно приложение.
Данная форма позволяет заполнить необходимые данные для заполнение электронного учебника.
5 Заключение
В настоящем курсовом проекте была рассмотрена немаловажная тема: «Приложение для разработки электронного учебника». Проработав данный материал можно отметить, что предложенная тема актуальна в настоящее время. Каждый день человек сталкивается с получением, накоплением и обработкой информации. Разнообразная по своему значению информация, зафиксированная на специальных носителях, значительно облегчает работу человека.
Разработанная программа моего курсового проекта и является таковой. Можно сказать, что все задачи поставленной работы выполнены успешно.
Я надеюсь, что разработанное мною пособие будет пользоваться спросом среди преподавателей.
6 Приложение (листинг программы)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, sSkinManager, StdCtrls, sButton, OleCtrls, SHDocVw, sGroupBox,
Menus, ComCtrls, xmldom, XMLIntf, msxmldom, XMLDoc, ImgList;
type
TForm1 = class(TForm)
sButton1: TsButton;
sSkinManager1: TsSkinManager;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
TreeView1: TTreeView;
N6: TMenuItem;
N7: TMenuItem;
XMLDocument1: TXMLDocument;
ImageList1: TImageList;
PopupMenu1: TPopupMenu;
sadddd1: TMenuItem;
N8: TMenuItem;
RichEdit1: TRichEdit;
procedure sButton1Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure sadddd1Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4;
{$R *.dfm}
procedure TForm1.sButton1Click(Sender: TObject);
begin
Form2.Show;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
Form3.Show;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
Form4.Show;
end;
procedure TForm1.sadddd1Click(Sender: TObject);
begin
Form3.Show;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
Form4.Show;
end;
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, sButton, sComboBox;
type
TForm2 = class(TForm)
sComboBox1: TsComboBox;
sButton1: TsButton;
procedure sButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm2.sButton1Click(Sender: TObject);
begin
if (sComboBox1.Text = 'Opus') then
begin
Form1.sSkinManager1.SkinName := 'Opus';
Close;
end
else if (sComboBox1.Text = 'Перспектива') then
begin
Form1.sSkinManager1.SkinName := 'Vista';
Close;
end
else if (sComboBox1.Text = 'Воздушный') then
begin
Form1.sSkinManager1.SkinName := 'Air';
Close;
end
else if (sComboBox1.Text = 'Ретро') then
begin
Form1.sSkinManager1.SkinName := 'Retro';
Close;
end
else if (sComboBox1.Text = 'Черный') then
begin
Form1.sSkinManager1.SkinName := 'Cold';
Close;
end
else if (sComboBox1.Text = 'Золотистый') then
begin
Form1.sSkinManager1.SkinName := 'Golden';
Close;
end
else if (sComboBox1.Text = 'Энергия') then
begin
Form1.sSkinManager1.SkinName := 'Steam';
Close;
end
else if (sComboBox1.Text = 'Песочный') then
begin
Form1.sSkinManager1.SkinName := 'Sand';
Close;
end
else if (sComboBox1.Text = 'Синий') then
begin
Form1.sSkinManager1.SkinName := 'Acryl';
Close;
end
else if (sComboBox1.Text = 'Элегант') then
begin
Form1.sSkinManager1.SkinName :='Elegant';
Close;
end
else if (sComboBox1.Text ='Desert') then
begin
Form1.sSkinManager1.SkinName :='Desert';
Close;
end
else if (sComboBox1.Text = 'Vienna') then
begin
Form1.sSkinManager1.SkinName :='Vienna';
Close;
end
else if (sComboBox1.Text = 'Дымчатый') then
begin
Form1.sSkinManager1.SkinName :='Smoky';
Close;
end
else if (sComboBox1.Text = 'Pulsar') then
begin
Form1.sSkinManager1.SkinName :='Pulsar';
Close;
end
else if (sComboBox1.Text = 'Neutral') then
begin
Form1.sSkinManager1.SkinName :='Neutral';
Close;
end
else
begin
MessageBox(0, 'Выберите действительный скин!', 'Ошибка', MB_ICONERROR);
Close;
end;
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm3 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm3.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
Form1.TreeView1.Items.AddChild(nil,Form3.Edit1.Text);
Form3.Edit1.Text := '';
Form3.Close;
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ImgList;
type
TForm4 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Edit2: TEdit;
Label2: TLabel;
Edit3: TEdit;
Label4: TLabel;
Button1: TButton;
Button2: TButton;
OpenDialog1: TOpenDialog;
Button3: TButton;
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
FName: string;
implementation
uses Unit1, Unit3;
{$R *.dfm}
procedure TForm4.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TForm4.Button3Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Form1.RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
end.