Segnetics

Вернуться   Segnetics > Форум Segnetics > Связь с внешним миром

Связь с внешним миром Modbus, RS232, RS485, Lon и другое.

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
Старый 08.02.2011, 11:56   #1
sarrier
Новичок
 
Регистрация: Apr 2010
Сообщения: 29
Благодарил(а): 0 раз(а)
Поблагодарили: 0 раз(а) в 0 сообщениях
По умолчанию Считывание журнала

Добрый день
Арсений, если не сложно помогите изменить файл Download.xls, чтобы можно было считывать не последние 25 аварий журнала, а с 1 по 9, с 10 по 20, и т.д. В настоящее время с небольшими изменениями использую данный файл для считывания журнала аварий с SMH2010 по GSM. Не успеваю считывать весь журнал, контроллер настроил чтоб через 5 мин.связь рвал, а читает долго. Успеваю максимум 15 аварий снять. Сейчас срочно понадобилось считать без выезда на обект,а никак Файл прилагаю.
Вложения
Тип файла: xls Download1_FIN.xls (85.5 Кбайт, 111 просмотров)
sarrier вне форума   Ответить с цитированием
Старый 08.02.2011, 14:17   #2
Arsie
Сотрудник Segnetics
 
Аватара для Arsie
 
Регистрация: Jan 2006
Адрес: Russia, SPb
Сообщения: 18 019
Благодарил(а): 15 раз(а)
Поблагодарили: 655 раз(а) в 599 сообщениях
По умолчанию Ответ: Считывание журнала

Цитата
Сообщение от sarrier
Добрый день
Арсений, если не сложно помогите изменить файл Download.xls, чтобы можно было считывать не последние 25 аварий журнала, а с 1 по 9, с 10 по 20, и т.д. В настоящее время с небольшими изменениями использую данный файл для считывания журнала аварий с SMH2010 по GSM. Не успеваю считывать весь журнал, контроллер настроил чтоб через 5 мин.связь рвал, а читает долго. Успеваю максимум 15 аварий снять. Сейчас срочно понадобилось считать без выезда на обект,а никак Файл прилагаю.
Помочь? Ваша просьба звучит как "Сделайте мне!" и никак иначе.

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


__________________
Программа делает то что написал программист, а не то что он хотел.

Добро всегда побеждает зло. Кто победил - тот и добрый.
Arsie сейчас на форуме   Ответить с цитированием
Старый 08.02.2011, 14:37   #3
sarrier
Новичок
 
Регистрация: Apr 2010
Сообщения: 29
Благодарил(а): 0 раз(а)
Поблагодарили: 0 раз(а) в 0 сообщениях
По умолчанию Ответ: Считывание журнала

Если бы я программировал на VBA, я бы такой вопрос незадавал. К сожалению моя специализация это промэлектроника, электрика, FBD соответственно понимаю, но никак не программирование на языках высокого уровня. Поэтому и просил если можно помочь, ткнуть пальцем туда где нужно что изменить.
sarrier вне форума   Ответить с цитированием
Старый 08.02.2011, 14:43   #4
Sergey Cherevko
Senior Member
 
Аватара для Sergey Cherevko
 
Регистрация: Jul 2007
Адрес: Калининград
Сообщения: 422
Благодарил(а): 0 раз(а)
Поблагодарили: 1 раз в 1 сообщении
По умолчанию Ответ: Считывание журнала

Я хоть и не Арсений, но подсказать могу.
В Excel запускаете VBA через Alt+F11 и делаете двойной клик по кнопке "Последние 25". На экране появится:
-----------------------------------
Private Sub CommandButton3_Click()

Worksheets("Аварии").Range("H11").Value = 25
Call FillTable

End Sub
-----------------------------------
Меняете 25 после Value на 10, жмете Ctrl+S для сохранения и радуетесь.
Sergey Cherevko вне форума   Ответить с цитированием
Старый 08.02.2011, 14:56   #5
Arsie
Сотрудник Segnetics
 
Аватара для Arsie
 
Регистрация: Jan 2006
Адрес: Russia, SPb
Сообщения: 18 019
Благодарил(а): 15 раз(а)
Поблагодарили: 655 раз(а) в 599 сообщениях
По умолчанию Ответ: Считывание журнала

Цитата:
Сообщение от Sergey Cherevko
Worksheets("Аварии").Range("H11").Value = 25
Меняете 25 после Value на 10, жмете Ctrl+S для сохранения и радуетесь.
Насколько я понял проблему, нужно именно с 10 до 20. Первые 10 получить можно в любом случае.

.


__________________
Программа делает то что написал программист, а не то что он хотел.

Добро всегда побеждает зло. Кто победил - тот и добрый.
Arsie сейчас на форуме   Ответить с цитированием
Старый 08.02.2011, 15:02   #6
Arsie
Сотрудник Segnetics
 
Аватара для Arsie
 
Регистрация: Jan 2006
Адрес: Russia, SPb
Сообщения: 18 019
Благодарил(а): 15 раз(а)
Поблагодарили: 655 раз(а) в 599 сообщениях
По умолчанию Ответ: Считывание журнала

Цитата
Сообщение от sarrier
Если бы я программировал на VBA, я бы такой вопрос незадавал. К сожалению моя специализация это промэлектроника, электрика, FBD соответственно понимаю, но никак не программирование на языках высокого уровня. Поэтому и просил если можно помочь, ткнуть пальцем туда где нужно что изменить.
В программе ищите строчку

----------
For f = 0 To Worksheets("Аварии").Range("H11").Value - 1
----------

И заменяйте её на:

----------
For f = 0 To 9
----------

----------
For f = 10 To 19
----------

----------
For f = 20 To 29
----------

и т.д. на нужные диапазоны. Считывание инициируйте кнопкой "обновить всё".


__________________
Программа делает то что написал программист, а не то что он хотел.

Добро всегда побеждает зло. Кто победил - тот и добрый.
Arsie сейчас на форуме   Ответить с цитированием
Старый 08.02.2011, 15:39   #7
sarrier
Новичок
 
Регистрация: Apr 2010
Сообщения: 29
Благодарил(а): 0 раз(а)
Поблагодарили: 0 раз(а) в 0 сообщениях
По умолчанию Ответ: Считывание журнала

Большое спасибо. Вашими трудами все получилось
sarrier вне форума   Ответить с цитированием
Старый 08.02.2011, 18:42   #8
Sergey Cherevko
Senior Member
 
Аватара для Sergey Cherevko
 
Регистрация: Jul 2007
Адрес: Калининград
Сообщения: 422
Благодарил(а): 0 раз(а)
Поблагодарили: 1 раз в 1 сообщении
По умолчанию Ответ: Считывание журнала

Цитата:
Сообщение от Arsie
Насколько я понял проблему, нужно именно с 10 до 20. Первые 10 получить можно в любом случае.
Да, действительно.
Ну тогда в процедуре FillTable плясать не от нуля, а от предыдущего значения. То есть строку
For f = 0 To Worksheets("Аварии").Range("H11").Value - 1
заменить на
For f = Worksheets("Аварии").Cells(9, 8).Value To Worksheets("Аварии").Cells(9, 8).Value + Worksheets("Аварии").Range("H11").Value - 1
Sergey Cherevko вне форума   Ответить с цитированием
Старый 19.10.2011, 11:17   #9
isxGODzi
Новичок
 
Регистрация: Aug 2011
Сообщения: 3
Благодарил(а): 0 раз(а)
Поблагодарили: 0 раз(а) в 0 сообщениях
По умолчанию Ответ: Считывание журнала

Доброго дня всем. Подскажите пожалуйста по соединению Excel с Lectusом, а именно соединил lectus modbus OPC/DDE с SMH2010, получаю данные, но при запуске вами ваших excel программок по выводу значений журнал появляется ошибка запуска: excel не может запустить 'SERVOPC.EXE', мож кто сталкивался иподскажет как в excel запустить этот servopc.exe?
isxGODzi вне форума   Ответить с цитированием
Старый 19.10.2011, 11:19   #10
Arsie
Сотрудник Segnetics
 
Аватара для Arsie
 
Регистрация: Jan 2006
Адрес: Russia, SPb
Сообщения: 18 019
Благодарил(а): 15 раз(а)
Поблагодарили: 655 раз(а) в 599 сообщениях
По умолчанию Ответ: Считывание журнала

Цитата
Сообщение от isxGODzi
Доброго дня всем. Подскажите пожалуйста по соединению Excel с Lectusом, а именно соединил lectus modbus OPC/DDE с SMH2010, получаю данные, но при запуске вами ваших excel программок по выводу значений журнал появляется ошибка запуска: excel не может запустить 'SERVOPC.EXE', мож кто сталкивался иподскажет как в excel запустить этот servopc.exe?
Нужно установить lectus modbus OPC server именно той версии, для которой создавались эти таблички, либо заменить идентификатор сервера в таблицах. На какой? Ответ ищите в папке DEMO рядом с сервером, там есть пример работы с экселем.

Либо сервер у вас не открыт, его нужно открывать вручную.


.


__________________
Программа делает то что написал программист, а не то что он хотел.

Добро всегда побеждает зло. Кто победил - тот и добрый.
Arsie сейчас на форуме   Ответить с цитированием
Старый 19.10.2011, 11:23   #11
isxGODzi
Новичок
 
Регистрация: Aug 2011
Сообщения: 3
Благодарил(а): 0 раз(а)
Поблагодарили: 0 раз(а) в 0 сообщениях
По умолчанию Ответ: Считывание журнала

Я уже поставил lectus Modbus opc/dde server, и даже наблюдаю значения с контроллера но вот excel ни как не получает данные от сервера, может какая то настройка есть в excele под этот сурвер?
isxGODzi вне форума   Ответить с цитированием
Старый 19.10.2011, 11:27   #12
Arsie
Сотрудник Segnetics
 
Аватара для Arsie
 
Регистрация: Jan 2006
Адрес: Russia, SPb
Сообщения: 18 019
Благодарил(а): 15 раз(а)
Поблагодарили: 655 раз(а) в 599 сообщениях
По умолчанию Ответ: Считывание журнала

Цитата
Сообщение от isxGODzi
Я уже поставил lectus Modbus opc/dde server, и даже наблюдаю значения с контроллера но вот excel ни как не получает данные от сервера, может какая то настройка есть в excele под этот сурвер?
Пожалуйста, читайте внимательнее предыдущее сообщение. Желательно целиком.


.


__________________
Программа делает то что написал программист, а не то что он хотел.

Добро всегда побеждает зло. Кто победил - тот и добрый.
Arsie сейчас на форуме   Ответить с цитированием
Старый 20.10.2011, 12:10   #13
isxGODzi
Новичок
 
Регистрация: Aug 2011
Сообщения: 3
Благодарил(а): 0 раз(а)
Поблагодарили: 0 раз(а) в 0 сообщениях
По умолчанию Ответ: Считывание журнала

Все, спасибо, получилось, теперь могу читать и записывать в SMH2010 средствами MS Excel.
isxGODzi вне форума   Ответить с цитированием
Ответ

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

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

BB code is Вкл.
[IMG] код Вкл.
HTML код Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Объем системного журнала 2511 belykhevgeniy Вопросы о Pixel 3 15.03.2018 16:43
Как задать глубину журнала LordN SMArt 5 06.07.2017 13:25
Журнал. Запись события очистки журнала Arsie SMArt 0 01.04.2015 12:40
Пароль на очистку журнала (решено) LordN SMConstructor (вентиляция) 9 23.12.2008 14:03


Часовой пояс GMT +4, время: 17:50.


Версия vBulletin: 3.8.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Segnetics 2005 - 2023