Министерство общего и профессионального образования Ростовской области
ГБПОУ РО «ВПК им. М. А. Шолохова»
Пояснительная записка
к выпускной квалификационной работе в форме проекта
по ПМ.03 «Участие в интеграции программных модулей»
на тему
Реализация функции простого текстового редактора в среде программирования Delphi 7
Выполнил
Спицын Виктор Павлович
Форма обучения – очная,
IV курс, группа Б _____________________
(подпись)
Специальность: 09.02.03 Программирование в компьютерных системах
Руководитель:
Никонов Николай Иванович
(подпись)
«___»__________________ 2015 г.
Ст-ца Вёшенская 2015
Содержание
1 Введение 3
2 Теоретическое обоснование проекта «Реализация функции простого текстового редактора» 5
2.1 Описание возможностей и формализация задачи в среде программирования Delphi7 5
2.2 Алгоритм создания программы «Простой текстовый редактор» и его описание блок-схемой 7
10
2.3 План отладки программы 10
2.4 Инструкция по работе с программой 12
3 Заключение 15
4 Список использованной литературы 17
Приложение А 18
Блок-схема 18
Приложение Б 19
Программный код 19
Приложение В 29
Программный продукт на CD- диске 29
1 Введение
Актуальность данной темы заключается в том, что практически каждый пользователь компьютера встречается с необходимостью подготовки тех или иных документов — писем, статей, служебных записок, отчетов, рекламных материалов и т.д. Рассмотрение вопросов связанных с данной тематикой носит как теоретическую, так и практическую значимость. Разработка простого текстового редактора имеет профессиональную значимость для формирования компетентного специалиста. Опыт создания текстового редактора позволяет более глубоко изучить возможности среды программирования и создавать собственные программные продукты.
Объектом исследования является среда программирования Delphi7.
Предмет работы – простой текстовый редактор.
Цель: разработать простой текстовый редактор в среде программирования Delphi7.
Для достижения цели поставлены следующие задачи:
Изучить возможности и формализовать задачи среды программирования Delphi7;
Создать алгоритм программы и блок-схему;
Провести отладку программы;
Записать инструкцию по работе с программой.
Методы исследовательской работы для разработки текстового редактора: анализ, синтез полученных данных, моделирование, перевод программного кода, тестирование, отладка, корректировка.
Задание выполнено в форме дипломного проекта, что и определило ее структуру: Пояснительная записка (введение, обоснование проекта, заключение, список использованной литературы), программный продукт на CD диске.
В ходе работы над темой использовались: учебная и учебно-методическая литература, справочно-энциклопедическая литература, ресурсы сети Интернет.
Практическая значимость определяется возможностями использования созданного программного продукта, как в профессиональной деятельности, так и в качестве учебного пособия на уроках Информатики и ИКТ, а также с выполнением задач связанных с созданием текстовых документов.
2 Теоретическое обоснование проекта «Реализация функции простого текстового редактора»
2.1 Описание возможностей и формализация задачи в среде программирования Delphi7
Delphi - это объектно-ориентированная среда для визуального проектирования Windows приложений с развитыми механизмами повторного использования программного кода. Интерфейс Windows обеспечивает полное перенесение CASE-технологий в интегрированную систему поддержки работ по созданию прикладной системы на всех фазах жизненного цикла работы и проектирования системы.
Delphi7 обладает широким набором возможностей, начиная от проектировщика форм и заканчивая поддержкой всех форматов популярных баз данных. Среда устраняет необходимость программировать такие компоненты Windows общего назначения, как метки, пиктограммы и даже диалоговые панели. Работая в Windows , можно видеть одинаковые “объекты” во многих разнообразных приложениях. Диалоговые панели (например, ChooseFile и SaveFile) являются примерами многократно используемых компонентов, встроенных непосредственно в Delphi7, который позволяет приспособить эти компоненты к имеющийся задаче, чтобы они работали именно так, как требуется создаваемому приложению. Также здесь имеются предварительно определенные визуальные и не визуальные объекты, включая кнопки, объекты с данными, меню и уже построенные диалоговые панели. С помощью этих объектов можно, например, обеспечить ввод данных просто несколькими нажатиями кнопок мыши, не прибегая к программированию. Это наглядная реализация применений CASE-технологий в современном программировании приложений. Та часть, которая непосредственно связана с программированием интерфейса пользователя системой, получила название визуальное программирование.
Для хранения данных в программе используются глобальные переменные типа string (символьные), integer (целые).
Основными составными частями среды программирования являются:
Дизайнер Форм (FormDesigner)
Окно Редактора Исходного Текста (EditorWindow)
Палитра Компонент (ComponentPalette)
Инспектор Объектов (ObjectInspector)
Справочник (On-linehelp)
Дизайнер Форм применяется для создания визуального интерфейса программы.
Окно Редактора Исходного Текста предназначено для создания и изменения текста программного продукта.
Палитра Компонент позволяет выбрать нужные объекты для размещения на Дизайн Форм.
Инспектор Объектов состоит из двух страниц:
Список свойств;
Список событий.
Справочник используется для получения соответствующей подсказки в определенной ситуации.
Для создания простого текстового редактора необходимы стандартные компоненты:
TPanel - управляющий элемент, использующийся в декоративных целях. Применяется для создания панели общего назначения.
TComboBox - представляет собой вариант списка с присоединенным дополнительным полем, в котором отображается выбранный элемент.
TStatusBar - представляет собой ряд панелей, отображающих информацию о состоянии программы или файла, используемого в данный момент.
TWebBrowser - используется в качестве средства для просмотра данных в формате HTML.
Простой текстовый редактор - это прикладная программа, позволяющая создавать текстовые документы, редактировать их, просматривать содержимое документа на экране, а так же распечатывать документ.
Требования к программной области
Создавать новый файл;
Сохранить текст в файл;
Открыть файл (загрузить текст из файла в оперативную память);
Печать текстового файла.
Данный программный продукт должен быть совместим с операционной средой Windows.
С помощью моделирования на современных многофункциональных средствах обработки и отображения информации, таких как Delphi7 конкретизировать тип и характеристики используемых информационных моделей, выявить основные особенности будущей деятельности операторов, сформулировать требования к параметрам аппаратно-программных средств интерфейса взаимодействия и так далее.
Итак, Delphi7 обладает широким набором возможностей, начиная от проектировщика форм и заканчивая поддержкой всех форматов популярных баз данных. Одним из главных преимуществ данной среды программирования является возможность создания программного продукта визуально. Используя возможности Delphi7 легко разработать «Простой текстовый редактор», обладающий следующими действиями: создание, сохранение, открытие и печать текстового файла.
2.2 Алгоритм создания программы «Простой текстовый редактор» и его описание блок-схемой
Разработка программного продукта - это процесс, направленный на создание и поддержание работоспособности, качества и надежности программного обеспечения.
Алгоритм создания программного продукта «Простого текстового редактора»:
Постановка задачи;
Формулировка и анализ физической задачи;
Составление математической модели;
Составление алгоритма задачи;
Создание программы;
Составление текста программы;
Ввод текста программы в компьютер;
Синтаксическая отладка программы;
Тестирование и семантическая отладка;
С помощью процедуры New1Click мы создаем новый текстовый документ с расширением *.txt.
С помощью процедуры Open1Click вы можете открыть имеющийся файл.
С помощью процедуры Save1Click вы можете сохранить созданный или отредактированный вами файл.
С помощью процедуры Print1Click производится отправка файла на печать.
С помощью процедуры Cut1Click вы можете вырезать выделенный текст.
С помощью процедуры Copy1Click производится копирование выделенного текста.
С помощью процедуры Paste1Clikc производится вставка ранее скопированного текста.
С помощью процедуры Find1Click производится поиск слова в тексте.
С помощью процедуры SaveAs1Click производится сохранение файла в выбранную вами директорию с выбранным расширением.
С помощью процедуры N6Click выводится сообщение о создателе данного текстового редактора.
Запуск готовой программы и анализ полученных результатов;
Документирование программы.
Простой текстовый редактор, разрабатываемый в среде программирования Delphi7, на компоненте «Блокнот», позволит разработать программное обеспечение для создания текстовых документов, редактировать их, просматривать содержимое, распечатывать.
Итак, алгоритм создания программного продукта - текстового редактора включает в себя все обязательные этапы разработки и создания технической документации любого программного продукта.
2.3 План отладки программы
Успешное завершение процесса компиляции не означает, что в программе нет ошибок. Убедиться, что программа работает правильно можно только в процессе проверки ее работоспособности, который называется тестирование.
Обычно программа редко сразу начинает работать так, как надо, или работает правильно только на некотором ограниченном наборе исходных данных. Это свидетельствует о том, что в программе есть алгоритмические ошибки. Процесс поиска и устранение ошибок называется отладкой.
Рисунок 1 - Алгоритм отладки программы
Ошибки, которые могут быть в программе, принято делить на три группы:
синтаксические;
ошибки времени выполнения;
алгоритмические.
После возникновения ошибки программист может либо прервать выполнение программы, для этого надо из меню Run выбрать команду Program Reset, либо продолжить ее выполнение, например, по шагам (для этого из меню Run надо выбрать команду Step), наблюдая результат выполнения каждой инструкции.
Итак, процесс поиска и устранение ошибок производится согласно алгоритму, в результате выполнения которого программа становится работоспособной.
2.4 Инструкция по работе с программой
Данная программа предназначена для работы с текстом.
Для начала работы нужно запустить исполнимый файл Блокнот.exe.
Рисунок 2 - Окно простого текстового редактора
После запуска программы в разделе меню Файл можно создать новый документ, открыть имеющийся, сохранить отредактированный документ, изменить расширение файла, отправить на печать и выйти из программы .
Рисунок 3 - Меню «Файл»
В разделе меню Правка можно отменить совершенные действия, вырезать выделенный текст, копировать текст либо вставить. Так же имеется функция поиска и поиска с заменой текста.
Рисунок 4 – Меню «Правка»
В разделе меню Вид можно изменить шрифт.
Рисунок 5 – Меню «Вид»
Рисунок 6 – Далоговое окно «Шрифт»
В разделе Помощь указано имя разработчика.
Рисунок 7 – Меню «Помощь»
Так же все выше описанные функции имеются на панели быстрого доступа.
Рисунок 8 – Панель быстрого доступа
Таким образом, руководство пользователя содержит информацию, необходимую для выполнения работ, причем документы такого рода могут "встраиваться" в программный комплекс (т.н. Help — помощь в виде подсказки).
3 Заключение
Актуальность данной работы, обусловленная профессиональной значимостью формирования будущего компетентного специалиста в области информационных технологий, подтверждена.
Объектом исследования являлась среда программирования Delphi7.
Простой текстовый редактор являлся предметом проделанной работы.
В ходе проделанной работе была достигнута главная цель - разработка «Простого текстового редактора» в среде программирования Delphi7.
Для достижения цели были выполнены следующие задачи:
Изучить возможности и формализовать задачи среды программирования Delphi7;
Создать алгоритм программы и блок-схему;
Провести отладку программы;
Записать инструкцию по работе с программой.
В первом пункте теоретического обоснования в результате исследования было выявлено, что Delphi7 обладает широким набором возможностей, начиная от проектировщика форм и заканчивая поддержкой всех форматов популярных баз данных. Одним из главных преимуществ данной среды программирования является возможность создания программного продукта визуально. Используя возможности Delphi7 разработать «Простой текстовый редактор», который должен обладать следующими действиями: создание, сохранение, открытие и печать текстового файла.
Во втором пункте был создан алгоритм, который включает в себя все этапы разработки и создания технической документации программного продукта, а так же описание его блок-схемой.
В третьем пункте описан процесс поиска и устранение ошибок, который производится согласно алгоритму, в результате выполнения которого программа становится работоспособной.
В четвертом пункте теоретического обоснования разработано руководство пользователя, содержащее информацию, необходимую для выполнения работ, причем документы такого рода могут "встраиваться" в программный комплекс (т.н. Help — помощь в виде подсказки).
Таким образом, практическая значимость разработанного нами программного продукта в виде текстового редактора определяется возможностями использования самого программного продукта, как в профессиональной деятельности, так и в качестве учебного пособия на уроках Информатики и ИКТ, а также с выполнением профессиональных и бытовых задач, связанных с созданием текстовых документов.
4 Список использованной литературы
Бобровский С., Delphi 5: учебный курс, - СПб: Питер, 2001 – 640 с.
Карчевская М.П., Рамбургер О.Л., Тархов С.В., Хамзина Е.А., Разработка приложений в среде BorlandDelphi: лабораторный практикум по дисциплине "Информатика",- Уфа: УГАТУ, 2005.
Культин Н. Delphi в задачах и примерах//СПб.: БХВ-Петербург, 2007 – 288 с.
Культин Н.Б. - Основы программирования в Delphi 7, – СПб.: БХВ-Петербург, 2005
Михаэль, Э. Delphi 7: Руководство разработчика/Э Михаэль. – К.: BHV, 2000. – 301 с.
Семакин И.Г., Шестаков А.П. Основы программирования: учебник для среднего профессионального образования / М.: Академия, 2008 – 432 с
Симонович, С.В. Информатика: Базовый курс/ С.В Симонович. - СПб.: Питер, 1999.– 520с.
Сухарев - Основы Delphi. Профессиональный подход. – СПб.: Наука и Техника, 2004
Фаронов В. Delphi7: Учебный курс. – СПб: Питер, 2002.
Фленов - Библия Delphi. – СПб.: БХВ-Петербург, 2008 URL//http://softtutograf.com/node/4426
Чеснокова О.В., Delphi 2007. Алгоритмы и программы. Самоучитель. – М.: НТ Пресс, 2008 – 368 с. URL//http://www.livelib.ru/book/1000360096
Кэнту - Delphi 7 для профессионалов URL//http://rutracker.org/forum/viewtopic.php?t=838057
Приложение А Блок-схема
Блок-схема «Простого текстового редактора».
Приложение Б Программный код
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, XPMan, ToolWin, Menus, StdCtrls, ImgList,Printers;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
File1: TMenuItem;
Exit1: TMenuItem;
N1: TMenuItem;
PrintSetup1: TMenuItem;
Print1: TMenuItem;
N2: TMenuItem;
SaveAs1: TMenuItem;
Save1: TMenuItem;
Open1: TMenuItem;
New1: TMenuItem;
Edit1: TMenuItem;
Find1: TMenuItem;
N4: TMenuItem;
Paste1: TMenuItem;
Copy1: TMenuItem;
Cut1: TMenuItem;
N5: TMenuItem;
Undo1: TMenuItem;
View1: TMenuItem;
Font1: TMenuItem;
Help1: TMenuItem;
About1: TMenuItem;
ToolBar1: TToolBar;
XPManifest1: TXPManifest;
ToolButton1: TToolButton;
ToolButton3: TToolButton;
ToolButton5: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton2: TToolButton;
ToolButton4: TToolButton;
ToolButton6: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ImageList1: TImageList;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Memo1: TMemo;
FontDialog1: TFontDialog;
FindDialog1: TFindDialog;
PrinterSetupDialog1: TPrinterSetupDialog;
ReplaceDialog1: TReplaceDialog;
N3: TMenuItem;
FindDialog2: TFindDialog;
procedure Exit1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure New1Click(Sender: TObject);
procedure Open1Click(Sender: TObject);
procedure Save1Click(Sender: TObject);
procedure Print1Click(Sender: TObject);
procedure PrintSetup1Click(Sender: TObject);
procedure Undo1Click(Sender: TObject);
procedure Cut1Click(Sender: TObject);
procedure Copy1Click(Sender: TObject);
procedure Paste1Click(Sender: TObject);
procedure Font1Click(Sender: TObject);
procedure About1Click(Sender: TObject);
procedure FindDialog1Find(Sender: TObject);
procedure Find1Click(Sender: TObject);
procedure SaveAs1Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure ReplaceDialog1Replace(Sender: TObject);
procedure FindDialog2Find(Sender: TObject);
procedure Memo1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
FFileName:string;
PrgName:string;
FSelPos: integer;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Exit1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Caption:='Блокнот';
PrgName:=Caption;
end;
procedure TForm1.New1Click(Sender: TObject);
begin
Memo1.Lines.Clear;
FFileName:='Новый текстовый документ.txt';
Caption:=PrgName +' - '+FFileName;
end;
procedure TForm1.Open1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
FFileName:=OpenDialog1.FileName;
Caption:=PrgName+' - '+ FFileName;
end;
end;
procedure TForm1.Save1Click(Sender: TObject);
begin
Memo1.Lines.SaveToFile(FFileName);
end;
procedure TForm1.Print1Click(Sender: TObject);
var Line: Integer;
PrintText: System.Text;
begin
AssignPrn(PrintText);
Rewrite(PrintText);
Printer.Canvas.Font := Memo1.Font;
for Line := 0 to Memo1.Lines.Count - 1 do
Writeln(PrintText, Memo1.Lines[Line]);
System.Close(PrintText);
end;
procedure TForm1.PrintSetup1Click(Sender: TObject);
begin
PrinterSetupDialog1.Execute;
end;
procedure TForm1.Undo1Click(Sender: TObject);
begin
Memo1.Undo;
end;
procedure TForm1.Cut1Click(Sender: TObject);
begin
Memo1.CutToClipboard;
end;
procedure TForm1.Copy1Click(Sender: TObject);
begin
Memo1.CopyToClipboard;
end;
procedure TForm1.Paste1Click(Sender: TObject);
begin
Memo1.PasteFromClipboard;
end;
procedure TForm1.Font1Click(Sender: TObject);
begin
if FontDialog1.Execute then Memo1.Font:=FontDialog1.Font;
end;
procedure TForm1.About1Click(Sender: TObject);
begin
Form2.Visible:=true;
Form2.Caption:='О программе';
Form2.Label1.Caption:='Блокнот';
end;
procedure TForm1.FindDialog1Find(Sender: TObject);
var
S : string;
startpos : integer;
begin
with TFindDialog(Sender) do
begin
{If the stored position is 0 this cannot be a find next. }
if FSelPos = 0 then
Options := Options - [frFindNext];
{ Figure out where to start the search and get the corresponding
text from the memo. }
if frfindNext in Options then
begin
{ This is a find next, start after the end of the last found word. }
StartPos := FSelPos + Length(Findtext);
S := Copy(Memo1.Lines.Text, StartPos, MaxInt);
end
else
begin
{ This is a find first, start at the, well, start. }
S := Memo1.Lines.Text;
StartPos := 1;
end;
{ Perform a global case-sensitive search for FindText in S }
FSelPos := Pos(FindText, S);
if FSelPos > 0 then
begin
{ Found something, correct position for the location of the start
of search. }
FSelPos := FSelPos + StartPos - 1;
Memo1.SelStart := FSelPos - 1;
Memo1.SelLength := Length(FindText);
Memo1.SetFocus;
end
else
begin
{ No joy, show a message. }
if frfindNext in Options then
S := Concat('Не удается найти "', FindText,
'" в тексте.')
else
S := Concat('Запрашиваемое слово не наидено "', FindText, '" в тексте.');
MessageDlg(S, mtError, [mbOK], 0);
end;
end;
end;
procedure TForm1.Find1Click(Sender: TObject);
begin
FSelPos := 0;
FindDialog1.Execute;
end;
procedure TForm1.SaveAs1Click(Sender: TObject);
begin
if SaveDialog1. Execute then
begin
memo1.Lines.savetofile(savedialog1.FileName+
'.txt');caption:=savedialog1.filename;
end;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
ReplaceDialog1.Execute;
end;
procedure TForm1.ReplaceDialog1Replace(Sender: TObject);
begin
with Sender as TReplaceDialog do
while True do
begin
if Memo1.SelText <> FindText then
FindDialog2Find(Sender);
if Memo1.SelLength = 0 then
Break;
Memo1.SelText := ReplaceText;
if not (frReplaceAll in Options) then
Break;
end;
end;
procedure TForm1.FindDialog2Find(Sender: TObject);
var
Buff, P, FT: PChar;
BuffLen: Word;
begin
with Sender as TFindDialog do
begin
GetMem(FT, Length(FindText) + 1);
StrPCopy(FT, FindText);
BuffLen := Memo1.GetTextLen + 1;
GetMem(Buff, BuffLen);
Memo1.GetTextBuf(Buff, BuffLen);
P := Buff + Memo1.SelStart + Memo1.SelLength;
P := StrPos(P, FT);
if P = nil then
MessageBeep(0)
else
begin
Memo1.SelStart := P - Buff;
Memo1.SelLength := Length(FindText);
end;
FreeMem(FT, Length(FindText) + 1);
FreeMem(Buff, BuffLen);
end;
end;
procedure TForm1.Memo1DblClick(Sender: TObject);
var
Line: Integer;
begin
with (Sender as TMemo) do
begin
Line := Perform(EM_LINEFROMCHAR, SelStart, 0);
SelStart := Perform(EM_LINEINDEX, Line, 0);
SelLength := Length(Lines[Line]);
end;
end;
end.
Приложение В Программный продукт на CD- диске |
Скачать 400.34 Kb.