diff --git a/MTC_Adapter/CMSCncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb b/MTC_Adapter/CMSCncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb index 96af68f..1b3cd44 100644 --- a/MTC_Adapter/CMSCncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb +++ b/MTC_Adapter/CMSCncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb @@ -901,6 +901,10 @@ Namespace CNC ''' Public PosAct As Single ''' + ''' posizione Target asse + ''' + Public PosTgt As Single + ''' ''' Velocità asse ''' Public Speed As Single @@ -936,6 +940,7 @@ Namespace CNC Public tabVitaRes As UShort() End Structure + ''' ''' Restituisce tutti i dati assi insieme ''' @@ -944,10 +949,11 @@ Namespace CNC ' RIFERIMENTO: ' txt Giuseppe - ReDim itemRead(2) + ReDim itemRead(3) itemRead(0) = New Item("DB241.DBD0:[16]") 'Posizione attuale itemRead(1) = New Item("DB254.DBW140:[20]") 'Speed effettiva itemRead(2) = New Item("DB254.DBB180:[20]") 'Carico effettivo + itemRead(3) = New Item("DB241.DBD0:[16]") 'Posizione Target !!!FARE!!! è altra variabile?!? AA_IM Do Try @@ -962,18 +968,19 @@ Namespace CNC Dim datiAssi(19) As AxData - ' faccio copia valori! ...posizione + ' faccio copia valori! For i As Integer = 0 To 15 'datiAssi(i).PosAct = itemRead(0).Value(i) datiAssi(i).PosAct = UIntegerToSingle(itemRead(0).Value(i)) Next i For i As Integer = 0 To 19 - datiAssi(i).Speed = itemRead(1).Value(i) - 'datiAssi(i).Speed = UIntegerToSingle(itemRead(1).Value(i)) + datiAssi(i).Speed = UIntegerToSingle(itemRead(1).Value(i)) Next i For i As Integer = 0 To 19 - datiAssi(i).Load = itemRead(2).Value(i) - 'datiAssi(i).Load = UIntegerToSingle(itemRead(2).Value(i)) + datiAssi(i).Load = UIntegerToSingle(itemRead(2).Value(i)) + Next i + For i As Integer = 0 To 15 + datiAssi(i).PosTgt = UIntegerToSingle(itemRead(3).Value(i)) Next i Return datiAssi diff --git a/MTC_Adapter/MTC_Adapter/App.config b/MTC_Adapter/MTC_Adapter/App.config index 41500fe..d79fdc7 100644 --- a/MTC_Adapter/MTC_Adapter/App.config +++ b/MTC_Adapter/MTC_Adapter/App.config @@ -1,7 +1,7 @@ - +