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

Completata gestione distance to go x SIEMENS!

Browse Source
This commit is contained in:
Samuele E. Locatelli
2017-06-30 18:35:14 +02:00
parent aa2e5f4d58
commit 2feb3ad03d
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
MTC_Adapter/CMSCncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb
+3 -2
View File
@@ -955,10 +955,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("/Channel/MachineAxis/toolBaseDistToGo[u1,1, 16]")
'itemRead(3) = New Item("DB241.DBD0:[16]") 'Posizione Target !!!FARE!!! è altra variabile?!? AA_IM
Do
@@ -978,7 +979,7 @@ 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))
datiAssi(i).PosTgt = Convert.ToSingle(itemRead(3).Value(i))
Next i
For i As Integer = 0 To 19
datiAssi(i).Speed = UIntegerToSingle(itemRead(1).Value(i))