- Поисковые системы
- Практика оптимизации
- Трафик для сайтов
- Монетизация сайтов
- Сайтостроение
- Социальный Маркетинг
- Общение профессионалов
- Биржа и продажа
- Финансовые объявления
- Работа на постоянной основе
- Сайты - покупка, продажа
- Соцсети: страницы, группы, приложения
- Сайты без доменов
- Трафик, тизерная и баннерная реклама
- Продажа, оценка, регистрация доменов
- Ссылки - обмен, покупка, продажа
- Программы и скрипты
- Размещение статей
- Инфопродукты
- Прочие цифровые товары
- Работа и услуги для вебмастера
- Оптимизация, продвижение и аудит
- Ведение рекламных кампаний
- Услуги в области SMM
- Программирование
- Администрирование серверов и сайтов
- Прокси, ВПН, анонимайзеры, IP
- Платное обучение, вебинары
- Регистрация в каталогах
- Копирайтинг, переводы
- Дизайн
- Usability: консультации и аудит
- Изготовление сайтов
- Наполнение сайтов
- Прочие услуги
- Не про работу
Авторизуйтесь или зарегистрируйтесь, чтобы оставить комментарий
Dim x As Integer 'счетчик
Dim s As Integer 'ширина бухты в мм
Dim d As Integer 'диаметр кабеля в мм
Dim innocent As Integer 'стартовый диаметр бухты в мм
Dim potaskuha As Integer 'остаточный диаметр бухты в мм
Dim vshir As Integer ' количество витков в ряду
Dim vglub As Integer ' количество витков отмотанных
Dim skrisili As Integer = 0 'сколько кабеля ушло в мм
vshir = s / d
vglub = (innocent - potaskuha) / d 'ну и округлить надо
For x = 0 To vglub - 1
skrisili += 3.14 * (innocent - d * x) * vshir
Next
MessageBox.Show("Отмотали " & skrisili & " mm")
Работать, скорее всего, не будет, но показывать заказчику прототип и начинать клянчить предоплату за проект по автоматизации складского учета уже можно)
Ленивое Z, а формулу? А Козлевичу? (ц) 😂
pelvis,
во, еще уточнение появилось. А что вы меня-то спрашиваете как с этим быть? :) Если что, передайте проводу, что я не разрешаю ему так ложиться;)
Данная проблема и любые иные связанные с топологией вашей бухты, как уже написал (не подумав) решается взвешиванием.
Данная проблема и любые иные связанные с топологией вашей бухты, как уже написал (не подумав) решается взвешиванием.
Так весы - проблема. Если бы все было так просто, то барабан-тара приходовалась бы по весу, но обычно там стоит намотка в метрах и все. И обычно она продается целиком, а такие моменты - страшная редкость. )
Nобщ1=D1-Dкат/10
Для N от 0 до Nобщ1
L1=L1+pi*(Dкат+5мм+Т*10мм)*150
Nобщ2=D2-Dкат/10
Для N от 0 до Nобщ2
L2=L2+pi*(Dкат+5мм+Т*10мм)*150
Lпрод=L2-L1
Это если витки ложатся ровно друг на дружку и мы пренебрегаем спиралевидностью.
А если новые витки ложатся между имеющимися, то в определении Nобщ просто вместо 10 делим на 8,6
Priorat, не совсем понятно. Dкат - это что за константа? И L1, L2 которые стоят в правой части, какие они?
Priorat, не совсем понятно. Dкат - это что за константа? И L1, L2 которые стоят в правой части, какие они?
Dкат это внешний диаметр катушки,н а которую наматывается провод.
А L1 и L2 это определенные значения из предыдущей итерации. То есть На первом витке L1 и L2 равны нулю, на втором равны длинне обмотке первого слоя. В выражении по сути описано циклическое суммирование длин по слоям.
pelvis, Формулу не подскажу, но по моему есть приборы, которые меряют длину. Знаю точно, такой есть для витой пары.
А что нужно измерить то? Остаток на барабане? С завода пишут сколько кабеля на барабане, отнимите сколько отрезали и всё.
отнимите сколько отрезали и всё.
Гениально! :) ... а сколько отрезали?)