Заключение
В результате выполнения данного практического задания, была разработана программа под названием «Редактор HTML файлов», а также получены знания из различных форм источников (книги, Интернет), а так же их закрепление путем написания программы. Было проведено исследование компонентов программной среды C++ Builder 6, которые использовались при создании программы, также было использовано множество процедур и функций.
При создании программы использовалось множество компонентов приведенной среды разработки.
В конце разработки данного программного продукта, были выполнены все поставленные задачи:
создание кнопок, содержащих определенные HTML теги;
отображение тегов в программе;
сохранение HTML кода;
загрузка сохраненного HTML кода;
просмотр результата HTML кода в браузере;
оформление интерфейса программного средства.
Т.к. поставленные задачи при разработке программы были выполнены, следовательно, можно отметить достижение главной цели – максимально-быстрое создание сайтов на основе создание web-страниц.
Разработанная программа также имеет некоторые недостатки. Просмотр результата возможен только в браузере Internet Explorer. Малое количество тегов, которые содержаться в программе. Сохранение HTML кода необходимо выполнять только в корне локального диска, для корректного сохранения данных.
Приведенные выше недостатки, при дальнейшей модификации программного средства будут устранены.
Список использованных источников
Савитч, У. Язык С++ : курс объектно-ориентированного про-граммирования / У. Савитч. - М. : Вильямс, 2001.
Архангельский, А.Я. Программирование в C++ Builder. 7-е изд. / А.Я. Архангельский - М.: ООО «Бином-Пресс», 2010.
Беклешов, В.К. Технико-экономическое обоснование дипломных проектов / В.К. Беклешов - М.: Высшая школа, 1991.
Орлов, С.А. Технология разработки программ / С. А. Орлов. -СПб. : Питер, 2004.
Хомоненко, А. Д. Базы данных : учебник для высш. учеб. за-ведений / А. Д. Хомоненко, В. М. Цыганков, М. Г. Мальцев ; под ред. проф. А. Д. Хомоненко. - СПб. : Корона-принт, 2003.
Иванова, Г.С. Технология программирования / Г. С. Ивано¬ва. - М. : МГТУ им. М. Э. Баумана, 2002.
Гусин, А.Н. Методическое пособие по работе в Rational Rose / А. Н. Гусин, Р. Т. Хабибрахманов, В. О. Лонский. - РФ., 2005.
Палицын, В.А. Технико-экономическое обоснование дипломных проектов / В.А. Палицын. - Мн.: БГУИР, 2006.
Стивен, П. Язык программирования / П. Стивен - М. Издательство "Диасофт", 2002.
Дейтел, П. Как программировать на С++ / П. Дейтел, X. Дейтел. - М.: Издательство "Бином" 2001.
Павловская, Т.А. С/С++. Практикум / Т.А. Павловская, Ю.А. Щупак –СПб.: Питер, 2002.
Культин, Н. С/С++ в задачах и примерах / Н. Культин –СПб.: БХВ-Петербург, 2001.
ПРИЛОЖЕНИЕ А
(обязательное)
Диаграмма вариантов использования
ПРИЛОЖЕНИЕ Б
(обязательное)
Диаграмма классов
ПРИЛОЖЕНИЕ В
(обязательное)
Диаграмма состояний
ПРИЛОЖЕНИЕ Г
(обязательное)
Диаграмма последовательности
ПРИЛОЖЕНИЕ Д
(обязательное)
Листинг программы
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "ShellAPI.h"
#pragma package(smart_init)
#pragma link "acAlphaImageList"
#pragma link "sDialogs"
#pragma link "sHintManager"
#pragma link "sMemo"
#pragma link "sPanel"
#pragma link "sSkinManager"
#pragma link "sButton"
#pragma link "sLabel"
#pragma link "sEdit"
#pragma link "acShellCtrls"
#pragma link "sListView"
#pragma resource "*.dfm"
TForm1 *Form1;
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm1::sButton1Click(TObject *Sender)
{
sMemo1->Lines->Add("<html>");
sMemo1->Lines->Add("");
sMemo1->Lines->Add("<head>");
sMemo1->Lines->Add("<title> ВАШ ЗАГОЛОВОК СТРАНИЦЫ </title>");
sMemo1->Lines->Add("</head>");
sMemo1->Lines->Add("<body>");
sMemo1->Lines->Add("СОДЕРЖИМОЕ ВАШЕЙ СТРАНИЦЫ!!!");
sPanel4->Visible=true;
sPanel5->Visible=true;
}
void __fastcall TForm1::sButton10Click(TObject *Sender)
{
sMemo1->Lines->Add("</body>");
sMemo1->Lines->Add("</html>");
}
void __fastcall TForm1::sButton4Click(TObject *Sender)
{
sMemo1->Lines->Add("<h1>ТЕКСТ ЗАГОЛОВКА </h1>");
}
void __fastcall TForm1::sButton5Click(TObject *Sender)
{
sMemo1->Lines->Add("<h2>ТЕКСТ ЗАГОЛОВКА </h2>");
}
void __fastcall TForm1::sButton6Click(TObject *Sender)
{
sMemo1->Lines->Add("<h3>ТЕКСТ ЗАГОЛОВКА </h3>");
}
void __fastcall TForm1::sButton7Click(TObject *Sender)
{
sMemo1->Lines->Add("<h4>ТЕКСТ ЗАГОЛОВКА </h4>");
}
void __fastcall TForm1::sButton8Click(TObject *Sender)
{
sMemo1->Lines->Add("<h5>ТЕКСТ ЗАГОЛОВКА </h5>");
}
void __fastcall TForm1::sButton9Click(TObject *Sender)
{
sMemo1->Lines->Add("<h6>ТЕКСТ ЗАГОЛОВКА </h6>");
}
void __fastcall TForm1::sButton33Click(TObject *Sender)
{
sPanel6->Visible=true;
}
void __fastcall TForm1::sButton44Click(TObject *Sender)
{
sSkinManager1->SkinName="KaraKum";
}
void __fastcall TForm1::sButton35Click(TObject *Sender)
{
sSkinManager1->SkinName="Steam";
}
void __fastcall TForm1::sButton36Click(TObject *Sender)
{
sSkinManager1->SkinName="TheFrog";
}
void __fastcall TForm1::sButton37Click(TObject *Sender)
{
sSkinManager1->SkinName="TV-b";
}
void __fastcall TForm1::sButton38Click(TObject *Sender)
{
sSkinManager1->SkinName="Pulsar";
}
void __fastcall TForm1::sButton39Click(TObject *Sender)
{
sSkinManager1->SkinName="HeroesStyle";
}
void __fastcall TForm1::sButton40Click(TObject *Sender)
{
sSkinManager1->SkinName="DarkGlass";
}
void __fastcall TForm1::sButton41Click(TObject *Sender)
{
sSkinManager1->SkinName="LongHorn";
}
void __fastcall TForm1::sButton42Click(TObject *Sender)
{
sSkinManager1->SkinName="Cold";
}
void __fastcall TForm1::sButton43Click(TObject *Sender)
{
sSkinManager1->SkinName="Neutral";
}
void __fastcall TForm1::sButton45Click(TObject *Sender)
{
sPanel6->Visible=false;
}
void __fastcall TForm1::sButton34Click(TObject *Sender)
{
if (FontDialog1->Execute())
sMemo1->Font=FontDialog1->Font;
}
void __fastcall TForm1::sButton11Click(TObject *Sender)
{
sMemo1->Lines->Add("<font color=НА АГЛИЙСКОМ ИМЯ ЦВЕТА ПРИМЕР red-красый,green-зеленый>ТЕКСТ ЗАГОЛОВКА </font>");
}
void __fastcall TForm1::sButton31Click(TObject *Sender)
{
Close();
}
void __fastcall TForm1::sButton3Click(TObject *Sender)
{
sPanel7->Visible=true;
}
void __fastcall TForm1::sButton47Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=left>");
}
void __fastcall TForm1::sButton46Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка>");
}
void __fastcall TForm1::sButton48Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=right>");
}
void __fastcall TForm1::sButton50Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=bottom>");
}
void __fastcall TForm1::sButton55Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=absbottom>");
}
void __fastcall TForm1::sButton51Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=middle>");
}
void __fastcall TForm1::sButton54Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=absmiddle>");
}
void __fastcall TForm1::sButton52Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=top>");
}
void __fastcall TForm1::sButton53Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=texttop>");
}
void __fastcall TForm1::sButton56Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=left hspace=ЦЕЛОЕ ЧИСЛО>");
}
void __fastcall TForm1::sButton59Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=right hspace=ЦЕЛОЕ ЧИСЛО>");
}
void __fastcall TForm1::sButton65Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=bottom hspace=ЦЕЛОЕ ЧИСЛО>");
}
void __fastcall TForm1::sButton68Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=absbottom hspace=ЦЕЛОЕ ЧИСЛО>");
}
void __fastcall TForm1::sButton71Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=middle hspace=ЦЕЛОЕ ЧИСЛО>");
}
void __fastcall TForm1::sButton74Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=absmiddle hspace=ЦЕЛОЕ ЧИСЛО>");
}
void __fastcall TForm1::sButton77Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=top hspace=ЦЕЛОЕ ЧИСЛО>");
}
void __fastcall TForm1::sButton80Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=texttop hspace=ЦЕЛОЕ ЧИСЛО>");
}
void __fastcall TForm1::sButton81Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=texttop vspace=ЦЕЛОЕ ЧИСЛО>");
}
void __fastcall TForm1::sButton78Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=top vspace=ЦЕЛОЕ ЧИСЛО>");
}
void __fastcall TForm1::sButton75Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=absmiddle vspace=ЦЕЛОЕ ЧИСЛО>");
}
void __fastcall TForm1::sButton72Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=middle vspace=ЦЕЛОЕ ЧИСЛО>");
}
void __fastcall TForm1::sButton69Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=absbottom vspace=ЦЕЛОЕ ЧИСЛО>");
}
void __fastcall TForm1::sButton66Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=bottom vspace=ЦЕЛОЕ ЧИСЛО>");
}
void __fastcall TForm1::sButton60Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=right vspace=ЦЕЛОЕ ЧИСЛО>");
}
void __fastcall TForm1::sButton57Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=left vspace=ЦЕЛОЕ ЧИСЛО>");
}
void __fastcall TForm1::sButton58Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=left vspace=ЦЕЛОЕ ЧИСЛО hspace=ЦЕЛОЕ ЧИСЛО>");
}
void __fastcall TForm1::sButton61Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=right vspace=ЦЕЛОЕ ЧИСЛО hspace=ЦЕЛОЕ ЧИСЛО>");
}
void __fastcall TForm1::sButton67Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=bottom vspace=ЦЕЛОЕ ЧИСЛО hspace=ЦЕЛОЕ ЧИСЛО>");
}
void __fastcall TForm1::sButton70Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=absbottom vspace=ЦЕЛОЕ ЧИСЛО hspace=ЦЕЛОЕ ЧИСЛО>");
}
void __fastcall TForm1::sButton73Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=middle vspace=ЦЕЛОЕ ЧИСЛО hspace=ЦЕЛОЕ ЧИСЛО>");
}
void __fastcall TForm1::sButton76Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=absmiddle vspace=ЦЕЛОЕ ЧИСЛО hspace=ЦЕЛОЕ ЧИСЛО>");
}
void __fastcall TForm1::sButton79Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=top vspace=ЦЕЛОЕ ЧИСЛО hspace=ЦЕЛОЕ ЧИСЛО>");
}
void __fastcall TForm1::sButton82Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка align=texttop vspace=ЦЕЛОЕ ЧИСЛО hspace=ЦЕЛОЕ ЧИСЛО>");
}
void __fastcall TForm1::sButton49Click(TObject *Sender)
{
sMemo1->Lines->Add("<img src=путь рисунка height=" + sEdit1->Text+" "+"weight="+" "+sEdit2->Text+">");
}
void __fastcall TForm1::sButton62Click(TObject *Sender)
{
sPanel7->Visible=false;
}
void __fastcall TForm1::sButton2Click(TObject *Sender)
{
sMemo1->Lines->Add("<body bgcolor=ЦВЕТ на английском языке>");
}
void __fastcall TForm1::sButton63Click(TObject *Sender)
{
sMemo1->Lines->Add("<body background=путь к картинке в кавычках>");
}
void __fastcall TForm1::sButton14Click(TObject *Sender)
{
sMemo1->Lines->Add("<h НОМЕР ЗАГОЛОВКА align=left>ТЕКСТ </h НОМЕР ЗАГОЛОВКА>");
}
void __fastcall TForm1::sButton15Click(TObject *Sender)
{
sMemo1->Lines->Add("<h НОМЕР ЗАГОЛОВКА align=right>ТЕКСТ </h НОМЕР ЗАГОЛОВКА>");
}
void __fastcall TForm1::sButton16Click(TObject *Sender)
{
sMemo1->Lines->Add("<h НОМЕР ЗАГОЛОВКА align=center>ТЕКСТ </h НОМЕР ЗАГОЛОВКА>");
}
void __fastcall TForm1::sButton17Click(TObject *Sender)
{
sMemo1->Lines->Add("<h НОМЕР ЗАГОЛОВКА align=jastify>ТЕКСТ </h НОМЕР ЗАГОЛОВКА>");
}
void __fastcall TForm1::sButton18Click(TObject *Sender)
{
sMemo1->Clear();
}
void __fastcall TForm1::sButton12Click(TObject *Sender)
{
sMemo1->Lines->Add("<font face=НАЗВАНИЕ ШРИФТА>ТЕКСТ </font>");
}
void __fastcall TForm1::sButton13Click(TObject *Sender)
{
sMemo1->Lines->Add("<font size=ЦЕЛОЧЕ ЧИСЛО> ТЕКСТ </font>");
}
void __fastcall TForm1::sButton19Click(TObject *Sender)
{
sMemo1->Lines->Add("<p>ТЕКСТ </p>");
}
void __fastcall TForm1::sButton20Click(TObject *Sender)
{
sMemo1->Lines->Add("<br>");
}
void __fastcall TForm1::sButton21Click(TObject *Sender)
{
sMemo1->Lines->Add("<i>ТЕКСТ </i>");
}
void __fastcall TForm1::sButton22Click(TObject *Sender)
{
sMemo1->Lines->Add("<strong>ТЕКСТ </strong>");
}
void __fastcall TForm1::sButton23Click(TObject *Sender)
{
sMemo1->Lines->Add("<u>ТЕКСТ </u>");
}
void __fastcall TForm1::sButton24Click(TObject *Sender)
{
sMemo1->Lines->Add("<tt>ТЕКСТ </tt>");
}
void __fastcall TForm1::sButton25Click(TObject *Sender)
{
sMemo1->Lines->Add("<sub>ТЕКСТ </sub>");
}
void __fastcall TForm1::sButton26Click(TObject *Sender)
{
sMemo1->Lines->Add("<sup>ТЕКСТ </sup>");
}
void __fastcall TForm1::sButton27Click(TObject *Sender)
{
sMemo1->Lines->Add("<a href=АДРЕС ССЫЛКИ>ССЫЛОЧНЫЙ ТЕКСТ> </a>");
}
void __fastcall TForm1::sButton28Click(TObject *Sender)
{
sMemo1->Lines->Add("<a name=ИМЯ ЯКОРЯ> </a> <a href=#ИМЯ ЯКОРЯ В КАВЫЧКАХ>ТЕКСТ </a> ");
}
void __fastcall TForm1::sButton64Click(TObject *Sender)
{
sMemo1->Lines->Add("<a href=АДРЕС ССЫЛКИ>ССЫЛОЧНЫЙ ТЕКСТ target=_blank tittle=Подсказка </a>");
}
void __fastcall TForm1::sButton83Click(TObject *Sender)
{
sMemo1->Lines->Add("<table> <caption> Название таблицы</caption><tr><th>1 элемент</th><th>2элемент</th><th>3элемент</th></tr></table>");
}
void __fastcall TForm1::sButton84Click(TObject *Sender)
{
sMemo1->Lines->Add("<table width="+sEdit3->Text+" "+"bgcolor=Цвет на английском border=ШИРИНА ТАБЛИЦЫ В ЦЕЛЫХ ЧИСЛАХ align=ПОЛОЖЕНИЕ cellspacing=РАССТОЯНИЕ МЕЖДУ ЯЧЕЙКАМИ ЧИСЛО cellpadding=РАССТОЯНИЕ МЕЖДУ ТЕКСТОМ ЧИСЛО>");
}
void __fastcall TForm1::sButton86Click(TObject *Sender)
{
sPanel8->Visible=true;
}
void __fastcall TForm1::sButton85Click(TObject *Sender)
{
sPanel3->Visible=true;
}
void __fastcall TForm1::sButton32Click(TObject *Sender)
{
ShellExecuteA(Handle, "open","СПРАВКА.hlp",NULL,NULL,1);
}
void __fastcall TForm1::sButton29Click(TObject *Sender)
{
sOpenDialog1->Execute();
if (sOpenDialog1->FileName!="")
sMemo1->Lines->LoadFromFile(sOpenDialog1->FileName);
}
void __fastcall TForm1::sButton30Click(TObject *Sender)
{
sSaveDialog1->Execute();
if (sSaveDialog1->FileName!="")
sMemo1->Lines->SaveToFile(sSaveDialog1->FileName);
sEdit4->Text=sSaveDialog1->FileName;
}
void __fastcall TForm1::sButton87Click(TObject *Sender)
{
sMemo1->Lines->Add("<tr bgcolor=darkred><td colspan=2 height=100>ШАПКА </td></tr>");
}
void __fastcall TForm1::sButton88Click(TObject *Sender)
{ String s;
s="file://localhost/"+sSaveDialog1->FileName;
ShowMessage(s);
char *q=s.c_str();
ShellExecuteA(Handle, "open","iexplore.exe",q,"null",1);
}
void __fastcall TForm1::sButton90Click(TObject *Sender)
{
PrinterSetupDialog1->Execute();
}
void __fastcall TForm1::sButton89Click(TObject *Sender)
{
sMemo1->Text=PrintDialog1->PrintRange;
PrintDialog1->Execute();
}
УП.
2-40 01 01.Т17.357.13.ПЗ