Egalware/CMS-MTConn
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

imbastita lettura DatiUT (totalmente da verificare...)

Browse Source
This commit is contained in:
Samuele E. Locatelli
2017-06-07 22:03:54 +02:00
parent fde4959cc9
commit 0aa5a5802b
1 changed files with 19 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files
MTC_Adapter/CMSCncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb
+19 -14
View File
@@ -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