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