Различные макросы

[Arsie]

Дык табличка из примера с журналом так и делает... Или вам нужен не пример, а готовое решение?

[vladun]

Делает "как" ? Вот в чем вопрос (с).
Почем я знаю как там в ВБА оно происходит ?

[Arsie]

Дык посмотреть! На что ещё примеры существуют?

Тем более, что приём переменной это формула, а не жуткая программа на ВБА.

[vladun]

можно фрагмент увидеть ? Ибо я попытался посмотреть два макроса, что входят в эксель-файл - нифига не нашел алгоритмя "забивания" таблицы построчно.
И еще, мне бы нужно, чтоб данные шли непрерывно, запускаемые, например, по кнопке, а не разовые чтения.

[Arsie]

Дык там по кнопке. Непрерывно. Есть только ограничение на количество "непрерывности".

Таблица заполняется по нажатию кнопки, в свойствах кнопки указан выполняющийся макрос. Он вызывает функцию FillTable. Она страшна на вид только из-за того, что фиксирует ошибки передачи и выводит их на экран. Плюс обеспечивает синхронизацию между переменными, т.к. одна строка состоит из нескольких переменных.

Суть функции в тупом копировании нескольких ячеек в таблицу с изменением номера строки. Т.е. построение "текстового тренда". Данные меняются в исходных ячейках самостоятельно.


Private Sub FillTable()

Dim f As Integer
Dim TimeOut As Integer
Dim PauseTime, Start

TimeOut = 0

Worksheets("Àâàðèè").Cells(6, 3).Value = Worksheets("Àâàðèè").Cells(110, 3).Value

' î÷èñòêà òàáëèöû æóðíàëà
ClearTable (99)

Worksheets("Àâàðèè").Cells(6, 3).Value = Worksheets("Àâàðèè").Cells(111, 3).Value

f = 0
If (Worksheets("Àâàðèè").Range("G24").Value = CBool(1)) Then GoTo norespons
If (Worksheets("Àâàðèè").Range("H24").Value = CBool(1)) Then GoTo noserver

mychannelwr = DDEInitiate("SERVOPC", "Request3")

Set wr = Worksheets("Àâàðèè").Cells(50 + 6, 2)
If (Worksheets("Àâàðèè").Range("G24").Value = CBool(1)) Then GoTo norespons
If (Worksheets("Àâàðèè").Range("H24").Value = CBool(1)) Then GoTo noserver
Call DDEPoke(mychannelwr, "ARC_IN0", wr)
PauseTime = 5
Start = Timer ' Set start time.
Do While Timer < (Start + PauseTime)
DoEvents ' Yield to other processes.
Loop

For f = 0 To Worksheets("Àâàðèè").Range("H11").Value - 1

Worksheets("Àâàðèè").Cells(f + 6, 3).Value = Worksheets("Àâàðèè").Cells(114, 3).Value
If (Worksheets("Àâàðèè").Range("G24").Value = CBool(1)) Then GoTo norespons
If (Worksheets("Àâàðèè").Range("H24").Value = CBool(1)) Then GoTo noserver

Set wr = Worksheets("Àâàðèè").Cells(f + 6, 2)

CB1Cloop:

DoEvents
If (Worksheets("Àâàðèè").Range("G24").Value = CBool(1)) Then GoTo norespons
If (Worksheets("Àâàðèè").Range("H24").Value = CBool(1)) Then GoTo noserver
Call DDEPoke(mychannelwr, "ARC_IN0", wr)
DoEvents

PauseTime = 1
Start = Timer ' Set start time.
Do While Timer < (Start + PauseTime)
DoEvents ' Yield to other processes.
Loop

TimeOut = TimeOut + 1

If (TimeOut > 30) Then Exit For

If (Worksheets("Àâàðèè").Range("G24").Value = CBool(1)) Then GoTo norespons
If (Worksheets("Àâàðèè").Range("H24").Value = CBool(1)) Then GoTo noserver

If (Worksheets("Àâàðèè").Range("H8").Value <> 1) Then GoTo CB1Cloop
If (Worksheets("Àâàðèè").Range("H10").Value <> 1) Then GoTo CB1Cloop
If (Worksheets("Àâàðèè").Range("G6").Value <> Worksheets("Àâàðèè").Cells(f + 6, 2).Value) Then GoTo CB1Cloop
TimeOut = 0
If (Worksheets("Àâàðèè").Range("G8").Value = 0) Then Exit For

Worksheets("Àâàðèè").Cells(f + 6, 3).Value = Worksheets("Àâàðèè").Cells(109, 3).Value

'ïðîâåðêà íà äîïóñòèìîñòü äàííûõ
If (Worksheets("Àâàðèè").Range("G8").Value < 0) Then GoTo SkipWrite
If (Worksheets("Àâàðèè").Range("G8").Value > 40) Then GoTo SkipWrite
If (Worksheets("Àâàðèè").Range("G9").Value < 0) Then GoTo SkipWrite
If (Worksheets("Àâàðèè").Range("G9").Value > 3000) Then GoTo SkipWrite
If (Worksheets("Àâàðèè").Range("G10").Value < 0) Then GoTo SkipWrite
If (Worksheets("Àâàðèè").Range("G10").Value > 3000) Then GoTo SkipWrite
If (Worksheets("Àâàðèè").Range("G11").Value < 0) Then GoTo SkipWrite
If (Worksheets("Àâàðèè").Range("G11").Value > 3000) Then GoTo SkipWrite
If (Worksheets("Àâàðèè").Range("G12").Value < 0) Then GoTo SkipWrite
If (Worksheets("Àâàðèè").Range("G12").Value > 3000) Then GoTo SkipWrite
If (Worksheets("Àâàðèè").Range("G13").Value < 0) Then GoTo SkipWrite
If (Worksheets("Àâàðèè").Range("G13").Value > 3000) Then GoTo SkipWrite

Worksheets("Àâàðèè").Cells(f + 6, 3).Value = Worksheets("Àâàðèè").Cells(Worksheets("Àâàðèè").Ra nge("G8").Value + 120, 3).Value
Worksheets("Àâàðèè").Cells(f + 6, 4).Value = TimeSerial(Worksheets("Àâàðèè").Range("G9").Value, Worksheets("Àâàðèè").Range("G10").Value, 0)
Worksheets("Àâàðèè").Cells(f + 6, 5).Value = DateSerial(Worksheets("Àâàðèè").Range("G13").Value , Worksheets("Àâàðèè").Range("G12").Value, Worksheets("Àâàðèè").Range("G11").Value)

SkipWrite:

Next f

Worksheets("Àâàðèè").Cells(9, 8).Value = f 'çàïîìèíàåì äîêóäà çàïîëíåíî

If (Worksheets("Àâàðèè").Range("G24").Value = CBool(1)) Then GoTo norespons
If (Worksheets("Àâàðèè").Range("H24").Value = CBool(1)) Then GoTo noserver
DDETerminate mychannelwr

If (TimeOut > 30) Then Worksheets("Àâàðèè").Cells(f + 6, 3).Value = Worksheets("Àâàðèè").Cells(112, 3).Value
If (TimeOut < 30) Then Worksheets("Àâàðèè").Cells(f + 6, 3).Value = Worksheets("Àâàðèè").Cells(113, 3).Value

GoTo endsub

norespons:

Worksheets("Àâàðèè").Cells(f + 6, 3).Value = Worksheets("Àâàðèè").Cells(115, 3).Value
GoTo endsub

noserver:

Worksheets("Àâàðèè").Cells(f + 6, 3).Value = Worksheets("Àâàðèè").Cells(116, 3).Value

endsub:

End Sub

[vladun]

вот и пообщались ;(

[Arsie]

Дык "Суть функции в тупом копировании нескольких ячеек в таблицу с изменением номера строки. Т.е. построение "текстового тренда". Данные меняются в исходных ячейках самостоятельно" (c)

[lexuslll]

В проекте понадобилось управление заслонками последовательно, одна открывается, за ней вторая. Раскритикуйте плиз.

[Sergey Cherevko]

Цитата

Сообщение от lexuslll

В проекте понадобилось управление заслонками последовательно, одна открывается, за ней вторая. Раскритикуйте плиз.

Имхо можно оптимизировать, будет гораздо меньше 12 блоков...

[SSeVa]

хоть и не понимаю всей задачи до конца, но как минимум можно заменить деление на 50 и последующее умножение на 100 простым умножением на 2

[lexuslll]

Это я сначала для наглядности в 0-10 V преобразовывал, а потом забыл упростить.
Задача-использовать 1 регулятор для большой заслонки, разделенной на 2 части для более точной регулировке в начале открытия.

[Sergey Cherevko]

Вот так гораздо проще и компактнее

[lexuslll]

хммм.... Только сократил до 8 блоков а тут вона чё. Спасибо, и ведь считает также

[ViS]

или можно до 4-х блоков

[Sergey Cherevko]

Однако в этом варианте входной и выходной диапазоны будут вовсе не 15...1015

[ViS]

так ничего не мешает задать нужный диапазон

[Sergey Cherevko]

Ага. Но для смещения до min=15 потребуется пятый FBD

[ntes_f]

Здравствуйте! Есть у кого нибудь макрос управления кнопкой Пуск/Стоп без фиксации т.е один раз нажал Пуск второй раз нажал Стоп и.т.д. Или подскажите из каких блоков его можно собрать

[alex]

Цитата

Сообщение от ntes_f

Здравствуйте! Есть у кого нибудь макрос управления кнопкой Пуск/Стоп без фиксации т.е один раз нажал Пуск второй раз нажал Стоп и.т.д. Или подскажите из каких блоков его можно собрать

В конструкторе F2 так и работает

[ntes_f]

т.е. меняеш F2 на DIN

[alex]

Цитата

Сообщение от ntes_f

т.е. меняеш F2 на DIN

да и фильтр не забудь

[ntes_f]

Спасибо!

[Sergey Cherevko]

Макрос для индикации текущих активных событий.
Перебирает последовательно биты в слове с заданным периодом и если бит установлен, то выдает его номер + 1 на вход sel SCREENа. Если ни одного бита нет, то sel = 0 (пустая строка).

[Arsie]

Цитата:

Сообщение от Sergey Cherevko

Макрос для индикации текущих активных событий.
Перебирает последовательно биты в слове с заданным периодом и если бит установлен, то выдает его номер + 1 на вход sel SCREENа. Если ни одного бита нет, то sel = 0 (пустая строка).

В экране Конструктора вентиляции есть макрос с аналогичной функцией

[Sergey Cherevko]

Цитата:

Сообщение от Arsie

Я имею ввиду макрос экрана, т.е. "Основной экран". Внутри него есть, режимы работы показывает.

Из более-менее похожих есть только "DC bus serial", но он показыает только одно сообщение для бита с максимальным номером.
А у меня поочередно все сообщения.

[Sergey Cherevko]

Вот такого макроса точно нет в Конструкторе
Простенький пример использования макроса в прицепе.
Шаги не обязательно должны быть последовательными: можно делать ветвления, циклы, параллельное выполнение и т.д.
Короче, пользуйтесь на здоровье...

[WhiteM]

Попытка сделать журнал для пульта управления.
Идея: Есть приточки на SMH 2010 и пульт на SMH 2010. Они большие, чёрные, с кнопками и нравятся заказчику
Основная мысль: Пульт должен максимально возможно повторять экраны приточки (для заказчика проще).

В приточке немного перепиленый журнал 2.20.
В пульте останки от журнала 2.20 (выкинута память и иже с ней для упрощения синхронизации).
Журнал в пульте читает события из журнала в приточке.

Есть непонятка насчёт ресурса памяти, но в интернете нашёл, что влияет только запись, чтение на памяти не отражается (или отражается несущественно). Хотелось бы услышать мнения на этот счёт у местных Отцов-корифеев

Во вложении два проекта :
testПрит - журнал приточки и карта памяти
testПульт - журнал пульта

[Arsie]

Цитата

Сообщение от WhiteM

Идея: Есть приточки на SMH 2010 и пульт на SMH 2010. Они большие, чёрные, с кнопками и нравятся заказчику

Основная мысль: Пульт должен максимально возможно повторять экраны приточки (для заказчика проще).

Решение уже давно есть. Экран SMH2010 транслируется в системную страницу.

Остаётся только передать нажатия кнопок в подчинённый контроллер и сделать арбитраж локального/пультового управления. Либо не делать его Не думаю, что одновременно будут пользоваться обоими контроллерами.

Ну и отбалансировать производительность, ибо пульт может пригрузить основной контроллер на 20 мсек запросто, а при больной голове и на все 50 мсек.

Выделил решение в отдельную тему: http://forum.segnetics.com/showthrea...6634#post16634

Цитата

Сообщение от WhiteM

Есть непонятка насчёт ресурса памяти, но в интернете нашёл, что влияет только запись, чтение на памяти не отражается (или отражается несущественно). Хотелось бы услышать мнения на этот счёт у местных Отцов-корифеев

Да, чтение не влияет.

[WhiteM]

Цитата:

Сообщение от Arsie

Решение уже давно есть. Экран SMH2010 транслируется в системную страницу.
. . .
Выделил решение в отдельную тему: http://forum.segnetics.com/showthrea...6634#post16634

От шайтан! Не знал, спасибо. Буду много думать. Смущает количество сетевых переменных... Попробую и так и так

[Arsie]

Цитата

Сообщение от WhiteM

От шайтан! Не знал, спасибо. Буду много думать. Смущает количество сетевых переменных... Попробую и так и так

Всего один запрос. Т.е. это менее ресурсоёмко вашего решения.

А количество блоков представляет собой скорее академический интерес, т.к. контроллер выполняет их менее, чем за 15 мсек при предельных в такой задаче 70-80 мсек.