Read/write Dati Misti Con Opc Netpro

[oushabaker]

Salve a tutti,

sto lavorando su un progetto in cui leggo e scrivo dati su alcuni plc S7 da dei pc collegati su rete ethernet. I dati sono contenuti in diversi DB.

I dati sono INT, CHAR and BIT. Sto usando VB6 in WinXP con le librerie Netpro Siemens.

Un un esempio di codice che sto usando e che lavora bene.

Set ServerObj = New OPCServer

ServerObj.Connect ("OPC.SimaticNET")

Set PlcGroupObj = ServerObj.OPCGroups.Add("MyOPCGroup")

Set TmpPlc1 = PlcGroupObj.OPCItems.AddItem("S7:[Plc14]DB"+Cstr(nDB)+",INT0,1", 1)

v_INT = data1

TmpPlc1.Write v_INT

Set TmpPlc2 = PlcGroupObj.OPCItems.AddItem("S7:[Plc14]DB"+Cstr(nDB)+",WORD26,1", 1)

v_INT = data2

TmpPlc2.Write v_INT

Set TmpPlc3 = PlcGroupObj.OPCItems.AddItem("S7:[Plc14]DB"+Cstr(nDB)+",INT30,1", 1)

v_INT = data3

TmpPlc3.Write v_INT

Set TmpPlc4 = PlcGroupObj.OPCItems.AddItem("S7:[Plc14]DB"+Cstr(nDB)+",BYTE32,5", 1)

v_STR = MakeStringToStr(WorkCode(nDB))

TmpPlc4.Write v_STR

Sarei interessato a leggere e scrivere i dati in "un colpo solo" senza dover definire Item separate e senza fare letture multiple. Dovendo leggere/scrivere i dati da circa 150 DB differenti vorrei evitare occupazioni di memoria, tempi di esecuzione pesanti e occupazione di rete inutile.

Un ringraziamento a chi mi può aiutare.

Joshua

Modificato: 10 febbraio 2012 da oushabaker