Для нарезания резьб на моем станке используется замена шестерен, что позволяет расширить диапазон возможных резьб оносительно заводской инструкции, в том числе нарезать дюймовые резьбы. Хоть формула расчета шага через число зубьев и проста, но для выяснения "а какие шестерни поставить для получения нужного шага" приходится повторять расчет для каждого набора. Муторно...
На просторах интернета была найдена программа, расчитывающая наборы шестерен - но к сожалению написана она крайне криво, изобилует ошибками и к тому же привязана к единственному каталогу. Как известно, "хочешь чтобы было сделано хорошо - сделай сам", пришлось сделать. По мере возможностей сохранил Look&Feel, извел багов и чуть добавил функциональности.
Загрузить (128,3 KiB, 2 160 hits)
Для выполнения требуется рантайм VB6 (скачать его можно тут).
Пожелания принимаются.
Перевод:
Для получения английской версии достаточно переименовать файл lang.txt в каталоге программы, для перевода на другие языки нужно перевести все строки после знака "=" из этого файла.
---
UPD от 17.10.2012. Вышла новая версия, по ссылке выше будет загружена именно она. Старую можно загрузить тут:
Загрузить старую версию (125,1 KiB, 91 hits)
UPD от 8.11.2012. Вышла версия программы, умеющая расчитывать наборы с учетом дополнительной переключаемой коробки Нортона. Подробнее.
Если вам настолько понравилась программа, что вдруг захотелось поддержать автора - это можно легко сделать!
Нравится или нет:
-2
Дмитрий! Ваша программа не запускается на WinXP без библиотек Visual Basic. Делает это (не запускается) молча - т.е нет обработчика системных ошибок, нет анализа конфигурации в среде запуска. Желательно сделать простейший установщик включающий в инсталляцию не только exe, ini, и lang файлы но и все необходимые для автономной работы программы библиотеки Visual Basic. Спасибо за Ваш труд! С уважением Алексей!
Нравится или нет:
0
Извините, но мне казалось что намек "требует рантайм VB6" достаточно понятен
Могу еще раз: ТРЕБУЕТ.
>Делает это (не запускается) молча - т.е нет обработчика системных ошибок, нет анализа конфигурации в среде запуска
Навеяло... "человек с отрезанной головой молча валяется - то есть не возмущается про ошибку головы, не пишет заявлений в милицию"
>Желательно сделать простейший установщик включающий в инсталляцию не только exe, ini, и lang файлы но и все необходимые для автономной работы программы библиотеки Visual Basic
И тут же навлечь на сайт гнев мелкомягких за варез? Спасибо за предложение, я как-нибудь обойдусь
К тому же,
Нравится или нет:
0
Программа понравилась, удобно подбирать шестеренки.
"Дальнейшие пожелания принимаются - на странице загрузки есть комментарии. "
Было-бы очень неплохо чтобы появился еще и "пост-делитель" и перебор вариантов постделения. На некоторых станках между гитарой и ходовым винтом стоит коробка подач, например с делением 1:1 и 1:2, или, как у меня, коробка нортона на 9 позиций.
Можно даже без графического интерфейса, один раз можно и ini ручками поправить, а выводе результатов достаточно чтобы просто указывался номер скорости.
Добавить в ini новую секцию и в ней задавать передаточное отношение в виде простой дроби (число зубьев в шестеренках коробки), например так:
post_trans_count=9
post_trans_1="16:16"
post_trans_2="16:18"
.............
post_trans_9="16:28"
Нравится или нет:
0
Ууу как все запущено
Пост-длитель - плз пример станка с иррелевантным делителем, который невозможно учесть как "пред-делитель". ИМХО ежели есть коробка, то все резьбы делаются ею, и надобность в оной программе строго равна нулю. Корвет-402 в пример плз не приводить, ибо коробки Нортона по замыслу его создателей должно хватать на все дюймовые резьбы, а метрика это излишне. Для корвета-403 можно просчитать все 3 имеющиеся варианта, просто указав коробку как предделитель, для 402 аналогично, но использовать в коробке только 2 передачи, указаные в паспорте: 7 и 1.
Добавление же в расчет еще одной ступени приведет к росту объема расчета с 4-ой до 5-ой степени от количества шестерен, и тогда окончания вычислений можно и не дождаться
"задавать передаточное" - морда программы потому и сделана на VB, что на нем разработка/доработка интерфейса занимает считаные секунды. Так что мне проще сделать изменения в ГУИ, чем переделывать парсер инишника! Служебные файлы не предназначены для ручного редактирования, их формат не публиковался, в их парсере даже никаких проверок нет
Соответственно все вопросы по попыткам их редактирования отправляются в /dev/null. Конечно, я стараюсь делать их читабельными - но это исключительно в дань линуксовым традициям, от нелюбви к реестру, ну и для удобства отладки.
Нравится или нет:
0
Выдалось немного свободного времени - забирайте, проверяйте.
Нравится или нет:
0
Сер Админ, а какой алгоритм использовался в программе? Я вон тоже написал скрипт, реализующий перебор вариантов. Точнее не полный перебор всех вариантов (там жуть уже при небольшом числе шестерен), а только расстановку из Н по М. Правда не учитываю пересечение шестерен с осями, лень добавлять, да и пока не нужно было.
Нравится или нет:
+1
А какие тут могут быть варианты кроме полного перебора всех размещений? Правда с некоторой незначительной оптимизацией (дубли шестерен), но это скорее для самоуспокоения и на скорость не влияет. А вот что на нее влияет - это то самое О большое, которое стоит перед формулой. Все-таки скриптовые языки предназначены для малость других задач, поэтому эффективность использования процессора у них хуже паровоза.
Прикидочный расчет: количество размещений в нашем случае (грубо) это четвертая степень общего количества шестерен, так что даже для коллекции из 100 шестерен (предел мечтаний!) это всего лишь 100 миллионов комбинаций, а процессор у нас выполняет за 6 миллиардов операций в секунду, так что если на одно вычисление по формуле тратится даже не 12 операций (6 извлечений, 5 арифметики, сравнение) а в 5 раз больше - целых 60 - так вот для такой коллекции набор шестерен будет рассчитан за секунду.
Так что я не вижу смысла в какой-либо оптимизации.
PS. Мода на коверканье слов давно прошла, "сер".
Нравится или нет:
0
Просто еще одно ОГРОМНОЕ спасибо за программу!!! )
Нравится или нет:
0
Благодарности за программу принимаются также и в материальной форме
Правый клик по левой иконке в заголовке - "о программе"
Нравится или нет:
+1
Ну как бы перед размещением самой программы на сторонних ресурсах, можно было связаться с автором и попросить разрешения. Это же не трудно. А уж если исчезнет этот ресурс и найти автора не удасться, то наверно можно и выложить тело программы с сылкой на бывший ресурс и указанием автора этой программы. Сама программа то ведь уже скачана в личное пользование. Как то так вот думаю.
Нравится или нет:
-2
[MARKED AS SPAM BY ANTISPAM BEE | CSS Hack]
очень благодарен за прогу. но всетаки несмотря на просьбу, залинковал софт (иногда бывает сайт первоисточника недоступен, или переехал и найти прогу невозможно. подальше положишь, поближе возмешь) и сделал ссылку на эту старницу.
Нравится или нет:
0
Ну герой - стырить и еще публично про это заявить
Вот из-за таких как ты, которые воруют даже бесплатное, и пропадает всякое желание что-либо выкладывать.
Нравится или нет:
0
[MARKED AS SPAM BY ANTISPAM BEE | CSS Hack]
Спасибо за программу
Нравится или нет:
0
Вот спасибо!!! Приспичило резать полдюймовую резьбу 20 ниток на дюйм, а винт метрический. На чипмейкере есть прораммка расчета, но она консольная и не так удобная. А тут вбил имеющиеся шестеренки и готово. Очень нужная программка!
Нравится или нет:
0
Просьба на другие ресурсы (в том числе и на чипмейкер) саму программу не выгружать - а линк пожалуйста.
Нравится или нет:
0
Вы писали "Да хоть кому раздай, для того и делалась. Можно даже ссылку (на страницу загрузки а не на саму программу) по разным сайтам/форумам разместить чтобы быстрее искалась." Правил стараюсь никогда не нарушать.
Размещаю только ссылку на эту страницу. Программа действительно очень нужная! узнал, что мой китаец может нарезать аж с шагом от 0,3 до 20 мм!!! Ну и плюс кучка дюймовых резьб реализуется.
Нравится или нет:
0
Если еще обзавестись шестеренками с 15, 18, 21 и 90 зубьев, то резать можно будет совершенно любые резьбы
Нравится или нет:
0
Спасибо за инфу!!! Как соберу приспособу для резки шестеренок, так и наделаю. Пластиковые в шпинделе менять надо на металл. Пока живые, но это не вечно. Заодно и для гитары нарежу.
Нравится или нет:
+1
В шпиндель металл обязателен, а для гитары вполне подходят и пластиковые, кои можно резать и на самом станке безо всяких приспособ - простым строганием продольной подачей, единственное что нужно это тормоз шпинделя и транспортир. Самое приятное что с парой 15-90 скорость автоподачи падает почти вдвое, со всеми плюшками.
Нравится или нет:
0
Ты просто супер-молодец!
Ты глобально облегчил мне жизнь у станка.
Если ты не против я бы хотел дать эту программу своим знакомым токарям?
Побольше таких молодцов как ты!!!
Спасибо и УДАЧИ тебе!
Нравится или нет:
0
Да хоть кому раздай, для того и делалась. Можно даже ссылку (на страницу загрузки а не на саму программу) по разным сайтам/форумам разместить чтобы быстрее искалась.
Нравится или нет:
0
Дмитрий, спасибо! Мой "школьный" ТВ станок будет рад научному подходу к процессу переналадки гитары!
Нравится или нет:
+3
Ну хоть кому-то прога понравилась, а то 700 скачиваний - и первый комментарий