Автор работы: Пользователь скрыл имя, 13 Декабря 2010 в 19:49, курсовая работа
Данный проект разработан, для того чтобы показать, каким образом можно обращаться к программам, разработанных в различных языках программирования, объединив их в один комплекс программ, разработанного в качестве простейшего меню в языке Borland Delphi. Таким образом, данная программа полезна в обучающем процессе (для ознакомления с возможностью представления комплекса программ в одном простейшем меню, разработанного различными способами).
1 ТЕХНИЧЕСКОЕ ЗАДАНИЕ 4
1.1 Введение 4
1.2 Назначение разработки 4
1.3 Требования к программе или программному изделию 5
1.3.1 Аппаратные требования, требования к совместимости 5
1.3.2 Процессы обработки 6
1.3.3 Результирующие компоненты изделия 6
1.4 Требования к программной документации 7
2 ТЕХНИЧЕСКИЙ ПРОЕКТ 8
2.1 Назначение и область применения 8
2.2 Разработка структуры приложения 8
2.3 Описание частей программы 9
2.3.1 Подсистема построения эллипса 9
2.3.2 Подсистема динамический список 9
2.3.3 Подсистема графический редактор «Окружности» 9
2.3.4 Подсистема информации о странах мира 10
2.3.5 Подсистема-тест 10
2.4Инструкции, включающие в себя средства для работы с программой 10
3 РАБОЧИЙ ПРОЕКТ 16
3.1 Общие сведения 16
3.2 Основная программа Курсовой проект 16
3.2.1 Создание меню 16
3.3 Программа «Эллипс» 17
3.4 Программа динамического списка 17
3.5 Программа графический редактор «Окружности» 18
3.6 Программа информация о преподавателях ВУЗа 20
3.7 Программа-тест 21
3.8 Методика испытаний 21
СПИСОК ИСПОЛЬЗУЕМЫХ ИСТОЧНИКОВ 25
ПРИЛОЖЕНИЕ 26
label3.Visible:=true;
button6.Visible:=true;
button5.Visible:=false;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
C:=0;
E:=0;
G:=0;
button2.Visible:=true;
button3.Visible:=true;
button4.Visible:=true;
label2.Visible:=true;
button6.Visible:=false;
label3.Visible:=false;
A:=1;
label2.Caption:=questions[A]
button2.Caption:=answers1[A]
button3.Caption:=answers2[A]
button4.Caption:=answers3[A]
end;
procedure TForm1.N3Click(Sender: TObject);
begin
if ColorDialog1.Execute then
Form1.Color := ColorDialog1.Color
else
Form1.Color := clWhite;
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=MessageDlg
('Действительно выйти?',
end;
procedure TForm1.N2Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
AboutBox.ShowModal;
end;
end.
ПРИЛОЖЕНИЕ 7
Диаграмма вариантов использования
ПРИЛОЖЕНИЕ 8
Диаграмма классов
Информация о работе Создание модульной программы в среде Delphi