From 0aa5a5802b02dcec37b24d8e11b26102aa44b055 Mon Sep 17 00:00:00 2001 From: "Samuele E. Locatelli" Date: Wed, 7 Jun 2017 22:03:54 +0200 Subject: [PATCH] imbastita lettura DatiUT (totalmente da verificare...) --- .../CMSCncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb | 33 +++++++++++-------- 1 file changed, 19 insertions(+), 14 deletions(-) diff --git a/MTC_Adapter/CMSCncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb b/MTC_Adapter/CMSCncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb index 1b3cd44..6eb805d 100644 --- a/MTC_Adapter/CMSCncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb +++ b/MTC_Adapter/CMSCncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb @@ -972,16 +972,12 @@ Namespace CNC For i As Integer = 0 To 15 'datiAssi(i).PosAct = itemRead(0).Value(i) datiAssi(i).PosAct = UIntegerToSingle(itemRead(0).Value(i)) + datiAssi(i).PosTgt = UIntegerToSingle(itemRead(3).Value(i)) Next i For i As Integer = 0 To 19 datiAssi(i).Speed = UIntegerToSingle(itemRead(1).Value(i)) - Next i - For i As Integer = 0 To 19 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 @@ -995,6 +991,8 @@ Namespace CNC Public Function getAllUtData(ByVal numVal As Short) As UtData ' RIFERIMENTO: ' txt Giuseppe + ' vettori vb sono di dim n-1... + numVal -= 1 ReDim itemRead(5) itemRead(0) = New Item("DB254.DBI280:[" & numVal & "]") 'elencoUtMem @@ -1017,6 +1015,7 @@ Namespace CNC ' variabili di appoggio Dim datiUT As New UtData + Dim _elencoUtMem(numVal) As UShort Dim _tabUt_UT(numVal) As UShort Dim _tabIdFamUt(numVal) As UShort @@ -1028,16 +1027,22 @@ Namespace CNC For i As Integer = 0 To numVal '_elencoUtMem(i) = itemRead(0).Value(i) _elencoUtMem(i) = UIntegerToSingle(itemRead(0).Value(i)) + + '_tabUt_UT(i) = itemRead(1).Value(i) + _tabUt_UT(i) = UIntegerToSingle(itemRead(1).Value(i)) + + '_tabIdFamUt(i) = itemRead(2).Value(i) + _tabIdFamUt(i) = UIntegerToSingle(itemRead(2).Value(i)) + + '_tabFamUt(i) = itemRead(3).Value(i) + _tabFamUt(i) = UIntegerToSingle(itemRead(3).Value(i)) + + '_tabTipoVitaRes(i) = itemRead(4).Value(i) + _tabTipoVitaRes(i) = UIntegerToSingle(itemRead(4).Value(i)) + + '_tabVitaRes(i) = itemRead(5).Value(i) + _tabVitaRes(i) = UIntegerToSingle(itemRead(5).Value(i)) Next i - For i As Integer = 0 To numVal - _tabUt_UT(i) = itemRead(1).Value(i) - '_tabUt_UT(i) = UIntegerToSingle(itemRead(1).Value(i)) - Next i - For i As Integer = 0 To numVal - _tabIdFamUt(i) = itemRead(2).Value(i) - '_tabIdFamUt(i).Load = UIntegerToSingle(itemRead(2).Value(i)) - Next i - ' !!!FARE!!! ' copio in oggetto OUT... datiUT.elencoUtMem = _elencoUtMem