diff --git a/EgtBEAMWALL.Supervisor/Constants/ConstCommVar.vb b/EgtBEAMWALL.Supervisor/Constants/ConstCommVar.vb
index 5c583708..24f5985e 100644
--- a/EgtBEAMWALL.Supervisor/Constants/ConstCommVar.vb
+++ b/EgtBEAMWALL.Supervisor/Constants/ConstCommVar.vb
@@ -20,6 +20,7 @@ Module ConstCommVar
NUM_AXIUM_APSERVER = 3
NUM_AXIUM_PCTOOLKIT = 4
SIEMENS_SHARP7 = 5
+ SIEMENS_MYHMI = 6
End Enum
' Assi
diff --git a/EgtBEAMWALL.Supervisor/EgtBEAMWALL.Supervisor.vbproj b/EgtBEAMWALL.Supervisor/EgtBEAMWALL.Supervisor.vbproj
index 273dcf38..e6ec8a17 100644
--- a/EgtBEAMWALL.Supervisor/EgtBEAMWALL.Supervisor.vbproj
+++ b/EgtBEAMWALL.Supervisor/EgtBEAMWALL.Supervisor.vbproj
@@ -169,6 +169,9 @@
..\packages\Lextm.SharpSnmpLib.12.1.0\lib\net471\SharpSnmpLib.dll
+
+ ..\ExtLibs\Siemens_Dll.dll
+
..\packages\System.Buffers.4.5.1\lib\net461\System.Buffers.dll
diff --git a/EgtBEAMWALL.Supervisor/MachManagingThread/MachManaging.vb b/EgtBEAMWALL.Supervisor/MachManagingThread/MachManaging.vb
index cd243621..f9927c9b 100644
--- a/EgtBEAMWALL.Supervisor/MachManagingThread/MachManaging.vb
+++ b/EgtBEAMWALL.Supervisor/MachManagingThread/MachManaging.vb
@@ -1115,6 +1115,28 @@ Public Class MachManaging
m_ResultCallbackDlg(CommandTypes.CONNECT, CommandStates.ERROR_, ResultTypes.EXECUTED, "Errore: impossibile connettersi!")
Return
End Try
+ Case NCTypes.SIEMENS_MYHMI
+ Try
+ Dim SiemensCN = New Siemens_Dll.SiemensDll
+ Dim sLog As String = Path.GetDirectoryName(Map.refMainWindowVM.MainWindowM.sLogFile) & "\SiemensLog.txt"
+ SiemensCN.SetLogPath(Path.GetDirectoryName(Map.refMainWindowVM.MainWindowM.sLogFile) & "\SiemensLog.txt")
+ Dim x As Boolean = SiemensCN.Init()
+
+ 'If Siemens_Sharp7.InitConnection() Then
+ ' m_bConnected = True
+ ' ' imposto stato manuale
+ ' Dim ManualMode As OPState = Map.refLeftPanelVM.OPModeList.FirstOrDefault(Function(x) x.Id = OPModes.Manual)
+ ' Map.refLeftPanelVM.SetOPMode(ManualMode)
+ ' m_ResultCallbackDlg(CommandTypes.CONNECT, CommandStates.OK, ResultTypes.EXECUTED, "")
+ 'Else
+ ' m_ResultCallbackDlg(CommandTypes.CONNECT, CommandStates.ERROR_, ResultTypes.EXECUTED, "Errore: impossibile connettersi!")
+ ' Return
+ 'End If
+ ' creo classe di gestione variabili
+ Catch ex As Exception
+ m_ResultCallbackDlg(CommandTypes.CONNECT, CommandStates.ERROR_, ResultTypes.EXECUTED, "Errore: impossibile connettersi!")
+ Return
+ End Try
End Select
End Sub
diff --git a/ExtLibs/Siemens.Sinumerik.Operate.Services.Wrapper4.dll b/ExtLibs/Siemens.Sinumerik.Operate.Services.Wrapper4.dll
new file mode 100644
index 00000000..312a8c6b
Binary files /dev/null and b/ExtLibs/Siemens.Sinumerik.Operate.Services.Wrapper4.dll differ
diff --git a/ExtLibs/Siemens.Sinumerik.Operate.Services4.dll b/ExtLibs/Siemens.Sinumerik.Operate.Services4.dll
new file mode 100644
index 00000000..68c1b733
Binary files /dev/null and b/ExtLibs/Siemens.Sinumerik.Operate.Services4.dll differ
diff --git a/ExtLibs/Siemens_Dll.dll b/ExtLibs/Siemens_Dll.dll
new file mode 100644
index 00000000..9c912c1c
Binary files /dev/null and b/ExtLibs/Siemens_Dll.dll differ