Dario Sassi
bd006a197f
- sistemata scrittura e lettura nomi utensili e lavorazioni in ini di macchina come UTF8 - sistemazione scelta lavorazioni in Split anche per lama fissa - eliminati parametri WaterJet non usati - sistemazioni varie.
1018 lines
34 KiB
VB.net
1018 lines
34 KiB
VB.net
#Region " Imports"
|
|
|
|
Imports System
|
|
Imports System.Text
|
|
Imports System.Security
|
|
Imports System.Security.Permissions
|
|
Imports Microsoft.Win32.SafeHandles
|
|
Imports System.Runtime.ConstrainedExecution
|
|
Imports System.Runtime.InteropServices
|
|
Imports System.ComponentModel
|
|
Imports EgtUILib
|
|
|
|
#End Region
|
|
|
|
Module M_MMFiles
|
|
|
|
'Riferimento alla MainWindow
|
|
Private m_MainWindow As MainWindow = Application.Current.MainWindow
|
|
|
|
#Region " Structures"
|
|
|
|
' Struttura per spedire un "comando" al Siemens
|
|
<StructLayout(LayoutKind.Sequential)>
|
|
Structure SiemensSendStruct
|
|
|
|
Public n_Flag As Integer
|
|
Public n_Command As Short
|
|
|
|
Public n_param1 As Integer
|
|
Public n_param2 As Integer
|
|
Public l_param1 As Long
|
|
Public l_param2 As Long
|
|
Public d_param1 As Double
|
|
Public d_param2 As Double
|
|
|
|
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=200)> _
|
|
Public sz_string As String
|
|
|
|
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=200)> _
|
|
Public sz_string_2 As String
|
|
|
|
Public b_param1 As Boolean
|
|
Public b_param2 As Boolean
|
|
|
|
End Structure
|
|
|
|
Private SiemensSend As SiemensSendStruct
|
|
|
|
' Struttura per leggere l'esito di un "comando" al Siemens
|
|
<StructLayout(LayoutKind.Sequential)> _
|
|
Structure SiemensRetStruct
|
|
|
|
Public b_busy As Boolean
|
|
Public n_result As Short
|
|
|
|
Public n_param1 As Integer
|
|
Public n_param2 As Integer
|
|
Public l_param1 As Long
|
|
Public l_param2 As Long
|
|
Public d_param1 As Double
|
|
Public d_param2 As Double
|
|
|
|
Public b_interf_G24 As Boolean
|
|
Public b_interf_G71 As Boolean
|
|
|
|
Public n_interf_spindle_override As Short
|
|
Public l_interf_Feed_override As Long
|
|
Public d_interf_spindle_prog As Double
|
|
Public d_interf_Prog_Feed As Double
|
|
Public d_interf_spindle_power As Double
|
|
|
|
Public d_interf_var_value As Double
|
|
|
|
Public b_is_water_ON As Boolean
|
|
Public b_is_laser_ON As Boolean
|
|
Public b_is_spindle_ON As Boolean
|
|
|
|
' Vettore assi macchina (file SiemensComm: axes_0_M, axes_0_P)
|
|
<MarshalAs(UnmanagedType.ByValArray, ArraySubType:=UnmanagedType.R8, SizeConst:=16)> _
|
|
Public d_interf_axis_position() As Double
|
|
|
|
<MarshalAs(UnmanagedType.ByValArray, ArraySubType:=UnmanagedType.R8, SizeConst:=16)> _
|
|
Public d_interf_axis_delta() As Double
|
|
|
|
<MarshalAs(UnmanagedType.ByValArray, ArraySubType:=UnmanagedType.R8, SizeConst:=16)> _
|
|
Public d_interf_variable_values() As Double
|
|
|
|
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=200)> _
|
|
Public sz_interf_error_message As String
|
|
|
|
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=2000)> _
|
|
Public lst_NC_messages As String
|
|
|
|
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=200)>
|
|
Public sz_param As String
|
|
|
|
Public b_param1 As Boolean
|
|
Public b_param2 As Boolean
|
|
|
|
<MarshalAs(UnmanagedType.ByValArray, ArraySubType:=UnmanagedType.Bool, SizeConst:=16)>
|
|
Public b_data() As Boolean
|
|
|
|
<MarshalAs(UnmanagedType.ByValArray, ArraySubType:=UnmanagedType.I2, SizeConst:=16)>
|
|
Public n_data() As Int16
|
|
|
|
<MarshalAs(UnmanagedType.ByValArray, ArraySubType:=UnmanagedType.I8, SizeConst:=16)>
|
|
Public l_data() As Long
|
|
|
|
<MarshalAs(UnmanagedType.ByValArray, ArraySubType:=UnmanagedType.R8, SizeConst:=16)>
|
|
Public d_data() As Double
|
|
|
|
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=256)>
|
|
Public sz_spare_data As String
|
|
|
|
|
|
End Structure
|
|
|
|
Public SiemensRet As SiemensRetStruct
|
|
|
|
|
|
Public m_Axes_Id As New List(Of Integer)
|
|
|
|
#End Region
|
|
|
|
#Region " MMFiles constants"
|
|
' In terminal services: The name can have a "Global\" or "Local\" prefix to
|
|
' explicitly create the object in the global or session namespace. The
|
|
' remainder of the name can contain any character except the backslash
|
|
' character (\).
|
|
|
|
Friend Const MapPrefix As String = "Local\"
|
|
Friend Const MapName As String = "SampleMap"
|
|
Friend Const MapName2 As String = "SampleMap2"
|
|
Friend Const FullMapName As String = MapPrefix & MapName
|
|
Friend Const FullMapName2 As String = MapPrefix & MapName2
|
|
|
|
' Max size of the file mapping object.
|
|
Friend Const MapSize As UInt32 = &H10000
|
|
|
|
' File offset where the view is to begin.
|
|
Friend Const ViewOffset As UInt32 = 0
|
|
|
|
' The number of bytes of a file mapping to map to the view. All bytes of the
|
|
' view must be within the maximum size of the file mapping object (MAP_SIZE).
|
|
' If VIEW_SIZE is 0, the mapping extends from the offset (VIEW_OFFSET) to
|
|
' the end of the file mapping.
|
|
Friend Const ViewSize As UInt32 = &H1000
|
|
|
|
#End Region
|
|
|
|
'
|
|
'----------------------------------------------------------------------------------------------------------
|
|
'
|
|
#Region "ENUM States and Local Constants"
|
|
|
|
Public Const MAX_AXIS_ID As Integer = 15
|
|
Public Const N_R_VAR As Integer = 12
|
|
Const TIMER_INTERVAL As Integer = 100
|
|
|
|
#End Region
|
|
|
|
#Region "local vars "
|
|
|
|
Private aTimer As System.Timers.Timer
|
|
|
|
Private b_busy As Boolean = False
|
|
|
|
#End Region
|
|
|
|
#Region " MMFiles mapping vars"
|
|
|
|
Dim hMapFile As SafeFileMappingHandle = Nothing
|
|
Dim hMapFile2 As SafeFileMappingHandle = Nothing
|
|
Dim pView As IntPtr = IntPtr.Zero
|
|
Dim pView2 As IntPtr = IntPtr.Zero
|
|
|
|
#End Region
|
|
|
|
#Region " Commands constants"
|
|
' Elenco codici comandi per spedire programma a SiemensComm.exe
|
|
Enum CMD As Short
|
|
|
|
CMD_Download_NC_prog = 1
|
|
CMD_ActivateProgram = 2
|
|
CMD_Delete_NC_prog = 3
|
|
CMD_CycleStart = 4
|
|
CMD_FeedHold = 5
|
|
CMD_Reset = 6
|
|
CMD_WriteCncMode = 7
|
|
CMD_DPOsition_ReadOnce = 8
|
|
CMD_MDI_command = 9
|
|
CMD_set_OP_OM = 10
|
|
CMD_read_active_mode = 11
|
|
CMD_Is_G24_active = 12
|
|
CMD_Is_G71_active = 13
|
|
CMD_Read_Nc_var = 14
|
|
CMD_Write_Nc_var = 15
|
|
CMD_MDI_command_new = 19
|
|
CMD_Download_And_Activate_Prog = 21
|
|
CMD_SetProgramExt = 22
|
|
CMD_Read_NC_object = 31
|
|
CMD_Write_NC_object = 32
|
|
CMD_Read_NC_subscription = 98
|
|
CMD_SHUTDOWN = 99
|
|
|
|
End Enum
|
|
|
|
Friend Enum VarType As Short
|
|
TBoolean = 0
|
|
TInteger = 1
|
|
TLong = 2
|
|
TDouble = 3
|
|
TString = 4
|
|
End Enum
|
|
|
|
Enum State As Short
|
|
|
|
Command_on = 1
|
|
Busy_On = 2
|
|
Command_off = 3
|
|
Busy_Off = 4
|
|
|
|
End Enum
|
|
|
|
Const COMMAND_ON As Short = 1
|
|
Const COMMAND_OFF As Short = 0
|
|
|
|
#End Region
|
|
|
|
'
|
|
'----------------------------------------------------------------------------------------------------------
|
|
'
|
|
Sub init()
|
|
|
|
MMFile_init()
|
|
|
|
Timer_init()
|
|
|
|
End Sub
|
|
|
|
Sub MMFile_init()
|
|
|
|
Try
|
|
|
|
' Create the file mapping object -- File comandi
|
|
hMapFile = NativeMethod.CreateFileMapping( _
|
|
INVALID_HANDLE_VALUE, _
|
|
IntPtr.Zero, _
|
|
FileProtection.PAGE_READWRITE, _
|
|
0, _
|
|
MapSize, _
|
|
FullMapName)
|
|
|
|
If hMapFile.IsInvalid Then Throw New Win32Exception
|
|
|
|
' Create the file mapping object2 .
|
|
hMapFile2 = NativeMethod.CreateFileMapping( _
|
|
INVALID_HANDLE_VALUE, _
|
|
IntPtr.Zero, _
|
|
FileProtection.PAGE_READWRITE, _
|
|
0, _
|
|
MapSize, _
|
|
FullMapName2)
|
|
|
|
If hMapFile2.IsInvalid Then Throw New Win32Exception
|
|
|
|
' Map a view of the file mapping into the address space of the current process.
|
|
|
|
pView = NativeMethod.MapViewOfFile( _
|
|
hMapFile, _
|
|
FileMapAccess.FILE_MAP_ALL_ACCESS, _
|
|
0, _
|
|
ViewOffset, _
|
|
ViewSize)
|
|
|
|
If pView = IntPtr.Zero Then Throw New Win32Exception
|
|
|
|
' Map a view of the file mapping into the address space of the current process.
|
|
|
|
pView2 = NativeMethod.MapViewOfFile( _
|
|
hMapFile2, _
|
|
FileMapAccess.FILE_MAP_READ, _
|
|
0, _
|
|
ViewOffset, _
|
|
ViewSize)
|
|
|
|
If pView2 = IntPtr.Zero Then Throw New Win32Exception
|
|
|
|
Catch ex As Exception
|
|
EgtOutLog("Errore nell'init dell'm_mmFiles")
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Function Stop_Connection() As Boolean
|
|
Try
|
|
|
|
aTimer.Stop()
|
|
|
|
SiemensSend.n_Command = CMD.CMD_SHUTDOWN ' shutdown
|
|
SiemensSend.n_Flag = COMMAND_ON ' alzo il comando
|
|
' scrivo !!!!!
|
|
Marshal.StructureToPtr(SiemensSend, pView, False)
|
|
|
|
' execute_command()
|
|
|
|
System.Threading.Thread.Sleep(2000)
|
|
|
|
If (Not hMapFile Is Nothing) Then
|
|
If (pView <> IntPtr.Zero) Then
|
|
|
|
NativeMethod.UnmapViewOfFile(pView) ' Unmap the file view.
|
|
pView = IntPtr.Zero
|
|
|
|
End If
|
|
|
|
hMapFile.Close() ' Close the file mapping object.
|
|
hMapFile = Nothing
|
|
|
|
End If
|
|
|
|
If (Not hMapFile2 Is Nothing) Then
|
|
If (pView2 <> IntPtr.Zero) Then
|
|
|
|
NativeMethod.UnmapViewOfFile(pView2) ' Unmap the file view.
|
|
pView2 = IntPtr.Zero
|
|
|
|
End If
|
|
|
|
hMapFile2.Close() ' Close the file mapping object.
|
|
hMapFile2 = Nothing
|
|
|
|
End If
|
|
Return True
|
|
Catch ex As Exception
|
|
EgtOutLog("Errore nella stop connection dell'm_mmFiles")
|
|
Return False
|
|
End Try
|
|
|
|
End Function
|
|
|
|
'
|
|
'----------------------------------------------------------------------------------------------------------
|
|
'
|
|
Function ActivateProgram(ByVal sz_part_program As String) As Short
|
|
'EgtOutLog("ActivateProgram start dell'm_mmFiles")
|
|
|
|
EgtOutLog("Flag di comando: " & CMD.CMD_ActivateProgram.ToString)
|
|
EgtOutLog("Stringa di comando: " & sz_part_program.ToString)
|
|
|
|
SiemensSend.n_Command = CMD.CMD_ActivateProgram
|
|
SiemensSend.sz_string = sz_part_program
|
|
|
|
execute_command()
|
|
'EgtOutLog("ActivateProgram end dell'm_mmFiles")
|
|
Return SiemensRet.n_result
|
|
|
|
End Function
|
|
|
|
Function Delete_NC_prog(ByVal sz_filename As String) As Short
|
|
'EgtOutLog("Delete_NC_prog start dell'm_mmFiles")
|
|
|
|
SiemensSend.n_Command = CMD.CMD_Delete_NC_prog
|
|
SiemensSend.sz_string = sz_filename
|
|
|
|
execute_command()
|
|
'EgtOutLog("Delete_NC_prog end dell'm_mmFiles")
|
|
Return SiemensRet.n_result
|
|
|
|
End Function
|
|
|
|
Function CycleStart() As Short
|
|
'EgtOutLog("CycleStart start dell'm_mmFiles")
|
|
|
|
SiemensSend.n_Command = CMD.CMD_CycleStart
|
|
|
|
execute_command()
|
|
' Rimango in attesa
|
|
EgtOutLog(" -> CycleStart")
|
|
Return SiemensRet.n_result
|
|
|
|
End Function
|
|
|
|
Function FeedHold() As Short
|
|
'EgtOutLog("FeedHold start dell'm_mmFiles")
|
|
|
|
SiemensSend.n_Command = CMD.CMD_FeedHold
|
|
|
|
execute_command()
|
|
'EgtOutLog("FeedHold end dell'm_mmFiles")
|
|
Return SiemensRet.n_result
|
|
|
|
End Function
|
|
|
|
Function Reset() As Short
|
|
'EgtOutLog("Reset start dell'm_mmFiles")
|
|
|
|
SiemensSend.n_Command = CMD.CMD_Reset
|
|
|
|
execute_command()
|
|
'EgtOutLog("Reset end dell'm_mmFiles")
|
|
Return SiemensRet.n_result
|
|
|
|
End Function
|
|
|
|
Function WriteCncMode(ByVal nmode As Short) As Short
|
|
Dim nNewWriteCNCMode As Integer = 0
|
|
If GetPrivateProfileInt(S_NCSIEMENS, K_NEWWRITECNCMODE, nNewWriteCNCMode, m_MainWindow.GetMachIniFile()) <> 0 Then
|
|
Dim s_var As String = String.Empty
|
|
GetPrivateProfileString(S_NCDATA, K_WRITECNCMODEVAR, "db11.dbx0", s_var, m_MainWindow.GetMachIniFile())
|
|
Select Case nmode
|
|
Case 0
|
|
' Auto
|
|
s_var &= ".0"
|
|
Case 2
|
|
' MDI
|
|
s_var &= ".1"
|
|
Case 7
|
|
' manuale
|
|
s_var &= ".2"
|
|
Case Else
|
|
' manuale
|
|
s_var &= ".2"
|
|
End Select
|
|
EgtOutLog("Nuova scrittura modo: case(" & nmode.ToString & ") -> " & s_var)
|
|
Return Write_var(s_var, CShort(1), CInt(1), 0, 0, "")
|
|
Else
|
|
'EgtOutLog("WriteCncMode start dell'm_mmFiles")
|
|
SiemensSend.n_Command = CMD.CMD_WriteCncMode
|
|
SiemensSend.n_param1 = nmode
|
|
EgtOutLog("Attivata modalità: " & SiemensSend.n_param1.ToString)
|
|
execute_command()
|
|
'EgtOutLog("WriteCncMode end dell'm_mmFiles")
|
|
Return SiemensRet.n_result
|
|
End If
|
|
|
|
End Function
|
|
|
|
Function Download_NC_prog(ByVal sz_Pc_file_name As String, ByVal sz_NC_filen As String) As Short
|
|
'EgtOutLog("Download_NC_prog start dell'm_mmFiles")
|
|
SiemensSend.n_Command = CMD.CMD_Download_NC_prog
|
|
SiemensSend.sz_string = sz_Pc_file_name
|
|
SiemensSend.sz_string_2 = sz_NC_filen
|
|
|
|
execute_command()
|
|
'EgtOutLog("Download_NC_prog end dell'm_mmFiles")
|
|
Return SiemensRet.n_result
|
|
|
|
End Function
|
|
|
|
Function SetProgramExt(sz_ProgExt As String) As Short
|
|
'EgtOutLog("SetProgramExt start dell'm_mmFiles")
|
|
SiemensSend.n_Command = CMD.CMD_SetProgramExt
|
|
SiemensSend.sz_string = sz_ProgExt
|
|
|
|
execute_command()
|
|
'EgtOutLog("SetProgramExt end dell'm_mmFiles")
|
|
Return SiemensRet.n_result
|
|
|
|
End Function
|
|
|
|
Function DPOsition_ReadOnce() As Short
|
|
'EgtOutLog("DPOsition_ReadOnce single dell'm_mmFiles")
|
|
Return 1
|
|
End Function
|
|
|
|
Function MDI_command(sz_command As String) As Short
|
|
'EgtOutLog("MDI_command start dell'm_mmFiles")
|
|
SiemensSend.n_Command = CMD.CMD_MDI_command
|
|
SiemensSend.sz_string = sz_command
|
|
|
|
execute_command()
|
|
'EgtOutLog("MDI_command end dell'm_mmFiles")
|
|
Return SiemensRet.n_result
|
|
|
|
End Function
|
|
|
|
Function NEWMDI_command(sz_command As String, nChannel As Integer) As Short
|
|
'EgtOutLog("MDI_command start dell'm_mmFiles")
|
|
SiemensSend.n_Command = CMD.CMD_MDI_command_new
|
|
SiemensSend.sz_string = sz_command
|
|
SiemensSend.n_param1 = nChannel
|
|
|
|
execute_command()
|
|
|
|
'EgtOutLog("MDI_command end dell'm_mmFiles")
|
|
Return SiemensRet.n_result
|
|
|
|
End Function
|
|
|
|
Sub set_OP_OM(ByVal n As Short)
|
|
'EgtOutLog("set_OP_OM start dell'm_mmFiles")
|
|
SiemensSend.n_Command = CMD.CMD_set_OP_OM
|
|
SiemensSend.n_param1 = n
|
|
|
|
execute_command()
|
|
'EgtOutLog("set_OP_OM end dell'm_mmFiles")
|
|
End Sub
|
|
|
|
Function read_active_mode() As Short
|
|
'EgtOutLog("read_active_mode start dell'm_mmFiles")
|
|
SiemensSend.n_Command = CMD.CMD_read_active_mode
|
|
|
|
execute_command()
|
|
|
|
'EgtOutLog("read_active_mode end dell'm_mmFiles: " & SiemensRet.n_result)
|
|
Return SiemensRet.n_result
|
|
End Function
|
|
|
|
Function Is_G24_active() As Boolean
|
|
'EgtOutLog("Is_G24_active start dell'm_mmFiles")
|
|
SiemensSend.n_Command = CMD.CMD_Is_G24_active
|
|
|
|
execute_command()
|
|
|
|
'EgtOutLog("Is_G24_active end dell'm_mmFiles")
|
|
Return SiemensRet.n_result
|
|
End Function
|
|
|
|
Function Is_G71_active() As Boolean
|
|
'EgtOutLog("Is_G71_active start dell'm_mmFiles")
|
|
SiemensSend.n_Command = CMD.CMD_Is_G71_active
|
|
|
|
execute_command()
|
|
|
|
'EgtOutLog("Is_G71_active end dell'm_mmFiles")
|
|
Return SiemensRet.n_result
|
|
End Function
|
|
|
|
Function Read_Nc_var(n_var As Short) As Short
|
|
'EgtOutLog("Read_Nc_var start dell'm_mmFiles")
|
|
SiemensSend.n_Command = CMD.CMD_Read_Nc_var
|
|
SiemensSend.n_param1 = n_var
|
|
|
|
execute_command()
|
|
|
|
m_MainWindow.m_CNCommunication.m_CN.d_DReadELS_value = SiemensRet.d_param1
|
|
'EgtOutLog("Read_Nc_var end dell'm_mmFiles")
|
|
Return SiemensRet.n_result
|
|
|
|
End Function
|
|
|
|
Function Write_Nc_var(n_var As Short, n_value As Short) As Short
|
|
'EgtOutLog("Write_Nc_var start dell'm_mmFiles")
|
|
SiemensSend.n_Command = CMD.CMD_Write_Nc_var
|
|
SiemensSend.n_param1 = n_var
|
|
SiemensSend.n_param2 = n_value
|
|
|
|
execute_command()
|
|
|
|
'EgtOutLog("Write_Nc_var end dell'm_mmFiles")
|
|
Return SiemensRet.n_result
|
|
|
|
End Function
|
|
|
|
Function Read_var(VarAddr As String, ParType As VarType) As Short
|
|
'EgtOutLog("Read_Nc_var start dell'm_mmFiles")
|
|
SiemensSend.n_Command = CMD.CMD_Read_NC_object
|
|
SiemensSend.sz_string_2 = VarAddr ' indirizzo su CN dell' oggetto da scrivere
|
|
SiemensSend.n_param2 = ParType ' tipo di dato da scrivere
|
|
|
|
execute_command()
|
|
|
|
Select Case ParType
|
|
Case VarType.TInteger
|
|
m_MainWindow.m_CNCommunication.m_CN.n_param1 = SiemensRet.n_param1
|
|
Case VarType.TLong
|
|
m_MainWindow.m_CNCommunication.m_CN.l_param1 = SiemensRet.l_param1
|
|
Case VarType.TDouble
|
|
m_MainWindow.m_CNCommunication.m_CN.d_param1 = SiemensRet.d_param1
|
|
Case VarType.TString
|
|
m_MainWindow.m_CNCommunication.m_CN.sz_string = SiemensRet.sz_param
|
|
End Select
|
|
m_MainWindow.m_CNCommunication.m_CN.sz_interf_error_message = SiemensRet.sz_interf_error_message
|
|
'EgtOutLog("Read_Nc_var end dell'm_mmFiles")
|
|
Return SiemensRet.n_result
|
|
|
|
End Function
|
|
|
|
Function Write_var(VarAddr As String, ParType As VarType, nVarValue As Integer, lVarValue As Long, dVarValue As Double, sVarValue As String) As Short
|
|
'EgtOutLog("Write_Nc_var start dell'm_mmFiles")
|
|
SiemensSend.n_Command = CMD.CMD_Write_NC_object
|
|
SiemensSend.sz_string_2 = VarAddr ' indirizzo su CN dell' oggetto da scrivere
|
|
|
|
|
|
SiemensSend.n_param2 = ParType ' tipo di dato da scrivere
|
|
|
|
SiemensSend.n_param1 = nVarValue
|
|
SiemensSend.l_param1 = lVarValue
|
|
SiemensSend.d_param1 = dVarValue
|
|
SiemensSend.sz_string = sVarValue
|
|
|
|
execute_command()
|
|
m_MainWindow.m_CNCommunication.m_CN.sz_interf_error_message = SiemensRet.sz_interf_error_message
|
|
|
|
EgtOutLog("sz_interf_error_message: " & m_MainWindow.m_CNCommunication.m_CN.sz_interf_error_message)
|
|
EgtOutLog("n_result: " & SiemensRet.n_result)
|
|
Return SiemensRet.n_result
|
|
|
|
End Function
|
|
|
|
Function Read_subscription(VarAddr As String, ParType As VarType, Index As Integer) As Short
|
|
'EgtOutLog("Write_Nc_var start dell'm_mmFiles")
|
|
SiemensSend.n_Command = CMD.CMD_Read_NC_subscription
|
|
SiemensSend.sz_string_2 = VarAddr ' indirizzo su CN dell' oggetto da scrivere
|
|
EgtOutLog(" -> Sottoscrivo lettura di '" & VarAddr & "'")
|
|
SiemensSend.n_param1 = Index ' tipo di dato da scrivere
|
|
EgtOutLog(" Indice del vettore associato '" & Index & "'")
|
|
SiemensSend.n_param2 = ParType ' tipo di dato da scrivere
|
|
EgtOutLog(" Indice tipo di variabile '" & ParType & "'")
|
|
execute_command()
|
|
m_MainWindow.m_CNCommunication.m_CN.sz_interf_error_message = SiemensRet.sz_interf_error_message
|
|
EgtOutLog(" sz_interf_error_message: " & m_MainWindow.m_CNCommunication.m_CN.sz_interf_error_message)
|
|
EgtOutLog(" n_result: " & SiemensRet.n_result)
|
|
Return SiemensRet.n_result
|
|
End Function
|
|
|
|
|
|
'
|
|
'----------------------------------------------------------------------------------------------------------
|
|
'
|
|
Sub execute_command()
|
|
Try
|
|
' Attesa eventuale busy iniziale
|
|
Dim nCount As Integer = 0
|
|
Dim bEnd As Boolean = False
|
|
While Not bEnd
|
|
If SiemensRet.b_busy Then
|
|
System.Threading.Thread.Sleep(50)
|
|
Else
|
|
bEnd = True
|
|
End If
|
|
' controllo massimo numero di cicli
|
|
nCount += 1
|
|
If nCount > 40 Then Throw New Win32Exception("Timeout")
|
|
End While
|
|
|
|
' Alzo il comando
|
|
SiemensSend.n_Flag = COMMAND_ON
|
|
' scrivo
|
|
Marshal.StructureToPtr(SiemensSend, pView, False)
|
|
|
|
' Ciclo di attesa della risposta
|
|
Dim nState As State = State.Command_on
|
|
nCount = 0
|
|
bEnd = False
|
|
While Not bEnd
|
|
Select Case nState
|
|
Case State.Command_on ' alzato il comando attendo il busy
|
|
If SiemensRet.b_busy Then
|
|
nState = State.Busy_On
|
|
Else
|
|
System.Threading.Thread.Sleep(50)
|
|
End If
|
|
Case State.Busy_On ' trovato il busy abbasso il comando
|
|
SiemensSend.n_Flag = COMMAND_OFF ' abbasso il comando
|
|
' scrivo !!!!!
|
|
Marshal.StructureToPtr(SiemensSend, pView, False)
|
|
nState = State.Command_off
|
|
Case State.Command_off ' abbassato il comando attendo il busy basso
|
|
If SiemensRet.b_busy Then
|
|
System.Threading.Thread.Sleep(50)
|
|
Else
|
|
nState = State.Busy_Off
|
|
End If
|
|
Case State.Busy_Off
|
|
bEnd = True
|
|
End Select
|
|
' controllo massimo numero di cicli
|
|
nCount += 1
|
|
If nCount > 400 Then Throw New Win32Exception("Timeout")
|
|
End While
|
|
|
|
'EgtOutLog("Eseguito comando :" & SiemensSend.n_Command.ToString())
|
|
|
|
Catch ex As Exception
|
|
SiemensRet.n_result = 99
|
|
EgtOutLog("Errore nell'esecuzione di un comando : " & ex.Message)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
'
|
|
'----------------------------------------------------------------------------------------------------------
|
|
'
|
|
#Region " Timer"
|
|
'
|
|
'---------------------------------------------------------------------------------------------
|
|
' timer rinfresco assi e varie
|
|
'
|
|
Sub Timer_init()
|
|
|
|
' Create a timer and set an half second interval.
|
|
aTimer = New System.Timers.Timer()
|
|
|
|
aTimer.Interval = TIMER_INTERVAL ' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
|
' Hook up the Elapsed event for the timer.
|
|
AddHandler aTimer.Elapsed, AddressOf OnTimedEvent
|
|
|
|
aTimer.AutoReset = True ' Have the timer fire repeated events (true is the default)
|
|
|
|
aTimer.Enabled = True ' Start the timer
|
|
|
|
End Sub
|
|
|
|
Private Sub OnTimedEvent(ByVal source As Object, ByVal e As System.Timers.ElapsedEventArgs)
|
|
|
|
If Not b_busy Then
|
|
aTimer.Enabled = False
|
|
b_busy = True
|
|
|
|
TimerProcessing()
|
|
|
|
b_busy = False
|
|
aTimer.Enabled = True
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Sub TimerProcessing()
|
|
|
|
Try
|
|
|
|
'EgtOutLog("Siemens TimerProcessing start")
|
|
|
|
SiemensRet = Marshal.PtrToStructure(pView2, SiemensRet.GetType)
|
|
|
|
Dim CurrCN As CN_Siemens = m_MainWindow.m_CNCommunication.m_CN
|
|
|
|
' Se macchina in pollici, allora valori assi lineari in pollici
|
|
Dim LinCoeff As Double = If(m_MainWindow.m_CNCommunication.GetMachineInInches(), ONEINCH, ONEMM)
|
|
|
|
' Copia delle quote degli assi
|
|
For nI As Integer = 0 To (m_Axes_Id.Count() - 1)
|
|
Dim nId As Short = m_Axes_Id(nI)
|
|
|
|
'' agli assi lineari devo applicare il coefficiente
|
|
'If (nId Mod 10) < 3 Then
|
|
' CurrCN.d_axis_position(nI) = SiemensRet.d_interf_axis_position(nId) * LinCoeff
|
|
' CurrCN.d_axis_delta(nI) = SiemensRet.d_interf_axis_delta(nId) * LinCoeff
|
|
' ' gli assi rotanti sono sempre in gradi
|
|
'Else
|
|
' CurrCN.d_axis_position(nI) = SiemensRet.d_interf_axis_position(nId)
|
|
' CurrCN.d_axis_delta(nI) = SiemensRet.d_interf_axis_delta(nId)
|
|
'End If
|
|
|
|
' ver 2.7h2
|
|
CurrCN.d_axis_position(nI) = SiemensRet.d_interf_axis_position(nId)
|
|
CurrCN.d_axis_delta(nI) = SiemensRet.d_interf_axis_delta(nId)
|
|
' verifico se l'indice 'i' è associato ad un asse rotativo oppure lineare
|
|
If CurrCN.b_axis_is_linear(nI) Then
|
|
CurrCN.d_axis_position(nI) *= LinCoeff
|
|
CurrCN.d_axis_delta(nI) *= LinCoeff
|
|
End If
|
|
|
|
Next
|
|
|
|
' Copia variabili R
|
|
For n As Integer = 0 To (N_R_VAR - 1)
|
|
CurrCN.d_Dvariable_values(n) = SiemensRet.d_interf_variable_values(n)
|
|
Next
|
|
|
|
' copy spindle current: per debuggare errore di comunicazione
|
|
'EgtOutLog("Spindle -d_interf_spindle_power-: " & SiemensRet.d_interf_spindle_power.ToString)
|
|
CurrCN.d_spindle_power = SiemensRet.d_interf_spindle_power
|
|
|
|
CurrCN.n_spindle_override(0) = SiemensRet.n_interf_spindle_override
|
|
|
|
CurrCN.d_DInterpo_Feed_override = (Convert.ToDouble(SiemensRet.l_interf_Feed_override))
|
|
CurrCN.l_channel_override(0) = SiemensRet.l_interf_Feed_override
|
|
|
|
CurrCN.d_spindle_prog(0) = SiemensRet.d_interf_spindle_prog
|
|
|
|
CurrCN.d_DInterpo_Prog_Feed = SiemensRet.d_interf_Prog_Feed * LinCoeff
|
|
|
|
If Not m_MainWindow.m_DirectCutPageUC.m_NewMachineButtonsType Then
|
|
CurrCN.bSpindleState = SiemensRet.b_is_spindle_ON
|
|
CurrCN.bCoolantState = SiemensRet.b_is_water_ON
|
|
CurrCN.bLaserState = SiemensRet.b_is_laser_ON
|
|
End If
|
|
|
|
' copio variabili in abbonamento
|
|
For Index As Integer = 0 To 14
|
|
CurrCN.b_data(Index) = SiemensRet.b_data(Index)
|
|
CurrCN.n_data(Index) = SiemensRet.n_data(Index)
|
|
CurrCN.l_data(Index) = SiemensRet.l_data(Index)
|
|
CurrCN.d_data(Index) = SiemensRet.d_data(Index)
|
|
Next
|
|
'CurrCN.n_data(0) = SiemensRet.n_data(0)
|
|
'CurrCN.n_data(1) = SiemensRet.n_data(1)
|
|
'CurrCN.n_data(2) = SiemensRet.n_data(2)
|
|
|
|
'CurrCN.sz_spare_data = SiemensRet.sz_spare_data
|
|
|
|
' copy alarms
|
|
CurrCN.b_NC_error = False
|
|
SyncLock CurrCN
|
|
CurrCN.sz_NC_error_messages.Clear()
|
|
If Not String.IsNullOrEmpty(SiemensRet.lst_NC_messages) Then
|
|
CurrCN.sz_NC_error_messages.Add(SiemensRet.lst_NC_messages)
|
|
CurrCN.b_NC_error = True
|
|
End If
|
|
End SyncLock
|
|
|
|
'EgtOutLog("stop")
|
|
|
|
Catch ex As Exception
|
|
EgtOutLog("Errore nella lettura delle quote e simili variabili" & ex.ToString)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
'
|
|
'----------------------------------------------------------------------------------------------------------
|
|
'
|
|
#Region "Native API Signatures and Types"
|
|
|
|
''' <summary>
|
|
''' Memory Protection Constants
|
|
''' http://msdn.microsoft.com/en-us/library/aa366786.aspx
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Public Enum FileProtection As UInt32
|
|
PAGE_NOACCESS = &H1
|
|
PAGE_READONLY = &H2
|
|
PAGE_READWRITE = &H4
|
|
PAGE_WRITECOPY = &H8
|
|
PAGE_EXECUTE = &H10
|
|
PAGE_EXECUTE_READ = &H20
|
|
PAGE_EXECUTE_READWRITE = &H40
|
|
PAGE_EXECUTE_WRITECOPY = &H80
|
|
PAGE_GUARD = &H100
|
|
PAGE_NOCACHE = &H200
|
|
PAGE_WRITECOMBINE = &H400
|
|
SEC_FILE = &H800000
|
|
SEC_IMAGE = &H1000000
|
|
SEC_RESERVE = &H4000000
|
|
SEC_COMMIT = &H8000000
|
|
SEC_NOCACHE = &H10000000
|
|
End Enum
|
|
|
|
|
|
''' <summary>
|
|
''' Access rights for file mapping objects
|
|
''' http://msdn.microsoft.com/en-us/library/aa366559.aspx
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Public Enum FileMapAccess
|
|
FILE_MAP_COPY = 1
|
|
FILE_MAP_WRITE = 2
|
|
FILE_MAP_READ = 4
|
|
FILE_MAP_ALL_ACCESS = &HF001F
|
|
End Enum
|
|
|
|
|
|
''' <summary>
|
|
''' Represents a wrapper class for a file mapping handle.
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
<HostProtection(SecurityAction.Demand, MayLeakOnAbort:=True)>
|
|
Friend NotInheritable Class SafeFileMappingHandle
|
|
Inherits SafeHandleZeroOrMinusOneIsInvalid
|
|
|
|
<SecurityPermission(SecurityAction.Demand, UnmanagedCode:=True)>
|
|
Private Sub New()
|
|
MyBase.New(True)
|
|
End Sub
|
|
|
|
<SecurityPermission(SecurityAction.Demand, UnmanagedCode:=True)>
|
|
Public Sub New(handle As IntPtr, ownsHandle As Boolean)
|
|
MyBase.New(ownsHandle)
|
|
MyBase.SetHandle(handle)
|
|
End Sub
|
|
|
|
<ReliabilityContract(Consistency.WillNotCorruptState, Cer.Success),
|
|
DllImport("kernel32.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
|
|
Private Shared Function CloseHandle(handle As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
|
|
End Function
|
|
|
|
Protected Overrides Function ReleaseHandle() As Boolean
|
|
Return SafeFileMappingHandle.CloseHandle(MyBase.handle)
|
|
End Function
|
|
|
|
End Class
|
|
|
|
|
|
Friend ReadOnly INVALID_HANDLE_VALUE As New IntPtr(-1)
|
|
|
|
|
|
''' <summary>
|
|
''' The class exposes Windows APIs used in this code sample.
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Friend Class NativeMethod
|
|
''' <summary>
|
|
''' Creates or opens a named or unnamed file mapping object for a
|
|
''' specified file.
|
|
''' </summary>
|
|
''' <param name="hFile">
|
|
''' A handle to the file from which to create a file mapping object.
|
|
''' </param>
|
|
''' <param name="lpAttributes">
|
|
''' A pointer to a SECURITY_ATTRIBUTES structure that determines whether
|
|
''' a returned handle can be inherited by child processes.
|
|
''' </param>
|
|
''' <param name="flProtect">
|
|
''' Specifies the page protection of the file mapping object. All mapped
|
|
''' views of the object must be compatible with this protection.
|
|
''' </param>
|
|
''' <param name="dwMaximumSizeHigh">
|
|
''' The high-order DWORD of the maximum size of the file mapping object.
|
|
''' </param>
|
|
''' <param name="dwMaximumSizeLow">
|
|
''' The low-order DWORD of the maximum size of the file mapping object.
|
|
''' </param>
|
|
''' <param name="lpName">
|
|
''' The name of the file mapping object.
|
|
''' </param>
|
|
''' <returns>
|
|
''' If the function succeeds, the return value is a handle to the newly
|
|
''' created file mapping object.
|
|
''' </returns>
|
|
<DllImport("Kernel32.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
|
|
Public Shared Function CreateFileMapping(
|
|
hFile As IntPtr,
|
|
lpAttributes As IntPtr,
|
|
flProtect As FileProtection,
|
|
dwMaximumSizeHigh As UInt32,
|
|
dwMaximumSizeLow As UInt32,
|
|
lpName As String) As SafeFileMappingHandle
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Opens a named file mapping object.
|
|
''' </summary>
|
|
''' <param name="dwDesiredAccess">
|
|
''' The access to the file mapping object. This access is checked against
|
|
''' any security descriptor on the target file mapping object.
|
|
''' </param>
|
|
''' <param name="bInheritHandle">
|
|
''' If this parameter is TRUE, a process created by the CreateProcess
|
|
''' function can inherit the handle; otherwise, the handle cannot be
|
|
''' inherited.
|
|
''' </param>
|
|
''' <param name="lpName">
|
|
''' The name of the file mapping object to be opened.
|
|
''' </param>
|
|
''' <returns>
|
|
''' If the function succeeds, the return value is an open handle to the
|
|
''' specified file mapping object.
|
|
''' </returns>
|
|
<DllImport("kernel32.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
|
|
Public Shared Function OpenFileMapping(
|
|
dwDesiredAccess As FileMapAccess,
|
|
bInheritHandle As Boolean,
|
|
lpName As String) As SafeFileMappingHandle
|
|
End Function
|
|
|
|
|
|
''' <summary>
|
|
''' Maps a view of a file mapping into the address space of a calling
|
|
''' process.
|
|
''' </summary>
|
|
''' <param name="hFileMappingObject">
|
|
''' A handle to a file mapping object. The CreateFileMapping and
|
|
''' OpenFileMapping functions return this handle.
|
|
''' </param>
|
|
''' <param name="dwDesiredAccess">
|
|
''' The type of access to a file mapping object, which determines the
|
|
''' protection of the pages.
|
|
''' </param>
|
|
''' <param name="dwFileOffsetHigh">
|
|
''' A high-order DWORD of the file offset where the view begins.
|
|
''' </param>
|
|
''' <param name="dwFileOffsetLow">
|
|
''' A low-order DWORD of the file offset where the view is to begin.
|
|
''' </param>
|
|
''' <param name="dwNumberOfBytesToMap">
|
|
''' The number of bytes of a file mapping to map to the view. All bytes
|
|
''' must be within the maximum size specified by CreateFileMapping.
|
|
''' </param>
|
|
''' <returns>
|
|
''' If the function succeeds, the return value is the starting address of
|
|
''' the mapped view.
|
|
''' </returns>
|
|
<DllImport("Kernel32.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
|
|
Public Shared Function MapViewOfFile(
|
|
hFileMappingObject As SafeFileMappingHandle,
|
|
dwDesiredAccess As FileMapAccess,
|
|
dwFileOffsetHigh As UInt32,
|
|
dwFileOffsetLow As UInt32,
|
|
dwNumberOfBytesToMap As UInt32) As IntPtr
|
|
End Function
|
|
|
|
|
|
''' <summary>
|
|
''' Unmaps a mapped view of a file from the calling process's address
|
|
''' space.
|
|
''' </summary>
|
|
''' <param name="lpBaseAddress">
|
|
''' A pointer to the base address of the mapped view of a file that is to
|
|
''' be unmapped.
|
|
''' </param>
|
|
''' <returns></returns>
|
|
<DllImport("Kernel32.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
|
|
Public Shared Function UnmapViewOfFile(
|
|
lpBaseAddress As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
|
|
End Function
|
|
|
|
End Class
|
|
|
|
#End Region
|
|
|
|
End Module
|