Размещено на http://www.allbest.ru/

Содержание

Введение

1. Аналитическая часть

1.1 Токарные резцы

1.2 САПР

1.3 САПР ТП

1.4 Задача выбора режима резания

2. Основной раздел

2.1 Математическая модель и необходимые для расчетов таблицы

2.2 Функциональная схема автоматизации процесса расчета режима резания

2.3 Практическая реализация

2.3.1 Алгоритм расчета режима резания

2.3.2 Разработка базы данных

2.3.3 Выбор средств и технологий разработки

3. Разработка документации

3.1 Документация разработанного приложения

3.2 Экономическое обоснование

Заключение

Список литературы

Приложение

Листинг кода программного продукта



Введение

В данной работе рассматривается тема разработки программного обеспечения для расчёта режимов резания при токарной обработке с использованием различных типов резцов и материала обрабатываемой детали.

Задачей проекта является приобретение практических навыков в следующих вопросах:

-- Разработка программного продукта с использованием языка программирования Delphi и среды разработки Embarcadero RAD Studio;

-- Создание базы данных в MicrosoftAccess;

-- Разработка математической модели программы;

-- Разработка алгоритма работы программы.



1. Аналитическая часть

1.1 Токарные резцы

Выбор режимов резания является важным этапом при разработке технологических процессов изготовления деталей на металлорежущих станках. Специалист всегда должен уметь назначать режим резания при обработке детали на основных типах металлорежущих станков. Самым распространенным типом обработки является обработка на токарных станках.

Токарные резцы классифицируются по ряду отличительных признаков:

- Вид обработки;

- Инструментальный материал;

- Характер обработки;

- Расположение главного режущего лезвия;

- Сечение стержня;

- Конструкция головок;

- Способ изготовления.

Большинство современных токарных резцов изготавливаются составными - режущая часть из твёрдых сплавов, крепёжная часть из конструкционных сталей.

Точение делится на несколько основных видов: наружное точение, отрезание, поперечное точение (подрезание торца детали), прорезание, расточка. На рис. 1 приведена схема продольного наружного точения, на которой отмечены поверхности заготовки и указаны главное движение и движение подачи.

Для различных видов точения применяются резцы нескольких определённых типов. Для продольного точения - проходные прямые и проходные упорные резцы. Для поперечного точения используются подрезные и фасонные. Для отрезания заготовки и прорезания канавок используются отрезные и канавочные резцы. Для расточки используются расточные резцы.

Рис. 1 Схема наружного точения; 1 - обрабатываемая поверхность; 2 - обработанная поверхность; Rr - поверхность резания; D - диаметр обрабатываемой поверхности; d - диаметр обработанной поверхности; Dr - главное движение резания; Ds - движение подачи; t - глубина резания; S - подача на оборот; А, Б - точки обрабатываемой и обработанной поверхностей, находящиеся на поверхности резания.

Так же на процесс и режиме резания влияют углы резца. Этиуглы рассматриваются в главной Рv и вспомогательной Рфl. секущихплоскостях и в плане (рис. 2). Углы режущей части резца влияют на процесс резания. Задние углы б и б1, уменьшают трение между задними поверхностями инструмента и поверхностью обрабатываемой заготовки, что ведет к снижению силы резания и уменьшению износа резца; однако чрезмерное увеличение заднего угла приводит к ослаблению режущей кромки. Рекомендуется при обработке стальных и чугунных деталей задние углы выполнять в пределах 6-12є.

С увеличением переднего угла г уменьшается работа, затрачиваемая напроцесс резания, и уменьшается шероховатость обрабатываемой поверхности. При обработке мягких сталей г = 8-20°, а при обработке весьма твердых сталей делают даже отрицательный угол г = -5... -10°.

Главный угол в плане ц определяет соотношение между радиальной и осевой силами резания. При обработке деталей малой жесткости ц берут близким или равным 90°, так как в этом случае радиальная сила, вызывающая изгиб детали, минимальна. В зависимости от условий работы принимают ц = 10-90°. Наиболее распространенной величиной угла резца в плане приобработке на универсальных станках является ц = 0-45°. Вспомогательный угол в плане ц = 0-45°, наиболее распространен ц1 = 12-15°. Угол наклона главной режущей кромки л определяет направление схода стружки. При положительном угле л стружка имеет направление на обработанную поверхность, при отрицательном л - на обрабатываемую поверхность. Чаще всего угол л равен 0є. Не рекомендуется при чистовой обработке принимать положительный угол л.



Рис. 2 Углы токарного резца в статическом состоянии: 1 - след главной секущей плоскости Рф; 2 - след вспомогательной секущей плоскости Pфl; 3 - след основной плоскости Pv; 4 - след плоскости резания Рп

резание токарный автоматизация деталь

В процессе обработки вязких сталей значительно повысить всемя обработки (точения) может сливная стружка, так как она запутывается вокруг детали и инструмента вынуждаяостанавливать обработку для ее удаления.

Для обеспечения скоростного точения вязких сталей применяют ряд способов дробления стружки в пpoцecсе обработки:

? подбор геометрии инструмента и режимов резания;

? изготовление на передней поверхности резцов стружколомных лунок и уступов (порожков);

? установка на передней поверхности накладных стужколомов .

Дробление стружки можно обеспечить путем придания главной режущей кромке положительного угла +л, заточки отрицательного переднего угла г = 10-15° и соответствующего сочетания глубины резания t и подачи S в пределах t/S = 5-8.

В табл. 1 приведены рекомендуемые углы заточки в зависимости от соотношения t и S.

Таблица 1

Углы заточки и фаска в зависимости от глубины резания t и подачи S для твердосплавных резцов

Тип резца	ц	г	г1	л	F
	град.	мм
Проходной	45	0	-5	0	4
Проходной	60	10	-2	+18	2,5
Подрезной	90	-3	0	0	4
Подрезной	90	+15	+15	+15	1,5

В процессе резания происходит интенсивное трение поверхностей режущей части инструмента об обработанную поверхность, поверхность резания и трение стружки о переднюю поверхность. Процесс трения сопровождается значительным выделением тепла за счет трения и пластической деформации срезаемого слоя металла.

Эти явления приводят к износу инструмента по передней и задним поверхностям. Инструмент может нормально работать до какого-то предельно допустимого износа, величина которого определяет стойкость инструмента, измеряемой в минутах, которая характеризует собой время его непрерывной работы.

Величины допуска износа приведены в таблице 2.



Таблица 2

Рекомендуемые величины допускаемого износа токарных проходных резцов

Резцы	Обрабатываемый материал
	Сталь	Серый чугун
	Условия обработки	Допускаемый износ, мм	Условия обработки	Допускаемый износ, мм
Резцы из быстрорежущей стали
Проходные	С охлажд.	1,5?2	Черновая	3?4
Подрезные и расточные	Без охлажд.	0,3?0,5	Получистовая	1,5?2
Подрезные и отрезные	С охлажд.	0,8?3	?	?
Подрезные и отрезные	Без охлажд.	0,3?0,5	На токарных станках	1,5?2
Резцы из твёрдых сплавов
Проходные, Подрезные, Расточные с пластинами Т15К6,Т5К10 Т14К8,Т15К6Т	Без охлажд. при подаче 0.3 мм/об	0.8?2	при подаче 0.3 мм/об	1,4?1,7
Т30К4	Без охлажд.	0,5?0,8	?	?
ВК6, ВК8	при подаче 0.3 мм/об	0,8?1	при подаче 0.3 мм/об	1,4?1,7

1.2 САПР

Системы автоматизированного проектирования (САПР) являются автоматизированными системами, реализующими информационную технологию выполнения функций проектирования и представляющую собой организационно-техническую систему, предназначенную для автоматизации процесса проектирования, состоящую из персонала и комплекса технических, программных и других средств автоматизации их деятельности.

Свою историю САПР начинает в 70-е годы, когда были получены первые отдельные результаты, показавшие, что область проектирования поддаётся компьютеризации (первые программы автоматизированного проектирования были созданы для нужд электронной и радиотехнической промышленности в 50-х годах). В этот период времени внимание уделялось системам автоматического черчения (САЧ). Позже, в 80-е годы начали активно применятся микро-ЭВМ и суперкомпьютеры, появилось много систем и базовых программных продуктов для них. В этот так же начали появляться системы 3D моделирования, появилось понятие твердотельного моделирования и стала желательной возможность передавать данные с одного этапа проектирования на другой. С 90-х годов начинается время, когда данные начинают конвертировать из системы в систему, а крупные производители сами создают возможности импорта и экспорта данных для совместимости с другими популярными системами автоматизированного проектирования.

В рамках жизненного цикла промышленных изделий САПР решает задачи автоматизации работ на стадиях проектирования и подготовки работ. Основные цели САПР -- это:

-- сокращение трудоёмкости проектирования и планирования;

-- сокращение сроков проектирования;

-- сокращение себестоимости проектирования и изготовления, уменьшение затрат на эксплуатацию;

-- повышение качества и технико-экономического уровня результатов проектирования;

-- сокращение затрат на натурное моделирование и испытания.

Достигается это путём автоматизации оформления документаций, информационной поддержки и автоматизации процесса принятия решений, использования технологий параллельного проектирования, унификации проектных решений и процессов проектирования, повторного использования проектных решений, данных и наработок, замены натурных испытаний и макетирования математическим моделированием, повышения качества управления проектированием, применением методов вариантного проектирования и оптимизации.

По целевому назначению различают САПР или подсистемы САПР, которые обеспечивают различные аспекты проектирования.

CAD -- средства автоматизированного проектирования, в контексте указанной классификации термин обозначает средства САПР, предназначенные для автоматизации двумерного и/или трехмерного геометрического проектирования, создания конструкторской и/или технологической документации, и САПР общего назначения.

CADD -- проектирование и создание чертежей.

CAGD -- геометрическое моделирование.

CAE -- средства автоматизации инженерных расчётов, анализа и симуляции физических процессов, осуществляют динамическое моделирование, проверку и оптимизацию изделий.

CAA -- подкласс средств CAE, используемых для компьютерного анализа.

CAM -- средства технологической подготовки производства изделий, обеспечивают автоматизацию программирования и управления оборудования с ЧПУ или ГАПС). Русским аналогом термина является АСТПП -- автоматизированная система технологической подготовки производства.

CAPP -- средства автоматизации планирования технологических процессов, применяемые на стыке систем CAD и CAM.

Многие системы автоматизированного проектирования совмещают в себе решение задач относящихся к различным аспектам проектирования CAD/CAM, CAD/CAE, CAD/CAE/CAM. Такие системы называют комплексными или интегрированными.

С помощью CAD-средств создаётся геометрическая модель изделия, которая используется в качестве входных данных в системах CAM, и на основе которой, в системах CAE формируется требуемая для инженерного анализа модель исследуемого процесса.



1.3 САПР ТП

САПР ТП -- система автоматизированного проектирования технологических процессов, которая представляет комплекс средств автоматизации проектирования, взаимосвязанных с необходимыми подразделениями проектной организации, выполняющий автоматизированное проектирование.

Основной областью применения САПР ТП является механообрабатывающее производство различной степени автоматизации. Главным выходным продуктом САПР ТП является библиотека ТП, которая представляет собой не систематизированный набор файлов ТП. Информационная модель ТП (ИМТП) это набор специальным образом организованных данных, в котором содержится вся информация о ТП, состав которой определяется соответствующими стандартами. Дополнительно в ИМТП хранится информация, предназначенная для использования самой САПР ТП, а также другими смежными автоматизированными системами технологической подготовки и управления производством.

В САПР ТП обеспечивается автоматическая подготовка текстовых технологических документов в соответствии со стандартами ЕСТД-2 и управляющих программ в формате систем ЧПУ.

САПР ТП обеспечивает повышение производительности труда технологов по разработке ТП и управляющих программ в 3…10 раз, в отдельных случаях до 50 раз.

САПР ТП представляет комплекс средств информационного и программного обеспечения. При разработке системы была принята ориентация на создание инструментальных средств (структурированный набор программных средств) для разработки конкретных САПР ТП. Эти инструментальные средства дают возможность разработки САПР ТП специалистами-технологами, не имеющих глубоких знаний в области программирования. Такие возможности предоставляют специально разработанные язык технологических алгоритмов и язык описания данных.

Инструментальные средства САПР ТП представляют собой развитую систему программирования, проблемно ориентированную на технологические САПР, в состав которой входят ряд подсистем:

-- транслятор с языка технологических алгоритмов;

-- система баз данных:

-- описание данных в диалоговом режиме;

-- описание данных в пакетном режиме;

-- транслятор таблиц баз данных;

-- извлечение таблиц из баз данных;

-- занесение таблиц в исходную базу данных;

-- построитель базы знаний, предназначенный для создания и модификации базы знаний;

-- редактор связей, предназначенный для установки связей (в виде адресов таблиц и столбцов) базы знаний с информационной моделью технологического процесса (ИМТП) и с базой данных;

-- уравнитель ИМТП, дающий возможность при модификации ИМТП в сторону увеличения использовать ранее спроектированный ТП;

-- подсистема оперативного просмотра результатов проектирования;

-- подсистема проверки структуры ТП;

-- подсистема графического отображения;

-- исполняющая система, служащая для алгоритмов базы знаний;

-- отладчик исполняющей системы (для отладки программ).

Не исключается возможность использования инструментальных средств в различных смежных прикладных задачах.

Базовый комплект системы состоит из информационного обеспечения базы данных (БД) и базы знаний (БЗ).

1.1 

1.4 Задача выбора режима резания

Назначение режимов обработки резанием рассматривается как технико-экономическая задача. Режимы обработки оказывают влияние на показатели производства как технические, так и экономические. В связи с этим расчет режимов резания является одной из самых массовых задач в машиностроении. Особое значение при расчете режимов резания имеет зависимость между стойкостью режущего инструмента, скоростью резания, подачей и глубиной резания, а также геометрическими параметрами режущего инструмента. При расчете режимов резания целесообразно учитывать фактор оптимизации их по одному из критериев оптимизации: максимуму производительности, минимуму себестоимости, а также оптимизация по комплексу параметров качества поверхностного слоя обрабатываемых поверхностей и точности обработки.

Рациональным (наивыгоднейшим) режимом резания будет такой, при котором деталь требуемого качества изготовляют при минимальных затратах средств (с учетом затрат на инструмент). Этот режим соответствует экономическому периоду стойкости инструмента. При назначении рационального режима резания необходимо учесть следующее; марку обрабатываемого материала, его физико-механические свойства, состояние его поверхности, вид точения, характер обработки (черновая или чистовая), условия обработки (непрерывное или прерывистое) и др. Предварительно выбирается тип токарного резца. 

2. Основной раздел

2.1 Математическая модель и необходимые для расчетов таблицы

При назначении режимов резания учитывают характер обработки, тип и размер инструмента, материалы его режущей части, материал и состояние заготовки, тип и состояния оборудования.

Элементы режима резания обычно устанавливают в порядке:

1) Глубина резания t, при черновой обработке назначают максимально возможное значение, при чистовой обработке назначают глубину резания в зависимости от требований точности размеров и шероховатости обработанной поверхности. При чистовом точении обычно припуск срезается за два и более проходов. На каждом следующем проходе стоит назначать глубину резания меньше чем на предыдущем.

2) Подача S, при черновой обработке выбирают максимально возможную подачу исходя из ограничивающих факторов, при чистовой обработке назначают в зависимости от требуемой степени точности размеров и шероховатости обрабатываемой поверхности.

Рекомендуемые подачи при черновом наружном точении приведены в таблице 3, а при черновом растачивании - в таблице 4. Максимальные значения при точении стали 45, приведены в таблице 5. Подачи при чистовом точении в таблице 6. Подачи при чистовом точении выбираются в зависимости от требуемых параметров шероховатости и радиуса при вершине резца (таблица 7).



Таблица 3

Подача при черновом наружном точении резцами с пластинами из твёрдого сплава

Диаметр детали, мм	До 20	20-40	40-60	60-100	100-400
Размер державки резца, мм	От 16 х 25 до 25 х 25	От 16 х 25 до 25 х 25	От 16 х 25 до 25 х 40	От 16 х 25 до 25 х 40	От 16 х 25 до 25 х 40
Обрабатываемый материал	Чугун и медные сплавы	Подача S, мм/об	До 3 3-5 5-8 8-12 >12	0,3-0,4 0,4-0,5 0,5-0,9 0,6-1,2 0,8-1,3	- 0,3-0,4 0,4-0,8 0,5-1,1 0,7-1,2	- - 0,3-0,7 0,5-0,9 0,6-1,0	- - - 0,4-0,8 0,5-0,9	- - - - 0,5-1,1
	Сталь конструкционная углеродистая, легированная и жаропрочная		До 3 3-5 5-8 8-12 >12	- 0,4-0,5 0,6-0,9 0,8-1,4 1,0-1,5	- - 0,5-0,8 0,7-1,2 0,8-1,9	- - 0,4-0,7 0,6-0,9 0,5-0,8	- - - 0,5-0,9 0,6-0,9	- - - - -



Таблица 4

Подачи при черновом растачивании на токарных станках при использовании пластин из твёрдого сплава и быстрорежущей стали.

Обрабатываемый материал, Подача S, мм/об.	Чугун и медные сплавы	20	-
		12	-
		8	- - - - - - 0,4- 0,5 0,3- 0,4 ,6-,9 ,5-,7 ,7-1 ,6-,8
		5	- - 0,1- 0,18 0,12- 0,25 0,25- 0,35 0,25- 0,45 0,3- 0,8 0,5- 0,9 0,4-0,7 0,8-1,2 0,7-0,9 0,9-1,3
		3	- 0,12- 0,18 0,15- 0,25 0,3- 0,5 0,4- 0,6 0,6- 0,8 0,7- 1,2 0,6- 0,7 1-1,5 1-1,2 1,1- 1,6
		2	0,12- 0,16 0,12- 0,20 0,2- 0,3 0,3- 0,4 0,4- 0,6 - - - - - - - -
	Сталь конструкционная углеродистая, легированная и жаропрочная	20	- - - - - - - - - - - - -
		12	- - - - - - - - - - - - -
		8	- - - - - - - 0,6-0,8 0,4-0,7 0,7-0,9 0,5-0,7
		5	- - 0,1 0,12 0,12-0,2 0,12-0,3 0,15-0,4 0,5-0,7 0,3-0,6 0,8-1 0,5-0,8 0,8-1,1 0,6-0,9
		3	- 0,08 0,15 0,15- 0,25 0,15- 0,4 0,4- 0,7 0,25- 0,6 0,6-1 0,4-0,7 0,9-1,2 0,7-1 0,9-1,3 0,7-1
		2	0,08 0,10 0,1- 0,2 0,5- 0,3 0,25- 0,5 0,4- 0,7 - - - - - - -
Резец и оправка	Вылет резца	50 60 80 100 125 150 200 150 300 150 300 300 800
	Диаметр, мм	10 12 16 20 25 30 40 40х 40 60х 60 75х 75



Таблица 5

Подачи, мм/об, допустимые прочностью пластины из твёрдого сплава, при точении конструкционной стали резцами с главным углом в плане 45 градусов.

Толщина пластины, мм	Глубина резания t, мм, до
	4	7	13	22
4	1,3	1,1	0,9	0,8
6	2,6	2,2	1,8	1,5
8	4,2	3,6	3,6	2,5
10	6,1	5,1	4,2	3,6

Таблица 6

Подачи, мм/об, при прорезании пазов и отрезании

Диаметр обработки, мм	Ширина резца, мм	Обрабатываемый материал
		Сталь конструкционная углеродистая и легированная, стальное литьё	Чугун, медные и алюминиевые сплавы
До 20 20-40 40-60 60-100 100-150 Свыше 150	3 3-4 4-5 5-8 6-10 10-15	0,06-0,08 0,1-0,12 0,13-0,16 0,16-0,23 0,18-0,26 0,28-0,36	0,11-0,14 0,16-0,19 0,20-0,24 0,24-0,32 0,3-0,4 0,4-0,55

Таблица 7

Подачи, мм/об, при чистовом точении

Параметр шероховатости поверхности, мм	Радиус при вершине угла r, мм
		0,4	0,8	1,2	1,6	2	2,4
0,63 1,25 2,50	-	0,07 0,10 0,144	0,10 0,13 0,20	0,12 0,165 0,246	0,14 0,19 0,29	0,15 0,21 0,32	0,17 0,23 0,35
-	20 40 80	0,25 0,35 0,47	0,33 0,51 0,66	0,42 0,63 0,81	0,49 0,72 0,94	0,55 0,80 1,04	0,60 0,87 1,14



3) Скорость резания vрассчитывают по эмпирическим формулам, установленным для каждого вида обработки, с общим видом (1):

(1)

Значение коэффициента и показателей степени в этой формуле так же как и период стойкости инструмента Tприменяемый для данного вида обработки приведены в соответствующих таблицах.

Для получения действительного значения скорости резания с учётом различных факторов используется поправочный коэффициент , где произведение ряда коэффициентов, важнейшими из которых являются:

- коэффициент, учитывающий качество обрабатываемого материала (табл. 3);

- коэффициент, отражающий состояние поверхности заготовки (табл. 4);

- коэффициент, учитывающий качество материала инструмента (табл. 5).

Расчётные формулы для стали (2), серого чугуна (3), ковкого чугуна (4):

(2)

(3)

(4)

HBи - фактические параметры, характеризующие материал, для которого рассчитывается скорость резания.

- коэффициент, характеризующий группу стали по обрабатываемости.

Таблица 8

Поправочный коэффициент , учитывающий влияние физико-механических свойств жаропрочных и коррозионно-стойких сталей и сплавов на скорость резания

Марка стали и сплава	, МПа	Усредненное значение коэффициента
12X18H9T 13X11H2B2МФ 14Х17Н2 13Х14Н3В2ФР 37Х12Н8Г8МФБ 14Х14Н14В2М 10Х11Н20Т3Р 12Х21Н5Т 20Х23Н18 31Х19Н9МВБТ 15Х18Н12С4ТЮ ХН78Т ХН75МБТЮ ХН60ВТ ХН77ТЮ ХН77ТЮР ХН35ВТ ХН70ВМТЮ ХН55ВМТКЮ ХН65ВМТЮ ХН35ВТЮ ВТ3 ВТ4 ВТ5 ВТ6 ВТ8 ВТ14 12Х13 30Х13 40Х13	550 1100-1460 800-1300 700-1200 - 700 720-800 820-10000 600-620 600-620 730 780 - 750 850-1000 850-1000 950 1000-1250 1000-1250 900-1000 900-950 950-1200 750-950 750-950 900-1200 900-1200 900-1400 600-1100 850-1100 850-1100	1 0,8-0,3 1-0,75 0,5-0,4 0,95-0,72 1,06 0,85 0,65 0,80 0,40 0,50 0,75 0,53 0,48 0,40 0,26 0,50 0,25 0,25 0,20 0,22 0,40 0,70 0,70 0,35 0,35 0,53-0,43 1,5-1,2 1,3-0,9 1,3-0,9



Таблица 9

Состояние поверхности заготовки

Без корки	1
Прокат с коркой	0,9
Поковка с коркой	0,8
Стальные и чугунные отливки с коркой (нормальной)	0,8-0,85
Стальные и чугунные отливки с коркой (сильно загрязненной)	0,5-0,6
Медные и алюминиевые сплавы	0,9

Таблица 10

Поправочный коэффициент учитывающий влияние инструментального материала на скорость резания

Обрабатываемый материал	Значения коэффициента в зависимости от марки инструментального материала
Сталь конструкционная	T5K12B 0,35	T5K10 0,65	T14K8 0,8	T15K6 1	T15K6 1,15	T30K4 1,4	ВК8 0,4
Коррозионно-стойкие и жаропрочные стали	ВК8 1	T5K10 1,4	T15K6 1,9	Р18 0,3	-
Сталь закаленная	HRC 35-50	HRC 51-62
	T15K6 1	T30K4 1,25	ВК6 0,85	ВК8 0,83	ВК4 1	ВК6 0,92	ВК8 0,74
Серый и ковкий чугун	ВК8 0,83	ВК6 1	ВК4 1,1	ВК3 1,15	ВК3 1,25	-
Сталь, чугун, медные и алюминиевые сплавы	Р5М6 1	ВК4 2,5	ВК6 2,7	9XC 0,6	ХВГ 0,6	У12А 0,5	-

4) Стойкость T - период работы инструмента до затупления, приводимый для различных видов обработки.

5) Сила резания. Под силой резания обычно подразумевают её главную составляющую , определяющую расходуемую на резание мощность , и крутящий момент на шпинделе станка. Силовые зависимости рассчитываются по эмпирическим формулам, значения коэффициентов и показателей степени в которых для различных видов обработки приведены в соответствующих справочных материалах. Эти силовые зависимости учитывают конкретные технологические параметры, такие как глубина резания, подача и другие.

Силу резания H, принято раскладывать на составляющие силы, направленные по осям координат станка (тангенциальную , радиальную и осевую ). Рассчитывается это по формуле 5:

(5)

При прорезании, отрезании и фасонном точении tявляется длинной лезвия резца.

Поправочный коэффициент состоит из произведения ряда коэффициентов (), учитывающих фактические условия резания.

Постоянная и показатели степени x, y, nдля конкретных условий обработки для каждой из составляющих силы резания приведены в соответствующих справочниках.

Мощность резания (кВт), рассчитывают по формуле6:

(6)

2.2 Функциональная схема автоматизации процесса расчета режима резания

На основе информации изложенной в предыдущих разделах была разработана функциональная схема (рисунок3 и 4) процессарасчета режима резания с применением создаваемого программного продукта.



Рисунок 3-функциональная схема процесса расчета режима резания(узел A-0)



Рисунок 4 -функциональная схема процесса расчета режима резания(узел A0)

2.3 Практическая реализация

2.3.1 Алгоритм расчета режима резания

Алгоритм работы программы представлен на рисунке 5.

Рисунок 5 - алгоритм работы программы

2.3.2 Разработка базы данных

Для хранения значений необходимых для расчета была разработана структура БД (рисунок 6 и 7).

Рисунок 6 - Схема таблицы для хранения допустимой скорости резания для резца

Рисунок 7 - Схема таблицы для хранения подачи при заданном диаметре детали

2.3.3 Выбор средств и технологий разработки

Разработанное приложение было написано на языке Delphi с применением IDEEmbarcaderoRADStudio.

Delphi-- императивный, структурированный, объектно-ориентированный язык программирования со строгой статической типизацией переменных. Основная область использования -- написание прикладного программного обеспечения.

Первоначально носил название Object Pascal и исторически восходит к одноимённому диалекту языка, разработанному в фирме Apple в 1986 году группой Ларри Теслера. Однако в настоящее время термин Object Pascal чаще всего употребляется в значении языка среды программирования Delphi. Начиная с Delphi 7, в официальных документах Borland стала использовать название Delphi для обозначения языка Object Pascal.

Для разработки приложения использовалась IDERadStudioот Embarcadero. Она позволяет упростить написание приложений за счет визуального проектирования интерфейса программы. Так как при разработке нашего программного продукта важно сосредоточить усилия на написании кода связанного с логикой расчета режима резания эта возможность идет нам на пользу и заметно сокращает время разработки. Так же с RadStudioпоставляются готовые компоненты для связи приложения с базами данных различных производителей. В нашем случае это помогает нам упростить код связанный с извлечением данных необходимых для расчетов из БД MSAccess.

Для хранения данных необходимых для расчета режимов резания применяется СУБД MicrosoftAcces.

Microsoft Access - это функционально полная реляционная СУБД. В ней предусмотрены все необходимые вам средства для определения и обработки данных, а также для управления ими при работе с большими объемами информации. Что касается легкости использования, то Microsoft Access совершил здесь настоящий переворот, и многие для создания своих собственных баз данных и приложений обращаются именно к нему.

Система управления базами данных предоставляет возможность контролировать задание структуры и описание данных, работу с ними и организацию коллективного пользования этой информацией. СУБД также существенно увеличивает возможности и облегчает каталогизацию и ведение больших объемов хранящейся в многочисленных таблицах информации. СУБД включает в себя три основных типа функций: определение (задание структуры и описание) данных, обработка данных и управление данными. Все эти функциональные возможности в полной мере реализованы в Microsoft Access.

СУБД MSAccessвыбрана потому что это наиболее простая и понятная СУБД которая при этом поставляется в составе хорошо известного всем пакета MicrosoftOffice. Так же пре выборе СУБД учитывался то что она должна хорошо взаимодействовать со средой разработки Delphi.

3. 

3. Разработка документации

3.1 Документация разработанного приложения

На первом этапе пользователь должен ввести исходные данные и выбрать необходимые параметры токарной обработки (рисунок 8).

Поле обрабатываемый материал предназначено для выбора категории обрабатываемого материала, в зависимости от этого будет меняться такая характеристика как твердость, применяемая при расчете режимов резания.

Далее необходимо выбрать компанию производителя токарных резцов. У каждой компании существуют различные модели токарных резцов, имеющих различные характеристики, влияющие на выбор режима резания.

В поле режущий инструмент необходимо выбрать непосредственно тип применяемого резца. Также следует выбрать материал, из которого изготовлена режущая кромка резца.

Стоит отметить, что не все компании предоставляют конкретный тип режущего инструмента либо для данного сочетания компании/типа режущего инструмента/материала инструмента может не оказаться данных в БД. При этом приложение выведет 0 значения там, где невозможно посчитать результат.

Диаметр детали задается в мм и необходим для расчетов, допустимы только положительные значения больше 1. Поле не может быть пустым, в этом случае приложение установит диаметр равный 1.

При выборе обрабатываемого материала в окне «Пример обозначения(маркировки) обрабатываемого материала» появляются материалы, входящие в данный класс.

Также возможно вводить наименование обрабатываемого материала непосредственно в окно «Пример обозначения(маркировки) обрабатываемого материала» и программа автоматически определит его класс.



Рисунок 8 - Поля для ввода исходных данных и выбора параметров

При переходе на вкладку дополнительные параметры (рисунок 9) можно более тонко настроить параметры токарной обработки.

При изменении параметров пересчет режима резания осуществляется автоматически. Так же на данной вкладке отображается эскиз выбранного типа режущего инструмента.

Рисунок 9 - Поля для выбора дополнительных параметров



Для формирования отчета необходимо выбрать пункт меню «Отчет»-> «Открыть отчет». В результате появится форма(рисунок 10), из которой можно скопировать отчет. В отчете будут отражены все основные и дополнительные параметры и соответственно оптимальный режим резания.

Рисунок 10 - Формирование отчета

Для того чтобы изменить значение максимального показателя оборотов шпинделя станка необходимо выбрать пункт меню «Доп. Параметры»-> «Максимальные обороты станка»(рисунок 11).



Рисунок 11 - Формирование отчета

3.2 Экономическое обоснование

При проектировании технологических процессов механической обработки или режущих инструментов возникает необходимость в определении и назначении элементов режима резания. Отечественная практика механической обработки накопила огромный нормативно - справочный материал, с помощью которого можно назначить любой режим резания для любого вида механической обработки. Однако, табличный метод назначения режимов резания является весьма громоздким, так как требует анализа большого количества справочной информации. Более того, все режимные параметры взаимосвязаны и при изменении хотя бы одного из них автоматически изменяются и другие, что еще более усложняет процесс назначения режимов резания.

Аналитический (расчетный) метод определения режима резания менее трудоёмок и более предпочтителен при учебном проектировании технологических процессов механической обработки резанием. Он сводится к определению, по эмпирическим формулам, скорости, сил и мощности резания по выбранным значениям глубины резания и подачи.

Если все расчёты переложить на мощности ЭВМ, то это может сократить время нужное для выбора и назначения режима резания в несколько десятков раз.



Заключение

В данной работе была разработана математическая модель для расчёта режимов резания токарной обработке при использовании справочников и литературы по токарным режимам резания, материалам обрабатываемой поверхности и материалам режущего инструмента. Была создана база данных которая включила различные типы инструмента и материала обрабатываемых заготовок.

Программа была разработана в среде Embarcadero RAD Studio при использовании языка программирования Delphi.

Программа позволяет рассчитать скорость резания и минутную подачу из исходных вводимых данных, учитывая обрабатываемый материал, параметры режущего инструмента и период его стойкости, износ станка и тип операции.



Список литературы

1. Косилова А.Г., Мещеряков Р.К. Справочник технолога-машиностроителя, Москва "Машиностроение" 1986 г.

2. В.Н. Байкалова, А.М. Колокатов, И.Д. Малинина. Расчет режимов резания при точении, Москва 2000 г.

3. Э.А. Сатель, Машгиз. Справочник машиностроителя, 1964 г.

4. "Инструменты для точения, сверления, резьбонарезания, фрезерования и остнастка" каталог инструментов фирмы WALTER, 2012 г.

5. Фленов М.Е. Библия Delphi, БХВ-Петербург, 2011 г.



Приложение

Листинг кода программного продукта

Unit1.pas

unit Unit1;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ComCtrls, ExtCtrls, Menus, ADODB, DB, Grids, DBGrids,

Buttons, XPMan, jpeg, ActnMan, ActnColorMaps, CustomizeDlg, Printers, ToolWin,

ActnCtrls, ActnMenus, IniFiles, ComObj, ActnList, Math;

type

TForm1 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

MaterialTypeCB: TComboBox;

ToolTypeCB: TComboBox;

MaterialDescMemo: TMemo;

Label4: TLabel;

Label5: TLabel;

DegreeOfWearCB: TComboBox;

Label6: TLabel;

Label7: TLabel;

CuringCB: TComboBox;

BrinelCuringEdit: TEdit;

Label8: TLabel;

Label10: TLabel;

Label11: TLabel;

Label14: TLabel;

ResistancePeriodCB: TComboBox;

Panel1: TPanel;

Label17: TLabel;

ManufacturerCB: TComboBox;

DiameterEdit: TEdit;

Label18: TLabel;

Label19: TLabel;

Label27: TLabel;

Label29: TLabel;

BrinelTextBox: TLabel;

RokvellTextBox: TLabel;

Label32: TLabel;

Label33: TLabel;

ToolMaterialText: TLabel;

ToolMaterialCB: TComboBox;

Label43: TLabel;

Panel5: TPanel;

Label28: TLabel;

MainMenu1: TMainMenu;

Label44: TLabel;

Image1: TImage;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

PageControl2: TPageControl;

TabSheet3: TTabSheet;

TabSheet4: TTabSheet;

TabSheet5: TTabSheet;

TabSheet6: TTabSheet;

DBGrid1: TDBGrid;

ADOTable2: TADOTable;

ADOTable3: TADOTable;

ADOTable4: TADOTable;

DataSource2: TDataSource;

DataSource3: TDataSource;

DataSource4: TDataSource;

DBGrid2: TDBGrid;

DBGrid3: TDBGrid;

DBGrid4: TDBGrid;

N6: TMenuItem;

Panel11: TPanel;

RadioButton1: TRadioButton;

Label63: TLabel;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

CheckBox2: TCheckBox;

CheckBox1: TCheckBox;

GroupBox2: TGroupBox;

Label48: TLabel;

Label49: TLabel;

Label50: TLabel;

Label51: TLabel;

Label52: TLabel;

Label53: TLabel;

Label54: TLabel;

Label56: TLabel;

Label58: TLabel;

Label59: TLabel;

SpindleSpeedEdit: TLabel;

Label61: TLabel;

Panel8: TPanel;

N11: TMenuItem;

N12: TMenuItem;

Panel12: TPanel;

Memo3: TMemo;

BitBtn17: TBitBtn;

Timer2: TTimer;

Label65: TLabel;

N17: TMenuItem;

N22: TMenuItem;

N24: TMenuItem;

Panel14: TPanel;

Label66: TLabel;

Label67: TLabel;

Edit6: TEdit;

Button23: TButton;

N25: TMenuItem;

Panel19: TPanel;

Button25: TButton;

Button26: TButton;

Button27: TButton;

DataSource5: TDataSource;

DBGrid5: TDBGrid;

ADOConnection2: TADOConnection;

Label86: TLabel;

Label87: TLabel;

Edit13: TEdit;

Label88: TLabel;

Label89: TLabel;

Edit14: TEdit;

Edit15: TEdit;

Label90: TLabel;

Timer3: TTimer;

ADOQuery1: TADOQuery;

Edit16: TEdit;

Edit17: TEdit;

Label91: TLabel;

Label92: TLabel;

DataSource6: TDataSource;

DBGrid6: TDBGrid;

ADOConnection3: TADOConnection;

ADOTable5: TADOTable;

Label99: TLabel;

Edit18: TEdit;

Label100: TLabel;

Panel2: TPanel;

Panel15: TPanel;

Label68: TLabel;

Label93: TLabel;

Label94: TLabel;

Label95: TLabel;

Label96: TLabel;

Button24: TButton;

RadioButton4: TRadioButton;

RadioButton5: TRadioButton;

Panel16: TPanel;

Label69: TLabel;

Label71: TLabel;

Label72: TLabel;

Label73: TLabel;

Edit7: TEdit;

Edit8: TEdit;

Panel17: TPanel;

Label70: TLabel;

Label74: TLabel;

Label76: TLabel;

Label81: TLabel;

Edit9: TEdit;

Edit10: TEdit;

Button28: TButton;

Button29: TButton;

RadioButton6: TRadioButton;

Panel18: TPanel;

Label77: TLabel;

Label78: TLabel;

Label79: TLabel;

Label80: TLabel;

Label75: TLabel;

Label82: TLabel;

Label83: TLabel;

Label84: TLabel;

Label85: TLabel;

Edit11: TEdit;

Edit12: TEdit;

procedure Calculate();

procedure Serve();

procedure SpindleSpeed();

procedure CuttingSpeed(n: Integer);

procedure QueryServe(Serve: String);

procedure ProcessingType();

procedure ResistancePeriod();

/// /назначениепараметровтвердостивзависимостиоттермообработки ////

procedure Curing();

/// СОЖ

procedure Cooling();

/// износ станка//

procedure DegreeOfWear();

/// Термообработка(твердость после нее)////

procedure BrinelCuring();

/// Наличие корки у поковки и отливки///

procedure Crust();

procedure Recalculate();

procedure MaterialTypeCBChange(Sender: TObject);

procedure CuringCBChange(Sender: TObject);

procedure BrinelCuringEditKeyPress(Sender: TObject; var Key: Char);

procedure DiameterEditKeyPress(Sender: TObject; var Key: Char);

procedure ToolTypeCBChange(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

//procedure Timer1Timer(Sender: TObject);

procedure ToolMaterialCBChange(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure PageControl1Change(Sender: TObject);

procedure CheckBox2Click(Sender: TObject);

procedure BrinelCuringEditChange(Sender: TObject);

procedure DegreeOfWearCBChange(Sender: TObject);

procedure ResistancePeriodCBChange(Sender: TObject);

procedure DiameterEditChange(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure MaterialDescMemoChange(Sender: TObject);

procedure MaterialDescMemoClick(Sender: TObject);

procedure MaterialDescMemoKeyPress(Sender: TObject; var Key: Char);

procedure FormCreate(Sender: TObject);

procedure Button23Click(Sender: TObject);

procedure N24Click(Sender: TObject);

procedure N22Click(Sender: TObject);

procedure Button24Click(Sender: TObject);

procedure N25Click(Sender: TObject);

procedure Button25Click(Sender: TObject);

procedure Button27Click(Sender: TObject);

procedure Timer3Timer(Sender: TObject);

procedure Button26Click(Sender: TObject);

procedure Button29Click(Sender: TObject);

procedure Button28Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure BitBtn17Click(Sender: TObject);

procedure ManufacturerCBChange(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

V: extended; // скорость резания

podacha: string;

/// подача(определяеться именем инструмента)

oborotmax: string;

/// число максимальных оборотов шпинделя станка из ini файла.

ini: TiniFile;

/// переменная для сохранения ini файла с настройками.

Excel: Variant;

/// переменная для открытия и запуска расчета регрессионного анализа в excel

tipmodel: string;

/// типмодели

koeffK: real;

/// Коэффициент K(первый)

koeffC: real;

/// КоэффициентС(второй)

implementation

// uses Unit1;

{$R *.dfm}

/// смена действия timer в зависимости от закладки///

procedure TForm1.PageControl1Change(Sender: TObject);

begin

{

if PageControl1.ActivePageIndex = 0 then

Timer1.Enabled := true

else

begin

Timer1.Enabled := false;

tverdost := 1;

BrinelCuringEdit.text := BrinelTextBox.Caption;

/// для твердости

end;}

end;

/// Для отчистки memo1 перед вводом стали///

procedure TForm1.MaterialDescMemoClick(Sender: TObject);

begin

MaterialDescMemo.clear;

Label28.Caption := 'N'; // поумолчаниювсегданематаличесскиематериалы

Panel5.ParentBackground := false;

Panel5.Color := clMoneyGreen;

MaterialTypeCB.ItemIndex := 22;

BrinelTextBox.Caption := '0';

RokvellTextBox.Caption := '0';

BrinelCuringEdit.Text:= '0';

CuringCB.ItemIndex:=0;

Recalculate;

end;

/// Для смены регистра при вводе символов в memo1///

procedure TForm1.MaterialDescMemoKeyPress(Sender: TObject; var Key: Char);

begin

if (Key in ['с']) then

begin

MaterialDescMemo.text := MaterialDescMemo.text + 'С';

Key := #0;

end;

if (Key in ['т']) then

begin

if MaterialDescMemo.text = 'С' then

MaterialDescMemo.text := MaterialDescMemo.text + 'т'

else

MaterialDescMemo.text := MaterialDescMemo.text + 'Т';

Key := #0;

end;

if (Key in ['Ц']) then

begin

MaterialDescMemo.text := MaterialDescMemo.text + 'ц';

Key := #0;

end;

if (Key in ['к']) then

begin

MaterialDescMemo.text := MaterialDescMemo.text + 'К';

Key := #0;

end;

if (Key in ['п']) then

begin

MaterialDescMemo.text := MaterialDescMemo.text + 'П';

Key := #0;

end;

if (Key in ['н']) then

begin

MaterialDescMemo.text := MaterialDescMemo.text + 'Н';

Key := #0;

end;

if (Key in ['г']) then

begin

MaterialDescMemo.text := MaterialDescMemo.text + 'Г';

Key := #0;

end;

if (Key in ['д']) then

begin

MaterialDescMemo.text := MaterialDescMemo.text + 'Д';

Key := #0;

end;

if (Key in ['у']) then

begin

MaterialDescMemo.text := MaterialDescMemo.text + 'У';

Key := #0;

end;

if (Key in ['р']) then

begin

MaterialDescMemo.text := MaterialDescMemo.text + 'Р';

Key := #0;

end;

if (Key in ['к']) then

begin

MaterialDescMemo.text := MaterialDescMemo.text + 'К';

Key := #0;

end;

if (Key in ['л']) then

begin

MaterialDescMemo.text := MaterialDescMemo.text + 'Л';

Key := #0;

end;

if (Key in ['а']) then

begin

MaterialDescMemo.text := MaterialDescMemo.text + 'А';

Key := #0;

end;

if (Key in ['ф']) then

begin

MaterialDescMemo.text := MaterialDescMemo.text + 'Ф';

Key := #0;

end;

if (Key in ['м']) then

begin

MaterialDescMemo.text := MaterialDescMemo.text + 'М';

Key := #0;

end;

if (Key in ['ш']) then

begin

MaterialDescMemo.text := MaterialDescMemo.text + 'Ш';

Key := #0;

end;

if (Key in ['в']) then

begin

MaterialDescMemo.text := MaterialDescMemo.text + 'В';

Key := #0;

end;

if (Key in ['ч']) then

begin

MaterialDescMemo.text := MaterialDescMemo.text + 'Ч';

Key := #0;

end;

if (Key in ['б']) then

begin

MaterialDescMemo.text := MaterialDescMemo.text + 'Б';

Key := #0;

end;

if (Key in ['э']) then

begin

MaterialDescMemo.text := MaterialDescMemo.text + 'Э';

Key := #0;

end;

if (Key in ['и']) then

begin

MaterialDescMemo.text := MaterialDescMemo.text + 'И';

Key := #0;

end;

if (Key in ['х']) then

begin

MaterialDescMemo.text := MaterialDescMemo.text + 'Х';

Key := #0;

end;

MaterialDescMemo.SelStart := length(MaterialDescMemo.text);

end;

/// /Вводмаркистали////

procedure TForm1.MaterialDescMemoChange(Sender: TObject);

begin

if (MaterialDescMemo.text = 'Ст.') or (MaterialDescMemo.text = 'Ст') or

(MaterialDescMemo.text = 'Ст.0') or (MaterialDescMemo.text = 'Ст.1') or

(MaterialDescMemo.text = 'Ст.0') or (MaterialDescMemo.text = 'Ст.1') or

(MaterialDescMemo.text = 'Ст.08') or (MaterialDescMemo.text = 'Ст.08КП') or

(MaterialDescMemo.text = 'Ст.10') or (MaterialDescMemo.text = 'Ст.10КП') or

(MaterialDescMemo.text = 'Ст.15К') or (MaterialDescMemo.text = 'Ст.20') then

begin

Label28.Caption := 'P';

Panel5.ParentBackground := false;

Panel5.Color := clSkyBlue;

MaterialTypeCB.ItemIndex := 0;

BrinelTextBox.Caption := '125';

RokvellTextBox.Caption := '<20';

end;

if (MaterialDescMemo.text = 'Ст.3') or (MaterialDescMemo.text = 'Ст.25') or

(MaterialDescMemo.text = 'Ст.30') or (MaterialDescMemo.text = 'Ст.35') or

(MaterialDescMemo.text = 'Ст.2') or (MaterialDescMemo.text = 'Ст.3') then

begin

Label28.Caption := 'P';

Panel5.ParentBackground := false;

Panel5.Color := clSkyBlue;

MaterialTypeCB.ItemIndex := 1;

BrinelTextBox.Caption := '190';

RokvellTextBox.Caption := '<20';

end;

if (MaterialDescMemo.text = 'Ст.40') or (MaterialDescMemo.text = 'Ст.45') or

(MaterialDescMemo.text = 'Ст.50') or (MaterialDescMemo.text = 'Ст.55') or

(MaterialDescMemo.text = 'Ст.5') or (MaterialDescMemo.text = 'Ст.4') then

begin

Label28.Caption := 'P';

Panel5.ParentBackground := false;

Panel5.Color := clSkyBlue;

MaterialTypeCB.ItemIndex := 2;

BrinelTextBox.Caption := '250';

RokvellTextBox.Caption := '25';

end;

if (MaterialDescMemo.text = 'Ст.60') or (MaterialDescMemo.text = 'Ст.65') or

(MaterialDescMemo.text = 'Ст.70') or (MaterialDescMemo.text = 'Ст.55') or

(MaterialDescMemo.text = 'Ст.75') or (MaterialDescMemo.text = 'Ст.80') or

(MaterialDescMemo.text = 'Ст.6') or (MaterialDescMemo.text = 'Ст.7') or

(MaterialDescMemo.text = 'Ст.8') then

begin

Label28.Caption := 'P';

Panel5.ParentBackground := false;

Panel5.Color := clSkyBlue;

MaterialTypeCB.ItemIndex := 3;

BrinelTextBox.Caption := '300';

RokvellTextBox.Caption := '32';

end;

if (MaterialDescMemo.text = '15ГС') or (MaterialDescMemo.text = '18Г2С') or

(MaterialDescMemo.text = '35ГС') or (MaterialDescMemo.text = '10Г2СД') or

(MaterialDescMemo.text = '14ХГС') or (MaterialDescMemo.text = '30ХГ2С') or

(MaterialDescMemo.text = '14ХГСН') or (MaterialDescMemo.text = '10ХГ2С') or

(MaterialDescMemo.text = '10ХГ2Н') or (MaterialDescMemo.text = '12ХГН') or

(MaterialDescMemo.text = '15ХГН') or (MaterialDescMemo.text = '10ХСНД') or

(MaterialDescMemo.text = '10ХНДП') or (MaterialDescMemo.text = '10ГНД') or

(MaterialDescMemo.text = '14Г2') or (MaterialDescMemo.text = '09Г2С') or

(MaterialDescMemo.text = '09Г2') or (MaterialDescMemo.text = '24Г') or

(MaterialDescMemo.text = '19Г') or (MaterialDescMemo.text = '14Г') or

(MaterialDescMemo.text = '14ХГ2Н') or (MaterialDescMemo.text = '15ХГН') or

(MaterialDescMemo.text = '10ХГ2Н') or (MaterialDescMemo.text = '12ХГН') or

(MaterialDescMemo.text = '10ХГ2С') or (MaterialDescMemo.text = '14ХГСН') or

(MaterialDescMemo.text = '30ХГ2С') or (MaterialDescMemo.text = '14ХГС') or

(MaterialDescMemo.text = '14ХГ2Н') or (MaterialDescMemo.text = '15ГС') or

(MaterialDescMemo.text = '10Г2СД') or (MaterialDescMemo.text = '18Г2С') or

(MaterialDescMemo.text = '35ГС') then

begin

Label28.Caption := 'P';

Panel5.ParentBackground := false;

Panel5.Color := clSkyBlue;

MaterialTypeCB.ItemIndex := 4;

BrinelTextBox.Caption := '275';

RokvellTextBox.Caption := '28,5';

end;

if (MaterialDescMemo.text = '15Х') or (MaterialDescMemo.text = '12Х2НВФА') or

(MaterialDescMemo.text = 'Х5МЛ') or (MaterialDescMemo.text = '35ФАЛ') or

(MaterialDescMemo.text = '25НЛ') or (MaterialDescMemo.text = '12МХЛ') or

(MaterialDescMemo.text = '25ГСЛ') or (MaterialDescMemo.text = '25ГС') or

(MaterialDescMemo.text = '70ХЛ') or (MaterialDescMemo.text = '40ХЛ') or

(MaterialDescMemo.text = '12ХН3А') or (MaterialDescMemo.text = '20ХГСА') or

(MaterialDescMemo.text = '20ХГ') or (MaterialDescMemo.text = '15ХА') or

(MaterialDescMemo.text = '20Х') or (MaterialDescMemo.text = '30Х') or

(MaterialDescMemo.text = '35Х') or (MaterialDescMemo.text = '38ХС') or

(MaterialDescMemo.text = '15ХФ') or (MaterialDescMemo.text = '20ХН') then

begin

Label28.Caption := 'P';

Panel5.ParentBackground := false;

Panel5.Color := clSkyBlue;

MaterialTypeCB.ItemIndex := 5;

BrinelTextBox.Caption := '200';

RokvellTextBox.Caption := '<20';

end;

if (MaterialDescMemo.text = 'У7') or (MaterialDescMemo.text = 'У') or

(MaterialDescMemo.text = 'Р') or (MaterialDescMemo.text = 'У8') or

(MaterialDescMemo.text = 'У9') or (MaterialDescMemo.text = 'У10') or

(MaterialDescMemo.text = 'У11') or (MaterialDescMemo.text = 'У12') or

(MaterialDescMemo.text = 'У13') or (MaterialDescMemo.text = 'Р18') or

(MaterialDescMemo.text = 'Р9') or (MaterialDescMemo.text = 'Р18М') or

(MaterialDescMemo.text = 'Р9М') or (MaterialDescMemo.text = 'Р2МА') or

(MaterialDescMemo.text = 'Р9К10') then

begin

Label28.Caption := 'P';

Panel5.ParentBackground := false;

Panel5.Color := clSkyBlue;

MaterialTypeCB.ItemIndex := 6;

BrinelTextBox.Caption := '300';

RokvellTextBox.Caption := '32';

end;

if (MaterialDescMemo.text = '15Л') or (MaterialDescMemo.text = '20Л') or

(MaterialDescMemo.text = '25Л') or (MaterialDescMemo.text = '30Л') or

(MaterialDescMemo.text = '35Л') or (MaterialDescMemo.text = '40Л') or

(MaterialDescMemo.text = '45Л') or (MaterialDescMemo.text = '55Л') or

(MaterialDescMemo.text = '70Л') or (MaterialDescMemo.text = '35ГЛ') or

(MaterialDescMemo.text = '25ГЛ') or (MaterialDescMemo.text = '40ГЛ') or

(MaterialDescMemo.text = '45ГЛ') then

begin

Label28.Caption := 'P';

Panel5.ParentBackground := false;

Panel5.Color := clSkyBlue;

MaterialTypeCB.ItemIndex := 7;

BrinelTextBox.Caption := '250';

RokvellTextBox.Caption := '25';

end;

if (MaterialDescMemo.text = '1Х13') or (MaterialDescMemo.text = 'Х') or

(MaterialDescMemo.text = '1Х13Ш') or (MaterialDescMemo.text = '2Х13Л') or

(MaterialDescMemo.text = '2Х13') or (MaterialDescMemo.text = '2Х13Ш') or

(MaterialDescMemo.text = '13Х14НВФРА') or (MaterialDescMemo.text = 'ЭИ736')

or (MaterialDescMemo.text = 'Х16Н6') or (MaterialDescMemo.text = 'ЭП288') or

(MaterialDescMemo.text = '4Х13') or (MaterialDescMemo.text = 'Х17') or

(MaterialDescMemo.text = 'Х17Н2') or (MaterialDescMemo.text = 'Х17Н2Ш') or

(MaterialDescMemo.text = 'Х16Н6') or (MaterialDescMemo.text = '9Х18') then

begin

Label28.Caption := 'M';

Panel5.ParentBackground := false;

Panel5.Color := clYellow;

MaterialTypeCB.ItemIndex := 8;

BrinelTextBox.Caption := '200';

RokvellTextBox.Caption := '<=20';

end;

if (MaterialDescMemo.text = '0Х18Н9') or (MaterialDescMemo.text = '08Х18Н10Т')

or (MaterialDescMemo.text = '12Х18Н10Т') or

(MaterialDescMemo.text = 'Х18Н9М') or (MaterialDescMemo.text = 'Х18Н9Л') or

(MaterialDescMemo.text = '2Х18Н9') or (MaterialDescMemo.text = 'Х23Н18') or

(MaterialDescMemo.text = '1Х21Н5Т') or (MaterialDescMemo.text = 'Х15Н9Ю') or

(MaterialDescMemo.text = 'Х17Н5М3') then

begin

Label28.Caption := 'M';

Panel5.ParentBackground := false;

Panel5.Color := clYellow;

MaterialTypeCB.ItemIndex := 10;

BrinelTextBox.Caption := '180';

RokvellTextBox.Caption := '<20';

end;

if (MaterialDescMemo.text = 'Х6СМ') or (MaterialDescMemo.text = '20Х3МВФ')

then

begin

Label28.Caption := 'M';

Panel5.ParentBackground := false;

Panel5.Color := clYellow;

MaterialTypeCB.ItemIndex := 9;

BrinelTextBox.Caption := '240';

RokvellTextBox.Caption := '23';

end;

if (MaterialDescMemo.text = 'ВЧ40') or (MaterialDescMemo.text = 'ВЧ') or

(MaterialDescMemo.text = 'ВЧ42-12') or (MaterialDescMemo.text = 'ВЧ80') or

(MaterialDescMemo.text = 'ВЧ100') or (MaterialDescMemo.text = 'ВЧ35') or

(MaterialDescMemo.text = 'ВЧ45') or (MaterialDescMemo.text = 'ВЧ50') or

(MaterialDescMemo.text = 'ВЧ60') or (MaterialDescMemo.text = 'ВЧ70') then

begin

Label28.Caption := 'K';

Panel5.ParentBackground := false;

Panel5.Color := clRed;

MaterialTypeCB.ItemIndex := 11;

BrinelTextBox.Caption := '220';

RokvellTextBox.Caption := '<20';

end;

if (MaterialDescMemo.text = 'СЧ15') or (MaterialDescMemo.text = 'СЧ24') or

(MaterialDescMemo.text = 'СЧ') or (MaterialDescMemo.text = 'С') or

(MaterialDescMemo.text = 'СЧ25') or (MaterialDescMemo.text = 'СЧ18') or

(MaterialDescMemo.text = 'СЧ21') or (MaterialDescMemo.text = 'СЧ28') or

(MaterialDescMemo.text = 'СЧ36') or (MaterialDescMemo.text = 'СЧ32') or

(MaterialDescMemo.text = 'СЧ44') then

begin

Label28.Caption := 'K';

Panel5.ParentBackground := false;

Panel5.Color := clRed;

MaterialTypeCB.ItemIndex := 12;

BrinelTextBox.Caption := '200';

RokvellTextBox.Caption := '<20';

end;

if (MaterialDescMemo.text = 'КЧ30') or (MaterialDescMemo.text = 'КЧ33') or

(MaterialDescMemo.text = 'КЧ') or (MaterialDescMemo.text = 'К') or

(MaterialDescMemo.text = 'КЧ35') or (MaterialDescMemo.text = 'КЧ37') or

(MaterialDescMemo.text = 'КЧ45') or (MaterialDescMemo.text = 'КЧ50') or

(MaterialDescMemo.text = 'КЧ56') or (MaterialDescMemo.text = 'КЧ60') then

begin

Label28.Caption := 'K';

Panel5.ParentBackground := false;

Panel5.Color := clRed;

MaterialTypeCB.ItemIndex := 13;

BrinelTextBox.Caption := '180';

RokvellTextBox.Caption := '<20';

end;

if (MaterialDescMemo.text = 'А0') or (MaterialDescMemo.text = 'А') or

(MaterialDescMemo.text = 'А1') or (MaterialDescMemo.text = 'А2') or

(MaterialDescMemo.text = 'А3') or (MaterialDescMemo.text = 'АД1') or

(MaterialDescMemo.text = 'АМц') or (MaterialDescMemo.text = 'АМГ2') or

(MaterialDescMemo.text = 'АМГ6') or (MaterialDescMemo.text = 'АМГ3') or

(MaterialDescMemo.text = 'АК4') or (MaterialDescMemo.text = 'АК6') or

(MaterialDescMemo.text = 'АК8') then

begin

Label28.Caption := 'N';

Panel5.ParentBackground := false;

Panel5.Color := clMoneyGreen;

MaterialTypeCB.ItemIndex := 14;

BrinelTextBox.Caption := '80';

RokvellTextBox.Caption := '<20';

end;

if (MaterialDescMemo.text = 'М') or (MaterialDescMemo.text = 'МН') or

(MaterialDescMemo.text = 'Б') or (MaterialDescMemo.text = 'БР') or

(MaterialDescMemo.text = 'Л') or (MaterialDescMemo.text = 'М0') or

(MaterialDescMemo.text = 'М1') or (MaterialDescMemo.text = 'М2') or

(MaterialDescMemo.text = 'М3') or (MaterialDescMemo.text = 'МН19') or