 | |
Предыдущие результаты
 просто дам ссылку на документ о продукции одной известной компании, может наведет на какие-то мысли.
[url]http://www.industrialnetworking.com/pdf/BAT_Antenna_Guide.pdf[/url]
хотя, конечно, проложенный кабель будет гораздо надежнее.. до первого экскаватора :)
|
SpellBinder
В настоящий момент код вызывается из RS View хотя с DDE попробовать конечно можно, но времяни маловато, если у вас есть желание описать, то я был бы очень признателен. или ссылочку 8O
Eraser
Вам отдельное спасибо за код
[code:1:cf3841e47a]
gTagDb.GetTag("Various_from_HMI\HMI_Coilpar_Indiv"+Cstr(i)+"inverted") = VL(i)
[/code:1:cf3841e47a]
именно это я и искал
|
Конечно есть. Вот, например: [url=http://literature.rockwellautomation.com/idc/groups/literature/documents/in/cnet-in001_-en-p.pdf]ControlNet Fiber Media Planning and Installation Guide[/url]
Но кто мешает проложить самую обычную оптику с самым обычным Ethernet'ом? Для этого не нужно никаких специальных Rockwell'овских решений, а просто контроллеры с обычным Ethernet и пару адаптеров для оптики.
|
может так:
[code:1:3f98bc706b]For lokL = 0 To Z
'Здесь проверяйте, есть ли значение в той ячейке, которую вы собираетесь считать
if mySheet.Cells(lokL + 23, L).Value <> 0 'или какое там вам нужно условие
then VL(lokL) = mySheet.Cells(lokL + 23, L).Value
endif
Next lokL[/code:1:3f98bc706b]
так у вас в массиве будет только непустые значения, ну а затем уже присваиваете.
НО, если вам нужно что бы каждый элемент массива был точно на своем обычном месте, то тогда проверку можно делать перед присваиванием, и при этом старые значения не потеряются:
[code:1:3f98bc706b]if VL(0) <>0 then gTagDb.GetTag("Various_from_HMI\HMI_Coilpar_Indiv0inverted") = VL(0)
endif[/code:1:3f98bc706b]
а вообще присваивание тоже можно и нужно делать в цикле
[code:1:3f98bc706b]for i =0 to 9
gTagDb.GetTag("Various_from_HMI\HMI_Coilpar_Indiv"+Cstr(i)+"inverted") = VL(i)
next i[/code:1:3f98bc706b]
|
я и считываю только те клетки в таблице которые со значениями, проблема дальше в присвоении этих значений глобалным тегм
[color=red:b227d3f00c]gTagDb.GetTag("Various_from_HMI\HMI_Coilpar_Indiv0coil_number") = K(0) [/color:b227d3f00c]это выражение прописывает тег как в RS VIEW так и в контроллере.
задача чтоб в контроллер были прописаны например:
в первом случае 2 первых тега из возможных 10
во втором 4 первых тега из возможных 10
а в третьем все 10 из 10
вот код проги, может тоже внесет какую то ясность
[code:1:b227d3f00c]Sub read_2()
Dim myExcel As Excel.Application
Dim myWorkbook As Excel.Workbook
Dim mySheet As Excel.Worksheet
Dim L As Integer
Dim VL(0 To 300) As Variant
L = 12
Dim Z
Z = gTagDb.GetTag("Various_from_HMI\HMI_Coilpar_Common_disc_count") - 1
On Error GoTo exit_handler
Set myExcel = New Excel.Application
Set myWorkbook = myExcel.Workbooks.Open("E:\TEST.xls")
Set mySheet = myWorkbook.Sheets("Tab")
For lokL = 0 To Z
VL(lokL) = mySheet.Cells(lokL + 23, L).Value
Next lokL
gTagDb.GetTag("Various_from_HMI\HMI_Coilpar_Indiv0inverted") = VL(0)
gTagDb.GetTag("Various_from_HMI\HMI_Coilpar_Indiv1inverted") = VL(1)
gTagDb.GetTag("Various_from_HMI\HMI_Coilpar_Indiv2inverted") = VL(2)
gTagDb.GetTag("Various_from_HMI\HMI_Coilpar_Indiv3inverted") = VL(3)
gTagDb.GetTag("Various_from_HMI\HMI_Coilpar_Indiv4inverted") = VL(4)
gTagDb.GetTag("Various_from_HMI\HMI_Coilpar_Indiv5inverted") = VL(5)
gTagDb.GetTag("Various_from_HMI\HMI_Coilpar_Indiv6inverted") = VL(6)
gTagDb.GetTag("Various_from_HMI\HMI_Coilpar_Indiv7inverted") = VL(7)
gTagDb.GetTag("Various_from_HMI\HMI_Coilpar_Indiv8inverted") = VL(8)
gTagDb.GetTag("Various_from_HMI\HMI_Coilpar_Indiv9inverted") = VL(9)
exit_handler:
On Error Resume Next:
myWorkbook.Close
myExcel.Quit
Set mySheet = Nothing
Set myWorkbook = Nothing
Set myExcel = Nothing
End Sub
[/code:1:b227d3f00c]
|
Невозможно ничего разобрать на скриншотах.
Какой номер ошибки указан на первом скриншоте внизу слева?
Error 806-8004280A или другая?
Что пишут в окне ошибок внизу? Есть ли там что-нибудь такое:
[img:e4e9f8877f]http://rockwellautomation.custhelp.com/rnt/rnw/img/enduser/answers/E144253843_img2.jpg[/img:e4e9f8877f]
|
parametr 153: 00000000000000000000000000001001
насколько понимаю проблема в start inhibits
http://s018.radikal.ru/i516/1207/87/0f97a8629d1b.jpg
он помянялся.
но не понимаю, что делать
|
http://s018.radikal.ru/i523/1207/de/4ef4d2b62dfb.jpg
http://s015.radikal.ru/i333/1207/82/bdbc32e0d888.jpg
http://s018.radikal.ru/i502/1207/29/fe9c9cc9b2e0.jpg
http://i024.radikal.ru/1207/52/d1e6d3570cc2.jpg
PowerFlex 700 User Manual, publication 20B-UM002 и um001
параметр 156 start inhibits, есть единица:
http://i003.radikal.ru/1207/96/59c4763e6881.jpg
|
Извиняюсь, в предыдущий раз создал тему не в том разделе форума. Сейчас разобрался.
В составе системы управления имеются:
PLC CPU 1756-L61
Communication module to KINETIX 1756-M08SE (Sercos)
Axis modul of KINETIX 2094-AC32-M05-S
Motor (with internal encoder SRM) MPL-A560F-M
Auxiliary Feedback encoder SICK Stegmann SRM25-5-F10S-5A, Ident.-N7102352
Модуль LIM 2094-AL75S
За положение всей машины отвечает ось Auxiliary - круглая, 360градусов на оборот.
Если машину остановить в исходном положении, то в нормальной ситуации координата оси будет 358 градусов. При этом, если машину выключить, а потом включить, то координата часто изменяется в пределах примерно от 285 до 35 градусов. При этом и тэг Stegmenn.ActualPosition и тэг MAIN_DRIVE.ActualPosition изменить нельзя – имеют статус «только чтение».
Поскольку энкодер абсолютный, и координата машины берется напрямую из тега Stegmenn.ActualPosition, то в первую очередь, из предположения неисправности энкодера, был заменен энкодер на канале Aux. Однако, проблема никуда не делась. Затем были заменены последовательно на новые:
- модуль 2094-AC32-M05-S;
- кабель к Auxiliary энкодеру;
- LIM модуль 2094-AL75S;
Проблема сохранилась. Машина работает уже несколько лет, а неисправность проявляет себя лишь несколько месяцев.
Вопросы:
1. Из-за чего может меняться координата неподвижного абсолютного энкодера?
2. Может ли влиять на показания энкодара Aux-оси канал энкодера главного двигателя (он тоже на момент включения неподвижен)? Если может, то как?
3. Что можно предпринять в качестве корректирующи мер?
|
есть 4 частотника, думаю все рабочие. подключаю.
Статус: моргает желтый.
Ручное управление взять не дает.
Подключаю мотор с энкодером - не работет.
согласно мануалу проверяю напряжение на 7 и 8 контактах кассеты, должно быть 5 или 12 вольт. напряжение 0. кассеты другие, нежели в мануалах. найти описание этих кассет найти не могу. может кто подскажет где?
http://s001.radikal.ru/i193/1206/73/a1d9666c6d59.jpg
http://s018.radikal.ru/i518/1206/77/f31055e7a555.jpg
подключаю DriveExcutive. StartUp wizard, reset parametrs, выключаю энкодер (sensorless), запускаю тест на вращение и ничего не вращается, вижу статус "stopped"
статус самого частотника странный: At Set Point Speed.
http://s017.radikal.ru/i414/1206/a1/c70824eae13a.jpg
какие параметры или что еще надо сделать, что бы заставить вращать мотор?
|
Предыдущие результаты
Ещё результаты |
|
| |
|
