Автор работы: Пользователь скрыл имя, 09 Января 2014 в 17:30, курсовая работа
Актуальность данной работы заключается в том, что у студента есть реальная возможность на примере данного руководящего документа ознакомиться с действующими ГОСТами, а также понять важность последних, т.к. ГОСТы защищают уникальный проект владельца и упрощают жизнь пользователя.
Введение 3
1. Техническое задание 4
1.1 Обоснование необходимости разработки 4
1.1.1 Постановка задачи 4
1.1.2 Назначение разработки 5
1.2 Выполнение научно-исследовательских работ 5
1.2.1 Структура входных и выходных данных 5
1.2.2 Определение требований к техническим средствам 6
1.2.3 Определение требований к надежности 6
1.2.4 Требования к информационной и программной совместимости 7
1.2.5 Требования к маркировке и упаковке 7
1.2.6 Требования к транспортированию и хранению 7
1.2.7 Специальные требования 7
1.2.8 Технико-экономические показатели 7
1.3 Разработка и утверждение технического задания 7
1.3.1 Определение требований к программе 8
1.3.2 Порядок контроля и приемки 8
2 Эскизный проект 8
2.1 Иерархическая схема структуры программы 8
2.2 Описание модулей 9
3 Технический проект 10
3.1 Логическая структура программного продукта 10
3.2 Алгоритмическая структура 11
3.3 Спецификации входных и выходных данных 13
3.4 Сценарий интерфейса программы 13
4 Рабочий проект 15
4.1 Описание пользовательского интерфейса программы 15
4.2 Тестирование, отладка и сборка модулей 18
Заключение 21
Список использованных источников 22
Приложение А 23
if z>0 then begin
v1:=Sqrt(2*9.8*z);
Q:=(v1*pi*d2*d2)/4;
// Вывод расчетных данных
p:='';
If CheckBox1.Checked=True then p:=p+'Шаг №'+FloatToStr(i)+' ';
If CheckBox2.Checked=True then p:=p+'Скор.='+FloatToStr(v1)+'
If CheckBox3.Checked=True then p:=p+'Расх.='+FloatToStr(Q)+'
If CheckBox4.Checked=True then p:=p+'Объем='+FloatToStr(V2)+'
If CheckBox5.Checked=True then p:=p+'Высота='+FloatToStr(z)+'
Form1.Memo1.Lines.Add(p);
Form1.Memo1.Lines.Add('');
ProgressBar1.Position:=i;
// Вывод графика
If RadioButton1.Checked=True then Series1.AddXY(i,Q);
If RadioButton2.Checked=True then Series1.AddXY(i,v1);
// Изменение высоты
V2:=V2-Q;
z:=(4*V2)/(pi*D1*D1);
end else begin
// Прерывание цикла
Form1.Memo1.Lines.Add('');
Form1.Memo1.Lines.Add('Шаг №'+
ProgressBar1.Position:=i1;
exit;
end;
end;
end;
// Следующие 4 процедуры
обеспечивают правильность
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key='.' then Key:=',';
if (Key < '0') or (Key > '9') xor (Key=',') then Key:=#13;
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if Key='.' then Key:=',';
if (Key < '0') or (Key > '9') xor (Key=',') then Key:=#13;
end;
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if Key='.' then Key:=',';
if (Key < '0') or (Key > '9') xor (Key=',') then Key:=#13;
end;
procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if Key='.' then Key:=',';
if (Key < '0') or (Key > '9') then Key:=#13;
end;
// Следующие процедуры выполняют команды строки меню
// Выход
procedure TForm1.N2Click(Sender: TObject);
begin
Form1.Close
end;
procedure TForm1.N4Click(Sender: TObject);
// Сохранение текста в файл формата RTF
begin
SaveDialog1.FileName:='
If SaveDialog1.Execute Then
Memo1.Lines.SaveToFile(
end;
procedure TForm1.N5Click(Sender: TObject);
// Сохранение графика в файл формата wmf
begin
If RadioButton1.Checked=True then SavePictureDialog1.FileName:='
If RadioButton2.Checked=True then SavePictureDialog1.FileName:='
If SavePictureDialog1.Execute then Chart1.SaveToMetaFile(
end;
procedure TForm1.N7Click(Sender: TObject);
begin
Form2.show;
end;
procedure TForm1.N16Click(Sender: TObject);
begin
Form3.show;
end;
procedure TForm1.N24Click(Sender: TObject);
begin
Form4.show;
end;
procedure TForm1.FormClick(Sender: TObject);
begin
Form2.close;
Form3.close;
Form4.close;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Series1.SeriesColor:=
end;
procedure TForm1.N12Click(Sender: TObject);
begin
if ColorDialog1.Execute then
Form1.Chart1.Color := ColorDialog1.Color;
end;
procedure TForm1.N13Click(Sender: TObject);
begin
if ColorDialog1.Execute then
Form1.Memo1.Color := ColorDialog1.Color;
end;
procedure TForm1.N14Click(Sender: TObject);
begin
if ColorDialog1.Execute then
Form1.Color := ColorDialog1.Color;
end;
procedure TForm1.N10Click(Sender: TObject);
begin
if FontDialog1.Execute then
Form1.Memo1.Font:=FontDialog1.
end;
procedure TForm1.N9Click(Sender: TObject);
begin
if ColorDialog1.Execute then
Form1.Series1.SeriesColor:= ColorDialog1.Color;
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
ProgressBar1.Position:=0;
end;
end.