Movicon Con Driver Modbus Senza Funz 8 - movicon con driver modbus senza funz 8

[marina]

Salve a tutti.

Sono un utente MOVICON 9.1 e lo sto interfacciando via modbus con un accoppiatore modbus (I/O remoto) della beckhoff (BK7300). Il problema è questo: per resettare l'accoppiatore ho bisogno di scrivere tramite la funz modbus 08 in una certa locazione, ma il driver messo a disposizione da PROGEA non ha questa funz.

Potete darmi un aiutino ????

Premetto che ho provato a scrivere e leggere nella locazione con le funz 4, 5 , 15, 16 (le uniche messe a disposizione nel driver di progea) ma nulla succede.

Come fare ???

Grazie a tutti

Riccardo Ferri e Marina Lamanna

[luciano]

i signori della progea danno un ottimo supporto tecnico ...

comunque in estremis puo' puoi farlo con visual basic

ricevendo il comando da movicon

io da vb a moviconn uso

Public Sub leggo_da_movicon() 'da movicon verso vb

Set Movicon = GetObject(, "Movicon.Document")

Portata1 = Movicon.GetVariableValue("portata1")

Com_man_aut = Movicon.GetVariableValue("com_man_aut")

Comando_caricamento_dati_p1 = Movicon.GetVariableValue("comando_caricamento_dati_p1")

Valvolacmdchiusura23 = Movicon.GetVariableValue("valvolacmdchiusura23")

End Sub

Public Sub scrivo_verso_movicon() 'da vb verso movicon

Dim bRet As Boolean

On Error GoTo Errrr

bRet = Movicon.SetVariableValue("portata1", Portata1)

bRet = Movicon.SetVariableValue("portata2", Portata2)

bRet = Movicon.SetVariableValue("partata3", Portata3)

bRet = Movicon.SetVariableValue("portata4", Portata4)

bRet = Movicon.SetVariableValue("portata8", Portata8)

bRet = Movicon.SetVariableValue("portata9", Portata9)

bRet = Movicon.SetVariableValue("portata10", Portata10)

bRet = Movicon.SetVariableValue("portata11", Portata11)

bRet = Movicon.SetVariableValue("portata12", Portata12)

bRet = Movicon.SetVariableValue("portata13", Portata13)

bRet = Movicon.SetVariableValue("portata14", Portata14)

bRet = Movicon.SetVariableValue("portata15", Portata15)

bRet = Movicon.SetVariableValue("portata16", Portata16)

bRet = Movicon.SetVariableValue("portata17", Portata17)

bRet = Movicon.SetVariableValue("portata18", Portata18)

bRet = Movicon.SetVariableValue("portata19", Portata19)

bRet = Movicon.SetVariableValue("portata20", Portata20)

bRet = Movicon.SetVariableValue("press5", Press5)

bRet = Movicon.SetVariableValue("press6", Press6)

bRet = Movicon.SetVariableValue("press7", Press7)

bRet = Movicon.SetVariableValue("press21", press21)

bRet = Movicon.SetVariableValue("cloro", Cloro)

bRet = Movicon.SetVariableValue("ph", Ph)

bRet = Movicon.SetVariableValue("conducibilita", Conducibilita)

bRet = Movicon.SetVariableValue("redox", Redox)

bRet = Movicon.SetVariableValue("liv26", Liv26)

bRet = Movicon.SetVariableValue("liv27", Liv27)

bRet = Movicon.SetVariableValue("liv28", Liv28)

bRet = Movicon.SetVariableValue("liv29", Liv29)

bRet = Movicon.SetVariableValue("lv1", Lv1)

bRet = Movicon.SetVariableValue("lv2", Lv2)

bRet = Movicon.SetVariableValue("lv3", Lv3)

bRet = Movicon.SetVariableValue("lv4", Lv4)

bRet = Movicon.SetVariableValue("lv5", Lv5)

bRet = Movicon.SetVariableValue("lv6", Lv6)

bRet = Movicon.SetVariableValue("lv7", Lv7)

bRet = Movicon.SetVariableValue("lv8", Lv8)

bRet = Movicon.SetVariableValue("lv9", Lv9)

bRet = Movicon.SetVariableValue("lv10", Lv10)

bRet = Movicon.SetVariableValue("lv11", Lv11)

bRet = Movicon.SetVariableValue("lv12", Lv12)

bRet = Movicon.SetVariableValue("lv13", Lv13)

bRet = Movicon.SetVariableValue("lv14", Lv14)

bRet = Movicon.SetVariableValue("lv15", Lv15)

bRet = Movicon.SetVariableValue("lv16", Lv16)

bRet = Movicon.SetVariableValue("lv17", Lv17)

bRet = Movicon.SetVariableValue("lv18", Lv18)

bRet = Movicon.SetVariableValue("lv19", Lv19)

bRet = Movicon.SetVariableValue("lv20", Lv20)

bRet = Movicon.SetVariableValue("lv21", Lv21)

bRet = Movicon.SetVariableValue("lv22", Lv22)

bRet = Movicon.SetVariableValue("lv23", Lv23)

bRet = Movicon.SetVariableValue("totalizzazione1", Totalizzazione1)

bRet = Movicon.SetVariableValue("totalizzazione2", Totalizzazione2)

bRet = Movicon.SetVariableValue("totalizzazione3", Totalizzazione3)

bRet = Movicon.SetVariableValue("totalizzazione4", Totalizzazione4)

bRet = Movicon.SetVariableValue("totalizzazione8", Totalizzazione8)

bRet = Movicon.SetVariableValue("totalizzazione9", Totalizzazione9)

bRet = Movicon.SetVariableValue("totalizzazione10", Totalizzazione10)

bRet = Movicon.SetVariableValue("totalizzazione11", Totalizzazione11)

bRet = Movicon.SetVariableValue("totalizzazione12", Totalizzazione12)

bRet = Movicon.SetVariableValue("totalizzazione13", Totalizzazione13)

bRet = Movicon.SetVariableValue("totalizzazione14", Totalizzazione14)

bRet = Movicon.SetVariableValue("totalizzazione15", Totalizzazione15)

bRet = Movicon.SetVariableValue("totalizzazione16", Totalizzazione16)

bRet = Movicon.SetVariableValue("totalizzazione17", Totalizzazione17)

bRet = Movicon.SetVariableValue("totalizzazione18", Totalizzazione18)

bRet = Movicon.SetVariableValue("totalizzazione19", Totalizzazione19)

bRet = Movicon.SetVariableValue("totalizzazione20", Totalizzazione20)

' bRet = Movicon.SetVariableValue("interruzione_forzata_di_tutte_le_operazioni", interruzione_forzata_di_tutte_le_operazioni)

' bRet = Movicon.SetVariableValue("com_man_aut", com_man_aut)

' bRet = Movicon.SetVariableValue("comando_caricamento_dati_p1", comando_caricamento_dati_p1)

' bRet = Movicon.SetVariableValue("comando_caricamento_dati_p2", comando_caricamento_dati_p2)

' bRet = Movicon.SetVariableValue("comando_caricamento_dati_p3", comando_caricamento_dati_p3)

' bRet = Movicon.SetVariableValue("comando_connessione_p1", comando_connessione_p1)

' bRet = Movicon.SetVariableValue("comando_connessione_p2", comando_connessione_p2)

' bRet = Movicon.SetVariableValue("comando_connessione_p3", comando_connessione_p3)

' bRet = Movicon.SetVariableValue("comando_caricamento_dati_da_tutte_le_periferiche", comando_caricamento_dati_da_tutte_le_periferiche)

bRet = Movicon.SetVariableValue("led_caricamento_dati_p1", Led_caricamento_dati_p1)

bRet = Movicon.SetVariableValue("led_caricamento_dati_p2", Led_caricamento_dati_p2)

bRet = Movicon.SetVariableValue("led_caricamento_dati_p3", Led_caricamento_dati_p3)

bRet = Movicon.SetVariableValue("led_connessione_p1", Led_connessione_p1)

bRet = Movicon.SetVariableValue("led_connessione_p2", Led_connessione_p2)

bRet = Movicon.SetVariableValue("led_connessione_p3", Led_connessione_p3)

bRet = Movicon.SetVariableValue("led_caricamento_dati_da_tutte_le_periferiche", Led_caricamento_dati_da_tutte_le_periferiche)

' bRet = Movicon.SetVariableValue("interruzione_forzata_di_tutte_le_operazioni", 0)

'Beep

bRet = Movicon.SetVariableValue("comunicazione1", Comunicazione1)

bRet = Movicon.SetVariableValue("comunicazione2", Comunicazione2)

bRet = Movicon.SetVariableValue("comunicazione3", Comunicazione3)

GoTo Aavantiiii

Errrr:

End

Aavantiiii:

End Sub