imbastita lettura pos Target (NON corrette aree memoria, verificare!!!)

MTC_Adapter/CMSCncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb

@@ -901,6 +901,10 @@ Namespace CNC
             ''' </summary>
             Public PosAct As Single
             ''' <summary>
+            ''' posizione Target asse
+            ''' </summary>
+            Public PosTgt As Single
+            ''' <summary>
             ''' Velocità asse
             ''' </summary>
             Public Speed As Single
@@ -936,6 +940,7 @@ Namespace CNC
             Public tabVitaRes As UShort()
 
         End Structure
+
         ''' <summary>
         ''' Restituisce tutti i dati assi insieme
         ''' </summary>
@@ -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

MTC_Adapter/MTC_Adapter/App.config

@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="utf-8"?>
 <configuration>
   <startup useLegacyV2RuntimeActivationPolicy="true">
-  <!--<startup>-->
+    <!--<startup>-->
     <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.2"/>
     <!--<supportedRuntime version="v2.0" sku=".NETFramework,Version=v2.0"/>-->
   </startup>