 ПОЗНАВАТЕЛЬНОЕ
| Постановка проблемной программы (процедуры) 12
При выполнение курсвого проекта возникли проблемы по созданию экспорта заполненных данных в компонент «Memo». Для экспорта данных мною был использован компонент Memo, при помощи этого компонента выводило данные с RTF-файла, но данные выводило в не правильном виде. В этом заключалась проблемная процедура программы. Для решения проблемы необходимо было ввести изменения в компонентах программы.
3.6.1 Описание проблемной программы (блок - схема)
ОРГАНИЗАЦИЯ ПРОИЗВОДСТВА 4.1Комплекс технических средств, необходимый для решения задачи Данная программа может работать в среде операционных систем Windows 8.1, Windows 8, Windows 7, Windows XP. Особых требований, по современным меркам, к ресурсам компьютера пакет не предъявляет: процессор PentiumIV или Celeron с тактовой частотой не ниже 180 МГц, оперативной памяти - 265 Мбайт, место на жестком диске 15 МБ. Стандартные монитор, поддерживающий до 32 бит цвета (68000 цветов). Программа выполнена в среде объектно-ориентированного программирования Delphi7.
4.2 Инструкция пользователю по работе с программой Данная инструкция позволит познакомить пользователя с подробностями работы программы. При запуске программы перед пользователем появляется главное окно приложение.
Данная форма позволяет заполнить необходимые данные для заполнение электронного учебника.
ЗАКЛЮЧЕНИЕ В настоящем курсовом проекте была рассмотрена немаловажная тема: «Приложение для разработки электронного учебника». Проработав данный материал можно отметить, что предложенная тема актуальна в настоящее время. Каждый день человек сталкивается с получением, накоплением и обработкой информации. Разнообразная по своему значению информация, зафиксированная на специальных носителях, значительно облегчает работу человека. Разработанная программа моего курсового проекта и является таковой. Можно сказать, что все задачи поставленной работы выполнены успешно. Я надеюсь, что разработанное мною пособие будет пользоваться спросом среди преподавателей.
ПРИЛОЖЕНИЕ (ЛИСТИНГ ПРОГРАММЫ)
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.
12 |
