Jump to content
Local

Recommended Posts

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

Share this post


Link to post
Share on other sites
В 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 Бита - под ним работает без сбоев ...

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

Share this post


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 Учумелые ручки

Share this post


Link to post
Share on other sites

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


image.thumb.png.41f895b488c98c0878b227ff7adb7c2e.png

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

 

 

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

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

Edited by CAHI33
  • Thanks 2

Share this post


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

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


image.thumb.png.41f895b488c98c0878b227ff7adb7c2e.png

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

 

 

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

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

  

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

Share this post


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

 

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

Share this post


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.
      Может кто пользовался или использует - посоветуйте чем мониторить? Желательно чтобы работала под виндой и имела свойства отправки сообщений или смс.
×