Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.11.2012, 19:39   #1
Huder
Новичок
Джуниор
 
Регистрация: 17.11.2012
Сообщений: 1
По умолчанию Выбор нужного круга по заданым критериям

Нужно выбрать подходящий круг из базы данных по следующим критериям:
(Примерная структура программы, пользователь должен вводить только нужную цифру)
Введите вид шлифования
1.Плоское
2.Круглое наружное врезное
3.Круглое шлифование шеек конического вала
4.Круглое наружное с продольной подачей
5.Бесцентровое
6. Зубошлифование
7. Резьбошшлифование
8. Шлицешлифование
Выберите материал шлифуемой детали
1. Сталь Р6М5 по ГОСТ 19265 62…65 HRC
2. Сталь 45 по ГОСТ 2050 45…50 HRC
3. Сталь У8А по ГОСТ 1435 56…60 HRC
4. Твердый сплав ВК8 по ГОСТ 3882 90 HRА
5. Чугун СЧ 15-32 по ГОСТ 1412 180…200 HВ
6. Сталь 45Г2 по ГОСТ 4543 42…48 HRC
7. Сталь ШХ15 по ГОСТ 801 61…64 HRC
8. Титановый сплав ВТ3-1,ВТ22 по ГОСТ 19807
9. Сталь 12ХН3А ГОСТ 43…45 HRC
10. Сталь 40Х ГОСТ 4543 40…45 HRC
11. Сталь 4Х5МФ1С-Ш,Х12М,65Г 35…41 HRC

Введите величину обрабатываемой детали
1. 10
2. 11 - 20
3. 21 - 40
4. 41 - 60
5. 61 - 80
6. 81 - 100
7. 101 - 200
8. >200

Введите требуемую шероховатость плоскости детали
Ra>> 1,6
3,2
6,3
12,5

Результат: Круг типа: (ПП,ЧЦ,К,Д,ПР,2П,3П,Т (размер )мм,Зернистость: мкм,Связка :


Так для плоского шл. присвоить тип круга -ПП
Круглое наружное врезное - ЧЦ
Круглое шлифование шеек конического вала - К
Круглое наружное с продольной подачей - Д
Бесцентровое - ПР
Зубошлифование - 2П
Резьбошшлифование - 3П
Шлицешлифование Т
Потом для каждого метала присвоить свой коэффициент kmet который в дальнейшем умножается на зернистость из таблицы ,так для:
1. Сталь Р6М5 по ГОСТ 19265 62…65 HRC kmet=0.9
2. Сталь 45 по ГОСТ 2050 45…50 HRC kmet=0.8
3. Сталь У8А по ГОСТ 1435 56…60 HRC kmet=0.85
4. Твердый сплав ВК8 по ГОСТ 3882 90 HRА kmet=0.7
5. Чугун СЧ 15-32 по ГОСТ 1412 180…200 HВ kmet=0.8
6. Сталь 45Г2 по ГОСТ 4543 42…48 HRC kmet=0.95
7. Сталь ШХ15 по ГОСТ 801 61…64 HRC kmet=0.78
8. Титановый сплав ВТ3-1,ВТ22 по ГОСТ 19807 kmet=1.1
9. Сталь 12ХН3А ГОСТ 43…45 HRC kmet=1.2
10. Сталь 40Х ГОСТ 4543 40…45 HRC kmet=1
11. Сталь 4Х5МФ1С-Ш,Х12М,65Г 35…41 HRC kmet=0.77

Пример:
Введите вид шлифования
1.Плоское
2.Круглое наружное врезное
3.Круглое шлифование шеек конического вала
4.Круглое наружное с продольной подачей
5.Бесцентровое
6. Зубошлифование
7. Резьбошшлифование
8. Шлицешлифование
>> 1
Выберите материал шлифуемой детали
1. Сталь Р6М5 по ГОСТ 19265 62…65 HRC
2. Сталь 45 по ГОСТ 2050 45…50 HRC
3. Сталь У8А по ГОСТ 1435 56…60 HRC
4. Твердый сплав ВК8 по ГОСТ 3882 90 HRА
5. Чугун СЧ 15-32 по ГОСТ 1412 180…200 HВ
6. Сталь 45Г2 по ГОСТ 4543 42…48 HRC
7. Сталь ШХ15 по ГОСТ 801 61…64 HRC
8. Титановый сплав ВТ3-1,ВТ22 по ГОСТ 19807
9. Сталь 12ХН3А ГОСТ 43…45 HRC
10. Сталь 40Х ГОСТ 4543 40…45 HRC
11. Сталь 4Х5МФ1С-Ш,Х12М,65Г 35…41 HRC
>> 1
Введите величину обрабатываемой детали
1. 10
2. 11 - 20
3. 21 - 40
4. 41 - 60
5. 61 - 80
6. 81 - 100
7. 101 - 200
8. >200
>> 1
Введите требуемую шероховатость плоскости детали
Ra>> 1,6
3,2
6,3
12,5
>> 1
Результат: Круг типа: ПП 10 мм,Зернистость: 18.9 мкм,Связка : СМ1
Вложения
Тип файла: rar Tabl.rar (4.5 Кб, 4 просмотров)

Последний раз редактировалось Huder; 17.11.2012 в 19:43. Причина: Загрузил таблицу
Huder вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сложный выбор нужного значения из исходной таблицы Zaparich Microsoft Office Excel 2 03.06.2012 11:45
Выбор нужного значения по нескольким критериям Excel 2010 dg'uyd Microsoft Office Excel 2 22.03.2012 11:32
Копирование строк с заданым значением Cone Microsoft Office Excel 3 30.05.2011 09:06
Выбор строк на отдельные листы по критериям (проведение соревнований). 6306617 Microsoft Office Excel 17 23.02.2011 19:45
Выбор результата по нескольким критериям barbus Microsoft Office Excel 4 27.02.2010 10:03