- aggiunta gestione comunicazione Fanuc e relative librerie

2026-05-11 12:17:51 +02:00
parent 5005fd3e73
commit 7bfa134828
4 changed files with 6 additions and 0 deletions
@@ -42,6 +42,12 @@ Public Class MachineManager
                           NewOsaiOpen.Connect(sMachineSplit(1))
                           m_MachineList(nMachineIndex - 1) = NewOsaiOpen
                        End If
+                     Case 2 ' Fanuc
+                        If sMachineSplit.Count >= 2 AndAlso Not String.IsNullOrWhiteSpace(sMachineSplit(1)) Then
+                           Dim NewFanuc As New NC.Fanuc
+                           NewFanuc.Connect(sMachineSplit(1))
+                           m_MachineList(nMachineIndex - 1) = NewFanuc
+                        End If
                  End Select
               End If
            Else