Jump to content

Recommended Posts

  • 1 month later...
  • Replies 265
  • Created
  • Last Reply

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 Бита - под ним работает без сбоев ...

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

Link to post
Share on other sites
В 08.10.2020 в 14:53, Artem_w87 сказал:

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

image.thumb.png.0537fe10ceb9754617840fc1786932ce.png

 

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

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

Edited by Учумелые ручки
Link to post
Share on other sites

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


image.thumb.png.41f895b488c98c0878b227ff7adb7c2e.png

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

 

 

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

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

Edited by CAHI33
  • Thanks 2
Link to post
Share on other sites
В 15.10.2020 в 01:50, CAHI33 сказал:

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


image.thumb.png.41f895b488c98c0878b227ff7adb7c2e.png

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

 

 

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

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

  

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

Link to post
Share on other sites

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

Зміни зробив у 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

 

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

Link to post
Share on other sites
11 минут назад, Капитошка сказал:

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

 

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

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

Link to post
Share on other sites
В 23.10.2020 в 20:09, FreZZe52 сказал:

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

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

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

 

Спасибо

Link to post
Share on other sites
  • 1 month later...
  • 3 months later...
  • 1 year later...

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

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

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

Link to post
Share on other sites
В 14.06.2022 в 17:05, Rafael_Akopov сказал:

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

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

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

 

PON.7z

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    No registered users viewing this page.

  • Similar Content

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

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

×
×
  • Create New...