Пятница, 29.03.2024, 09:57

Главная Регистрация Вход
Приветствую Вас, Гость · RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 2 из 2
  • «
  • 1
  • 2
Электролаборатория-Форум » Общая информация » Тех. поддержка » Программы для быстрого составления протоколов испытаний (Выкладываем и обсуждаем)
Программы для быстрого составления протоколов испытаний
oldyakoffДата: Пятница, 30.03.2012, 12:00 | Сообщение # 16
Сержант
Группа: Пользователи
Сообщений: 27
Репутация: 0
Статус: Offline
Несмотря на "кривоватость" DND выгодно отличается ценой от "протокола+". Просить полтос за такую простенькую прогу можно было лет 10-15 назад, а в наши дни ИМХО это есть моветон. Рассчет авторов на "гопоту" с одним мегаомметром в багажнике, которые - "испытываем усё". Всё ж в экселе дешевле всего, а еще лучше в аксессе. Когда у самого (это я про себя) голова не из того места растет зовем на помощь грамотного программера и выдаем ему техзадание, а потом долго и упорно сидим с ним и подгоняем базу под свои запросы. На роль компьютерного гения нынче годится почти любой студент АСУшник. Если он вам не родственник/друг/сосед/сын друзей/сын соседей, то платим ему немнго побольше деньгов или пива smile (ну уж точно не 50к) А дальше широко улыбаемся и сэкономленное время используем на зарабатывание ещё больше деньгов smile при этом не забывая время от времени приглашать хакера на выправку косяков, добавление новых плюшек и поения его пивом или одарения малой толикой деньзнаков :)))

Добавлено (30.03.2012, 12:00)
---------------------------------------------
Ага, а сам сижу рисую сейчас очередной протокол в ворде и дойти на второй этаж офиса к "хакерам" по этому поводу не соберусь уже полгода smile

 
Serg1976Дата: Пятница, 29.06.2012, 23:31 | Сообщение # 17
Рядовой
Группа: Пользователи
Сообщений: 5
Репутация: 0
Статус: Offline
программа уже давно была доработана и улучшена, так же добавилась поддержка бесплатной отечественной САПР программы NanoCad (вместо AutoCad), да и цена снизилась.
 
xokДата: Вторник, 03.07.2012, 10:48 | Сообщение # 18
Подполковник
Группа: Пользователи
Сообщений: 104
Репутация: 1
Статус: Offline
Quote (sergant7140)
лет назад отказался от ворда в сторону экселя, чему теперь необычайно рад.
1.Сопротивление изоляции: исходя из U, кол-ва жил расставляет значения в пределах нормы (Примечание 1: если замер в норме, то можно и автоматически проставить, другое дело если не в норме - редактируется элементарно вручную)
2. Металосвязь: Исходя из количества точек расставляет значения в пределах нормы + Прим.1
3. Фаза - ноль: Исходя из тока автомата/кол-ва жил расставляет значения в пределах нормы + Прим.1
4. Заземление: пара значений вручную, остальное автомат


Quote (Ламыч)
Уважаемый, sergant7140. Не могли бы вы поделиться с коллегами сим шедевром инженерной мысли, если это возможно?


как можно сделать это на экселе на скорую руку в качестве примера
в таблице существуют графы (чисто условно) замеры сопротивления изоляции проводки:
А-В| B-C | C-A | A-N | B-N | C-N | A-PE | B-PE | C-PE | N-PE
В экселе разместим их 8 строке начиная с 3 столбца (это для макроса который написан снизу)
Далее если у нас сопротивление изоляции в норме, но точных замеров нет да они и не к чему, зададим программе диапазон значений между которыми она выбрит случайные числа
в строке 2 столбец 3 - минимальное значение
в строке 2 столбец 4 - максимальное значение

укажем число измеренных кабелей в таблице то есть РУ1-ЩО1, РУ-ЩО2 и т.п. для каждого кабеля будет своя строка измерений, количество строк укажем в строке 3 столбец 3

лист в экселе должен называться ГСЧ

Дальше сам код выполнения который с генерирует значения в указанном вами диапазоне
Code

Option Explicit

Sub ГСЧ_по_диапозону()
Dim nomer As Long 'количество позиций
Dim i, j As Long
Dim k As Integer

Sheets("ГСЧ").Select
nomer = ActiveSheet.Cells(3, 3).Value + 9 'прибавляем 9 так как цикл пойдет с 9 строки то есть начальная позиция 9 + количество позиций

For i = 9 To nomer
            
        For k = 3 To 12
            ActiveSheet.Cells(i, k).Value = ГСЧ
        Next k
            
Next i

End Sub

Private Function ГСЧ() As Long
Dim min_Value, max_Value As Long 'минимальное и максимальное значение диапазона

Sheets("ГСЧ").Select
min_Value = ActiveSheet.Cells(2, 3).Value
max_Value = ActiveSheet.Cells(2, 4).Value

ГСЧ = Int((max_Value - min_Value + 1) * Rnd + min_Value)

End Function


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


Сообщение отредактировал xok - Вторник, 03.07.2012, 10:52
 
Serg1976Дата: Четверг, 05.07.2012, 22:03 | Сообщение # 19
Рядовой
Группа: Пользователи
Сообщений: 5
Репутация: 0
Статус: Offline
на самом деле все действительно просто, похожий принцип с остальными отчетами, кроме фазы-ноль - там еще формулу надо вставить для расчета времени срабатывания отдельно для каждого автомата при КЗ. Ну и в однолинейных схемах тоже суть похожая. В общей сложности размер кода всего лишь не более нескольких сотен страниц А4.
 
sergant7140Дата: Вторник, 18.09.2012, 10:26 | Сообщение # 20
Лейтенант
Группа: Пользователи
Сообщений: 68
Репутация: 0
Статус: Offline
Quote (Ламыч)
Уважаемый, sergant7140. Не могли бы вы поделиться с коллегами сим шедевром инженерной мысли, если это возможно?

Извините, раньше не получилось
 
Alex495Дата: Среда, 07.11.2012, 10:43 | Сообщение # 21
Рядовой
Группа: Пользователи
Сообщений: 17
Репутация: 0
Статус: Offline
Уважаемый sergant7140, Ваш сайт не работает:(
Если Вас не затруднит, перезалейте пожалуйста в другое место.

Сайт заработал. Огромное спасибо за Ваш труд!
Ссылка немного изменилась.


Сообщение отредактировал Alex495 - Пятница, 09.11.2012, 10:05
 
sergant7140Дата: Среда, 28.11.2012, 10:16 | Сообщение # 22
Лейтенант
Группа: Пользователи
Сообщений: 68
Репутация: 0
Статус: Offline
Quote (Alex495)

Сайт заработал. Огромное спасибо за Ваш труд!
Ссылка немного изменилась.

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




Сообщение отредактировал sergant7140 - Четверг, 29.11.2012, 10:12
 
oldyakoffДата: Пятница, 16.08.2013, 14:05 | Сообщение # 23
Сержант
Группа: Пользователи
Сообщений: 27
Репутация: 0
Статус: Offline
Купил на днях  DND ЭТЛпро (пару месяцев погонял демку и решился). Денег (3,5 тыр) она своих вроде стоит, база протоколов обширная, всё можно подогнать "под себя", всё редактируется. Самое главное в ней -БАЗА! Наконец то быстро и удобно архивируем результаты испытаний. Мне понравилось.
PS И кстати автор почти всегда доступен по мылу, отвечает быстро


Сообщение отредактировал oldyakoff - Пятница, 16.08.2013, 14:07
 
SamsonДата: Вторник, 24.12.2013, 19:32 | Сообщение # 24
Рядовой
Группа: Пользователи
Сообщений: 1
Репутация: 0
Статус: Offline
Уважаемый sergant7140 не могли бы вы повторить ссылочку, очень очень нужно. Заранее благодарю!
 
softscriptДата: Среда, 12.03.2014, 16:46 | Сообщение # 25
Рядовой
Группа: Пользователи
Сообщений: 2
Репутация: 0
Статус: Offline
Цитата Samson ()
Уважаемый sergant7140 не могли бы вы повторить ссылочку, очень очень нужно. Заранее благодарю!
Присоединяюсь к просьбе.
 
loputckoДата: Вторник, 26.07.2016, 12:46 | Сообщение # 26
Рядовой
Группа: Пользователи
Сообщений: 1
Репутация: 0
Статус: Offline
Уважаемый sergant7140, не могли бы Вы и мне помочь со ссылочкой. Очень нужно. Заранее благодарю.
 
madegazzДата: Вторник, 22.11.2022, 19:02 | Сообщение # 27
Рядовой
Группа: Пользователи
Сообщений: 3
Репутация: 0
Статус: Offline
Всем привет!) Есть, кто живой)? Никто не пробовал приложение Elektrolab Industrie ?
сайт Elektrolab.pro
Можно месяц бесплатно попробовать, потестить. Мне очень понравилось описание приложения, можно типа на планшете прям на объекте вносить данные, схемы рисует однолинейные.

Добавлено (22.11.2022, 20:22)
---------------------------------------------
А кто-нибудь пользовался приложением Elektrolab Industrie? Недавно предлагали тестовый период один месяц, интересно, что за прога такая может есть опыт у кого...


Сообщение отредактировал madegazz - Вторник, 22.11.2022, 21:52
 
Электролаборатория-Форум » Общая информация » Тех. поддержка » Программы для быстрого составления протоколов испытаний (Выкладываем и обсуждаем)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск: