ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ
ГОУ «ЧЕРЕПОВЕЦКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ»
Институт информационных технологий
Кафедра Автоматизации и систем управления
Курсовая работа по дисциплине
«Информатика».
Тема: «Разработать программу - советчик ОТК, которая позволяет регистрировать значения измерений, оценивать процесс и предлагать варианты приемки на основе результатов измерений».
Выполнил:
Студент группы УК-11
Научный руководитель:
Доцент кафедры АиСУ
Оценка: _____________
Дата сдачи: __________
Череповец
2009г
Задание на курсовой проект
| Дата выдачи | Дата сдачи | Подпись студента | Подпись руководителя |
Разработать программу - советчик ОТК, которая позволяет регистрировать значения измерений, оценивать процесс и предлагать варианты приемки на основе результатов измерений.
Содержание
Введение
1.Спецификация программы
2. Разработка алгоритма программы
3. Разработка программы
4. Вывод
Приложения
Введение
Delphi – это RAD, или RapidApplicationDevelopment – среда быстрой разработки приложений. Иначе говоря, Delphi включает в себя не только средства для работы с языком ObjectPascal (тем более, начиная с версии, 2005 в Delphi имеется поддержка других языков программирования, в частности, C++), но и ряд дополнительных средств, призванных максимально ускорить и упростить создание программ. К таковым средствам относятся, прежде всего, визуальный редактор форм, при помощи которого за считанные минуты и без лишних усилий можно создать полноценно выглядящую программу, а так же прочие составные части визуальной составляющей разработки программ. В результате время разработки программ существенно сокращается, поскольку отпадает необходимость просчитывать вручную расположение каждого элемента пользовательского интерфейса. Вкупе с развитыми средствами для написания и отладки кода – специализированным текстовым редактором, оптимизирующим компилятором и отладчиком, Delphi являет собой средство быстрой разработки приложений. При этом основой Delphi для конечного пользователя является IDE – IntegratedDevelopmentEnvironment - интегрированная среда разработки, которая объединяет в себе редактор кода и средства визуальной разработки, а также связывает это с компилятором, средствами разработки баз данных и прочими составными частями Delphi.
Вместе с тем, имеются и не менее мощные, по сравнению с ObjectPascal, языки программирования, имеющие свои RAD – прежде всего, это язык C++ вместе с таким наиболее известными средствами разработки, как VisualC++ и C++ Builder. Однако C++ не в лучшую сторону отличается от ObjectPascal с точки зрения простоты изучения. Кроме того, сборка и отладка программ на C++ происходит сравнительно медленно, хотя готовые программы выполняются так же быстро, как и созданные при помощи Delphi. В момент своего появления в 1995 году, Delphi была действительно уникальной средой, объединяющей в себе визуальное программирование с оптимизирующим компилятором и средствами для работы с базами данных.
В результате мы получаем практически идеальный продукт Delphi для быстрой разработки программ: с одной стороны простота и удобство, сравнимые с VisualBasic, а с другой – мощь, скорость и гибкость, характерные для C++.
Здесь следует отметить, что используемый в Delphi язык ObjectPascal имеет мало общего со своим прародителем – языком программирования Pascal, который, возможно, вы изучали в школе. Прежде всего, в Delphi применяется чистая объектно-ориентированная модель программирования, в то время как Pascal был обычным процедурным языком.
Состав Delphi
В процессе установки Delphi программа-установщик спросит вас, для каких версий тех или иных приложений следует устанавливать компоненты. Прежде всего, это версии MSOffice, для одной из них вы сможете установить набор компонент, обеспечивающих взаимодействие между приложениями office и Delphi. Если вы устанавливаете старшую версию Del¬phi (Client/Server, Enterprise, Architect), то вас спросят еще и о том, для каких версий баз данных следует установить компоненты. В процессе установки, помимо самой Delphi будут установлено множество дополнительных программ, в основном, связанных с базами данных. Причем некоторые из них (например, сервер InterBase или виртуальная Java-машина) вообще устанавливаются отдельно, хотя и в процессе общего хода инсталляции.
По завершению процесса установки в программном меню Windows будет сформирована группа BorlandDelphi, в которой, помимо самой Delphi, будут находиться ярлыки всех вспомогательных компонент среды. В частности, там будут находиться ярлыки для следующих программ:
•Imageeditor – простой графический редактор для рисования иконок и курсоров. За время, прошедшее с момента последнего обновления (в 1996 году), морально устарел, но может пригодиться, если нет ничего другого;
•WinSight – позволяет просматривать отладочную информацию в любых работающих приложениях;
•BDEAdministrator – позволяет настраивать базы данных;
•DataPump – позволяет переносить данных между БД;
•DatabaseExplorer или SQLExplorer – средство просмотра БД;
•SQLMonitor (только старшие версии) – позволяет отслеживать обращения приложений к SQL-серверу.
Кроме того, в этой группе будет находиться подгруппа Help, а в ней, среди множества справочных файлов, – еще одна, с еще большим их количеством – MSSDKHelpFiles. Так вот, все эти файлы вам придется регулярно использовать, причем положение усугубляется не только их количеством и объемами, но и тем, что в русском варианте их не существует. Таким образом, знание английского языка будет вам хорошим подспорьем при изучении как Delphi, так и программирования вообще.
Интегрированная среда разработки.
Интегрированная среда разработки Delphi (DelphiIDE) является многооконной системой. Она включает в себя все необходимое для быстрой разработки Windows-приложений, и может гибко настраиваться.
Тем не менее, как и всякая другая программа, Delphi имеет некоторый стандартный, предусмотренный разработчиками вид, в котором она предстает вам при первом запуске. В таком «стандартном» варианте среда Delphi имеет 6 окон. Это: главное окно (Delphi 7 – Project1), окно дерева объектов (ObjectTreeView), окно инспектора объектов (ObjectInspector), окно конструктора форм (Form1), а так же совмещенное окно редактор
Итак, Delphi– среда быстрой разработки приложений (программ), основное которой являются редактор кода (язык программирования Pascal), средства визуальной разработки - VCL (VisualComponentLibrary), компилятор, средства разработки баз данных и прочими составными частями Delphi (например, работа Интернет). Delphi для конечного пользователя является IDE – IntegratedDevelopmentEnvironment - интегрированная среда разработки, которая связывает выше перечисленные элементы.
Отличие Delphi от Pascal: Delphi чистая объектно-ориентированная модель программирования, в то время как Pascal был обычным процедурным языком.
1. Спецификация программы
Разработать программу - советчик ОТК, которая позволяет регистрировать значения измерений, оценивать процесс и предлагать варианты приемки на основе результатов измерений.
Программа представляет собой приложение в расчётно-результативном виде, воссоздающая один из наиболее распространённых методов воспроизведения отдела технологического контроля. Программа состоит из ячеек для ввода числовой информации и из ячеек для вывода как строковой, так и расчётной информации. Данное приложение облегчает работу контролёра ОТК. Используется метод пошаговой проверки процентной части от общего количества поступившей продукции с целью выявления брака. В конечном результате контролёр ОТК получает рекомендацию к действию. Таким образом, программа делает вывод о годности-негодности партии с готовой продукцией.
2. Разработка алгоритма
3. Разработка программы
Для реализации программы использовались следующие компоненты:
1) 4 компонента Edit(StdCtrlS), расположенных в панели Standart. В программе используется как средсво для ввода числовой информации. В этом компоненте вводимый и выводимый текст содержится в свойстве Text. В программе Edit подразумевалось применение для вывода, ввода и редактирования чисел и для этого использовались функции взаимного преобразования строк и чисел. Для вывода функции FloatToStr и IntToStr. При вводе это функции StrToFloat — преобразование строки в значение с плавающей запятой, и StrToInt — преобразование строки в целое значение.
2) 13 компонентов Label, расположенных в панели Standart.В программе используются как метки, специально предназначенные для отображения текстов. Также применялись для отображения числовой информации, пользуясь функциями FloatToStr и IntToStr, переводящими соответственно числа с плавающей запятой и целые в строку.
3) 3 компонента Button(StdCtrlS),расположенных в окне Standart.Двойным нажатием на этот компонент этого метода вызывается событие кнопки OnClick. То есть выполнялось процедура нажатия кнопки.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Edit3: TEdit;
Button2: TButton;
Button3: TButton;
Edit4: TEdit;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Button4: TButton;
Label4: TLabel;
Label3: TLabel;
Label13: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm} //Стандартнаячасть
procedure TForm1.Button1Click(Sender: TObject); //процедуранажатиякнопкиЗАПУСК
varx,z,y:real; //объявляются переменные
begin
x:=StrToFloat(Edit1.Text); //Захватзначенияиз Edit1
z:=StrToInt(Edit2.Text); //Захват значения из Edit2
y:=x*z*0.01 ; //перевод в проценты
y:=Round(y); //округление результата
ify<1 theny:=1; //условие
Label1.Caption := 'ОТБЕРИТЕ ДЕТАЛЕЙ НА ПРОВЕРКУ-';
Label2.Caption := FloatToStr(y); //Метки 1 и2 показывают текст и У
end;
procedure TForm1.Button2Click(Sender: TObject); //процедуранажатиякнопкиРАСЧЁТ
varx,z,y,r,m,u:real; //объявляются переменные
begin
x:=StrToFloat(Edit1.Text); //Захватзначенияиз Edit1
z:=StrToInt(Edit2.Text); //Захват значения из Edit2
y:=x*z*0.01 ; //перевод в проценты
y:=Round(y); //округление результата
m:=y; //переменной m присваивается значение переменной y
r:=StrToFloat(Edit3.Text); //Захват значения из Edit3
u:=r/m*100 ; //перевод в проценты
Label2.Caption := FloatToStr(y); //Метке 2 присваевается числовое значение у
if u<1 then Label4.caption:='ПАРТИЯГОДНА ';
if u>=1 then Label4.caption:='ОТБЕРИТЕЕЩЁ 10 ПРОЦЕНТОВ,Т.Е'+ FloatToStr(round(z/100*10))+ ' ДЕТАЛЕЙ';
if u>=15 then Label4.caption:='ОТБЕРИТЕЕЩЁ 20 ПРОЦЕНТОВ,Т.Е'+ FloatToStr(round(z/100*20))+ ' ДЕТАЛЕЙ';
if u>20 then Label4.caption:='ПАРТИЯСРАЗУБРАКОВАНА';
//Условия и вывод в метках результата в виде информации
end;
procedureTForm1.Button3Click(Sender: TObject); //процедура нажатия кнопки ОКОНЧАТЕЛЬНЫЙ ВЫВОД
vark:real; //объявляются переменные
begin
k:=StrToFloat(Edit4.Text) ; ////Захватзначенияиз Edit3
k:=k*100/20 ;
k:=round(k); //округление результата
ifk>1 thenLabel5.Caption:='ПАРТИЯ НЕ ГОДНАЯ';
if k<1 then Label5.Caption:='ПАРТИЯГОДНАЯ';
end ; //Условия и вывод в метках результата в виде информации
procedure TForm1.Button4Click(Sender: TObject); //процедуранажатиякнопкиРАСЧЁТ
begin
Form1.close //Закрытие Формы(программы)
end;
end.
4. Вывод
Я разработал программу - советчик ОТК, которая позволяет регистрировать значения измерений, оценивать процесс и предлагать варианты приемки на основе результатов измерений
Я научился пользоваться компонентом Edit,Label,Button а также постройкой алгоритмов.
Приложения