Перейти до

Рекомендованные сообщения

  • 1 month later...
  • Відповіді 267
  • Створено
  • Остання відповідь

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

В общем, долго не мудрствуя, заколупавшись с Excel и карандашом ... - наваял прожку для счёта дерева ПОН. ТЗ, своё, реализация - абы считало ... Интерфейс и подсказки - а нафига? Прожка - сильно с

А теперь все то же самое пересохрани под 2003 визио.

Доброго времени суток сообщество! Немного появилось свободного времени, - посему немножко доделал/переделал Сабж. Итак:   Pon Calculator: Шаблон.rar      PON.vss - набор макро

Posted Images

В 15.08.2020 в 21:43, Wsdw сказал:

Доброго времени судок 

Скажите а есть шаблоны кабеля с одним модулем но на 16,24,32 волокна

1. Переключитесь в режим "разработчика". (Стандартные настройки Visio)

2. Правой кн. мыши на заголовке набора елементов, "изменить набор...."

3. Пр. кн. мыши на Cable, "изменить образец", "изменить фигуру образца",  Пр. кн. мыши на фигуре кабеля, "показать таблицу свойст фигуры" ...

4. Ищем группу "Shape Data", строчка "Prop.Modules", колонка "Format"

5. Строчка "FTTH;1;2;4;6;8;12" - через точку с запятой добавляем нужное к-во волокон ... (не забываем про открывающие и закрывающие скобки)

 

PS: То же самое можно делать с модульностью, к-вом портов ОЛТ и многим др ...

ЗЗЫ: Также можно менять отдельные элементы не в наборе шаблонов просто кликнув на объекте и вызвав "показать таблицу свойств фигуры"

В 26.08.2020 в 16:19, George_jan сказал:

кому удалось разобраться с ошибками в макросах отпишитесь

 

В 08.10.2020 в 14:53, Artem_w87 сказал:

Не запускается макрос в Windows 10 64 бит. Visio 2010

 

 

Для непонятливых: Вам шашечки или ехать ?

Разарбатывалось под Visio 2010 Pro 32 Бита - под ним работает без сбоев ...

Хотите работать - ставьте рекомендуемое. Нет - Ваши сексуальные проблемы ...

Ссылка на сообщение
Поделиться на других сайтах
Опубліковано: (відредаговано)
В 08.10.2020 в 14:53, Artem_w87 сказал:

Не запускается макрос в Windows 10 64 бит. Visio 2010

image.thumb.png.0537fe10ceb9754617840fc1786932ce.png

 

В Вашем конкретном случае отсутствует функция GetTickCount в модуле kernel32 (Вообще-то стандартная функция в ЛЮБОЙ ВИНДЕ) - т.е. у Вас какой-то репак или "обрезка" ... Но в данном конкретном случае я её использовал для "профилинга" (улутшения быстродействия) ... 

Т.е. это чисто утилитарная функция может быть удалена (строчку удалить сможете) и пересохранить ? (могут вылезти взаимосвязи хотя я их и комментировал - их тоже можно ... удалить)

Відредаговано Учумелые ручки
Ссылка на сообщение
Поделиться на других сайтах

Доробляв мало....


image.thumb.png.41f895b488c98c0878b227ff7adb7c2e.png

Не самий правильний метод, але працює! :)
При намалюванні внутренність ПОНбокса, розкольоруваня сплитера зміщена і тільки вихід сплитера йде по о стандартній палітри а вхід має нейтральний (білий) колір (так більш правильно)

 

 

Мені так ще краще нравиться :)image.thumb.png.95441bab00d165cf0c84253e48367812.png

Візуально більш інформативне.

Відредаговано CAHI33
  • Thanks 2
Ссылка на сообщение
Поделиться на других сайтах
В 15.10.2020 в 01:50, CAHI33 сказал:

Доробляв мало....


image.thumb.png.41f895b488c98c0878b227ff7adb7c2e.png

Не самий правильний метод, але працює! :)
При намалюванні внутренність ПОНбокса, розкольоруваня сплитера зміщена і тільки вихід сплитера йде по о стандартній палітри а вхід має нейтральний (білий) колір (так більш правильно)

 

 

Мені так ще краще нравиться :)image.thumb.png.95441bab00d165cf0c84253e48367812.png

Візуально більш інформативне.

  

Добрый день, я правильно понимаю что на последнем скриншоте это ваш файл с цветной разметкой?
Если это так можно попросить вас поделится ним с общественностью. Спасибо!.

Ссылка на сообщение
Поделиться на других сайтах

Так, все вірно! Звічайно що поділюся! 
Необхідно пару рядкив дописати до орігинала, та при відкриття вже зєднаної ліні буде малювати з кольорами :)

Зміни зробив у IntToVal функції . Тут модіфіцірована функція:
 

Public Sub IntToVal(Row, Col As Long, val As Variant)
    Dim s As String
    Dim loss As Double
    Dim c As Long
    Dim p As Long
    Dim fakul As Long
    Dim PLC2s As String

        
    'Dim log As New cLog:     log.init "IntToVal"
    
    Select Case Col
        Case 1
            s = IIf(val = 0, "Int", "Cas" & val)
        Case 2, 6
            Select Case val
                Case -6: s = "PLC"
                Case -5: s = "FBT"
                Case -8: s = "PLC2"
                Case -7: s = "FBT2"
                Case Is > 0: s = "Ab" & val
                Case 0: s = ""
                Case Else: s = "Cab" & Abs(val)
            End Select
        Case 3, 7
            s = lst.TextMatrix(Row, Col - 1)
            If InStr(s, "Ab") > 0 Then
                s = "FTTH"
'                lst.Cell(flexcpBackColor, Row, Col) = GetRGB_Hex("RGB(200,200,200)")
            End If
            If InStr(s, "FBT") > 0 Then 'Atszinezem az FTB hateret
                 s = "Split"
                 lst.Cell(flexcpBackColor, Row, Col) = GetRGB_Hex("RGB(100,10,160)")
                 lst.Cell(flexcpBackColor, Row, Col - 1) = GetRGB_Hex("RGB(100,10,160)")
                 lst.Cell(flexcpForeColor, Row, Col) = GetRGB_Hex("RGB(255,255,0)")
                 lst.Cell(flexcpForeColor, Row, Col - 1) = GetRGB_Hex("RGB(255,255,0)")
            End If

            If InStr(s, "PLC") > 0 Then s = "Split"
            If InStr(s, "FBT") > 0 Then s = "Split"
            If box.isFTTH(ToVal(Row, Col - 1)) Then s = "FTTH"
            
            If s = lst.TextMatrix(Row, Col - 1) Then
                If Trim(lst.TextMatrix(Row, Col)) = "" Then s = val Else s = lst.TextMatrix(Row, Col)
            End If
            If VBA.val(s) > 0 Then
'-=-=-=-=-=-=-
                p = VBA.val("-" & Replace(lst.Cell(flexcpText, Row, Col - 2), "Cab", ""))
                c = GetFiber_Color(VBA.val(s), box.GetFibesOnPort(p), box.GetColorsOnPort(p))
                
                lst.Cell(flexcpBackColor, Row, Col) = c
               
                lst.Cell(flexcpForeColor, Row, Col) = IIf((GetRGB_Hex(cBlack) = c) Or _
                                                          (GetRGB_Hex(cBlue) = c) Or _
                                                          (GetRGB_Hex(cBrown) = c) Or _
                                                          (GetRGB_Hex(cGray) = c) Or _
                                                          (GetRGB_Hex(cViolet) = c), _
                                                                        RGB(255, 255, 255), 1)
            Else
'                lst.Cell(flexcpBackColor, Row, Col) = GetRGB_Hex("RGB(200,200,200)")
            End If
        
        Case 4, 8
            s = lst.TextMatrix(Row, Col - 2)
            If InStr(s, "Ab") > 0 Then
                s = "One"
'                lst.Cell(flexcpBackColor, Row, Col) = GetRGB_Hex("RGB(200,200,200)")
            Else
 '//szinezes
    '----=== //Kabelek szinezese
             If InStr(s, "Cab1") > 0 Then 'Atszinezem ha ez Cab1
               lst.Cell(flexcpBackColor, Row, Col - 1) = GetRGB_Hex("RGB(200,240,255)")
               lst.Cell(flexcpBackColor, Row, Col - 2) = GetRGB_Hex("RGB(200,240,255)")
             End If
             If InStr(s, "Cab2") > 0 Then 'Atszinezem ha ez Cab2
               lst.Cell(flexcpBackColor, Row, Col - 1) = GetRGB_Hex("RGB(255,150,240)")
               lst.Cell(flexcpBackColor, Row, Col - 2) = GetRGB_Hex("RGB(255,150,240)")
             End If
             If InStr(s, "Cab3") > 0 Then 'Atszinezem ha ez Cab3
               lst.Cell(flexcpBackColor, Row, Col - 1) = GetRGB_Hex("RGB(255,250,170)")
               lst.Cell(flexcpBackColor, Row, Col - 2) = GetRGB_Hex("RGB(255,250,170)")
             End If
             If InStr(s, "Cab4") > 0 Then 'Atszinezem ha ez Cab4
               lst.Cell(flexcpBackColor, Row, Col - 1) = GetRGB_Hex("RGB(100,255,80)")
               lst.Cell(flexcpBackColor, Row, Col - 2) = GetRGB_Hex("RGB(100,255,80)")
             End If
    '----=== Kabelek szinezese\\
             If InStr(s, "PLC") > 0 Then 'Atszinezem ha ez PLC-s felirat
               If InStr(s, "2") > 0 Then 'megkulonkoztetjuk a PLC es a PLC2-ot
                 PLC2s = "Sec"
                 fakul = 10
                 lst.Cell(flexcpBackColor, Row, Col - 0) = GetRGB_Hex("RGB(220,220,220)") 'Volokno oszlop
                 lst.Cell(flexcpBackColor, Row, Col - 1) = GetRGB_Hex("RGB(220,220,220)") 'Moduly
                 lst.Cell(flexcpBackColor, Row, Col - 2) = GetRGB_Hex("RGB(220,220,220)") 'Port
                 lst.Cell(flexcpForeColor, Row, Col - 0) = GetRGB_Hex("RGB(200,22,222)")
                 lst.Cell(flexcpForeColor, Row, Col - 1) = GetRGB_Hex("RGB(200,22,222)")
                 lst.Cell(flexcpForeColor, Row, Col - 2) = GetRGB_Hex("RGB(200,22,222)")
               Else
                 PLC2s = ""
                 fakul = 0
                 lst.Cell(flexcpBackColor, Row, Col - 0) = GetRGB_Hex("RGB(245,245,245)")
                 lst.Cell(flexcpBackColor, Row, Col - 1) = GetRGB_Hex("RGB(245,245,245)")
                 lst.Cell(flexcpBackColor, Row, Col - 2) = GetRGB_Hex("RGB(245,245,245)")
                 lst.Cell(flexcpForeColor, Row, Col - 0) = GetRGB_Hex("RGB(0,0,255)")
                 lst.Cell(flexcpForeColor, Row, Col - 1) = GetRGB_Hex("RGB(0,0,255)")
                 lst.Cell(flexcpForeColor, Row, Col - 2) = GetRGB_Hex("RGB(0,0,255)")
               End If
                 
                 s = Trim(val)
                 If val = 1 Then s = PLC2s & "PLC_In" 'Az elso sor az Input lesz
                 If val > 1 Then 'ha nem az elso, akkor ez kimenet
                    p = VBA.val("-" & Replace(lst.Cell(flexcpText, Row, Col - 2), "Cab", ""))
                    c = GetFiber_Color(VBA.val(s - 1), box.GetFibesOnPort(p), box.GetColorsOnPort(p))
                    lst.Cell(flexcpBackColor, Row, Col) = c
                                  'a sotet kockaba feherrel irjuk a szamot
                    lst.Cell(flexcpForeColor, Row, Col) = IIf((GetRGB_Hex(cBlack) = c) Or (GetRGB_Hex(cBlue) = c) Or _
                                                          (GetRGB_Hex(cBrown) = c) Or (GetRGB_Hex(cGray) = c) Or _
                                                          (GetRGB_Hex(cViolet) = c), RGB(255, 255, 255), 1)
                    s = PLC2s & "PLC-" & Trim(val - 1)
                 End If '{If val > 1}
               Else '{If InStr(s, "PLC") > 0}
'szinezes\\
                 s = Trim(val)
                 If val > 0 Then
'-=-=-=-=-=-=-
                   p = VBA.val("-" & Replace(lst.Cell(flexcpText, Row, Col - 2), "Cab", ""))
                   c = GetFiber_Color(VBA.val(s), box.GetFibesOnPort(p), box.GetColorsOnPort(p))
                   lst.Cell(flexcpBackColor, Row, Col) = c
                   lst.Cell(flexcpForeColor, Row, Col) = IIf((GetRGB_Hex(cBlack) = c) Or (GetRGB_Hex(cBlue) = c) Or _
                                                          (GetRGB_Hex(cBrown) = c) Or (GetRGB_Hex(cGray) = c) Or _
                                                          (GetRGB_Hex(cViolet) = c), RGB(255, 255, 255), 1)
                  End If '{If val > 0}
                End If '{If InStr(s, "PLC")}
            End If '{Else InStr(s, "Ab") > 0}


        Case 5
            Select Case val
                Case -1
                    s = "Сварка"
                    loss = ActivePage.PageSheet.Cells("Prop.SpliceLoss")
                Case -2
                    s = "Коннектор"
                    loss = ActivePage.PageSheet.Cells("Prop.ConLoss")
                Case -3
                    s = "Пигтейл"
                    loss = ActivePage.PageSheet.Cells("Prop.ConLoss") + ActivePage.PageSheet.Cells("Prop.SpliceLoss")
                Case Else
                    s = "Сварка"
                    loss = val
            End Select
            lst.TextMatrix(Row, 9) = loss
    End Select
    lst.TextMatrix(Row, Col) = s
End Sub

 

Признаю що не самий правільний код, але хотів щоб елементарно можна було візуально відризняти що волокно звідки приходить і з чим зєднуется. З кривими руками у мене получилося так :) Я не програміст!!!

Ссылка на сообщение
Поделиться на других сайтах
11 минут назад, Капитошка сказал:

Ребята, я может че не так понял...а где скачать то эти файлики ?

 

Уважаемый Капитошка, прежде чем скачать эти файлики  тебе рекомендую прочитать все 11 страниц, и только тогда ты будешь иметь хоть какое то представление о том что это за программа и как ней пользоваться.  Я сам смотрел эту ветку еще года 2 назад но не пробовал, а когда припекло я разбирался недели 2 потому что не внимательно читал всю ветку, и забросил после 5-6 страницы. а вот там и начинается как раз самое интересное, на 8 странице лежит файл и полная инструкция как это все сделать! 

А здесь уроки по работе с программой  https://www.youtube.com/user/TheLijach/videos 
 Читай внимательно и будет тебе прозрение.
Я после того как разобрался, могу сделать карту на любой район за 1-3 часа все зависит от того сколько веток запускать

Ссылка на сообщение
Поделиться на других сайтах
В 23.10.2020 в 20:09, FreZZe52 сказал:

Уважаемый Капитошка, прежде чем скачать эти файлики  тебе рекомендую прочитать все 11 страниц, и только тогда ты будешь иметь хоть какое то представление о том что это за программа и как ней пользоваться.  Я сам смотрел эту ветку еще года 2 назад но не пробовал, а когда припекло я разбирался недели 2 потому что не внимательно читал всю ветку, и забросил после 5-6 страницы. а вот там и начинается как раз самое интересное, на 8 странице лежит файл и полная инструкция как это все сделать! 

А здесь уроки по работе с программой  https://www.youtube.com/user/TheLijach/videos 
 Читай внимательно и будет тебе прозрение.
Я после того как разобрался, могу сделать карту на любой район за 1-3 часа все зависит от того сколько веток запускать

ДАк я не против разбираться, просто (как по мне) удобнее это делать когда есть на чем проверять- а не там просто читать текст

 

Спасибо

Ссылка на сообщение
Поделиться на других сайтах
  • 1 month later...
  • 3 months later...

Простите, я новичок на local , как скачать скинуть этому гению на пиво? )

Відредаговано Артем312
Получилось
Ссылка на сообщение
Поделиться на других сайтах
  • 1 year later...

Доброго времени всем :)
Последний пост по теме был более года назад :(, но попытаюсь...

Завалялся ли у кого файл проекта для скачивания ? Буду очень признателен за ссылку :(

Заранее спасибо

Ссылка на сообщение
Поделиться на других сайтах
В 14.06.2022 в 17:05, Rafael_Akopov сказал:

Доброго времени всем :)
Последний пост по теме был более года назад :(, но попытаюсь...

Завалялся ли у кого файл проекта для скачивания ? Буду очень признателен за ссылку :(

Заранее спасибо

 

PON.7z

Ссылка на сообщение
Поделиться на других сайтах
  • 9 months later...

Всем привет!

Есть у кого ни будь C1StudioActiveX_2013v2.zip ?

Закиньте на файлообменник пожалуйста

 

ссылка пустая:

 для 32: http://cdn.componentone.com/files/activex/C1StudioActiveX_2013v2.zip

Ссылка на сообщение
Поделиться на других сайтах
  • 3 weeks later...
В 04.04.2023 в 11:59, GoodLuck777 сказал:

Всем привет!

Есть у кого ни будь C1StudioActiveX_2013v2.zip ?

Закиньте на файлообменник пожалуйста

 

ссылка пустая:

 для 32: http://cdn.componentone.com/files/activex/C1StudioActiveX_2013v2.zip

полистайте тему, там все есть.

Ссылка на сообщение
Поделиться на других сайтах

Создайте аккаунт или войдите в него для комментирования

Вы должны быть пользователем, чтобы оставить комментарий

Создать аккаунт

Зарегистрируйтесь для получения аккаунта. Это просто!

Зарегистрировать аккаунт

Вхід

Уже зарегистрированы? Войдите здесь.

Войти сейчас
  • Зараз на сторінці   0 користувачів

    Немає користувачів, що переглядають цю сторінку.

  • Схожий контент

    • Від sald
      Для чайников, есть где норм калькулятор посчитать процентники?
       
    • Від FatF
      Панове форумчане, кто сможет рассчитать и нарисовать карту PON сети в город с 50-55 тыщ населения? С выбором наиболее удобного типа подключения, подбором нужной аппаратуры и вообще с описанием и вот этим всем, с нас полное взаимодействие, подробные карты местности и прочие оплаты за труды? Благодарствую зараннее
    • Від NETOS
      Приветствую! Подскажите пожалуйста приблизительную формулу расчета инета юрлицам или кто как считает. Начиная от 10 Мбит до 1G
      Спасибо! 
    • Від Freedon
      Приветствую

      Пределагаю услугу аренды кластерных мощностей.

      Оборудование из себя представляет IBM BladeCenter.
      Одно лезвие это 8 ядер по 3.0 Ghz и 32G RAM
      *Да, поправка. Во всех H-шных лезвиях HS22(по-моему) по 12 слотов. Соответственно там 48Gb RAM
      В одном калькуляторе 112 ядер по 3.0 Ghz и 448G RAM
      *Если H-ное лезвие с 12 слотами, то соответственно в блейде при таком раскладе 672Gb RAM
      Таких блейдов достаточно много. Можно и их объединить в кластер по 20Gbit сети.
      Можно выделить под Ваши задачи только необходимое количество мощностей.

      https://ru.wikipedia.org/wiki/IBM_BladeCenter

      Можно заточить их под что угодно по Вашему пожеланию.
      Можно считать любые параллельные вычисления, строить модели, расчитывать всё что угодно и т.д
      Оборудование находится в надёжном ДЦ с маленьки пингом и широким магистральным каналом.
    • Від www.хомнет.укр
      Всем привет!
      Посоветуйте программу для мониторинга сети (оборудования) по типу Zabbix.
      Может кто пользовался или использует - посоветуйте чем мониторить? Желательно чтобы работала под виндой и имела свойства отправки сообщений или смс.

×
×
  • Створити нове...