diff --git a/IOB-WIN/CncLib/App/App.Native.Ini.vb b/IOB-WIN/CncLib/App/App.Native.Ini.vb deleted file mode 100644 index 67bbb0a..0000000 --- a/IOB-WIN/CncLib/App/App.Native.Ini.vb +++ /dev/null @@ -1,113 +0,0 @@ -Namespace App - Namespace Native - Public Class Ini - ' API functions - Private Declare Ansi Function GetPrivateProfileString _ - Lib "kernel32.dll" Alias "GetPrivateProfileStringA" _ - (ByVal lpApplicationName As String, _ - ByVal lpKeyName As String, ByVal lpDefault As String, _ - ByVal lpReturnedString As System.Text.StringBuilder, _ - ByVal nSize As Integer, ByVal lpFileName As String) _ - As Integer - - Private Declare Ansi Function WritePrivateProfileString _ - Lib "kernel32.dll" Alias "WritePrivateProfileStringA" _ - (ByVal lpApplicationName As String, _ - ByVal lpKeyName As String, ByVal lpString As String, _ - ByVal lpFileName As String) As Integer - - Private Declare Ansi Function GetPrivateProfileInt _ - Lib "kernel32.dll" Alias "GetPrivateProfileIntA" _ - (ByVal lpApplicationName As String, _ - ByVal lpKeyName As String, ByVal nDefault As Integer, _ - ByVal lpFileName As String) As Integer - - Private Declare Ansi Function FlushPrivateProfileString _ - Lib "kernel32.dll" Alias "WritePrivateProfileStringA" _ - (ByVal lpApplicationName As Integer, _ - ByVal lpKeyName As Integer, ByVal lpString As Integer, _ - ByVal lpFileName As String) As Integer - - Dim strFilename As String - - ' Constructor, accepting a filename - Public Sub New(ByVal Filename As String) - - strFilename = Filename - - End Sub - - ' Read-only filename property - ReadOnly Property FileName() As String - Get - Return strFilename - End Get - End Property - - Public Function GetString(ByVal Section As String, ByVal Key As String, ByVal [Default] As String) As String - - ' Returns a string from your INI file - Dim intCharCount As Integer - Dim objResult As New System.Text.StringBuilder(256) - - intCharCount = GetPrivateProfileString(Section, Key, _ - [Default], objResult, objResult.Capacity, strFilename) - - If intCharCount > 0 Then - Return Left(objResult.ToString, intCharCount) - Else - Return "" - End If - - End Function - - Public Function GetInteger(ByVal Section As String, ByVal Key As String, ByVal [Default] As Integer) As Integer - - ' Returns an integer from your INI file - Return GetPrivateProfileInt(Section, Key, _ - [Default], strFilename) - - End Function - - Public Function GetBoolean(ByVal Section As String, ByVal Key As String, ByVal [Default] As Boolean) As Boolean - - ' Returns a boolean from your INI file - Return (GetPrivateProfileInt(Section, Key, _ - CInt([Default]), strFilename) = 1) - - End Function - - Public Sub WriteString(ByVal Section As String, ByVal Key As String, ByVal Value As String) - - ' Writes a string to your INI file - WritePrivateProfileString(Section, Key, Value, strFilename) - Flush() - - End Sub - - Public Sub WriteInteger(ByVal Section As String, ByVal Key As String, ByVal Value As Integer) - - ' Writes an integer to your INI file - WriteString(Section, Key, CStr(Value)) - Flush() - - End Sub - - Public Sub WriteBoolean(ByVal Section As String, ByVal Key As String, ByVal Value As Boolean) - - ' Writes a boolean to your INI file - WriteString(Section, Key, CStr(CInt(Value))) - Flush() - - End Sub - - Private Sub Flush() - - ' Stores all the cached changes to your INI file - FlushPrivateProfileString(0, 0, 0, strFilename) - - End Sub - End Class - - End Namespace -End Namespace \ No newline at end of file diff --git a/IOB-WIN/CncLib/CNC/CNC.FANUC/CNC.FANUC.vb b/IOB-WIN/CncLib/CNC/CNC.FANUC/CNC.FANUC.vb deleted file mode 100644 index 0b41332..0000000 --- a/IOB-WIN/CncLib/CNC/CNC.FANUC/CNC.FANUC.vb +++ /dev/null @@ -1,1848 +0,0 @@ -Imports CncLib.Config.Settings - -Namespace CNC - - Partial Public Class FANUC - Inherits CNC - - Const N_BYTE_TYPE = 0 - Const N_WORD_TYPE = 1 - Const N_DWORD_TYPE = 2 - Public Const G_PARAM = 0 - Public Const F_PARAM = 1 - Public Const Y_PARAM = 2 - Public Const X_PARAM = 3 - Public Const A_PARAM = 4 - Public Const R_PARAM = 5 - Public Const T_PARAM = 6 - Public Const K_PARAM = 7 - Public Const C_PARAM = 8 - Public Const D_PARAM = 9 - Public Const M_PARAM = 10 - Public Const N_PARAM = 11 - Public Const E_PARAM = 12 - Public Const Z_PARAM = 13 - Public Const CM_PARAM = 100 - - Const F_MAX_ITEM = 8 - Const F_MAX_MACRO = 5 - - - Public Enum MemType - G = 0 - F = 1 - Y = 2 - X = 3 - A = 4 - R = 5 - T = 6 - K = 7 - C = 8 - D = 9 - M = 10 - N = 11 - E = 12 - Z = 13 - CM = 100 - End Enum - - Private _connectionType As ConnectionType - Private _szIp As String - Private _nPortIp As Integer - Private _CncScreen_connectionType As ConnectionType - Private _nPathActive As Integer - Private _nMaxPath As Integer - Private _bMultiProcess As Boolean - Friend focas As Focas1 - Friend nLibHandle(1) As Integer - 'Private _err As New Err - - Private CncScreen_ProcessName As String - - Public Enum ConnectionType - Ethernet = 0 - Hssb = 1 - End Enum - - Private _Is16Series As Boolean - Public ReadOnly Property Is16Series() As Boolean - Get - Return _Is16Series - End Get - End Property - Private _Is30Series As Boolean = Not _Is16Series - Public ReadOnly Property Is30Series() As Boolean - Get - Return _Is30Series - End Get - End Property - - Public Overrides Property Licenza() As Integer - Get - Dim uiLicence As UInteger - 'leggo dal cn il valore - Me.F_RW_DWord(R, MemType.D, 7222, uiLicence) - Return UnsignedToInteger(uiLicence) - End Get - Set(ByVal value As Integer) - 'setto sul cn il valore - Dim uiLicence As UInteger = IntegerToUnsigned(value) - Me.F_RW_DWord(W, MemType.D, 7222, uiLicence) - End Set - End Property - - Public Overrides Property LicenzaScaduta() As Boolean - Get - Dim bLicenzaScaduta As Boolean - 'leggo dal cn il valore - Me.F_RW_Boolean(R, MemType.D, 7217, 5, bLicenzaScaduta) - Return bLicenzaScaduta - End Get - Set(ByVal value As Boolean) - 'setto sul cn il valore - Me.F_RW_Boolean(W, MemType.D, 7217, 5, value) - End Set - End Property - - Public Sub New(ByRef connectionType As ConnectionType, Optional ByRef szIp As String = "192.168.1.1", - Optional ByRef nPortIp As Integer = 8193, Optional ByRef CncScreenHssb As ConnectionType = FANUC.ConnectionType.Ethernet) - MyBase.New() - _Type = NcType.FANUC - - Try - focas = New Focas1 - Catch ex As Exception - MsgBox(ex.Message) - End Try - - _connectionType = connectionType - _szIp = szIp - _nPortIp = nPortIp - _CncScreen_connectionType = CncScreenHssb - - 'Inizializzo le variabili - Me._Descrizione = "NC FANUC" & vbNewLine - Select Case _connectionType - Case FANUC.ConnectionType.Ethernet - Me._Descrizione = Me._Descrizione & "Connection type: Ethernet" & vbNewLine & - "Ip address: " & _szIp & vbNewLine & - "Port: " & _nPortIp - Case FANUC.ConnectionType.Hssb - Me._Descrizione = Me._Descrizione & "Connection type: HSSB" & vbNewLine & - "Hssb node: " & Hssb_node.ToString - Case Else - Me._Descrizione = Me._Descrizione & "Connection type: " & _connectionType.ToString & " !!!" - End Select - - Select Case _CncScreen_connectionType - Case FANUC.ConnectionType.Ethernet - Me.CncScreen_ProcessName = "CNCScrnE" - Case FANUC.ConnectionType.Hssb - Me.CncScreen_ProcessName = "CNCScrn" - End Select - - End Sub - - Public Overrides Sub Connect(Optional ByRef szStatus As String = "") - Dim i As Integer - Dim nReturn As Integer - - Select Case _connectionType - Case ConnectionType.Ethernet - szStatus = "TRY cnc_allclibhndl3 Connect CNC.FANUC Ip=" & _szIp & " Port=" & _nPortIp - nReturn = Focas1.cnc_allclibhndl3(_szIp, _nPortIp, 5, nLibHandle(1)) - If F_CheckRetError_Cnc(nReturn, "cnc_allclibhndl3 Connect CNC.FANUC") Then - szStatus = "ERR cnc_allclibhndl3 Connect CNC.FANUC Return=" & nReturn - Focas1.cnc_freelibhndl(nLibHandle(1)) - _bConnected = False - Throw New NcException("ERR cnc_allclibhndl3 Connect CNC.FANUC") - Exit Sub - Else - 'leggo la serie del cnc - szStatus = "TRY F_GetCncSeries Connect CNC.FANUC" - F_GetCncSeries() - 'leggo il numero di processi e setto il primo - szStatus = "TRY cnc_getpath Connect CNC.FANUC" - nReturn = Focas1.cnc_getpath(nLibHandle(1), _nPathActive, _nMaxPath) - If F_CheckRetError_Cnc(nReturn, "cnc_getpath Connect CNC.FANUC") Then - szStatus = "ERR cnc_getpath Connect CNC.FANUC Return=" & nReturn - Focas1.cnc_freelibhndl(nLibHandle(1)) - _bConnected = False - Throw New NcException("ERR cnc_getpath Connect CNC.FANUC") - Exit Sub - Else - If _nMaxPath > 1 Then - _bMultiProcess = True - nReturn = Focas1.cnc_setpath(nLibHandle(1), 1) - If F_CheckRetError_Cnc(nReturn, "cnc_setpath Connect CNC.FANUC") Then - szStatus = "ERR cnc_setpath Connect CNC.FANUC Return=" & nReturn - Focas1.cnc_freelibhndl(nLibHandle(1)) - _bConnected = False - Throw New NcException("ERR cnc_setpath Connect CNC.FANUC") - Exit Sub - Else - ReDim Preserve nLibHandle(_nMaxPath) - For i = 2 To _nMaxPath - szStatus = "TRY cnc_allclibhndl3 Connect CNC.FANUC to Path " & i & " Ip=" & _szIp & " Port=" & _nPortIp - nReturn = Focas1.cnc_allclibhndl3(_szIp, _nPortIp, 5, nLibHandle(i)) - If F_CheckRetError_Cnc(nReturn, "cnc_allclibhndl3 Connect CNC.FANUC to Path " & i) Then - szStatus = "ERR cnc_allclibhndl3 Connect CNC.FANUC to Path " & i & " Return=" & nReturn - Focas1.cnc_freelibhndl(nLibHandle(i)) - _bConnected = False - Throw New NcException("ERR cnc_allclibhndl3 Connect CNC.FANUC to Path " & i) - Exit Sub - Else - nReturn = Focas1.cnc_setpath(nLibHandle(i), i) - If F_CheckRetError_Cnc(nReturn, "cnc_setpath Connect CNC.FANUCto Path " & i) Then - szStatus = "ERR cnc_setpath Connect CNC.FANUC to Path " & i & " Return=" & nReturn - Focas1.cnc_freelibhndl(nLibHandle(i)) - _bConnected = False - Throw New NcException("ERR cnc_setpath Connect CNC.FANUC to Path " & i) - Exit Sub - Else - _bConnected = True - End If - End If - Next i - End If - - Else - _bConnected = True - End If - End If - - End If - - Case ConnectionType.Hssb - Hssb_node = HSSB_DEFAULT_NODE - - szStatus = "TRY cnc_allclibhndl2 Connect CNC.FANUC" - nReturn = Focas1.cnc_allclibhndl2(Hssb_node, nLibHandle(1)) - If F_CheckRetError_Cnc(nReturn, "cnc_allclibhndl2 Connect CNC.FANUC") Then - szStatus = "ERR cnc_allclibhndl2 Connect CNC.FANUC Return=" & nReturn - Focas1.cnc_freelibhndl(nLibHandle(1)) - _bConnected = False - Throw New NcException("ERR cnc_allclibhndl2 Connect CNC.FANUC") - Exit Sub - Else - _bConnected = True - End If - End Select - - End Sub - - Public Overrides Sub Disconnect(Optional ByRef szStatus As String = "") - Dim i As Integer - Dim nReturn As Integer - - For i = 1 To UBound(nLibHandle) - nReturn = Focas1.cnc_freelibhndl(nLibHandle(i)) - If nReturn <> Focas1.EW_OK Then - _bConnected = False '? - Else - _bConnected = False - End If - Next i - End Sub - - ''' - ''' Get class series of CNC: 16 or 30 - ''' - ''' Series - ''' After, use Is16Series and Is30Series for discriminate - Public Function F_GetCncSeries() As Integer - Dim nReturn As Integer - Dim nOdb As Focas1.ODBSYS - Dim nSeries As Integer - - nOdb = New Focas1.ODBSYS - nReturn = Focas1.cnc_sysinfo(nLibHandle(1), nOdb) - If F_CheckRetError_Cnc(nReturn, "cnc_sysinfo F_GetCncSeries CNC.FANUC") Then - Throw New NcException("ERR cnc_sysinfo F_GetCncSeries CNC.FANUC") - Else - nSeries = Val(nOdb.cnc_type) - If nSeries >= 30 Then - _Is16Series = False - _Is30Series = True - Else - _Is16Series = True - _Is30Series = False - End If - End If - - Return nSeries - End Function - - ''' - ''' Legge le memorie di configurazione dal cn - ''' - Public Overrides Sub GetStaticData() - Dim usValue As UShort - Dim uiValue As UInteger - Dim cVal As Byte - - If Not bStaticDataReaded Then - - Try - 'Matricola - F_RW_Word(R, MemType.D, 4018, usValue) - Me._Matricola = usValue - 'Teste - F_RW_Word(R, MemType.D, 4032, usValue) - Me._Teste = usValue - 'Magazzini - F_RW_Word(R, MemType.D, 4036, usValue) - Me._Magazzini = usValue - - 'Manine per Magazzino - ReDim Me._ManineMagazzino(Me._Magazzini - 1) - Select Case Settings.MemoryMapping - Case MemoryMapping.ElsManager - Dim usValueA(8 - 1) As UShort - Dim cValueB(12 - 1) As Byte - F_RW_Word(R, MemType.D, 4038, usValueA) - F_RW_Byte(R, MemType.D, 6780, cValueB) - For i = 0 To Me._Magazzini - 1 - If i < 8 Then - _ManineMagazzino(i) = CInt(usValueA(i)) - Else - _ManineMagazzino(i) = CInt(cValueB(i)) - End If - Next - Case MemoryMapping.ToolManager, - MemoryMapping.ToolTable, - MemoryMapping.Default - Dim cValue(20 - 1) As Byte - F_RW_Byte(False, MemType.D, 3040, cValue) - For i = 0 To Me._Magazzini - 1 - Me._ManineMagazzino(i) = CInt(cValue(i)) - Next - End Select - - 'Magazzini Con Attrezzaggio Automatico (maschera) - F_RW_DWord(R, MemType.D, 8819, uiValue) - Me._MagazziniConAttrezzaggioAutomatico = UnsignedToInteger(uiValue) - - 'MaxUtensili - Dim odbtlinf As Focas1.ODBTLINF = New Focas1.ODBTLINF - 'Reads the memory type of tool offset, and the available number of it. - Focas1.cnc_rdtofsinfo(nLibHandle(1), odbtlinf) - If F_CheckRetError_Cnc(Focas1.cnc_rdtofsinfo(nLibHandle(1), odbtlinf), "cnc_rdtofsinfo GetStaticData CNC.FANUC") Then - Throw New NcException("ERR cnc_rdtofsinfo GetStaticData CNC.FANUC") - End If - - Me._MaxUtensiliGestibili = odbtlinf.use_no - Me._MaxIdUtensile = odbtlinf.use_no - - 'ZoomSpeed - Select Case Settings.MemoryMapping - Case MemoryMapping.ElsManager - F_RW_Byte(R, MemType.D, 6792, cVal) - Case MemoryMapping.ToolManager, - MemoryMapping.ToolTable, - MemoryMapping.Default - F_RW_Byte(R, MemType.D, 3330, cVal) - End Select - If cVal > 0 And cVal <= 100 Then - Me._ZoomSpeed = cVal - Else - Me._ZoomSpeed = 1 - End If - - bStaticDataReaded = True - - Catch ex As NcException - Me.CncException(ex.Message) - End Try - - End If - End Sub - - ''' - ''' Legge il numero del processo attivo - ''' - ''' Processo attivo - Public Function GetActivePath() As Integer - Dim bValue As Boolean - Dim nPathIdx As Integer - - nPathIdx = 1 - - F_RW_Boolean(R, MemType.G, 63, 0, bValue) - If bValue Then nPathIdx = nPathIdx + 1 - - F_RW_Boolean(R, MemType.G, 62, 7, bValue) - If bValue Then nPathIdx = nPathIdx + 2 - - F_RW_Boolean(R, MemType.G, 408, 1, bValue) - If bValue Then nPathIdx = nPathIdx + 4 - - F_RW_Boolean(R, MemType.G, 408, 2, bValue) - If bValue Then nPathIdx = nPathIdx + 8 - - Return nPathIdx - - ''leggo il numero del processo attivo - 'Dim nReturn, nPathActive, nMaxPath As Integer - 'nReturn = Focas1.cnc_getpath(FANUC_ref.nLibHandle(1), nPathActive, nMaxPath) - 'If nPathActive < 1 Or nPathActive > nMaxPath Then nPathActive = 1 - - '21/07/2015 Il codice sopra è ereditato da OpPaneled è funzionante - ' verificare se questo sopra commentato possa sostituirlo ed è più efficiente - End Function - - ''' - ''' Legge o scrive Boolean da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo di memoria Fanuc - ''' Indice di memoria - ''' Bit della memoria - ''' Valore da scrivere su scrittura e letto su lettura - ''' True se andata a buon fine - Public Function F_RW_Boolean(ByVal bWrite As Boolean, ByVal MemType As MemType, ByVal MemIndex As Integer, ByVal MemBit As Integer, ByRef Value As Boolean) As Boolean - Dim iodb0 As Focas1.IODBPMC0 - Dim nlength As Integer - Dim nReturn As Integer - Dim nValue As Short - - iodb0 = New Focas1.IODBPMC0 - iodb0.type_a = MemType - iodb0.type_d = N_BYTE_TYPE - iodb0.datano_s = MemIndex - iodb0.datano_e = MemIndex - nlength = 8 + 1 - - 'leggo la memoria - nReturn = Focas1.pmc_rdpmcrng(nLibHandle(1), iodb0.type_a, iodb0.type_d, iodb0.datano_s, iodb0.datano_e, nlength, iodb0) - If F_CheckRetError_Pmc(nReturn, "pmc_rdpmcrng F_RW_Boolean CNC.FANUC") Then - Throw New NcException("ERR pmc_rdpmcrng F_RW_Boolean CNC.FANUC") - Return False - Else - nValue = iodb0.cdata(0) - - If bWrite Then ' *** Write - If Value Then 'True - nValue = nValue Or (2 ^ MemBit) - Else 'False - nValue = nValue And Not (2 ^ MemBit) - End If - iodb0.cdata(0) = nValue - nReturn = Focas1.pmc_wrpmcrng(nLibHandle(1), nlength, iodb0) - If nReturn = Focas1.EW_SOCKET Then - Throw New NcException("ERR pmc_wrpmcrng CNC.FANUC") - Return False - ElseIf nReturn <> Focas1.EW_OK Then - 'CncLib.App.Runtime.Log.WW("ERR pmc_wrpmcrng on F_RW_Boolean CNC.FANUC", "Return=" & nReturn, True) - Return False - End If - - Else ' ************* Read - If (nValue And (2 ^ MemBit)) = (2 ^ MemBit) Then 'True - Value = True - Else 'False - Value = False - End If - End If - End If - - Return True - End Function - - ''' - ''' Legge o scrive Byte da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo di memoria Fanuc - ''' Indice di memoria - ''' Matrice di valori da scrivere su scrittura o letti su lettura - ''' True se andata a buon fine - Public Overloads Function F_RW_Byte(ByVal bWrite As Boolean, ByVal MemType As MemType, ByVal MemIndex As Integer, ByRef Value() As Byte) As Boolean - Dim iodb0 As Focas1.IODBPMC0 - Dim nlength As Integer - Dim nReturn As Integer - Dim nQta As Integer - Dim nBlock As Integer - Dim nMod As Integer - - If Value Is Nothing Then Throw New InvalidOperationException - - 'Calcolo la dimesione dell'array - nBlock = Value.Length \ F_MAX_ITEM - nMod = Value.Length Mod F_MAX_ITEM - If nMod > 0 Then nBlock += 1 - - For b = 0 To nBlock - 1 - If b < nBlock - 1 Then - nQta = F_MAX_ITEM - Else - nQta = IIf(nMod > 0, nMod, F_MAX_ITEM) - End If - - 'Setto il tipo di memoria - iodb0 = New Focas1.IODBPMC0 - iodb0.type_a = MemType - iodb0.type_d = N_BYTE_TYPE - iodb0.datano_s = MemIndex + b * F_MAX_ITEM - iodb0.datano_e = MemIndex + b * F_MAX_ITEM + nQta - 1 - nlength = 8 + nQta - - If bWrite Then ' *** Write - ReDim iodb0.cdata(8 - 1) - For i = 0 To nQta - 1 - iodb0.cdata(i) = Value(i + b * F_MAX_ITEM) - Next - nReturn = Focas1.pmc_wrpmcrng(nLibHandle(1), nlength, iodb0) - If F_CheckRetError_Pmc(nReturn, "pmc_wrpmcrng F_RW_Byte CNC.FANUC") Then - Throw New NcException("ERR pmc_wrpmcrng F_RW_Byte CNC.FANUC") - Return False - End If - - Else ' ************* Read - nReturn = Focas1.pmc_rdpmcrng(nLibHandle(1), iodb0.type_a, iodb0.type_d, iodb0.datano_s, iodb0.datano_e, nlength, iodb0) - If F_CheckRetError_Pmc(nReturn, "pmc_rdpmcrng F_RW_Byte CNC.FANUC") Then - Throw New NcException("ERR pmc_rdpmcrng F_RW_Byte CNC.FANUC") - Return False - Else - For i = 0 To nQta - 1 - Value(i + b * F_MAX_ITEM) = iodb0.cdata(i) - Next - End If - End If - Next - - Return True - End Function - - ''' - ''' Legge o scrive Byte da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo di memoria Fanuc - ''' Indice di memoria - ''' Valore da scrivere su scrittura o letto su lettura - ''' True se andata a buon fine - Public Overloads Function F_RW_Byte(ByVal bWrite As Boolean, ByVal MemType As MemType, ByVal MemIndex As Integer, ByRef Value As Byte) As Boolean - Dim bRet As Boolean - Dim cValue(0) As Byte - If bWrite Then cValue(0) = Value - bRet = F_RW_Byte(bWrite, MemType, MemIndex, cValue) - If Not bWrite Then Value = cValue(0) - Return bRet - End Function - - ''' - ''' Legge o scrive Word da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo di memoria Fanuc - ''' Indice di memoria - ''' Matrice di valori da scrivere su scrittura o letti su lettura - ''' True se andata a buon fine - Public Overloads Function F_RW_Word(ByVal bWrite As Boolean, ByVal MemType As MemType, ByVal MemIndex As Integer, ByRef Value() As UShort) As Boolean - Dim iodb1 As Focas1.IODBPMC1 - Dim nlength As Integer - Dim nReturn As Integer - Dim nQta As Integer - Dim nBlock As Integer - Dim nMod As Integer - - If Value Is Nothing Then Throw New InvalidOperationException - - 'Calcolo la dimesione dell'array - nBlock = Value.Length \ F_MAX_ITEM - nMod = Value.Length Mod F_MAX_ITEM - If nMod > 0 Then nBlock += 1 - - For b = 0 To nBlock - 1 - If b < nBlock - 1 Then - nQta = F_MAX_ITEM - Else - nQta = IIf(nMod > 0, nMod, F_MAX_ITEM) - End If - - 'Setto il tipo di memoria - iodb1 = New Focas1.IODBPMC1 - iodb1.type_a = MemType - iodb1.type_d = N_WORD_TYPE - iodb1.datano_s = MemIndex + (b * F_MAX_ITEM * 2) - iodb1.datano_e = MemIndex + (b * F_MAX_ITEM * 2) + (nQta * 2) - 1 - nlength = 8 + (nQta * 2) - - If bWrite Then ' *** Write - ReDim iodb1.idata(8 - 1) - For i = 0 To nQta - 1 - iodb1.idata(i) = Value(i + b * F_MAX_ITEM) - Next - nReturn = Focas1.pmc_wrpmcrng(nLibHandle(1), nlength, iodb1) - If F_CheckRetError_Pmc(nReturn, "pmc_wrpmcrng F_RW_Word CNC.FANUC") Then - Throw New NcException("ERR pmc_wrpmcrng F_RW_Word CNC.FANUC") - Return False - End If - - Else ' ************* Read - nReturn = Focas1.pmc_rdpmcrng(nLibHandle(1), iodb1.type_a, iodb1.type_d, iodb1.datano_s, iodb1.datano_e, nlength, iodb1) - If F_CheckRetError_Pmc(nReturn, "pmc_rdpmcrng F_RW_Word CNC.FANUC") Then - Throw New NcException("ERR pmc_rdpmcrng F_RW_Word CNC.FANUC") - Return False - Else - For i = 0 To nQta - 1 - Value(i + b * F_MAX_ITEM) = iodb1.idata(i) - Next - End If - End If - Next - - Return True - End Function - - ''' - ''' Legge o scrive Short da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo di memoria Fanuc - ''' Indice di memoria - ''' Matrice di valori da scrivere su scrittura o letti su lettura - ''' True se andata a buon fine - Public Overloads Function F_RW_Short(ByVal bWrite As Boolean, ByVal MemType As MemType, ByVal MemIndex As Integer, ByRef Value() As Short) As Boolean - Dim bReturn As Boolean - Dim usValue(Value.Length - 1) As UShort - - If bWrite Then ' *** Write - For i = 0 To Value.Length - 1 - usValue(i) = ShortToUnsigned(Value(i)) - Next - bReturn = F_RW_Word(bWrite, MemType, MemIndex, usValue) - - Else ' ************* Read - bReturn = F_RW_Word(bWrite, MemType, MemIndex, usValue) - For i = 0 To Value.Length - 1 - Value(i) = UnsignedToShort(usValue(i)) - Next - End If - - Return bReturn - End Function - - ''' - ''' Legge o scrive Word da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo di memoria Fanuc - ''' Indice di memoria - ''' Valore da scrivere su scrittura o letto su lettura - ''' True se andata a buon fine - Public Overloads Function F_RW_Word(ByVal bWrite As Boolean, ByVal MemType As MemType, ByVal MemIndex As Integer, ByRef Value As UShort) As Boolean - Dim bRet As Boolean - Dim usValue(0) As UShort - If bWrite Then usValue(0) = Value - bRet = F_RW_Word(bWrite, MemType, MemIndex, usValue) - If Not bWrite Then Value = usValue(0) - Return bRet - End Function - - ''' - ''' Legge o scrive Short da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo di memoria Fanuc - ''' Indice di memoria - ''' Valore da scrivere su scrittura o letto su lettura - ''' True se andata a buon fine - Public Overloads Function F_RW_Short(ByVal bWrite As Boolean, ByVal MemType As MemType, ByVal MemIndex As Integer, ByRef Value As Short) As Boolean - Dim bRet As Boolean - Dim sValue(0) As Short - If bWrite Then sValue(0) = Value - bRet = F_RW_Short(bWrite, MemType, MemIndex, sValue) - If Not bWrite Then Value = sValue(0) - Return bRet - End Function - - ''' - ''' Legge DWord da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo di memoria Fanuc - ''' Indice di memoria - ''' Matrice di valori da scrivere su scrittura o letti su lettura - ''' True se andata a buon fine - Public Overloads Function F_RW_DWord(ByVal bWrite As Boolean, ByVal MemType As MemType, ByVal MemIndex As Integer, ByRef Value() As UInteger) As Boolean - Dim iodb2 As Focas1.IODBPMC2 - Dim nlength As Integer - Dim nReturn As Integer - Dim nQta As Integer - Dim nBlock As Integer - Dim nMod As Integer - - If Value Is Nothing Then Throw New InvalidOperationException - - 'Calcolo la dimesione dell'array - nBlock = Value.Length \ F_MAX_ITEM - nMod = Value.Length Mod F_MAX_ITEM - If nMod > 0 Then nBlock += 1 - - For b = 0 To nBlock - 1 - If b < nBlock - 1 Then - nQta = F_MAX_ITEM - Else - nQta = IIf(nMod > 0, nMod, F_MAX_ITEM) - End If - - 'Setto il tipo di memoria - iodb2 = New Focas1.IODBPMC2 - iodb2.type_a = MemType - iodb2.type_d = N_DWORD_TYPE - iodb2.datano_s = MemIndex + (b * F_MAX_ITEM * 4) - iodb2.datano_e = MemIndex + (b * F_MAX_ITEM * 4) + (nQta * 4) - 1 - nlength = 8 + (nQta * 4) - - If bWrite Then ' *** Write - ReDim iodb2.ldata(8 - 1) - For i = 0 To nQta - 1 - iodb2.ldata(i) = Value(i + b * F_MAX_ITEM) - Next - nReturn = Focas1.pmc_wrpmcrng(nLibHandle(1), nlength, iodb2) - If F_CheckRetError_Pmc(nReturn, "pmc_wrpmcrng F_RW_DWord CNC.FANUC") Then - Throw New NcException("ERR pmc_wrpmcrng F_RW_DWord CNC.FANUC") - Return False - End If - - Else ' ************* Read - nReturn = Focas1.pmc_rdpmcrng(nLibHandle(1), iodb2.type_a, iodb2.type_d, iodb2.datano_s, iodb2.datano_e, nlength, iodb2) - If F_CheckRetError_Pmc(nReturn, "pmc_rdpmcrng F_RW_DWord CNC.FANUC") Then - Throw New NcException("ERR pmc_rdpmcrng F_RW_DWord CNC.FANUC") - Return False - Else - For i = 0 To nQta - 1 - Value(i + b * F_MAX_ITEM) = iodb2.ldata(i) - Next - End If - End If - Next - - Return True - End Function - - ''' - ''' Legge DWord da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo di memoria Fanuc - ''' Indice di memoria - ''' Valore da scrivere su scrittura o letto su lettura - ''' True se andata a buon fine - Public Overloads Function F_RW_DWord(ByVal bWrite As Boolean, ByVal MemType As MemType, ByVal MemIndex As Integer, ByRef Value As UInteger) As Boolean - Dim bRet As Boolean - Dim uiValue(0) As UInteger - If bWrite Then uiValue(0) = Value - bRet = F_RW_DWord(bWrite, MemType, MemIndex, uiValue) - If Not bWrite Then Value = uiValue(0) - Return bRet - End Function - - ''' - ''' Legge Integer da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo di memoria Fanuc - ''' Indice di memoria - ''' Matrice di valori da scrivere su scrittura o letti su lettura - ''' True se andata a buon fine - Public Overloads Function F_RW_Integer(ByVal bWrite As Boolean, ByVal MemType As MemType, ByVal MemIndex As Integer, ByRef Value() As Integer) As Boolean - Dim iodb2 As Focas1.IODBPMC2 - Dim nlength As Integer - Dim nReturn As Integer - Dim nQta As Integer - Dim nBlock As Integer - Dim nMod As Integer - - If Value Is Nothing Then Throw New InvalidOperationException - - 'Calcolo la dimesione dell'array - nBlock = Value.Length \ F_MAX_ITEM - nMod = Value.Length Mod F_MAX_ITEM - If nMod > 0 Then nBlock += 1 - - For b = 0 To nBlock - 1 - If b < nBlock - 1 Then - nQta = F_MAX_ITEM - Else - nQta = IIf(nMod > 0, nMod, F_MAX_ITEM) - End If - - 'Setto il tipo di memoria - iodb2 = New Focas1.IODBPMC2 - iodb2.type_a = MemType - iodb2.type_d = N_DWORD_TYPE - iodb2.datano_s = MemIndex + (b * F_MAX_ITEM * 4) - iodb2.datano_e = MemIndex + (b * F_MAX_ITEM * 4) + (nQta * 4) - 1 - nlength = 8 + (nQta * 4) - - If bWrite Then ' *** Write - ReDim iodb2.ldata(8 - 1) - For i = 0 To nQta - 1 - iodb2.ldata(i) = Value(i + b * F_MAX_ITEM) - Next - nReturn = Focas1.pmc_wrpmcrng(nLibHandle(1), nlength, iodb2) - If F_CheckRetError_Pmc(nReturn, "pmc_wrpmcrng F_RW_Integer CNC.FANUC") Then - Throw New NcException("ERR pmc_wrpmcrng F_RW_Integer CNC.FANUC") - Return False - End If - - Else ' ************* Read - nReturn = Focas1.pmc_rdpmcrng(nLibHandle(1), iodb2.type_a, iodb2.type_d, iodb2.datano_s, iodb2.datano_e, nlength, iodb2) - If F_CheckRetError_Pmc(nReturn, "pmc_rdpmcrng F_RW_Integer CNC.FANUC") Then - Throw New NcException("ERR pmc_rdpmcrng F_RW_Integer CNC.FANUC") - Return False - Else - For i = 0 To nQta - 1 - Value(i + b * F_MAX_ITEM) = WordsToInteger(iodb2.ldata(i) And &HFFFF, (iodb2.ldata(i) And &HFFFF0000) >> 16) - Next - End If - End If - Next - - Return True - End Function - - ''' - ''' Legge Integer da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo di memoria Fanuc - ''' Indice di memoria - ''' Valore da scrivere su scrittura o letto su lettura - ''' True se andata a buon fine - Public Overloads Function F_RW_Integer(ByVal bWrite As Boolean, ByVal MemType As MemType, ByVal MemIndex As Integer, ByRef Value As Integer) As Boolean - Dim bRet As Boolean - Dim iValue(0) As Integer - If bWrite Then iValue(0) = Value - bRet = F_RW_Integer(bWrite, MemType, MemIndex, iValue) - If Not bWrite Then Value = iValue(0) - Return bRet - End Function - - ''' - ''' Legge o scrive Length and Radius Offset da tabella Utensili CN - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Numero dell'offset utensile - Public Overloads Sub F_RW_ToolOffset(ByVal bWrite As Boolean, ByVal ToolOffsetNumber As Integer, ByRef CutterRadius_Wear As Double, ByRef CutterRadius_Geometry As Double, ByRef ToolLenght_Wear As Double, ByRef ToolLenght_Geometry As Double) - Dim iodbpsd_1 As Focas1.IODBPSD_1 - Dim odbtofs As Focas1.ODBTOFS - Dim nReturn As Integer - Dim bNcInInch As Boolean - Dim bTtInInch As Boolean - Dim valid_fig As Short - Dim dec_fig_in(31) As Short - Dim dec_fig_out(31) As Short - - iodbpsd_1 = New Focas1.IODBPSD_1 - odbtofs = New Focas1.ODBTOFS - - 'Leggo se il CN è impostato in Inch (parametro 0.2) - nReturn = Focas1.cnc_rdparam(nLibHandle(1), 0, 0, 4 + 1, iodbpsd_1) - If F_CheckRetError_Cnc(nReturn, "cnc_rdparam F_RW_LengthOffset CNC.FANUC") Then - Throw New NcException("ERR cnc_rdparam F_RW_LengthOffset CNC.FANUC") - End If - bNcInInch = (iodbpsd_1.cdata And MASK_BIT2) = MASK_BIT2 - - 'Leggo se ToolTable è impostato in Inch - bTtInInch = Config.Options.CurrentOptions.ToolTable_Inch - - 'leggo le cifre decimali - nReturn = Focas1.cnc_getfigure(nLibHandle(1), 1, valid_fig, dec_fig_in, dec_fig_out) - If F_CheckRetError_Cnc(nReturn, "cnc_getfigure F_RW_LengthOffset CNC.FANUC") Then - Throw New NcException("ERR cnc_getfigure F_RW_LengthOffset CNC.FANUC") - End If - - If bWrite Then ' *** Write - For i = 0 To 3 - Dim dblTmp As Double - Dim nTmp As Integer - Select Case i - Case 0 : dblTmp = CutterRadius_Wear - Case 1 : dblTmp = CutterRadius_Geometry - Case 2 : dblTmp = ToolLenght_Wear - Case 3 : dblTmp = ToolLenght_Geometry - End Select - 'moltiplico per le cifre decimali - dblTmp *= 10 ^ dec_fig_in(0) - 'riporto all'unità di misura di Nc - If bNcInInch And Not bTtInInch Then - nTmp = dblTmp / 25.4 - ElseIf Not bNcInInch And bTtInInch Then - nTmp = dblTmp * 25.4 - Else - nTmp = dblTmp - End If - nReturn = Focas1.cnc_wrtofs(nLibHandle(1), ToolOffsetNumber, i, 8, nTmp) - If F_CheckRetError_Pmc(nReturn, "cnc_wrtofs F_RW_ToolOffset CNC.FANUC") Then - Throw New NcException("ERR cnc_wrtofs F_RW_ToolOffset CNC.FANUC") - End If - Next - - Else ' ************* Read - For i = 0 To 3 - nReturn = Focas1.cnc_rdtofs(nLibHandle(1), ToolOffsetNumber, i, 8, odbtofs) - If F_CheckRetError_Pmc(nReturn, "cnc_rdtofs F_RW_ToolOffset CNC.FANUC") OrElse (odbtofs.datano <> ToolOffsetNumber Or odbtofs.type <> i) Then - Throw New NcException("ERR cnc_rdtofs F_RW_ToolOffset CNC.FANUC") - Else - Dim dblTmp As Double - 'riporto all'unità di misura di ToolTable - If bNcInInch And Not bTtInInch Then - dblTmp = odbtofs.data * 25.4 - ElseIf Not bNcInInch And bTtInInch Then - dblTmp = odbtofs.data / 25.4 - Else - dblTmp = odbtofs.data - End If - 'divido per le cifre decimali - dblTmp /= 10 ^ dec_fig_in(0) - 'memorizzo il dato - Select Case i - Case 0 : CutterRadius_Wear = dblTmp - Case 1 : CutterRadius_Geometry = dblTmp - Case 2 : ToolLenght_Wear = dblTmp - Case 3 : ToolLenght_Geometry = dblTmp - End Select - End If - Next - - End If - - End Sub - - ''' - ''' Cancella la tabella Utensili CN - ''' - Public Sub F_Clear_ToolOffsets() - - 'Memo di tipo C - - Dim nMaxUt As Integer - Dim iodbto_1_3 As Focas1.IODBTO_1_3 - Dim ofs_3 As Focas1.OFS_3 'OFS_3 Modificato per permettere di eleiminare tutti e 100 gli utensili - Dim nReturn As Integer - - iodbto_1_3 = New Focas1.IODBTO_1_3 - ofs_3 = New Focas1.OFS_3 - - nMaxUt = CncLib.CNC.Runtime.NC.MaxIdUtensile - - Dim n As Integer - n = nMaxUt \ 100 - n += IIf(nMaxUt Mod 100, 1, 0) - - - For j = 1 To n - - iodbto_1_3.datano_s = ((j - 1) * 100) + 1 - If nMaxUt < iodbto_1_3.datano_s + 100 Then - iodbto_1_3.datano_e = nMaxUt - Else - iodbto_1_3.datano_e = iodbto_1_3.datano_s + 99 - End If - iodbto_1_3.ofs = ofs_3 - - For i As Integer = 0 To 3 - iodbto_1_3.type = i - nReturn = Focas1.cnc_wrtofsr(nLibHandle(1), 8 + 4 * (iodbto_1_3.datano_e - iodbto_1_3.datano_s + 1), iodbto_1_3) - If F_CheckRetError_Pmc(nReturn, "cnc_wrtofsr F_Clear_ToolOffsets CNC.FANUC") Then - Throw New NcException("ERR cnc_wrtofsr F_Clear_ToolOffsets CNC.FANUC") - End If - Next - Next - - - End Sub - - - ''' - ''' Legge o scrive Parametri Interi - ''' - ''' Se True SCRIVE, se False LEGGE - ''' 0: assigns no axis, -1: assigns all axes - ''' Indice di memoria - ''' 1 byte, 2 word, 3 dword - ''' Matrice di valori da scrivere su scrittura o letti su lettura - ''' True se andata a buon fine - Public Overloads Function F_RW_Param_Integer(ByVal bWrite As Boolean, ByVal Axis As Integer, ByVal ParamIndex As Integer, ByVal Size As Integer, ByRef Value() As Object) As Boolean - Dim iodbpsd1 As Focas1.IODBPSD_1 = Nothing - Dim iodbpsd3 As Focas1.IODBPSD_3 = Nothing - Dim nOdb As Focas1.ODBSYS - Dim nlength As Integer - Dim nQta As Integer - Dim nReturn As Integer - Dim nMemSize As Integer - - If bWrite And Value Is Nothing Then Throw New InvalidOperationException - - 'Seleziono la dimensione della memoria - Select Case Size - Case 1 : nMemSize = 1 - Case 2 : nMemSize = 2 - Case 3 : nMemSize = 4 - Case Else : Throw New InvalidOperationException - End Select - - 'Setto se parametro singolo o su ogni asse - If Axis >= 0 Then - iodbpsd1 = New Focas1.IODBPSD_1 - nQta = 1 - nlength = 4 + (nMemSize * nQta) - Else 'If Axis = -1 Then - iodbpsd3 = New Focas1.IODBPSD_3 - nOdb = New Focas1.ODBSYS - nReturn = Focas1.cnc_sysinfo(nLibHandle(1), nOdb) - nQta = nOdb.axes.Length - nlength = 4 + (nMemSize * nQta) - End If - - If bWrite Then ' *** Write - If nQta = 1 Then - iodbpsd1.datano = ParamIndex - Select Case Size - Case 1 : iodbpsd1.cdata = Value(0) - Case 2 : iodbpsd1.idata = Value(0) - Case 3 : iodbpsd1.ldata = Value(0) - End Select - Else - iodbpsd3.datano = ParamIndex - For i = 0 To nQta - 1 - Select Case Size - Case 1 : iodbpsd3.cdatas(i) = Value(i) - Case 2 : iodbpsd3.idatas(i) = Value(i) - Case 3 : iodbpsd3.ldatas(i) = Value(i) - End Select - Next - End If - - If nQta = 1 Then - nReturn = Focas1.cnc_wrparam(nLibHandle(1), nlength, iodbpsd1) - Else - nReturn = Focas1.cnc_wrparam(nLibHandle(1), nlength, iodbpsd3) - End If - If F_CheckRetError_Cnc(nReturn, "cnc_wrparam F_RW_Param_DWord CNC.FANUC") Then - Throw New NcException("ERR cnc_wrparam F_RW_Param_DWord CNC.FANUC") - Return False - End If - - Else ' ************* Read - If nQta = 1 Then - nReturn = Focas1.cnc_rdparam(nLibHandle(1), ParamIndex, Axis, nlength, iodbpsd1) - Else - nReturn = Focas1.cnc_rdparam(nLibHandle(1), ParamIndex, Axis, nlength, iodbpsd3) - End If - If F_CheckRetError_Pmc(nReturn, "cnc_rdparam F_RW_Param_DWord CNC.FANUC") Then - Throw New NcException("ERR cnc_rdparam F_RW_Param_DWord CNC.FANUC") - Return False - Else - If nQta = 1 Then - Select Case Size - Case 1 : Value(0) = iodbpsd1.cdata - Case 2 : Value(0) = iodbpsd1.idata - Case 3 : Value(0) = iodbpsd1.ldata - End Select - Else - For i = 0 To nQta - 1 - Select Case Size - Case 1 : Value(i) = iodbpsd3.cdatas - Case 2 : Value(i) = iodbpsd3.idatas - Case 3 : Value(i) = iodbpsd3.ldatas - End Select - Next - End If - End If - End If - - Return True - End Function - - ''' - ''' Legge o scrive Parametri Interi - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Indice di memoria - ''' 1 byte, 2 word, 3 dword - ''' Valore da scrivere su scrittura o letto su lettura - ''' True se andata a buon fine - Public Overloads Function F_RW_Param_Integer(ByVal bWrite As Boolean, ByVal MemIndex As Integer, ByVal Size As Integer, ByRef Value As Object) As Boolean - Dim bRet As Boolean - Dim oValue(0) As Object - If bWrite Then oValue(0) = Value - bRet = F_RW_Param_Integer(bWrite, 0, MemIndex, Size, oValue) - If Not bWrite Then Value = oValue(0) - Return bRet - End Function - - - - ''' - ''' Legge o scrive le variabile Custom Macro - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Indice di memoria - ''' Matrice di valori da scrivere su scrittura o letti su lettura - ''' True se andata a buon fine - Public Overloads Function F_RW_Macro_Short(ByVal bWrite As Boolean, ByVal MacroIndex As Integer, ByRef Value() As Short) As Boolean - Dim iodbmr As Focas1.IODBMR - Dim nlength As Integer - Dim nReturn As Integer - Dim nQta As Integer - Dim nBlock As Integer - Dim nMod As Integer - Dim nActivePath As Integer - - If Value Is Nothing Then Throw New InvalidOperationException - - nActivePath = GetActivePath() - - 'Calcolo la dimesione dell'array - nBlock = Value.Length \ F_MAX_MACRO - nMod = Value.Length Mod F_MAX_MACRO - If nMod > 0 Then nBlock += 1 - - For b = 0 To nBlock - 1 - If b < nBlock - 1 Then - nQta = F_MAX_MACRO - Else - nQta = IIf(nMod > 0, nMod, F_MAX_MACRO) - End If - - 'Setto il tipo di memoria - iodbmr = New Focas1.IODBMR - iodbmr.datano_s = MacroIndex + (b * F_MAX_MACRO) - iodbmr.datano_e = MacroIndex + (b * F_MAX_MACRO) + nQta - 1 - nlength = 8 + (nQta * 8) - - If bWrite Then ' *** Write - iodbmr.data = New Focas1.IODBMR1 - iodbmr.data.data1 = New Focas1.IODBMR_data - iodbmr.data.data2 = New Focas1.IODBMR_data - iodbmr.data.data3 = New Focas1.IODBMR_data - iodbmr.data.data4 = New Focas1.IODBMR_data - iodbmr.data.data5 = New Focas1.IODBMR_data - - If nQta >= 1 Then iodbmr.data.data1.mcr_val = Value(0 + b * F_MAX_MACRO) - If nQta >= 2 Then iodbmr.data.data2.mcr_val = Value(1 + b * F_MAX_MACRO) - If nQta >= 3 Then iodbmr.data.data3.mcr_val = Value(2 + b * F_MAX_MACRO) - If nQta >= 4 Then iodbmr.data.data4.mcr_val = Value(3 + b * F_MAX_MACRO) - If nQta >= 5 Then iodbmr.data.data5.mcr_val = Value(4 + b * F_MAX_MACRO) - - nReturn = Focas1.cnc_wrmacror(nLibHandle(nActivePath), MacroIndex, iodbmr) - If F_CheckRetError_Cnc(nReturn, "cnc_wrmacror F_RW_Macro_Short CNC.FANUC") Then - Throw New NcException("ERR cnc_wrmacror F_RW_Macro_Short CNC.FANUC") - Return False - End If - - Else ' ************* Read - nReturn = Focas1.cnc_rdmacror(nLibHandle(nActivePath), iodbmr.datano_s, iodbmr.datano_e, nlength, iodbmr) - - If F_CheckRetError_Cnc(nReturn, "cnc_rdmacror F_RW_Macro_Short CNC.FANUC") Then - Throw New NcException("ERR cnc_rdmacror F_RW_Macro_Short CNC.FANUC") - Return False - Else - If nQta >= 1 Then Value(0 + b * F_MAX_MACRO) = iodbmr.data.data1.mcr_val / (10 ^ iodbmr.data.data1.dec_val) - If nQta >= 2 Then Value(1 + b * F_MAX_MACRO) = iodbmr.data.data2.mcr_val / (10 ^ iodbmr.data.data2.dec_val) - If nQta >= 3 Then Value(2 + b * F_MAX_MACRO) = iodbmr.data.data3.mcr_val / (10 ^ iodbmr.data.data3.dec_val) - If nQta >= 4 Then Value(3 + b * F_MAX_MACRO) = iodbmr.data.data4.mcr_val / (10 ^ iodbmr.data.data4.dec_val) - If nQta >= 5 Then Value(4 + b * F_MAX_MACRO) = iodbmr.data.data5.mcr_val / (10 ^ iodbmr.data.data5.dec_val) - End If - End If - Next - - Return True - End Function - - ''' - ''' Legge o scrive le variabile Custom Macro - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Indice di memoria - ''' Matrice di valori da scrivere su scrittura o letti su lettura - ''' True se andata a buon fine - Public Overloads Function F_RW_Macro_Short(ByVal bWrite As Boolean, ByVal MacroIndex As Integer, ByRef Value As Short) As Boolean - Dim bRet As Boolean - Dim sValue(0) As Short - If bWrite Then sValue(0) = Value - bRet = F_RW_Macro_Short(bWrite, MacroIndex, sValue) - If Not bWrite Then Value = sValue(0) - Return bRet - End Function - - Private Function GetNumDec(ByVal dVal As Double) As Short - ' Determino il numero di decimali più adatto, in base al valore - ' (per evitare l'overflow durante le operazioni di moltiplicazione) - If dVal < -99999999 Or dVal > 99999999 Then - GetNumDec = 0 - ElseIf dVal < -9999999 Or dVal > 9999999 Then - GetNumDec = 1 - ElseIf dVal < -999999 Or dVal > 999999 Then - GetNumDec = 2 - ElseIf dVal < -99999 Or dVal > 99999 Then - GetNumDec = 3 - ElseIf dVal < -9999 Or dVal > 9999 Then - GetNumDec = 4 - ElseIf dVal < -999 Or dVal > 999 Then - GetNumDec = 5 - ElseIf dVal < -99 Or dVal > 99 Then - GetNumDec = 6 - ElseIf dVal < -9 Or dVal > 9 Then - GetNumDec = 7 - Else - GetNumDec = 8 - End If - End Function - - - ''' - ''' Legge o scrive le variabile Custom Macro - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Indice di memoria - ''' Matrice di valori da scrivere su scrittura o letti su lettura - ''' True se andata a buon fine - Public Overloads Function F_RW_Macro_Double(ByVal bWrite As Boolean, ByVal MacroIndex As Integer, ByRef Value() As Double) As Boolean - Dim iodbmr As Focas1.IODBMR - Dim nlength As Integer - Dim nReturn As Integer - Dim nQta As Integer - Dim nBlock As Integer - Dim nMod As Integer - Dim nActivePath As Integer - - If Value Is Nothing Then Throw New InvalidOperationException - - nActivePath = GetActivePath() - - 'Calcolo la dimesione dell'array - nBlock = Value.Length \ F_MAX_MACRO - nMod = Value.Length Mod F_MAX_MACRO - If nMod > 0 Then nBlock += 1 - - For b = 0 To nBlock - 1 - If b < nBlock - 1 Then - nQta = F_MAX_MACRO - Else - nQta = IIf(nMod > 0, nMod, F_MAX_MACRO) - End If - - 'Setto il tipo di memoria - iodbmr = New Focas1.IODBMR - iodbmr.datano_s = MacroIndex + (b * F_MAX_MACRO) - iodbmr.datano_e = MacroIndex + (b * F_MAX_MACRO) + nQta - 1 - nlength = 8 + (nQta * 8) - - If bWrite Then ' *** Write - iodbmr.data = New Focas1.IODBMR1 - iodbmr.data.data1 = New Focas1.IODBMR_data - iodbmr.data.data2 = New Focas1.IODBMR_data - iodbmr.data.data3 = New Focas1.IODBMR_data - iodbmr.data.data4 = New Focas1.IODBMR_data - iodbmr.data.data5 = New Focas1.IODBMR_data - - ' Determino il numero di decimali più adatto, in base al valore - ' (per evitare l'overflow durante le operazioni di moltiplicazione) - If nQta >= 1 Then iodbmr.data.data1.dec_val = GetNumDec(Value(0 + b * F_MAX_MACRO)) - If nQta >= 2 Then iodbmr.data.data2.dec_val = GetNumDec(Value(1 + b * F_MAX_MACRO)) - If nQta >= 3 Then iodbmr.data.data3.dec_val = GetNumDec(Value(2 + b * F_MAX_MACRO)) - If nQta >= 4 Then iodbmr.data.data4.dec_val = GetNumDec(Value(3 + b * F_MAX_MACRO)) - If nQta >= 5 Then iodbmr.data.data5.dec_val = GetNumDec(Value(4 + b * F_MAX_MACRO)) - - If nQta >= 1 Then iodbmr.data.data1.mcr_val = Value(0 + b * F_MAX_MACRO) * (10 ^ iodbmr.data.data1.dec_val) - If nQta >= 2 Then iodbmr.data.data2.mcr_val = Value(1 + b * F_MAX_MACRO) * (10 ^ iodbmr.data.data2.dec_val) - If nQta >= 3 Then iodbmr.data.data3.mcr_val = Value(2 + b * F_MAX_MACRO) * (10 ^ iodbmr.data.data3.dec_val) - If nQta >= 4 Then iodbmr.data.data4.mcr_val = Value(3 + b * F_MAX_MACRO) * (10 ^ iodbmr.data.data4.dec_val) - If nQta >= 5 Then iodbmr.data.data5.mcr_val = Value(4 + b * F_MAX_MACRO) * (10 ^ iodbmr.data.data5.dec_val) - - nReturn = Focas1.cnc_wrmacror(nLibHandle(nActivePath), MacroIndex, iodbmr) - - If F_CheckRetError_Cnc(nReturn, "cnc_wrmacror F_RW_Macro_Double CNC.FANUC") Then - Throw New NcException("ERR cnc_wrmacror F_RW_Macro_Double CNC.FANUC") - Return False - End If - - Else ' ************* Read - nReturn = Focas1.cnc_rdmacror(nLibHandle(nActivePath), iodbmr.datano_s, iodbmr.datano_e, nlength, iodbmr) - - If F_CheckRetError_Cnc(nReturn, "cnc_rdmacror F_RW_Macro_Double CNC.FANUC") Then - Throw New NcException("ERR cnc_rdmacror F_RW_Macro_Double CNC.FANUC") - Return False - Else - If nQta >= 1 Then Value(0 + b * F_MAX_MACRO) = iodbmr.data.data1.mcr_val / (10 ^ iodbmr.data.data1.dec_val) - If nQta >= 2 Then Value(1 + b * F_MAX_MACRO) = iodbmr.data.data2.mcr_val / (10 ^ iodbmr.data.data2.dec_val) - If nQta >= 3 Then Value(2 + b * F_MAX_MACRO) = iodbmr.data.data3.mcr_val / (10 ^ iodbmr.data.data3.dec_val) - If nQta >= 4 Then Value(3 + b * F_MAX_MACRO) = iodbmr.data.data4.mcr_val / (10 ^ iodbmr.data.data4.dec_val) - If nQta >= 5 Then Value(4 + b * F_MAX_MACRO) = iodbmr.data.data5.mcr_val / (10 ^ iodbmr.data.data5.dec_val) - End If - End If - Next - - Return True - End Function - - ''' - ''' Legge o scrive le variabile Custom Macro - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Indice di memoria - ''' Matrice di valori da scrivere su scrittura o letti su lettura - ''' True se andata a buon fine - Public Overloads Function F_RW_Macro_Double(ByVal bWrite As Boolean, ByVal MacroIndex As Integer, ByRef Value As Double) As Boolean - Dim bRet As Boolean - Dim sValue(0) As Double - If bWrite Then sValue(0) = Value - bRet = F_RW_Macro_Double(bWrite, MacroIndex, sValue) - If Not bWrite Then Value = sValue(0) - Return bRet - End Function - - ''' - ''' Legge o scrive le variabile P Code Macro - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Indice di memoria - ''' Matrice di valori da scrivere su scrittura o letti su lettura - ''' True se andata a buon fine - Public Overloads Function F_RW_PCodeMacro_Short(ByVal bWrite As Boolean, ByVal MacroIndex As Integer, ByRef Value() As Short) As Boolean - Dim iodbpr As Focas1.IODBPR - Dim nlength As Integer - Dim nReturn As Integer - Dim nQta As Integer - Dim nBlock As Integer - Dim nMod As Integer - Dim nActivePath As Integer - - If Value Is Nothing Then Throw New InvalidOperationException - - nActivePath = GetActivePath() - - 'Calcolo la dimesione dell'array - nBlock = Value.Length \ F_MAX_MACRO - nMod = Value.Length Mod F_MAX_MACRO - If nMod > 0 Then nBlock += 1 - - For b = 0 To nBlock - 1 - If b < nBlock - 1 Then - nQta = F_MAX_MACRO - Else - nQta = IIf(nMod > 0, nMod, F_MAX_MACRO) - End If - - 'Setto il tipo di memoria - iodbpr = New Focas1.IODBPR - iodbpr.datano_s = MacroIndex + (b * F_MAX_MACRO) - iodbpr.datano_e = MacroIndex + (b * F_MAX_MACRO) + nQta - 1 - nlength = 12 + (nQta * 8) - - If bWrite Then ' *** Write - iodbpr.data = New Focas1.IODBPR1 - iodbpr.data.data1 = New Focas1.IODBPR_data - iodbpr.data.data2 = New Focas1.IODBPR_data - iodbpr.data.data3 = New Focas1.IODBPR_data - iodbpr.data.data4 = New Focas1.IODBPR_data - iodbpr.data.data5 = New Focas1.IODBPR_data - - If nQta >= 1 Then iodbpr.data.data1.mcr_val = Value(0 + b * F_MAX_MACRO) - If nQta >= 2 Then iodbpr.data.data2.mcr_val = Value(1 + b * F_MAX_MACRO) - If nQta >= 3 Then iodbpr.data.data3.mcr_val = Value(2 + b * F_MAX_MACRO) - If nQta >= 4 Then iodbpr.data.data4.mcr_val = Value(3 + b * F_MAX_MACRO) - If nQta >= 5 Then iodbpr.data.data5.mcr_val = Value(4 + b * F_MAX_MACRO) - - nReturn = Focas1.cnc_wrpmacror(nLibHandle(nActivePath), MacroIndex, iodbpr) - If F_CheckRetError_Cnc(nReturn, "cnc_wrpmacror F_RW_PCodeMacro_Short CNC.FANUC") Then - Throw New NcException("ERR cnc_wrpmacror F_RW_PCodeMacro_Short CNC.FANUC") - Return False - End If - - Else ' ************* Read - nReturn = Focas1.cnc_rdpmacror(nLibHandle(nActivePath), iodbpr.datano_s, iodbpr.datano_e, nlength, iodbpr) - - If F_CheckRetError_Cnc(nReturn, "cnc_rdmacror F_RW_Macro_Short CNC.FANUC") Then - Throw New NcException("ERR cnc_rdmacror F_RW_Macro_Short CNC.FANUC") - Return False - Else - If nQta >= 1 Then Value(0 + b * F_MAX_MACRO) = iodbpr.data.data1.mcr_val / (10 ^ iodbpr.data.data1.dec_val) - If nQta >= 2 Then Value(1 + b * F_MAX_MACRO) = iodbpr.data.data2.mcr_val / (10 ^ iodbpr.data.data2.dec_val) - If nQta >= 3 Then Value(2 + b * F_MAX_MACRO) = iodbpr.data.data3.mcr_val / (10 ^ iodbpr.data.data3.dec_val) - If nQta >= 4 Then Value(3 + b * F_MAX_MACRO) = iodbpr.data.data4.mcr_val / (10 ^ iodbpr.data.data4.dec_val) - If nQta >= 5 Then Value(4 + b * F_MAX_MACRO) = iodbpr.data.data5.mcr_val / (10 ^ iodbpr.data.data5.dec_val) - End If - End If - Next - - Return True - End Function - - - ''' - ''' Legge o scrive le variabile P Code Macro - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Indice di memoria - ''' Matrice di valori da scrivere su scrittura o letti su lettura - ''' True se andata a buon fine - Public Overloads Function F_RW_PCodeMacro_Short(ByVal bWrite As Boolean, ByVal MacroIndex As Integer, ByRef Value As Short) As Boolean - Dim bRet As Boolean - Dim sValue(0) As Short - If bWrite Then sValue(0) = Value - bRet = F_RW_PCodeMacro_Short(bWrite, MacroIndex, sValue) - If Not bWrite Then Value = sValue(0) - Return bRet - End Function - - - Public Overloads Function F_CheckRetError_Cnc(ByVal nReturn As Short, ByVal Position As String) As Boolean - Dim szErrorDesc As String - - If nReturn <> Focas1.EW_OK Then - 'Seleziono il messaggio - Select Case nReturn - Case Focas1.EW_PROTOCOL : szErrorDesc = "Protocol error (Ethernet version only)" - Case Focas1.EW_SOCKET : szErrorDesc = "Socket error (Ethernet version only)" - Case Focas1.EW_NODLL : szErrorDesc = "DLL file error" - Case Focas1.EW_BUS : szErrorDesc = "Bus error (HSSB version only)" - Case Focas1.EW_SYSTEM2 : szErrorDesc = "System error (2) (HSSB version only)" - Case Focas1.EW_HSSB : szErrorDesc = "Communication error of HSSB (HSSB version only)" - Case Focas1.EW_HANDLE : szErrorDesc = "Handle number error" - Case Focas1.EW_VERSION : szErrorDesc = "Version mismatch between the CNC/PMC and library" - Case Focas1.EW_UNEXP : szErrorDesc = "Abnormal library state" - Case Focas1.EW_SYSTEM : szErrorDesc = "System error (HSSB version only)" - Case Focas1.EW_PARITY : szErrorDesc = "Shared RAM parity error (HSSB version only)" - Case Focas1.EW_MMCSYS : szErrorDesc = "FANUC drivers installation error (HSSB version only)" - Case Focas1.EW_RESET : szErrorDesc = "Reset or stop request" - Case Focas1.EW_BUSY : szErrorDesc = "Busy" - Case Focas1.EW_OK : szErrorDesc = "Normal termination" - Case Focas1.EW_FUNC : szErrorDesc = "Error(function is not executed, or not available)" - Case Focas1.EW_LENGTH : szErrorDesc = "Error(data block length error, error of number of data)" - Case Focas1.EW_NUMBER : szErrorDesc = "Error(data number error)" - Case Focas1.EW_ATTRIB : szErrorDesc = "Error(data attribute error)" - Case Focas1.EW_DATA : szErrorDesc = "Error(data error)" - Case Focas1.EW_NOOPT : szErrorDesc = "Error(no option)" - Case Focas1.EW_PROT : szErrorDesc = "Error(write protection)" - Case Focas1.EW_OVRFLOW : szErrorDesc = "Error(memory overflow)" - Case Focas1.EW_PARAM : szErrorDesc = "Error(CNC parameter error)" - Case Focas1.EW_BUFFER : szErrorDesc = "Error(buffer empty/full)" - Case Focas1.EW_PATH : szErrorDesc = "Error(path number error)" - Case Focas1.EW_MODE : szErrorDesc = "Error(CNC mode error)" - Case Focas1.EW_REJECT : szErrorDesc = "Error(CNC execution rejection)" - Case Focas1.EW_DTSRVR : szErrorDesc = "Error(Data server error)" - Case Focas1.EW_ALARM : szErrorDesc = "Error(alarm)" - Case Focas1.EW_STOP : szErrorDesc = "Error(stop)" - Case Focas1.EW_PASSWD : szErrorDesc = "Error(State of data protection)" - Case Else : szErrorDesc = "- ERRORE CNC INESISTENTE -" - End Select - - 'Stampo il messaggio - 'If Config.Settings.Settings.Debug > 0 Then - ' impostato a true x mostrare errore - If False Then - 'If nReturn <> Focas1.EW_SOCKET Then 'tranne su errore di connessione - 'CncLib.App.Runtime..Log.WW("ERR pmc_wrpmcrng on F_RW_DWord CNC.FANUC", "Return=" & nReturn, True) - MsgBox(szErrorDesc & vbLf & "Occurred in: " & Position, MsgBoxStyle.Exclamation + MsgBoxStyle.ApplicationModal, "Error on Fanuc CNC Data Window") - 'End If - End If - - Return True 'presenza errore - End If - - Return False 'assenza errori - End Function - - Public Overloads Function F_CheckRetError_Pmc(ByVal nReturn As Short, ByVal Position As String) As Boolean - Dim szErrorDesc As String - - If nReturn <> Focas1.EW_OK Then - 'Seleziono il messaggio - Select Case nReturn - Case Focas1.EW_PROTOCOL : szErrorDesc = "Protocol error (Ethernet version only)" - Case Focas1.EW_SOCKET : szErrorDesc = "Socket error (Ethernet version only)" - Case Focas1.EW_NODLL : szErrorDesc = "DLL file error" - Case Focas1.EW_BUS : szErrorDesc = "Bus error (HSSB version only)" - Case Focas1.EW_SYSTEM2 : szErrorDesc = "System error (2) (HSSB version only)" - Case Focas1.EW_HSSB : szErrorDesc = "Communication error of HSSB (HSSB version only)" - Case Focas1.EW_HANDLE : szErrorDesc = "Handle number error" - Case Focas1.EW_VERSION : szErrorDesc = "Version mismatch between the CNC/PMC and library" - Case Focas1.EW_UNEXP : szErrorDesc = "Abnormal library state" - Case Focas1.EW_SYSTEM : szErrorDesc = "System error (HSSB version only)" - Case Focas1.EW_PARITY : szErrorDesc = "Shared RAM parity error (HSSB version only)" - Case Focas1.EW_MMCSYS : szErrorDesc = "FANUC drivers installation error (HSSB version only)" - Case Focas1.EW_OK : szErrorDesc = "Normal termination" - Case Focas1.EW_NOPMC : szErrorDesc = "Error(No PMC)" - Case Focas1.EW_LENGTH : szErrorDesc = "Error(data block length error)" - Case Focas1.EW_RANGE : szErrorDesc = "Error(address range error)" - Case Focas1.EW_TYPE : szErrorDesc = "Error(address type/data type error)" - Case Focas1.EW_DATA : szErrorDesc = "Error(data error)" - Case Focas1.EW_NOOPT : szErrorDesc = "Error(no option)" - Case Focas1.EW_BUFFER : szErrorDesc = "Error(buffer empty/full)" - Case Focas1.EW_PASSWD : szErrorDesc = "Error(State of data protection)" - Case Else : szErrorDesc = "- ERRORE PMC INESISTENTE -" - End Select - - ''Stampo il messaggio - 'If (Config.Settings.Settings.Debug > 0) Then - ' 'If nReturn <> Focas1.EW_SOCKET Then 'tranne su errore di connessione - ' 'CncLib.App.Runtime..Log.WW("ERR pmc_wrpmcrng on F_RW_DWord CNC.FANUC", "Return=" & nReturn, True) - ' MsgBox(szErrorDesc & vbLf & "Occurred in: " & Position, MsgBoxStyle.Exclamation + MsgBoxStyle.ApplicationModal, "Error on Fanuc CNC Data Window") - ' 'End If - 'End If - Return True 'presenza errore - End If - - Return False 'assenza errori - End Function - -#Region "Funzioni specifiche IOT" - - - Public Function getPrgName() As Focas1.ODBEXEPRG - ' RIFERIMENTO: - ' C:\Users\samuele\Documents\FOCAS A02B-0207-K737_04.20\Document\SpecE\Position\cnc_rdposition.htm - - Dim nPathIdx As Integer - Dim nReturn As Integer - - Dim prgName As Focas1.ODBEXEPRG - - prgName = New Focas1.ODBEXEPRG - - 'leggo il numero del processo attivo - nPathIdx = GetActivePath() - - If Is30Series Then - - ' leggo tutto!!! - nReturn = Focas1.cnc_exeprgname(nLibHandle(nPathIdx), prgName) - - If F_CheckRetError_Cnc(nReturn, "cnc_exeprgname CNC.FANUC.CncLib") Then - Throw New NcException("ERR cnc_exeprgname CNC.FANUC.CncLib") - End If - End If - - Return prgName - - End Function - - Public Function getAllAxisPos() As Focas1.ODBPOS - ' RIFERIMENTO: - ' C:\Users\samuele\Documents\FOCAS A02B-0207-K737_04.20\Document\SpecE\Position\cnc_rdposition.htm - - Dim nPathIdx As Integer - Dim nNumAxisRead As Integer - Dim nReturn As Integer - - Dim posizAssi As Focas1.ODBPOS - - 'leggo il numero del processo attivo - nPathIdx = GetActivePath() - 'leggo num max assi dal cn - nNumAxisRead = Focas1.MAX_AXIS - - If Is30Series Then - - ' leggo tutto!!! - nReturn = Focas1.cnc_rdposition(nLibHandle(nPathIdx), -1, nNumAxisRead, posizAssi) - - If F_CheckRetError_Cnc(nReturn, "cnc_rdposition RefreshAxisPosition CNC.FANUC.CncLib") Then - Throw New NcException("ERR cnc_rdposition RefreshAxisPosition CNC.FANUC.CncLib") - End If - End If - - Return posizAssi - - End Function - - Public Function getAllAxisLoad() As Focas1.ODBSVLOAD - ' RIFERIMENTO: - ' C:\Users\samuele\Documents\FOCAS A02B-0207-K737_04.20\Document\SpecE\Position\cnc_rdsvmeter.htm - - Dim nPathIdx As Integer - Dim nNumAxisRead As Integer - Dim nReturn As Integer - - Dim caricoAssi As Focas1.ODBSVLOAD - - 'leggo il numero del processo attivo - nPathIdx = GetActivePath() - 'leggo num max assi dal cn - nNumAxisRead = Focas1.MAX_AXIS - - If Is30Series Then - - ' leggo tutto!!! - nReturn = Focas1.cnc_rdsvmeter(nLibHandle(nPathIdx), nNumAxisRead, caricoAssi) - - If F_CheckRetError_Cnc(nReturn, "cnc_rdsvmeter RefreshAxisMeter CNC.FANUC.CncLib") Then - Throw New NcException("ERR cnc_rdsvmeter RefreshAxisMeter CNC.FANUC.CncLib") - End If - End If - - Return caricoAssi - - End Function - - Public Function getGlobalFeedrate() As Focas1.ODBACT - ' RIFERIMENTO: - ' C:\Users\samuele\Documents\FOCAS A02B-0207-K737_04.20\Document\SpecE\Position\cnc_actf.htm - - Dim nPathIdx As Integer - Dim nNumAxisRead As Integer - Dim nReturn As Integer - - Dim feedData As Focas1.ODBACT - ' inizializzo - feedData = New Focas1.ODBACT - - 'leggo il numero del processo attivo - nPathIdx = GetActivePath() - 'leggo num max assi dal cn - nNumAxisRead = Focas1.MAX_AXIS - - If Is30Series Then - - ' leggo feed globale - nReturn = Focas1.cnc_actf(nLibHandle(nPathIdx), feedData) - - If F_CheckRetError_Cnc(nReturn, "cnc_actf RefreshActFeedRate CNC.FANUC.CncLib") Then - Throw New NcException("ERR cnc_actf RefreshActFeedRate CNC.FANUC.CncLib") - End If - End If - - Return feedData - - End Function - - Public Function getSpindleLoad() As Focas1.ODBSPN - ' RIFERIMENTO: - ' C:\Users\samuele\Documents\FOCAS A02B-0207-K737_04.20\Document\SpecE\Position\cnc_rdspload.htm - ' RICHIEDE DRIVER ESTESO!!! NON VA!!! - - Dim nPathIdx As Integer - Dim nNumAxisRead As Integer - Dim nReturn As Integer - - Dim allData As Focas1.ODBSPN - ' inizializzo - allData = New Focas1.ODBSPN - - 'leggo il numero del processo attivo - nPathIdx = GetActivePath() - 'leggo num max assi dal cn - nNumAxisRead = Focas1.MAX_AXIS - - If Is30Series Then - - ' leggo feed globale - nReturn = Focas1.cnc_rdspload(nLibHandle(nPathIdx), -1, allData) - - If F_CheckRetError_Cnc(nReturn, "cnc_rdspload RefreshAllSpindleLoad CNC.FANUC.CncLib") Then - Throw New NcException("ERR cnc_rdspload RefreshAllSpindleLoad CNC.FANUC.CncLib") - End If - End If - - Return allData - - End Function - - Public Function getAllDynData() As Focas1.ODBDY2_1 - ' RIFERIMENTO: - ' C:\Users\samuele\Documents\FOCAS A02B-0207-K737_04.20\Document\SpecE\Position\cnc_rddynamic2.htm - - Dim nPathIdx As Integer - Dim nNumAxisRead As Integer - Dim nReturn As Integer - - Dim allData As Focas1.ODBDY2_1 - ' inizializzo - allData = New Focas1.ODBDY2_1 - - 'leggo il numero del processo attivo - nPathIdx = GetActivePath() - 'leggo num max assi dal cn - nNumAxisRead = Focas1.MAX_AXIS - - If Is30Series Then - - nReturn = Focas1.cnc_rddynamic2(nLibHandle(nPathIdx), 1, 28 + 4 * (4 * 1), allData) - '!!! non funziona: con -1 LEGGE 1 SOLO ASSE!!! - 'nReturn = Focas1.cnc_rddynamic2(nLibHandle(nPathIdx), -1, 28 + 4 * (4 * nNumAxisRead), allData) - - If F_CheckRetError_Cnc(nReturn, "cnc_rddynamic2 RefreshAllData CNC.FANUC.CncLib") Then - Throw New NcException("ERR cnc_rddynamic2 RefreshAllData CNC.FANUC.CncLib") - End If - End If - - Return allData - - End Function - - Public Function getCncAlarm() As Focas1.ODBALMMSG2 - ' RIFERIMENTO: - ' C:\Users\samuele\Documents\FOCAS A02B-0207-K737_04.20\Document\SpecE\Misc\cnc_rdalmmsg2.htm - ' C:\Users\samuele\Documents\FOCAS A02B-0207-K737_04.20\Document\SpecE\Misc\cnc_rdalminfo.htm - - Dim nPathIdx As Integer - Dim nNumAxisRead As Integer - Dim nReturn As Integer - - Dim allData As Focas1.ODBALMMSG2 - ' inizializzo - allData = New Focas1.ODBALMMSG2 - - 'leggo il numero del processo attivo - nPathIdx = GetActivePath() - 'leggo num max assi dal cn - nNumAxisRead = Focas1.MAX_AXIS - - ' vettore num allarmi MAX da leggere...... - Dim numAllarmi As Int16 - numAllarmi = 512 - - If Is30Series Then - - Try - ' leggo tutto!!! - nReturn = Focas1.cnc_rdalmmsg2(nLibHandle(nPathIdx), -1, numAllarmi, allData) - - If F_CheckRetError_Cnc(nReturn, "cnc_rdalmmsg2 GetCncAlarm CNC.FANUC.CncLib") Then - Throw New NcException("ERR cnc_rdalmmsg2 GetCncAlarm CNC.FANUC.CncLib") - Return New Focas1.ODBALMMSG2 - End If - Catch ex As Exception - - End Try - - End If - - Return allData - - End Function - - Public Function getPathGCodeMod() As Focas1.ODBGCD - ' RIFERIMENTO: - ' C:\Users\samuele\Documents\FOCAS A02B-0207-K737_04.20\Document\SpecE\Misc\cnc_rdgcode.htm - - Dim nPathIdx As Integer - Dim nNumAxisRead As Integer - Dim nReturn As Integer - - Dim actGCode As Focas1.ODBGCD - ' inizializzo - actGCode = New Focas1.ODBGCD - - 'leggo il numero del processo attivo - nPathIdx = GetActivePath() - 'leggo num max assi dal cn - nNumAxisRead = Focas1.MAX_AXIS - - If Is30Series Then - - ' leggo tutto!!! 0-27 (28 elementi) - nReturn = Focas1.cnc_rdgcode(nLibHandle(nPathIdx), -1, 1, 37, actGCode) - - If F_CheckRetError_Cnc(nReturn, "cnc_rdgcode RefreshPathGCode CNC.FANUC.CncLib") Then - Throw New NcException("ERR cnc_rdgcode RefreshPathGCode CNC.FANUC.CncLib") - End If - End If - - Return actGCode - - End Function - - Public Function getPathGCode1Shot() As Focas1.ODBGCD - ' RIFERIMENTO: - ' C:\Users\samuele\Documents\FOCAS A02B-0207-K737_04.20\Document\SpecE\Misc\cnc_rdgcode.htm - - Dim nPathIdx As Integer - Dim nNumAxisRead As Integer - Dim nReturn As Integer - - Dim actGCode As Focas1.ODBGCD - ' inizializzo - actGCode = New Focas1.ODBGCD - - 'leggo il numero del processo attivo - nPathIdx = GetActivePath() - 'leggo num max assi dal cn - nNumAxisRead = Focas1.MAX_AXIS - - If Is30Series Then - - ' leggo tutto!!! 0-27 (28 elementi) - nReturn = Focas1.cnc_rdgcode(nLibHandle(nPathIdx), -2, 1, 4, actGCode) - - If F_CheckRetError_Cnc(nReturn, "cnc_rdgcode RefreshPathGCode CNC.FANUC.CncLib") Then - Throw New NcException("ERR cnc_rdgcode RefreshPathGCode CNC.FANUC.CncLib") - End If - End If - - Return actGCode - - End Function - - Public Function getPathTTCoord() As Focas1.ODB5AXMAN - ' RIFERIMENTO: - ' C:\Users\samuele\Documents\FOCAS A02B-0207-K737_04.20\Document\SpecE\Position\cnc_rd5axmandt.htm - - Dim nPathIdx As Integer - Dim nNumAxisRead As Integer - Dim nReturn As Integer - - Dim ttCoord As Focas1.ODB5AXMAN - ' inizializzo - ttCoord = New Focas1.ODB5AXMAN - - 'leggo il numero del processo attivo - nPathIdx = GetActivePath() - 'leggo num max assi dal cn - nNumAxisRead = Focas1.MAX_AXIS - - If Is30Series Then - - ' leggo tutto!!! - nReturn = Focas1.cnc_rd5axmandt(nLibHandle(nPathIdx), ttCoord) - - If F_CheckRetError_Cnc(nReturn, "cnc_rd3dtooltip RefreshPathTTCoord CNC.FANUC.CncLib") Then - Throw New NcException("ERR cnc_rd3dtooltip RefreshPathTTCoord CNC.FANUC.CncLib") - End If - End If - - Return ttCoord - - End Function - - Public Function getSpindleSpeed() As Focas1.ODBSPEED - ' RIFERIMENTO: - ' C:\Users\samuele\Documents\FOCAS A02B-0207-K737_04.20\Document\SpecE\Position\cnc_rdspeed.htm - - Dim nPathIdx As Integer - Dim nNumAxisRead As Integer - Dim nReturn As Integer - - Dim speedAssi As Focas1.ODBSPEED - - 'leggo il numero del processo attivo - nPathIdx = GetActivePath() - 'leggo num max assi dal cn - nNumAxisRead = Focas1.MAX_AXIS - - If Is30Series Then - - ' leggo tutto!!! - nReturn = Focas1.cnc_rdspeed(nLibHandle(nPathIdx), -1, speedAssi) - - If F_CheckRetError_Cnc(nReturn, "cnc_rdspeed RefreshAxisSpeed CNC.FANUC.CncLib") Then - Throw New NcException("ERR cnc_rdspeed RefreshAxisSpeed CNC.FANUC.CncLib") - End If - End If - - Return speedAssi - - End Function - -#End Region - - End Class - -End Namespace \ No newline at end of file diff --git a/IOB-WIN/CncLib/CNC/CNC.FANUC/_/CNC.FANUC.Err.vb b/IOB-WIN/CncLib/CNC/CNC.FANUC/_/CNC.FANUC.Err.vb deleted file mode 100644 index 8a0b9fb..0000000 --- a/IOB-WIN/CncLib/CNC/CNC.FANUC/_/CNC.FANUC.Err.vb +++ /dev/null @@ -1,65 +0,0 @@ -Namespace CNC - - Partial Public Class FANUC - 'Private Class Err - - ' Private _Errors As Dictionary(Of Integer, String) 'Hashtable - - ' Public Sub New() - ' _Errors = New Dictionary(Of Integer, String) 'Hashtable - ' _Errors.Add(Focas1.EW_PROTOCOL, "protocol error") '-17 - ' _Errors.Add(Focas1.EW_SOCKET, "Windows socket error") '-16 - ' _Errors.Add(Focas1.EW_NODLL, "DLL not exist error") '-15 - ' _Errors.Add(Focas1.EW_BUS, "bus error") '-11 - ' _Errors.Add(Focas1.EW_SYSTEM2, "system error") '-10 - ' _Errors.Add(Focas1.EW_HSSB, "hssb communication error") '-9 - ' _Errors.Add(Focas1.EW_HANDLE, "Windows library handle error") '-8 - ' _Errors.Add(Focas1.EW_VERSION, "CNC/PMC version missmatch") '-7 - ' _Errors.Add(Focas1.EW_UNEXP, "abnormal error") '-6 - ' _Errors.Add(Focas1.EW_SYSTEM, "system error") '-5 - ' _Errors.Add(Focas1.EW_PARITY, "shared RAM parity error") '-4 - ' _Errors.Add(Focas1.EW_MMCSYS, "emm386 or mmcsys install error") '-3 - ' _Errors.Add(Focas1.EW_RESET, "reset or stop occured error") '-2 - ' _Errors.Add(Focas1.EW_BUSY, "busy error") '-1 - ' _Errors.Add(Focas1.EW_OK, "no problem") '0 - ' '_Errors.Add(Focas1.EW_FUNC, "command prepare error") '1 - ' '_Errors.Add(Focas1.EW_NOPMC, "pmc not exist") '1 - ' _Errors.Add(1, "command prepare error OR pmc not exist") '1 - ' _Errors.Add(Focas1.EW_LENGTH, "data block length error") '2 - ' '_Errors.Add(Focas1.EW_NUMBER, "data number error") '3 - ' '_Errors.Add(Focas1.EW_RANGE, "address range error") '3 - ' _Errors.Add(3, "data number error OR address range error") '3 - ' '_Errors.Add(Focas1.EW_ATTRIB, "data attribute error") '4 - ' '_Errors.Add(Focas1.EW_TYPE, "data type error") '4 - ' _Errors.Add(4, "data attribute error OR data type error") '4 - ' _Errors.Add(Focas1.EW_DATA, "data error") '5 - ' _Errors.Add(Focas1.EW_NOOPT, "no option error") '6 - ' _Errors.Add(Focas1.EW_PROT, "write protect error") '7 - ' _Errors.Add(Focas1.EW_OVRFLOW, "memory overflow error") '8 - ' _Errors.Add(Focas1.EW_PARAM, "cnc parameter not correct error") '9 - ' _Errors.Add(Focas1.EW_BUFFER, "buffer error") '10 - ' _Errors.Add(Focas1.EW_PATH, "path error") '11 - ' _Errors.Add(Focas1.EW_MODE, "cnc mode error") '12 - ' _Errors.Add(Focas1.EW_REJECT, "execution rejected error") '13 - ' _Errors.Add(Focas1.EW_DTSRVR, "data server error") '14 - ' _Errors.Add(Focas1.EW_ALARM, "alarm has been occurred") '15 - ' _Errors.Add(Focas1.EW_STOP, "CNC is not running") '16 - ' _Errors.Add(Focas1.EW_PASSWD, "protection data error") '17 - ' End Sub - - ' ''' - ' ''' Restituisce una stringa con la descrizione dell'errore - ' ''' - ' Public Function GetInfo(ByVal nError As Integer) As String - ' Try - ' Return String.Format("({0}) ""{1}""", nError, _Errors(nError)) 'es: (0) "no problem" - ' Catch ex As Exception - ' Return "!!! Error Info not available !!!" - ' End Try - ' End Function - - 'End Class - End Class - -End Namespace - diff --git a/IOB-WIN/CncLib/CNC/CNC.FANUC/_/fwlib32.vb b/IOB-WIN/CncLib/CNC/CNC.FANUC/_/fwlib32.vb deleted file mode 100644 index 94e6d90..0000000 --- a/IOB-WIN/CncLib/CNC/CNC.FANUC/_/fwlib32.vb +++ /dev/null @@ -1,10952 +0,0 @@ -'------------------------------------------------------- -' fwlib32.vb -' -' CNC/PMC Data Window Library for FOCAS1/Ethernet -' -' Copyright (C) 2003 by FANUC LTD. All rights reserved. -' -'------------------------------------------------------- -Imports System -Imports System.Runtime.InteropServices - - -Public Class Focas1 - ' Axis define -#If FS30D Then - Public Const MAX_AXIS = 32 -#Else - #If M_AXIS2 Then - Public Const MAX_AXIS = 24 - #Else - #If FS15D Then - Public Const MAX_AXIS = 10 - #Else - Public Const MAX_AXIS = 8 - #End If - #End If -#End If - - Public Const ALL_AXES = (-1) - Public Const ALL_SPINDLES = (-1) - - ' Error Codes - Public Const EW_PROTOCOL = (-17) ' protocol error - Public Const EW_SOCKET = (-16) ' Windows socket error - Public Const EW_NODLL = (-15) ' DLL not exist error - Public Const EW_BUS = (-11) ' bus error - Public Const EW_SYSTEM2 = (-10) ' system error - Public Const EW_HSSB = (-9) ' hssb communication error - Public Const EW_HANDLE = (-8) ' Windows library handle error - Public Const EW_VERSION = (-7) ' CNC/PMC version missmatch - Public Const EW_UNEXP = (-6) ' abnormal error - Public Const EW_SYSTEM = (-5) ' system error - Public Const EW_PARITY = (-4) ' shared RAM parity error - Public Const EW_MMCSYS = (-3) ' emm386 or mmcsys install error - Public Const EW_RESET = (-2) ' reset or stop occured error - Public Const EW_BUSY = (-1) ' busy error - Public Const EW_OK = 0 ' no problem - Public Const EW_FUNC = 1 ' command prepare error - Public Const EW_NOPMC = 1 ' pmc not exist - Public Const EW_LENGTH = 2 ' data block length error - Public Const EW_NUMBER = 3 ' data number error - Public Const EW_RANGE = 3 ' address range error - Public Const EW_ATTRIB = 4 ' data attribute error - Public Const EW_TYPE = 4 ' data type error - Public Const EW_DATA = 5 ' data error - Public Const EW_NOOPT = 6 ' no option error - Public Const EW_PROT = 7 ' write protect error - Public Const EW_OVRFLOW = 8 ' memory overflow error - Public Const EW_PARAM = 9 ' cnc parameter not correct error - Public Const EW_BUFFER = 10 ' buffer error - Public Const EW_PATH = 11 ' path error - Public Const EW_MODE = 12 ' cnc mode error - Public Const EW_REJECT = 13 ' execution rejected error - Public Const EW_DTSRVR = 14 ' data server error - Public Const EW_ALARM = 15 ' alarm has been occurred - Public Const EW_STOP = 16 ' CNC is not running - Public Const EW_PASSWD = 17 ' protection data error - - ' Result codes of DNC operation - - Public Const DNC_NORMAL = (-1) ' normal completed - Public Const DNC_CANCEL = (-32768) ' DNC operation was canceled by CNC - Public Const DNC_OPENERR = (-514) ' file open error - Public Const DNC_NOFILE = (-516) ' file not found - Public Const DNC_READERR = (-517) ' read error - - '-------------------- - ' - ' Structure Template - ' - '-------------------- - '------------------------------------- - ' CNC: Control axis / spindle related - '------------------------------------- - - ' cnc_actf:read actual axis feedrate(F) - ' cnc_acts:read actual spindle speed(S) - - Public Structure ODBACT - - Public dummy As Short() ' dummy - Public data As Integer ' actual feed / actual spindle - End Structure 'ODBACT - - ' cnc_acts2:read actual spindle speed(S) - ' (All or specified ) - - Public Structure ODBACT2 - Public datano As Short ' spindle number - Public type As Short ' dummy - - Public data As Integer() ' spindle data - End Structure 'ODBACT2 - - ' cnc_absolute:read absolute axis position - ' cnc_machine:read machine axis position - ' cnc_relative:read relative axis position - ' cnc_distance:read distance to go - ' cnc_skip:read skip position - ' cnc_srvdelay:read servo delay value - ' cnc_accdecdly:read acceleration/deceleration delay value - ' cnc_absolute2:read absolute axis position 2 - ' cnc_relative2:read relative axis position 2 - - Public Structure ODBAXIS - Public dummy As Short ' dummy - Public type As Short ' axis number - - Public data As Integer() ' data value - End Structure 'ODBAXIS - - ' cnc_rddynamic:read all dynamic data - - Public Structure FAXIS - - Public absolute As Integer() ' absolute position - - Public machine As Integer() ' machine position - - Public relative As Integer() ' relative position - - Public distance As Integer() ' distance to go - End Structure 'FAXIS - - Public Structure OAXIS - Public absolute As Integer ' absolute position - Public machine As Integer ' machine position - Public relative As Integer ' relative position - Public distance As Integer ' distance to go - End Structure -#If ONO8D = Nothing Then - - Public Structure ODBDY_1 - Public dummy As Short - Public axis As Short ' axis number - Public alarm As Short ' alarm status - Public prgnum As Short ' current program number - Public prgmnum As Short ' main program number - Public seqnum As Integer ' current sequence number - Public actf As Integer ' actual feedrate - Public acts As Integer ' actual spindle speed - Public pos As FAXIS - End Structure - - - Public Structure ODBDY_2 - Public dummy As Short - Public axis As Short ' axis number - Public alarm As Short ' alarm status - Public prgnum As Short ' current program number - Public prgmnum As Short ' main program number - Public seqnum As Integer ' current sequence number - Public actf As Integer ' actual feedrate - Public acts As Integer ' actual spindle speed - Public pos As OAXIS - End Structure -#Else - _ - Public Structure ODBDY_1 - Public dummy As Short - Public axis As Short ' axis number - Public alarm As Short ' alarm status - Public prgnum As Integer ' current program number - Public prgmnum As Integer ' main program number - Public seqnum As Integer ' current sequence number - Public actf As Integer ' actual feedrate - Public acts As Integer ' actual spindle speed - Public pos As FAXIS - End Structure - _ - Public Structure ODBDY_2 - Public dummy As Short - Public axis As Short ' axis number - Public alarm As Short ' alarm status - Public prgnum As Integer ' current program number - Public prgmnum As Integer ' main program number - Public seqnum As Integer ' current sequence number - Public actf As Integer ' actual feedrate - Public acts As Integer ' actual spindle speed - Public pos As OAXIS - End Structure -#End If - - ' cnc_rddynamic2:read all dynamic data - - Public Structure ODBDY2_1 - Public dummy As Short - Public axis As Short ' axis number - Public alarm As Integer ' alarm status - Public prgnum As Integer ' current program number - Public prgmnum As Integer ' main program number - Public seqnum As Integer ' current sequence number - Public actf As Integer ' actual feedrate - Public acts As Integer ' actual spindle speed - Public pos As FAXIS - End Structure - - Public Structure ODBDY2_2 - Public dummy As Short - Public axis As Short ' axis number - Public alarm As Integer ' alarm status - Public prgnum As Integer ' current program number - Public prgmnum As Integer ' main program number - Public seqnum As Integer ' current sequence number - Public actf As Integer ' actual feedrate - Public acts As Integer ' actual spindle speed - Public pos As OAXIS ' In case of 1 axis - End Structure - - ' cnc_wrrelpos:set origin / preset relative axis position - - Public Structure IDBWRR - Public datano As Short ' dummy - Public type As Short ' axis number - - Public data As Integer() ' preset data - End Structure - - ' cnc_prstwkcd:preset work coordinate - - Public Structure IDBWRA - Public datano As Short ' dummy - Public type As Short ' axis number - - Public data As Integer() ' preset data - End Structure - - ' cnc_rdmovrlap:read manual overlapped motion value - - Public Structure IODBOVL - Public datano As Short ' dummy - Public type As Short ' axis number - - Public data As Integer() ' data value:[2][MAX_AXIS] - End Structure - - ' cnc_rdspload:read load information of serial spindle - ' cnc_rdspmaxrpm:read maximum r.p.m. ratio of serial spindle - ' cnc_rdspgear:read gear ratio of serial spindle - - Public Structure ODBSPN - Public datano As Short ' dummy - Public type As Short ' axis number - - Public data As Short() ' preset data - End Structure - - ' cnc_rdposition:read tool position - - Public Structure POSELM - Public data As Integer ' position data - Public dec As Short ' place of decimal point of position data - Public unit As Short ' unit of position data - Public disp As Short ' status of display - Public name As Char ' axis name - Public suff As Char ' axis name preffix - End Structure - - - Public Structure POSELMALL - Public abs As POSELM - Public mach As POSELM - Public rel As POSELM - Public dist As POSELM - End Structure -#If FS30D Then - - Public Structure ODBPOS - Public p1 As POSELMALL - Public p2 As POSELMALL - Public p3 As POSELMALL - Public p4 As POSELMALL - Public p5 As POSELMALL - Public p6 As POSELMALL - Public p7 As POSELMALL - Public p8 As POSELMALL - Public p9 As POSELMALL - Public p10 As POSELMALL - Public p11 As POSELMALL - Public p12 As POSELMALL - Public p13 As POSELMALL - Public p14 As POSELMALL - Public p15 As POSELMALL - Public p16 As POSELMALL - Public p17 As POSELMALL - Public p18 As POSELMALL - Public p19 As POSELMALL - Public p20 As POSELMALL - Public p21 As POSELMALL - Public p22 As POSELMALL - Public p23 As POSELMALL - Public p24 As POSELMALL - Public p25 As POSELMALL - Public p26 As POSELMALL - Public p27 As POSELMALL - Public p28 As POSELMALL - Public p29 As POSELMALL - Public p30 As POSELMALL - Public p31 As POSELMALL - Public p32 As POSELMALL - ' In case of 32 axes. - ' if you need the more information, you must be add the member. - End Structure -#Else - #If M_AXIS2 Then - _ - Public Structure ODBPOS - Public p1 As POSELMALL - Public p2 As POSELMALL - Public p3 As POSELMALL - Public p4 As POSELMALL - Public p5 As POSELMALL - Public p6 As POSELMALL - Public p7 As POSELMALL - Public p8 As POSELMALL - Public p9 As POSELMALL - Public p10 As POSELMALL - Public p11 As POSELMALL - Public p12 As POSELMALL - Public p13 As POSELMALL - Public p14 As POSELMALL - Public p15 As POSELMALL - Public p16 As POSELMALL - Public p17 As POSELMALL - Public p18 As POSELMALL - Public p19 As POSELMALL - Public p20 As POSELMALL - Public p21 As POSELMALL - Public p22 As POSELMALL - Public p23 As POSELMALL - Public p24 As POSELMALL - ' In case of 24 axes. - ' if you need the more information, you must be add the member. - End Structure - #Else - #If FS15D Then - _ - Public Structure ODBPOS - Public p1 As POSELMALL - Public p2 As POSELMALL - Public p3 As POSELMALL - Public p4 As POSELMALL - Public p5 As POSELMALL - Public p6 As POSELMALL - Public p7 As POSELMALL - Public p8 As POSELMALL - Public p9 As POSELMALL - Public p10 As POSELMALL - ' In case of 10 axes. - ' if you need the more information, you must be add the member. - End Structure - #Else - _ - Public Structure ODBPOS - Public p1 As POSELMALL - Public p2 As POSELMALL - Public p3 As POSELMALL - Public p4 As POSELMALL - Public p5 As POSELMALL - Public p6 As POSELMALL - Public p7 As POSELMALL - Public p8 As POSELMALL - ' In case of 8 axes. - ' if you need the more information, you must be add the member. - End Structure - #End If - #End If -#End If - - ' cnc_rdhndintrpt:read handle interruption - - Public Structure ODBHND_data - Public input As POSELM ' input unit - Public output As POSELM ' output unit - End Structure -#If FS30D Then - - Public Structure ODBHND - Public p1 As ODBHND_data - Public p2 As ODBHND_data - Public p3 As ODBHND_data - Public p4 As ODBHND_data - Public p5 As ODBHND_data - Public p6 As ODBHND_data - Public p7 As ODBHND_data - Public p8 As ODBHND_data - Public p9 As ODBHND_data - Public p10 As ODBHND_data - Public p11 As ODBHND_data - Public p12 As ODBHND_data - Public p13 As ODBHND_data - Public p14 As ODBHND_data - Public p15 As ODBHND_data - Public p16 As ODBHND_data - Public p17 As ODBHND_data - Public p18 As ODBHND_data - Public p19 As ODBHND_data - Public p20 As ODBHND_data - Public p21 As ODBHND_data - Public p22 As ODBHND_data - Public p23 As ODBHND_data - Public p24 As ODBHND_data - Public p25 As ODBHND_data - Public p26 As ODBHND_data - Public p27 As ODBHND_data - Public p28 As ODBHND_data - Public p29 As ODBHND_data - Public p30 As ODBHND_data - Public p31 As ODBHND_data - Public p32 As ODBHND_data - ' In case of 32 axes. - ' if you need the more information, you must be add the member. - End Structure -#Else -#If M_AXIS2 Then - _ - Public Structure ODBHND - Public p1 As ODBHND_data - Public p2 As ODBHND_data - Public p3 As ODBHND_data - Public p4 As ODBHND_data - Public p5 As ODBHND_data - Public p6 As ODBHND_data - Public p7 As ODBHND_data - Public p8 As ODBHND_data - Public p9 As ODBHND_data - Public p10 As ODBHND_data - Public p11 As ODBHND_data - Public p12 As ODBHND_data - Public p13 As ODBHND_data - Public p14 As ODBHND_data - Public p15 As ODBHND_data - Public p16 As ODBHND_data - Public p17 As ODBHND_data - Public p18 As ODBHND_data - Public p19 As ODBHND_data - Public p20 As ODBHND_data - Public p21 As ODBHND_data - Public p22 As ODBHND_data - Public p23 As ODBHND_data - Public p24 As ODBHND_data - ' In case of 24 axes. - ' if you need the more information, you must be add the member. - End Structure -#Else -#If FS15D Then - _ - Public Structure ODBHND - Public p1 As ODBHND_data - Public p2 As ODBHND_data - Public p3 As ODBHND_data - Public p4 As ODBHND_data - Public p5 As ODBHND_data - Public p6 As ODBHND_data - Public p7 As ODBHND_data - Public p8 As ODBHND_data - Public p9 As ODBHND_data - Public p10 As ODBHND_data - ' In case of 10 axes. - ' if you need the more information, you must be add the member. - End Structure -#Else - _ - Public Structure ODBHND - Public p1 As ODBHND_data - Public p2 As ODBHND_data - Public p3 As ODBHND_data - Public p4 As ODBHND_data - Public p5 As ODBHND_data - Public p6 As ODBHND_data - Public p7 As ODBHND_data - Public p8 As ODBHND_data - ' In case of 8 axes. - ' if you need the more information, you must be add the member. - End Structure -#End If -#End If -#End If - - ' cnc_rdspeed:read current speed - - Public Structure SPEEDELM - Public data As Integer ' speed data - Public dec As Short ' decimal position - Public unit As Short ' data unit - Public disp As Short ' display flag - Public name As Byte ' name of data - Public suff As Byte ' suffix - End Structure - - - Public Structure ODBSPEED - Public actf As SPEEDELM ' actual feed rate - Public acts As SPEEDELM ' actual spindle speed - End Structure - - ' cnc_rdsvmeter:read servo load meter - ' cnc_rdspmeter:read spindle load meter - - Public Structure LOADELM - Public data As Integer ' load meter - Public dec As Short ' decimal position - Public unit As Short ' unit - Public name As Byte ' name of data - Public suff1 As Byte ' suffix - Public suff2 As Byte ' suffix - Public reserve As Byte ' reserve - End Structure -#If FS30D Then - - Public Structure ODBSVLOAD - Public svload1 As LOADELM ' servo load meter - Public svload2 As LOADELM ' servo load meter - Public svload3 As LOADELM ' servo load meter - Public svload4 As LOADELM ' servo load meter - Public svload5 As LOADELM ' servo load meter - Public svload6 As LOADELM ' servo load meter - Public svload7 As LOADELM ' servo load meter - Public svload8 As LOADELM ' servo load meter - Public svload9 As LOADELM ' servo load meter - Public svload10 As LOADELM ' servo load meter - Public svload11 As LOADELM ' servo load meter - Public svload12 As LOADELM ' servo load meter - Public svload13 As LOADELM ' servo load meter - Public svload14 As LOADELM ' servo load meter - Public svload15 As LOADELM ' servo load meter - Public svload16 As LOADELM ' servo load meter - Public svload17 As LOADELM ' servo load meter - Public svload18 As LOADELM ' servo load meter - Public svload19 As LOADELM ' servo load meter - Public svload20 As LOADELM ' servo load meter - Public svload21 As LOADELM ' servo load meter - Public svload22 As LOADELM ' servo load meter - Public svload23 As LOADELM ' servo load meter - Public svload24 As LOADELM ' servo load meter - Public svload25 As LOADELM ' servo load meter - Public svload26 As LOADELM ' servo load meter - Public svload27 As LOADELM ' servo load meter - Public svload28 As LOADELM ' servo load meter - Public svload29 As LOADELM ' servo load meter - Public svload30 As LOADELM ' servo load meter - Public svload31 As LOADELM ' servo load meter - Public svload32 As LOADELM ' servo load meter - End Structure -#Else -#If M_AXIS2 Then - _ - Public Structure ODBSVLOAD - Public svload1 As LOADELM ' servo load meter - Public svload2 As LOADELM ' servo load meter - Public svload3 As LOADELM ' servo load meter - Public svload4 As LOADELM ' servo load meter - Public svload5 As LOADELM ' servo load meter - Public svload6 As LOADELM ' servo load meter - Public svload7 As LOADELM ' servo load meter - Public svload8 As LOADELM ' servo load meter - Public svload9 As LOADELM ' servo load meter - Public svload10 As LOADELM ' servo load meter - Public svload11 As LOADELM ' servo load meter - Public svload12 As LOADELM ' servo load meter - Public svload13 As LOADELM ' servo load meter - Public svload14 As LOADELM ' servo load meter - Public svload15 As LOADELM ' servo load meter - Public svload16 As LOADELM ' servo load meter - Public svload17 As LOADELM ' servo load meter - Public svload18 As LOADELM ' servo load meter - Public svload19 As LOADELM ' servo load meter - Public svload20 As LOADELM ' servo load meter - Public svload21 As LOADELM ' servo load meter - Public svload22 As LOADELM ' servo load meter - Public svload23 As LOADELM ' servo load meter - Public svload24 As LOADELM ' servo load meter - End Structure -#Else -#If FS15D Then - _ - Public Structure ODBSVLOAD - Public svload1 As LOADELM ' servo load meter - Public svload2 As LOADELM ' servo load meter - Public svload3 As LOADELM ' servo load meter - Public svload4 As LOADELM ' servo load meter - Public svload5 As LOADELM ' servo load meter - Public svload6 As LOADELM ' servo load meter - Public svload7 As LOADELM ' servo load meter - Public svload8 As LOADELM ' servo load meter - Public svload9 As LOADELM ' servo load meter - Public svload10 As LOADELM ' servo load meter - End Structure -#Else - _ - Public Structure ODBSVLOAD - Public svload1 As LOADELM ' servo load meter - Public svload2 As LOADELM ' servo load meter - Public svload3 As LOADELM ' servo load meter - Public svload4 As LOADELM ' servo load meter - Public svload5 As LOADELM ' servo load meter - Public svload6 As LOADELM ' servo load meter - Public svload7 As LOADELM ' servo load meter - Public svload8 As LOADELM ' servo load meter - End Structure -#End If -#End If -#End If - - - Public Structure ODBSPLOAD_data - Public spload As LOADELM ' spindle load meter - Public spspeed As LOADELM ' spindle speed - End Structure - - Public Structure ODBSPLOAD - Public spload1 As ODBSPLOAD_data ' spindle load - Public spload2 As ODBSPLOAD_data ' spindle load - Public spload3 As ODBSPLOAD_data ' spindle load - Public spload4 As ODBSPLOAD_data ' spindle load - End Structure - - ' cnc_rdexecpt:read execution program pointer - - Public Structure PRGPNT - Public prog_no As Integer ' program number - Public blk_no As Integer ' block number - End Structure - - ' cnc_rd5axmandt:read manual feed for 5-axis machining - - Public Structure ODB5AXMAN - Public type1 As Short - Public type2 As Short - Public type3 As Short - Public data1 As Integer - Public data2 As Integer - Public data3 As Integer - Public c1 As Integer - Public c2 As Integer - Public dummy As Integer - Public td As Integer - Public r1 As Integer - Public r2 As Integer - Public vr As Integer - Public h1 As Integer - Public h2 As Integer - End Structure - - '---------------------- - ' CNC: Program related - '---------------------- - - ' cnc_rddncdgndt:read the diagnosis data of DNC operation - - Public Structure ODBDNCDGN - Public ctrl_word As Short - Public can_word As Short - - Public nc_file As Char() - Public read_ptr As Short - Public write_ptr As Short - Public empty_cnt As Short - Public total_size As Integer - End Structure - - ' cnc_upload:upload NC program - ' cnc_cupload:upload NC program(conditional) - - Public Structure ODBUP - - Public dummy As Short() ' dummy - - Public data As String ' data - End Structure ' In case that the number of data is 256 - - ' cnc_buff:read buffer status for downloading/verification NC program - - Public Structure ODBBUF - - Public dummy As Short() ' dummy - Public data As Short ' buffer status - End Structure - - ' cnc_rdprogdir:read program directory - - Public Structure PRGDIR - - Public prg_data As Char() ' directory data - End Structure ' In case that the number of data is 256 - - ' cnc_rdproginfo:read program information - - Public Structure ODBNC_1 - Public reg_prg As Short ' registered program number - Public unreg_prg As Short ' unregistered program number - Public used_mem As Integer ' used memory area - Public unused_mem As Integer ' unused memory area - End Structure - - - Public Structure ODBNC_2 - - Public asc As Char() ' ASCII string type - End Structure - - ' cnc_rdprgnum:read program number under execution -#If ONO8D = Nothing Then - - Public Structure ODBPRO - - Public dummy As Short() ' dummy - Public data As Short ' running program number - Public mdata As Short ' main program number - End Structure -#Else - _ - Public Structure ODBPRO - _ - Public dummy As Short() ' dummy - Public data As Integer ' running program number - Public mdata As Integer ' main program number - End Structure -#End If - - ' cnc_exeprgname:read program name under execution - - Public Structure ODBEXEPRG - - Public name As Char() ' running program name - Public o_num As Integer ' running program number - End Structure - - ' cnc_rdseqnum:read sequence number under execution - - Public Structure ODBSEQ - - Public dummy As Short() ' dummy - Public data As Integer ' sequence number - End Structure - - ' cnc_rdmdipntr:read execution pointer for MDI operation -#If ONO8D = Nothing Then - - Public Structure ODBMDIP - Public mdiprog As Short ' exec. program number - Public mdipntr As Integer ' exec. pointer - Public crntprog As Short ' prepare program number - Public crntpntr As Integer ' prepare pointer - End Structure -#Else - _ - Public Structure ODBMDIP - Public mdiprog As Integer ' exec. program number - Public mdipntr As Integer ' exec. pointer - Public crntprog As Integer ' prepare program number - Public crntpntr As Integer ' prepare pointer - End Structure -#End If - - ' cnc_rdaxisdata:read various axis data - - Public Structure ODBAXDT_data - - Public name As String ' data - Public data As Integer ' position data - Public dec As Short ' decimal position - Public unit As Short ' data unit - Public flag As Short ' flags - Public reserve As Short ' reserve - End Structure - - - Public Structure ODBAXDT - Public data1 As ODBAXDT_data - Public data2 As ODBAXDT_data - Public data3 As ODBAXDT_data - Public data4 As ODBAXDT_data - Public data5 As ODBAXDT_data - Public data6 As ODBAXDT_data - Public data7 As ODBAXDT_data - Public data8 As ODBAXDT_data - Public data9 As ODBAXDT_data - Public data10 As ODBAXDT_data - Public data11 As ODBAXDT_data - Public data12 As ODBAXDT_data - Public data13 As ODBAXDT_data - Public data14 As ODBAXDT_data - Public data15 As ODBAXDT_data - Public data16 As ODBAXDT_data - Public data17 As ODBAXDT_data - Public data18 As ODBAXDT_data - Public data19 As ODBAXDT_data - Public data20 As ODBAXDT_data - Public data21 As ODBAXDT_data - Public data22 As ODBAXDT_data - Public data23 As ODBAXDT_data - Public data24 As ODBAXDT_data - Public data25 As ODBAXDT_data - Public data26 As ODBAXDT_data - Public data27 As ODBAXDT_data - Public data28 As ODBAXDT_data - Public data29 As ODBAXDT_data - Public data30 As ODBAXDT_data - Public data31 As ODBAXDT_data - Public data32 As ODBAXDT_data - Public data33 As ODBAXDT_data - Public data34 As ODBAXDT_data - Public data35 As ODBAXDT_data - Public data36 As ODBAXDT_data - Public data37 As ODBAXDT_data - Public data38 As ODBAXDT_data - Public data39 As ODBAXDT_data - Public data40 As ODBAXDT_data - Public data41 As ODBAXDT_data - Public data42 As ODBAXDT_data - Public data43 As ODBAXDT_data - Public data44 As ODBAXDT_data - Public data45 As ODBAXDT_data - Public data46 As ODBAXDT_data - Public data47 As ODBAXDT_data - Public data48 As ODBAXDT_data - Public data49 As ODBAXDT_data - Public data50 As ODBAXDT_data - Public data51 As ODBAXDT_data - Public data52 As ODBAXDT_data - Public data53 As ODBAXDT_data - Public data54 As ODBAXDT_data - Public data55 As ODBAXDT_data - Public data56 As ODBAXDT_data - Public data57 As ODBAXDT_data - Public data58 As ODBAXDT_data - Public data59 As ODBAXDT_data - Public data60 As ODBAXDT_data - Public data61 As ODBAXDT_data - Public data62 As ODBAXDT_data - Public data63 As ODBAXDT_data - Public data64 As ODBAXDT_data - Public data65 As ODBAXDT_data - Public data66 As ODBAXDT_data - Public data67 As ODBAXDT_data - Public data68 As ODBAXDT_data - Public data69 As ODBAXDT_data - Public data70 As ODBAXDT_data - Public data71 As ODBAXDT_data - Public data72 As ODBAXDT_data - Public data73 As ODBAXDT_data - Public data74 As ODBAXDT_data - Public data75 As ODBAXDT_data - Public data76 As ODBAXDT_data - Public data77 As ODBAXDT_data - Public data78 As ODBAXDT_data - Public data79 As ODBAXDT_data - Public data80 As ODBAXDT_data - Public data81 As ODBAXDT_data - Public data82 As ODBAXDT_data - Public data83 As ODBAXDT_data - Public data84 As ODBAXDT_data - Public data85 As ODBAXDT_data - Public data86 As ODBAXDT_data - Public data87 As ODBAXDT_data - Public data88 As ODBAXDT_data - Public data89 As ODBAXDT_data - Public data90 As ODBAXDT_data - Public data91 As ODBAXDT_data - Public data92 As ODBAXDT_data - Public data93 As ODBAXDT_data - Public data94 As ODBAXDT_data - Public data95 As ODBAXDT_data - Public data96 As ODBAXDT_data - Public data97 As ODBAXDT_data - Public data98 As ODBAXDT_data - Public data99 As ODBAXDT_data - Public data100 As ODBAXDT_data - Public data101 As ODBAXDT_data - Public data102 As ODBAXDT_data - Public data103 As ODBAXDT_data - Public data104 As ODBAXDT_data - Public data105 As ODBAXDT_data - Public data106 As ODBAXDT_data - Public data107 As ODBAXDT_data - Public data108 As ODBAXDT_data - Public data109 As ODBAXDT_data - Public data110 As ODBAXDT_data - Public data111 As ODBAXDT_data - Public data112 As ODBAXDT_data - Public data113 As ODBAXDT_data - Public data114 As ODBAXDT_data - Public data115 As ODBAXDT_data - Public data116 As ODBAXDT_data - Public data117 As ODBAXDT_data - Public data118 As ODBAXDT_data - Public data119 As ODBAXDT_data - Public data120 As ODBAXDT_data - Public data121 As ODBAXDT_data - Public data122 As ODBAXDT_data - Public data123 As ODBAXDT_data - Public data124 As ODBAXDT_data - Public data125 As ODBAXDT_data - Public data126 As ODBAXDT_data - Public data127 As ODBAXDT_data - Public data128 As ODBAXDT_data - End Structure - - ' cnc_rdspcss:read constant surface speed data - - Public Structure ODBCSS - Public srpm As Integer ' order spindle speed - Public sspm As Integer ' order constant spindle speed - Public smax As Integer ' order maximum spindle speed - End Structure - - ' cnc_rdpdf_drive:read program drive directory - - Public Structure ODBPDFDRV - Public max_num As Short ' maximum drive number - Public dummy As Short - - Public drive1 As String - - Public drive2 As String - - Public drive3 As String - - Public drive4 As String - - Public drive5 As String - - Public drive6 As String - - Public drive7 As String - - Public drive8 As String - - Public drive9 As String - - Public drive10 As String - - Public drive11 As String - - Public drive12 As String - - Public drive13 As String - - Public drive14 As String - - Public drive15 As String - - Public drive16 As String - End Structure - - ' cnc_rdpdf_inf:read program drive information - - Public Structure ODBPDFINF - Public used_page As Integer ' used capacity - Public all_page As Integer ' all capacity - Public used_dir As Integer ' used directory number - Public all_dir As Integer ' all directory number - End Structure - - ' cnc_rdpdf_subdir:read directory (sub directories) - - Public Structure IDBPDFSDIR - - Public path As String ' path name - Public req_num As Short ' entry number - Public dummy As Short - End Structure - - ' cnc_rdpdf_subdir:read directory (sub directories) - - Public Structure ODBPDFSDIR - Public sub_exist As Short ' existence of sub directory - Public dummy As Short - - Public d_f As String ' directory name - End Structure - - ' cnc_rdpdf_alldir:read directory (all files) - - Public Structure IDBPDFADIR - - Public path As String ' path name - Public req_num As Short ' entry number - Public size_kind As Short ' kind of size - Public type As Short ' kind of format - Public dummy As Short - End Structure - - ' cnc_rdpdf_alldir:read directory (all files) - - Public Structure ODBPDFADIR - Public data_kind As Short ' kinf of data - Public year As Short ' last date and time - Public mon As Short ' last date and time - Public day As Short ' last date and time - Public hour As Short ' last date and time - Public min As Short ' last date and time - Public sec As Short ' last date and time - Public dummy As Short - Public dummy2 As Integer - Public size As Integer ' size - Public attr As Integer ' attribute - - Public d_f As String ' path name - - Public comment As String ' comment - - Public o_time As String ' comment - End Structure - - ' cnc_rdpdf_subdirn:read file count the directory has - - Public Structure ODBPDFNFIL - Public dir_num As Short ' directory - Public file_num As Short ' file - End Structure - - ' cnc_wrpdf_attr:change attribute of program file and directory - - Public Structure IDBPDFTDIR - Public slct As Integer ' selection - Public attr As Integer ' data - End Structure - - '--------------------------- - ' CNC: NC file data related - '--------------------------- - - ' cnc_rdtofs:read tool offset value - - Public Structure ODBTOFS - Public datano As Short ' data number - Public type As Short ' data type - Public data As Integer ' data - End Structure - - ' cnc_rdtofsr:read tool offset value(area specified) - ' cnc_wrtofsr:write tool offset value(area specified) - - Public Structure OFS_1 - - Public m_ofs As Integer() ' M Each - - Public m_ofs_a As Integer() ' M-A All - - Public t_tip As Short() ' T Each, 2-byte - - Public t_ofs As Integer() ' T Each, 4-byte - End Structure ' In case that the number of data is 5 - - Public Structure OFS_2 - - Public m_ofs_b As Integer() ' M-B All - End Structure ' In case that the number of data is 5 - - Public Structure OFS_3 - ' _ - - Public m_ofs_c As Integer() ' M-C All - End Structure ' In case that the number of data is 5 - - Public Structure T_OFS_A - Public tip As Short - - Public data As Integer() - End Structure ' T-A All - - Public Structure T_OFS_A_data - Public data1 As T_OFS_A - Public data2 As T_OFS_A - Public data3 As T_OFS_A - Public data4 As T_OFS_A - Public data5 As T_OFS_A - End Structure ' In case that the number of data is 5 - - Public Structure T_OFS_B - Public tip As Short - - Public data As Integer() - End Structure ' T-B All - - Public Structure T_OFS_B_data - Public data1 As T_OFS_B - Public data2 As T_OFS_B - Public data3 As T_OFS_B - Public data4 As T_OFS_B - Public data5 As T_OFS_B - End Structure ' In case that the number of data is 5 - - Public Structure IODBTO_1_1 - Public datano_s As Short ' start offset number - Public type As Short ' offset type - Public datano_e As Short ' end offset number - Public ofs As OFS_1 - End Structure - - Public Structure IODBTO_1_2 - Public datano_s As Short ' start offset number - Public type As Short ' offset type - Public datano_e As Short ' end offset number - Public ofs As OFS_2 - End Structure - - Public Structure IODBTO_1_3 - Public datano_s As Short ' start offset number - Public type As Short ' offset type - Public datano_e As Short ' end offset number - Public ofs As OFS_3 - End Structure - - Public Structure IODBTO_2 - Public datano_s As Short ' start offset number - Public type As Short ' offset type - Public datano_e As Short ' end offset number - Public tofsa As T_OFS_A_data - End Structure - - Public Structure IODBTO_3 - Public datano_s As Short ' start offset number - Public type As Short ' offset type - Public datano_e As Short ' end offset number - Public tofsb As T_OFS_B_data - End Structure - - ' cnc_rdzofs:read work zero offset value - ' cnc_wrzofs:write work zero offset value - - Public Structure IODBZOFS - Public datano As Short ' offset NO. - Public type As Short ' axis number - - Public data As Integer() ' data value - End Structure - - ' cnc_rdzofsr:read work zero offset value(area specified) - ' cnc_wrzofsr:write work zero offset value(area specified) - - Public Structure IODBZOR - Public datano_s As Short ' start offset number - Public type As Short ' axis number - Public datano_e As Short ' end offset number - - Public data As Integer() ' offset value - End Structure ' In case that the number of axes is MAX_AXIS, the number of data is 7 - - ' cnc_rdmsptype:read mesured point value - ' cnc_wrmsptype:write mesured point value - - Public Structure IODBMSTP - Public datano_s As Short ' start offset number - Public dummy As Short ' dummy - Public datano_e As Short ' end offset number - - Public data As SByte() ' mesured point value - End Structure - - ' cnc_rdparam:read parameter - ' cnc_wrparam:write parameter - ' cnc_rdset:read setting data - ' cnc_wrset:write setting data - ' cnc_rdparar:read parameter(area specified) - ' cnc_wrparas:write parameter(plural specified) - ' cnc_rdsetr:read setting data(area specified) - ' cnc_wrsets:write setting data(plural specified) - - Public Structure REALPRM - Public prm_val As Integer ' data of real parameter - Public dec_val As Integer ' decimal point of real parameter - End Structure -#If FS30D Then - - Public Structure REALPRMS - Public rdata1 As REALPRM - Public rdata2 As REALPRM - Public rdata3 As REALPRM - Public rdata4 As REALPRM - Public rdata5 As REALPRM - Public rdata6 As REALPRM - Public rdata7 As REALPRM - Public rdata8 As REALPRM - Public rdata9 As REALPRM - Public rdata10 As REALPRM - Public rdata11 As REALPRM - Public rdata12 As REALPRM - Public rdata13 As REALPRM - Public rdata14 As REALPRM - Public rdata15 As REALPRM - Public rdata16 As REALPRM - Public rdata17 As REALPRM - Public rdata18 As REALPRM - Public rdata19 As REALPRM - Public rdata20 As REALPRM - Public rdata21 As REALPRM - Public rdata22 As REALPRM - Public rdata23 As REALPRM - Public rdata24 As REALPRM - Public rdata25 As REALPRM - Public rdata26 As REALPRM - Public rdata27 As REALPRM - Public rdata28 As REALPRM - Public rdata29 As REALPRM - Public rdata30 As REALPRM - Public rdata31 As REALPRM - Public rdata32 As REALPRM - End Structure ' In case that the number of alarm is 32 -#Else -#If M_AXIS2 Then - _ - Public Structure REALPRMS - Public rdata1 As REALPRM - Public rdata2 As REALPRM - Public rdata3 As REALPRM - Public rdata4 As REALPRM - Public rdata5 As REALPRM - Public rdata6 As REALPRM - Public rdata7 As REALPRM - Public rdata8 As REALPRM - Public rdata9 As REALPRM - Public rdata10 As REALPRM - Public rdata11 As REALPRM - Public rdata12 As REALPRM - Public rdata13 As REALPRM - Public rdata14 As REALPRM - Public rdata15 As REALPRM - Public rdata16 As REALPRM - Public rdata17 As REALPRM - Public rdata18 As REALPRM - Public rdata19 As REALPRM - Public rdata20 As REALPRM - Public rdata21 As REALPRM - Public rdata22 As REALPRM - Public rdata23 As REALPRM - Public rdata24 As REALPRM - End Structure ' In case that the number of alarm is 24 -#Else -#If FS15D Then - _ - Public Structure REALPRMS - Public rdata1 As REALPRM - Public rdata2 As REALPRM - Public rdata3 As REALPRM - Public rdata4 As REALPRM - Public rdata5 As REALPRM - Public rdata6 As REALPRM - Public rdata7 As REALPRM - Public rdata8 As REALPRM - Public rdata9 As REALPRM - Public rdata10 As REALPRM - End Structure ' In case that the number of alarm is 10 -#Else - _ - Public Structure REALPRMS - Public rdata1 As REALPRM - Public rdata2 As REALPRM - Public rdata3 As REALPRM - Public rdata4 As REALPRM - Public rdata5 As REALPRM - Public rdata6 As REALPRM - Public rdata7 As REALPRM - Public rdata8 As REALPRM - End Structure ' In case that the number of alarm is 8 -#End If -#End If -#End If - - - Public Structure IODBPSD_1 - - Public datano As Short ' data number - - Public type As Short ' axis number - - Public cdata As Byte ' parameter / setting data - - Public idata As Short - - Public ldata As Integer - End Structure - - Public Structure IODBPSD_2 - Public datano As Short ' data number - Public type As Short ' axis number - Public rdata As REALPRM - End Structure - - Public Structure IODBPSD_3 - - Public datano As Short ' data number - - Public type As Short ' axis number - - Public cdatas As Byte() - - Public idatas As Short() - - Public ldatas As Integer() - End Structure - - Public Structure IODBPSD_4 - Public datano As Short ' data number - Public type As Short ' axis number - Public rdatas As REALPRMS - End Structure - - Public Structure IODBPSD_A - Public data1 As IODBPSD_1 - Public data2 As IODBPSD_1 - Public data3 As IODBPSD_1 - Public data4 As IODBPSD_1 - Public data5 As IODBPSD_1 - Public data6 As IODBPSD_1 - Public data7 As IODBPSD_1 - End Structure ' (sample) must be modified - - Public Structure IODBPSD_B - Public data1 As IODBPSD_2 - Public data2 As IODBPSD_2 - Public data3 As IODBPSD_2 - Public data4 As IODBPSD_2 - Public data5 As IODBPSD_2 - Public data6 As IODBPSD_2 - Public data7 As IODBPSD_2 - End Structure ' (sample) must be modified - - Public Structure IODBPSD_C - Public data1 As IODBPSD_3 - Public data2 As IODBPSD_3 - Public data3 As IODBPSD_3 - Public data4 As IODBPSD_3 - Public data5 As IODBPSD_3 - Public data6 As IODBPSD_3 - Public data7 As IODBPSD_3 - End Structure ' (sample) must be modified - - Public Structure IODBPSD_D - Public data1 As IODBPSD_4 - Public data2 As IODBPSD_4 - Public data3 As IODBPSD_4 - Public data4 As IODBPSD_4 - Public data5 As IODBPSD_4 - Public data6 As IODBPSD_4 - Public data7 As IODBPSD_4 - End Structure ' (sample) must be modified - - ' cnc_rdparam_ext:read parameAers - ' cnc_rddiag_ext:read diagnosis data - ' cnc_start_async_wrparam:async parameter write start - - Public Structure IODBPRMNO - - Public prm As Integer() - End Structure - - Public Structure IODBPRM_data - Public prm_val As Integer ' parameter / setting data - Public dec_val As Integer - End Structure - - Public Structure IODBPRM1 - Public data1 As IODBPRM_data - Public data2 As IODBPRM_data - Public data3 As IODBPRM_data - Public data4 As IODBPRM_data - Public data5 As IODBPRM_data - Public data6 As IODBPRM_data - Public data7 As IODBPRM_data - Public data8 As IODBPRM_data - Public data9 As IODBPRM_data - Public data10 As IODBPRM_data - Public data11 As IODBPRM_data - Public data12 As IODBPRM_data - Public data13 As IODBPRM_data - Public data14 As IODBPRM_data - Public data15 As IODBPRM_data - Public data16 As IODBPRM_data - Public data17 As IODBPRM_data - Public data18 As IODBPRM_data - Public data19 As IODBPRM_data - Public data20 As IODBPRM_data - Public data21 As IODBPRM_data - Public data22 As IODBPRM_data - Public data23 As IODBPRM_data - Public data24 As IODBPRM_data - Public data25 As IODBPRM_data - Public data26 As IODBPRM_data - Public data27 As IODBPRM_data - Public data28 As IODBPRM_data - Public data29 As IODBPRM_data - Public data30 As IODBPRM_data - Public data31 As IODBPRM_data - Public data32 As IODBPRM_data - End Structure - - Public Structure IODBPRM2 - Public datano As Integer ' data number - Public type As Short ' data type - Public axis As Short ' axis information - Public info As Short ' misc information - Public unit As Short ' unit information - Public data As IODBPRM1 - End Structure - - Public Structure IODBPRM - Public prm1 As IODBPRM2 - Public prm2 As IODBPRM2 - Public prm3 As IODBPRM2 - Public prm4 As IODBPRM2 - Public prm5 As IODBPRM2 - Public prm6 As IODBPRM2 - Public prm7 As IODBPRM2 - Public prm8 As IODBPRM2 - Public prm9 As IODBPRM2 - Public prm10 As IODBPRM2 - End Structure ' In case that the number of alarm is 10 - - ' cnc_rdpitchr:read pitch error compensation data(area specified) - ' cnc_wrpitchr:write pitch error compensation data(area specified) - - Public Structure IODBPI - Public datano_s As Short ' start pitch number - Public dummy As Short ' dummy - Public datano_e As Short ' end pitch number - - Public data As SByte() ' offset value - End Structure ' In case that the number of data is 5 - - ' cnc_rdmacro:read custom macro variable - - Public Structure ODBM - Public datano As Short ' variable number - Public dummy As Short ' dummy - Public mcr_val As Integer ' macro variable - Public dec_val As Short ' decimal point - End Structure - - ' cnc_rdmacror:read custom macro variables(area specified) - ' cnc_wrmacror:write custom macro variables(area specified) - - Public Structure IODBMR_data - Public mcr_val As Integer ' macro variable - Public dec_val As Short ' decimal point - End Structure - - Public Structure IODBMR1 - Public data1 As IODBMR_data - Public data2 As IODBMR_data - Public data3 As IODBMR_data - Public data4 As IODBMR_data - Public data5 As IODBMR_data - End Structure ' In case that the number of data is 5 - - Public Structure IODBMR - Public datano_s As Short ' start macro number - Public dummy As Short ' dummy - Public datano_e As Short ' end macro number - Public data As IODBMR1 - End Structure - - ' cnc_rdpmacro:read P code macro variable - - Public Structure ODBPM - Public datano As Integer ' variable number - Public dummy As Short ' dummy - Public mcr_val As Integer ' macro variable - Public dec_val As Short ' decimal point - End Structure - - ' cnc_rdpmacror:read P code macro variables(area specified) - ' cnc_wrpmacror:write P code macro variables(area specified) - Public Structure IODBPR_data - Public mcr_val As Integer ' macro variable - Public dec_val As Short ' decimal point - End Structure - - Public Structure IODBPR1 - Public data1 As IODBPR_data - Public data2 As IODBPR_data - Public data3 As IODBPR_data - Public data4 As IODBPR_data - Public data5 As IODBPR_data - End Structure ' In case that the number of data is 5 - - Public Structure IODBPR - Public datano_s As Integer ' start macro number - Public dummy As Short ' dummy - Public datano_e As Integer ' end macro number - Public data As IODBPR1 - End Structure - - ' cnc_rdtofsinfo:read tool offset information - - Public Structure ODBTLINF - Public ofs_type As Short - Public use_no As Short - End Structure - - ' cnc_rdtofsinfo2:read tool offset information(2) - - Public Structure ODBTLINF2 - Public ofs_type As Short - Public use_no As Short - Public ofs_enable As Short - End Structure - - ' cnc_rdmacroinfo:read custom macro variable information - - Public Structure ODBMVINF - Public use_no1 As Short - Public use_no2 As Short - End Structure - - ' cnc_rdpmacroinfo:read P code macro variable information - - Public Structure ODBPMINF - Public use_no1 As Short -#If PCD_UWORD Then - Public use_no2 As Short ' C# ushort -#Else - Public use_no2 As Short -#End If - Public v2_type As Short - End Structure - - ' cnc_tofs_rnge:read validity of tool offset - - Public Structure ODBDATRNG - Public data_min As Integer ' lower limit - Public data_max As Integer ' upper limit - Public status As Integer ' status of setting - End Structure - - ' cnc_rdhsprminfo:read the information for function cnc_rdhsparam() - - Public Structure HSPINFO_data - - Public data1 As Byte() - - Public data2 As Byte() - - Public data3 As Byte() - - Public data4 As Byte() - - Public data5 As Byte() - - Public data6 As Byte() - - Public data7 As Byte() - - Public data8 As Byte() - End Structure - - - Public Structure HSPINFO - Public prminfo1 As HSPINFO_data - Public prminfo2 As HSPINFO_data - Public prminfo3 As HSPINFO_data - Public prminfo4 As HSPINFO_data - Public prminfo5 As HSPINFO_data - Public prminfo6 As HSPINFO_data - Public prminfo7 As HSPINFO_data - Public prminfo8 As HSPINFO_data - Public prminfo9 As HSPINFO_data - Public prminfo10 As HSPINFO_data - End Structure ' In case that the number of data is 10 - - ' cnc_rdhsparam:read parameters at the high speed - - Public Structure HSPDATA_1 - - Public cdatas1 As Byte() - - Public cdatas2 As Byte() - - Public cdatas3 As Byte() - - Public cdatas4 As Byte() - - Public cdatas5 As Byte() - - Public cdatas6 As Byte() - - Public cdatas7 As Byte() - - Public cdatas8 As Byte() - - Public cdatas9 As Byte() - - Public cdatas10 As Byte() - End Structure ' In case that the number of data is 10 - - - Public Structure HSPDATA_2 - - Public idatas1 As Short() - - Public idatas2 As Short() - - Public idatas3 As Short() - - Public idatas4 As Short() - - Public idatas5 As Short() - - Public idatas6 As Short() - - Public idatas7 As Short() - - Public idatas8 As Short() - - Public idatas9 As Short() - - Public idatas10 As Short() - End Structure ' In case that the number of data is 10 - - - Public Structure HSPDATA_3 - - Public ldatas1 As Integer() - - Public ldatas2 As Integer() - - Public ldatas3 As Integer() - - Public ldatas4 As Integer() - - Public ldatas5 As Integer() - - Public ldatas6 As Integer() - - Public ldatas7 As Integer() - - Public ldatas8 As Integer() - - Public ldatas9 As Integer() - - Public ldatas10 As Integer() - End Structure ' In case that the number of data is 10 - - '---------------------------------------- - ' CNC: Tool life management data related - '---------------------------------------- - - ' cnc_rdgrpid:read tool life management data(tool group number) - - Public Structure ODBTLIFE1 - Public dummy As Short ' dummy - Public type As Short ' data type - Public data As Integer ' data - End Structure - - ' cnc_rdngrp:read tool life management data(number of tool groups) - - Public Structure ODBTLIFE2 - - Public dummy As Short() ' dummy - Public data As Integer ' data - End Structure - - ' cnc_rdntool:read tool life management data(number of tools) - ' cnc_rdlife:read tool life management data(tool life) - ' cnc_rdcount:read tool life management data(tool lift counter) - - Public Structure ODBTLIFE3 - Public datano As Short ' data number - Public dummy As Short ' dummy - Public data As Integer ' data - End Structure - - ' cnc_rd1length:read tool life management data(tool length number-1) - ' cnc_rd2length:read tool life management data(tool length number-2) - ' cnc_rd1radius:read tool life management data(cutter compensation no.-1) - ' cnc_rd2radius:read tool life management data(cutter compensation no.-2) - ' cnc_t1info:read tool life management data(tool information-1) - ' cnc_t2info:read tool life management data(tool information-2) - ' cnc_toolnum:read tool life management data(tool number) - - Public Structure ODBTLIFE4 - Public datano As Short ' data number - Public type As Short ' data type - Public data As Integer ' data - End Structure - - ' cnc_rdgrpid2:read tool life management data(tool group number) 2 - - Public Structure ODBTLIFE5 - Public dummy As Integer ' dummy - Public type As Integer ' data type - Public data As Integer ' data - End Structure - - ' cnc_rdtoolrng:read tool life management data(tool number, tool life, tool life counter)(area specified) - - Public Structure IODBTR_data - Public ntool As Integer ' tool number - Public life As Integer ' tool life - Public count As Integer ' tool life counter - End Structure - - Public Structure IODBTR1 - Public data1 As IODBTR_data - Public data2 As IODBTR_data - Public data3 As IODBTR_data - Public data4 As IODBTR_data - Public data5 As IODBTR_data - End Structure ' In case that the number of data is 5 - - Public Structure IODBTR - Public datano_s As Short ' start group number - Public dummy As Short ' dummy - Public datano_e As Short ' end group number - Public data As IODBTR1 - End Structure - - ' cnc_rdtoolgrp:read tool life management data(all data within group) - - Public Structure ODBTG_data - Public tuse_num As Integer ' tool number - Public tool_num As Integer ' tool life - Public length_num As Integer ' tool life counter - Public radius_num As Integer ' tool life counter - Public tinfo As Integer ' tool life counter - End Structure - - Public Structure ODBTG1 - Public data1 As ODBTG_data - Public data2 As ODBTG_data - Public data3 As ODBTG_data - Public data4 As ODBTG_data - Public data5 As ODBTG_data - End Structure ' In case that the number of data is 5 - - Public Structure ODBTG - Public grp_num As Short ' start group number - - Public dummy As Short() ' dummy - Public ntool As Integer ' tool number - Public life As Integer ' tool life - Public count As Integer ' tool life counter - Public data As ODBTG1 - End Structure - - ' cnc_wrcountr:write tool life management data(tool life counter) (area specified) - - Public Structure IDBWRC_data - - Public dummy As Integer() ' dummy - Public count As Integer ' tool life counter - End Structure - - Public Structure IDBWRC1 - Public data1 As IDBWRC_data - Public data2 As IDBWRC_data - Public data3 As IDBWRC_data - Public data4 As IDBWRC_data - Public data5 As IDBWRC_data - End Structure ' In case that the number of data is 5 - - Public Structure IDBWRC - Public datano_s As Short ' start group number - Public dummy As Short ' dummy - Public datano_e As Short ' end group number - Public data As IDBWRC1 - End Structure - - ' cnc_rdusegrpid:read tool life management data(used tool group number) - - Public Structure ODBUSEGR - Public datano As Short ' dummy - Public type As Short ' dummy - Public iNext As Integer ' next use group number - Public use As Integer ' using group number - Public slct As Integer ' selecting group number - End Structure - - ' cnc_rdmaxgrp:read tool life management data(max. number of tool groups) - ' cnc_rdmaxtool:read tool life management data(maximum number of tool within group) - - Public Structure ODBLFNO - Public datano As Short ' dummy - Public type As Short ' dummy - Public data As Short ' number of data - End Structure - - ' cnc_rdusetlno:read tool life management data(used tool no within group) - - Public Structure ODBTLUSE - Public s_grp As Short ' start group number - Public dummy As Short ' dummy - Public e_grp As Short ' end group number - - Public data As Integer() ' tool using number - End Structure ' In case that the number of group is 5 - - ' cnc_rd1tlifedata:read tool life management data(tool data1) - ' cnc_rd2tlifedata:read tool life management data(tool data2) - ' cnc_wr1tlifedata:write tool life management data(tool data1) - ' cnc_wr2tlifedata:write tool life management data(tool data2) - - Public Structure IODBTD - Public datano As Short ' tool group number - Public type As Short ' tool using number - Public tool_num As Integer ' tool number - Public h_code As Integer ' H code - Public d_code As Integer ' D code - Public tool_inf As Integer ' tool information - End Structure - - ' cnc_rd1tlifedat2:read tool life management data(tool data1) 2 - ' cnc_wr1tlifedat2:write tool life management data(tool data1) 2 - - Public Structure IODBTD2 - Public datano As Short ' tool group number - Public dummy As Short ' dummy - Public type As Integer ' tool using number - Public tool_num As Integer ' tool number - Public h_code As Integer ' H code - Public d_code As Integer ' D code - Public tool_inf As Integer ' tool information - End Structure - - ' cnc_rdgrpinfo:read tool life management data(tool group information) - ' cnc_wrgrpinfo:write tool life management data(tool group information) - - Public Structure IODBTGI_data - Public n_tool As Integer ' number of tool - Public count_value As Integer ' tool life - Public counter As Integer ' tool life counter - Public count_type As Integer ' tool life counter type - End Structure - - Public Structure IODBTGI1 - Public data1 As IODBTGI_data - Public data2 As IODBTGI_data - Public data3 As IODBTGI_data - Public data4 As IODBTGI_data - Public data5 As IODBTGI_data - End Structure ' In case that the number of data is 5 - - Public Structure IODBTGI - Public s_grp As Short ' start group number - Public dummy As Short ' dummy - Public e_grp As Short ' end group number - Public data As IODBTGI1 - End Structure - - ' cnc_rdgrpinfo2:read tool life management data(tool group information 2) - ' cnc_wrgrpinfo2:write tool life management data(tool group information 2) - - Public Structure IODBTGI2 - Public s_grp As Short ' start group number - Public dummy As Short ' dummy - Public e_grp As Short ' end group number - - Public opt_grpno As Integer() ' optional group number of tool - End Structure ' In case that the number of group is 5 - - ' cnc_rdgrpinfo3:read tool life management data(tool group information 3) - ' cnc_wrgrpinfo3:write tool life management data(tool group information 3) - - Public Structure IODBTGI3 - Public s_grp As Short ' start group number - Public dummy As Short ' dummy - Public e_grp As Short ' end group number - - Public life_rest As Integer() ' tool life rest count - End Structure ' In case that the number of group is 5 - - ' cnc_rdgrpinfo4:read tool life management data(tool group information 4) - - Public Structure IODBTGI4 - Public grp_no As Short - Public n_tool As Integer - Public count_value As Integer - Public counter As Integer - Public count_type As Integer - Public opt_grpno As Integer - Public life_rest As Integer - End Structure - - ' cnc_instlifedt:insert tool life management data(tool data) - - Public Structure IDBITD - Public datano As Short ' tool group number - Public type As Short ' tool using number - Public data As Integer ' tool number - End Structure - - ' cnc_rdtlinfo:read tool life management data - - Public Structure ODBTLINFO - Public max_group As Integer ' maximum number of tool groups - Public max_tool As Integer ' maximum number of tool within group - Public max_minute As Integer ' maximum number of life count (minutes) - Public max_cycle As Integer ' maximum number of life count (cycles) - End Structure - - ' cnc_rdtlusegrp:read tool life management data(used tool group number) - - Public Structure ODBUSEGRP - Public iNext As Integer ' next use group number - Public use As Integer ' using group number - Public slct As Integer ' selecting group number - Public opt_next As Integer ' next use optional group number - Public opt_use As Integer ' using optional group number - Public opt_slct As Integer ' selecting optional group number - End Structure - - ' cnc_rdtlgrp:read tool life management data(tool group information 2) - - Public Structure IODBTLGRP_data - Public ntool As Integer ' number of all tool - Public nfree As Integer ' number of free tool - Public life As Integer ' tool life - Public count As Integer ' tool life counter - Public use_tool As Integer ' using tool number - Public opt_grpno As Integer ' optional group number - Public life_rest As Integer ' tool life rest count - Public rest_sig As Short ' tool life rest signal - Public count_type As Short ' tool life counter type - End Structure - - Public Structure IODBTLGRP - Public data1 As IODBTLGRP_data - Public data2 As IODBTLGRP_data - Public data3 As IODBTLGRP_data - Public data4 As IODBTLGRP_data - Public data5 As IODBTLGRP_data - End Structure ' In case that the number of group is 5 - - ' cnc_rdtltool:read tool life management data (tool data1) - - Public Structure IODBTLTOOL_data - Public tool_num As Integer ' tool number - Public h_code As Integer ' H code - Public d_code As Integer ' D code - Public tool_inf As Integer ' tool information - End Structure - - Public Structure IODBTLTOOL - Public data1 As IODBTLTOOL_data - Public data2 As IODBTLTOOL_data - Public data3 As IODBTLTOOL_data - Public data4 As IODBTLTOOL_data - Public data5 As IODBTLTOOL_data - End Structure ' In case that the number of group is 5 - - - Public Structure ODBEXGP_data - Public grp_no As Integer ' group number - Public opt_grpno As Integer ' optional group number - End Structure - - - Public Structure ODBEXGP - Public data1 As ODBEXGP_data - Public data2 As ODBEXGP_data - Public data3 As ODBEXGP_data - Public data4 As ODBEXGP_data - Public data5 As ODBEXGP_data - Public data6 As ODBEXGP_data - Public data7 As ODBEXGP_data - Public data8 As ODBEXGP_data - Public data9 As ODBEXGP_data - Public data10 As ODBEXGP_data - Public data11 As ODBEXGP_data - Public data12 As ODBEXGP_data - Public data13 As ODBEXGP_data - Public data14 As ODBEXGP_data - Public data15 As ODBEXGP_data - Public data16 As ODBEXGP_data - Public data17 As ODBEXGP_data - Public data18 As ODBEXGP_data - Public data19 As ODBEXGP_data - Public data20 As ODBEXGP_data - Public data21 As ODBEXGP_data - Public data22 As ODBEXGP_data - Public data23 As ODBEXGP_data - Public data24 As ODBEXGP_data - Public data25 As ODBEXGP_data - Public data26 As ODBEXGP_data - Public data27 As ODBEXGP_data - Public data28 As ODBEXGP_data - Public data29 As ODBEXGP_data - Public data30 As ODBEXGP_data - Public data31 As ODBEXGP_data - Public data32 As ODBEXGP_data - End Structure - - '----------------------------------- - ' CNC: Tool management data related - '----------------------------------- - - ' cnc_regtool:new registration of tool management data - ' cnc_rdtool:lead of tool management data - ' cnc_wrtool:write of tool management data - - Public Structure IODBTLMNG_data - Public T_code As Integer - Public life_count As Integer - Public max_life As Integer - Public rest_life As Integer - Public life_stat As Byte - Public cust_bits As Byte - Public tool_info As Short ' C# ushort - Public H_code As Short - Public D_code As Short - Public spindle_speed As Integer - Public feedrate As Integer - Public magazine As Short - Public pot As Short - Public G_code As Short - Public W_code As Short - Public gno As Short - Public m_ofs As Short - - Public reserved As Integer() - Public custom1 As Integer - Public custom2 As Integer - Public custom3 As Integer - Public custom4 As Integer - Public custom5 As Integer - Public custom6 As Integer - Public custom7 As Integer - Public custom8 As Integer - Public custom9 As Integer - Public custom10 As Integer - Public custom11 As Integer - Public custom12 As Integer - Public custom13 As Integer - Public custom14 As Integer - Public custom15 As Integer - Public custom16 As Integer - Public custom17 As Integer - Public custom18 As Integer - Public custom19 As Integer - Public custom20 As Integer - End Structure - - Public Structure IODBTLMNG - Public data1 As IODBTLMNG_data - Public data2 As IODBTLMNG_data - Public data3 As IODBTLMNG_data - Public data4 As IODBTLMNG_data - Public data5 As IODBTLMNG_data - End Structure ' In case that the number of group is 5 - - ' cnc_regtool_f2:new registration of tool management data - ' cnc_rdtool_f2:lead of tool management data - - Public Structure IODBTLMNG_F2_data - Public T_code As Integer - Public life_count As Integer - Public max_life As Integer - Public rest_life As Integer - Public life_stat As Byte - Public cust_bits As Byte - Public tool_info As Short ' C# ushort - Public H_code As Short - Public D_code As Short - Public spindle_speed As Integer - Public feedrate As Integer - Public magazine As Short - Public pot As Short - Public G_code As Short - Public W_code As Short - Public gno As Short - Public m_ofs As Short - - Public reserved As Integer() - Public custom1 As Integer - Public custom2 As Integer - Public custom3 As Integer - Public custom4 As Integer - Public custom5 As Integer - Public custom6 As Integer - Public custom7 As Integer - Public custom8 As Integer - Public custom9 As Integer - Public custom10 As Integer - Public custom11 As Integer - Public custom12 As Integer - Public custom13 As Integer - Public custom14 As Integer - Public custom15 As Integer - Public custom16 As Integer - Public custom17 As Integer - Public custom18 As Integer - Public custom19 As Integer - Public custom20 As Integer - Public custom21 As Integer - Public custom22 As Integer - Public custom23 As Integer - Public custom24 As Integer - Public custom25 As Integer - Public custom26 As Integer - Public custom27 As Integer - Public custom28 As Integer - Public custom29 As Integer - Public custom30 As Integer - Public custom31 As Integer - Public custom32 As Integer - Public custom33 As Integer - Public custom34 As Integer - Public custom35 As Integer - Public custom36 As Integer - Public custom37 As Integer - Public custom38 As Integer - Public custom39 As Integer - Public custom40 As Integer - End Structure - - Public Structure IODBTLMNG_F2 - Public data1 As IODBTLMNG_F2_data - Public data2 As IODBTLMNG_F2_data - Public data3 As IODBTLMNG_F2_data - Public data4 As IODBTLMNG_F2_data - Public data5 As IODBTLMNG_F2_data - End Structure ' In case that the number of group is 5 - - ' cnc_wrtool2:write of individual data of tool management data - - Public Structure IDBTLM_item - - Public data1 As SByte - - Public data2 As Short - - Public data4 As Integer - End Structure - - Public Structure IDBTLM - Public data_id As Short - Public item As IDBTLM_item - End Structure - - ' cnc_regmagazine:new registration of magazine management data - ' cnc_rdmagazine:lead of magazine management data - - Public Structure IODBTLMAG_data - Public magazine As Short - Public pot As Short - Public tool_index As Short - End Structure - - Public Structure IODBTLMAG - Public data1 As IODBTLMAG_data - Public data2 As IODBTLMAG_data - Public data3 As IODBTLMAG_data - Public data4 As IODBTLMAG_data - Public data5 As IODBTLMAG_data - End Structure ' In case that the number of group is 5 - - ' cnc_delmagazine:deletion of magazine management data - - Public Structure IODBTLMAG2_data - Public magazine As Short - Public pot As Short - End Structure - - Public Structure IODBTLMAG2 - Public data1 As IODBTLMAG2_data - Public data2 As IODBTLMAG2_data - Public data3 As IODBTLMAG2_data - Public data4 As IODBTLMAG2_data - Public data5 As IODBTLMAG2_data - End Structure ' In case that the number of group is 5 - - - '------------------------------------- - ' CNC: Operation history data related - '------------------------------------- - - ' cnc_rdophistry:read operation history data - - Public Structure REC_ALM - Public rec_type As Short ' record type - Public alm_grp As Short ' alarm group - Public alm_no As Short ' alarm number - Public axis_no As SByte ' axis number - Public dummy As SByte - End Structure - - Public Structure REC_MDI - Public rec_type As Short ' record type - Public key_code As Byte ' key code - Public pw_flag As Byte ' power on flag - - Public dummy As SByte() - End Structure - - Public Structure REC_SGN - Public rec_type As Short ' record type - Public sig_name As SByte ' signal name - Public sig_old As Byte ' old signal bit pattern - Public sig_new As Byte ' new signal bit pattern - Public dummy As SByte - Public sig_no As Short ' signal number - End Structure - - Public Structure REC_DATE - Public rec_type As Short ' record type - Public year As SByte ' year - Public month As SByte ' month - Public day As SByte ' day - Public pw_flag As SByte ' power on flag - - Public dummy As SByte() - End Structure - - Public Structure REC_TIME - Public rec_type As Short ' record flag - Public hour As SByte ' hour - Public minute As SByte ' minute - Public second As SByte ' second - Public pw_flag As SByte ' power on flag - - Public dummy As SByte() - End Structure - - Public Structure ODBHIS_data - ' record type - - Public rec_type As Short ' record type - - ' alarm record - - Public alm_rec_type As Short ' record type - - Public alm_alm_grp As Short ' alarm group - - Public alm_alm_no As Short ' alarm number - - Public alm_axis_no As SByte ' axis number - - Public alm_dummy As SByte - - ' mdi record - - Public mdi_rec_type As Short ' record type - - Public mdi_key_code As Byte ' key code - - Public mdi_pw_flag As Byte ' power on flag - - Public mdi_dummy1 As SByte - - Public mdi_dummy2 As SByte - - Public mdi_dummy3 As SByte - - Public mdi_dummy4 As SByte - - ' sign record - - Public sgn_rec_type As Short ' record type - - Public sgn_sig_name As SByte ' signal name - - Public sgn_sig_old As Byte ' old signal bit pattern - - Public sgn_sig_new As Byte ' new signal bit pattern - - Public sgn_dummy As SByte - - Public sgn_sig_no As Short ' signal number - - ' date record - - Public date_rec_type As Short ' record type - - Public date_year As SByte ' year - - Public date_month As SByte ' month - - Public date_day As SByte ' day - - Public date_pw_flag As SByte ' power on flag - - Public date_dummy1 As SByte - - Public date_dummy2 As SByte - - ' time record - - Public time_rec_type As Short ' record flag - - Public time_hour As SByte ' hour - - Public time_minute As SByte ' minute - - Public time_second As SByte ' second - - Public time_pw_flag As SByte ' power on flag - - Public time_dummy1 As SByte - - Public time_dummy2 As SByte - End Structure - - Public Structure ODBHIS1 - Public data1 As ODBHIS_data - Public data2 As ODBHIS_data - Public data3 As ODBHIS_data - Public data4 As ODBHIS_data - Public data5 As ODBHIS_data - Public data6 As ODBHIS_data - Public data7 As ODBHIS_data - Public data8 As ODBHIS_data - Public data9 As ODBHIS_data - Public data10 As ODBHIS_data - End Structure ' In case that the number of data is 10 - - Public Structure ODBHIS - Public s_no As Short ' start number C# ushort - Public type As Short ' dummy - Public e_no As Short ' end number C# ushort - Public data As ODBHIS1 - End Structure - - ' cnc_rdophistry2:read operation history data - - Public Structure REC_MDI2 - Public key_code As Byte ' key code - Public pw_flag As Byte ' power on flag - Public dummy As Short - End Structure - - Public Structure REC_MDI2_data - Public rec_len As Short ' length - Public rec_type As Short ' record type - Public data As REC_MDI2 - End Structure - - Public Structure REC_SGN2 - Public sig_name As Short ' signal name - Public sig_no As Short ' signal number - Public sig_old As Byte ' old signal bit pattern - Public sig_new As Byte ' new signal bit pattern - Public dummy As Short - End Structure - - Public Structure REC_SGN2_data - Public rec_len As Short ' length - Public rec_type As Short ' record type - Public data As REC_SGN2 - End Structure - - Public Structure REC_ALM2 - Public alm_grp As Short ' alarm group - Public alm_no As Short ' alarm number - Public axis_no As Short ' axis number - Public year As Short ' year - Public month As Short ' month - Public day As Short ' day - Public hour As Short ' hour - Public minute As Short ' minute - Public second As Short ' second - Public dummy As Short - End Structure - - Public Structure REC_ALM2_data - Public rec_len As Short ' length - Public rec_type As Short ' record type - Public data As REC_ALM2 - End Structure - - Public Structure REC_DATE2 - Public evnt_type As Short ' event type - Public year As Short ' year - Public month As Short ' month - Public day As Short ' day - Public hour As Short ' hour - Public minute As Short ' minute - Public second As Short ' second - Public dummy As Short - End Structure - - Public Structure REC_DATE2_data - Public rec_len As Short ' length - Public rec_type As Short ' record type - Public data As REC_DATE2 - End Structure - - Public Structure ODBOPHIS - - Public rec_mdi As REC_MDI2_data - - Public rec_sgn As REC_SGN2_data - - Public rec_alm As REC_ALM2_data - - Public rec_date As REC_DATE2_data - End Structure - - ' cnc_rdophistry4:read operation history data - - Public Structure REC_MDI4 - Public key_code As Char ' key code - Public pw_flag As Char ' power on flag - Public pth_no As Short ' path index - Public ex_flag As Short ' kxternal key flag - Public hour As Short ' hour - Public minute As Short ' minute - Public second As Short ' second - End Structure - - Public Structure REC_MDI4_data - Public rec_len As Short ' length - Public rec_type As Short ' record type - Public data As REC_MDI4 - End Structure - - Public Structure REC_SGN4 - Public sig_name As Short ' signal name - Public sig_no As Short ' signal number - Public sig_old As Char ' old signal bit pattern - Public sig_new As Char ' new signal bit pattern - Public pmc_no As Short ' pmc index - Public hour As Short ' hour - Public minute As Short ' minute - Public second As Short ' second - Public dummy As Short - End Structure - - Public Structure REC_SGN4_data - Public rec_len As Short ' length - Public rec_type As Short ' record type - Public data As REC_SGN4 - End Structure - - Public Structure REC_ALM4 - Public alm_grp As Short ' alarm group - Public alm_no As Short ' alarm number - Public axis_no As Short ' axis number - Public year As Short ' year - Public month As Short ' month - Public day As Short ' day - Public hour As Short ' hour - Public minute As Short ' minute - Public second As Short ' second - Public pth_no As Short ' path index - End Structure - - Public Structure REC_ALM4_data - Public rec_len As Short ' length - Public rec_type As Short ' record type - Public data As REC_ALM4 - End Structure - - Public Structure REC_DATE4 - Public evnt_type As Short ' event type - Public year As Short ' year - Public month As Short ' month - Public day As Short ' day - Public hour As Short ' hour - Public minute As Short ' minute - Public second As Short ' second - Public dummy As Short - End Structure - - Public Structure REC_DATE4_data - Public rec_len As Short ' length - Public rec_type As Short ' record type - Public data As REC_DATE4 - End Structure - - Public Structure REC_IAL4 - Public alm_grp As Short ' alarm group - Public alm_no As Short ' alarm number - Public axis_no As Short ' axis number - Public year As Short ' year - Public month As Short ' month - Public day As Short ' day - Public hour As Short ' hour - Public minute As Short ' minute - Public second As Short ' second - Public pth_no As Short ' path index - Public sys_alm As Short ' sys alarm - Public dsp_flg As Short ' message dsp flag - Public axis_num As Short ' axis num - - Public g_modal As Integer() ' G code Modal - - Public g_dp As Char() ' #7:1 Block #6`#0 dp - - Public a_modal As Integer() ' B,D,E,F,H,M,N,O,S,T code Modal - - Public a_dp As Char() ' #7:1 Block #6`#0 dp - - Public abs_pos As Integer() ' Abs pos - - Public abs_dp As Char() ' Abs dp - - Public mcn_pos As Integer() ' Mcn pos - - Public mcn_dp As Char() ' Mcn dp - End Structure - - Public Structure REC_IAL4_data - Public rec_len As Short ' length - Public rec_type As Short ' record type - Public data As REC_IAL4 - End Structure - - Public Structure REC_MAL4 - Public alm_grp As Short ' alarm group - Public alm_no As Short ' alarm number - Public axis_no As Short ' axis number - Public year As Short ' year - Public month As Short ' month - Public day As Short ' day - Public hour As Short ' hour - Public minute As Short ' minute - Public second As Short ' second - Public pth_no As Short ' path index - Public sys_alm As Short ' sys alarm - Public dsp_flg As Short ' message dsp flag - Public axis_num As Short ' axis num - - Public alm_msg As Char() ' alarm message - - Public g_modal As Integer() ' G code Modal - - Public g_dp As Char() ' #7:1 Block #6`#0 dp - - Public a_modal As Integer() ' B,D,E,F,H,M,N,O,S,T code Modal - - Public a_dp As Char() ' #7:1 Block #6`#0 dp - - Public abs_pos As Integer() ' Abs pos - - Public abs_dp As Char() ' Abs dp - - Public mcn_pos As Integer() ' Mcn pos - - Public mcn_dp As Char() ' Mcn dp - End Structure - - Public Structure REC_MAL4_data - Public rec_len As Short ' length - Public rec_type As Short ' record type - Public data As REC_MAL4 - End Structure - - Public Structure REC_OPM4 - Public dsp_flg As Short ' Dysplay flag(ON/OFF) - Public om_no As Short ' message number - Public year As Short ' year - Public month As Short ' month - Public day As Short ' day - Public hour As Short ' hour - Public minute As Short ' minute - Public second As Short ' second - - Public ope_msg As Char() ' alarm message - End Structure - - Public Structure REC_OPM4_data - Public rec_len As Short ' length - Public rec_type As Short ' record type - Public data As REC_OPM4 - End Structure - - Public Structure REC_OFS4 - Public ofs_grp As Short ' Tool offset group - Public ofs_no As Short ' Tool offset number - Public hour As Short ' hour - Public minute As Short ' minute - Public second As Short ' second - Public pth_no As Short ' path index - Public ofs_old As Integer ' old data - Public ofs_new As Integer ' new data - Public old_dp As Short ' old data decimal point - Public new_dp As Short ' new data decimal point - End Structure - - Public Structure REC_OFS4_data - Public rec_len As Short ' length - Public rec_type As Short ' record type - Public data As REC_OFS4 - End Structure - - Public Structure REC_PRM4 - Public prm_grp As Short ' paramater group - Public prm_num As Short ' paramater number - Public hour As Short ' hour - Public minute As Short ' minute - Public second As Short ' second - Public prm_len As Short ' paramater data length - Public prm_no As Integer ' paramater no - Public prm_old As Integer ' old data - Public prm_new As Integer ' new data - Public old_dp As Short ' old data decimal point - Public new_dp As Short ' new data decimal point - End Structure - - Public Structure REC_PRM4_data - Public rec_len As Short ' length - Public rec_type As Short ' record type - Public data As REC_PRM4 - End Structure - - Public Structure REC_WOF4 - Public ofs_grp As Short ' Work offset group - Public ofs_no As Short ' Work offset number - Public hour As Short ' hour - Public minute As Short ' minute - Public second As Short ' second - Public pth_no As Short ' path index - Public axis_no As Short ' path axis num - Public dummy As Short - Public ofs_old As Integer ' old data - Public ofs_new As Integer ' new data - Public old_dp As Short ' old data decimal point - Public new_dp As Short ' new data decimal point - End Structure - - Public Structure REC_WOF4_data - Public rec_len As Short ' length - Public rec_type As Short ' record type - Public data As REC_WOF4 - End Structure - - Public Structure REC_MAC4 - Public mac_no As Short ' macro val number - Public hour As Short ' hour - Public minute As Short ' minute - Public second As Short ' second - Public pth_no As Short ' path index - Public mac_old As Integer ' old data - Public mac_new As Integer ' new data - Public old_dp As Short ' old data decimal point - Public new_dp As Short ' new data decimal point - End Structure - - Public Structure REC_MAC4_data - Public rec_len As Short ' length - Public rec_type As Short ' record type - Public data As REC_MAC4 - End Structure - - - Public Structure ODBOPHIS4_1 - Public rec_mdi1 As REC_MDI4_data - Public rec_mdi2 As REC_MDI4_data - Public rec_mdi3 As REC_MDI4_data - Public rec_mdi4 As REC_MDI4_data - Public rec_mdi5 As REC_MDI4_data - Public rec_mdi6 As REC_MDI4_data - Public rec_mdi7 As REC_MDI4_data - Public rec_mdi8 As REC_MDI4_data - Public rec_mdi9 As REC_MDI4_data - Public rec_mdi10 As REC_MDI4_data - End Structure ' In case that the number of data is 10 - - - Public Structure ODBOPHIS4_2 - Public rec_sgn1 As REC_SGN4_data - Public rec_sgn2 As REC_SGN4_data - Public rec_sgn3 As REC_SGN4_data - Public rec_sgn4 As REC_SGN4_data - Public rec_sgn5 As REC_SGN4_data - Public rec_sgn6 As REC_SGN4_data - Public rec_sgn7 As REC_SGN4_data - Public rec_sgn8 As REC_SGN4_data - Public rec_sgn9 As REC_SGN4_data - Public rec_sgn10 As REC_SGN4_data - End Structure ' In case that the number of data is 10 - - - Public Structure ODBOPHIS4_3 - Public rec_alm1 As REC_ALM4_data - Public rec_alm2 As REC_ALM4_data - Public rec_alm3 As REC_ALM4_data - Public rec_alm4 As REC_ALM4_data - Public rec_alm5 As REC_ALM4_data - Public rec_alm6 As REC_ALM4_data - Public rec_alm7 As REC_ALM4_data - Public rec_alm8 As REC_ALM4_data - Public rec_alm9 As REC_ALM4_data - Public rec_alm10 As REC_ALM4_data - End Structure ' In case that the number of data is 10 - - - Public Structure ODBOPHIS4_4 - Public rec_date1 As REC_DATE4_data - Public rec_date2 As REC_DATE4_data - Public rec_date3 As REC_DATE4_data - Public rec_date4 As REC_DATE4_data - Public rec_date5 As REC_DATE4_data - Public rec_date6 As REC_DATE4_data - Public rec_date7 As REC_DATE4_data - Public rec_date8 As REC_DATE4_data - Public rec_date9 As REC_DATE4_data - Public rec_date10 As REC_DATE4_data - End Structure ' In case that the number of data is 10 - - - Public Structure ODBOPHIS4_5 - Public rec_ial1 As REC_IAL4_data - Public rec_ial2 As REC_IAL4_data - Public rec_ial3 As REC_IAL4_data - Public rec_ial4 As REC_IAL4_data - Public rec_ial5 As REC_IAL4_data - Public rec_ial6 As REC_IAL4_data - Public rec_ial7 As REC_IAL4_data - Public rec_ial8 As REC_IAL4_data - Public rec_ial9 As REC_IAL4_data - Public rec_ial10 As REC_IAL4_data - End Structure ' In case that the number of data is 10 - - - Public Structure ODBOPHIS4_6 - Public rec_mal1 As REC_MAL4_data - Public rec_mal2 As REC_MAL4_data - Public rec_mal3 As REC_MAL4_data - Public rec_mal4 As REC_MAL4_data - Public rec_mal5 As REC_MAL4_data - Public rec_mal6 As REC_MAL4_data - Public rec_mal7 As REC_MAL4_data - Public rec_mal8 As REC_MAL4_data - Public rec_mal9 As REC_MAL4_data - Public rec_mal10 As REC_MAL4_data - End Structure ' In case that the number of data is 10 - - - Public Structure ODBOPHIS4_7 - Public rec_opm1 As REC_OPM4_data - Public rec_opm2 As REC_OPM4_data - Public rec_opm3 As REC_OPM4_data - Public rec_opm4 As REC_OPM4_data - Public rec_opm5 As REC_OPM4_data - Public rec_opm6 As REC_OPM4_data - Public rec_opm7 As REC_OPM4_data - Public rec_opm8 As REC_OPM4_data - Public rec_opm9 As REC_OPM4_data - Public rec_opm10 As REC_OPM4_data - End Structure ' In case that the number of data is 10 - - - Public Structure ODBOPHIS4_8 - Public rec_ofs1 As REC_OFS4_data - Public rec_ofs2 As REC_OFS4_data - Public rec_ofs3 As REC_OFS4_data - Public rec_ofs4 As REC_OFS4_data - Public rec_ofs5 As REC_OFS4_data - Public rec_ofs6 As REC_OFS4_data - Public rec_ofs7 As REC_OFS4_data - Public rec_ofs8 As REC_OFS4_data - Public rec_ofs9 As REC_OFS4_data - Public rec_ofs10 As REC_OFS4_data - End Structure ' In case that the number of data is 10 - - - Public Structure ODBOPHIS4_9 - Public rec_prm1 As REC_PRM4_data - Public rec_prm2 As REC_PRM4_data - Public rec_prm3 As REC_PRM4_data - Public rec_prm4 As REC_PRM4_data - Public rec_prm5 As REC_PRM4_data - Public rec_prm6 As REC_PRM4_data - Public rec_prm7 As REC_PRM4_data - Public rec_prm8 As REC_PRM4_data - Public rec_prm9 As REC_PRM4_data - Public rec_prm10 As REC_PRM4_data - End Structure ' In case that the number of data is 10 - - - Public Structure ODBOPHIS4_10 - Public rec_wof1 As REC_WOF4_data - Public rec_wof2 As REC_WOF4_data - Public rec_wof3 As REC_WOF4_data - Public rec_wof4 As REC_WOF4_data - Public rec_wof5 As REC_WOF4_data - Public rec_wof6 As REC_WOF4_data - Public rec_wof7 As REC_WOF4_data - Public rec_wof8 As REC_WOF4_data - Public rec_wof9 As REC_WOF4_data - Public rec_wof10 As REC_WOF4_data - End Structure ' In case that the number of data is 10 - - - Public Structure ODBOPHIS4_11 - Public rec_mac1 As REC_MAC4_data - Public rec_mac2 As REC_MAC4_data - Public rec_mac3 As REC_MAC4_data - Public rec_mac4 As REC_MAC4_data - Public rec_mac5 As REC_MAC4_data - Public rec_mac6 As REC_MAC4_data - Public rec_mac7 As REC_MAC4_data - Public rec_mac8 As REC_MAC4_data - Public rec_mac9 As REC_MAC4_data - Public rec_mac10 As REC_MAC4_data - End Structure ' In case that the number of data is 10 - - ' cnc_rdalmhistry:read alarm history data - - Public Structure ALM_HIS_data - Public dummy As Short - Public alm_grp As Short ' alarm group - Public alm_no As Short ' alarm number - Public axis_no As Byte ' axis number - Public year As Byte ' year - Public month As Byte ' month - Public day As Byte ' day - Public hour As Byte ' hour - Public minute As Byte ' minute - Public second As Byte ' second - Public dummy2 As Byte - Public len_msg As Short ' alarm message length - - Public alm_msg As String ' alarm message - End Structure - - Public Structure ALM_HIS1 - Public data1 As ALM_HIS_data - Public data2 As ALM_HIS_data - Public data3 As ALM_HIS_data - Public data4 As ALM_HIS_data - Public data5 As ALM_HIS_data - Public data6 As ALM_HIS_data - Public data7 As ALM_HIS_data - Public data8 As ALM_HIS_data - Public data9 As ALM_HIS_data - Public data10 As ALM_HIS_data - End Structure ' In case that the number of data is 10 - - Public Structure ODBAHIS - Public s_no As Short ' start number C# ushort - Public type As Short ' dummy - Public e_no As Short ' end number C# ushort - Public alm_his As ALM_HIS1 - End Structure - - ' cnc_rdalmhistry2:read alarm history data - - Public Structure ALM_HIS2_data - Public alm_grp As Short ' alarm group - Public alm_no As Short ' alarm number - Public axis_no As Short ' axis number - Public year As Short ' year - Public month As Short ' month - Public day As Short ' day - Public hour As Short ' hour - Public minute As Short ' minute - Public second As Short ' second - Public len_msg As Short ' alarm message length - - Public alm_msg As String ' alarm message - End Structure - - Public Structure ALM_HIS2 - Public data1 As ALM_HIS2_data - Public data2 As ALM_HIS2_data - Public data3 As ALM_HIS2_data - Public data4 As ALM_HIS2_data - Public data5 As ALM_HIS2_data - Public data6 As ALM_HIS2_data - Public data7 As ALM_HIS2_data - Public data8 As ALM_HIS2_data - Public data9 As ALM_HIS2_data - Public data10 As ALM_HIS2_data - End Structure ' In case that the number of data is 10 - - Public Structure ODBAHIS2 - Public s_no As Short ' start number C# ushort - Public e_no As Short ' end number C# ushort - Public alm_his As ALM_HIS2 - End Structure - - ' cnc_rdalmhistry3:read alarm history data - - Public Structure ALM_HIS3_data - Public alm_grp As Short ' alarm group - Public alm_no As Short ' alarm number - Public axis_no As Short ' axis number - Public year As Short ' year - Public month As Short ' month - Public day As Short ' day - Public hour As Short ' hour - Public minute As Short ' minute - Public second As Short ' second - Public len_msg As Short ' alarm message length - Public pth_no As Short ' path index - Public dummy As Short - - Public alm_msg As String ' alarm message - End Structure - - Public Structure ALM_HIS3 - Public data1 As ALM_HIS3_data - Public data2 As ALM_HIS3_data - Public data3 As ALM_HIS3_data - Public data4 As ALM_HIS3_data - Public data5 As ALM_HIS3_data - Public data6 As ALM_HIS3_data - Public data7 As ALM_HIS3_data - Public data8 As ALM_HIS3_data - Public data9 As ALM_HIS3_data - Public data10 As ALM_HIS3_data - End Structure ' In case that the number of data is 10 - - Public Structure ODBAHIS3 - Public s_no As Short ' start number C# ushort - Public e_no As Short ' end number C# ushort - Public alm_his As ALM_HIS3 - End Structure - - ' cnc_rdalmhistry5:read alarm history data - - Public Structure ALM_HIS5_data - Public alm_grp As Short ' alarm group - Public alm_no As Short ' alarm number - Public axis_no As Short ' axis number - Public year As Short ' year - Public month As Short ' month - Public day As Short ' day - Public hour As Short ' hour - Public minute As Short ' minute - Public second As Short ' second - Public len_msg As Short ' alarm message length - Public pth_no As Short ' path index - Public sys_alm As Short ' sys alarm - Public dsp_flg As Short ' message dsp flag - Public axis_num As Short ' sum axis num - - Public alm_msg As String ' alarm message - - Public g_modal As Integer() ' G code Modal - - Public g_dp As Char() ' #7:1 Block #6`#0 dp - - Public a_modal As Integer() ' B,D,E,F,H,M,N,O,S,T code Modal - - Public a_dp As Char() ' #7:1 Block #6`#0 dp - - Public abs_pos As Integer() ' Abs pos - - Public abs_dp As Char() ' Abs dp - - Public mcn_pos As Integer() ' Mcn pos - - Public mcn_dp As Char() ' Mcn dp - End Structure - - Public Structure ALM_HIS5 - Public data1 As ALM_HIS5_data - Public data2 As ALM_HIS5_data - Public data3 As ALM_HIS5_data - Public data4 As ALM_HIS5_data - Public data5 As ALM_HIS5_data - Public data6 As ALM_HIS5_data - Public data7 As ALM_HIS5_data - Public data8 As ALM_HIS5_data - Public data9 As ALM_HIS5_data - Public data10 As ALM_HIS5_data - End Structure ' In case that the number of data is 10 - - Public Structure ODBAHIS5 - Public s_no As Short ' start number C# ushort - Public e_no As Short ' end number C# ushort - Public alm_his As ALM_HIS5 - End Structure - - ' cnc_rdomhistry2:read operater message history data - - Public Structure ODBOMHIS2_data - Public dsp_flg As Short ' Dysplay flag(ON/OFF) - Public om_no As Short ' operater message number - Public year As Short ' year - Public month As Short ' month - Public day As Short ' day - Public hour As Short ' Hour - Public minute As Short ' Minute - Public second As Short ' Second - - Public alm_msg As String ' Messege - End Structure - - Public Structure OPM_HIS - Public data1 As ODBOMHIS2_data - Public data2 As ODBOMHIS2_data - Public data3 As ODBOMHIS2_data - Public data4 As ODBOMHIS2_data - Public data5 As ODBOMHIS2_data - Public data6 As ODBOMHIS2_data - Public data7 As ODBOMHIS2_data - Public data8 As ODBOMHIS2_data - Public data9 As ODBOMHIS2_data - Public data10 As ODBOMHIS2_data - End Structure - - Public Structure ODBOMHIS2 - Public s_no As Short ' start number - Public e_no As Short ' end number - Public opm_his As OPM_HIS - End Structure - - ' cnc_rdhissgnl:read signals related operation history - ' cnc_wrhissgnl:write signals related operation history - - Public Structure IODBSIG_data - Public ent_no As Short ' entry number - Public sig_no As Short ' signal number - Public sig_name As Byte ' signal name - Public mask_pat As Byte ' signal mask pattern - End Structure - - Public Structure IODBSIG1 - Public data1 As IODBSIG_data - Public data2 As IODBSIG_data - Public data3 As IODBSIG_data - Public data4 As IODBSIG_data - Public data5 As IODBSIG_data - Public data6 As IODBSIG_data - Public data7 As IODBSIG_data - Public data8 As IODBSIG_data - Public data9 As IODBSIG_data - Public data10 As IODBSIG_data - Public data11 As IODBSIG_data - Public data12 As IODBSIG_data - Public data13 As IODBSIG_data - Public data14 As IODBSIG_data - Public data15 As IODBSIG_data - Public data16 As IODBSIG_data - Public data17 As IODBSIG_data - Public data18 As IODBSIG_data - Public data19 As IODBSIG_data - Public data20 As IODBSIG_data - End Structure - - Public Structure IODBSIG - Public datano As Short ' dummy - Public type As Short ' dummy - Public data As IODBSIG1 - End Structure - - ' cnc_rdhissgnl2:read signals related operation history 2 - ' cnc_wrhissgnl2:write signals related operation history 2 - - Public Structure _IODBSIG2_data - Public ent_no As Short ' entry number - Public sig_no As Short ' signal number - Public sig_name As Byte ' signal name - Public mask_pat As Byte ' signal mask pattern - End Structure - - Public Structure IODBSIG2_data - Public data1 As _IODBSIG2_data - Public data2 As _IODBSIG2_data - Public data3 As _IODBSIG2_data - Public data4 As _IODBSIG2_data - Public data5 As _IODBSIG2_data - Public data6 As _IODBSIG2_data - Public data7 As _IODBSIG2_data - Public data8 As _IODBSIG2_data - Public data9 As _IODBSIG2_data - Public data10 As _IODBSIG2_data - Public data11 As _IODBSIG2_data - Public data12 As _IODBSIG2_data - Public data13 As _IODBSIG2_data - Public data14 As _IODBSIG2_data - Public data15 As _IODBSIG2_data - Public data16 As _IODBSIG2_data - Public data17 As _IODBSIG2_data - Public data18 As _IODBSIG2_data - Public data19 As _IODBSIG2_data - Public data20 As _IODBSIG2_data - Public data21 As _IODBSIG2_data - Public data22 As _IODBSIG2_data - Public data23 As _IODBSIG2_data - Public data24 As _IODBSIG2_data - Public data25 As _IODBSIG2_data - Public data26 As _IODBSIG2_data - Public data27 As _IODBSIG2_data - Public data28 As _IODBSIG2_data - Public data29 As _IODBSIG2_data - Public data30 As _IODBSIG2_data - Public data31 As _IODBSIG2_data - Public data32 As _IODBSIG2_data - Public data33 As _IODBSIG2_data - Public data34 As _IODBSIG2_data - Public data35 As _IODBSIG2_data - Public data36 As _IODBSIG2_data - Public data37 As _IODBSIG2_data - Public data38 As _IODBSIG2_data - Public data39 As _IODBSIG2_data - Public data40 As _IODBSIG2_data - Public data41 As _IODBSIG2_data - Public data42 As _IODBSIG2_data - Public data43 As _IODBSIG2_data - Public data44 As _IODBSIG2_data - Public data45 As _IODBSIG2_data - End Structure - - Public Structure IODBSIG2 - Public datano As Short ' dummy - Public type As Short ' dummy - Public data As IODBSIG2_data - End Structure - - ' cnc_rdhissgnl3:read signals related operation history - ' cnc_wrhissgnl3:write signals related operation history - - Public Structure _IODBSIG3_data - Public ent_no As Short ' entry number - Public pmc_no As Short ' pmc number - Public sig_no As Short ' signal number - Public sig_name As Byte ' signal name - Public mask_pat As Byte ' signal mask pattern - End Structure - - Public Structure IODBSIG3_data - Public data1 As _IODBSIG3_data - Public data2 As _IODBSIG3_data - Public data3 As _IODBSIG3_data - Public data4 As _IODBSIG3_data - Public data5 As _IODBSIG3_data - Public data6 As _IODBSIG3_data - Public data7 As _IODBSIG3_data - Public data8 As _IODBSIG3_data - Public data9 As _IODBSIG3_data - Public data10 As _IODBSIG3_data - Public data11 As _IODBSIG3_data - Public data12 As _IODBSIG3_data - Public data13 As _IODBSIG3_data - Public data14 As _IODBSIG3_data - Public data15 As _IODBSIG3_data - Public data16 As _IODBSIG3_data - Public data17 As _IODBSIG3_data - Public data18 As _IODBSIG3_data - Public data19 As _IODBSIG3_data - Public data20 As _IODBSIG3_data - Public data21 As _IODBSIG3_data - Public data22 As _IODBSIG3_data - Public data23 As _IODBSIG3_data - Public data24 As _IODBSIG3_data - Public data25 As _IODBSIG3_data - Public data26 As _IODBSIG3_data - Public data27 As _IODBSIG3_data - Public data28 As _IODBSIG3_data - Public data29 As _IODBSIG3_data - Public data30 As _IODBSIG3_data - Public data31 As _IODBSIG3_data - Public data32 As _IODBSIG3_data - Public data33 As _IODBSIG3_data - Public data34 As _IODBSIG3_data - Public data35 As _IODBSIG3_data - Public data36 As _IODBSIG3_data - Public data37 As _IODBSIG3_data - Public data38 As _IODBSIG3_data - Public data39 As _IODBSIG3_data - Public data40 As _IODBSIG3_data - Public data41 As _IODBSIG3_data - Public data42 As _IODBSIG3_data - Public data43 As _IODBSIG3_data - Public data44 As _IODBSIG3_data - Public data45 As _IODBSIG3_data - Public data46 As _IODBSIG3_data - Public data47 As _IODBSIG3_data - Public data48 As _IODBSIG3_data - Public data49 As _IODBSIG3_data - Public data50 As _IODBSIG3_data - Public data51 As _IODBSIG3_data - Public data52 As _IODBSIG3_data - Public data53 As _IODBSIG3_data - Public data54 As _IODBSIG3_data - Public data55 As _IODBSIG3_data - Public data56 As _IODBSIG3_data - Public data57 As _IODBSIG3_data - Public data58 As _IODBSIG3_data - Public data59 As _IODBSIG3_data - Public data60 As _IODBSIG3_data - End Structure - - Public Structure IODBSIG3 - Public datano As Short ' dummy - Public type As Short ' dummy - Public data As IODBSIG3_data - End Structure - - '------------- - ' CNC: Others - '------------- - - ' cnc_sysinfo:read CNC system information - - Public Structure ODBSYS - Public addinfo As Short - Public max_axis As Short - - Public cnc_type As Char() - - Public mt_type As Char() - - Public series As Char() - - Public version As Char() - - Public axes As Char() - End Structure - -#If FS15D Then - ' cnc_statinfo:read CNC status information - _ - Public Structure ODBST - _ - Public dummy As Short() ' dummy - Public aut As Short ' selected automatic mode - Public manual As Short ' selected manual mode - Public run As Short ' running status - Public edit As Short ' editting status - Public motion As Short ' axis, dwell status - Public mstb As Short ' m, s, t, b status - Public emergency As Short ' emergency stop status - Public write As Short ' writting status - Public labelskip As Short ' label skip status - Public alarm As Short ' alarm status - Public warning As Short ' warning status - Public battery As Short ' battery status - End Structure -#Else - ' cnc_statinfo:read CNC status information - - Public Structure ODBST - Public dummy As Short ' dummy - Public tmmode As Short ' T/M mode - Public aut As Short ' selected automatic mode - Public run As Short ' running status - Public motion As Short ' axis, dwell status - Public mstb As Short ' m, s, t, b status - Public emergency As Short ' emergency stop status - Public alarm As Short ' alarm status - Public edit As Short ' editting status - End Structure -#End If - - ' cnc_alarm:read alarm status - - Public Structure ODBALM - - Public dummy As Short() - Public data As Short ' C# ushort - End Structure - - ' cnc_rdalminfo:read alarm information -#If M_AXIS2 Then - _ - Public Structure ALMINFO1_data - Public axis As Integer - Public alm_no As Short - End Structure - - _ - Public Structure ALMINFO2_data - Public axis As Integer - Public alm_no As Short - Public msg_len As Short - _ - Public alm_msg As String ' alarm message - End Structure -#Else - - Public Structure ALMINFO1_data - Public axis As Short - Public alm_no As Short - End Structure - - - Public Structure ALMINFO2_data - Public axis As Short - Public alm_no As Short - Public msg_len As Short - - Public alm_msg As String ' alarm message - End Structure -#End If - - Public Structure ALMINFO_1 - Public msg1 As ALMINFO1_data - Public msg2 As ALMINFO1_data - Public msg3 As ALMINFO1_data - Public msg4 As ALMINFO1_data - Public msg5 As ALMINFO1_data - Public data_end As Short - End Structure ' In case that the number of alarm is 5 - - - Public Structure ALMINFO_2 - Public msg1 As ALMINFO2_data - Public msg2 As ALMINFO2_data - Public msg3 As ALMINFO2_data - Public msg4 As ALMINFO2_data - Public msg5 As ALMINFO2_data - Public dataend As Short - End Structure ' In case that the number of alarm is 5 - - ' cnc_rdalmmsg:read alarm messages - - Public Structure ODBALMMSG_data - Public alm_no As Integer - Public type As Short - Public axis As Short - Public dummy As Short - Public msg_len As Short - - Public alm_msg As String ' alarm message - End Structure - - Public Structure ODBALMMSG - Public msg1 As ODBALMMSG_data - Public msg2 As ODBALMMSG_data - Public msg3 As ODBALMMSG_data - Public msg4 As ODBALMMSG_data - Public msg5 As ODBALMMSG_data - Public msg6 As ODBALMMSG_data - Public msg7 As ODBALMMSG_data - Public msg8 As ODBALMMSG_data - Public msg9 As ODBALMMSG_data - Public msg10 As ODBALMMSG_data - End Structure ' In case that the number of alarm is 10 - - ' cnc_rdalmmsg2:read alarm messages - - Public Structure ODBALMMSG2_data - Public alm_no As Integer - Public type As Short - Public axis As Short - Public dummy As Short - Public msg_len As Short - - Public alm_msg As String ' alarm message - End Structure - - Public Structure ODBALMMSG2 - Public msg1 As ODBALMMSG2_data - Public msg2 As ODBALMMSG2_data - Public msg3 As ODBALMMSG2_data - Public msg4 As ODBALMMSG2_data - Public msg5 As ODBALMMSG2_data - Public msg6 As ODBALMMSG2_data - Public msg7 As ODBALMMSG2_data - Public msg8 As ODBALMMSG2_data - Public msg9 As ODBALMMSG2_data - Public msg10 As ODBALMMSG2_data - End Structure ' In case that the number of alarm is 10 - - ' cnc_modal:read modal data - - Public Structure MODAL_AUX_data - Public aux_data As Integer - Public flag1 As Byte - Public flag2 As Byte - End Structure - - Public Structure MODAL_RAUX1_data - Public data1 As MODAL_AUX_data - Public data2 As MODAL_AUX_data - Public data3 As MODAL_AUX_data - Public data4 As MODAL_AUX_data - Public data5 As MODAL_AUX_data - Public data6 As MODAL_AUX_data - Public data7 As MODAL_AUX_data - Public data8 As MODAL_AUX_data - Public data9 As MODAL_AUX_data - Public data10 As MODAL_AUX_data - Public data11 As MODAL_AUX_data - Public data12 As MODAL_AUX_data - Public data13 As MODAL_AUX_data - Public data14 As MODAL_AUX_data - Public data15 As MODAL_AUX_data - Public data16 As MODAL_AUX_data - Public data17 As MODAL_AUX_data - Public data18 As MODAL_AUX_data - Public data19 As MODAL_AUX_data - Public data20 As MODAL_AUX_data - Public data21 As MODAL_AUX_data - Public data22 As MODAL_AUX_data - Public data23 As MODAL_AUX_data - Public data24 As MODAL_AUX_data - Public data25 As MODAL_AUX_data - Public data26 As MODAL_AUX_data - Public data27 As MODAL_AUX_data - End Structure -#If FS30D Then - - Public Structure MODAL_RAUX2_data - Public data1 As MODAL_AUX_data - Public data2 As MODAL_AUX_data - Public data3 As MODAL_AUX_data - Public data4 As MODAL_AUX_data - Public data5 As MODAL_AUX_data - Public data6 As MODAL_AUX_data - Public data7 As MODAL_AUX_data - Public data8 As MODAL_AUX_data - Public data9 As MODAL_AUX_data - Public data10 As MODAL_AUX_data - Public data11 As MODAL_AUX_data - Public data12 As MODAL_AUX_data - Public data13 As MODAL_AUX_data - Public data14 As MODAL_AUX_data - Public data15 As MODAL_AUX_data - Public data16 As MODAL_AUX_data - Public data17 As MODAL_AUX_data - Public data18 As MODAL_AUX_data - Public data19 As MODAL_AUX_data - Public data20 As MODAL_AUX_data - Public data21 As MODAL_AUX_data - Public data22 As MODAL_AUX_data - Public data23 As MODAL_AUX_data - Public data24 As MODAL_AUX_data - Public data25 As MODAL_AUX_data - Public data26 As MODAL_AUX_data - Public data27 As MODAL_AUX_data - Public data28 As MODAL_AUX_data - Public data29 As MODAL_AUX_data - Public data30 As MODAL_AUX_data - Public data31 As MODAL_AUX_data - Public data32 As MODAL_AUX_data - End Structure -#Else -#If M_AXIS2 Then - _ - Public Structure MODAL_RAUX2_data - Public data1 As MODAL_AUX_data - Public data2 As MODAL_AUX_data - Public data3 As MODAL_AUX_data - Public data4 As MODAL_AUX_data - Public data5 As MODAL_AUX_data - Public data6 As MODAL_AUX_data - Public data7 As MODAL_AUX_data - Public data8 As MODAL_AUX_data - Public data9 As MODAL_AUX_data - Public data10 As MODAL_AUX_data - Public data11 As MODAL_AUX_data - Public data12 As MODAL_AUX_data - Public data13 As MODAL_AUX_data - Public data14 As MODAL_AUX_data - Public data15 As MODAL_AUX_data - Public data16 As MODAL_AUX_data - Public data17 As MODAL_AUX_data - Public data18 As MODAL_AUX_data - Public data19 As MODAL_AUX_data - Public data20 As MODAL_AUX_data - Public data21 As MODAL_AUX_data - Public data22 As MODAL_AUX_data - Public data23 As MODAL_AUX_data - Public data24 As MODAL_AUX_data - End Structure -#Else -#If FS15D Then - _ - Public Structure MODAL_RAUX2_data - Public data1 As MODAL_AUX_data - Public data2 As MODAL_AUX_data - Public data3 As MODAL_AUX_data - Public data4 As MODAL_AUX_data - Public data5 As MODAL_AUX_data - Public data6 As MODAL_AUX_data - Public data7 As MODAL_AUX_data - Public data8 As MODAL_AUX_data - Public data9 As MODAL_AUX_data - Public data10 As MODAL_AUX_data - End Structure -#Else - _ - Public Structure MODAL_RAUX2_data - Public data1 As MODAL_AUX_data - Public data2 As MODAL_AUX_data - Public data3 As MODAL_AUX_data - Public data4 As MODAL_AUX_data - Public data5 As MODAL_AUX_data - Public data6 As MODAL_AUX_data - Public data7 As MODAL_AUX_data - Public data8 As MODAL_AUX_data - End Structure -#End If -#End If -#End If - - - Public Structure ODBMDL_1 - - Public datano As Short - - Public type As Short - - Public g_data As Char - End Structure - - Public Structure ODBMDL_2 - - Public datano As Short - - Public type As Short - - Public g_1shot As Byte() - - Public g_rdata As Byte() - End Structure - - Public Structure ODBMDL_3 - Public datano As Short - Public type As Short - Public aux As MODAL_AUX_data - End Structure - - Public Structure ODBMDL_4 - Public datano As Short - Public type As Short - Public raux1 As MODAL_RAUX1_data - End Structure - - Public Structure ODBMDL_5 - Public datano As Short - Public type As Short - Public raux2 As MODAL_RAUX2_data - End Structure - - ' cnc_rdgcode: read G code - - Public Structure ODBGCD_data - Public group As Short - Public flag As Short - - Public code As String - End Structure - - Public Structure ODBGCD - Public gcd0 As ODBGCD_data - Public gcd1 As ODBGCD_data - Public gcd2 As ODBGCD_data - Public gcd3 As ODBGCD_data - Public gcd4 As ODBGCD_data - Public gcd5 As ODBGCD_data - Public gcd6 As ODBGCD_data - Public gcd7 As ODBGCD_data - Public gcd8 As ODBGCD_data - Public gcd9 As ODBGCD_data - Public gcd10 As ODBGCD_data - Public gcd11 As ODBGCD_data - Public gcd12 As ODBGCD_data - Public gcd13 As ODBGCD_data - Public gcd14 As ODBGCD_data - Public gcd15 As ODBGCD_data - Public gcd16 As ODBGCD_data - Public gcd17 As ODBGCD_data - Public gcd18 As ODBGCD_data - Public gcd19 As ODBGCD_data - Public gcd20 As ODBGCD_data - Public gcd21 As ODBGCD_data - Public gcd22 As ODBGCD_data - Public gcd23 As ODBGCD_data - Public gcd24 As ODBGCD_data - Public gcd25 As ODBGCD_data - Public gcd26 As ODBGCD_data - Public gcd27 As ODBGCD_data - End Structure - - ' cnc_rdcommand: read command value - - Public Structure ODBCMD_data - Public adrs As Byte - Public num As Byte - Public flag As Short - Public cmd_val As Integer - Public dec_val As Integer - End Structure - - Public Structure ODBCMD - Public cmd0 As ODBCMD_data - Public cmd1 As ODBCMD_data - Public cmd2 As ODBCMD_data - Public cmd3 As ODBCMD_data - Public cmd4 As ODBCMD_data - Public cmd5 As ODBCMD_data - Public cmd6 As ODBCMD_data - Public cmd7 As ODBCMD_data - Public cmd8 As ODBCMD_data - Public cmd9 As ODBCMD_data - Public cmd10 As ODBCMD_data - Public cmd11 As ODBCMD_data - Public cmd12 As ODBCMD_data - Public cmd13 As ODBCMD_data - Public cmd14 As ODBCMD_data - Public cmd15 As ODBCMD_data - Public cmd16 As ODBCMD_data - Public cmd17 As ODBCMD_data - Public cmd18 As ODBCMD_data - Public cmd19 As ODBCMD_data - Public cmd20 As ODBCMD_data - Public cmd21 As ODBCMD_data - Public cmd22 As ODBCMD_data - Public cmd23 As ODBCMD_data - Public cmd24 As ODBCMD_data - Public cmd25 As ODBCMD_data - Public cmd26 As ODBCMD_data - Public cmd27 As ODBCMD_data - Public cmd28 As ODBCMD_data - Public cmd29 As ODBCMD_data - End Structure - - ' cnc_diagnoss:read diagnosis data - ' cnc_diagnosr:read diagnosis data(area specified) - - Public Structure REALDGN - Public dgn_val As Integer ' data of real diagnoss - Public dec_val As Integer ' decimal point of real diagnoss - End Structure -#If FS30D Then - - Public Structure REALDGNS - Public rdata1 As REALDGN - Public rdata2 As REALDGN - Public rdata3 As REALDGN - Public rdata4 As REALDGN - Public rdata5 As REALDGN - Public rdata6 As REALDGN - Public rdata7 As REALDGN - Public rdata8 As REALDGN - Public rdata9 As REALDGN - Public rdata10 As REALDGN - Public rdata11 As REALDGN - Public rdata12 As REALDGN - Public rdata13 As REALDGN - Public rdata14 As REALDGN - Public rdata15 As REALDGN - Public rdata16 As REALDGN - Public rdata17 As REALDGN - Public rdata18 As REALDGN - Public rdata19 As REALDGN - Public rdata20 As REALDGN - Public rdata21 As REALDGN - Public rdata22 As REALDGN - Public rdata23 As REALDGN - Public rdata24 As REALDGN - Public rdata25 As REALDGN - Public rdata26 As REALDGN - Public rdata27 As REALDGN - Public rdata28 As REALDGN - Public rdata29 As REALDGN - Public rdata30 As REALDGN - Public rdata31 As REALDGN - Public rdata32 As REALDGN - End Structure ' In case that the number of alarm is 24 -#Else -#If M_AXIS2 Then - _ - Public Structure REALDGNS - Public rdata1 As REALDGN - Public rdata2 As REALDGN - Public rdata3 As REALDGN - Public rdata4 As REALDGN - Public rdata5 As REALDGN - Public rdata6 As REALDGN - Public rdata7 As REALDGN - Public rdata8 As REALDGN - Public rdata9 As REALDGN - Public rdata10 As REALDGN - Public rdata11 As REALDGN - Public rdata12 As REALDGN - Public rdata13 As REALDGN - Public rdata14 As REALDGN - Public rdata15 As REALDGN - Public rdata16 As REALDGN - Public rdata17 As REALDGN - Public rdata18 As REALDGN - Public rdata19 As REALDGN - Public rdata20 As REALDGN - Public rdata21 As REALDGN - Public rdata22 As REALDGN - Public rdata23 As REALDGN - Public rdata24 As REALDGN - End Structure ' In case that the number of alarm is 24 -#Else -#If FS15D Then - _ - Public Structure REALDGNS - Public rdata1 As REALDGN - Public rdata2 As REALDGN - Public rdata3 As REALDGN - Public rdata4 As REALDGN - Public rdata5 As REALDGN - Public rdata6 As REALDGN - Public rdata7 As REALDGN - Public rdata8 As REALDGN - Public rdata9 As REALDGN - Public rdata10 As REALDGN - End Structure ' In case that the number of alarm is 10 -#Else - _ - Public Structure REALDGNS - Public rdata1 As REALDGN - Public rdata2 As REALDGN - Public rdata3 As REALDGN - Public rdata4 As REALDGN - Public rdata5 As REALDGN - Public rdata6 As REALDGN - Public rdata7 As REALDGN - Public rdata8 As REALDGN - End Structure ' In case that the number of alarm is 8 -#End If -#End If -#End If - - - Public Structure ODBDGN_1 - - Public datano As Short ' data number - - Public type As Short ' axis number - - Public cdata As Byte ' parameter / setting data - - Public idata As Short - - Public ldata As Integer - End Structure - - Public Structure ODBDGN_2 - Public datano As Short ' data number - Public type As Short ' axis number - Public rdata As REALDGN - End Structure - - Public Structure ODBDGN_3 - - Public datano As Short ' data number - - Public type As Short ' axis number - - Public cdatas As Byte() - - Public idatas As Short() - - Public ldatas As Integer() - End Structure - - Public Structure ODBDGN_4 - Public datano As Short ' data number - Public type As Short ' axis number - Public rdatas As REALDGNS - End Structure - - Public Structure ODBDGN_A - Public data1 As ODBDGN_1 - Public data2 As ODBDGN_1 - Public data3 As ODBDGN_1 - Public data4 As ODBDGN_1 - Public data5 As ODBDGN_1 - Public data6 As ODBDGN_1 - Public data7 As ODBDGN_1 - End Structure ' (sample) must be modified - - Public Structure ODBDGN_B - Public data1 As ODBDGN_2 - Public data2 As ODBDGN_2 - Public data3 As ODBDGN_2 - Public data4 As ODBDGN_2 - Public data5 As ODBDGN_2 - Public data6 As ODBDGN_2 - Public data7 As ODBDGN_2 - End Structure ' (sample) must be modified - - Public Structure ODBDGN_C - Public data1 As ODBDGN_3 - Public data2 As ODBDGN_3 - Public data3 As ODBDGN_3 - Public data4 As ODBDGN_3 - Public data5 As ODBDGN_3 - Public data6 As ODBDGN_3 - Public data7 As ODBDGN_3 - End Structure ' (sample) must be modified - - Public Structure ODBDGN_D - Public data1 As ODBDGN_4 - Public data2 As ODBDGN_4 - Public data3 As ODBDGN_4 - Public data4 As ODBDGN_4 - Public data5 As ODBDGN_4 - Public data6 As ODBDGN_4 - Public data7 As ODBDGN_4 - End Structure ' (sample) must be modified - - ' cnc_adcnv:read A/D conversion data - - Public Structure ODBAD - Public datano As Short ' input analog voltage type - Public type As Short ' analog voltage type - Public data As Short ' digital voltage data - End Structure - -#If FS15D Then - ' cnc_rdopmsg:read operator's message - _ - Public Structure OPMSG_data - Public datano As Short ' operator's message number - Public type As Short ' operator's message type - Public char_num As Short ' message string length - _ - Public data As String ' operator's message string - End Structure ' In case that the data length is 129 -#Else - - Public Structure OPMSG_data - Public datano As Short ' operator's message number - Public type As Short ' operator's message type - Public char_num As Short ' message string length - - Public data As String ' operator's message string - End Structure ' In case that the data length is 256 -#End If - - Public Structure OPMSG - Public msg1 As OPMSG_data - Public msg2 As OPMSG_data - Public msg3 As OPMSG_data - Public msg4 As OPMSG_data - Public msg5 As OPMSG_data - End Structure - - ' cnc_rdopmsg2:read operator's message - - Public Structure OPMSG2_data - Public datano As Short ' operator's message number - Public type As Short ' operator's message type - Public char_num As Short ' message string length - - Public data As String ' operator's message string - End Structure ' In case that the data length is 64 - - Public Structure OPMSG2 - Public msg1 As OPMSG2_data - Public msg2 As OPMSG2_data - Public msg3 As OPMSG2_data - Public msg4 As OPMSG2_data - Public msg5 As OPMSG2_data - End Structure - - ' cnc_rdopmsg3:read operator's message - - Public Structure OPMSG3_data - Public datano As Short ' operator's message number - Public type As Short ' operator's message type - Public char_num As Short ' message string length - - Public data As String ' operator's message string - End Structure ' In case that the data length is 256 - - Public Structure OPMSG3 - Public msg1 As OPMSG3_data - Public msg2 As OPMSG3_data - Public msg3 As OPMSG3_data - Public msg4 As OPMSG3_data - Public msg5 As OPMSG3_data - End Structure - - ' cnc_sysconfig:read CNC configuration information - - Public Structure ODBSYSC - - Public slot_no_p As Byte() - - Public slot_no_l As Byte() - - Public mod_id As Short() - - Public soft_id As Short() - - Public s_series1 As String - - Public s_series2 As String - - Public s_series3 As String - - Public s_series4 As String - - Public s_series5 As String - - Public s_series6 As String - - Public s_series7 As String - - Public s_series8 As String - - Public s_series9 As String - - Public s_series10 As String - - Public s_series11 As String - - Public s_series12 As String - - Public s_series13 As String - - Public s_series14 As String - - Public s_series15 As String - - Public s_series16 As String - - Public s_version1 As String - - Public s_version2 As String - - Public s_version3 As String - - Public s_version4 As String - - Public s_version5 As String - - Public s_version6 As String - - Public s_version7 As String - - Public s_version8 As String - - Public s_version9 As String - - Public s_version10 As String - - Public s_version11 As String - - Public s_version12 As String - - Public s_version13 As String - - Public s_version14 As String - - Public s_version15 As String - - Public s_version16 As String - - Public dummy As Byte() - Public m_rom As Short - Public s_rom As Short - - Public svo_soft As Char() - - Public pmc_soft As Char() - - Public lad_soft As Char() - - Public mcr_soft As Char() - - Public spl1_soft As Char() - - Public spl2_soft As Char() - Public frmmin As Short - Public drmmin As Short - Public srmmin As Short - Public pmcmin As Short - Public crtmin As Short - Public sv1min As Short - Public sv3min As Short - Public sicmin As Short - Public posmin As Short - Public drmmrc As Short - Public drmarc As Short - Public pmcmrc As Short - Public dmaarc As Short - Public iopt As Short - Public hdiio As Short - Public frmsub As Short - Public drmsub As Short - Public srmsub As Short - Public sv5sub As Short - Public sv7sub As Short - Public sicsub As Short - Public possub As Short - Public hamsub As Short - Public gm2gr1 As Short - Public crtgr2 As Short - Public gm1gr2 As Short - Public gm2gr2 As Short - Public cmmrb As Short - Public sv5axs As Short - Public sv7axs As Short - Public sicaxs As Short - Public posaxs As Short - Public hanaxs As Short - Public romr64 As Short - Public srmr64 As Short - Public dr1r64 As Short - Public dr2r64 As Short - Public iopio2 As Short - Public hdiio2 As Short - Public cmmrb2 As Short - Public romfap As Short - Public srmfap As Short - Public drmfap As Short - End Structure - - ' cnc_rdprstrinfo:read program restart information - - Public Structure ODBPRS - Public datano As Short ' dummy - Public type As Short ' dummy - - Public data_info As Short() ' data setting information - Public rstr_bc As Integer ' block counter - - Public rstr_m As Integer() ' M code value - - Public rstr_t As Integer() ' T code value - Public rstr_s As Integer ' S code value - Public rstr_b As Integer ' B code value - - Public dest As Integer() ' program re-start position - - Public dist As Integer() ' program re-start distance - End Structure - -#If FS15D Then - ' cnc_rdopnlsgnl:read output signal image of software operator's panel - ' cnc_wropnlsgnl:write output signal of software operator's panel - _ - Public Structure IODBSGNL - Public datano As Short ' dummy - Public type As Short ' data select flag - Public mode As Short ' mode signal - Public hndl_ax As Short ' Manual handle feed axis selection signal - Public hndl_mv As Short ' Manual handle feed travel distance selection signal - Public rpd_ovrd As Short ' rapid traverse override signal - Public jog_ovrd As Short ' manual feedrate override signal - Public feed_ovrd As Short ' feedrate override signal - Public spdl_ovrd As Short ' spindle override signal - Public blck_del As Short ' optional block skip signal - Public sngl_blck As Short ' single block signal - Public machn_lock As Short' machine lock signal - Public dry_run As Short ' dry run signal - Public mem_prtct As Short ' memory protection signal - Public feed_hold As Short ' automatic operation halt signal - Public manual_rpd As Short' (not used) - _ - Public dummy As Short() ' (not used) - End Structure -#Else - ' cnc_rdopnlsgnl:read output signal image of software operator's panel - ' cnc_wropnlsgnl:write output signal of software operator's panel - - Public Structure IODBSGNL - Public datano As Short ' dummy - Public type As Short ' data select flag - Public mode As Short ' mode signal - Public hndl_ax As Short ' Manual handle feed axis selection signal - Public hndl_mv As Short ' Manual handle feed travel distance selection signal - Public rpd_ovrd As Short ' rapid traverse override signal - Public jog_ovrd As Short ' manual feedrate override signal - Public feed_ovrd As Short ' feedrate override signal - Public spdl_ovrd As Short ' (not used) - Public blck_del As Short ' optional block skip signal - Public sngl_blck As Short ' single block signal - Public machn_lock As Short ' machine lock signal - Public dry_run As Short ' dry run signal - Public mem_prtct As Short ' memory protection signal - Public feed_hold As Short ' automatic operation halt signal - End Structure -#End If - - ' cnc_rdopnlgnrl:read general signal image of software operator's panel - ' cnc_wropnlgnrl:write general signal image of software operator's panel - - Public Structure IODBGNRL - Public datano As Short ' dummy - Public type As Short ' data select flag - Public sgnal As Byte ' general signal - End Structure - - ' cnc_rdopnlgsname:read general signal name of software operator's panel - ' cnc_wropnlgsname:write general signal name of software operator's panel - - Public Structure IODBRDNA - Public datano As Short ' dummy - Public type As Short ' data select flag - - Public sgnl1_name As String ' general signal 1 name - - Public sgnl2_name As String ' general signal 2 name - - Public sgnl3_name As String ' general signal 3 name - - Public sgnl4_name As String ' general signal 4 name - - Public sgnl5_name As String ' general signal 5 name - - Public sgnl6_name As String ' general signal 6 name - - Public sgnl7_name As String ' general signal 7 name - - Public sgnl8_name As String ' general signal 8 name - End Structure - - ' cnc_getdtailerr:get detail error - - Public Structure ODBERR - Public err_no As Short - Public err_dtno As Short - End Structure - - - ' cnc_rdparainfo:read informations of CNC parameter - - Public Structure ODBPARAIF_info - Public prm_no As Short - Public prm_type As Short - End Structure - - Public Structure ODBPARAIF1 - Public info1 As ODBPARAIF_info - Public info2 As ODBPARAIF_info - Public info3 As ODBPARAIF_info - Public info4 As ODBPARAIF_info - Public info5 As ODBPARAIF_info - Public info6 As ODBPARAIF_info - Public info7 As ODBPARAIF_info - Public info8 As ODBPARAIF_info - Public info9 As ODBPARAIF_info - Public info10 As ODBPARAIF_info - End Structure ' In case that the number of data is 10 - - Public Structure ODBPARAIF - Public info_no As Short ' C# ushort - Public prev_no As Short - Public next_no As Short - Public info As ODBPARAIF1 - End Structure - - ' cnc_rdsetinfo:read informations of CNC setting data - - Public Structure ODBSETIF_info - Public set_no As Short - Public set_type As Short - End Structure - - Public Structure ODBSETIF1 - Public info1 As ODBSETIF_info - Public info2 As ODBSETIF_info - Public info3 As ODBSETIF_info - Public info4 As ODBSETIF_info - Public info5 As ODBSETIF_info - Public info6 As ODBSETIF_info - Public info7 As ODBSETIF_info - Public info8 As ODBSETIF_info - Public info9 As ODBSETIF_info - Public info10 As ODBSETIF_info - End Structure ' In case that the number of data is 10 - - Public Structure ODBSETIF - Public info_no As Short 'C# ushort - Public prev_no As Short - Public next_no As Short - Public info As ODBSETIF1 - End Structure - - ' cnc_rddiaginfo:read informations of CNC diagnose data - - Public Structure ODBDIAGIF_info - Public diag_no As Short - Public diag_type As Short - End Structure - - Public Structure ODBDIAGIF1 - Public info1 As ODBDIAGIF_info - Public info2 As ODBDIAGIF_info - Public info3 As ODBDIAGIF_info - Public info4 As ODBDIAGIF_info - Public info5 As ODBDIAGIF_info - Public info6 As ODBDIAGIF_info - Public info7 As ODBDIAGIF_info - Public info8 As ODBDIAGIF_info - Public info9 As ODBDIAGIF_info - Public info10 As ODBDIAGIF_info - End Structure ' In case that the number of data is 10 - - Public Structure ODBDIAGIF - Public info_no As Short ' C# ushort - Public prev_no As Short - Public next_no As Short - Public info As ODBDIAGIF1 - End Structure - - ' cnc_rdparanum:read maximum, minimum and total number of CNC parameter - - Public Structure ODBPARANUM - Public para_min As Short ' C# ushort - Public para_max As Short ' C# ushort - Public total_no As Short ' C# ushort - End Structure - - ' cnc_rdsetnum:read maximum, minimum and total number of CNC setting data - - Public Structure ODBSETNUM - Public set_min As Short ' C# ushort - Public set_max As Short ' C# ushort - Public total_no As Short ' C# ushort - End Structure - - ' cnc_rddiagnum:read maximum, minimum and total number of CNC diagnose data - - Public Structure ODBDIAGNUM - Public diag_min As Short ' C# ushort - Public diag_max As Short ' C# ushort - Public total_no As Short ' C# ushort - End Structure - - ' cnc_rdfrominfo:read F-ROM information on CNC - - Public Structure ODBFINFO_info - - Public sysname As String ' F-ROM SYSTEM data Name - Public fromsize As Integer ' F-ROM Size - End Structure - - Public Structure ODBFINFO1 - Public info1 As ODBFINFO_info - Public info2 As ODBFINFO_info - Public info3 As ODBFINFO_info - Public info4 As ODBFINFO_info - Public info5 As ODBFINFO_info - Public info6 As ODBFINFO_info - Public info7 As ODBFINFO_info - Public info8 As ODBFINFO_info - Public info9 As ODBFINFO_info - Public info10 As ODBFINFO_info - Public info11 As ODBFINFO_info - Public info12 As ODBFINFO_info - Public info13 As ODBFINFO_info - Public info14 As ODBFINFO_info - Public info15 As ODBFINFO_info - Public info16 As ODBFINFO_info - Public info17 As ODBFINFO_info - Public info18 As ODBFINFO_info - Public info19 As ODBFINFO_info - Public info20 As ODBFINFO_info - Public info21 As ODBFINFO_info - Public info22 As ODBFINFO_info - Public info23 As ODBFINFO_info - Public info24 As ODBFINFO_info - Public info25 As ODBFINFO_info - Public info26 As ODBFINFO_info - Public info27 As ODBFINFO_info - Public info28 As ODBFINFO_info - Public info29 As ODBFINFO_info - Public info30 As ODBFINFO_info - Public info31 As ODBFINFO_info - Public info32 As ODBFINFO_info - End Structure - - Public Structure ODBFINFO - - Public slotname As String ' Slot Name - Public fromnum As Integer ' Number of F-ROM SYSTEM data - Public info As ODBFINFO1 - End Structure - - ' cnc_getfrominfo:read F-ROM information on CNC - - Public Structure ODBFINFORM_info - - Public sysname As String ' F-ROM SYSTEM data Name - Public fromsize As Integer ' F-ROM Size - Public fromattrib As Integer ' F-ROM data attribute - End Structure - - Public Structure ODBFINFORM1 - Public info1 As ODBFINFORM_info - Public info2 As ODBFINFORM_info - Public info3 As ODBFINFORM_info - Public info4 As ODBFINFORM_info - Public info5 As ODBFINFORM_info - Public info6 As ODBFINFORM_info - Public info7 As ODBFINFORM_info - Public info8 As ODBFINFORM_info - Public info9 As ODBFINFORM_info - Public info10 As ODBFINFORM_info - Public info11 As ODBFINFORM_info - Public info12 As ODBFINFORM_info - Public info13 As ODBFINFORM_info - Public info14 As ODBFINFORM_info - Public info15 As ODBFINFORM_info - Public info16 As ODBFINFORM_info - Public info17 As ODBFINFORM_info - Public info18 As ODBFINFORM_info - Public info19 As ODBFINFORM_info - Public info20 As ODBFINFORM_info - Public info21 As ODBFINFORM_info - Public info22 As ODBFINFORM_info - Public info23 As ODBFINFORM_info - Public info24 As ODBFINFORM_info - Public info25 As ODBFINFORM_info - Public info26 As ODBFINFORM_info - Public info27 As ODBFINFORM_info - Public info28 As ODBFINFORM_info - Public info29 As ODBFINFORM_info - Public info30 As ODBFINFORM_info - Public info31 As ODBFINFORM_info - Public info32 As ODBFINFORM_info - End Structure - - Public Structure ODBFINFORM - Public slotno As Integer ' Slot Number - - Public slotname As String ' Slot Name - Public fromnum As Integer ' Number of F-ROM SYSTEM data - Public info As ODBFINFORM1 - End Structure - - ' cnc_rdsraminfo:read S-RAM information on CNC - ' cnc_getsraminfo:read S-RAM information on CNC - - Public Structure ODBSINFO_info - - Public sramname As String ' S-RAM data Name - Public sramsize As Integer ' S-RAM data Size - Public divnumber As Short ' Division number of S-RAM file - - Public fname1 As String ' S-RAM data Name1 - - Public fname2 As String ' S-RAM data Name2 - - Public fname3 As String ' S-RAM data Name3 - - Public fname4 As String ' S-RAM data Name4 - - Public fname5 As String ' S-RAM data Name5 - - Public fname6 As String ' S-RAM data Name6 - End Structure - - Public Structure ODBSINFO1 - Public info1 As ODBSINFO_info - Public info2 As ODBSINFO_info - Public info3 As ODBSINFO_info - Public info4 As ODBSINFO_info - Public info5 As ODBSINFO_info - Public info6 As ODBSINFO_info - Public info7 As ODBSINFO_info - Public info8 As ODBSINFO_info - End Structure - - Public Structure ODBSINFO - Public sramnum As Integer ' Number of S-RAM data - Public info As ODBSINFO1 - End Structure - - ' cnc_rdsramaddr:read S-RAM address on CNC - - Public Structure SRAMADDR - Public type As Short ' SRAM data type - Public size As Integer ' SRAM data size - Public offset As Integer ' offset from top address of SRAM - End Structure - - ' cnc_dtsvrdpgdir:read file directory in Data Server - - Public Structure ODBDSDIR_data - - Public file_name As String - - Public comment As String - Public size As Integer - - Public sDate As String - End Structure - - Public Structure ODBDSDIR1 - Public data1 As ODBDSDIR_data - Public data2 As ODBDSDIR_data - Public data3 As ODBDSDIR_data - Public data4 As ODBDSDIR_data - Public data5 As ODBDSDIR_data - Public data6 As ODBDSDIR_data - Public data7 As ODBDSDIR_data - Public data8 As ODBDSDIR_data - Public data9 As ODBDSDIR_data - Public data10 As ODBDSDIR_data - Public data11 As ODBDSDIR_data - Public data12 As ODBDSDIR_data - Public data13 As ODBDSDIR_data - Public data14 As ODBDSDIR_data - Public data15 As ODBDSDIR_data - Public data16 As ODBDSDIR_data - Public data17 As ODBDSDIR_data - Public data18 As ODBDSDIR_data - Public data19 As ODBDSDIR_data - Public data20 As ODBDSDIR_data - Public data21 As ODBDSDIR_data - Public data22 As ODBDSDIR_data - Public data23 As ODBDSDIR_data - Public data24 As ODBDSDIR_data - Public data25 As ODBDSDIR_data - Public data26 As ODBDSDIR_data - Public data27 As ODBDSDIR_data - Public data28 As ODBDSDIR_data - Public data29 As ODBDSDIR_data - Public data30 As ODBDSDIR_data - Public data31 As ODBDSDIR_data - Public data32 As ODBDSDIR_data - End Structure - - Public Structure ODBDSDIR - Public file_num As Integer - Public remainder As Integer - Public data_num As Short - Public data As ODBDSDIR1 - End Structure - - ' cnc_dtsvrdset:read setting data for Data Server - ' cnc_dtsvwrset:write setting data for Data Server - - Public Structure IODBDSSET - - Public host_ip As String - - Public host_uname As String - - Public host_passwd As String - - Public host_dir As String - - Public dtsv_mac As String - - Public dtsv_ip As String - - Public dtsv_mask As String - End Structure - - ' cnc_dtsvmntinfo:read maintenance information for Data Server - - Public Structure ODBDSMNT - Public empty_cnt As Integer - Public total_size As Integer - Public read_ptr As Integer - Public write_ptr As Integer - End Structure - - ' cnc_rdposerrs2:read the position deviation S1 and S2 - - Public Structure ODBPSER - Public poserr1 As Integer - Public poserr2 As Integer - End Structure - - ' cnc_rdctrldi:read the control input signal - - Public Structure ODBSPDI_data - Public sgnl1 As Byte - Public sgnl2 As Byte - Public sgnl3 As Byte - Public sgnl4 As Byte - End Structure - - Public Structure ODBSPDI - Public di1 As ODBSPDI_data - Public di2 As ODBSPDI_data - Public di3 As ODBSPDI_data - Public di4 As ODBSPDI_data - End Structure - - ' cnc_rdctrldo:read the control output signal - - Public Structure ODBSPDO_data - Public sgnl1 As Byte - Public sgnl2 As Byte - Public sgnl3 As Byte - Public sgnl4 As Byte - End Structure - - Public Structure ODBSPDO - Public do1 As ODBSPDO_data - Public do2 As ODBSPDO_data - Public do3 As ODBSPDO_data - Public do4 As ODBSPDO_data - End Structure - - ' cnc_rdwaveprm:read the parameter of wave diagnosis - ' cnc_wrwaveprm:write the parameter of wave diagnosis - - Public Structure IODBWAVE_io - Public adr As Byte - Public bit As Byte - Public no As Short - End Structure - - Public Structure IODBWAVE_axis - Public axis As Short - End Structure - - Public Structure IODBWAVE_u - - Public io As IODBWAVE_io - - Public axis As IODBWAVE_axis - End Structure - - Public Structure IODBWAVE_ch_data - Public kind As Short - Public u As IODBWAVE_u - End Structure - - Public Structure IODBWAVE_ch - Public ch1 As IODBWAVE_ch_data - Public ch2 As IODBWAVE_ch_data - Public ch3 As IODBWAVE_ch_data - Public ch4 As IODBWAVE_ch_data - Public ch5 As IODBWAVE_ch_data - Public ch6 As IODBWAVE_ch_data - Public ch7 As IODBWAVE_ch_data - Public ch8 As IODBWAVE_ch_data - Public ch9 As IODBWAVE_ch_data - Public ch10 As IODBWAVE_ch_data - Public ch11 As IODBWAVE_ch_data - Public ch12 As IODBWAVE_ch_data - End Structure - - Public Structure IODBWAVE - Public condition As Short - Public trg_adr As Char - Public trg_bit As Byte - Public trg_no As Short - Public delay As Short - Public t_range As Short - Public ch As IODBWAVE_ch - End Structure - - ' cnc_rdwaveprm2:read the parameter of wave diagnosis 2 - ' cnc_wrwaveprm2:write the parameter of wave diagnosis 2 - - Public Structure IODBWVPRM_io - Public adr As Byte - Public bit As Byte - Public no As Short - End Structure - - Public Structure IODBWVPRM_axis - Public axis As Short - End Structure - - Public Structure IODBWVPRM_u - - Public io As IODBWVPRM_io - - Public axis As IODBWVPRM_axis - End Structure - - Public Structure IODBWVPRM_ch_data - Public kind As Short - Public u As IODBWVPRM_u - Public reserve2 As Integer - End Structure - - Public Structure IODBWVPRM_ch - Public ch1 As IODBWVPRM_ch_data - Public ch2 As IODBWVPRM_ch_data - Public ch3 As IODBWVPRM_ch_data - Public ch4 As IODBWVPRM_ch_data - Public ch5 As IODBWVPRM_ch_data - Public ch6 As IODBWVPRM_ch_data - Public ch7 As IODBWVPRM_ch_data - Public ch8 As IODBWVPRM_ch_data - Public ch9 As IODBWVPRM_ch_data - Public ch10 As IODBWVPRM_ch_data - Public ch11 As IODBWVPRM_ch_data - Public ch12 As IODBWVPRM_ch_data - End Structure - - Public Structure IODBWVPRM - Public condition As Short - Public trg_adr As Byte - Public trg_bit As Byte - Public trg_no As Short - Public reserve1 As Short - Public delay As Integer - Public t_range As Integer - Public ch As IODBWVPRM_ch - End Structure - - ' cnc_rdwavedata:read the data of wave diagnosis - - Public Structure ODBWVDT_io - Public adr As Byte - Public bit As Byte - Public no As Short - End Structure - - Public Structure ODBWVDT_axis - Public axis As Short - End Structure - - Public Structure ODBWVDT_u - - Public io As ODBWVDT_io - - Public axis As ODBWVDT_axis - End Structure - - Public Structure ODBWVDT - Public channel As Short - Public kind As Short - Public u As ODBWVDT_u - Public year As Byte - Public month As Byte - Public day As Byte - Public hour As Byte - Public minute As Byte - Public second As Byte - Public t_cycle As Short - - Public data As Short() - End Structure - - ' cnc_rdrmtwaveprm:read the parameter of wave diagnosis for remort diagnosis - ' cnc_wrrmtwaveprm:write the parameter of wave diagnosis for remort diagnosis - - Public Structure IODBRMTPRM_alm - Public no As Short - Public axis As SByte - Public type As Byte - End Structure - - Public Structure IODBRMTPRM_io - Public adr As Char - Public bit As Byte - Public no As Short - End Structure - - Public Structure IODBRMTPRM_trg - - Public alm As IODBRMTPRM_alm - - Public io As IODBRMTPRM_alm - End Structure - - Public Structure IODBRMTPRM_smpl - Public adr As Char - Public bit As Byte - Public no As Short - End Structure - - Public Structure IODBRMTPRM1 - Public ampl1 As IODBRMTPRM_smpl - Public ampl2 As IODBRMTPRM_smpl - Public ampl3 As IODBRMTPRM_smpl - Public ampl4 As IODBRMTPRM_smpl - Public ampl5 As IODBRMTPRM_smpl - Public ampl6 As IODBRMTPRM_smpl - Public ampl7 As IODBRMTPRM_smpl - Public ampl8 As IODBRMTPRM_smpl - Public ampl9 As IODBRMTPRM_smpl - Public ampl10 As IODBRMTPRM_smpl - Public ampl11 As IODBRMTPRM_smpl - Public ampl12 As IODBRMTPRM_smpl - Public ampl13 As IODBRMTPRM_smpl - Public ampl14 As IODBRMTPRM_smpl - Public ampl15 As IODBRMTPRM_smpl - Public ampl16 As IODBRMTPRM_smpl - Public ampl17 As IODBRMTPRM_smpl - Public ampl18 As IODBRMTPRM_smpl - Public ampl19 As IODBRMTPRM_smpl - Public ampl20 As IODBRMTPRM_smpl - Public ampl21 As IODBRMTPRM_smpl - Public ampl22 As IODBRMTPRM_smpl - Public ampl23 As IODBRMTPRM_smpl - Public ampl24 As IODBRMTPRM_smpl - Public ampl25 As IODBRMTPRM_smpl - Public ampl26 As IODBRMTPRM_smpl - Public ampl27 As IODBRMTPRM_smpl - Public ampl28 As IODBRMTPRM_smpl - Public ampl29 As IODBRMTPRM_smpl - Public ampl30 As IODBRMTPRM_smpl - Public ampl31 As IODBRMTPRM_smpl - Public ampl32 As IODBRMTPRM_smpl - End Structure - - Public Structure IODBRMTPRM - Public condition As Short - Public reserve As Short - Public trg As IODBRMTPRM_trg - Public delay As Integer - Public wv_intrvl As Short - Public io_intrvl As Short - Public kind1 As Short - Public kind2 As Short - Public ampl As IODBRMTPRM1 - End Structure - - ' cnc_rdrmtwavedt:read the data of wave diagnosis for remort diagnosis - - Public Structure ODBRMTDT - Public channel As Short - Public kind As Short - Public year As Byte - Public month As Byte - Public day As Byte - Public hour As Byte - Public minute As Byte - Public second As Byte - Public t_intrvl As Short - Public trg_data As Short - Public ins_ptr As Integer - Public t_delta As Short - - Public data As Short() - End Structure - - ' cnc_rdsavsigadr:read of address for PMC signal batch save - ' cnc_wrsavsigadr:write of address for PMC signal batch save - - Public Structure IODBSIGAD - Public adr As Byte - Public reserve As Byte - Public no As Short - Public size As Short - End Structure - - ' cnc_rdmgrpdata:read M-code group data - - Public Structure ODBMGRP_data - Public m_code As Integer - Public grp_no As Short - - Public m_name As String - Public dummy As Byte - End Structure - - Public Structure ODBMGRP - Public mgrp1 As ODBMGRP_data - Public mgrp2 As ODBMGRP_data - Public mgrp3 As ODBMGRP_data - Public mgrp4 As ODBMGRP_data - Public mgrp5 As ODBMGRP_data - Public mgrp6 As ODBMGRP_data - Public mgrp7 As ODBMGRP_data - Public mgrp8 As ODBMGRP_data - Public mgrp9 As ODBMGRP_data - Public mgrp10 As ODBMGRP_data - End Structure - - ' cnc_wrmgrpdata:write M-code group data - - Public Structure IDBMGRP - Public s_no As Short - Public dummy As Short - Public num As Short - - Public group As Short() - End Structure - - ' cnc_rdexecmcode:read executing M-code group data - - Public Structure ODBEXEM_data - Public no As Integer - Public flag As Short - End Structure - - Public Structure ODBEXEM1 - Public m_code1 As ODBEXEM_data - Public m_code2 As ODBEXEM_data - Public m_code3 As ODBEXEM_data - Public m_code4 As ODBEXEM_data - Public m_code5 As ODBEXEM_data - End Structure - - Public Structure ODBEXEM - Public grp_no As Short - Public mem_no As Short - Public m_code As ODBEXEM1 - - Public m_name As String - Public dummy As Byte - End Structure - - ' cnc_rdrstrmcode:read program restart M-code group data - - Public Structure M_CODE_data - Public no As Integer - Public flag As Short - End Structure - - Public Structure M_CODE1 - Public m_code1 As M_CODE_data - Public m_code2 As M_CODE_data - Public m_code3 As M_CODE_data - Public m_code4 As M_CODE_data - Public m_code5 As M_CODE_data - End Structure - - Public Structure ODBRSTRM - Public grp_no As Short - Public mem_no As Short - Public m_code As M_CODE1 - End Structure - - ' cnc_rdproctime:read processing time stamp data - - Public Structure ODBPTIME_data - Public prg_no As Integer - Public hour As Short - Public minute As Byte - Public second As Byte - End Structure - - Public Structure ODBPTIME1 - Public data1 As ODBPTIME_data - Public data2 As ODBPTIME_data - Public data3 As ODBPTIME_data - Public data4 As ODBPTIME_data - Public data5 As ODBPTIME_data - Public data6 As ODBPTIME_data - Public data7 As ODBPTIME_data - Public data8 As ODBPTIME_data - Public data9 As ODBPTIME_data - Public data10 As ODBPTIME_data - End Structure ' In case that the number of data is 10 - - Public Structure ODBPTIME - Public num As Short - Public data As ODBPTIME1 - End Structure - - ' cnc_rdprgdirtime:read program directory for processing time data - - Public Structure PRGDIRTM_data - Public prg_no As Integer - - Public m_name As String - - Public cuttime As String - End Structure - - Public Structure PRGDIRTM - Public data1 As PRGDIRTM_data - Public data2 As PRGDIRTM_data - Public data3 As PRGDIRTM_data - Public data4 As PRGDIRTM_data - Public data5 As PRGDIRTM_data - Public data6 As PRGDIRTM_data - Public data7 As PRGDIRTM_data - Public data8 As PRGDIRTM_data - Public data9 As PRGDIRTM_data - Public data10 As PRGDIRTM_data - End Structure ' In case that the number of data is 10 - - ' cnc_rdprogdir2:read program directory 2 -#If ONO8D = Nothing Then - - Public Structure PRGDIR2_data - Public number As Short - Public length As Integer - - Public comment As String - Public dummy As Byte - End Structure -#Else - _ - Public Structure PRGDIR2_data - Public number As Integer - Public length As Integer - _ - Public comment As String - Public dummy As Byte - End Structure -#End If - - Public Structure PRGDIR2 - Public dir1 As PRGDIR2_data - Public dir2 As PRGDIR2_data - Public dir3 As PRGDIR2_data - Public dir4 As PRGDIR2_data - Public dir5 As PRGDIR2_data - Public dir6 As PRGDIR2_data - Public dir7 As PRGDIR2_data - Public dir8 As PRGDIR2_data - Public dir9 As PRGDIR2_data - Public dir10 As PRGDIR2_data - End Structure ' In case that the number of data is 10 - - ' cnc_rdprogdir3:read program directory 3 - - Public Structure DIR3_MDATE - Public year As Short - Public month As Short - Public day As Short - Public hour As Short - Public minute As Short - Public dummy As Short - End Structure - - Public Structure DIR3_CDATE - Public year As Short - Public month As Short - Public day As Short - Public hour As Short - Public minute As Short - Public dummy As Short - End Structure - - Public Structure PRGDIR3_data - Public number As Integer - Public length As Integer - Public page As Integer - - Public comment As String - Public mdate As DIR3_MDATE - Public cdate1 As DIR3_CDATE - End Structure - - Public Structure PRGDIR3 - Public dir1 As PRGDIR3_data - Public dir2 As PRGDIR3_data - Public dir3 As PRGDIR3_data - Public dir4 As PRGDIR3_data - Public dir5 As PRGDIR3_data - Public dir6 As PRGDIR3_data - Public dir7 As PRGDIR3_data - Public dir8 As PRGDIR3_data - Public dir9 As PRGDIR3_data - Public dir10 As PRGDIR3_data - End Structure ' In case that the number of data is 10 - - ' cnc_rdprogdir4:read program directory 4 - - Public Structure DIR4_MDATE - Public year As Short - Public month As Short - Public day As Short - Public hour As Short - Public minute As Short - Public dummy As Short - End Structure - - Public Structure DIR4_CDATE - Public year As Short - Public month As Short - Public day As Short - Public hour As Short - Public minute As Short - Public dummy As Short - End Structure - - Public Structure PRGDIR4_data - Public number As Integer - Public length As Integer - Public page As Integer - - Public comment As String - Public mdate As DIR3_MDATE - Public cdate1 As DIR3_CDATE - End Structure - - Public Structure PRGDIR4 - Public dir1 As PRGDIR4_data - Public dir2 As PRGDIR4_data - Public dir3 As PRGDIR4_data - Public dir4 As PRGDIR4_data - Public dir5 As PRGDIR4_data - Public dir6 As PRGDIR4_data - Public dir7 As PRGDIR4_data - Public dir8 As PRGDIR4_data - Public dir9 As PRGDIR4_data - Public dir10 As PRGDIR4_data - End Structure ' In case that the number of data is 10 - - ' cnc_rdcomparam:read communication parameter for DNC1, DNC2, OSI-Ethernet - ' cnc_wrcomparam:write communication parameter for DNC1, DNC2, OSI-Ethernet - - Public Structure IODBCPRM - - Public NcApli As String - Public Dummy1 As Byte - - Public HostApli As String - Public Dummy2 As Byte - Public StatPstv As Integer ' C# uint - Public StatNgtv As Integer ' C# uint - Public Statmask As Integer ' C# uint - Public AlarmStat As Integer ' C# uint - Public PsclHaddr As Integer ' C# uint - Public PsclLaddr As Integer ' C# uint - Public SvcMode1 As Short ' C# ushort - Public SvcMode2 As Short ' C# ushort - Public FileTout As Integer - Public RemTout As Integer - End Structure - - ' cnc_rdintchk:read interference check - ' cnc_wrintchk:write interference check - - Public Structure IODBINT - Public datano_s As Short ' start offset No. - Public type As Short ' kind of position - Public datano_e As Short ' end offset No. - - Public data As Integer() ' position value of area for not attach - End Structure - - ' cnc_rdwkcdshft:read work coordinate shift - ' cnc_wrwkcdshft:write work coordinate shift - ' cnc_rdwkcdsfms:read work coordinate shift measure - ' cnc_wrwkcdsfms:write work coordinate shift measure - - Public Structure IODBWCSF - Public datano As Short ' datano - Public type As Short ' axis number - - Public data As Integer() ' data - End Structure - - ' cnc_rdomhisinfo:read operator message history information - - Public Structure ODBOMIF - Public om_max As Short ' maximum operator message history C# ushort - Public om_sum As Short ' actually operator message history C# ushort - Public om_char As Short ' maximum character (include NULL) C# ushort - End Structure - - ' cnc_rdomhistry:read operator message history - - Public Structure ODBOMHIS_data - Public om_no As Short ' operator message number - Public year As Short ' year - Public month As Short ' month - Public day As Short ' day - Public hour As Short ' hour - Public minute As Short ' mimute - Public second As Short ' second - - Public om_msg As String - End Structure - - Public Structure ODBOMHIS - Public omhis1 As ODBOMHIS_data - Public omhis2 As ODBOMHIS_data - Public omhis3 As ODBOMHIS_data - Public omhis4 As ODBOMHIS_data - Public omhis5 As ODBOMHIS_data - Public omhis6 As ODBOMHIS_data - Public omhis7 As ODBOMHIS_data - Public omhis8 As ODBOMHIS_data - Public omhis9 As ODBOMHIS_data - Public omhis10 As ODBOMHIS_data - End Structure ' In case that the number of data is 10 - - ' cnc_rdbtofsr:read b-axis tool offset value(area specified) - ' cnc_wrbtofsr:write b-axis tool offset value(area specified) - - Public Structure IODBBTO - Public datano_s As Short ' start offset number - Public type As Short ' offset type - Public datano_e As Short ' end offset number - - Public ofs As Integer() ' offset - End Structure ' In case that the number of data is 9 (B type) - - ' cnc_rdbtofsinfo:read b-axis tool offset information - - Public Structure ODBBTLINF - Public ofs_type As Short ' memory type - Public use_no As Short ' sum of b-axis offset - Public sub_no As Short ' sub function number of offset cancel - End Structure - - ' cnc_rdbaxis:read b-axis command - - Public Structure ODBBAXIS - Public flag As Short ' b-axis command exist or not - Public command As Short ' b-axis command - Public speed As Short ' b-axis speed C# ushort - Public sub_data As Integer ' b-axis sub data - End Structure - - ' cnc_rdsyssoft:read CNC system soft series and version - - Public Structure ODBSYSS - - Public slot_no_p As Byte() - - Public slot_no_l As Byte() - - Public module_id As Short() - - Public soft_id As Short() - - Public soft_series1 As String - - Public soft_series2 As String - - Public soft_series3 As String - - Public soft_series4 As String - - Public soft_series5 As String - - Public soft_series6 As String - - Public soft_series7 As String - - Public soft_series8 As String - - Public soft_series9 As String - - Public soft_series10 As String - - Public soft_series11 As String - - Public soft_series12 As String - - Public soft_series13 As String - - Public soft_series14 As String - - Public soft_series15 As String - - Public soft_series16 As String - - Public soft_version1 As String - - Public soft_version2 As String - - Public soft_version3 As String - - Public soft_version4 As String - - Public soft_version5 As String - - Public soft_version6 As String - - Public soft_version7 As String - - Public soft_version8 As String - - Public soft_version9 As String - - Public soft_version10 As String - - Public soft_version11 As String - - Public soft_version12 As String - - Public soft_version13 As String - - Public soft_version14 As String - - Public soft_version15 As String - - Public soft_version16 As String - Public soft_inst As Short - - Public boot_ser As String - - Public boot_ver As String - - Public servo_ser As String - - Public servo_ver As String - - Public pmc_ser As String - - Public pmc_ver As String - - Public ladder_ser As String - - Public ladder_ver As String - - Public mcrlib_ser As String - - Public mcrlib_ver As String - - Public mcrapl_ser As String - - Public mcrapl_ver As String - - Public spl1_ser As String - - Public spl1_ver As String - - Public spl2_ser As String - - Public spl2_ver As String - - Public spl3_ser As String - - Public spl3_ver As String - - Public c_exelib_ser As String - - Public c_exelib_ver As String - - Public c_exeapl_ser As String - - Public c_exeapl_ver As String - - Public int_vga_ser As String - - Public int_vga_ver As String - - Public out_vga_ser As String - - Public out_vga_ver As String - - Public pmm_ser As String - - Public pmm_ver As String - - Public pmc_mng_ser As String - - Public pmc_mng_ver As String - - Public pmc_shin_ser As String - - Public pmc_shin_ver As String - - Public pmc_shout_ser As String - - Public pmc_shout_ver As String - - Public pmc_c_ser As String - - Public pmc_c_ver As String - - Public pmc_edit_ser As String - - Public pmc_edit_ver As String - - Public lddr_mng_ser As String - - Public lddr_mng_ver As String - - Public lddr_apl_ser As String - - Public lddr_apl_ver As String - - Public spl4_ser As String - - Public spl4_ver As String - - Public mcr2_ser As String - - Public mcr2_ver As String - - Public mcr3_ser As String - - Public mcr3_ver As String - - Public eth_boot_ser As String - - Public eth_boot_ver As String - - Public reserve As Byte() - End Structure - - ' cnc_rdsyssoft2:read CNC system soft series and version (2) - - Public Structure ODBSYSS2 - - Public slot_no_p As Byte() - - Public slot_no_l As Byte() - - Public module_id As Short() - - Public soft_id As Short() - - Public soft_series1 As String - - Public soft_series2 As String - - Public soft_series3 As String - - Public soft_series4 As String - - Public soft_series5 As String - - Public soft_series6 As String - - Public soft_series7 As String - - Public soft_series8 As String - - Public soft_series9 As String - - Public soft_series10 As String - - Public soft_series11 As String - - Public soft_series12 As String - - Public soft_series13 As String - - Public soft_series14 As String - - Public soft_series15 As String - - Public soft_series16 As String - - Public soft_version1 As String - - Public soft_version2 As String - - Public soft_version3 As String - - Public soft_version4 As String - - Public soft_version5 As String - - Public soft_version6 As String - - Public soft_version7 As String - - Public soft_version8 As String - - Public soft_version9 As String - - Public soft_version10 As String - - Public soft_version11 As String - - Public soft_version12 As String - - Public soft_version13 As String - - Public soft_version14 As String - - Public soft_version15 As String - - Public soft_version16 As String - Public soft_inst As Short - - Public boot_ser As String - - Public boot_ver As String - - Public servo_ser As String - - Public servo_ver As String - - Public pmc_ser As String - - Public pmc_ver As String - - Public ladder_ser As String - - Public ladder_ver As String - - Public mcrlib_ser As String - - Public mcrlib_ver As String - - Public mcrapl_ser As String - - Public mcrapl_ver As String - - Public spl1_ser As String - - Public spl1_ver As String - - Public spl2_ser As String - - Public spl2_ver As String - - Public spl3_ser As String - - Public spl3_ver As String - - Public c_exelib_ser As String - - Public c_exelib_ver As String - - Public c_exeapl_ser As String - - Public c_exeapl_ver As String - - Public int_vga_ser As String - - Public int_vga_ver As String - - Public out_vga_ser As String - - Public out_vga_ver As String - - Public pmm_ser As String - - Public pmm_ver As String - - Public pmc_mng_ser As String - - Public pmc_mng_ver As String - - Public pmc_shin_ser As String - - Public pmc_shin_ver As String - - Public pmc_shout_ser As String - - Public pmc_shout_ver As String - - Public pmc_c_ser As String - - Public pmc_c_ver As String - - Public pmc_edit_ser As String - - Public pmc_edit_ver As String - - Public lddr_mng_ser As String - - Public lddr_mng_ver As String - - Public lddr_apl_ser As String - - Public lddr_apl_ver As String - - Public spl4_ser As String - - Public spl4_ver As String - - Public mcr2_ser As String - - Public mcr2_ver As String - - Public mcr3_ser As String - - Public mcr3_ver As String - - Public eth_boot_ser As String - - Public eth_boot_ver As String - - Public reserve As Byte() - - Public embEthe_ser As String - - Public embEthe_ver As String - - Public reserve2 As Byte() - End Structure - - '@cnc_rdsyssoft3:read CNC system soft series and version (3) - - Public Structure ODBSYSS3_data - Public soft_id As Short - - Public soft_series As Char() - - Public soft_edition As Char() - End Structure - - - Public Structure ODBSYSS3 - Public p1 As ODBSYSS3_data - Public p2 As ODBSYSS3_data - Public p3 As ODBSYSS3_data - Public p4 As ODBSYSS3_data - Public p5 As ODBSYSS3_data - Public p6 As ODBSYSS3_data - Public p7 As ODBSYSS3_data - Public p8 As ODBSYSS3_data - Public p9 As ODBSYSS3_data - Public p10 As ODBSYSS3_data - Public p11 As ODBSYSS3_data - Public p12 As ODBSYSS3_data - Public p13 As ODBSYSS3_data - Public p14 As ODBSYSS3_data - Public p15 As ODBSYSS3_data - Public p16 As ODBSYSS3_data - Public p17 As ODBSYSS3_data - Public p18 As ODBSYSS3_data - Public p19 As ODBSYSS3_data - Public p20 As ODBSYSS3_data - Public p21 As ODBSYSS3_data - Public p22 As ODBSYSS3_data - Public p23 As ODBSYSS3_data - Public p24 As ODBSYSS3_data - Public p25 As ODBSYSS3_data - Public p26 As ODBSYSS3_data - Public p27 As ODBSYSS3_data - Public p28 As ODBSYSS3_data - Public p29 As ODBSYSS3_data - Public p30 As ODBSYSS3_data - Public p31 As ODBSYSS3_data - Public p32 As ODBSYSS3_data - Public p33 As ODBSYSS3_data - Public p34 As ODBSYSS3_data - Public p35 As ODBSYSS3_data - Public p36 As ODBSYSS3_data - Public p37 As ODBSYSS3_data - Public p38 As ODBSYSS3_data - Public p39 As ODBSYSS3_data - Public p40 As ODBSYSS3_data - End Structure - - ' cnc_rdsyshard:read CNC system hard info - - Public Structure ODBSYSH_data - Public id1 As Integer - Public id2 As Integer - Public group_id As Short - Public hard_id As Short - Public hard_num As Short - Public slot_no As Short - Public id1_format As Short - Public id2_format As Short - End Structure - - Public Structure ODBSYSH - Public data1 As ODBSYSH_data - Public data2 As ODBSYSH_data - Public data3 As ODBSYSH_data - Public data4 As ODBSYSH_data - Public data5 As ODBSYSH_data - Public data6 As ODBSYSH_data - Public data7 As ODBSYSH_data - Public data8 As ODBSYSH_data - Public data9 As ODBSYSH_data - Public data10 As ODBSYSH_data - Public data11 As ODBSYSH_data - Public data12 As ODBSYSH_data - Public data13 As ODBSYSH_data - Public data14 As ODBSYSH_data - Public data15 As ODBSYSH_data - Public data16 As ODBSYSH_data - Public data17 As ODBSYSH_data - Public data18 As ODBSYSH_data - Public data19 As ODBSYSH_data - Public data20 As ODBSYSH_data - Public data21 As ODBSYSH_data - Public data22 As ODBSYSH_data - Public data23 As ODBSYSH_data - Public data24 As ODBSYSH_data - Public data25 As ODBSYSH_data - End Structure - - ' cnc_rdmdlconfig:read CNC module configuration information - - Public Structure ODBMDLC - Public from As Short - Public dram As Short - Public sram As Short - Public pmc As Short - Public crtc As Short - Public servo12 As Short - Public servo34 As Short - Public servo56 As Short - Public servo78 As Short - Public sic As Short - Public pos_lsi As Short - Public hi_aio As Short - - Public reserve As Short() - Public drmmrc As Short - Public drmarc As Short - Public pmcmrc As Short - Public dmaarc As Short - Public iopt As Short - Public hdiio As Short - Public gm2gr1 As Short - Public crtgr2 As Short - Public gm1gr2 As Short - Public gm2gr2 As Short - Public cmmrb As Short - Public sv5axs As Short - Public sv7axs As Short - Public sicaxs As Short - Public posaxs As Short - Public hamaxs As Short - Public romr64 As Short - Public srmr64 As Short - Public dr1r64 As Short - Public dr2r64 As Short - Public iopio2 As Short - Public hdiio2 As Short - Public cmmrb2 As Short - Public romfap As Short - Public srmfap As Short - Public drmfap As Short - Public drmare As Short - Public pmcmre As Short - Public dmaare As Short - Public frmbgg As Short - Public drmbgg As Short - Public asrbgg As Short - Public edtpsc As Short - Public slcpsc As Short - - Public reserve2 As Short() - End Structure - - ' cnc_rdpscdproc:read processing condition file (processing data) - ' cnc_wrpscdproc:write processing condition file (processing data) - - Public Structure IODBPSCD_data - Public slct As Short - Public feed As Integer - Public power As Short - Public freq As Short - Public duty As Short - Public g_press As Short - Public g_kind As Short - Public g_ready_t As Short - Public displace As Short - Public supple As Integer - Public edge_slt As Short - Public appr_slt As Short - - Public reserve As Short() - End Structure - - Public Structure IODBPSCD - Public data1 As IODBPSCD_data - Public data2 As IODBPSCD_data - Public data3 As IODBPSCD_data - Public data4 As IODBPSCD_data - Public data5 As IODBPSCD_data - Public data6 As IODBPSCD_data - Public data7 As IODBPSCD_data - Public data8 As IODBPSCD_data - Public data9 As IODBPSCD_data - Public data10 As IODBPSCD_data - End Structure ' In case that the number of data is 10 - - ' cnc_rdpscdpirc:read processing condition file (piercing data) - ' cnc_wrpscdpirc:write processing condition file (piercing data) - - Public Structure IODBPIRC_data - Public slct As Short - Public power As Short - Public freq As Short - Public duty As Short - Public i_freq As Short - Public i_duty As Short - Public step_t As Short - Public step_sum As Short - Public pier_t As Integer - Public g_press As Short - Public g_kind As Short - Public g_time As Short - Public def_pos As Short - - Public reserve As Short() - End Structure - - Public Structure IODBPIRC - Public data1 As IODBPIRC_data - Public data2 As IODBPIRC_data - Public data3 As IODBPIRC_data - End Structure - - ' cnc_rdpscdedge:read processing condition file (edging data) - ' cnc_wrpscdedge:write processing condition file (edging data) - - Public Structure IODBEDGE_data - Public slct As Short - Public angle As Short - Public power As Short - Public freq As Short - Public duty As Short - Public pier_t As Integer - Public g_press As Short - Public g_kind As Short - Public r_len As Integer - Public r_feed As Short - Public r_freq As Short - Public r_duty As Short - - Public reserve As Short() - End Structure - - Public Structure IODBEDGE - Public data1 As IODBEDGE_data - Public data2 As IODBEDGE_data - Public data3 As IODBEDGE_data - Public data4 As IODBEDGE_data - Public data5 As IODBEDGE_data - End Structure - - ' cnc_rdpscdslop:read processing condition file (slope data) - ' cnc_wrpscdslop:write processing condition file (slope data) - - Public Structure IODBSLOP_data - Public slct As Integer - Public upleng As Integer - - Public upsp As Short() - Public dwleng As Integer - - Public dwsp As Short() - - Public reserve As Short() - End Structure - - Public Structure IODBSLOP - Public data1 As IODBSLOP_data - Public data2 As IODBSLOP_data - Public data3 As IODBSLOP_data - Public data4 As IODBSLOP_data - Public data5 As IODBSLOP_data - End Structure - - ' cnc_rdlpwrdty:read power controll duty data - ' cnc_wrlpwrdty:write power controll duty data - - Public Structure IODBLPWDT - Public slct As Short - Public dty_const As Short - Public dty_min As Short - - Public reserve As Short() - End Structure - - ' cnc_rdlpwrdat:read laser power data - - Public Structure ODBLOPDT - Public slct As Short - Public pwr_mon As Short - Public pwr_ofs As Short - Public pwr_act As Short - Public feed_act As Integer - - Public reserve As Short() - End Structure - - ' cnc_rdlagslt:read laser assist gas selection - ' cnc_wrlagslt:write laser assist gas selection - - Public Structure IODBLAGSL - Public slct As Short - Public ag_slt As Short - Public agflow_slt As Short - - Public reserve As Short() - End Structure - - ' cnc_rdlagst:read laser assist gas flow - ' cnc_wrlagst:write laser assist gas flow - - Public Structure GASFLOW - Public slct As Short - Public pre_time As Short - Public pre_press As Short - Public proc_press As Short - Public end_time As Short - Public end_press As Short - - Public reserve As Short() - End Structure - - Public Structure IODBLAGST - Public data1 As GASFLOW - Public data2 As GASFLOW - Public data3 As GASFLOW - End Structure - - ' cnc_rdledgprc:read laser power for edge processing - ' cnc_wrledgprc:write laser power for edge processing - - Public Structure IODBLEGPR - Public slct As Short - Public power As Short - Public freq As Short - Public duty As Short - - Public reserve As Short() - End Structure - - ' cnc_rdlprcprc:read laser power for piercing - ' cnc_wrlprcprc:write laser power for piercing - - Public Structure IODBLPCPR - Public slct As Short - Public power As Short - Public freq As Short - Public duty As Short - Public time As Integer - - Public reserve As Short() - End Structure - - ' cnc_rdlcmddat:read laser command data - - Public Structure ODBLCMDT - Public slct As Short - Public feed As Integer - Public power As Short - Public freq As Short - Public duty As Short - Public g_kind As Short - Public g_ready_t As Short - Public g_press As Short - Public error1 As Short - Public dsplc As Integer - - Public reserve As Short() - End Structure - - ' cnc_rdlactnum:read active number - - Public Structure ODBLACTN - Public slct As Short - Public act_proc As Short - Public act_pirce As Short - Public act_slop As Short - - Public reserve As Short() - End Structure - - ' cnc_rdlcmmt:read laser comment - - Public Structure ODBLCMMT - - Public comment As String - End Structure - - ' cnc_rdpwofsthis:read power correction factor history data - - Public Structure ODBPWOFST_data - Public pwratio As Integer - Public rfvolt As Integer - Public year As Short ' C# ushort - Public month As Short ' C# ushort - Public day As Short ' C# ushort - Public hour As Short ' C# ushort - Public minute As Short ' C# ushort - Public second As Short ' C# ushort - End Structure - - Public Structure ODBPWOFST - Public data1 As ODBPWOFST_data - Public data2 As ODBPWOFST_data - Public data3 As ODBPWOFST_data - Public data4 As ODBPWOFST_data - Public data5 As ODBPWOFST_data - Public data6 As ODBPWOFST_data - Public data7 As ODBPWOFST_data - Public data8 As ODBPWOFST_data - Public data9 As ODBPWOFST_data - Public data10 As ODBPWOFST_data - Public data11 As ODBPWOFST_data - Public data12 As ODBPWOFST_data - Public data13 As ODBPWOFST_data - Public data14 As ODBPWOFST_data - Public data15 As ODBPWOFST_data - Public data16 As ODBPWOFST_data - Public data17 As ODBPWOFST_data - Public data18 As ODBPWOFST_data - Public data19 As ODBPWOFST_data - Public data20 As ODBPWOFST_data - Public data21 As ODBPWOFST_data - Public data22 As ODBPWOFST_data - Public data23 As ODBPWOFST_data - Public data24 As ODBPWOFST_data - Public data25 As ODBPWOFST_data - Public data26 As ODBPWOFST_data - Public data27 As ODBPWOFST_data - Public data28 As ODBPWOFST_data - Public data29 As ODBPWOFST_data - Public data30 As ODBPWOFST_data - End Structure - - ' cnc_rdmngtime:read management time - ' cnc_wrmngtime:write management time - - Public Structure IODBMNGTIME_data - Public life As Integer ' C# uint - Public tota As Integer ' C# uint - End Structure - - Public Structure IODBMNGTIME - Public data1 As IODBMNGTIME_data - Public data2 As IODBMNGTIME_data - Public data3 As IODBMNGTIME_data - Public data4 As IODBMNGTIME_data - Public data5 As IODBMNGTIME_data - Public data6 As IODBMNGTIME_data - Public data7 As IODBMNGTIME_data - Public data8 As IODBMNGTIME_data - Public data9 As IODBMNGTIME_data - Public data10 As IODBMNGTIME_data - End Structure ' In case that the number of data is 10 - - ' cnc_rddischarge:read data related to electrical discharge at power correction ends - - Public Structure ODBDISCHRG - Public aps As Short ' C# ushort - Public year As Short ' C# ushort - Public month As Short ' C# ushort - Public day As Short ' C# ushort - Public hour As Short ' C# ushort - Public minute As Short ' C# ushort - Public second As Short ' C# ushort - Public hpc As Short - Public hfq As Short - Public hdt As Short - Public hpa As Short - Public hce As Integer - - Public rfi As Integer() - - Public rfv As Integer() - - Public dci As Integer() - - Public dcv As Integer() - - Public dcw As Integer() - End Structure - - ' cnc_rddischrgalm:read alarm history data related to electrical discharg - - Public Structure ODBDISCHRGALM_data - Public year As Short ' C# ushort - Public month As Short ' C# ushort - Public day As Short ' C# ushort - Public hour As Short ' C# ushort - Public minute As Short ' C# ushort - Public second As Short ' C# ushort - Public almnum As Integer - Public psec As Integer ' C# uint - Public hpc As Short - Public hfq As Short - Public hdt As Short - Public hpa As Short - Public hce As Integer - Public asq As Short ' C# ushort - Public psu As Short ' C# ushort - Public aps As Short ' C# ushort - Public dummy As Short - - Public rfi As Integer() - - Public rfv As Integer() - - Public dci As Integer() - - Public dcv As Integer() - - Public dcw As Integer() - - Public almcd As Short() - End Structure - - Public Structure ODBDISCHRGALM - Public data1 As ODBDISCHRGALM_data - Public data2 As ODBDISCHRGALM_data - Public data3 As ODBDISCHRGALM_data - Public data4 As ODBDISCHRGALM_data - Public data5 As ODBDISCHRGALM_data - End Structure - - ' cnc_gettimer:get date and time from cnc - ' cnc_settimer:set date and time for cnc - - Public Structure TIMER_DATE - Public year As Short - Public month As Short - Public date1 As Short - End Structure - - Public Structure TIMER_TIME - Public hour As Short - Public minute As Short - Public second As Short - End Structure - - Public Structure IODBTIMER - - Public type As Short - - Public dummy As Short - - Public date1 As TIMER_DATE - - Public time As TIMER_TIME - End Structure - - ' cnc_rdtimer:read timer data from cnc - ' cnc_wrtimer:write timer data for cnc - - Public Structure IODBTIME - Public minute As Integer - Public msec As Integer - End Structure - - ' cnc_rdtlctldata: read tool controll data - ' cnc_wrtlctldata: write tool controll data - - Public Structure IODBTLCTL - Public slct As Short - Public used_tool As Short - Public turret_indx As Short - Public zero_tl_no As Integer - Public t_axis_move As Integer - - Public total_punch As Integer() - - Public reserve As Short() - End Structure - - ' cnc_rdtooldata: read tool data - ' cnc_wrtooldata: read tool data - - Public Structure IODBTLDT_data - Public slct As Short - Public tool_no As Integer - Public x_axis_ofs As Integer - Public y_axis_ofs As Integer - Public turret_pos As Integer - Public chg_tl_no As Integer - Public punch_count As Integer - Public tool_life As Integer - Public m_tl_radius As Integer - Public m_tl_angle As Integer - Public tl_shape As Byte - Public tl_size_i As Integer - Public tl_size_j As Integer - Public tl_angle As Integer - - Public reserve As Integer() - End Structure - - Public Structure IODBTLDT - Public data1 As IODBTLDT_data - Public data2 As IODBTLDT_data - Public data3 As IODBTLDT_data - Public data4 As IODBTLDT_data - Public data5 As IODBTLDT_data - Public data6 As IODBTLDT_data - Public data7 As IODBTLDT_data - Public data8 As IODBTLDT_data - Public data9 As IODBTLDT_data - Public data10 As IODBTLDT_data - End Structure ' In case that the number of data is 10 - - ' cnc_rdmultitldt: read multi tool data - ' cnc_wrmultitldt: write multi tool data - - Public Structure IODBMLTTL_data - Public slct As Short - Public m_tl_no As Short - Public m_tl_radius As Integer - Public m_tl_angle As Integer - Public x_axis_ofs As Integer - Public y_axis_ofs As Integer - Public tl_shape As Byte - Public tl_size_i As Integer - Public tl_size_j As Integer - Public tl_angle As Integer - - Public reserve As Integer() - End Structure - - Public Structure IODBMLTTL - Public data1 As IODBMLTTL_data - Public data2 As IODBMLTTL_data - Public data3 As IODBMLTTL_data - Public data4 As IODBMLTTL_data - Public data5 As IODBMLTTL_data - Public data6 As IODBMLTTL_data - Public data7 As IODBMLTTL_data - Public data8 As IODBMLTTL_data - Public data9 As IODBMLTTL_data - Public data10 As IODBMLTTL_data - End Structure ' In case that the number of data is 10 - - ' cnc_rdmtapdata: read multi tap data - ' cnc_wrmtapdata: write multi tap data - - Public Structure IODBMTAP_data - Public slct As Short - Public tool_no As Integer - Public x_axis_ofs As Integer - Public y_axis_ofs As Integer - Public punch_count As Integer - Public tool_life As Integer - - Public reserve As Integer() - End Structure - - Public Structure IODBMTAP - Public data1 As IODBMTAP_data - Public data2 As IODBMTAP_data - Public data3 As IODBMTAP_data - Public data4 As IODBMTAP_data - Public data5 As IODBMTAP_data - Public data6 As IODBMTAP_data - Public data7 As IODBMTAP_data - Public data8 As IODBMTAP_data - Public data9 As IODBMTAP_data - Public data10 As IODBMTAP_data - End Structure - - ' cnc_rdtoolinfo: read tool information - - Public Structure ODBPTLINF - Public tld_max As Short - Public mlt_max As Short - Public reserve As Short - - Public tld_size As Short() - - Public mlt_size As Short() - - Public reserves As Short() - End Structure - - ' cnc_rdsafetyzone: read safetyzone data - ' cnc_wrsafetyzone: write safetyzone data - - Public Structure IODBSAFE_data - Public slct As Short - - Public data As Integer() - End Structure - - Public Structure IODBSAFE - Public data1 As IODBSAFE_data - Public data2 As IODBSAFE_data - Public data3 As IODBSAFE_data - Public data4 As IODBSAFE_data - End Structure ' In case that the number of data is 4 - - ' cnc_rdtoolzone: read toolzone data - ' cnc_wrtoolzone: write toolzone data - - Public Structure IODBTLZN_data - Public slct As Short - - Public data As Integer() - End Structure - - Public Structure IODBTLZN - Public data1 As IODBTLZN_data - Public data2 As IODBTLZN_data - Public data3 As IODBTLZN_data - Public data4 As IODBTLZN_data - Public data5 As IODBTLZN_data - Public data6 As IODBTLZN_data - Public data7 As IODBTLZN_data - Public data8 As IODBTLZN_data - Public data9 As IODBTLZN_data - Public data10 As IODBTLZN_data - Public data11 As IODBTLZN_data - Public data12 As IODBTLZN_data - End Structure ' In case that the number of data is 12 - - ' cnc_rdacttlzone: read active toolzone data - - Public Structure ODBACTTLZN - Public act_no As Short - - Public data As Integer() - End Structure - - ' cnc_rdbrstrinfo:read block restart information - - Public Structure ODBBRS - - Public dest As Integer() - - Public dist As Integer() - End Structure ' In case that the number of axes is MAX_AXIS - - ' cnc_rdradofs:read tool radius offset for position data - - Public Structure ODBROFS - Public mode As Short - - Public pln_axes As Short() - - Public ofsvct As Integer() - End Structure - - ' cnc_rdlenofs:read tool length offset for position data - - Public Structure ODBLOFS - Public mode As Short - - Public ofsvct As Integer() - End Structure ' In case that the number of axes is MAX_AXIS - - ' cnc_rdfixcycle:read fixed cycle for position data - - Public Structure ODBFIX - Public mode As Short - - Public pln_axes As Short() - Public drl_axes As Short - Public i_pos As Integer - Public r_pos As Integer - Public z_pos As Integer - Public cmd_cnt As Integer - Public act_cnt As Integer - Public cut As Integer - - Public shift As Integer() - End Structure - - ' cnc_rdcdrotate:read coordinate rotate for position data - - Public Structure ODBROT - Public mode As Short - - Public pln_axes As Short() - - Public center As Integer() - Public angle As Integer - End Structure - - ' cnc_rd3dcdcnv:read 3D coordinate convert for position data - - Public Structure ODB3DCD - Public mode As Short - Public dno As Short - - Public cd_axes As Short() - - Public center As Integer() - - Public direct As Integer() - - Public angle As Integer() - End Structure - - ' cnc_rdmirimage:read programable mirror image for position data - - Public Structure ODBMIR - Public mode As Short - Public mir_flag As Integer - - Public mir_pos As Integer() - End Structure ' In case that the number of axes is MAX_AXIS - - ' cnc_rdscaling:read scaling data for position data - - Public Structure ODBSCL - Public mode As Short - - Public center As Integer() - - Public magnif As Integer() - End Structure ' In case that the number of axes is MAX_AXIS - - ' cnc_rd3dtofs:read 3D tool offset for position data - - Public Structure ODB3DTO - Public mode As Short - - Public ofs_axes As Short() - - Public ofsvct As Integer() - End Structure - - ' cnc_rdposofs:read tool position offset for position data - - Public Structure ODBPOFS - Public mode As Short - - Public ofsvct As Integer() - End Structure ' In case that the number of axes is MAX_AXIS - - ' cnc_rdhpccset:read hpcc setting data - ' cnc_wrhpccset:write hpcc setting data - - Public Structure IODBHPST - Public slct As Short - Public hpcc As Short - Public multi As Short - Public ovr1 As Short - Public ign_f As Short - Public foward As Short - Public max_f As Integer - Public ovr2 As Short - Public ovr3 As Short - Public ovr4 As Short - - Public reserve As Integer() - End Structure - - ' cnc_rdhpcctupr:read hpcc tuning data ( parameter input ) - ' cnc_wrhpcctupr:write hpcc tuning data ( parameter input ) - - Public Structure IODBHPPR_tune - Public slct As Short - Public diff As Short - Public fine As Short - Public acc_lv As Short - Public max_f As Integer - Public bipl As Short - Public aipl As Short - Public corner As Integer - Public clamp As Short - Public radius As Integer - Public max_cf As Integer - Public min_cf As Integer - Public foward As Integer - - Public reserve As Integer() - End Structure - - Public Structure IODBHPPR - Public tune1 As IODBHPPR_tune - Public tune2 As IODBHPPR_tune - Public tune3 As IODBHPPR_tune - End Structure - - ' cnc_rdhpcctuac:read hpcc tuning data ( acc input ) - ' cnc_wrhpcctuac:write hpcc tuning data ( acc input ) - - Public Structure IODBHPAC_tune - Public slct As Short - Public diff As Short - Public fine As Short - Public acc_lv As Short - Public bipl As Integer - Public aipl As Short - Public corner As Integer - Public clamp As Integer - Public c_acc As Integer - Public foward As Integer - - Public reserve As Integer() - End Structure - - Public Structure IODBHPAC - Public tune1 As IODBHPAC_tune - Public tune2 As IODBHPAC_tune - Public tune3 As IODBHPAC_tune - End Structure - - ' cnc_rd3dtooltip:read tip of tool for 3D handle - ' cnc_rd3dmovrlap:read move overrlap of tool for 3D handle - - Public Structure ODB3DHDL_data - - Public axes As Short() - - Public data As Integer() - End Structure - - Public Structure ODB3DHDL - Public data1 As ODB3DHDL_data - Public data2 As ODB3DHDL_data - End Structure - - ' cnc_rd3dpulse:read pulse for 3D handle - - Public Structure ODB3DPLS_data - Public right_angle_x As Integer - Public right_angle_y As Integer - Public tool_axis As Integer - Public tool_tip_a_b As Integer - Public tool_tip_c As Integer - End Structure - - Public Structure ODB3DPLS - Public pls1 As ODB3DPLS_data - Public pls2 As ODB3DPLS_data - End Structure - - ' cnc_rdaxisname: read axis name - - Public Structure ODBAXISNAME_data - Public name As Byte ' axis name - Public suff As Byte ' suffix - End Structure -#If FS30D Then - - Public Structure ODBAXISNAME - Public data1 As ODBAXISNAME_data - Public data2 As ODBAXISNAME_data - Public data3 As ODBAXISNAME_data - Public data4 As ODBAXISNAME_data - Public data5 As ODBAXISNAME_data - Public data6 As ODBAXISNAME_data - Public data7 As ODBAXISNAME_data - Public data8 As ODBAXISNAME_data - Public data9 As ODBAXISNAME_data - Public data10 As ODBAXISNAME_data - Public data11 As ODBAXISNAME_data - Public data12 As ODBAXISNAME_data - Public data13 As ODBAXISNAME_data - Public data14 As ODBAXISNAME_data - Public data15 As ODBAXISNAME_data - Public data16 As ODBAXISNAME_data - Public data17 As ODBAXISNAME_data - Public data18 As ODBAXISNAME_data - Public data19 As ODBAXISNAME_data - Public data20 As ODBAXISNAME_data - Public data21 As ODBAXISNAME_data - Public data22 As ODBAXISNAME_data - Public data23 As ODBAXISNAME_data - Public data24 As ODBAXISNAME_data - Public data25 As ODBAXISNAME_data - Public data26 As ODBAXISNAME_data - Public data27 As ODBAXISNAME_data - Public data28 As ODBAXISNAME_data - Public data29 As ODBAXISNAME_data - Public data30 As ODBAXISNAME_data - Public data31 As ODBAXISNAME_data - Public data32 As ODBAXISNAME_data - End Structure -#Else -#If M_AXIS2 Then - _ - Public Structure ODBAXISNAME - Public data1 As ODBAXISNAME_data - Public data2 As ODBAXISNAME_data - Public data3 As ODBAXISNAME_data - Public data4 As ODBAXISNAME_data - Public data5 As ODBAXISNAME_data - Public data6 As ODBAXISNAME_data - Public data7 As ODBAXISNAME_data - Public data8 As ODBAXISNAME_data - Public data9 As ODBAXISNAME_data - Public data10 As ODBAXISNAME_data - Public data11 As ODBAXISNAME_data - Public data12 As ODBAXISNAME_data - Public data13 As ODBAXISNAME_data - Public data14 As ODBAXISNAME_data - Public data15 As ODBAXISNAME_data - Public data16 As ODBAXISNAME_data - Public data17 As ODBAXISNAME_data - Public data18 As ODBAXISNAME_data - Public data19 As ODBAXISNAME_data - Public data20 As ODBAXISNAME_data - Public data21 As ODBAXISNAME_data - Public data22 As ODBAXISNAME_data - Public data23 As ODBAXISNAME_data - Public data24 As ODBAXISNAME_data - End Structure -#Else -#If FS15D Then - _ - Public Structure ODBAXISNAME - Public data1 As ODBAXISNAME_data - Public data2 As ODBAXISNAME_data - Public data3 As ODBAXISNAME_data - Public data4 As ODBAXISNAME_data - Public data5 As ODBAXISNAME_data - Public data6 As ODBAXISNAME_data - Public data7 As ODBAXISNAME_data - Public data8 As ODBAXISNAME_data - Public data9 As ODBAXISNAME_data - Public data10 As ODBAXISNAME_data - End Structure -#Else - _ - Public Structure ODBAXISNAME - Public data1 As ODBAXISNAME_data - Public data2 As ODBAXISNAME_data - Public data3 As ODBAXISNAME_data - Public data4 As ODBAXISNAME_data - Public data5 As ODBAXISNAME_data - Public data6 As ODBAXISNAME_data - Public data7 As ODBAXISNAME_data - Public data8 As ODBAXISNAME_data - End Structure -#End If -#End If -#End If - - ' cnc_rdspdlname: read spindle name - - Public Structure ODBSPDLNAME_data - Public name As Byte ' spindle name - Public suff1 As Byte ' suffix - Public suff2 As Byte ' suffix - Public suff3 As Byte ' suffix - End Structure - - Public Structure ODBSPDLNAME - Public data1 As ODBSPDLNAME_data - Public data2 As ODBSPDLNAME_data - Public data3 As ODBSPDLNAME_data - Public data4 As ODBSPDLNAME_data - End Structure - - ' cnc_exaxisname: read spindle name - - Public Structure ODBEXAXISNAME - - Public axname1 As String - - Public axname2 As String - - Public axname3 As String - - Public axname4 As String - - Public axname5 As String - - Public axname6 As String - - Public axname7 As String - - Public axname8 As String - - Public axname9 As String - - Public axname10 As String - - Public axname11 As String - - Public axname12 As String - - Public axname13 As String - - Public axname14 As String - - Public axname15 As String - - Public axname16 As String - - Public axname17 As String - - Public axname18 As String - - Public axname19 As String - - Public axname20 As String - - Public axname21 As String - - Public axname22 As String - - Public axname23 As String - - Public axname24 As String - - Public axname25 As String - - Public axname26 As String - - Public axname27 As String - - Public axname28 As String - - Public axname29 As String - - Public axname30 As String - - Public axname31 As String - - Public axname32 As String - End Structure - - ' cnc_wrunsolicprm: Set the unsolicited message parameters - ' cnc_rdunsolicprm: Get the unsolicited message parameters - - Public Structure IODBUNSOLIC_pmc - Public type As Short - Public rdaddr As Short - Public rdno As Short - Public rdsize As Short - End Structure - - Public Structure IODBUNSOLIC_dmy - Public type As Short - Public dummy1 As Integer - Public dummy2 As Short - End Structure - - Public Structure IODBUNSOLIC_rddata - - Public pmc As IODBUNSOLIC_pmc - - Public dmy As IODBUNSOLIC_dmy - End Structure - - - Public Structure IODBUNSOLIC - - Public ipaddr As String - Public port As Short ' C# ushort - Public reqaddr As Short - Public pmcno As Short - Public retry As Short - Public timeout As Short - Public alivetime As Short - Public setno As Short - Public rddata1 As IODBUNSOLIC_rddata - Public rddata2 As IODBUNSOLIC_rddata - Public rddata3 As IODBUNSOLIC_rddata - End Structure - - ' cnc_rdunsolicmsg: Reads the unsolicited message data - - Public Structure IDBUNSOLICMSG_msg - Public rdsize As Short - - Public data As Object - End Structure - - Public Structure IDBUNSOLICMSG1 - Public msg1 As IDBUNSOLICMSG_msg - Public msg2 As IDBUNSOLICMSG_msg - Public msg3 As IDBUNSOLICMSG_msg - End Structure - - Public Structure IDBUNSOLICMSG - Public getno As Short - Public msg As IDBUNSOLICMSG1 - End Structure - - ' cnc_rdpm_cncitem: read cnc maintenance item - ' cnc_rdpm_mcnitem: read machine specific maintenance item - ' cnc_wrpm_mcnitem: write machine specific maintenance item - - Public Structure IODBITEM - - Public name1 As String - - Public name2 As String - - Public name3 As String - - Public name4 As String - - Public name5 As String - - Public name6 As String - - Public name7 As String - - Public name8 As String - - Public name9 As String - - Public name10 As String - End Structure - - ' cnc_rdpm_item:read maintenance item status - - Public Structure IODBPMAINTE_data - - Public name As String ' name - Public type As Integer ' life count type - Public total As Integer ' total life time (minite basis) - Public remain As Integer ' life rest time - Public stat As Integer ' life state - End Structure - - - Public Structure IODBPMAINTE - Public data1 As IODBPMAINTE_data - Public data2 As IODBPMAINTE_data - Public data3 As IODBPMAINTE_data - Public data4 As IODBPMAINTE_data - Public data5 As IODBPMAINTE_data - Public data6 As IODBPMAINTE_data - Public data7 As IODBPMAINTE_data - Public data8 As IODBPMAINTE_data - Public data9 As IODBPMAINTE_data - Public data10 As IODBPMAINTE_data - End Structure - - ' cnc_sysinfo_ex:read CNC system path information - - Public Structure ODBSYSEX_path - Public system As Short - Public group As Short - Public attrib As Short - Public ctrl_axis As Short - Public ctrl_srvo As Short - Public ctrl_spdl As Short - Public mchn_no As Short - Public reserved As Short - End Structure - - - Public Structure ODBSYSEX_data - Public data1 As ODBSYSEX_path - Public data2 As ODBSYSEX_path - Public data3 As ODBSYSEX_path - Public data4 As ODBSYSEX_path - Public data5 As ODBSYSEX_path - Public data6 As ODBSYSEX_path - Public data7 As ODBSYSEX_path - Public data8 As ODBSYSEX_path - Public data9 As ODBSYSEX_path - Public data10 As ODBSYSEX_path - End Structure - - - Public Structure ODBSYSEX - Public max_axis As Short - Public max_spdl As Short - Public max_path As Short - Public max_mchn As Short - Public ctrl_axis As Short - Public ctrl_srvo As Short - Public ctrl_spdl As Short - Public ctrl_path As Short - Public ctrl_mchn As Short - - Public reserved As Short() - Public path As ODBSYSEX_data - End Structure - - '------------------ - ' CNC : SERCOS I/F - '------------------ - - ' cnc_srcsrdidinfo:Read ID information of SERCOS I/F - ' cnc_srcswridinfo:Write ID information of SERCOS I/F - - Public Structure IODBIDINF - Public id_no As Integer - Public drv_no As Short - Public acc_element As Short - Public err_general As Short - Public err_id_no As Short - Public err_id_name As Short - Public err_attr As Short - Public err_unit As Short - Public err_min_val As Short - Public err_max_val As Short - Public id_name_len As Short - Public id_name_max As Short - - Public id_name As String - Public attr As Integer - Public unit_len As Short - Public unit_max As Short - - Public unit As Byte() - Public min_val As Integer - Public max_val As Integer - End Structure - - ' cnc_srcsrdexstat:Get execution status of reading/writing operation data of SERCOS I/F - - Public Structure ODBSRCSST - Public acc_element As Short - Public err_general As Short - Public err_id_no As Short - Public err_attr As Short - Public err_op_data As Short - End Structure - - ' cnc_srcsrdlayout:Read drive assign of SERCOS I/F - - Public Structure ODBSRCSLYT - - Public spndl As Short() - - Public servo As Short() - - Public axis_name As String - End Structure - - '---------------------------- - ' CNC : Servo Guide - '---------------------------- - ' cnc_sdsetchnl:Servo Guide (Channel data set) - - Public Structure IDBCHAN_data - Public chno As Byte - Public axis As SByte - Public datanum As Integer - Public datainf As Short ' C# ushort - Public dataadr As Short - End Structure - - Public Structure IDBCHAN - Public data1 As IDBCHAN_data - Public data2 As IDBCHAN_data - Public data3 As IDBCHAN_data - Public data4 As IDBCHAN_data - Public data5 As IDBCHAN_data - Public data6 As IDBCHAN_data - Public data7 As IDBCHAN_data - Public data8 As IDBCHAN_data - End Structure - - ' cnc_sdsetchnl:Servo Guide (read Sampling data) - ' cnc_sfbreadsmpl:Servo feedback data (read Sampling data) - - Public Structure ODBSD - Public chadata As IntPtr - Public count As IntPtr - End Structure - - ' cnc_sfbsetchnl:Servo feedback data (Channel data set) - - Public Structure IDBSFBCHAN - Public chno As Byte - Public axis As SByte - Public shift As Short ' C# ushort - End Structure - - - '------------------------- - ' CNC : FS18-LN function - '------------------------- - - ' cnc_allowcnd:read allowanced state - - Public Structure ODBCAXIS - Public dummy As Short ' dummy - Public type As Short ' axis number - - Public data As SByte() ' data value - End Structure - - - '--------------------------------- - ' CNC : C-EXE SRAM file function - '--------------------------------- - - ' read C-EXE SRAM disk directory - - Public Structure CFILEINFO_data - - Public fname As String ' file name - Public file_size As Integer ' file size (bytes) - Public file_attr As Integer ' attribute - Public year As Short ' year - Public month As Short ' month - Public day As Short ' day - Public hour As Short ' hour - Public minute As Short ' mimute - Public second As Short ' second - End Structure - - Public Structure CFILEINFO - Public data1 As CFILEINFO_data - Public data2 As CFILEINFO_data - Public data3 As CFILEINFO_data - Public data4 As CFILEINFO_data - Public data5 As CFILEINFO_data - Public data6 As CFILEINFO_data - Public data7 As CFILEINFO_data - Public data8 As CFILEINFO_data - Public data9 As CFILEINFO_data - Public data10 As CFILEINFO_data - End Structure - - '----- - ' PMC - '----- - - ' pmc_rdpmcrng:read PMC data(area specified) - ' pmc_wrpmcrng:write PMC data(area specified) - - Public Structure IODBPMC0 - - Public type_a As Short ' PMC address type - - Public type_d As Short ' PMC data type - - Public datano_s As Short ' start PMC address - - Public datano_e As Short ' end PMC address - - Public cdata As Byte() ' PMC data - End Structure ' In case that the number of data is 8 - - Public Structure IODBPMC1 - - Public type_a As Short ' PMC address type - - Public type_d As Short ' PMC data type - - Public datano_s As Short ' start PMC address - - Public datano_e As Short ' end PMC address - - Public idata As UShort() - End Structure ' In case that the number of data is 8 - - Public Structure IODBPMC2 - - Public type_a As Short ' PMC address type - - Public type_d As Short ' PMC data type - - Public datano_s As Short ' start PMC address - - Public datano_e As Short ' end PMC address - - Public ldata As UInteger() - End Structure ' In case that the number of data is 8 - - ' pmc_rdpmcinfo:read informations of PMC data - - Public Structure ODBPMCINF_info - Public pmc_adr As Char - Public adr_attr As Byte - Public top_num As Short ' C# ushort - Public last_num As Short ' C# ushort - End Structure - - Public Structure ODBPMCINF1 - Public info1 As ODBPMCINF_info - Public info2 As ODBPMCINF_info - Public info3 As ODBPMCINF_info - Public info4 As ODBPMCINF_info - Public info5 As ODBPMCINF_info - Public info6 As ODBPMCINF_info - Public info7 As ODBPMCINF_info - Public info8 As ODBPMCINF_info - Public info9 As ODBPMCINF_info - Public info10 As ODBPMCINF_info - Public info11 As ODBPMCINF_info - Public info12 As ODBPMCINF_info - Public info13 As ODBPMCINF_info - Public info14 As ODBPMCINF_info - Public info15 As ODBPMCINF_info - Public info16 As ODBPMCINF_info - Public info17 As ODBPMCINF_info - Public info18 As ODBPMCINF_info - Public info19 As ODBPMCINF_info - Public info20 As ODBPMCINF_info - Public info21 As ODBPMCINF_info - Public info22 As ODBPMCINF_info - Public info23 As ODBPMCINF_info - Public info24 As ODBPMCINF_info - Public info25 As ODBPMCINF_info - Public info26 As ODBPMCINF_info - Public info27 As ODBPMCINF_info - Public info28 As ODBPMCINF_info - Public info29 As ODBPMCINF_info - Public info30 As ODBPMCINF_info - Public info31 As ODBPMCINF_info - Public info32 As ODBPMCINF_info - Public info33 As ODBPMCINF_info - Public info34 As ODBPMCINF_info - Public info35 As ODBPMCINF_info - Public info36 As ODBPMCINF_info - Public info37 As ODBPMCINF_info - Public info38 As ODBPMCINF_info - Public info39 As ODBPMCINF_info - Public info40 As ODBPMCINF_info - Public info41 As ODBPMCINF_info - Public info42 As ODBPMCINF_info - Public info43 As ODBPMCINF_info - Public info44 As ODBPMCINF_info - Public info45 As ODBPMCINF_info - Public info46 As ODBPMCINF_info - Public info47 As ODBPMCINF_info - Public info48 As ODBPMCINF_info - Public info49 As ODBPMCINF_info - Public info50 As ODBPMCINF_info - Public info51 As ODBPMCINF_info - Public info52 As ODBPMCINF_info - Public info53 As ODBPMCINF_info - Public info54 As ODBPMCINF_info - Public info55 As ODBPMCINF_info - Public info56 As ODBPMCINF_info - Public info57 As ODBPMCINF_info - Public info58 As ODBPMCINF_info - Public info59 As ODBPMCINF_info - Public info60 As ODBPMCINF_info - Public info61 As ODBPMCINF_info - Public info62 As ODBPMCINF_info - Public info63 As ODBPMCINF_info - Public info64 As ODBPMCINF_info - End Structure - - Public Structure ODBPMCINF - Public datano As Short - Public info As ODBPMCINF1 - End Structure - - ' pmc_rdcntldata:read PMC parameter data table control data - ' pmc_wrcntldata:write PMC parameter data table control data - - Public Structure IODBPMCCNTL_info - Public tbl_prm As Byte - Public data_type As Byte - Public data_size As Short ' C# ushort - Public data_dsp As Short ' C# ushort - Public dummy As Short - End Structure - - Public Structure IODBPMCCNTL1 - Public info1 As IODBPMCCNTL_info - Public info2 As IODBPMCCNTL_info - Public info3 As IODBPMCCNTL_info - Public info4 As IODBPMCCNTL_info - Public info5 As IODBPMCCNTL_info - Public info6 As IODBPMCCNTL_info - Public info7 As IODBPMCCNTL_info - Public info8 As IODBPMCCNTL_info - Public info9 As IODBPMCCNTL_info - Public info10 As IODBPMCCNTL_info - Public info11 As IODBPMCCNTL_info - Public info12 As IODBPMCCNTL_info - Public info13 As IODBPMCCNTL_info - Public info14 As IODBPMCCNTL_info - Public info15 As IODBPMCCNTL_info - Public info16 As IODBPMCCNTL_info - Public info17 As IODBPMCCNTL_info - Public info18 As IODBPMCCNTL_info - Public info19 As IODBPMCCNTL_info - Public info20 As IODBPMCCNTL_info - Public info21 As IODBPMCCNTL_info - Public info22 As IODBPMCCNTL_info - Public info23 As IODBPMCCNTL_info - Public info24 As IODBPMCCNTL_info - Public info25 As IODBPMCCNTL_info - Public info26 As IODBPMCCNTL_info - Public info27 As IODBPMCCNTL_info - Public info28 As IODBPMCCNTL_info - Public info29 As IODBPMCCNTL_info - Public info30 As IODBPMCCNTL_info - Public info31 As IODBPMCCNTL_info - Public info32 As IODBPMCCNTL_info - Public info33 As IODBPMCCNTL_info - Public info34 As IODBPMCCNTL_info - Public info35 As IODBPMCCNTL_info - Public info36 As IODBPMCCNTL_info - Public info37 As IODBPMCCNTL_info - Public info38 As IODBPMCCNTL_info - Public info39 As IODBPMCCNTL_info - Public info40 As IODBPMCCNTL_info - Public info41 As IODBPMCCNTL_info - Public info42 As IODBPMCCNTL_info - Public info43 As IODBPMCCNTL_info - Public info44 As IODBPMCCNTL_info - Public info45 As IODBPMCCNTL_info - Public info46 As IODBPMCCNTL_info - Public info47 As IODBPMCCNTL_info - Public info48 As IODBPMCCNTL_info - Public info49 As IODBPMCCNTL_info - Public info50 As IODBPMCCNTL_info - Public info51 As IODBPMCCNTL_info - Public info52 As IODBPMCCNTL_info - Public info53 As IODBPMCCNTL_info - Public info54 As IODBPMCCNTL_info - Public info55 As IODBPMCCNTL_info - Public info56 As IODBPMCCNTL_info - Public info57 As IODBPMCCNTL_info - Public info58 As IODBPMCCNTL_info - Public info59 As IODBPMCCNTL_info - Public info60 As IODBPMCCNTL_info - Public info61 As IODBPMCCNTL_info - Public info62 As IODBPMCCNTL_info - Public info63 As IODBPMCCNTL_info - Public info64 As IODBPMCCNTL_info - Public info65 As IODBPMCCNTL_info - Public info66 As IODBPMCCNTL_info - Public info67 As IODBPMCCNTL_info - Public info68 As IODBPMCCNTL_info - Public info69 As IODBPMCCNTL_info - Public info70 As IODBPMCCNTL_info - Public info71 As IODBPMCCNTL_info - Public info72 As IODBPMCCNTL_info - Public info73 As IODBPMCCNTL_info - Public info74 As IODBPMCCNTL_info - Public info75 As IODBPMCCNTL_info - Public info76 As IODBPMCCNTL_info - Public info77 As IODBPMCCNTL_info - Public info78 As IODBPMCCNTL_info - Public info79 As IODBPMCCNTL_info - Public info80 As IODBPMCCNTL_info - Public info81 As IODBPMCCNTL_info - Public info82 As IODBPMCCNTL_info - Public info83 As IODBPMCCNTL_info - Public info84 As IODBPMCCNTL_info - Public info85 As IODBPMCCNTL_info - Public info86 As IODBPMCCNTL_info - Public info87 As IODBPMCCNTL_info - Public info88 As IODBPMCCNTL_info - Public info89 As IODBPMCCNTL_info - Public info90 As IODBPMCCNTL_info - Public info91 As IODBPMCCNTL_info - Public info92 As IODBPMCCNTL_info - Public info93 As IODBPMCCNTL_info - Public info94 As IODBPMCCNTL_info - Public info95 As IODBPMCCNTL_info - Public info96 As IODBPMCCNTL_info - Public info97 As IODBPMCCNTL_info - Public info98 As IODBPMCCNTL_info - Public info99 As IODBPMCCNTL_info - Public info100 As IODBPMCCNTL_info - End Structure - - Public Structure IODBPMCCNTL - Public datano_s As Short - Public dummy As Short - Public datano_e As Short - Public info As IODBPMCCNTL1 - End Structure - - ' pmc_rdalmmsg:read PMC alarm message - - Public Structure ODBPMCALM_data - - Public almmsg As String ' alarm message - End Structure - - Public Structure ODBPMCALM - Public msg1 As ODBPMCALM_data - Public msg2 As ODBPMCALM_data - Public msg3 As ODBPMCALM_data - Public msg4 As ODBPMCALM_data - Public msg5 As ODBPMCALM_data - Public msg6 As ODBPMCALM_data - Public msg7 As ODBPMCALM_data - Public msg8 As ODBPMCALM_data - Public msg9 As ODBPMCALM_data - Public msg10 As ODBPMCALM_data - End Structure ' In case that the number of data is 10 - - ' pmc_getdtailerr:get detail error for pmc - - Public Structure ODBPMCERR - Public err_no As Short - Public err_dtno As Short - End Structure - - ' pmc_rdpmctitle:read pmc title data - - Public Structure ODBPMCTITLE - - Public mtb As String - - Public machine As String - - Public type As String - - Public prgno As String - - Public prgvers As String - - Public prgdraw As String - - Public date1 As String - - Public design As String - - Public written As String - - Public remarks As String - End Structure - - ' pmc_rdpmcrng_ext:read PMC data - - Public Structure IODBPMCEXT - Public type_a As Short ' PMC address type - Public type_d As Short ' PMC data type - Public datano_s As Short ' start PMC address - Public datano_e As Short ' end PMC address - Public err_code As Short ' error code - Public reserved As Short ' reserved - - Public data As Object ' pointer to buffer - End Structure - - ' pmc_rdpmcaddr:read PMC address information - - Public Structure ODBPMCADR_info - Public pmc_adr As Byte - Public adr_attr As Byte - Public offset As Short ' C# ushort - Public top As Short ' C# ushort - Public num As Short ' C# ushort - End Structure - - Public Structure ODBPMCADR1 - Public info1 As ODBPMCADR_info - Public info2 As ODBPMCADR_info - Public info3 As ODBPMCADR_info - Public info4 As ODBPMCADR_info - Public info5 As ODBPMCADR_info - Public info6 As ODBPMCADR_info - Public info7 As ODBPMCADR_info - Public info8 As ODBPMCADR_info - Public info9 As ODBPMCADR_info - Public info10 As ODBPMCADR_info - Public info11 As ODBPMCADR_info - Public info12 As ODBPMCADR_info - Public info13 As ODBPMCADR_info - Public info14 As ODBPMCADR_info - Public info15 As ODBPMCADR_info - Public info16 As ODBPMCADR_info - Public info17 As ODBPMCADR_info - Public info18 As ODBPMCADR_info - Public info19 As ODBPMCADR_info - Public info20 As ODBPMCADR_info - Public info21 As ODBPMCADR_info - Public info22 As ODBPMCADR_info - Public info23 As ODBPMCADR_info - Public info24 As ODBPMCADR_info - Public info25 As ODBPMCADR_info - Public info26 As ODBPMCADR_info - Public info27 As ODBPMCADR_info - Public info28 As ODBPMCADR_info - Public info29 As ODBPMCADR_info - Public info30 As ODBPMCADR_info - Public info31 As ODBPMCADR_info - Public info32 As ODBPMCADR_info - Public info33 As ODBPMCADR_info - Public info34 As ODBPMCADR_info - Public info35 As ODBPMCADR_info - Public info36 As ODBPMCADR_info - Public info37 As ODBPMCADR_info - Public info38 As ODBPMCADR_info - Public info39 As ODBPMCADR_info - Public info40 As ODBPMCADR_info - Public info41 As ODBPMCADR_info - Public info42 As ODBPMCADR_info - Public info43 As ODBPMCADR_info - Public info44 As ODBPMCADR_info - Public info45 As ODBPMCADR_info - Public info46 As ODBPMCADR_info - Public info47 As ODBPMCADR_info - Public info48 As ODBPMCADR_info - Public info49 As ODBPMCADR_info - Public info50 As ODBPMCADR_info - Public info51 As ODBPMCADR_info - Public info52 As ODBPMCADR_info - Public info53 As ODBPMCADR_info - Public info54 As ODBPMCADR_info - Public info55 As ODBPMCADR_info - Public info56 As ODBPMCADR_info - Public info57 As ODBPMCADR_info - Public info58 As ODBPMCADR_info - Public info59 As ODBPMCADR_info - Public info60 As ODBPMCADR_info - Public info61 As ODBPMCADR_info - Public info62 As ODBPMCADR_info - Public info63 As ODBPMCADR_info - Public info64 As ODBPMCADR_info - End Structure - - Public Structure ODBPMCADR - Public io_adr As Integer ' C# uint - Public datano As Short - Public info As ODBPMCADR1 - End Structure - - - '-------------------------- - ' PROFIBUS function - '-------------------------- - - ' pmc_prfrdconfig:read PROFIBUS configration data - - Public Structure ODBPRFCNF - - Public master_ser As String - - Public master_ver As String - - Public slave_ser As String - - Public slave_ver As String - - Public cntl_ser As String - - Public cntl_ver As String - End Structure - - ' pmc_prfrdbusprm:read bus parameter for master function - ' pmc_prfwrbusprm:write bus parameter for master function - - Public Structure IODBBUSPRM - Public fdl_add As SByte - Public baudrate As SByte - Public tsl As Short ' C# ushort - Public min_tsdr As Short ' C# ushort - Public max_tsdr As Short ' C# ushort - Public tqui As Byte - Public tset As Byte - Public ttr As Integer - Public gap As SByte - Public hsa As SByte - Public max_retry As SByte - Public bp_flag As Byte - Public min_slv_int As Short ' C# ushort - Public poll_tout As Short ' C# ushort - Public data_cntl As Short ' C# ushort - - Public reserve1 As Byte() - - Public cls2_name As Byte() - Public user_dlen As Short - - Public user_data As Byte() - - Public reserve2 As Byte() - End Structure - - ' pmc_prfrdslvprm:read slave parameter for master function - ' pmc_prfwrslvprm:write slave parameter for master function - - Public Structure IODBSLVPRM - Public dis_enb As Short - Public ident_no As Short ' C# ushort - Public slv_flag As Byte - Public slv_type As Byte - - Public reserve1 As Byte() - Public slv_stat As Byte - Public wd_fact1 As Byte - Public wd_fact2 As Byte - Public min_tsdr As Byte - Public reserve2 As Char - Public grp_ident As Byte - Public user_plen As Short - - Public user_pdata As Byte() - Public cnfg_dlen As Short - - Public cnfg_data As Byte() - Public slv_ulen As Short - - Public slv_udata As Byte() - - Public reserve3 As Byte() - End Structure - - - Public Structure IODBSLVPRM2 - Public dis_enb As Short - Public ident_no As Short ' C# ushort - Public slv_flag As Byte - Public slv_type As Byte - - Public reserve1 As Byte() - Public slv_stat As Byte - Public wd_fact1 As Byte - Public wd_fact2 As Byte - Public min_tsdr As Byte - Public reserve2 As SByte - Public grp_ident As Byte - Public user_plen As Short - - Public user_pdata As Byte() - Public cnfg_dlen As Short - - Public cnfg_data As Byte() - Public slv_ulen As Short - - Public slv_udata As Byte() - - Public reserve3 As Byte() - End Structure - - ' pmc_prfrdallcadr:read allocation address for master function - ' pmc_prfwrallcadr:set allocation address for master function - - Public Structure IODBPRFADR - Public di_size As Byte - Public di_type As Byte - Public di_addr As Short ' C# ushort - Public reserve1 As Short - Public do_size As Byte - Public do_type As Byte - Public do_addr As Short ' C# ushort - Public reserve2 As Short - Public dgn_size As Byte - Public dgn_type As Byte - Public dgn_addr As Short ' C# ushort - End Structure - - ' pmc_prfrdslvaddr:read allocation address for slave function - ' pmc_prfwrslvaddr:set allocation address for slave function - - Public Structure IODBSLVADR - Public slave_no As Byte - Public di_size As Byte - Public di_type As Byte - Public di_addr As Short ' C# ushort - Public do_size As Byte - Public do_type As Byte - Public do_addr As Short ' C# ushort - - Public reserve As Byte() - End Structure - - ' pmc_prfrdslvstat:read status for slave function - - Public Structure ODBSLVST - Public cnfg_stat As Byte - Public prm_stat As Byte - Public wdg_stat As SByte - Public live_stat As Byte - Public ident_no As Short - End Structure - - ' pmc_prfwrslvid:Writes slave index data of master function - - Public Structure IODBSLVID - Public dis_enb As Short - Public slave_no As Short - Public nsl As Short - Public dgn_size As Byte - Public dgn_type As Char - Public dgn_addr As Short - End Structure - - ' pmc_prfrdslvprm2:Reads slave parameter of master function(2) - ' pmc_prfwrslvprm2:Writes slave parameter of master function(2) - - Public Structure IODBSLVPRM3 - Public ident_no As Short - Public slv_flag As Byte - Public slv_type As Byte - - Public reserve1 As Byte() - Public slv_stat As Byte - Public wd_fact1 As Byte - Public wd_fact2 As Byte - Public min_tsdr As Byte - Public reserve2 As Char - Public grp_ident As Byte - Public user_plen As Short - - Public user_pdata As Byte() - Public slv_ulen As Short - - Public slv_udata As Byte() - End Structure - - ' pmc_prfrddido:Reads DI/DO parameter of master function - ' pmc_prfwrdido:Writes DI/DO parameter of master function - - Public Structure IODBDIDO - Public slave_no As Short - Public slot_no As Short - Public di_size As Byte - Public di_type As Char - Public di_addr As Short - Public do_size As Byte - Public do_type As Char - Public do_addr As Short - Public shift As Short - Public module_dlen As Byte - - Public module_data As Byte() - End Structure - - ' pmc_prfrdindiadr:Reads indication address of master function - ' pmc_prfwrindiadr:Writes indication address of master function - - Public Structure IODBINDEADR - Public dummy As Byte - Public indi_type As Char - 'Public indi_type As Byte - Public indi_addr As Short - End Structure - - '----------------------------------------------- - ' DS : Data server & Ethernet board function - '----------------------------------------------- - - ' etb_rdparam : read@the parameter of the Ethernet board - ' etb_wrparam : write the parameter of the Ethernet board - - Public Structure TCPPRM - - Public OwnIPAddress As String - - Public SubNetMask As String - - Public RouterIPAddress As String - End Structure - - - Public Structure HOSTPRM - Public DataServerPort As Short - - Public DataServerIPAddress As String - - Public DataServerUserName As String - - Public DataServerPassword As String - - Public DataServerLoginDirectory As String - End Structure - - - Public Structure FTPPRM - - Public FTPServerUserName As String - - Public FTPServerPassword As String - - Public FTPServerLoginDirectory As String - End Structure - - - Public Structure ETBPRM - - Public OwnMACAddress As String - Public MaximumChannel As Short - Public HDDExistence As Short - Public NumberOfScreens As Short - End Structure - - - - Public Structure IODBETP_TCP - Public ParameterType As Short - Public tcp As TCPPRM - End Structure - - - Public Structure IODBETP_HOST - Public ParameterType As Short - Public host As HOSTPRM - End Structure - - - Public Structure IODBETP_FTP - Public ParameterType As Short - Public ftp As FTPPRM - End Structure - - - Public Structure IODBETP_ETB - Public ParameterType As Short - Public etb As ETBPRM - End Structure - - - Public Structure ODBETMSG - - Public title As String - - Public message As String - End Structure - - ' ds_rdhddinfo : read information of the Data Server's HDD - - Public Structure ODBHDDINF - Public file_num As Integer - Public remainder_l As Integer - Public remainder_h As Integer - - Public current_dir As Byte() - End Structure - - - Public Structure ODBHDDDIR_data - - Public file_name As String - - Public comment As String - Public attribute As Short - Public reserved As Short - Public size As Integer - - Public dates As String - End Structure - - Public Structure ODBHDDDIR - Public data1 As ODBHDDDIR_data - Public data2 As ODBHDDDIR_data - Public data3 As ODBHDDDIR_data - Public data4 As ODBHDDDIR_data - Public data5 As ODBHDDDIR_data - Public data6 As ODBHDDDIR_data - Public data7 As ODBHDDDIR_data - Public data8 As ODBHDDDIR_data - Public data9 As ODBHDDDIR_data - Public data10 As ODBHDDDIR_data - Public data11 As ODBHDDDIR_data - Public data12 As ODBHDDDIR_data - Public data13 As ODBHDDDIR_data - Public data14 As ODBHDDDIR_data - Public data15 As ODBHDDDIR_data - Public data16 As ODBHDDDIR_data - Public data17 As ODBHDDDIR_data - Public data18 As ODBHDDDIR_data - Public data19 As ODBHDDDIR_data - Public data20 As ODBHDDDIR_data - Public data21 As ODBHDDDIR_data - Public data22 As ODBHDDDIR_data - Public data23 As ODBHDDDIR_data - Public data24 As ODBHDDDIR_data - Public data25 As ODBHDDDIR_data - Public data26 As ODBHDDDIR_data - Public data27 As ODBHDDDIR_data - Public data28 As ODBHDDDIR_data - Public data29 As ODBHDDDIR_data - Public data30 As ODBHDDDIR_data - Public data31 As ODBHDDDIR_data - Public data32 As ODBHDDDIR_data - End Structure - - ' ds_rdhostdir : read the file list of the host - - Public Structure ODBHOSTDIR_data - - Public host_file As String - 'Public host_file As Char() - End Structure - - Public Structure ODBHOSTDIR - Public data1 As ODBHOSTDIR_data - Public data2 As ODBHOSTDIR_data - Public data3 As ODBHOSTDIR_data - Public data4 As ODBHOSTDIR_data - Public data5 As ODBHOSTDIR_data - Public data6 As ODBHOSTDIR_data - Public data7 As ODBHOSTDIR_data - Public data8 As ODBHOSTDIR_data - Public data9 As ODBHOSTDIR_data - Public data10 As ODBHOSTDIR_data - Public data11 As ODBHOSTDIR_data - Public data12 As ODBHOSTDIR_data - Public data13 As ODBHOSTDIR_data - Public data14 As ODBHOSTDIR_data - Public data15 As ODBHOSTDIR_data - Public data16 As ODBHOSTDIR_data - Public data17 As ODBHOSTDIR_data - Public data18 As ODBHOSTDIR_data - Public data19 As ODBHOSTDIR_data - Public data20 As ODBHOSTDIR_data - Public data21 As ODBHOSTDIR_data - Public data22 As ODBHOSTDIR_data - Public data23 As ODBHOSTDIR_data - Public data24 As ODBHOSTDIR_data - Public data25 As ODBHOSTDIR_data - Public data26 As ODBHOSTDIR_data - Public data27 As ODBHOSTDIR_data - Public data28 As ODBHOSTDIR_data - Public data29 As ODBHOSTDIR_data - Public data30 As ODBHOSTDIR_data - Public data31 As ODBHOSTDIR_data - Public data32 As ODBHOSTDIR_data - End Structure - - ' ds_rdmntinfo : read maintenance information - - Public Structure DSMNTINFO - Public empty_cnt As Short - Public total_size As Integer - Public ReadPtr As Short - Public WritePtr As Short - End Structure - - - '-------------------------- - ' HSSB multiple connection - '-------------------------- - - ' cnc_rdnodeinfo:read node informations - - Public Structure ODBNODE - Public node_no As Integer - Public io_base As Integer - Public status As Integer - Public cnc_type As Integer - - Public node_name As String - End Structure - - - '------------------------------------- - ' CNC: Control axis / spindle related - '------------------------------------- - - ' read actual axis feedrate(F) - Declare Function cnc_actf Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBACT) As Short - - ' read absolute axis position - Declare Function cnc_absolute Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBAXIS) As Short - - ' read machine axis position - Declare Function cnc_machine Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBAXIS) As Short - - ' read relative axis position - Declare Function cnc_relative Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBAXIS) As Short - - ' read distance to go - Declare Function cnc_distance Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBAXIS) As Short - - ' read skip position - Declare Function cnc_skip Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBAXIS) As Short - - ' read servo delay value - Declare Function cnc_srvdelay Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBAXIS) As Short - - ' read acceleration/deceleration delay value - Declare Function cnc_accdecdly Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBAXIS) As Short - - ' read all dynamic data -#If ONO8D = Nothing Then - Declare Function cnc_rddynamic Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBDY_1) As Short - Declare Function cnc_rddynamic Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBDY_2) As Short -#Else - Declare Function cnc_rddynamico8 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBDY_1) As Short - Declare Function cnc_rddynamico8 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBDY_2) As Short -#End If - - ' read all dynamic data - Declare Function cnc_rddynamic2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBDY2_1) As Short - Declare Function cnc_rddynamic2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBDY2_2) As Short - - ' read actual spindle speed(S) - Declare Function cnc_acts Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBACT) As Short - - ' read actual spindle speed(S) (All or spesified) - Declare Function cnc_acts2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBACT2) As Short - - ' set origin / preset relative axis position - Declare Function cnc_wrrelpos Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IDBWRR) As Short - - ' preset work coordinate - Declare Function cnc_prstwkcd Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IDBWRA) As Short - - ' read manual overlapped motion value - Declare Function cnc_rdmovrlap Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As IODBOVL) As Short - - ' cancel manual overlapped motion value - Declare Function cnc_canmovrlap Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' read load information of serial spindle - Declare Function cnc_rdspload Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As ODBSPN) As Short - - ' read maximum r.p.m. ratio of serial spindle - Declare Function cnc_rdspmaxrpm Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As ODBSPN) As Short - - ' read gear ratio of serial spindle - Declare Function cnc_rdspgear Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As ODBSPN) As Short - - ' read absolute axis position 2 - Declare Function cnc_absolute2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBAXIS) As Short - - ' read relative axis position 2 - Declare Function cnc_relative2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBAXIS) As Short - - ' set wire vertival position - Declare Function cnc_setvrtclpos Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' set wire threading position - Declare Function cnc_setthrdngpos Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' read tool position - Declare Function cnc_rdposition Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As ODBPOS) As Short - - ' read current speed - Declare Function cnc_rdspeed Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As ODBSPEED) As Short - - ' read servo load meter - Declare Function cnc_rdsvmeter Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As ODBSVLOAD) As Short - - ' read spindle load meter - Declare Function cnc_rdspmeter Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As ODBSPLOAD) As Short - - ' read handle interruption - Declare Function cnc_rdhndintrpt Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As ODBHND) As Short - - ' read manual feed for 5-axis machining - Declare Function cnc_rd5axmandt Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODB5AXMAN) As Short - - ' read amount of machine axes movement of manual feed for 5-axis machining - Declare Function cnc_rd5axovrlap Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBAXIS) As Short - - ' clear pulse values of manual feed for 5-axis machining - Declare Function cnc_clr5axpls Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' read constant surface speed - Declare Function cnc_rdspcss Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBCSS) As Short - - ' read execution program pointer - Declare Function cnc_rdexecpt Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As PRGPNT, ByRef b As PRGPNT) As Short - - ' read various axis data - Declare Function cnc_rdaxisdata Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b() As Short, ByVal c As Short, ByRef d As Short, ByRef c As ODBAXDT) As Short - - '---------------------- - ' CNC: Program related - '---------------------- - - ' start downloading NC program - Declare Function cnc_dwnstart Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' download NC program - Declare Function cnc_download Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Short) As Short - - ' download NC program(conditional) - Declare Function cnc_cdownload Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Short) As Short - - ' end of downloading NC program - Declare Function cnc_dwnend Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' end of downloading NC program 2 - Declare Function cnc_dwnend2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' start downloading NC program 3 - Declare Function cnc_dwnstart3 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' start downloading NC program 3 special - Declare Function cnc_dwnstart3_f Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Short, ByVal b As String, ByVal c As String) As Short - - ' download NC program 3 - Declare Function cnc_download3 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer, ByVal b As String) As Short - - ' end of downloading NC program 3 - Declare Function cnc_dwnend3 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' start downloading NC program 4 - Declare Function cnc_dwnstart4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As String) As Short - - ' download NC program 4 - Declare Function cnc_download4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer, ByVal b As String) As Short - - ' end of downloading NC program 4 - Declare Function cnc_dwnend4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' start verification of NC program - Declare Function cnc_vrfstart Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' verify NC program - Declare Function cnc_verify Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Short) As Short - - ' verify NC program(conditional) - Declare Function cnc_cverify Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Short) As Short - - ' end of verification - Declare Function cnc_vrfend Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' start verification of NC program - Declare Function cnc_vrfstart4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' verify NC program - Declare Function cnc_verify4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer, <[In], Out> ByVal a() As Char) As Short - - ' end of verification - Declare Function cnc_vrfend4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' start downloading DNC program - Declare Function cnc_dncstart Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' download DNC program - Declare Function cnc_dnc Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Integer) As Short - - ' download DNC program(conditional) - Declare Function cnc_cdnc Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Integer) As Short - - ' end of downloading DNC program - Declare Function cnc_dncend Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' start downloading DNC program 2 - Declare Function cnc_dncstart2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, <[In], Out> ByVal a() As Char) As Short - - ' download DNC program 2 - Declare Function cnc_dnc2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer, ByVal b As String) As Short - - ' end of downloading DNC program 2 - Declare Function cnc_dncend2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' read the diagnosis data of DNC operation - Declare Function cnc_rddncdgndt Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBDNCDGN) As Short - - ' start uploading NC program -#If ONO8D = Nothing Then - Declare Function cnc_upstart Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short -#Else - Declare Function cnc_upstart Lib "FWLIB32.DLL" Alias "cnc_upstarto8" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer ) As Short -#End If - - ' upload NC program - Declare Function cnc_upload Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBUP, ByRef b As Integer) As Short - - ' upload NC program(conditional) - Declare Function cnc_cupload Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBUP, ByRef b As Integer) As Short - - ' end of uploading NC program - Declare Function cnc_upend Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' start uploading NC program 3 - Declare Function cnc_upstart3 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer, ByVal c As Integer) As Short - - ' start uploading NC program special 3 - Declare Function cnc_upstart3_f Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Short, ByVal b As String, ByVal c As String) As Short - - ' upload NC program 3 - Declare Function cnc_upload3 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer, <[In], Out> ByVal c() As Char) As Short - - ' end of uploading NC program 3 - Declare Function cnc_upend3 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' start uploading NC program 4 - Declare Function cnc_upstart4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As String) As Short - - ' upload NC program 4 - Declare Function cnc_upload4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer, <[In], Out> ByVal b() As Char) As Short - - ' end of uploading NC program 4 - Declare Function cnc_upend4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' read buffer status for downloading/verification NC program - Declare Function cnc_buff Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBBUF) As Short - - ' search specified program -#If ONO8D = Nothing Then - Declare Function cnc_search Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short -#Else - Declare Function cnc_search Lib "FWLIB32.DLL" Alias "cnc_searcho8" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer ) As Short -#End If - - ' search specified program - Declare Function cnc_search2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer) As Short - - ' delete all programs - Declare Function cnc_delall Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' delete specified program -#If ONO8D = Nothing Then - Declare Function cnc_delete Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short -#Else - Declare Function cnc_delete Lib "FWLIB32.DLL" Alias "cnc_deleteo8" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer ) As Short -#End If - - ' delete program (area specified) - Declare Function cnc_delrange Lib "FWLIB32.DLL" Alias "cnc_delrange" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer) As Short - - ' read program directory -#If ONO8D = Nothing Then - Declare Function cnc_rdprogdir Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Integer, ByRef e As PRGDIR) As Short -#Else - Declare Function cnc_rdprogdir Lib "FWLIB32.DLL" Alias "cnc_rdprogdiro8" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Integer, ByRef e As PRGDIR) As Short -#End If - - ' read program information - Declare Function cnc_rdproginfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBNC_1) As Short - Declare Function cnc_rdproginfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBNC_2) As Short - - ' read program number under execution -#If ONO8D = Nothing Then - Declare Function cnc_rdprgnum Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBPRO) As Short -#Else - Declare Function cnc_rdprgnum Lib "FWLIB32.DLL" Alias "cnc_rdprgnumo8" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBPRO ) As Short -#End If - - ' read program name under execution - Declare Function cnc_exeprgname Lib "FWLIB32.DLL" Alias "cnc_exeprgname" _ - (ByVal FlibHndl As Integer, ByRef a As ODBEXEPRG) As Short - - ' read sequence number under execution - Declare Function cnc_rdseqnum Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBSEQ) As Short - - ' search specified sequence number - Declare Function cnc_seqsrch Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer) As Short - - ' search specified sequence number (2) - Declare Function cnc_seqsrch2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer) As Short - - ' rewind cursor of NC program - Declare Function cnc_rewind Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' read block counter - Declare Function cnc_rdblkcount Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer) As Short - - '' read program under execution - 'Declare Function cnc_rdexecprog Lib "FWLIB32.DLL" _ - ' (ByVal FlibHndl As Integer, ByRef a As Integer, ByRef b As Short, <[In], Out> ByVal c() As Char) As Short - ' read program under execution - Declare Function cnc_rdexecprog Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer, ByRef b As Integer, <[In](), Out()> ByVal c() As Char) As Short - - ' read program for MDI operation - Declare Function cnc_rdmdiprog Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short, <[In], Out> ByVal c() As Char) As Short - - ' write program for MDI operation - Declare Function cnc_wrmdiprog Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As String) As Short - - ' read execution pointer for MDI operation -#If ONO8D = Nothing Then - Declare Function cnc_rdmdipntr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBMDIP) As Short -#Else - Declare Function cnc_rdmdipntr Lib "FWLIB32.DLL" Alias "cnc_rdmdipntro8" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBMDIP ) As Short -#End If - - ' write execution pointer for MDI operation - Declare Function cnc_wrmdipntr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer) As Short - - ' register new program - Declare Function cnc_newprog Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer) As Short - - ' copy program - Declare Function cnc_copyprog Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer) As Short - - ' rename program - Declare Function cnc_renameprog Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer) As Short - - ' condense program - Declare Function cnc_condense Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer) As Short - - ' merge program - Declare Function cnc_mergeprog Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer) As Short - - ' read current program and its pointer - Declare Function cnc_rdactpt Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer, ByRef b As Integer) As Short - - ' read current program and its pointer and UV macro pointer - Declare Function cnc_rduvactpt Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer, ByRef b As Integer, ByRef c As Integer) As Short - - ' set current program and its pointer - Declare Function cnc_wractpt Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Short, ByRef c As Integer) As Short - - ' line edit (read program) - Declare Function cnc_rdprogline Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Integer, ByVal b As Integer, <[In], Out> ByVal c() As Char, ByRef d As Integer, ByRef e As Integer) As Short - - ' line edit (read program) - Declare Function cnc_rdprogline2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Integer, ByVal b As Integer, <[In], Out> ByVal c() As Char, ByRef d As Integer, ByRef e As Integer) As Short - - ' line edit (write program) - Declare Function cnc_wrprogline Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer, ByVal c As String, ByVal d As Integer) As Short - - ' line edit (delete line in program) - Declare Function cnc_delprogline Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer, ByVal c As Integer) As Short - - ' line edit (search string) - Declare Function cnc_searchword Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Integer, ByVal b As Integer, ByVal c As Short, ByVal d As Short, ByVal e As Integer, ByVal f As String) As Short - - ' line edit (search string) - Declare Function cnc_searchresult Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer) As Short - - ' line edit (read program by file name) - Declare Function cnc_rdpdf_line Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Integer, <[In], Out> ByVal c() As Char, ByRef d As Integer, ByRef e As Integer) As Short - - ' program lock - Declare Function cnc_setpglock Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer) As Short - - ' program unlock - Declare Function cnc_resetpglock Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer) As Short - - ' read the status of the program lock - Declare Function cnc_rdpglockstat Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer, ByRef b As Integer) As Short - - ' create file or directory - Declare Function cnc_pdf_add Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' condense program file - Declare Function cnc_pdf_cond Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' change attribute of program file and directory - Declare Function cnc_wrpdf_attr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByRef b As IDBPDFTDIR) As Short - - ' copy program file - Declare Function cnc_pdf_copy Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As String) As Short - - ' delete file or directory - Declare Function cnc_pdf_del Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' line edit (write program by file name) - Declare Function cnc_wrpdf_line Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Integer, ByVal c As String, ByVal d As Integer) As Short - - ' line edit (delete line by file name) - Declare Function cnc_pdf_delline Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Integer, ByVal c As Integer) As Short - - ' move program file - Declare Function cnc_pdf_move Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As String) As Short - - ' read current program and its pointer - Declare Function cnc_pdf_rdactpt Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, <[In], Out> ByVal a() As Char, ByRef b As Integer) As Short - - ' read selected file name - Declare Function cnc_pdf_rdmain Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, <[In], Out> ByVal a() As Char) As Short - - ' rename file or directory - Declare Function cnc_pdf_rename Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As String) As Short - - ' line edit (search string) - Declare Function cnc_pdf_searchword Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByVal f As String) As Short - - ' line edit (search string) - Declare Function cnc_pdf_searchresult Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer) As Short - - ' select program file - Declare Function cnc_pdf_slctmain Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' set current program and its pointer - Declare Function cnc_pdf_wractpt Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Short, ByRef c As Integer) As Short - - ' read program drive information - Declare Function cnc_rdpdf_inf Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Short, ByRef c As ODBPDFINF) As Short - - ' read program drive directory - Declare Function cnc_rdpdf_drive Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBPDFDRV) As Short - - ' read current directory - Declare Function cnc_rdpdf_curdir Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, <[In], Out> ByVal b() As Char) As Short - - ' set current directory - Declare Function cnc_wrpdf_curdir Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, <[In], Out> ByVal b() As Char) As Short - - ' read directory (sub directories) - Declare Function cnc_rdpdf_subdir Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As IDBPDFSDIR, ByRef b As ODBPDFSDIR) As Short - - ' read directory (all files) - Declare Function cnc_rdpdf_alldir Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As IDBPDFADIR, ByRef c As ODBPDFADIR) As Short - - ' read file count in directory - Declare Function cnc_rdpdf_subdirn Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByRef b As ODBPDFNFIL) As Short - - '--------------------------- - ' CNC: NC file data related - '--------------------------- - - ' read tool offset value - Declare Function cnc_rdtofs Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As ODBTOFS) As Short - - ' write tool offset value - Declare Function cnc_wrtofs Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Integer) As Short - - ' read tool offset value(area specified) - Declare Function cnc_rdtofsr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Short, ByRef e As IODBTO_1_1) As Short - Declare Function cnc_rdtofsr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Short, ByRef e As IODBTO_1_2) As Short - Declare Function cnc_rdtofsr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Short, ByRef e As IODBTO_1_3) As Short - Declare Function cnc_rdtofsr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Short, ByRef e As IODBTO_2) As Short - Declare Function cnc_rdtofsr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Short, ByRef e As IODBTO_3) As Short - - ' write tool offset value(area specified) - Declare Function cnc_wrtofsr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTO_1_1) As Short - Declare Function cnc_wrtofsr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTO_1_2) As Short - Declare Function cnc_wrtofsr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTO_1_3) As Short - Declare Function cnc_wrtofsr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTO_2) As Short - Declare Function cnc_wrtofsr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTO_3) As Short - - ' read work zero offset value - Declare Function cnc_rdzofs Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBZOFS) As Short - - ' write work zero offset value - Declare Function cnc_wrzofs Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBZOFS) As Short - - ' read work zero offset value(area specified) - Declare Function cnc_rdzofsr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Short, ByRef e As IODBZOR) As Short - - ' write work zero offset value(area specified) - Declare Function cnc_wrzofsr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBZOR) As Short - - ' read mesured point value - Declare Function cnc_rdmsptype Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBMSTP) As Short - - ' write mesured point value - Declare Function cnc_wrmsptype Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef d As IODBMSTP) As Short - - ' read parameter - Declare Function cnc_rdparam Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBPSD_1) As Short - Declare Function cnc_rdparam Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBPSD_2) As Short - Declare Function cnc_rdparam Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBPSD_3) As Short - Declare Function cnc_rdparam Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBPSD_4) As Short - - ' write parameter - Declare Function cnc_wrparam Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_1) As Short - Declare Function cnc_wrparam Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_2) As Short - Declare Function cnc_wrparam Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_3) As Short - Declare Function cnc_wrparam Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_4) As Short - - ' read parameter - Declare Function cnc_rdparam3 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Short, ByRef e As IODBPSD_1) As Short - Declare Function cnc_rdparam3 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Short, ByRef e As IODBPSD_2) As Short - Declare Function cnc_rdparam3 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Short, ByRef e As IODBPSD_3) As Short - Declare Function cnc_rdparam3 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Short, ByRef e As IODBPSD_4) As Short - - ' read parameter(area specified) - Declare Function cnc_rdparar Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As IODBPSD_A) As Short - Declare Function cnc_rdparar Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As IODBPSD_B) As Short - Declare Function cnc_rdparar Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As IODBPSD_C) As Short - Declare Function cnc_rdparar Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As IODBPSD_D) As Short - - ' write parameter(area specified) - Declare Function cnc_wrparas Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_A) As Short - Declare Function cnc_wrparas Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_B) As Short - Declare Function cnc_wrparas Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_C) As Short - Declare Function cnc_wrparas Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_D) As Short - - ' read setting data - Declare Function cnc_rdset Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBPSD_1) As Short - Declare Function cnc_rdset Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBPSD_2) As Short - Declare Function cnc_rdset Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBPSD_3) As Short - Declare Function cnc_rdset Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBPSD_4) As Short - - ' write setting data - Declare Function cnc_wrset Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_1) As Short - Declare Function cnc_wrset Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_2) As Short - Declare Function cnc_wrset Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_3) As Short - Declare Function cnc_wrset Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_4) As Short - - ' read setting data(area specified) - Declare Function cnc_rdsetr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As IODBPSD_A) As Short - Declare Function cnc_rdsetr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As IODBPSD_B) As Short - Declare Function cnc_rdsetr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As IODBPSD_C) As Short - Declare Function cnc_rdsetr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As IODBPSD_D) As Short - - ' write setting data(area specified) - Declare Function cnc_wrsets Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_A) As Short - Declare Function cnc_wrsets Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_B) As Short - Declare Function cnc_wrsets Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_C) As Short - Declare Function cnc_wrsets Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_D) As Short - - ' read parameters - Declare Function cnc_rdparam_ext Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBPRMNO, ByVal b As Short, ByRef c As IODBPRM) As Short - - ' async parameter write start - Declare Function cnc_start_async_wrparam Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBPRM) As Short - - ' async parameter write end - Declare Function cnc_end_async_wrparam Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' read cause of busy for async parameter write - Declare Function cnc_async_busy_state Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' read diagnosis data - Declare Function cnc_rddiag_ext Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBPRMNO, ByVal b As Short, ByRef c As IODBPRM) As Short - - ' read pitch error compensation data(area specified) - Declare Function cnc_rdpitchr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBPI) As Short - - ' write pitch error compensation data(area specified) - Declare Function cnc_wrpitchr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPI) As Short - - ' read custom macro variable - Declare Function cnc_rdmacro Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBM) As Short - - ' write custom macro variable - Declare Function cnc_wrmacro Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Integer, ByVal d As Short) As Short - - ' read custom macro variables(area specified) - Declare Function cnc_rdmacror Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBMR) As Short - - ' write custom macro variables(area specified) - Declare Function cnc_wrmacror Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBMR) As Short - - ' read custom macro variables(IEEE double version) - Declare Function cnc_rdmacror2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, <[In], Out> ByRef c() As Double) As Short - - ' write custom macro variables(IEEE double version) - Declare Function cnc_wrmacror2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, <[In], Out> ByVal c() As Double) As Short - - ' read P code macro variable - Declare Function cnc_rdpmacro Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As ODBPM) As Short - - ' write P code macro variable - Declare Function cnc_wrpmacro Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer, ByVal c As Short) As Short - - ' read P code macro variables(area specified) - Declare Function cnc_rdpmacror Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByRef d As IODBPR) As Short - - ' write P code macro variables(area specified) - Declare Function cnc_wrpmacror Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As IODBPR) As Short - - ' read P code macro variables(IEEE double version) - Declare Function cnc_rdpmacror2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, ByVal c As Short, <[In], Out> ByVal d() As Double) As Short - - ' write P code macro variables(IEEE double version) - Declare Function cnc_wrpmacror2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, ByVal c As Short, <[In], Out> ByVal d() As Double) As Short - - ' read tool offset information - Declare Function cnc_rdtofsinfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBTLINF) As Short - - ' read tool offset information(2) - Declare Function cnc_rdtofsinfo2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBTLINF2) As Short - - ' read work zero offset information - Declare Function cnc_rdzofsinfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' read pitch error compensation data information - Declare Function cnc_rdpitchinfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' read custom macro variable information - Declare Function cnc_rdmacroinfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBMVINF) As Short - - ' read P code macro variable information - Declare Function cnc_rdpmacroinfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBPMINF) As Short - - ' read validity of tool offset - Declare Function cnc_tofs_rnge Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer, ByRef c As ODBDATRNG) As Short - - ' read validity of work zero offset - Declare Function cnc_zofs_rnge Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer, ByRef c As ODBDATRNG) As Short - - ' read validity of work zero offset - Declare Function cnc_wksft_rnge Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As ODBDATRNG) As Short - - ' read the information for function cnc_rdhsparam() - Declare Function cnc_rdhsprminfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As HSPINFO_data) As Short - - ' read parameters at the high speed - Declare Function cnc_rdhsparam Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As HSPINFO, ByRef c As HSPDATA_1) As Short - - Declare Function cnc_rdhsparam Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As HSPINFO, ByRef c As HSPDATA_2) As Short - - Declare Function cnc_rdhsparam Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As HSPINFO, ByRef c As HSPDATA_3) As Short - - - '---------------------------------------- - ' CNC: Tool life management data related - '---------------------------------------- - - ' read tool life management data(tool group number) - Declare Function cnc_rdgrpid Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As ODBTLIFE1) As Short - - ' read tool life management data(number of tool groups) - Declare Function cnc_rdngrp Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBTLIFE2) As Short - - ' read tool life management data(number of tools) - Declare Function cnc_rdntool Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As ODBTLIFE3) As Short - - ' read tool life management data(tool life) - Declare Function cnc_rdlife Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As ODBTLIFE3) As Short - - ' read tool life management data(tool lift counter) - Declare Function cnc_rdcount Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As ODBTLIFE3) As Short - - ' read tool life management data(tool length number-1) - Declare Function cnc_rd1length Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBTLIFE4) As Short - - ' read tool life management data(tool length number-2) - Declare Function cnc_rd2length Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBTLIFE4) As Short - - ' read tool life management data(cutter compensation no.-1) - Declare Function cnc_rd1radius Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBTLIFE4) As Short - - ' read tool life management data(cutter compensation no.-2) - Declare Function cnc_rd2radius Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBTLIFE4) As Short - - ' read tool life management data(tool information-1) - Declare Function cnc_t1info Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBTLIFE4) As Short - - ' read tool life management data(tool information-2) - Declare Function cnc_t2info Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBTLIFE4) As Short - - ' read tool life management data(tool number) - Declare Function cnc_toolnum Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBTLIFE4) As Short - - ' read tool life management data(tool number, tool life, tool life counter)(area specified) - Declare Function cnc_rdtoolrng Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBTR) As Short - - ' read tool life management data(all data within group) - Declare Function cnc_rdtoolgrp Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBTG) As Short - - ' write tool life management data(tool life counter) (area specified) - Declare Function cnc_wrcountr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IDBWRC) As Short - - ' read tool life management data(used tool group number) - Declare Function cnc_rdusegrpid Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBUSEGR) As Short - - ' read tool life management data(max. number of tool groups) - Declare Function cnc_rdmaxgrp Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBLFNO) As Short - - ' read tool life management data(maximum number of tool within group) - Declare Function cnc_rdmaxtool Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBLFNO) As Short - - ' read tool life management data(used tool no. within group) - Declare Function cnc_rdusetlno Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As ODBTLUSE) As Short - - ' read tool life management data(tool data1) - Declare Function cnc_rd1tlifedata Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As IODBTD) As Short - - ' read tool life management data(tool data2) - Declare Function cnc_rd2tlifedata Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As IODBTD) As Short - - ' write tool life management data(tool data1) - Declare Function cnc_wr1tlifedata Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBTD) As Short - - ' write tool life management data(tool data2) - Declare Function cnc_wr2tlifedata Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBTD) As Short - - ' read tool life management data(tool group information) - Declare Function cnc_rdgrpinfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBTGI) As Short - - ' read tool life management data(tool group information 2) - Declare Function cnc_rdgrpinfo2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBTGI2) As Short - - ' read tool life management data(tool group information 3) - Declare Function cnc_rdgrpinfo3 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBTGI3) As Short - - ' read tool life management data(tool group information 4) - Declare Function cnc_rdgrpinfo4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As Short, ByRef e As IODBTGI4) As Short - - ' write tool life management data(tool group information) - Declare Function cnc_wrgrpinfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTGI) As Short - - ' write tool life management data(tool group information 2) - Declare Function cnc_wrgrpinfo2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTGI2) As Short - - ' write tool life management data(tool group information 3) - Declare Function cnc_wrgrpinfo3 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTGI3) As Short - - ' delete tool life management data(tool group) - Declare Function cnc_deltlifegrp Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' insert tool life management data(tool data) - Declare Function cnc_instlifedt Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IDBITD) As Short - - ' delete tool life management data(tool data) - Declare Function cnc_deltlifedt Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short) As Short - - ' clear tool life management data(tool life counter, tool information)(area specified) - Declare Function cnc_clrcntinfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short) As Short - - ' read tool life management data(tool group number) 2 - Declare Function cnc_rdgrpid2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As ODBTLIFE5) As Short - - ' read tool life management data(tool data1) 2 - Declare Function cnc_rd1tlifedat2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer, ByRef c As IODBTD2) As Short - - ' write tool life management data(tool data1) 2 - Declare Function cnc_wr1tlifedat2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBTD2) As Short - - ' read tool life management data - Declare Function cnc_rdtlinfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBTLINFO) As Short - - ' read tool life management data(used tool group number) - Declare Function cnc_rdtlusegrp Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBUSEGRP) As Short - - ' read tool life management data(tool group information 2) - Declare Function cnc_rdtlgrp Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Short, ByRef c As IODBTLGRP) As Short - - ' read tool life management data (tool data1) - Declare Function cnc_rdtltool Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer, ByRef c As Short, ByRef d As IODBTLTOOL) As Short - - Declare Function cnc_rdexchgtgrp Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef b As Short, ByRef c As ODBEXGP) As Short - - '----------------------------------- - ' CNC: Tool management data related - '----------------------------------- - - ' new registration of tool management data - Declare Function cnc_regtool Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBTLMNG) As Short - - ' new registration of tool management data - Declare Function cnc_regtool_f2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBTLMNG_F2) As Short - - ' deletion of tool management data - Declare Function cnc_deltool Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short) As Short - - ' lead of tool management data - Declare Function cnc_rdtool Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBTLMNG) As Short - - ' lead of tool management data - Declare Function cnc_rdtool_f2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBTLMNG_F2) As Short - - ' write of tool management data - Declare Function cnc_wrtool Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTLMNG) As Short - - ' write of individual data of tool management data - Declare Function cnc_wrtool2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IDBTLM) As Short - - ' write tool management data - Declare Function cnc_wrtool_f2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTLMNG_F2_data) As Short - - ' new registration of magazine management data - Declare Function cnc_regmagazine Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As IODBTLMAG) As Short - - ' deletion of magazine management data - Declare Function cnc_delmagazine Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As IODBTLMAG2) As Short - - ' lead of magazine management data - Declare Function cnc_rdmagazine Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As IODBTLMAG) As Short - - ' Individual write of magazine management data - Declare Function cnc_wrmagazine Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short) As Short - - - '------------------------------------- - ' CNC: Operation history data related - '------------------------------------- - - ' stop logging operation history data - Declare Function cnc_stopophis Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' restart logging operation history data - Declare Function cnc_startophis Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' read number of operation history data - Declare Function cnc_rdophisno Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer) As Short - - ' read operation history data - Declare Function cnc_rdophistry Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByRef d As ODBHIS) As Short - - ' read operation history data - Declare Function cnc_rdophistry2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Integer, ByRef b As Integer, ByRef c As Integer, <[In], Out> ByVal d() As ODBOPHIS) As Short - - ' read operation history data F30i - Declare Function cnc_rdophistry4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Integer, ByRef b As Integer, ByRef c As Integer, ByRef d As ODBOPHIS4_1) As Short - - Declare Function cnc_rdophistry4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Integer, ByRef b As Integer, ByRef c As Integer, ByRef d As ODBOPHIS4_2) As Short - - Declare Function cnc_rdophistry4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Integer, ByRef b As Integer, ByRef c As Integer, ByRef d As ODBOPHIS4_3) As Short - - Declare Function cnc_rdophistry4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Integer, ByRef b As Integer, ByRef c As Integer, ByRef d As ODBOPHIS4_4) As Short - - Declare Function cnc_rdophistry4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Integer, ByRef b As Integer, ByRef c As Integer, ByRef d As ODBOPHIS4_5) As Short - - Declare Function cnc_rdophistry4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Integer, ByRef b As Integer, ByRef c As Integer, ByRef d As ODBOPHIS4_6) As Short - - Declare Function cnc_rdophistry4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Integer, ByRef b As Integer, ByRef c As Integer, ByRef d As ODBOPHIS4_7) As Short - - Declare Function cnc_rdophistry4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Integer, ByRef b As Integer, ByRef c As Integer, ByRef d As ODBOPHIS4_8) As Short - - Declare Function cnc_rdophistry4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Integer, ByRef b As Integer, ByRef c As Integer, ByRef d As ODBOPHIS4_9) As Short - - Declare Function cnc_rdophistry4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Integer, ByRef b As Integer, ByRef c As Integer, ByRef d As ODBOPHIS4_10) As Short - - Declare Function cnc_rdophistry4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Integer, ByRef b As Integer, ByRef c As Integer, ByRef d As ODBOPHIS4_11) As Short - - ' read number of alarm history data - Declare Function cnc_rdalmhisno Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer) As Short - - ' read alarm history data - Declare Function cnc_rdalmhistry Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByRef d As ODBAHIS) As Short - - ' read alarm history data - Declare Function cnc_rdalmhistry_w Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer, ByVal c As Integer, ByRef d As ODBAHIS) As Short - - ' read alarm history data - Declare Function cnc_rdalmhistry2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByRef d As ODBAHIS2) As Short - - ' read alarm history data F30i - Declare Function cnc_rdalmhistry3 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByRef d As ODBAHIS3) As Short - - ' read alarm history data F30i - Declare Function cnc_rdalmhistry5 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByRef d As ODBAHIS5) As Short - - ' clear operation history data - Declare Function cnc_clearophis Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' read signals related operation history - Declare Function cnc_rdhissgnl Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBSIG) As Short - - ' read signals related operation history 2 - Declare Function cnc_rdhissgnl2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBSIG2) As Short - - ' read signals related operation history 3 - Declare Function cnc_rdhissgnl3 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBSIG3) As Short - - ' write signals related operation history - Declare Function cnc_wrhissgnl Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBSIG) As Short - - ' write signals related operation history 2 - Declare Function cnc_wrhissgnl2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBSIG2) As Short - - ' write signals related operation history for F30i - Declare Function cnc_wrhissgnl3 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBSIG3) As Short - - ' read number of operater message history data - Declare Function cnc_rdomhisno Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - '------------- - ' CNC: Others - '------------- - - ' read CNC system information - Declare Function cnc_sysinfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBSYS) As Short - - ' read CNC status information - Declare Function cnc_statinfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBST) As Short - - ' read alarm status - Declare Function cnc_alarm Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBALM) As Short - - ' read alarm status - Declare Function cnc_alarm2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer) As Short - - ' read alarm information - Declare Function cnc_rdalminfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As ALMINFO_1) As Short - - Declare Function cnc_rdalminfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As ALMINFO_2) As Short - - ' read alarm message - Declare Function cnc_rdalmmsg Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As ODBALMMSG) As Short - - ' read alarm message (2) - Declare Function cnc_rdalmmsg2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As ODBALMMSG2) As Short - - ' clear CNC alarm - Declare Function cnc_clralm Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' read modal data - Declare Function cnc_modal Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBMDL_1) As Short - Declare Function cnc_modal Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBMDL_2) As Short - Declare Function cnc_modal Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBMDL_3) As Short - Declare Function cnc_modal Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBMDL_4) As Short - Declare Function cnc_modal Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBMDL_5) As Short - - ' read G code - Declare Function cnc_rdgcode Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As Short, ByRef d As ODBGCD) As Short - - ' read command value - Declare Function cnc_rdcommand Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As Short, ByRef d As ODBCMD) As Short - - ' read diagnosis data - Declare Function cnc_diagnoss Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As ODBDGN_1) As Short - Declare Function cnc_diagnoss Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As ODBDGN_2) As Short - Declare Function cnc_diagnoss Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As ODBDGN_3) As Short - Declare Function cnc_diagnoss Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As ODBDGN_4) As Short - - ' read diagnosis data(area specified) - Declare Function cnc_diagnosr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As ODBDGN_A) As Short - Declare Function cnc_diagnosr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As ODBDGN_B) As Short - Declare Function cnc_diagnosr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As ODBDGN_C) As Short - Declare Function cnc_diagnosr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As ODBDGN_D) As Short - - ' read A/D conversion data - Declare Function cnc_adcnv Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBAD) As Short - - ' read operator's message - Declare Function cnc_rdopmsg Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As OPMSG) As Short - - ' read operator's message - Declare Function cnc_rdopmsg2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As OPMSG2) As Short - - ' read operator's message - Declare Function cnc_rdopmsg3 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As OPMSG3) As Short - - ' set path number(for 4 axes lathes, multi-path) - Declare Function cnc_setpath Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' get path number(for 4 axes lathes, multi-path) - Declare Function cnc_getpath Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As Short) As Short - - ' allocate library handle - Declare Function cnc_allclibhndl Lib "FWLIB32.DLL" _ - (ByRef FlibHndl As Integer) As Short - - ' free library handle - Declare Function cnc_freelibhndl Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' get library option - Declare Function cnc_getlibopt Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, <[In], Out> ByVal b() As Char, ByRef c As Integer) As Short - - ' set library option - Declare Function cnc_setlibopt Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b() As Char, ByVal c As Integer) As Short - - ' get custom macro type - Declare Function cnc_getmactype Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' set custom macro type - Declare Function cnc_setmactype Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' get P code macro type - Declare Function cnc_getpmactype Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' set P code macro type - Declare Function cnc_setpmactype Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' get screen status - Declare Function cnc_getcrntscrn Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' change screen mode - Declare Function cnc_slctscrn Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' read CNC configuration information - Declare Function cnc_sysconfig Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBSYSC) As Short - - ' read program restart information - Declare Function cnc_rdprstrinfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBPRS) As Short - - ' search sequence number for program restart - Declare Function cnc_rstrseqsrch Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer, ByVal c As Short, ByVal d As Short) As Short - - ' search sequence number for program restart 2 - Declare Function cnc_rstrseqsrch2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Integer, ByVal b As Integer, ByVal c As Short, ByVal d As Short, ByVal e As Integer) As Short - - ' read output signal image of software operator's panel - Declare Function cnc_rdopnlsgnl Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBSGNL) As Short - - ' write output signal of software operator's panel - Declare Function cnc_wropnlsgnl Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBSGNL) As Short - - ' read general signal image of software operator's panel - Declare Function cnc_rdopnlgnrl Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBGNRL) As Short - - ' write general signal image of software operator's panel - Declare Function cnc_wropnlgnrl Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBGNRL) As Short - - ' read general signal name of software operator's panel - Declare Function cnc_rdopnlgsname Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBRDNA) As Short - - ' write general signal name of software operator's panel - Declare Function cnc_wropnlgsname Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBRDNA) As Short - - ' get detail error - Declare Function cnc_getdtailerr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBERR) As Short - - ' read informations of CNC parameter - Declare Function cnc_rdparainfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer, ByRef c As ODBPARAIF) As Short - - ' read informations of CNC setting data - Declare Function cnc_rdsetinfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer, ByRef c As ODBSETIF) As Short - - ' read informations of CNC diagnose data - Declare Function cnc_rddiaginfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer, ByRef c As ODBDIAGIF) As Short - - ' read maximum, minimum and total number of CNC parameter - Declare Function cnc_rdparanum Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBPARANUM) As Short - - ' read maximum, minimum and total number of CNC setting data - Declare Function cnc_rdsetnum Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBSETNUM) As Short - - ' read maximum, minimum and total number of CNC diagnose data - Declare Function cnc_rddiagnum Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBDIAGNUM) As Short - - ' get maximum valid figures and number of decimal places - Declare Function cnc_getfigure Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Short, ByRef b As Short, <[In], Out> ByVal c() As Short, <[In], Out> ByVal d() As Short) As Short - - ' read F-ROM information on CNC - Declare Function cnc_rdfrominfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As ODBFINFO) As Short - - ' start of reading F-ROM data from CNC - Declare Function cnc_fromsvstart Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As String, ByVal c As Integer) As Short - - ' read F-ROM data from CNC - Declare Function cnc_fromsave Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short, <[In], Out> ByVal b() As Byte, ByRef c As Integer) As Short - - ' end of reading F-ROM data from CNC - Declare Function cnc_fromsvend Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' start of writing F-ROM data to CNC - Declare Function cnc_fromldstart Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer) As Short - - ' write F-ROM data to CNC - Declare Function cnc_fromload Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal b() As Byte, ByRef b As Integer) As Short - - ' end of writing F-ROM data to CNC - Declare Function cnc_fromldend Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' delete F-ROM data on CNC - Declare Function cnc_fromdelete Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As String, ByVal c As Integer) As Short - - ' read S-RAM information on CNC - Declare Function cnc_rdsraminfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBSINFO) As Short - - ' start of reading S-RAM data from CNC - Declare Function cnc_srambkstart Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Integer) As Short - - ' read S-RAM data from CNC - Declare Function cnc_srambackup Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short, <[In], Out> ByVal b() As Byte, ByRef c As Integer) As Short - - ' end of reading S-RAM data from CNC - Declare Function cnc_srambkend Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' read F-ROM information on CNC - Declare Function cnc_getfrominfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As ODBFINFORM) As Short - - ' start of reading F-ROM data from CNC - Declare Function cnc_fromgetstart Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As String) As Short - - ' read F-ROM data from CNC - Declare Function cnc_fromget Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short, <[In], Out> ByVal b() As Byte, ByRef c As Integer) As Short - - ' end of reading F-ROM data from CNC - Declare Function cnc_fromgetend Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' start of writing F-ROM data to CNC - Declare Function cnc_fromputstart Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' write F-ROM data to CNC - Declare Function cnc_fromput Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a() As Byte, ByRef b As Integer) As Short - - ' end of writing F-ROM data to CNC - Declare Function cnc_fromputend Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' delete F-ROM data on CNC - Declare Function cnc_fromremove Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As String) As Short - - ' read S-RAM information on CNC - Declare Function cnc_getsraminfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBSINFO) As Short - - ' start of reading S-RAM data from CNC - Declare Function cnc_sramgetstart Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' start of reading S-RAM data from CNC (2) - Declare Function cnc_sramgetstart2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' read S-RAM data from CNC - Declare Function cnc_sramget Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short, <[In], Out> ByVal b() As Byte, ByRef c As Integer) As Short - - ' read S-RAM data from CNC (2) - Declare Function cnc_sramget2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short, <[In], Out> ByVal b() As Byte, ByRef c As Integer) As Short - - ' end of reading S-RAM data from CNC - Declare Function cnc_sramgetend Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' end of reading S-RAM data from CNC (2) - Declare Function cnc_sramgetend2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' read number of S-RAM data kind on CNC - Declare Function cnc_rdsramnum Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' read S-RAM data address information on CNC - Declare Function cnc_rdsramaddr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As SRAMADDR) As Short - - ' get current NC data protection information - Declare Function cnc_getlockstat Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, <[In], Out> ByVal b() As Byte) As Short - - ' change NC data protection status - Declare Function cnc_chgprotbit Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, <[In], Out> ByVal b() As Byte, ByVal c As Integer) As Short - - ' transfer a file from host computer to CNC by FTP - Declare Function cnc_dtsvftpget Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As String) As Short - - ' transfer a file from CNC to host computer by FTP - Declare Function cnc_dtsvftpput Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As String) As Short - - ' get transfer status for FTP - Declare Function cnc_dtsvftpstat Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' read file directory in Data Server - Declare Function cnc_dtsvrdpgdir Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Short, ByRef c As ODBDSDIR) As Short - - ' delete files in Data Server - Declare Function cnc_dtsvdelete Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' down load from CNC (transfer a file from CNC to MMC) - Declare Function cnc_dtsvdownload Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' up load to CNC (transfer a file from MMC to CNC) - Declare Function cnc_dtsvupload Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' close upload/download between Data Server and CNC - Declare Function cnc_dtsvcnclupdn Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' get transfer status for up/down load - Declare Function cnc_dtsvupdnstat Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' get file name for DNC operation in Data Server - Declare Function cnc_dtsvgetdncpg Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, <[In], Out> ByVal a() As Char) As Short - - ' set program number of DNC oparation to CNC - Declare Function cnc_dtsvsetdncpg Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' read setting data for Data Server - Declare Function cnc_dtsvrdset Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBDSSET) As Short - - ' write setting data for Data Server - Declare Function cnc_dtsvwrset Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBDSSET) As Short - - ' check hard disk in Data Server - Declare Function cnc_dtsvchkdsk Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' format hard disk in Data Server - Declare Function cnc_dtsvhdformat Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' save interface area in Data Server - Declare Function cnc_dtsvsavecram Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' get interface area in Data Server - Declare Function cnc_dtsvrdcram Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, <[In], Out> ByVal c() As Byte) As Short - - ' read maintenance information for Data Server - Declare Function cnc_dtsvmntinfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBDSMNT) As Short - - ' get Data Server mode - Declare Function cnc_dtsvgetmode Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' set Data Server mode - Declare Function cnc_dtsvsetmode Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' read error message for Data Server - Declare Function cnc_dtsvrderrmsg Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, <[In], Out> ByVal b() As Char) As Short - - ' transfar file from Pc to Data Server - Declare Function cnc_dtsvwrfile Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As String, ByVal c As Short) As Short - - ' transfar file from Data Server to Pc - Declare Function cnc_dtsvrdfile Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As String, ByVal c As Short) As Short - - ' read the loop gain for each axis - Declare Function cnc_rdloopgain Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer) As Short - - ' read the actual current for each axis - Declare Function cnc_rdcurrent Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' read the actual speed for each axis - Declare Function cnc_rdsrvspeed Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer) As Short - - ' read the operation mode - Declare Function cnc_rdopmode Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' read the position deviation S - Declare Function cnc_rdposerrs Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer) As Short - - ' read the position deviation S1 and S2 - Declare Function cnc_rdposerrs2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBPSER) As Short - - ' read the position deviation Z in the rigid tap mode - Declare Function cnc_rdposerrz Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer) As Short - - ' read the synchronous error in the synchronous control mode - Declare Function cnc_rdsynerrsy Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer) As Short - - ' read the synchronous error in the rigid tap mode - Declare Function cnc_rdsynerrrg Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer) As Short - - ' read the spindle alarm - Declare Function cnc_rdspdlalm Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, <[In], Out> ByVal a() As Byte) As Short - - ' read the control input signal - Declare Function cnc_rdctrldi Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBSPDI) As Short - - ' read the control output signal - Declare Function cnc_rdctrldo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBSPDO) As Short - - ' read the number of controled spindle - Declare Function cnc_rdnspdl Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' read data from FANUC BUS - Declare Function cnc_rdfbusmem Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Short, ByVal b As Short, ByVal c As Integer, ByVal d As Integer, <[In], Out> ByVal e() As Byte) As Short - - ' write data to FANUC BUS - Declare Function cnc_wrfbusmem Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Short, ByVal b As Short, ByVal c As Integer, ByVal d As Integer, ByVal e() As Byte) As Short - - ' read the parameter of wave diagnosis - Declare Function cnc_rdwaveprm Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBWAVE) As Short - - ' write the parameter of wave diagnosis - Declare Function cnc_wrwaveprm Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBWAVE) As Short - - ' read the parameter of wave diagnosis 2 - Declare Function cnc_rdwaveprm2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBWVPRM) As Short - - ' write the parameter of wave diagnosis 2 - Declare Function cnc_wrwaveprm2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBWVPRM) As Short - - ' start the sampling for wave diagnosis - Declare Function cnc_wavestart Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' stop the sampling for wave diagnosis - Declare Function cnc_wavestop Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' read the status of wave diagnosis - Declare Function cnc_wavestat Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' read the data of wave diagnosis - Declare Function cnc_rdwavedata Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Short, ByVal b As Short, ByVal c As Integer, ByRef d As Integer, ByRef e As ODBWVDT) As Short - - ' read the parameter of wave diagnosis for remort diagnosis - Declare Function cnc_rdrmtwaveprm Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBRMTPRM, ByVal b As Short) As Short - - ' write the parameter of wave diagnosis for remort diagnosis - Declare Function cnc_wrrmtwaveprm Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBRMTPRM) As Short - - ' start the sampling for wave diagnosis for remort diagnosis - Declare Function cnc_rmtwavestart Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' stop the sampling for wave diagnosis for remort diagnosis - Declare Function cnc_rmtwavestop Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' read the status of wave diagnosis for remort diagnosis - Declare Function cnc_rmtwavestat Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' read the data of wave diagnosis for remort diagnosis - Declare Function cnc_rdrmtwavedt Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer, ByRef c As Integer, ByRef d As ODBRMTDT) As Short - - ' read of address for PMC signal batch save - Declare Function cnc_rdsavsigadr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBSIGAD, ByVal b As Short) As Short - - ' write of address for PMC signal batch save - Declare Function cnc_wrsavsigadr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBSIGAD, ByRef b As Short) As Short - - ' read of data for PMC signal batch save - Declare Function cnc_rdsavsigdata Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Short, ByVal b As Short, <[In], Out> ByVal c() As Byte, ByRef d As Short) As Short - - ' read M-code group data - Declare Function cnc_rdmgrpdata Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As ODBMGRP) As Short - - ' write M-code group data - Declare Function cnc_wrmgrpdata Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IDBMGRP) As Short - - ' read executing M-code group data - Declare Function cnc_rdexecmcode Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As ODBEXEM) As Short - - ' read program restart M-code group data - Declare Function cnc_rdrstrmcode Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As ODBRSTRM) As Short - - ' read processing time stamp data - Declare Function cnc_rdproctime Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBPTIME) As Short - - ' read MDI program stat - Declare Function cnc_rdmdiprgstat Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' read program directory for processing time data - Declare Function cnc_rdprgdirtime Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer, ByRef b As Short, ByRef c As PRGDIRTM) As Short - - ' read program directory 2 -#If ONO8D = Nothing Then - Declare Function cnc_rdprogdir2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As Short, ByRef d As PRGDIR2) As Short -#Else - Declare Function cnc_rdprogdir2 Lib "FWLIB32.DLL" Alias "cnc_rdprogdir2o8" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As Short, ByRef d As PRGDIR2 ) As Short -#End If - - ' read program directory 3 - Declare Function cnc_rdprogdir3 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Integer, ByRef c As Short, ByRef d As PRGDIR3) As Short - - ' read program directory 4 - Declare Function cnc_rdprogdir4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer, ByRef c As Short, ByRef d As PRGDIR4) As Short - - ' read DNC file name for DNC1, DNC2, OSI-Ethernet - Declare Function cnc_rddncfname Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, <[In], Out> ByVal a() As Char) As Short - - ' write DNC file name for DNC1, DNC2, OSI-Ethernet - Declare Function cnc_wrdncfname Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' read communication parameter for DNC1, DNC2, OSI-Ethernet - Declare Function cnc_rdcomparam Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBCPRM) As Short - - ' write communication parameter for DNC1, DNC2, OSI-Ethernet - Declare Function cnc_wrcomparam Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBCPRM) As Short - - ' read log message for DNC2 - Declare Function cnc_rdcomlogmsg Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, <[In], Out> ByVal a() As Char) As Short - - ' read operator message for DNC1, DNC2 - Declare Function cnc_rdcomopemsg Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, <[In], Out> ByVal a() As Char) As Short - - ' read recieve message for OSI-Ethernet - Declare Function cnc_rdrcvmsg Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, <[In], Out> ByVal a() As Char) As Short - - ' read send message for OSI-Ethernet - Declare Function cnc_rdsndmsg Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, <[In], Out> ByVal a() As Char) As Short - - ' send message for OSI-Ethernet - Declare Function cnc_sendmessage Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' clear message buffer for OSI-Ethernet - Declare Function cnc_clrmsgbuff Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' read message recieve status for OSI-Ethernet - Declare Function cnc_rdrcvstat Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' read interference check - Declare Function cnc_rdintchk Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Short, ByRef e As IODBINT) As Short - - ' write interference check - Declare Function cnc_wrintchk Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBINT) As Short - - ' read interference check information - Declare Function cnc_rdintinfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' read work coordinate shift - Declare Function cnc_rdwkcdshft Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As IODBWCSF) As Short - - ' write work coordinate shift - Declare Function cnc_wrwkcdshft Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBWCSF) As Short - - ' read work coordinate shift measure - Declare Function cnc_rdwkcdsfms Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As IODBWCSF) As Short - - ' write work coordinate shift measure - Declare Function cnc_wrwkcdsfms Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBWCSF) As Short - - ' stop the sampling for operator message history - Declare Function cnc_stopomhis Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' start the sampling for operator message history - Declare Function cnc_startomhis Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' read operator message history information - Declare Function cnc_rdomhisinfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBOMIF) As Short - - ' read operator message history - Declare Function cnc_rdomhistry Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Integer, ByRef c As ODBOMHIS) As Short - - ' read operater message history data F30i - Declare Function cnc_rdomhistry2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As ODBOMHIS2) As Short - - ' write external key operation history for F30i - Declare Function cnc_wrkeyhistry Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Byte) As Short - - ' clear operator message history - Declare Function cnc_clearomhis Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' read b-axis tool offset value(area specified) - Declare Function cnc_rdbtofsr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Short, ByRef e As IODBBTO) As Short - - ' write b-axis tool offset value(area specified) - Declare Function cnc_wrbtofsr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBBTO) As Short - - ' read b-axis tool offset information - Declare Function cnc_rdbtofsinfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBBTLINF) As Short - - ' read b-axis command - Declare Function cnc_rdbaxis Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBBAXIS) As Short - - ' read CNC system soft series and version - Declare Function cnc_rdsyssoft Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBSYSS) As Short - - ' read CNC system soft series and version (2) - Declare Function cnc_rdsyssoft2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBSYSS2) As Short - - ' read CNC module configuration information - Declare Function cnc_rdmdlconfig Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBMDLC) As Short - - ' read CNC module configuration information 2 - Declare Function cnc_rdmdlconfig2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, <[In], Out> ByVal a() As SByte) As Short - - ' read processing condition file (processing data) - Declare Function cnc_rdpscdproc Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBPSCD) As Short - - ' write processing condition file (processing data) - Declare Function cnc_wrpscdproc Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBPSCD) As Short - - ' read processing condition file (piercing data) - Declare Function cnc_rdpscdpirc Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBPIRC) As Short - - ' write processing condition file (piercing data) - Declare Function cnc_wrpscdpirc Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBPIRC) As Short - - ' read processing condition file (edging data) - Declare Function cnc_rdpscdedge Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBEDGE) As Short - - ' write processing condition file (edging data) - Declare Function cnc_wrpscdedge Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBEDGE) As Short - - ' read processing condition file (slope data) - Declare Function cnc_rdpscdslop Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBSLOP) As Short - - ' write processing condition file (slope data) - Declare Function cnc_wrpscdslop Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBSLOP) As Short - - ' read power controll duty data - Declare Function cnc_rdlpwrdty Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBLPWDT) As Short - - ' write power controll duty data - Declare Function cnc_wrlpwrdty Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBLPWDT) As Short - - ' read laser power data - Declare Function cnc_rdlpwrdat Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBLOPDT) As Short - - ' read power complement - Declare Function cnc_rdlpwrcpst Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' write power complement - Declare Function cnc_wrlpwrcpst Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' read laser assist gas selection - Declare Function cnc_rdlagslt Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBLAGSL) As Short - - ' write laser assist gas selection - Declare Function cnc_wrlagslt Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBLAGSL) As Short - - ' read laser assist gas flow - Declare Function cnc_rdlagst Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBLAGST) As Short - - ' write laser assist gas flow - Declare Function cnc_wrlagst Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBLAGST) As Short - - ' read laser power for edge processing - Declare Function cnc_rdledgprc Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBLEGPR) As Short - - ' write laser power for edge processing - Declare Function cnc_wrledgprc Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBLEGPR) As Short - - ' read laser power for piercing - Declare Function cnc_rdlprcprc Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBLPCPR) As Short - - ' write laser power for piercing - Declare Function cnc_wrlprcprc Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBLPCPR) As Short - - ' read laser command data - Declare Function cnc_rdlcmddat Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBLCMDT) As Short - - ' read displacement - Declare Function cnc_rdldsplc Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' write displacement - Declare Function cnc_wrldsplc Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' read error for axis z - Declare Function cnc_rdlerrz Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' read active number - Declare Function cnc_rdlactnum Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBLACTN) As Short - - ' read laser comment - Declare Function cnc_rdlcmmt Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBLCMMT) As Short - - ' read laser power select - Declare Function cnc_rdlpwrslt Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' write laser power select - Declare Function cnc_wrlpwrslt Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' read laser power controll - Declare Function cnc_rdlpwrctrl Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' write laser power controll - Declare Function cnc_wrlpwrctrl Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' read power correction factor history data - Declare Function cnc_rdpwofsthis Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, ByRef c As ODBPWOFST) As Short - - ' read management time - Declare Function cnc_rdmngtime Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, ByRef c As IODBMNGTIME) As Short - - ' write management time - Declare Function cnc_wrmngtime Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As IODBMNGTIME) As Short - - ' read data related to electrical discharge at power correction ends - Declare Function cnc_rddischarge Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBDISCHRG) As Short - - ' read alarm history data related to electrical discharg - Declare Function cnc_rddischrgalm Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, ByRef c As ODBDISCHRGALM) As Short - - ' get date and time from cnc - Declare Function cnc_gettimer Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBTIMER) As Short - - ' set date and time for cnc - Declare Function cnc_settimer Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBTIMER) As Short - - ' read timer data from cnc - Declare Function cnc_rdtimer Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTIME) As Short - - ' write timer data for cnc - Declare Function cnc_wrtimer Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTIME) As Short - - ' read tool controll data - Declare Function cnc_rdtlctldata Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBTLCTL) As Short - - ' write tool controll data - Declare Function cnc_wrtlctldata Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBTLCTL) As Short - - ' read tool data - Declare Function cnc_rdtooldata Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBTLDT) As Short - - ' read tool data - Declare Function cnc_wrtooldata Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBTLDT) As Short - - ' read multi tool data - Declare Function cnc_rdmultitldt Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBMLTTL) As Short - - ' write multi tool data - Declare Function cnc_wrmultitldt Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBMLTTL) As Short - - ' read multi tap data - Declare Function cnc_rdmtapdata Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBMTAP) As Short - - ' write multi tap data - Declare Function cnc_wrmtapdata Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBMTAP) As Short - - ' read multi-piece machining number - Declare Function cnc_rdmultipieceno Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer) As Short - - ' read tool information - Declare Function cnc_rdtoolinfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBPTLINF) As Short - - ' read safetyzone data - Declare Function cnc_rdsafetyzone Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBSAFE) As Short - - ' write safetyzone data - Declare Function cnc_wrsafetyzone Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBSAFE) As Short - - ' read toolzone data - Declare Function cnc_rdtoolzone Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBTLZN) As Short - - ' write toolzone data - Declare Function cnc_wrtoolzone Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBTLZN) As Short - - ' read active toolzone data - Declare Function cnc_rdacttlzone Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBACTTLZN) As Short - - ' read setzone number - Declare Function cnc_rdsetzone Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' write setzone number - Declare Function cnc_wrsetzone Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' read block restart information - Declare Function cnc_rdbrstrinfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBBRS) As Short - - ' read menu switch signal - Declare Function cnc_rdmenuswitch Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' write menu switch signal - Declare Function cnc_wrmenuswitch Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short) As Short - - ' read tool radius offset for position data - Declare Function cnc_rdradofs Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBROFS) As Short - - ' read tool length offset for position data - Declare Function cnc_rdlenofs Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBLOFS) As Short - - ' read fixed cycle for position data - Declare Function cnc_rdfixcycle Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBFIX) As Short - - ' read coordinate rotate for position data - Declare Function cnc_rdcdrotate Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBROT) As Short - - ' read 3D coordinate convert for position data - Declare Function cnc_rd3dcdcnv Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODB3DCD) As Short - - ' read programable mirror image for position data - Declare Function cnc_rdmirimage Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBMIR) As Short - - ' read scaling for position data - Declare Function cnc_rdscaling Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBSCL) As Short - - ' read 3D tool offset for position data - Declare Function cnc_rd3dtofs Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODB3DTO) As Short - - ' read tool position offset for position data - Declare Function cnc_rdposofs Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBPOFS) As Short - - ' read hpcc setting data - Declare Function cnc_rdhpccset Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBHPST) As Short - - ' write hpcc setting data - Declare Function cnc_wrhpccset Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBHPST) As Short - - ' hpcc data auto setting data - Declare Function cnc_hpccatset Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' read hpcc tuning data ( parameter input ) - Declare Function cnc_rdhpcctupr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBHPPR) As Short - - ' write hpcc tuning data ( parameter input ) - Declare Function cnc_wrhpcctupr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBHPPR) As Short - - ' read hpcc tuning data ( acc input ) - Declare Function cnc_rdhpcctuac Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBHPAC) As Short - - ' write hpcc tuning data ( acc input ) - Declare Function cnc_wrhpcctuac Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBHPAC) As Short - - ' hpcc data auto tuning - Declare Function cnc_hpccattune Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short) As Short - - ' read hpcc fine level - Declare Function cnc_hpccactfine Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' select hpcc fine level - Declare Function cnc_hpccselfine Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' read active fixture offset - Declare Function cnc_rdactfixofs Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBZOFS) As Short - - ' read fixture offset - Declare Function cnc_rdfixofs Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Short, ByRef e As IODBZOR) As Short - - ' write fixture offset - Declare Function cnc_wrfixofs Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBZOR) As Short - - ' read tip of tool for 3D handle - Declare Function cnc_rd3dtooltip Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODB3DHDL) As Short - - ' read pulse for 3D handle - Declare Function cnc_rd3dpulse Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODB3DPLS) As Short - - ' read move overrlap of tool for 3D handle - Declare Function cnc_rd3dmovrlap Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODB3DHDL) As Short - - ' read change offset for 3D handle - Declare Function cnc_rd3dofschg Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer) As Short - - ' clear pulse and change offset for 3D handle - Declare Function cnc_clr3dplsmov Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' cycle start - Declare Function cnc_start Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' reset CNC - Declare Function cnc_reset Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' reset CNC - Declare Function cnc_reset2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' read axis name - Declare Function cnc_rdaxisname Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As ODBAXISNAME) As Short - - ' read spindle name - Declare Function cnc_rdspdlname Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As ODBSPDLNAME) As Short - - ' read extended axis name - Declare Function cnc_exaxisname Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As ODBEXAXISNAME) As Short - - ' read SRAM variable area for C language executor - Declare Function cnc_rdcexesram Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, <[In], Out> ByVal b() As Byte, ByRef c As Integer) As Short - - ' write SRAM variable area for C language executor - Declare Function cnc_wrcexesram Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b() As Byte, ByRef c As Integer) As Short - - ' read maximum size and linear address of SRAM variable area for C language executor - Declare Function cnc_cexesraminfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As Integer, ByRef c As Integer) As Short - - ' read maximum size of SRAM variable area for C language executor - Declare Function cnc_cexesramsize Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer) As Short - - ' read additional workpiece coordinate systems number - Declare Function cnc_rdcoordnum Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' converts from FANUC code to Shift JIS code - Declare Function cnc_ftosjis Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a() As Byte, <[In], Out> ByVal b() As Char) As Short - - ' Set the unsolicited message parameters - Declare Function cnc_wrunsolicprm Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBUNSOLIC) As Short - - ' Get the unsolicited message parameters - Declare Function cnc_rdunsolicprm Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBUNSOLIC) As Short - - ' Start of unsolicited message - Declare Function cnc_unsolicstart Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Short, ByVal hWnd As Integer, ByVal c As Integer, ByVal d As Short, ByRef e As Short) As Short - - ' End of unsolicited message - Declare Function cnc_unsolicstop Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' Reads the unsolicited message data - Declare Function cnc_rdunsolicmsg Lib "FWLIB32.DLL" _ - (ByVal a As Short, ByRef b As IDBUNSOLICMSG) As Short - - ' read cnc maintenance item - Declare Function cnc_rdpm_mcnitem Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBITEM) As Short - - ' write machine specific maintenance item - Declare Function cnc_wrpm_mcnitem Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As IODBITEM) As Short - - ' read machine specific maintenance item - Declare Function cnc_rdpm_cncitem Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBITEM) As Short - - ' read maintenance item status - Declare Function cnc_rdpm_item Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBPMAINTE) As Short - - ' write maintenance item status - Declare Function cnc_wrpm_item Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBPMAINTE) As Short - - ' Display of optional message - Declare Function cnc_dispoptmsg Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' Reading of answer for optional message display - Declare Function cnc_optmsgans Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' Get CNC Model - Declare Function cnc_getcncmodel Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' read number of repeats - Declare Function cnc_rdrepeatval Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer) As Short - - ' read CNC system hard info - Declare Function cnc_rdsyshard Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As ODBSYSH) As Short - - ' read CNC system soft series and version (3) - Declare Function cnc_rdsyssoft3 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As Short, ByRef d As ODBSYSS3) As Short - - ' read digit of program number - Declare Function cnc_progdigit Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' read CNC system path information - Declare Function cnc_sysinfo_ex Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBSYSEX) As Short - - '------------------ - ' CNC : SERCOS I/F - '------------------ - - ' Get reservation of service channel for SERCOS I/F - Declare Function cnc_srcsrsvchnl Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' Read ID information of SERCOS I/F - Declare Function cnc_srcsrdidinfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Integer, ByVal b As Short, ByVal c As Short, ByRef d As IODBIDINF) As Short - - ' Write ID information of SERCOS I/F - Declare Function cnc_srcswridinfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBIDINF) As Short - - ' Start of reading operation data from drive of SERCOS I/F - Declare Function cnc_srcsstartrd Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Short) As Short - - ' Start of writing operation data to drive of SERCOS I/F - Declare Function cnc_srcsstartwrt Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Short) As Short - - ' Stop of reading/writing operation data from/to drive of SERCOS I/F - Declare Function cnc_srcsstopexec Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' Get execution status of reading/writing operation data of SERCOS I/F - Declare Function cnc_srcsrdexstat Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBSRCSST) As Short - - ' Read operation data from data buffer for SERCOS I/F - Declare Function cnc_srcsrdopdata Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, <[In], Out> ByVal c() As Byte) As Short - - ' Write operation data to data buffer for SERCOS I/F - Declare Function cnc_srcswropdata Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer, ByVal c() As Byte) As Short - - ' Free reservation of service channel for SERCOS I/F - Declare Function cnc_srcsfreechnl Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' Read drive assign of SERCOS I/F - Declare Function cnc_srcsrdlayout Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBSRCSLYT) As Short - - ' Read communication phase of drive of SERCOS I/F - Declare Function cnc_srcsrddrvcp Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - - '---------------------------- - ' CNC : Graphic command data - '---------------------------- - - ' Start drawing position - Declare Function cnc_startdrawpos Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' Stop drawing position - Declare Function cnc_stopdrawpos Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' Start dynamic graphic - Declare Function cnc_startdyngrph Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' Stop dynamic graphic - Declare Function cnc_stopdyngrph Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' Read graphic command data - Declare Function cnc_rdgrphcmd Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short, <[In], Out> ByVal b() As Short) As Short - - ' Update graphic command read pointer - Declare Function cnc_wrgrphcmdptr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' Read cancel flag - Declare Function cnc_rdgrphcanflg Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' Clear graphic command - Declare Function cnc_clrgrphcmd Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - - '--------------------------- - ' CNC : Servo learning data - '--------------------------- - - ' Servo learning data read start - Declare Function cnc_svdtstartrd Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' Servo learning data write start - Declare Function cnc_svdtstartwr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' Servo learning data read end - Declare Function cnc_svdtendrd Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' Servo learning data write end - Declare Function cnc_svdtendwr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' Servo learning data read/write stop - Declare Function cnc_svdtstopexec Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' Servo learning data read from I/F buffer - Declare Function cnc_svdtrddata Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As Integer, <[In], Out> ByVal c() As Byte) As Short - - ' Servo learning data write to I/F buffer - Declare Function cnc_svdtwrdata Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As Integer, ByVal c() As Byte) As Short - - - '---------------------------- - ' CNC : Servo Guide - '---------------------------- - ' Servo Guide (Channel data set) - Declare Function cnc_sdsetchnl Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IDBCHAN) As Short - - ' Servo Guide (Channel data clear) - Declare Function cnc_sdclrchnl Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' Servo Guide (Sampling start) - Declare Function cnc_sdstartsmpl Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer, <[In], Out> ByVal c() As Short) As Short - - ' Servo Guide (Sampling cancel) - Declare Function cnc_sdcancelsmpl Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' Servo Guide (read Sampling data) - Declare Function cnc_sdreadsmpl Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short, ByVal b As Integer, ByRef c As ODBSD) As Short - - ' Servo Guide (Sampling end) - Declare Function cnc_sdendsmpl Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' Servo Guide (read 1 shot data) - Declare Function cnc_sdread1shot Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, <[In], Out> ByVal c() As Short) As Short - - ' Servo feedback data (Channel data set) - Declare Function cnc_sfbsetchnl Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer, ByRef c As IDBSFBCHAN) As Short - - ' Servo feedback data (Channel data clear) - Declare Function cnc_sfbclrchnl Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' Servo feedback data (Sampling start) - Declare Function cnc_sfbstartsmpl Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer) As Short - - ' Servo feedback data (Sampling cancel) - Declare Function cnc_sfbcancelsmpl Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' Servo feedback data (read Sampling data) - Declare Function cnc_sfbreadsmpl Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short, ByVal b As Integer, ByRef c As ODBSD) As Short - - ' Servo feedback data (Sampling end) - Declare Function cnc_sfbendsmpl Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - - '---------------------------- - ' CNC : NC display function - '---------------------------- - - ' Start NC display - Declare Function cnc_startnccmd Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' Start NC display (2) - Declare Function cnc_startnccmd2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' Stop NC display - Declare Function cnc_stopnccmd Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' Get NC display mode - Declare Function cnc_getdspmode Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - - '------------------------------------ - ' CNC : Remote diagnostics function - '------------------------------------ - - ' Start remote diagnostics function - Declare Function cnc_startrmtdgn Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' Stop remote diagnostics function - Declare Function cnc_stoprmtdgn Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' Read data from remote diagnostics I/F - Declare Function cnc_rdrmtdgn Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer, <[In], Out> ByVal b() As Byte) As Short - - ' Write data to remote diagnostics I/F - Declare Function cnc_wrrmtdgn Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer, ByVal b() As Byte) As Short - - ' Set CommStatus of remote diagnostics I/F area - Declare Function cnc_wrcommstatus Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' Check remote diagnostics I/F - Declare Function cnc_chkrmtdgn Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - - '------------------------- - ' CNC : FS18-LN function - '------------------------- - - ' read allowance - Declare Function cnc_allowance Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBAXIS) As Short - - ' read allowanced state - Declare Function cnc_allowcnd Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBCAXIS) As Short - - ' set work zero - Declare Function cnc_workzero Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBZOFS) As Short - - ' set slide position - Declare Function cnc_slide Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBAXIS) As Short - - - '---------------------------------- - ' CNC: Teaching data I/F function - '---------------------------------- - - ' Teaching data get start - Declare Function cnc_startgetdgdat Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' Teaching data get stop - Declare Function cnc_stopgetdgdat Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' Teaching data read - Declare Function cnc_rddgdat Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short, <[In], Out> ByVal b() As Short) As Short - - ' Teaching data read pointer write - Declare Function cnc_wrdgdatptr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' Teaching data clear - Declare Function cnc_clrdgdat Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - - '--------------------------------- - ' CNC : C-EXE SRAM file function - '--------------------------------- - - ' open C-EXE SRAM file - Declare Function cnc_opencexefile Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Short, ByVal c As Short) As Short - - ' close C-EXE SRAM file - Declare Function cnc_closecexefile Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' read C-EXE SRAM file - Declare Function cnc_rdcexefile Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, <[In], Out> ByVal a() As Byte, ByRef b As Integer) As Short - - ' write C-EXE SRAM file - Declare Function cnc_wrcexefile Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a() As Byte, ByRef b As Integer) As Short - - ' read C-EXE SRAM disk directory - Declare Function cnc_cexedirectory Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - <[In], Out> ByVal a() As Char, ByRef b As Short, ByVal c As Short, ByRef d As CFILEINFO) As Short - - - '----- - ' PMC - '----- - - ' read message from PMC to MMC - Declare Function pmc_rdmsg Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short, <[In], Out> ByVal b() As Short) As Short - - ' write message from MMC to PMC - Declare Function pmc_wrmsg Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b() As Short) As Short - - ' read message from PMC to MMC(conditional) - Declare Function pmc_crdmsg Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short, <[In], Out> ByVal b() As Short) As Short - - ' write message from MMC to PMC(conditional) - Declare Function pmc_cwrmsg Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b() As Short) As Short - - ' read PMC data(area specified) - Declare Function pmc_rdpmcrng Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Short, ByVal b As Short, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByRef f As IODBPMC0) As Short - Declare Function pmc_rdpmcrng Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Short, ByVal b As Short, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByRef f As IODBPMC1) As Short - Declare Function pmc_rdpmcrng Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Short, ByVal b As Short, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByRef f As IODBPMC2) As Short - - ' write PMC data(area specified) - Declare Function pmc_wrpmcrng Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As IODBPMC0) As Short - Declare Function pmc_wrpmcrng Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As IODBPMC1) As Short - Declare Function pmc_wrpmcrng Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As IODBPMC2) As Short - - ' read data from extended backup memory - Declare Function pmc_rdkpm Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, <[In], Out> ByVal b() As Byte, ByVal c As Integer) As Short - - ' write data to extended backup memory - Declare Function pmc_wrkpm Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b() As Byte, ByVal c As Integer) As Short - - ' read data from extended backup memory 2 - Declare Function pmc_rdkpm2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, <[In], Out> ByVal b() As Byte, ByVal c As Integer) As Short - - ' write data to extended backup memory 2 - Declare Function pmc_wrkpm2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b() As Byte, ByVal c As Integer) As Short - - ' read maximum size of extended backup memory - Declare Function pmc_kpmsiz Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer) As Short - - ' read informations of PMC data - Declare Function pmc_rdpmcinfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As ODBPMCINF) As Short - - ' read PMC parameter data table contorol data - Declare Function pmc_rdcntldata Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBPMCCNTL) As Short - - ' write PMC parameter data table contorol data - Declare Function pmc_wrcntldata Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPMCCNTL) As Short - - ' read PMC parameter data table contorol data group number - Declare Function pmc_rdcntlgrp Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' write PMC parameter data table contorol data group number - Declare Function pmc_wrcntlgrp Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' read PMC alarm message - Declare Function pmc_rdalmmsg Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As Short, ByRef d As ODBPMCALM) As Short - - ' get detail error for pmc - Declare Function pmc_getdtailerr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBPMCERR) As Short - - ' read PMC memory data - Declare Function pmc_rdpmcmem Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Short, ByVal b As Integer, ByVal c As Integer, <[In], Out> ByVal d() As Byte) As Short - - ' write PMC memory data - Declare Function pmc_wrpmcmem Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Short, ByVal b As Integer, ByVal c As Integer, ByVal d() As Byte) As Short - - ' read PMC-SE memory data - Declare Function pmc_rdpmcsemem Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Short, ByVal b As Integer, ByVal c As Integer, <[In], Out> ByVal d() As Byte) As Short - - ' write PMC-SE memory data - Declare Function pmc_wrpmcsemem Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, - ByVal a As Short, ByVal b As Integer, ByVal c As Integer, ByVal d() As Byte) As Short - - ' read pmc title data - Declare Function pmc_rdpmctitle Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBPMCTITLE) As Short - - ' read PMC parameter start - Declare Function pmc_rdprmstart Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' read PMC parameter - Declare Function pmc_rdpmcparam Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer, ByVal b() As Byte) As Short - - ' read PMC parameter end - Declare Function pmc_rdprmend Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' write PMC parameter start - Declare Function pmc_wrprmstart Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' write PMC parameter - Declare Function pmc_wrpmcparam Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer, ByVal b() As Byte) As Short - - ' write PMC parameter end - Declare Function pmc_wrprmend Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' read PMC data - ' Declare Function pmc_rdpmcrng_ext Lib "FWLIB32.DLL" _ - ' ( ByVal FlibHndl As Integer, _ - ' ByVal a As Short, ByRef b As IODBPMCEXT ) As Short - - ' write PMC I/O link assigned data - ' Declare Function pmc_wriolinkdat Lib "FWLIB32.DLL" _ - ' ( ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b() As Byte, ByVal c As Integer ) As Short - - ' read PMC address information - Declare Function pmc_rdpmcaddr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBPMCADR) As Short - - ' select PMC unit - Declare Function pmc_select_pmc_unit Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer) As Short - - ' get current PMC unit - Declare Function pmc_get_current_pmc_unit Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer) As Short - - ' get number of PMC - Declare Function pmc_get_number_of_pmc Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer) As Short - - ' get PMC unit types - Declare Function pmc_get_pmc_unit_types Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a() As Integer, ByVal b As Integer) As Short - - ' set PMC Timer type - Declare Function pmc_set_timer_type Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer, ByVal c() As Short) As Short - - ' get PMC Timer type - Declare Function pmc_get_timer_type Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer, <[In](), Out()> ByVal c() As Short) As Short - - '---------------------------- - ' PMC : PROFIBUS function - '---------------------------- - - ' read PROFIBUS configration data - Declare Function pmc_prfrdconfig Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBPRFCNF) As Short - - ' read bus parameter for master function - Declare Function pmc_prfrdbusprm Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBBUSPRM) As Short - - ' write bus parameter for master function - Declare Function pmc_prfwrbusprm Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBBUSPRM) As Short - - ' read slave parameter for master function - Declare Function pmc_prfrdslvprm Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBSLVPRM) As Short - Declare Function pmc_prfrdslvprm Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBSLVPRM2) As Short - - ' write slave parameter for master function - Declare Function pmc_prfwrslvprm Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBSLVPRM) As Short - Declare Function pmc_prfwrslvprm Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBSLVPRM2) As Short - - ' read allocation address for master function - Declare Function pmc_prfrdallcadr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPRFADR) As Short - - ' set allocation address for master function - Declare Function pmc_prfwrallcadr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPRFADR) As Short - - ' read allocation address for slave function - Declare Function pmc_prfrdslvaddr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBSLVADR) As Short - - ' set allocation address for slave function - Declare Function pmc_prfwrslvaddr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBSLVADR) As Short - - ' read status for slave function - Declare Function pmc_prfrdslvstat Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBSLVST) As Short - - ' Reads DI/DO parameter of master function - Declare Function pmc_prfrddido Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBDIDO) As Short - - ' Writes DI/DO parameter of master function - Declare Function pmc_prfwrdido Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBDIDO) As Short - - ' Reads slave index data of master function */ - Declare Function pmc_prfrdslvid Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBSLVID) As Short - - ' Writes slave index data of master function - Declare Function pmc_prfwrslvid Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBSLVID) As Short - - ' Reads slave parameter of master function(2) - Declare Function pmc_prfrdslvprm2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBSLVPRM3) As Short - - ' Writes slave parameter of master function(2) - Declare Function pmc_prfwrslvprm2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBSLVPRM3) As Short - - ' Reads indication address of master function - Declare Function pmc_prfrdindiadr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBINDEADR) As Short - - ' Writes indication address of master function - Declare Function pmc_prfwrindiadr Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBINDEADR) As Short - - ' Reads operation mode of master function - Declare Function pmc_prfrdopmode Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' Writes operation mode of master function - Declare Function pmc_prfwropmode Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short) As Short - - '-----------------------------------------------v - ' DS : Data server & Ethernet board function ' - '-----------------------------------------------' - - ' read the parameter of the Ethernet board */ - Declare Function etb_rdparam Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBETP_TCP) As Short - Declare Function etb_rdparam Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBETP_HOST) As Short - Declare Function etb_rdparam Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBETP_FTP) As Short - Declare Function etb_rdparam Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBETP_ETB) As Short - - ' write the parameter of the Ethernet board */ - Declare Function etb_wrparam Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBETP_TCP) As Short - Declare Function etb_wrparam Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBETP_HOST) As Short - Declare Function etb_wrparam Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As IODBETP_FTP) As Short - - ' read the error message of the Ethernet board */ - Declare Function etb_rderrmsg Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As ODBETMSG) As Short - - ' read the mode of the Data Server - Declare Function ds_rdmode Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' write the mode of the Data Server - Declare Function ds_wrmode Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' read information of the Data Server's HDD - Declare Function ds_rdhddinfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As ODBHDDINF) As Short - - ' read the file list of the Data Server's HDD - Declare Function ds_rdhdddir Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Integer, ByRef c As Short, ByRef d As ODBHDDDIR) As Short - - ' delete the file of the Data Serve's HDD - Declare Function ds_delhddfile Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' copy the file of the Data Server's HDD - Declare Function ds_copyhddfile Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As String) As Short - - ' change the file name of the Data Server's HDD */ - Declare Function ds_renhddfile Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As String) As Short - - ' execute the PUT command of the FTP - Declare Function ds_puthddfile Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As String) As Short - - ' execute the MPUT command of the FTP - Declare Function ds_mputhddfile Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' read information of the host - Declare Function ds_rdhostinfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Integer, ByVal b As Integer) As Short - - ' read the file list of the host - Declare Function ds_rdhostdir Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer, ByRef c As Short, ByRef d As ODBHOSTDIR, ByVal e As Integer) As Short - - ' read the file list of the host 2 - Declare Function ds_rdhostdir2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer, ByRef c As Short, ByRef d As Integer, ByRef e As ODBHOSTDIR, ByVal f As Integer) As Short - - ' delete the file of the host - Declare Function ds_delhostfile Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Integer) As Short - - ' execute the GET command of the FTP - Declare Function ds_gethostfile Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As String) As Short - - ' execute the MGET command of the FTP - Declare Function ds_mgethostfile Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' read the execution result - Declare Function ds_rdresult Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' stop the execution of the command - Declare Function ds_cancel Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' read the file from the Data Server - Declare Function ds_rdncfile Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As String) As Short - - ' read the file from the Data Server 2 - Declare Function ds_rdncfile2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' write the file to the Data Server - Declare Function ds_wrncfile Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer) As Short - - ' read the file name for the DNC operation in the Data Server's HDD - Declare Function ds_rddnchddfile Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, <[In](), Out()> ByVal a() As Char) As Short - '(ByVal FlibHndl As Integer, ByRef a As String) As Short - - ' write the file name for the DNC operation in the Data Server's HDD - Declare Function ds_wrdnchddfile Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' read the file name for the DNC operation in the host - Declare Function ds_rddnchostfile Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short, <[In](), Out()> ByVal b() As Char) As Short - - ' write the file name for the DNC operation in the host - Declare Function ds_wrdnchostfile Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' read the connecting host number - Declare Function ds_rdhostno Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' read maintenance information - Declare Function ds_rdmntinfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As DSMNTINFO) As Short - - ' check the Data Server's HDD - Declare Function ds_checkhdd Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' format the Data Server's HDD - Declare Function ds_formathdd Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' create the directory in the Data Server's HDD */ - Declare Function ds_makehdddir Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' delete directory in the Data Server's HDD - Declare Function ds_delhdddir Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' change the current directory - Declare Function ds_chghdddir Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' execute the PUT command according to the list file - Declare Function ds_lputhddfile Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' delete files according to the list file - Declare Function ds_ldelhddfile Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' execute the GET command according to the list file - Declare Function ds_lgethostfile Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' read the directory for M198 operation - Declare Function ds_rdm198hdddir Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - '(ByVal FlibHndl As Integer, ByVal a() As Byte) As Short - - ' write the directory for M198 operation - Declare Function ds_wrm198hdddir Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' read the connecting host number for the M198 operation - Declare Function ds_rdm198host Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short) As Short - - ' write the connecting host number for the M198 operation - Declare Function ds_wrm198host Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' write the connecting host number - Declare Function ds_wrhostno Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short) As Short - - ' search string in data server program - Declare Function ds_searchword Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String) As Short - - ' read the searching result - Declare Function ds_searchresult Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' read file in the Data Server's HDD - Declare Function ds_rdfile Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As String) As Short - - ' write file in the Data Server's HDD - Declare Function ds_wrfile Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As String) As Short - - '-------------------------- - ' HSSB multiple connection - '-------------------------- - - ' read number of node - Declare Function cnc_rdnodenum Lib "FWLIB32.DLL" _ - (ByRef a As Integer) As Short - - ' read node informations - Declare Function cnc_rdnodeinfo Lib "FWLIB32.DLL" _ - (ByVal a As Integer, ByRef b As ODBNODE) As Short - - ' set default node number - Declare Function cnc_setdefnode Lib "FWLIB32.DLL" _ - (ByVal a As Integer) As Short - - ' allocate library handle 2 - Declare Function cnc_allclibhndl2 Lib "FWLIB32.DLL" _ - (ByVal node As Integer, ByRef FlibHndl As Integer) As Short - - - '--------------------- - ' Ethernet connection - '--------------------- - - ' allocate library handle 3 - Declare Function cnc_allclibhndl3 Lib "FWLIB32.DLL" _ - (ByVal ip As String, ByVal port As Short, ByVal timeout As Integer, ByRef FlibHndl As Integer) As Short - - ' allocate library handle 4 - Declare Function cnc_allclibhndl4 Lib "FWLIB32.DLL" _ - (ByVal ip As String, ByVal port As Short, ByVal timeout As Integer, ByVal id As Integer, ByRef FlibHndl As Integer) As Short - - ' set timeout for socket - Declare Function cnc_settimeout Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer) As Short - - ' reset all socket connection - Declare Function cnc_resetconnect Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer) As Short - - ' get option state for FOCAS1/Ethernet - Declare Function cnc_getfocas1opt Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Integer) As Short - - ' read Ethernet board information - Declare Function cnc_rdetherinfo Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As Short) As Short - -End Class 'Focas1 diff --git a/IOB-WIN/CncLib/CNC/CNC.OSAI/CNC.OSAI.vb b/IOB-WIN/CncLib/CNC/CNC.OSAI/CNC.OSAI.vb deleted file mode 100644 index 8e331eb..0000000 --- a/IOB-WIN/CncLib/CNC/CNC.OSAI/CNC.OSAI.vb +++ /dev/null @@ -1,910 +0,0 @@ -Imports Microsoft.Win32 - -Imports T_memType = System.Collections.Generic.Dictionary(Of System.Int32, System.Collections.Generic.Dictionary(Of System.Int32, System.Object)) -Imports T_memDim = System.Collections.Generic.Dictionary(Of System.Int32, System.Object) -Imports CncLib.Config.Settings - -Namespace CNC - - Partial Public Class OSAI - Inherits CNC - - 'Variabili per server Cndex (Osai) - Protected _szRemoteName As String - Protected _UserSession As Short - Protected _ErrClass As Integer - Protected _ErrNum As Integer - 'Friend Cndex As CndexLinkDotNet.Cndex - Private nReturn As Short - - Protected Const ERRORE = 0 - - Public Enum MemTypeWord - I_CODE = 0 - O_CODE = 1 - - MW_CODE = 20 - GW_CODE = 21 - SW_CODE = 22 - - PW_CODE = 62 - UW_CODE = 63 - End Enum - Public Enum MemTypeDouble - MD_CODE = 40 - GD_CODE = 41 - SD_CODE = 42 - PD_CODE = 43 - UD_CODE = 44 - L_CODE = 145 - End Enum - - Public Enum MemTypeText - LS_CODE = 18 - AA_CODE = 28 - A_CODE = 45 - SC_CODE = 50 - SYMO_A_CODE = 102 - End Enum - - Private nLicenzaTmp As Integer - Public Overrides Property Licenza() As Integer - Get - Return nLicenzaTmp - End Get - Set(ByVal value As Integer) - nLicenzaTmp = value - End Set - End Property - - Private bLicenzaScadutaTmp As Boolean - Public Overrides Property LicenzaScaduta() As Boolean - Get - Return bLicenzaScadutaTmp - End Get - Set(ByVal value As Boolean) - bLicenzaScadutaTmp = value - End Set - End Property - - Public Sub New(ByRef szRemoteName As String) - Me.New() - - Try - 'Cndex = New CndexLinkDotNet.Cndex - Catch ex As Exception - MsgBox(ex.Message) - End Try - - _szRemoteName = szRemoteName - End Sub - - Public Sub New() - MyBase.New() - _Type = NcType.OSAI - - 'Inizializzo le variabili - Me._Descrizione = "NC OSAI" & vbNewLine - Me._Descrizione = Me._Descrizione & "RemoteName: " & _szRemoteName - End Sub - - Public Overrides Sub Connect(Optional ByRef szStatus As String = "") - Dim nReturn As Short - Dim pPhase As Short - Dim szReturn As String = "" - Dim sValue(0) As Short - Dim TimeStart As Date - - 'CncLib.App.Runtime.Log.WI("TRY OpenSession CNC.OSAI", "RemoteName=" & _szRemoteName, CLog.Lev.Secondary) - 'nReturn = Cndex.OpenSession_C(_szRemoteName, _UserSession, _ErrClass, _ErrNum) - If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("OpenSession_C({0},{1}) Connect CNC.OSAI", _szRemoteName, _UserSession), szReturn) Then - Throw New NcException(szReturn) - Else - 'CncLib.App.Runtime.Log.WI("OK OpenSession CNC.OSAI", , CLog.Lev.Secondary) - 'leggo in che fase di boot mi trovo - 'nReturn = Cndex.BootPhaseEnquiry_C(_UserSession, pPhase, _ErrClass, _ErrNum) - If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("BootPhaseEnquiry_C({0},{1}) Connect CNC.OSAI", _UserSession, pPhase), szReturn) Then - _bConnected = False - Throw New NcException(szReturn) - Else - 'verifico che il sistema si trovi in una fase operativa "stabile" - 'CncLib.App.Runtime.Log.WI("OK BootPhaseEnquiry CNC.OSAI", "Phase=" & pPhase, CLog.Lev.Secondary) - If pPhase = 4 Then 'SYSTEM_UP_PHASE - - 'leggo matricola e verifico che sia diversa da zero - TimeStart = Now - Do - Select Case Settings.MemoryMapping - Case MemoryMapping.ElsManager, - MemoryMapping.Default - 'Matricola - nReturn = O_RW_Short(False, MemTypeWord.MW_CODE, 3187, sValue) - - Case MemoryMapping.ToolManager, - MemoryMapping.ToolTable - 'Matricola - nReturn = O_RW_Short(False, MemTypeWord.MW_CODE, 3403, sValue) - End Select - - If sValue(0) > 0 Then - Threading.Thread.Sleep(500) - Exit Do - End If - - If (Now - TimeStart).Seconds > 30 Then - Select Case MsgBox("Matricola non inizializzata in 30 secondi: Verificare KMG o PLC", MsgBoxStyle.Exclamation + MsgBoxStyle.RetryCancel) - Case MsgBoxResult.Retry : TimeStart = Now - Case MsgBoxResult.Cancel : Exit Do - End Select - End If - 'CncLib.App.Runtime.Log.WI("OK Connect CNC.OSAI but SERIAL NUMBER NOT YET INITIALIZED", , CLog.Lev.Secondary) - 'Application.DoEvents() - Threading.Thread.Sleep(500) 'aspetto 500ms prima di ritentare - 'Application.DoEvents() - Loop - - _bConnected = True - 'CncLib.App.Runtime.Log.WI("OK Connect CNC.OSAI", "Connected=" & _bConnected, CLog.Lev.Secondary) - Else - _bConnected = False - 'CncLib.App.Runtime.Log.WI("OK Connect CNC.OSAI but PHASE NOT OK", "Phase=" & pPhase & " Connected=" & _bConnected, CLog.Lev.Secondary) - Throw New NcException("ERR BootPhase NOT OK CNC.OSAI") - End If - End If - End If - - End Sub - - Public Overrides Sub Disconnect(Optional ByRef szStatus As String = "") - Dim nReturn As Short - Dim bRet As Boolean - Dim szReturn As String = "" - - 'chiudo la sessione - 'nReturn = Cndex.CloseSession_C(_UserSession, _ErrClass, _ErrNum) - If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("CloseSession_C({0}) Disconnect CNC.OSAI", _UserSession), szReturn) Then - _bConnected = False '? - bRet = False - Throw New NcException(szReturn) - Else - _bConnected = False - bRet = True - End If - - End Sub - - ''' - ''' Legge le memorie di configurazione dal cn - ''' - Public Overrides Sub GetStaticData() - Dim sValue(0) As Short - - If Not bStaticDataReaded Then - 'Try - Select Case Settings.MemoryMapping - Case MemoryMapping.ElsManager, - MemoryMapping.Default - 'Matricola - 'nReturn = Cndex.ReadVarWord_C(_UserSession, Cndex.MW_CODE, 0, 3187, 1, sValue, _ErrClass, _ErrNum) - If nReturn = ERRORE Then - 'CncLib.App.Runtime.Log.WW("ERR GetStaticData CNC.OSAI", "Return=" & nReturn & " ErrClass=" & _ErrClass & " ErrNum=0x" & Hex(_ErrNum)) - Else - Me._Matricola = sValue(0) - End If - 'Teste - 'nReturn = Cndex.ReadVarWord_C(_UserSession, Cndex.MW_CODE, 0, 3161, 1, sValue, _ErrClass, _ErrNum) - If nReturn = ERRORE Then - 'CncLib.App.Runtime.Log.WW("ERR GetStaticData CNC.OSAI", "Return=" & nReturn & " ErrClass=" & _ErrClass & " ErrNum=0x" & Hex(_ErrNum)) - Else - Me._Teste = sValue(0) - End If - 'Magazzini - 'nReturn = Cndex.ReadVarWord_C(_UserSession, Cndex.MW_CODE, 0, 3163, 1, sValue, _ErrClass, _ErrNum) - If nReturn = ERRORE Then - 'CncLib.App.Runtime.Log.WW("ERR GetStaticData CNC.OSAI", "Return=" & nReturn & " ErrClass=" & _ErrClass & " ErrNum=0x" & Hex(_ErrNum)) - Else - Me._Magazzini = sValue(0) - End If - 'Manine per Magazzino - ReDim Me._ManineMagazzino(Me._Magazzini - 1) - For i = 1 To Me._Magazzini - If i <= 8 Then - 'nReturn = Cndex.ReadVarWord_C(_UserSession, Cndex.MW_CODE, 0, 3164 + (i - 1), 1, sValue, _ErrClass, _ErrNum) - If nReturn = ERRORE Then - 'CncLib.App.Runtime.Log.WW("ERR GetStaticData CNC.OSAI", "Return=" & nReturn & " ErrClass=" & _ErrClass & " ErrNum=0x" & Hex(_ErrNum)) - Else - Me._ManineMagazzino(i - 1) = sValue(0) - End If - Else '8-20 - 'nReturn = Cndex.ReadVarWord_C(_UserSession, Cndex.MW_CODE, 0, 3188 + (i - 1), 1, sValue, _ErrClass, _ErrNum) - If nReturn = ERRORE Then - 'CncLib.App.Runtime.Log.WW("ERR GetStaticData CNC.OSAI", "Return=" & nReturn & " ErrClass=" & _ErrClass & " ErrNum=0x" & Hex(_ErrNum)) - Else - Me._ManineMagazzino(i - 1) = sValue(0) - End If - - End If - Next i - - Case MemoryMapping.ToolManager, - MemoryMapping.ToolTable - 'Matricola - 'nReturn = Cndex.ReadVarWord_C(_UserSession, Cndex.MW_CODE, 0, 3403, 1, sValue, _ErrClass, _ErrNum) - If nReturn = ERRORE Then - 'CncLib.App.Runtime.Log.WW("ERR GetStaticData CNC.OSAI", "Return=" & nReturn & " ErrClass=" & _ErrClass & " ErrNum=0x" & Hex(_ErrNum)) - Else - Me._Matricola = sValue(0) - End If - 'Teste - 'nReturn = Cndex.ReadVarWord_C(_UserSession, Cndex.MW_CODE, 0, 3405, 1, sValue, _ErrClass, _ErrNum) - If nReturn = ERRORE Then - 'CncLib.App.Runtime.Log.WW("ERR GetStaticData CNC.OSAI", "Return=" & nReturn & " ErrClass=" & _ErrClass & " ErrNum=0x" & Hex(_ErrNum)) - Else - Me._Teste = sValue(0) - End If - 'Magazzini - 'nReturn = Cndex.ReadVarWord_C(_UserSession, Cndex.MW_CODE, 0, 3407, 1, sValue, _ErrClass, _ErrNum) - If nReturn = ERRORE Then - 'CncLib.App.Runtime.Log.WW("ERR GetStaticData CNC.OSAI", "Return=" & nReturn & " ErrClass=" & _ErrClass & " ErrNum=0x" & Hex(_ErrNum)) - Else - Me._Magazzini = sValue(0) - End If - 'Manine per Magazzino - Dim bPari As Boolean - Dim nTmp As Integer - ReDim Me._ManineMagazzino(Me._Magazzini - 1) - If Me._Magazzini Mod 2 = 0 Then 'pari - bPari = True - nTmp = Me._Magazzini / 2 - Else 'dispari - nTmp = Int(Me._Magazzini / 2) + 1 - End If - For i = 1 To nTmp - 'nReturn = Cndex.ReadVarWord_C(_UserSession, Cndex.MW_CODE, 0, 5520 + (i - 1), 1, sValue, _ErrClass, _ErrNum) - Me._ManineMagazzino(i * 2 - 2) = ShortToByte(sValue(0), LOW_ORDER) - If Not (Not bPari And i = nTmp) Then Me._ManineMagazzino(i * 2 - 1) = ShortToByte(sValue(0), HIGH_ORDER) - Next i - End Select - - Me._MaxUtensiliGestibili = 300 'TODO IMPLEMENTARE - Me._MaxIdUtensile = 300 'TODO IMPLEMENTARE - - 'ZoomSpeed - Select Case Settings.MemoryMapping - Case MemoryMapping.ElsManager - O_RW_Short(R, MemTypeWord.MW_CODE, 3921, sValue) - Case MemoryMapping.ToolManager - O_RW_Short(R, MemTypeWord.MW_CODE, 5670, sValue) - Case MemoryMapping.ToolTable - O_RW_Short(R, MemTypeWord.MW_CODE, 3425, sValue) - End Select - If sValue(0) > 0 And sValue(0) <= 100 Then - Me._ZoomSpeed = sValue(0) - Else - Me._ZoomSpeed = 1 - End If - - bStaticDataReaded = True - - 'Catch ex As NcException - ' Me.CncException(ex.Message) - 'End Try - - End If - End Sub - - - ''' - ''' Legge o scrive Boolean da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo di memoria Osai - ''' Indice di memoria - ''' Bit della memoria - ''' Valore da scrivere su scrittura e letto su lettura - ''' True se andata a buon fine - Public Overridable Overloads Function O_RW_Boolean(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByVal MemBit As Integer, ByRef Value As Boolean) As Boolean - Dim szReturn As String = "" - Dim nValue(0) As Short - - 'leggo la memoria - 'nReturn = Cndex.ReadVarWord_C(_UserSession, MemType, 0, MemIndex, nValue.Length, nValue, _ErrClass, _ErrNum) - If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarWord_C({0},{1},{2}) O_RW_Boolean CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then - Throw New NcException(szReturn) - Return False - Else - If bWrite Then ' *** Write - If Value Then 'True - nValue(0) = nValue(0) Or UnsignedToShort(2 ^ MemBit) - Else 'False - nValue(0) = nValue(0) And Not UnsignedToShort(2 ^ MemBit) - End If - 'nReturn = Cndex.WriteVarWord_C(_UserSession, MemType, 0, MemIndex, nValue.Length, nValue, _ErrClass, _ErrNum) - If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("WriteVarWord_C({0},{1},{2}) O_RW_Boolean CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then - Throw New NcException(szReturn) - Return False - End If - - Else ' ************* Read - If (nValue(0) And (2 ^ MemBit)) = (2 ^ MemBit) Then 'True - Value = True - Else 'False - Value = False - End If - End If - End If - - Return True - End Function - - ''' - ''' Legge o scrive Byte da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo di memoria Osai - ''' Indice di memoria - ''' Ordine di partenza LOW_ORDER = 0 HIGH_ORDER = 1 - ''' Matrice di valori da scrivere su scrittura o letti su lettura - ''' True se andata a buon fine - Public Overridable Overloads Function O_RW_Byte(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByVal MemOrderStart As Integer, ByRef Value() As Byte) As Boolean - Dim szReturn As String = "" - Dim bStartHigh As Boolean = MemOrderStart - Dim bEndDispari As Boolean = (Value.Length + MemOrderStart) Mod 2 - Dim cStart, cEnd As Byte - Dim ValueTmp(((Value.Length + MemOrderStart) \ 2) + ((Value.Length + MemOrderStart) Mod 2) - 1) As Short - - - If bWrite Then ' *** Write - 'se comincio con hi leggo la prima memo - If bStartHigh Then - Dim ValStartTmp(0) As Short - 'nReturn = Cndex.ReadVarWord_C(_UserSession, MemType, 0, MemIndex, ValStartTmp.Length, ValStartTmp, _ErrClass, _ErrNum) - If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarWord_C({0},{1},{2}) O_RW_Byte CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then - Throw New NcException(szReturn) - Return False - Else - cStart = ShortToByte(ValStartTmp(0), LOW_ORDER) - End If - End If - - 'se finisco dispari, leggo l'ultima memo - If bEndDispari Then - Dim ValEndTmp(0) As Short - 'nReturn = Cndex.ReadVarWord_C(_UserSession, MemType, 0, MemIndex + ValueTmp.Length - 1, ValEndTmp.Length, ValEndTmp, _ErrClass, _ErrNum) - If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarWord_C({0},{1},{2}) O_RW_Byte CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then - Throw New NcException(szReturn) - Return False - Else - cEnd = ShortToByte(ValEndTmp(0), HIGH_ORDER) - End If - End If - - For i = 0 To ValueTmp.Length - 1 - Dim cLow, cHigh As Byte - 'Low - If i = 0 AndAlso bStartHigh Then - cLow = cStart - Else - cLow = Value(i * 2 - MemOrderStart) - End If - 'High - If i = (ValueTmp.Length - 1) AndAlso bEndDispari Then - cHigh = cEnd - Else - cHigh = Value(i * 2 + 1 - MemOrderStart) - End If - - ValueTmp(i) = ByteToShort(cLow, cHigh) - Next - - 'nReturn = Cndex.WriteVarWord_C(_UserSession, MemType, 0, MemIndex, Value.Length, ValueTmp, _ErrClass, _ErrNum) - If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("WriteVarWord_C({0},{1},{2}) O_RW_DWord CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then - Throw New NcException(szReturn) - Return False - End If - - Else ' ************* Read - 'nReturn = Cndex.ReadVarWord_C(_UserSession, MemType, 0, MemIndex, ValueTmp.Length, ValueTmp, _ErrClass, _ErrNum) - If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarWord_C({0},{1},{2}) O_RW_Byte CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then - Throw New NcException(szReturn) - Return False - Else - For i = 0 To Value.Length - 1 - Value(i) = ShortToByte(ValueTmp((i + MemOrderStart) \ 2), (i + MemOrderStart) Mod 2) - Next - End If - End If - - Return True - End Function - - - ''' - ''' Legge o scrive Word da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo di memoria Osai - ''' Indice di memoria - ''' Matrice di valori da scrivere su scrittura o letti su lettura - ''' True se andata a buon fine - Public Overridable Overloads Function O_RW_Word(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByRef Value() As UShort) As Boolean - Dim szReturn As String = "" - Dim nValue(Value.Length - 1) As Short - - If bWrite Then ' *** Write - For i = 0 To Value.Length - 1 - nValue(i) = UnsignedToShort(Value(i)) - Next - 'nReturn = Cndex.WriteVarWord_C(_UserSession, MemType, 0, MemIndex, Value.Length, nValue, _ErrClass, _ErrNum) - If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("WriteVarWord_C({0},{1},{2}) O_RW_Word CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then - Throw New NcException(szReturn) - Return False - End If - - Else ' ************* Read - 'nReturn = Cndex.ReadVarWord_C(_UserSession, MemType, 0, MemIndex, Value.Length, nValue, _ErrClass, _ErrNum) - If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarWord_C({0},{1},{2}) O_RW_Word CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then - Throw New NcException(szReturn) - Return False - End If - For i = 0 To Value.Length - 1 - Value(i) = ShortToUnsigned(nValue(i)) - Next - End If - - Return True - End Function - - - - ''' - ''' Legge o scrive Short da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo di memoria Osai - ''' Indice di memoria - ''' Matrice di valori da scrivere su scrittura o letti su lettura - ''' True se andata a buon fine - Public Overridable Overloads Function O_RW_Short(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByRef Value() As Short) As Boolean - Dim szReturn As String = "" - - If bWrite Then ' *** Write - 'nReturn = Cndex.WriteVarWord_C(_UserSession, MemType, 0, MemIndex, Value.Length, Value, _ErrClass, _ErrNum) - If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("WriteVarWord_C({0},{1},{2}) O_RW_Word CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then - Throw New NcException(szReturn) - Return False - End If - - Else ' ************* Read - 'nReturn = Cndex.ReadVarWord_C(_UserSession, MemType, 0, MemIndex, Value.Length, Value, _ErrClass, _ErrNum) - If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarWord_C({0},{1},{2}) O_RW_Word CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then - Throw New NcException(szReturn) - Return False - End If - End If - - Return True - End Function - - - ''' - ''' Legge o scrive DWord da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo di memoria Osai - ''' Indice di memoria - ''' Matrice di valori da scrivere su scrittura o letti su lettura - ''' True se andata a buon fine - Public Overridable Overloads Function O_RW_DWord(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByRef Value() As UInteger) As Boolean - Dim szReturn As String = "" - Dim ValueTmp(Value.Length * 2 - 1) As Short - - If bWrite Then ' *** Write - For i = 0 To Value.Length - 1 - ValueTmp(i * 2) = DWordToShort(Value(i), LOW_ORDER) - ValueTmp(i * 2 + 1) = DWordToShort(Value(i), HIGH_ORDER) - Next - 'nReturn = Cndex.WriteVarWord_C(_UserSession, MemType, 0, MemIndex, ValueTmp.Length, ValueTmp, _ErrClass, _ErrNum) - If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("WriteVarWord_C({0},{1},{2}) O_RW_DWord CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then - Throw New NcException(szReturn) - Return False - End If - - Else ' ************* Read - 'nReturn = Cndex.ReadVarWord_C(_UserSession, MemType, 0, MemIndex, ValueTmp.Length, ValueTmp, _ErrClass, _ErrNum) - If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarWord_C({0},{1},{2}) O_RW_DWord CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then - Throw New NcException(szReturn) - Return False - Else - For i = 0 To Value.Length - 1 - Value(i) = ShortsToDWord(ValueTmp(i * 2), ValueTmp(i * 2 + 1)) - Next - End If - End If - - Return True - End Function - - - - ''' - ''' Legge o scrive DWord da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo di memoria Osai - ''' Indice di memoria - ''' Matrice di valori da scrivere su scrittura o letti su lettura - ''' True se andata a buon fine - Public Overridable Overloads Function O_RW_Integer(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByRef Value() As Integer) As Boolean - Dim szReturn As String = "" - Dim ValueTmp(Value.Length * 2 - 1) As Short - - If bWrite Then ' *** Write - For i = 0 To Value.Length - 1 - ValueTmp(i * 2) = IntegerToShort(Value(i), LOW_ORDER) - ValueTmp(i * 2 + 1) = IntegerToShort(Value(i), HIGH_ORDER) - Next - 'nReturn = Cndex.WriteVarWord_C(_UserSession, MemType, 0, MemIndex, ValueTmp.Length, ValueTmp, _ErrClass, _ErrNum) - If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("WriteVarWord_C({0},{1},{2}) O_RW_DWord CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then - Throw New NcException(szReturn) - Return False - End If - - Else ' ************* Read - 'nReturn = Cndex.ReadVarWord_C(_UserSession, MemType, 0, MemIndex, ValueTmp.Length, ValueTmp, _ErrClass, _ErrNum) - If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarWord_C({0},{1},{2}) O_RW_DWord CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then - Throw New NcException(szReturn) - Return False - Else - For i = 0 To Value.Length - 1 - Value(i) = ShortsToInteger(ValueTmp(i * 2), ValueTmp(i * 2 + 1)) - Next - End If - End If - - Return True - End Function - - - - ''' - ''' Legge o scrive Double da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo di memoria Osai - ''' Indice di memoria - ''' Matrice di valori da scrivere su scrittura o letti su lettura - ''' True se andata a buon fine - Public Overridable Overloads Function O_RW_Double(ByVal bWrite As Boolean, ByVal MemType As MemTypeDouble, ByVal MemIndex As Integer, ByRef Value() As Double) As Boolean - Dim szReturn As String = "" - - If bWrite Then ' *** Write - 'nReturn = Cndex.WriteVarDouble_C(_UserSession, MemType, 0, MemIndex, Value.Length, Value, _ErrClass, _ErrNum) - If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("WriteVarDouble_C({0},{1},{2}) O_RW_Double CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then - Throw New NcException("ERR WriteVarDouble_C O_RW_Double CNC.OSAI") - Return False - End If - - Else ' ************* Read - 'nReturn = Cndex.ReadVarDouble_C(_UserSession, MemType, 0, MemIndex, Value.Length, Value, _ErrClass, _ErrNum) - If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarDouble_C({0},{1},{2}) O_RW_Double CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then - Throw New NcException("ERR ReadVarDouble_C O_RW_Double CNC.OSAI") - Return False - End If - End If - - Return True - End Function - - ''' - ''' Legge o scrive Stringhe da MEMORIE SC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Indice di memoria - ''' Lunghezza caratteri - ''' Stringa da scrivere su scrittura o leggere su lettura - ''' True se andata a buon fine - Public Overridable Overloads Function O_RW_Text(ByVal bWrite As Boolean, ByVal MemType As MemTypeText, ByVal MemIndex As Integer, ByVal MemLength As Integer, ByRef Value As String) As Boolean - Dim szReturn As String = "" - - If bWrite Then ' *** Write - 'nReturn = Cndex.WriteVarText_C(_UserSession, MemType, 1, MemIndex, MemLength, Value, _ErrClass, _ErrNum) - If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("WriteVarText_C({0},{1},{2}) O_RW_Text CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then - Throw New NcException("ERR WriteVarText_C O_RW_Text CNC.OSAI") - Return False - End If - - Else ' ************* Read - 'nReturn = Cndex.ReadVarText_C(_UserSession, MemType, 1, MemIndex, MemLength, Value, _ErrClass, _ErrNum) - If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarText_C({0},{1},{2}) O_RW_Text CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then - Throw New NcException("ERR ReadVarText_C O_RW_Text CNC.OSAI") - Return False - End If - End If - - Return True - End Function - - - ''' - ''' Legge o scrive Length and Radius Offset da tabella Utensili CN - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Numero dell'offset utensile - Public Overridable Function O_RW_ToolOffset(ByVal bWrite As Boolean, ByVal ToolOffsetNumber As Integer, ByRef CutterRadius_Wear As Double, ByRef CutterRadius_Geometry As Double, ByRef ToolLenght_Wear As Double, ByRef ToolLenght_Geometry As Double) As Boolean - Return False - End Function - - - - ''' - ''' Blocca l'accesso alla tabella dei correttori - ''' - ''' =True: Blocca la tabella, =False: Sblocca la tabella - ''' True se andata a buon fine - Public Overridable Function O_LockOffsetTable(ByVal Lock As Boolean) As Boolean - Return False - End Function - - - ''' - ''' Legge il numero del processo attivo - ''' - ''' Valore di ritorno del processo selezionato - ''' True se andata a buon fine - Public Overridable Overloads Function O_GetSelectedProcess(ByRef ProcessId As Short) As Boolean - Dim szReturn As String = "" - - 'nReturn = Cndex.GetSelectedProcess_C(_UserSession, ProcessId, _ErrClass, _ErrNum) - If O_CheckRetError(nReturn, _ErrClass, _ErrNum, "GetSelectedProcess_C O_GetSelectedProcess CNC.OSAI", szReturn) Then - Throw New NcException("ERR GetSelectedProcess_C O_GetSelectedProcess CNC.OSAI") - Return False - End If - - Return True - End Function - - ''' - ''' Legge la riga del programma attivo - ''' - ''' Riga in esecuzione del programma attivo - ''' True se andata a buon fine - Public Overridable Overloads Function O_GetActiveLineProgram(ByRef Line As String) As Boolean - - Dim szReturn As String = "" - Dim ProcessId As Integer - Dim szLine1 As String = "" - Dim szLine2 As String = "" - Dim szLine3 As String = "" - Dim szLine4 As String = "" - Dim szLine5 As String = "" - Dim szLine6 As String = "" - Dim szLine7 As String = "" - Dim szLine8 As String = "" - - O_GetSelectedProcess(ProcessId) - - 'nReturn = Cndex.GetPartProgramLines_C(_UserSession, ProcessId, szLine1, szLine2, szLine3, szLine4, szLine5, szLine6, szLine7, szLine8, _ErrClass, _ErrNum) - Line = szLine2 - - If O_CheckRetError(nReturn, _ErrClass, _ErrNum, "GetPartProgramLines_C O_GetActiveLineProgram CNC.OSAI", szReturn) Then - Throw New NcException("ERR GetPartProgramLines_C O_GetActiveLineProgram CNC.OSAI") - Return False - End If - - Return True - End Function - - ''' - ''' Legge la tabella assi - ''' - ''' Processo selezionato - ''' Valore di ritorno Assi del processo selezionato - ''' True se andata a buon fine - Public Overridable Function O_GetAxisTab(ByVal ProcessId As Short, ByRef AxisTable() As Char, ByRef AxisIdTable() As Short) As Boolean - Return True - End Function - - - Public Overridable Function O_CheckRetError(ByVal nReturn As Short, ByVal ErrClass As Long, ByVal ErrNum As Long, ByVal Position As String, Optional ByRef szReturn As String = "") As Boolean - Dim szErrorClassDesc As String = String.Empty - Dim szErrorDesc As String = String.Empty - - 'Cndex 3.1.2 messages - - '' aggiornare dal manuale di programmazione 4606R.pdf - '' alcune classi di errori sono del cn e non sono specificate nel documento - - If nReturn = 0 Then - 'Seleziono il messaggio - Select Case ErrClass - Case 1 - szErrorClassDesc = "COM error class" - Select Case ErrNum - Case &H80080005 : szErrorDesc = "CO_E_SERVER_EXEC_FAILURE" - Case &H800706BA : szErrorDesc = "RPC_S_SERVER_UNAVAILABLE" - Case &H80070005 : szErrorDesc = "E_ACCESSDENIED" - Case &H80040154 : szErrorDesc = "REGDB_E_CLASSNOTREG" - Case &H80012 : szErrorDesc = "CO_S_NOTALLINTERFACES" - End Select - szErrorDesc = "0x" & Hex(ErrNum) & ": " & szErrorDesc - - Case 2 - szErrorClassDesc = "SERVER error class" - Select Case ErrNum - Case 1 : szErrorDesc = "Memory for dynamic allocations insufficient" - Case 2 : szErrorDesc = "Impossible to create synchronisation events" - Case 3 : szErrorDesc = "Session aborted and no longer usable" - Case 4 : szErrorDesc = "Session not open" - Case 5 : szErrorDesc = "Impossible to allocate a channel" - Case 6 : szErrorDesc = "Function of a non-existing process requested" - Case 7 : szErrorDesc = "Broadcasting command aborted" - Case 8 : szErrorDesc = "Buffer supplied by function in which the data supplied by the NC are copied is too small" - Case 9 : szErrorDesc = "Session already open" - Case 10 : szErrorDesc = "Broadcasting list invalid" - Case 11 : szErrorDesc = "Realtime command aborted" - Case 12 : szErrorDesc = "Function already active" - Case 13 : szErrorDesc = "Function not yet active" - Case 14 : szErrorDesc = "Reception thread ended" - Case 15 : szErrorDesc = "No reply to command received within allotted time" - Case 16 : szErrorDesc = "NC release to which you are connected is not compatible with communications with server" - Case 17 : szErrorDesc = "Cookie does not identify any communication session" - Case 18 : szErrorDesc = "Realtime thread cannot be created" - Case 19 : szErrorDesc = "No more sections available" - Case 20 : szErrorDesc = "Error in symbol acquisition" - Case 23 : szErrorDesc = "Internal object instance cannot be created" - Case 24 : szErrorDesc = "Broadcasting thread cannot be created" - Case 25 : szErrorDesc = "Function cannot be executed in the numerical control boot phase" - Case 26 : szErrorDesc = "Parameter wrong" - Case 27 : szErrorDesc = "Invalid buffer" - Case 29 : szErrorDesc = "Session identifier (UserSession) is invalid (session closed or never opened)" - Case 31 : szErrorDesc = "Session identifier is invalid (value out of range) or session has been closed automatically by Cndex server" - End Select - szErrorDesc = ErrNum.ToString & ": " & szErrorDesc - - Case 3 - szErrorClassDesc = "NETBIOS error class" - Select Case ErrNum - Case &H1 : szErrorDesc = "Illegal buffer length" - Case &H3 : szErrorDesc = "Illegal command" - Case &H5 : szErrorDesc = "Command timed out" - Case &H6 : szErrorDesc = "Message incomplete, issue another command" - Case &H7 : szErrorDesc = "Illegal buffer address" - Case &H8 : szErrorDesc = "Session number out of range" - Case &H9 : szErrorDesc = "No resource available" - Case &HA : szErrorDesc = "Session closed" - Case &HB : szErrorDesc = "Command cancelled" - Case &HD : szErrorDesc = "Duplicate name" - Case &HE : szErrorDesc = "Name table full" - Case &HF : szErrorDesc = "No deletions, name has active sessions" - Case &H11 : szErrorDesc = "Local session table full" - Case &H12 : szErrorDesc = "Remote session table full" - Case &H13 : szErrorDesc = "Illegal name number" - Case &H14 : szErrorDesc = "No callname" - Case &H15 : szErrorDesc = "Cannot put * in NCB_NAME" - Case &H16 : szErrorDesc = "Name in use on remote adapter" - Case &H17 : szErrorDesc = "Name deleted" - Case &H18 : szErrorDesc = "Session ended abnormally" - Case &H19 : szErrorDesc = "Name conflict detected" - Case &H21 : szErrorDesc = "Interface busy, IRET before retrying" - Case &H22 : szErrorDesc = "Too many commands outstanding, retry later" - Case &H23 : szErrorDesc = "Ncb_lana_num field invalid" - Case &H24 : szErrorDesc = "Command completed while cancel occurring" - Case &H26 : szErrorDesc = "Command not valid to cancel" - Case &H30 : szErrorDesc = "Name defined by another local process" - Case &H34 : szErrorDesc = "Environment undefined. RESET required" - Case &H35 : szErrorDesc = "Required OS resources exhausted" - Case &H36 : szErrorDesc = "Max number of applications exceeded" - Case &H37 : szErrorDesc = "No saps available for netbios" - Case &H38 : szErrorDesc = "Requested resources are not available" - Case &H39 : szErrorDesc = "Invalid ncb address or length > segment" - Case &H3B : szErrorDesc = "Invalid NCB DDID" - Case &H3C : szErrorDesc = "Lock of user area failed" - Case &H3F : szErrorDesc = "NETBIOS not loaded" - Case &H40 : szErrorDesc = "System error" - End Select - szErrorDesc = "0x" & Hex(ErrNum) & ": " & szErrorDesc - - Case 4 - szErrorClassDesc = "CNC error class" - Select Case ErrNum - 'Error codes for Real Time functions - Case &H101 : szErrorDesc = "Command unknown" - Case &H102 : szErrorDesc = "No channel available" - Case &H103 : szErrorDesc = "Tick requested not multiple of system tick" - Case &H104 : szErrorDesc = "Id channel wrong" - Case &H105 : szErrorDesc = "Data acquisition still underway" - Case &H106 : szErrorDesc = "Channel not configured" - Case &H107 : szErrorDesc = "Error on stop trigger" - Case &H108 : szErrorDesc = "Channel already configured for other types of data" - 'Error codes for Dry Run functions - Case &H200 : szErrorDesc = "Process not configured" - Case &H201 : szErrorDesc = "Axis not present in process" - Case &H202 : szErrorDesc = "Dry run not configured" - Case &H203 : szErrorDesc = "Dry run already being executed" - Case &H204 : szErrorDesc = "Dry run already in stop status" - End Select - szErrorDesc = "0x" & Hex(ErrNum) & ": " & szErrorDesc - - Case 10 - szErrorClassDesc = "DLL_INTERFACE error class" - Select Case ErrNum - Case 1 : szErrorDesc = "The server has been created more than once" - Case 2 : szErrorDesc = "An error has occurred during the creation of the Cndex server" - Case 3 : szErrorDesc = "A function has been called without having created the Cndex server" - Case 4 : szErrorDesc = "One or more function input parameters are not valid" - Case 5 : szErrorDesc = "Option A06 -CndexLink communication- for network communications with external applications is not enabled on the CNC you are trying to connect to" - End Select - szErrorDesc = ErrNum.ToString & ": " & szErrorDesc - - Case Else - szErrorDesc = ErrNum.ToString - End Select - szErrorClassDesc = ErrClass.ToString & ": " & szErrorClassDesc - - 'Stampo il messaggio - szReturn = "ERR " & szErrorClassDesc & " " & szErrorDesc & " - Occurred in: " & Position - Return True 'presenza errore - End If - - szReturn = "" - Return False 'assenza errori - End Function -#Region "area chiamate IOT (dummy/overridden)" - - ''' - ''' Chiama GenNcInfo x ottenere dati base del NC - ''' - ''' - ''' - Public Overridable Function O_GetNcInfo1(ByRef NcInfo As OPENcontrol.GETINFO1DATA) As Boolean - Return True - End Function - ''' - ''' Chiama ReadCurrentErrorMsg x ottenere elenco errori - ''' - ''' - ''' - Public Overridable Function O_ReadCurrentErrorMsg(ByRef CurrMsgError As OPENcontrol.MSGERROR) As Boolean - Return True - End Function - ''' - ''' Chiama ReadCurrentEmergMsg x ottenere elenco errori - ''' - ''' - ''' - Public Overridable Function O_ReadCurrentEmergMsg(ByRef CurrMsgEmerg As OPENcontrol.MSGEMERGENCY) As Boolean - Return True - End Function - ''' - ''' Chiama ReadCurrentErrorMsg x ottenere elenco errori - ''' - ''' - ''' - Public Overridable Function O_ReadCurrentAnomalyMsg(ByRef CurrMsgAnomaly As OPENcontrol.MSGANOMALY) As Boolean - Return True - End Function - ''' - ''' Restituisce posizione assi (tutti) - ''' - ''' Tipo posizione richeista (1..6) - ''' Vettore posizioni richieste - ''' - Public Overridable Function getAllAxisPos(tipoPos As Int16, ByRef AxisPos As OPENcontrol.GETINTDATA()) As Boolean - Return True - End Function - ''' - ''' Elenco codici G del processo richiesto... - ''' - ''' - ''' - ''' - Public Overridable Function getPathGCodeMod(Processo As Int32, ByRef GCodeCurr As UShort()) As Boolean - Return True - End Function - -#End Region - - End Class - -End Namespace diff --git a/IOB-WIN/CncLib/CNC/CNC.OSAI/CNC.OSAI_SOAP.vb b/IOB-WIN/CncLib/CNC/CNC.OSAI/CNC.OSAI_SOAP.vb deleted file mode 100644 index cb9a789..0000000 --- a/IOB-WIN/CncLib/CNC/CNC.OSAI/CNC.OSAI_SOAP.vb +++ /dev/null @@ -1,1154 +0,0 @@ -Imports CncLib.Config.Settings - -Namespace CNC - - Public Class OSAI_OPEN - Inherits OSAI - - 'Variabili per Web Service OPENcontrol - Protected _szIpAddress As String - Friend OPENws As OPENcontrol.OPENcontrolPortTypeClient - Private nReturn As Short - - Protected Const MAXRET = 3 - - Public Enum O_Table - TOOL_TABLE_ID = 1 - OFFSET_TABLE_ID = 2 - ORIGIN_TABLE_ID = 3 - USER_TABLE_ID = 4 - End Enum - - Public Overrides Property Licenza() As Integer - Get - Dim uiLicence(0) As UInteger - 'leggo dal cn il valore - Me.O_RW_DWord(R, MemTypeWord.GW_CODE, 303, uiLicence) - Return UnsignedToInteger(uiLicence(0)) - End Get - Set(ByVal value As Integer) - 'setto sul cn il valore - Dim uiLicence(0) As UInteger - uiLicence(0) = IntegerToUnsigned(value) - Me.O_RW_DWord(W, MemTypeWord.GW_CODE, 303, uiLicence) - End Set - End Property - - Public Overrides Property LicenzaScaduta() As Boolean - Get - Dim bLicenzaScaduta As Boolean - 'leggo dal cn il valore - Me.O_RW_Boolean(R, MemTypeWord.GW_CODE, 302, 0, bLicenzaScaduta) - Return bLicenzaScaduta - End Get - Set(ByVal value As Boolean) - 'setto sul cn il valore - Me.O_RW_Boolean(W, MemTypeWord.GW_CODE, 302, 0, value) - End Set - End Property - - Public Sub New(ByRef szIpAddress As String) - _Type = NcType.OSAI - _szIpAddress = szIpAddress - - Dim conf As String = "OPENcontrol" - Dim url As String = "http://" & szIpAddress & ":8080" - - Try - OPENws = New OPENcontrol.OPENcontrolPortTypeClient(conf, url) - Catch ex As Exception - MsgBox(ex.Message) - End Try - - - 'Inizializzo le variabili - Me._Descrizione = "NC OSAI OPENcontrol" & vbNewLine - Me._Descrizione = Me._Descrizione & "IpAddress: " & _szIpAddress - End Sub - - Public Overrides Sub Connect(Optional ByRef szStatus As String = "") - Dim BootPhaseEnquiryR As New OPENcontrol.BootPhaseEnquiryR - Dim BootPhaseEnquiry As OPENcontrol.BootPhaseEnquiry - Dim szReturn As String = "" - Dim usValue(0) As UShort - Dim TimeStart As Date - - BootPhaseEnquiry = New OPENcontrol.BootPhaseEnquiry() - - 'leggo in che fase di boot mi trovo - Try - BootPhaseEnquiryR = OPENws.BootPhaseEnquiry(BootPhaseEnquiry) - Catch ex As System.ServiceModel.EndpointNotFoundException - _bConnected = False - Throw New NcException(ex.Message) - Catch ex As System.ServiceModel.CommunicationException - _bConnected = False - Throw New NcException(ex.Message) - End Try - - If O_CheckRetError(BootPhaseEnquiryR.retval, BootPhaseEnquiryR.ErrClass, BootPhaseEnquiryR.ErrNum, String.Format("BootPhaseEnquiry({0}) Connect CNC.OSAI_OPEN", BootPhaseEnquiry), szReturn) Then - _bConnected = False - Throw New NcException(szReturn) - Else - 'verifico che il sistema si trovi in una fase operativa "stabile" - If BootPhaseEnquiryR.Phase = 4 Then 'SYSTEM_UP_PHASE - - 'leggo matricola e verifico che sia diversa da zero - TimeStart = Now - Do - - nReturn = O_RW_Word(R, MemTypeWord.MW_CODE, 3403, usValue) - - If usValue(0) > 0 Then - Threading.Thread.Sleep(500) - Exit Do - End If - - If (Now - TimeStart).Seconds > 30 Then - Select Case MsgBox("Matricola non inizializzata in 30 secondi: Verificare inizializzazione PLC", MsgBoxStyle.Exclamation + MsgBoxStyle.RetryCancel) - Case MsgBoxResult.Retry : TimeStart = Now - Case MsgBoxResult.Cancel : Exit Do - End Select - End If - Threading.Thread.Sleep(500) 'aspetto 500ms prima di ritentare - Loop - - _bConnected = True - Else - _bConnected = False - Throw New NcException("ERR BootPhase NOT OK CNC.OSAI_OPEN") - End If - End If - - End Sub - - Public Overrides Sub Disconnect(Optional ByRef szStatus As String = "") - _bConnected = False - End Sub - - ''' - ''' Legge le memorie di configurazione dal cn - ''' - Public Overrides Sub GetStaticData() - Dim nValue(0) As Integer - Dim sValue(0) As Short - Dim ucValue(0) As Byte - - If Not bStaticDataReaded Then - Try - Select Case Settings.MemoryMapping - Case MemoryMapping.ElsManager - - Case MemoryMapping.Default, - MemoryMapping.ToolManager, - MemoryMapping.ToolTable - - 'Matricola - nReturn = O_RW_Short(R, MemTypeWord.MW_CODE, 3403, sValue) - Me._Matricola = sValue(0) - 'Teste - nReturn = O_RW_Short(R, MemTypeWord.MW_CODE, 3405, sValue) - Me._Teste = sValue(0) - 'Magazzini - nReturn = O_RW_Short(R, MemTypeWord.MW_CODE, 3407, sValue) - Me._Magazzini = sValue(0) - 'Manine per Magazzino - ReDim Me._ManineMagazzino(Me._Magazzini - 1) - ReDim ucValue(19) - nReturn = O_RW_Byte(R, MemTypeWord.MW_CODE, 2900, LOW_ORDER, ucValue) - Array.Copy(ucValue, Me._ManineMagazzino, Me._ManineMagazzino.Length) - ReDim ucValue(0) - - 'Magazzini Con Attrezzaggio Automatico (maschera) - O_RW_Integer(R, MemTypeWord.MW_CODE, 4060, nValue) - Me._MagazziniConAttrezzaggioAutomatico = nValue(0) - End Select - - Me._MaxUtensiliGestibili = 300 'TODO IMPLEMENTARE - Me._MaxIdUtensile = 300 'TODO IMPLEMENTARE - - Select Case Settings.MemoryMapping - Case MemoryMapping.ElsManager - Case MemoryMapping.ToolManager - Case MemoryMapping.Default, - MemoryMapping.ToolTable - 'ZoomSpeed - nReturn = O_RW_Short(R, MemTypeWord.MW_CODE, 3425, sValue) - If sValue(0) > 0 And sValue(0) <= 100 Then - Me._ZoomSpeed = sValue(0) - Else - Me._ZoomSpeed = 1 - End If - End Select - - bStaticDataReaded = True - - Catch ex As NcException - Me.CncException(ex.Message) - End Try - - End If - End Sub - - - ''' - ''' Legge o scrive Boolean da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo di memoria Osai - ''' Indice di memoria - ''' Bit della memoria - ''' Valore da scrivere su scrittura e letto su lettura - ''' True se andata a buon fine - Public Overloads Overrides Function O_RW_Boolean(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByVal MemBit As Integer, ByRef Value As Boolean) As Boolean - Dim szReturn As String = "" - Dim nRetry As Integer -Retry: nRetry += 1 - - Try - If bWrite Then ' *** Write - Dim myWriteVarWordBitR As OPENcontrol.WriteVarWordBitR - Dim myWriteVarWordBit As New OPENcontrol.WriteVarWordBit - myWriteVarWordBit.Code = MemType - myWriteVarWordBit.Index = MemIndex - myWriteVarWordBit.BitIndex = MemBit - myWriteVarWordBit.BitValue = IIf(Value, 1, 0) - myWriteVarWordBitR = OPENws.WriteVarWordBit(myWriteVarWordBit) - If O_CheckRetError(myWriteVarWordBitR.retval, myWriteVarWordBitR.ErrClass, myWriteVarWordBitR.ErrNum, String.Format("WriteVarWordBit({0},{1}) O_RW_Boolean CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then - Throw New NcException(szReturn) - Return False - End If - - Else ' ************* Read - Dim myReadVarWordR As OPENcontrol.ReadVarWordR - Dim myReadVarWord As New OPENcontrol.ReadVarWord - myReadVarWord.Code = MemType - myReadVarWord.Index = MemIndex - myReadVarWord.NumVar = 1 - myReadVarWordR = OPENws.ReadVarWord(myReadVarWord) - If O_CheckRetError(myReadVarWordR.retval, myReadVarWordR.ErrClass, myReadVarWordR.ErrNum, String.Format("ReadVarWord({0},{1}) O_RW_Boolean CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then - Throw New NcException(szReturn) - Return False - End If - If (myReadVarWordR.Value(0) And (2 ^ MemBit)) = (2 ^ MemBit) Then 'True - Value = True - Else 'False - Value = False - End If - End If - - Return True - Catch ex As System.ServiceModel.CommunicationException - If nRetry < MAXRET Then GoTo Retry - Throw New NcException(ex.Message) - Return False - Catch ex As System.TimeoutException - Throw New NcException(ex.Message) - Return False - End Try - End Function - - ''' - ''' Legge o scrive Byte da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo di memoria Osai - ''' Indice di memoria - ''' Ordine di partenza LOW_ORDER = 0 HIGH_ORDER = 1 - ''' Matrice di valori da scrivere su scrittura o letti su lettura - ''' True se andata a buon fine - Public Overloads Overrides Function O_RW_Byte(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByVal MemOrderStart As Integer, ByRef Value() As Byte) As Boolean - Dim szReturn As String = "" - Dim bStartHigh As Boolean = MemOrderStart - Dim bEndDispari As Boolean = (Value.Length + MemOrderStart) Mod 2 - Dim cStart, cEnd As Byte - Dim ValueTmp(((Value.Length + MemOrderStart) \ 2) + ((Value.Length + MemOrderStart) Mod 2) - 1) As UShort - Dim nRetry As Integer -Retry: nRetry += 1 - - Try - If bWrite Then ' *** Write - 'se comincio con hi leggo la prima memo - If bStartHigh Then - Dim ValStartTmp(0) As UShort - O_RW_Word(R, MemType, MemIndex, ValStartTmp) - cStart = WordToByte(ValStartTmp(0), LOW_ORDER) - End If - - 'se finisco dispari, leggo l'ultima memo - If bEndDispari Then - Dim ValEndTmp(0) As UShort - O_RW_Word(R, MemType, MemIndex + ValueTmp.Length - 1, ValEndTmp) - cEnd = WordToByte(ValEndTmp(0), HIGH_ORDER) - End If - - For i = 0 To ValueTmp.Length - 1 - Dim cLow, cHigh As Byte - 'Low - If i = 0 AndAlso bStartHigh Then - cLow = cStart - Else - cLow = Value(i * 2 - MemOrderStart) - End If - 'High - If i = (ValueTmp.Length - 1) AndAlso bEndDispari Then - cHigh = cEnd - Else - cHigh = Value(i * 2 + 1 - MemOrderStart) - End If - - ValueTmp(i) = ByteToWord(cLow, cHigh) - Next - - O_RW_Word(W, MemType, MemIndex, ValueTmp) - - Else ' ************* Read - Dim myReadVarWordR As OPENcontrol.ReadVarWordR - Dim myReadVarWord As New OPENcontrol.ReadVarWord - myReadVarWord.Code = MemType - myReadVarWord.Index = MemIndex - myReadVarWord.NumVar = ValueTmp.Length - myReadVarWordR = OPENws.ReadVarWord(myReadVarWord) - If O_CheckRetError(myReadVarWordR.retval, myReadVarWordR.ErrClass, myReadVarWordR.ErrNum, String.Format("ReadVarWord({0},{1}) O_RW_Byte CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then - Throw New NcException(szReturn) - Return False - End If - For i = 0 To Value.Length - 1 - Value(i) = WordToByte(myReadVarWordR.Value((i + MemOrderStart) \ 2), (i + MemOrderStart) Mod 2) - Next - End If - - Return True - Catch ex As System.ServiceModel.CommunicationException - If nRetry < MAXRET Then GoTo Retry - Throw New NcException(ex.Message) - Return False - Catch ex As System.TimeoutException - Throw New NcException(ex.Message) - Return False - End Try - End Function - - ''' - ''' Legge o scrive Word da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo di memoria Osai - ''' Indice di memoria - ''' Matrice di valori da scrivere su scrittura o letti su lettura - ''' True se andata a buon fine - Public Overloads Overrides Function O_RW_Word(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByRef Value() As UShort) As Boolean - Dim szReturn As String = "" - Dim nRetry As Integer -Retry: nRetry += 1 - - Try - If bWrite Then ' *** Write - Dim myWriteVarWordR As OPENcontrol.WriteVarWordR - Dim myWriteVarWord As New OPENcontrol.WriteVarWord - myWriteVarWord.Code = MemType - myWriteVarWord.Index = MemIndex - myWriteVarWord.NumVar = Value.Length - ReDim myWriteVarWord.Value(Value.Length - 1) - Array.Copy(Value, myWriteVarWord.Value, Value.Length) - myWriteVarWordR = OPENws.WriteVarWord(myWriteVarWord) - If O_CheckRetError(myWriteVarWordR.retval, myWriteVarWordR.ErrClass, myWriteVarWordR.ErrNum, String.Format("WriteVarWord({0},{1}) O_RW_Word CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then - Throw New NcException(szReturn) - Return False - End If - - Else ' ************* Read - Dim myReadVarWordR As OPENcontrol.ReadVarWordR - Dim myReadVarWord As New OPENcontrol.ReadVarWord - myReadVarWord.Code = MemType - myReadVarWord.Index = MemIndex - myReadVarWord.NumVar = Value.Length - myReadVarWordR = OPENws.ReadVarWord(myReadVarWord) - If O_CheckRetError(myReadVarWordR.retval, myReadVarWordR.ErrClass, myReadVarWordR.ErrNum, String.Format("ReadVarWord({0},{1}) O_RW_Word CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then - Throw New NcException(szReturn) - Return False - End If - Array.Copy(myReadVarWordR.Value, Value, Value.Length) - End If - - Return True - - Catch ex As System.ServiceModel.CommunicationException - If nRetry < MAXRET Then GoTo Retry - Throw New NcException(ex.Message) - Return False - Catch ex As System.TimeoutException - Throw New NcException(ex.Message) - Return False - End Try - End Function - - - ''' - ''' Legge o scrive Short da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo di memoria Osai - ''' Indice di memoria - ''' Matrice di valori da scrivere su scrittura o letti su lettura - ''' True se andata a buon fine - Public Overloads Overrides Function O_RW_Short(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByRef Value() As Short) As Boolean - Dim szReturn As String = "" - Dim nRetry As Integer -Retry: nRetry += 1 - - Try - If bWrite Then ' *** Write - Dim myWriteVarWordR As OPENcontrol.WriteVarWordR - Dim myWriteVarWord As New OPENcontrol.WriteVarWord - myWriteVarWord.Code = MemType - myWriteVarWord.Index = MemIndex - myWriteVarWord.NumVar = Value.Length - ReDim myWriteVarWord.Value(Value.Length - 1) - For i = 0 To Value.Length - 1 - myWriteVarWord.Value(i) = ShortToUnsigned(Value(i)) - Next - myWriteVarWordR = OPENws.WriteVarWord(myWriteVarWord) - If O_CheckRetError(myWriteVarWordR.retval, myWriteVarWordR.ErrClass, myWriteVarWordR.ErrNum, String.Format("WriteVarWord({0},{1}) O_RW_Short CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then - Throw New NcException(szReturn) - Return False - End If - - Else ' ************* Read - Dim myReadVarWordR As OPENcontrol.ReadVarWordR - Dim myReadVarWord As New OPENcontrol.ReadVarWord - myReadVarWord.Code = MemType - myReadVarWord.Index = MemIndex - myReadVarWord.NumVar = Value.Length - myReadVarWordR = OPENws.ReadVarWord(myReadVarWord) - If O_CheckRetError(myReadVarWordR.retval, myReadVarWordR.ErrClass, myReadVarWordR.ErrNum, String.Format("ReadVarWord({0},{1}) O_RW_Short CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then - Throw New NcException(szReturn) - Return False - End If - For i = 0 To Value.Length - 1 - Value(i) = UnsignedToShort(myReadVarWordR.Value(i)) - Next - End If - Return True - Catch ex As System.ServiceModel.CommunicationException - If nRetry < MAXRET Then GoTo Retry - Throw New NcException(ex.Message) - Return False - Catch ex As System.TimeoutException - Throw New NcException(ex.Message) - Return False - End Try - End Function - - - ''' - ''' Legge o scrive Integer da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo di memoria Osai - ''' Indice di memoria - ''' Matrice di valori da scrivere su scrittura o letti su lettura - ''' True se andata a buon fine - Public Overloads Overrides Function O_RW_DWord(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByRef Value() As UInteger) As Boolean - Dim szReturn As String = "" - Dim ValueTmp(Value.Length * 2 - 1) As UShort - Dim nRetry As Integer -Retry: nRetry += 1 - - Try - If bWrite Then ' *** Write - Dim myWriteVarWordR As OPENcontrol.WriteVarWordR - Dim myWriteVarWord As New OPENcontrol.WriteVarWord - myWriteVarWord.Code = MemType - myWriteVarWord.Index = MemIndex - myWriteVarWord.NumVar = ValueTmp.Length - For i = 0 To Value.Length - 1 - ValueTmp(i * 2) = DWordToWord(Value(i), LOW_ORDER) - ValueTmp(i * 2 + 1) = DWordToWord(Value(i), HIGH_ORDER) - Next - ReDim myWriteVarWord.Value(ValueTmp.Length - 1) - Array.Copy(ValueTmp, myWriteVarWord.Value, ValueTmp.Length) - myWriteVarWordR = OPENws.WriteVarWord(myWriteVarWord) - If O_CheckRetError(myWriteVarWordR.retval, myWriteVarWordR.ErrClass, myWriteVarWordR.ErrNum, String.Format("WriteVarWord({0},{1}) O_RW_DWord CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then - Throw New NcException(szReturn) - Return False - End If - - Else ' ************* Read - Dim myReadVarWordR As OPENcontrol.ReadVarWordR - Dim myReadVarWord As New OPENcontrol.ReadVarWord - myReadVarWord.Code = MemType - myReadVarWord.Index = MemIndex - myReadVarWord.NumVar = ValueTmp.Length - myReadVarWordR = OPENws.ReadVarWord(myReadVarWord) - If O_CheckRetError(myReadVarWordR.retval, myReadVarWordR.ErrClass, myReadVarWordR.ErrNum, String.Format("ReadVarWord({0},{1}) O_RW_DWord CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then - Throw New NcException(szReturn) - Return False - Else - For i = 0 To Value.Length - 1 - Value(i) = WordsToDWord(myReadVarWordR.Value(i * 2), myReadVarWordR.Value(i * 2 + 1)) - Next - End If - End If - - Return True - Catch ex As System.ServiceModel.CommunicationException - If nRetry < MAXRET Then GoTo Retry - Throw New NcException(ex.Message) - Return False - Catch ex As System.TimeoutException - Throw New NcException(ex.Message) - Return False - End Try - End Function - - - ''' - ''' Legge o scrive Integer da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo di memoria Osai - ''' Indice di memoria - ''' Matrice di valori da scrivere su scrittura o letti su lettura - ''' True se andata a buon fine - Public Overloads Overrides Function O_RW_Integer(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByRef Value() As Integer) As Boolean - Dim szReturn As String = "" - Dim ValueTmp(Value.Length * 2 - 1) As UShort - Dim nRetry As Integer -Retry: nRetry += 1 - - Try - If bWrite Then ' *** Write - Dim myWriteVarWordR As OPENcontrol.WriteVarWordR - Dim myWriteVarWord As New OPENcontrol.WriteVarWord - myWriteVarWord.Code = MemType - myWriteVarWord.Index = MemIndex - myWriteVarWord.NumVar = ValueTmp.Length - For i = 0 To Value.Length - 1 - ValueTmp(i * 2) = IntegerToWord(Value(i), LOW_ORDER) - ValueTmp(i * 2 + 1) = IntegerToWord(Value(i), HIGH_ORDER) - Next - ReDim myWriteVarWord.Value(ValueTmp.Length - 1) - Array.Copy(ValueTmp, myWriteVarWord.Value, ValueTmp.Length) - myWriteVarWordR = OPENws.WriteVarWord(myWriteVarWord) - If O_CheckRetError(myWriteVarWordR.retval, myWriteVarWordR.ErrClass, myWriteVarWordR.ErrNum, String.Format("WriteVarDWord({0},{1}) O_RW_DWord CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then - Throw New NcException(szReturn) - Return False - End If - - Else ' ************* Read - Dim myReadVarWordR As OPENcontrol.ReadVarWordR - Dim myReadVarWord As New OPENcontrol.ReadVarWord - myReadVarWord.Code = MemType - myReadVarWord.Index = MemIndex - myReadVarWord.NumVar = ValueTmp.Length - myReadVarWordR = OPENws.ReadVarWord(myReadVarWord) - If O_CheckRetError(myReadVarWordR.retval, myReadVarWordR.ErrClass, myReadVarWordR.ErrNum, String.Format("ReadVarDWord({0},{1}) O_RW_DWord CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then - Throw New NcException(szReturn) - Return False - Else - For i = 0 To Value.Length - 1 - Value(i) = WordsToInteger(myReadVarWordR.Value(i * 2), myReadVarWordR.Value(i * 2 + 1)) - Next - End If - End If - - Return True - Catch ex As System.ServiceModel.CommunicationException - If nRetry < MAXRET Then GoTo Retry - Throw New NcException(ex.Message) - Return False - Catch ex As System.TimeoutException - Throw New NcException(ex.Message) - Return False - End Try - End Function - - ''' - ''' Legge o scrive Double da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo di memoria Osai - ''' Indice di memoria - ''' Matrice di valori da scrivere su scrittura o letti su lettura - ''' True se andata a buon fine - Public Overloads Overrides Function O_RW_Double(ByVal bWrite As Boolean, ByVal MemType As MemTypeDouble, ByVal MemIndex As Integer, ByRef Value() As Double) As Boolean - Dim szReturn As String = "" - Dim nRetry As Integer -Retry: nRetry += 1 - - Try - If bWrite Then ' *** Write - Dim myWriteVarDoubleR As OPENcontrol.WriteVarDoubleR - Dim myWriteVarDouble As New OPENcontrol.WriteVarDouble - myWriteVarDouble.Code = MemType - myWriteVarDouble.Index = MemIndex - myWriteVarDouble.NumVar = Value.Length - ReDim myWriteVarDouble.Value(Value.Length - 1) - Array.Copy(Value, myWriteVarDouble.Value, Value.Length) - myWriteVarDoubleR = OPENws.WriteVarDouble(myWriteVarDouble) - If O_CheckRetError(myWriteVarDoubleR.retval, myWriteVarDoubleR.ErrClass, myWriteVarDoubleR.ErrNum, String.Format("WriteVarDouble({0},{1}) O_RW_Double CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then - Throw New NcException(szReturn) - Return False - End If - - Else ' ************* Read - Dim myReadVarDoubleR As OPENcontrol.ReadVarDoubleR - Dim myReadVarDouble As New OPENcontrol.ReadVarDouble - myReadVarDouble.Code = MemType - myReadVarDouble.Index = MemIndex - myReadVarDouble.NumVar = Value.Length - myReadVarDoubleR = OPENws.ReadVarDouble(myReadVarDouble) - If O_CheckRetError(myReadVarDoubleR.retval, myReadVarDoubleR.ErrClass, myReadVarDoubleR.ErrNum, String.Format("ReadVarDouble({0},{1}) O_RW_Double CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then - Throw New NcException(szReturn) - Return False - End If - Array.Copy(myReadVarDoubleR.Value, Value, Value.Length) - End If - - Return True - Catch ex As System.ServiceModel.CommunicationException - If nRetry < MAXRET Then GoTo Retry - Throw New NcException(ex.Message) - Return False - Catch ex As System.TimeoutException - Throw New NcException(ex.Message) - Return False - End Try - End Function - - ''' - ''' Legge o scrive Stringhe da MEMORIE SC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Indice di memoria - ''' Lunghezza caratteri - ''' Stringa da scrivere su scrittura o leggere su lettura - ''' True se andata a buon fine - Public Overloads Overrides Function O_RW_Text(ByVal bWrite As Boolean, ByVal MemType As MemTypeText, ByVal MemIndex As Integer, ByVal MemLength As Integer, ByRef Value As String) As Boolean - Dim szReturn As String = "" - Dim nRetry As Integer -Retry: nRetry += 1 - - Try - If bWrite Then ' *** Write - Dim myWriteVarTextR As OPENcontrol.WriteVarTextR - Dim myWriteVarText As New OPENcontrol.WriteVarText - myWriteVarText.Code = MemType - myWriteVarText.Index = MemIndex - myWriteVarText.Len = MemLength - myWriteVarText.Text = Value - myWriteVarText.Process = 1 'serve per le variabili SC - myWriteVarTextR = OPENws.WriteVarText(myWriteVarText) - If O_CheckRetError(myWriteVarTextR.retval, myWriteVarTextR.ErrClass, myWriteVarTextR.ErrNum, String.Format("WriteVarText({0},{1}) O_RW_Text CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then - Throw New NcException(szReturn) - Return False - End If - - Else ' ************* Read - Dim myReadVarTextR As OPENcontrol.ReadVarTextR - Dim myReadVarText As New OPENcontrol.ReadVarText - myReadVarText.Code = MemType - myReadVarText.Index = MemIndex - myReadVarText.Size = MemLength - myReadVarText.Process = 1 'serve per le variabili SC - myReadVarTextR = OPENws.ReadVarText(myReadVarText) - If O_CheckRetError(myReadVarTextR.retval, myReadVarTextR.ErrClass, myReadVarTextR.ErrNum, String.Format("ReadVarText({0},{1}) O_RW_Text CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then - Throw New NcException(szReturn) - Return False - End If - Value = myReadVarTextR.Text - End If - Catch ex As System.ServiceModel.CommunicationException - If nRetry < MAXRET Then GoTo Retry - Throw New NcException(ex.Message) - Return False - Catch ex As System.TimeoutException - Throw New NcException(ex.Message) - Return False - End Try - - Return True - - End Function - - ''' - ''' Legge o scrive Length and Radius Offset da tabella Utensili CN - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Numero dell'offset utensile - Public Overrides Function O_RW_ToolOffset(ByVal bWrite As Boolean, ByVal ToolOffsetNumber As Integer, ByRef CutterRadius_Wear As Double, ByRef CutterRadius_Geometry As Double, ByRef ToolLenght_Wear As Double, ByRef ToolLenght_Geometry As Double) As Boolean - Dim szReturn As String = "" - Dim nRetry As Integer -Retry: nRetry += 1 - - Try - If bWrite Then ' *** Write - 'leggo il correttore per usarlo come template - Dim myGetOffsetTabRecordIIR As OPENcontrol.GetOffsetTabRecordIIR - Dim myGetOffsetTabRecordII As New OPENcontrol.GetOffsetTabRecordII - myGetOffsetTabRecordII.RecordNum = ToolOffsetNumber - myGetOffsetTabRecordIIR = OPENws.GetOffsetTabRecordII(myGetOffsetTabRecordII) - If O_CheckRetError(myGetOffsetTabRecordIIR.retval, myGetOffsetTabRecordIIR.ErrClass, myGetOffsetTabRecordIIR.ErrNum, String.Format("GetOffsetTabRecordII({0}) O_RW_ToolOffset CNC.OSAI_OPEN", ToolOffsetNumber), szReturn) Then - Throw New NcException(szReturn) - Return False - End If - - Dim mySetOffsetTabRecordIIR As OPENcontrol.SetOffsetTabRecordIIR - Dim mySetOffsetTabRecordII As New OPENcontrol.SetOffsetTabRecordII - mySetOffsetTabRecordII.RecordNum = ToolOffsetNumber - mySetOffsetTabRecordII.RecordBuff = myGetOffsetTabRecordIIR.RecordBuff - 'modifico i valori che mi interesssano - mySetOffsetTabRecordII.RecordBuff.DiaVal(0).ActChangeVal = CutterRadius_Wear - mySetOffsetTabRecordII.RecordBuff.DiaVal(0).ValOrig = CutterRadius_Geometry - mySetOffsetTabRecordII.RecordBuff.LenVal(0).ActChangeVal = ToolLenght_Wear - mySetOffsetTabRecordII.RecordBuff.LenVal(0).ValOrig = ToolLenght_Geometry - - 'scrivo il correttore - mySetOffsetTabRecordIIR = OPENws.SetOffsetTabRecordII(mySetOffsetTabRecordII) - If O_CheckRetError(mySetOffsetTabRecordIIR.retval, mySetOffsetTabRecordIIR.ErrClass, mySetOffsetTabRecordIIR.ErrNum, String.Format("SetOffsetTabRecordII({0}) O_RW_ToolOffset CNC.OSAI_OPEN", ToolOffsetNumber), szReturn) Then - Throw New NcException(szReturn) - Return False - End If - - Else ' ************* Read - Dim myGetOffsetTabRecordIIR As OPENcontrol.GetOffsetTabRecordIIR - Dim myGetOffsetTabRecordII As New OPENcontrol.GetOffsetTabRecordII - myGetOffsetTabRecordII.RecordNum = ToolOffsetNumber - myGetOffsetTabRecordIIR = OPENws.GetOffsetTabRecordII(myGetOffsetTabRecordII) - If O_CheckRetError(myGetOffsetTabRecordIIR.retval, myGetOffsetTabRecordIIR.ErrClass, myGetOffsetTabRecordIIR.ErrNum, String.Format("GetOffsetTabRecordII({0}) O_RW_ToolOffset CNC.OSAI_OPEN", ToolOffsetNumber), szReturn) Then - Throw New NcException(szReturn) - Return False - End If - - CutterRadius_Wear = myGetOffsetTabRecordIIR.RecordBuff.DiaVal(0).ActChangeVal - CutterRadius_Geometry = myGetOffsetTabRecordIIR.RecordBuff.DiaVal(0).ValOrig - ToolLenght_Wear = myGetOffsetTabRecordIIR.RecordBuff.LenVal(0).ActChangeVal - ToolLenght_Geometry = myGetOffsetTabRecordIIR.RecordBuff.LenVal(0).ValOrig - End If - Catch ex As System.ServiceModel.CommunicationException - If nRetry < MAXRET Then GoTo Retry - Throw New NcException(ex.Message) - Return False - End Try - - Return True - - End Function - - ''' - ''' Blocca l'accesso alla tabella dei correttori - ''' - ''' =True: Blocca la tabella, =False: Sblocca la tabella - ''' True se andata a buon fine - Public Overrides Function O_LockOffsetTable(ByVal Lock As Boolean) As Boolean - Static bLocked As Boolean - Dim szReturn As String = "" - Dim nRetry As Integer -Retry: nRetry += 1 - - Try - If Lock Then - If Not bLocked Then - Dim myLockTableIIR As OPENcontrol.LockTableIIR - Dim myLockTableII As New OPENcontrol.LockTableII - myLockTableII.TableNum = O_Table.OFFSET_TABLE_ID - myLockTableIIR = OPENws.LockTableII(myLockTableII) - If O_CheckRetError(myLockTableIIR.retval, myLockTableIIR.ErrClass, myLockTableIIR.ErrNum, String.Format("LockTableII({0}) O_LockOffsetTable CNC.OSAI_OPEN", myLockTableII.TableNum), szReturn) Then - 'Throw New NcException(szReturn) - Return False - End If - bLocked = True - End If - Else - Dim myUnLockTableIIR As OPENcontrol.UnLockTableIIR - Dim myUnLockTableII As New OPENcontrol.UnLockTableII - myUnLockTableII.TableNum = O_Table.OFFSET_TABLE_ID - myUnLockTableIIR = OPENws.UnLockTableII(myUnLockTableII) - If O_CheckRetError(myUnLockTableIIR.retval, myUnLockTableIIR.ErrClass, myUnLockTableIIR.ErrNum, String.Format("UnLockTableII({0}) O_LockOffsetTable CNC.OSAI_OPEN", myUnLockTableII.TableNum), szReturn) Then - 'Throw New NcException(szReturn) - Return False - End If - bLocked = False - End If - Return True - Catch ex As System.ServiceModel.CommunicationException - If nRetry < MAXRET Then GoTo Retry - Throw New NcException(ex.Message) - Return False - End Try - End Function - - - ''' - ''' Legge il numero del processo attivo - ''' - ''' Valore di ritorno del processo selezionato - ''' True se andata a buon fine - Public Overloads Overrides Function O_GetSelectedProcess(ByRef ProcessId As Short) As Boolean - Dim szReturn As String = "" - Dim myGetSelectedProcessR As OPENcontrol.GetSelectedProcessR - Dim myGetSelectedProcess As New OPENcontrol.GetSelectedProcess - Dim nRetry As Integer -Retry: nRetry += 1 - - Try - myGetSelectedProcessR = OPENws.GetSelectedProcess(myGetSelectedProcess) - If O_CheckRetError(myGetSelectedProcessR.retval, myGetSelectedProcessR.ErrClass, myGetSelectedProcessR.ErrNum, "GetSelectedProcess() O_GetSelectedProcess CNC.OSAI_OPEN", szReturn) Then - Throw New NcException(szReturn) - Return False - End If - - ProcessId = UnsignedToShort(myGetSelectedProcessR.ProcNum) - Return True - Catch ex As System.ServiceModel.CommunicationException - If nRetry < MAXRET Then GoTo Retry - Throw New NcException(ex.Message) - Return False - End Try - End Function - - ''' - ''' Legge la riga del programma attivo - ''' - ''' Riga in esecuzione del programma attivo - ''' True se andata a buon fine - Public Overloads Overrides Function O_GetActiveLineProgram(ByRef Line As String) As Boolean - Dim szReturn As String = "" - Dim myGetPartProgramLinesR As OPENcontrol.GetPartProgramLinesR - Dim myGetPartProgramLines As New OPENcontrol.GetPartProgramLines - Dim ProcessId As Short - Dim nRetry As Integer -Retry: nRetry += 1 - - Try - O_GetSelectedProcess(ProcessId) - - myGetPartProgramLines.ProcNum = ProcessId - myGetPartProgramLinesR = OPENws.GetPartProgramLines(myGetPartProgramLines) - If O_CheckRetError(myGetPartProgramLinesR.retval, myGetPartProgramLinesR.ErrClass, myGetPartProgramLinesR.ErrNum, "GetPartProgramLines() O_GetActiveLineProgram CNC.OSAI_OPEN", szReturn) Then - Throw New NcException(szReturn) - Return False - End If - - Line = myGetPartProgramLinesR.PPLine2 - Return True - Catch ex As System.ServiceModel.CommunicationException - If nRetry < MAXRET Then GoTo Retry - Throw New NcException(ex.Message) - Return False - End Try - End Function - - - ''' - ''' Legge la tabella assi - ''' - ''' Processo selezionato - ''' Valore di ritorno Assi del processo selezionato - ''' True se andata a buon fine - Public Overloads Overrides Function O_GetAxisTab(ByVal ProcessId As Short, ByRef AxisTable() As Char, ByRef AxisIdTable() As Short) As Boolean - Dim szReturn As String = "" - Dim i, j As Integer - Dim myGetAxesInfo3R As OPENcontrol.GetAxesInfo3R - Dim myGetAxesInfo3 As New OPENcontrol.GetAxesInfo3 - Dim nRetry As Integer -Retry: nRetry += 1 - - Try - myGetAxesInfo3.AxesNum = 64 - myGetAxesInfo3R = OPENws.GetAxesInfo3(myGetAxesInfo3) - If O_CheckRetError(myGetAxesInfo3R.retval, myGetAxesInfo3R.ErrClass, myGetAxesInfo3R.ErrNum, "GetAxesInfo3() O_RW_Word CNC.OSAI_OPEN", szReturn) Then - Throw New NcException(szReturn) - Return False - End If - - For i = 0 To 63 - If myGetAxesInfo3R.AxOwnerList(i) = ProcessId Then - If (myGetAxesInfo3R.AxNameList(i) < Asc("a") Or myGetAxesInfo3R.AxNameList(i) > Asc("z")) And myGetAxesInfo3R.AxNameList(i) <> Asc("S") Then - AxisTable(j) = Chr(myGetAxesInfo3R.AxNameList(i)) - AxisIdTable(j) = i + 1 - j += 1 - End If - 'ElseIf myGetAxesInfo3R.AxOwnerList(i) = &HFFFF& Then 'Non esco perchè gli assi potrebbero non essere in fila - ' Exit For - End If - Next i - - Return True - Catch ex As System.ServiceModel.CommunicationException - If nRetry < MAXRET Then GoTo Retry - Throw New NcException(ex.Message) - Return False - End Try - End Function - -#Region "Funzioni specifiche IOT" - - Public Overloads Overrides Function O_GetNcInfo1(ByRef NcInfo As OPENcontrol.GETINFO1DATA) As Boolean - ' RIFERIMENTO: - ' CndexLinkUser.pdf | pag 148, 266 - - Dim szReturn As String = "" - Dim myGetNcInfo1R As OPENcontrol.GetNcInfo1R - Dim myGetNcInfo1 As New OPENcontrol.GetNcInfo1 - Dim ProcessId As Short - Dim nRetry As Integer -Retry: nRetry += 1 - - Try - O_GetSelectedProcess(ProcessId) - - myGetNcInfo1.ProcNum = ProcessId - myGetNcInfo1R = OPENws.GetNcInfo1(myGetNcInfo1) - If O_CheckRetError(myGetNcInfo1R.retval, myGetNcInfo1R.ErrClass, myGetNcInfo1R.ErrNum, "GetNcInfo1() O_GetNcInfo1 CNC.OSAI_OPEN", szReturn) Then - Throw New NcException(szReturn) - Return False - End If - - NcInfo = myGetNcInfo1R.GetInfo - Return True - Catch ex As System.ServiceModel.CommunicationException - If nRetry < MAXRET Then GoTo Retry - Throw New NcException(ex.Message) - Return False - End Try - - End Function - - Public Overloads Overrides Function O_ReadCurrentErrorMsg(ByRef CurrMsgError As OPENcontrol.MSGERROR) As Boolean - ' RIFERIMENTO: - ' CndexLinkUser.pdf | pag 162, 270 - - Dim szReturn As String = "" - Dim myReadCurrentErrorMsgR As OPENcontrol.ReadCurrentErrorMsgR - Dim myReadCurrentErrorMsg As New OPENcontrol.ReadCurrentErrorMsg - Dim ProcessId As Short - Dim nRetry As Integer -Retry: nRetry += 1 - - Try - O_GetSelectedProcess(ProcessId) - - myReadCurrentErrorMsg.Process = ProcessId - myReadCurrentErrorMsgR = OPENws.ReadCurrentErrorMsg(myReadCurrentErrorMsg) - If O_CheckRetError(myReadCurrentErrorMsgR.retval, myReadCurrentErrorMsgR.ErrClass, myReadCurrentErrorMsgR.ErrNum, "ReadCurrentErrorMsg() O_ReadCurrentErrorMsg CNC.OSAI_OPEN", szReturn) Then - Throw New NcException(szReturn) - Return False - End If - - CurrMsgError = myReadCurrentErrorMsgR.Data - Return True - Catch ex As System.ServiceModel.CommunicationException - If nRetry < MAXRET Then GoTo Retry - Throw New NcException(ex.Message) - Return False - End Try - - End Function - Public Overloads Overrides Function O_ReadCurrentEmergMsg(ByRef CurrMsgEmerg As OPENcontrol.MSGEMERGENCY) As Boolean - ' RIFERIMENTO: - ' CndexLinkUser.pdf | pag 163, 271 - - Dim szReturn As String = "" - Dim myReadCurrentEmergMsgR As OPENcontrol.ReadCurrentEmergMsgR - Dim myReadCurrentEmergMsg As New OPENcontrol.ReadCurrentEmergMsg - Dim ProcessId As Short - Dim nRetry As Integer -Retry: nRetry += 1 - - Try - O_GetSelectedProcess(ProcessId) - - myReadCurrentEmergMsg.Process = ProcessId - myReadCurrentEmergMsgR = OPENws.ReadCurrentEmergMsg(myReadCurrentEmergMsg) - If O_CheckRetError(myReadCurrentEmergMsgR.retval, myReadCurrentEmergMsgR.ErrClass, myReadCurrentEmergMsgR.ErrNum, "ReadCurrentEmergMsg() O_ReadCurrentEmergMsg CNC.OSAI_OPEN", szReturn) Then - Throw New NcException(szReturn) - Return False - End If - - CurrMsgEmerg = myReadCurrentEmergMsgR.Data - Return True - Catch ex As System.ServiceModel.CommunicationException - If nRetry < MAXRET Then GoTo Retry - Throw New NcException(ex.Message) - Return False - End Try - - End Function - Public Overloads Overrides Function O_ReadCurrentAnomalyMsg(ByRef CurrMsgAnomaly As OPENcontrol.MSGANOMALY) As Boolean - ' RIFERIMENTO: - ' CndexLinkUser.pdf | pag 164, 271 - - Dim szReturn As String = "" - Dim myReadCurrentAnomalyMsgR As OPENcontrol.ReadCurrentAnomalyMsgR - Dim myReadCurrentAnomalyMsg As New OPENcontrol.ReadCurrentAnomalyMsg - Dim ProcessId As Short - Dim nRetry As Integer -Retry: nRetry += 1 - - Try - O_GetSelectedProcess(ProcessId) - - myReadCurrentAnomalyMsgR = OPENws.ReadCurrentAnomalyMsg(myReadCurrentAnomalyMsg) - If O_CheckRetError(myReadCurrentAnomalyMsgR.retval, myReadCurrentAnomalyMsgR.ErrClass, myReadCurrentAnomalyMsgR.ErrNum, "ReadCurrentAnomalyMsg() O_ReadCurrentAnomalyMsg CNC.OSAI_OPEN", szReturn) Then - Throw New NcException(szReturn) - Return False - End If - - CurrMsgAnomaly = myReadCurrentAnomalyMsgR.Data - Return True - Catch ex As System.ServiceModel.CommunicationException - If nRetry < MAXRET Then GoTo Retry - Throw New NcException(ex.Message) - Return False - End Try - - End Function - Public Overloads Overrides Function getAllAxisPos(tipoPos As Int16, ByRef AxisPos As OPENcontrol.GETINTDATA()) As Boolean - ' RIFERIMENTO: - ' CndexLinkUser.pdf | pag 146, 266 - - Dim szReturn As String = "" - Dim myGetAxesPositionR As OPENcontrol.GetAxesPositionR - Dim myGetAxesPosition As New OPENcontrol.GetAxesPosition - Dim ProcessId As Short - Dim nRetry As Integer -Retry: nRetry += 1 - - Try - O_GetSelectedProcess(ProcessId) - myGetAxesPosition.ProcNum = ProcessId - myGetAxesPosition.AxisName = "0" - myGetAxesPosition.NumAxis = AxisPos.Length - myGetAxesPosition.Select = tipoPos - - myGetAxesPositionR = OPENws.GetAxesPosition(myGetAxesPosition) - If O_CheckRetError(myGetAxesPositionR.retval, myGetAxesPositionR.ErrClass, myGetAxesPositionR.ErrNum, "GetAxesPosition() getAllAxisPos CNC.OSAI_OPEN", szReturn) Then - Throw New NcException(szReturn) - Return False - End If - - AxisPos = myGetAxesPositionR.IntPos - Return True - Catch ex As System.ServiceModel.CommunicationException - If nRetry < MAXRET Then GoTo Retry - Throw New NcException(ex.Message) - Return False - End Try - - End Function - Public Overloads Overrides Function getPathGCodeMod(Processo As Int32, ByRef GCodeCurr As UShort()) As Boolean - ' RIFERIMENTO: - ' CndexLinkUser.pdf | pag 165 - - Dim szReturn As String = "" - Dim myGetGCodeR As OPENcontrol.GetGCodeR - Dim myGetGCode As New OPENcontrol.GetGCode - Dim ProcessId As UShort - Dim nRetry As Integer -Retry: nRetry += 1 - - Try - O_GetSelectedProcess(ProcessId) - 'myGetGCode.ProcNum = ProcessId - myGetGCode.ProcNum = Processo - - myGetGCodeR = OPENws.GetGCode(myGetGCode) - If O_CheckRetError(myGetGCodeR.retval, myGetGCodeR.ErrClass, myGetGCodeR.ErrNum, "ReadCurrentGCodes() O_ReadCurrentGCodes CNC.OSAI_OPEN", szReturn) Then - Throw New NcException(szReturn) - Return False - End If - - GCodeCurr = myGetGCodeR.GCode - - Return True - Catch ex As System.ServiceModel.CommunicationException - If nRetry < MAXRET Then GoTo Retry - Throw New NcException(ex.Message) - Return False - End Try - - End Function - -#If False Then - - - Public Function getCncAlarm() As Focas1.ODBALMMSG2 - ' RIFERIMENTO: - ' C:\Users\samuele\Documents\FOCAS A02B-0207-K737_04.20\Document\SpecE\Misc\cnc_rdalmmsg2.htm - ' C:\Users\samuele\Documents\FOCAS A02B-0207-K737_04.20\Document\SpecE\Misc\cnc_rdalminfo.htm - - Dim nPathIdx As Integer - Dim nNumAxisRead As Integer - Dim nReturn As Integer - - Dim allData As Focas1.ODBALMMSG2 - ' inizializzo - allData = New Focas1.ODBALMMSG2 - - 'leggo il numero del processo attivo - nPathIdx = GetActivePath() - 'leggo num max assi dal cn - nNumAxisRead = Focas1.MAX_AXIS - - ' vettore num allarmi MAX da leggere...... - Dim numAllarmi As Int16 - numAllarmi = 512 - - If Is30Series Then - - ' leggo tutto!!! - nReturn = Focas1.cnc_rdalmmsg2(nLibHandle(nPathIdx), -1, numAllarmi, allData) - - If F_CheckRetError_Cnc(nReturn, "cnc_rdalmmsg2 GetCncAlarm CNC.FANUC.CncLib") Then - Throw New NcException("ERR cnc_rdalmmsg2 GetCncAlarm CNC.FANUC.CncLib") - End If - End If - - Return allData - - End Function - - - - Public Function getPathTTCoord() As Focas1.ODB5AXMAN - ' RIFERIMENTO: - ' C:\Users\samuele\Documents\FOCAS A02B-0207-K737_04.20\Document\SpecE\Position\cnc_rd5axmandt.htm - - Dim nPathIdx As Integer - Dim nNumAxisRead As Integer - Dim nReturn As Integer - - Dim ttCoord As Focas1.ODB5AXMAN - ' inizializzo - ttCoord = New Focas1.ODB5AXMAN - - 'leggo il numero del processo attivo - nPathIdx = GetActivePath() - 'leggo num max assi dal cn - nNumAxisRead = Focas1.MAX_AXIS - - If Is30Series Then - - ' leggo tutto!!! - nReturn = Focas1.cnc_rd5axmandt(nLibHandle(nPathIdx), ttCoord) - - If F_CheckRetError_Cnc(nReturn, "cnc_rd3dtooltip RefreshPathTTCoord CNC.FANUC.CncLib") Then - Throw New NcException("ERR cnc_rd3dtooltip RefreshPathTTCoord CNC.FANUC.CncLib") - End If - End If - - Return ttCoord - - End Function - - -#End If - -#End Region - - - End Class - -End Namespace diff --git a/IOB-WIN/CncLib/CNC/CNC.Runtime.vb b/IOB-WIN/CncLib/CNC/CNC.Runtime.vb deleted file mode 100644 index 93a72e6..0000000 --- a/IOB-WIN/CncLib/CNC/CNC.Runtime.vb +++ /dev/null @@ -1,54 +0,0 @@ -Namespace CNC - - Public Class Runtime - Public Shared NC As CncLib.CNC.CNC - - - Public Shared Sub CreateNC(tipoNC As CNC.NcType, ipTarget As String, ipPort As String) - '************ Istanzio l'oggetto NC ***************** - Try - - Select Case tipoNC - - Case NC_FANUC - 'CncLib.App.Runtime.Log.WI("TRY creating NC CNC.NC", "TypeNC=" & Config.Settings.Settings.TypeNC.ToString, CLog.Lev.Principal) - Dim ipFanuc As String - Dim portIpFanuc As String - Dim CncScreenHssb As String - - ' imposto IP e porta da chiamata - ipFanuc = ipTarget - 'portIpFanuc = "8193" - portIpFanuc = ipPort - - CncScreenHssb = "0" - NC = New FANUC(0, ipFanuc, portIpFanuc, CncScreenHssb) - - Case NC_OSAI - 'If Config.Settings.Settings.OsaiCommType = 1 Then 'SOAP - NC = New OSAI_OPEN(ipTarget) - - Case NC_SIEMENS - Try - NC = New SIEMENS - Catch ex As NcException - 'NC.frmMain_ref.ExitApp() - 'frmMain.ExitApp() - 'End - End Try - End Select - - 'CncLib.App.Runtime.Log.WI("OK crating NC CNC.NC", , CLog.Lev.Principal) - Catch ex As Exception - Dim exStr As String - exStr = ex.Message - 'CncLib.App.Runtime.Log.WE("ERR crating NC CNC.NC", ex.Message, True) - End Try - - - End Sub - - - End Class - -End Namespace \ No newline at end of file diff --git a/IOB-WIN/CncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb b/IOB-WIN/CncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb deleted file mode 100644 index 99f4723..0000000 --- a/IOB-WIN/CncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb +++ /dev/null @@ -1,1147 +0,0 @@ -'INFO: La costante di precompilatore SIEMENS =0 salta la logica che richiede le librerie Siemens. =1 compila tutto - -#If SIEMENS Then - -' declaring namespace for SINUMERIK Interface -Imports Siemens.Sinumerik.Operate.Services - -Namespace CNC - - Partial Public Class SIEMENS - Inherits CNC - - Private m_DataSvcRW As DataSvc - Private m_DriveSVC As DrivesSvc - Private m_AlarmService As AlarmSvc - Private m_AlarmGuid As System.Guid - Private currAlarms As Alarm() - - Private itemRead() As Item - Private itemWrite As Item - - Public Overrides Property Licenza() As Integer - Get - Dim nLicence(0) As Integer - 'leggo dal cn il valore - Me.S_RW_Integer(R, 255, 120, nLicence) - Return nLicence(0) - End Get - Set(ByVal value As Integer) - 'setto sul cn il valore - Dim nLicence(0) As Integer - nLicence(0) = value - Me.S_RW_Integer(W, 255, 120, nLicence) - End Set - End Property - - Public Overrides Property LicenzaScaduta() As Boolean - Get - Dim bLicenzaScaduta As Boolean - 'leggo dal cn il valore - Me.S_RW_Boolean(R, 255, 92, 5, bLicenzaScaduta) - Return bLicenzaScaduta - End Get - Set(ByVal value As Boolean) - 'setto sul cn il valore - Me.S_RW_Boolean(W, 255, 92, 5, value) - End Set - End Property - - - Public Sub New() - MyBase.New() - _Type = NcType.SIEMENS - - ' commentato in blocco: c aspettiamo che il SINUMERIK HMI Control, che lancia l'adapter, si occupi della verifica dell'HMI siemens - ''verifico di aver prima avviato la Sinumerik HMI - 'If FindProcess("slsmhmihost") Is Nothing Then - ' 'MessageBox.Show("Sinumerik HMI process not found!" & vbNewLine & _ - ' ' "Run Sinumerik HMI before starting SINUMERIK HMI Control.", My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Stop) - ' Throw New NcException("ERR Sinumerik HMI process not found CNC.SIEMENS") - 'End If - - Try - m_DataSvcRW = New DataSvc - m_DriveSVC = New DrivesSvc - m_AlarmService = New AlarmSvc("eng") - ' sottoscrivo allarmi... - m_AlarmGuid = m_AlarmService.Subscribe(New AlarmListChanged(AddressOf AlarmList)) - - Catch ex As System.IO.FileNotFoundException - ' intercetta l'exception se non lanciato sopra l'hmi - 'MessageBox.Show("SINUMERIK HMI Control must be run over Sinumerik Operate!" & vbNewLine & _ - '"Run SINUMERIK HMI Control through shortcut.", My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Stop) - Throw New NcException("ERR SINUMERIK HMI Control must be run over Sinumerik Operate CNC.SIEMENS") - End Try - - End Sub - - Public Overrides Sub Connect(Optional ByRef szStatus As String = "") - Try - 'se non ho eccezioni dichiaro connessione avvenuta - _bConnected = True - 'Log.WI("OK Connect CNC.SIEMENS", "Connected=" & _bConnected, CLog.Lev.Secondary) - Catch ex As Exception - Throw New NcException("ERR Connect CNC.SIEMENS", ex) - End Try - - End Sub - - Public Overrides Sub Disconnect(Optional ByRef szStatus As String = "") - Try - 'dichiaro disconnessione avvenuta - _bConnected = False - 'Log.WI("OK Disconnect CNC.SIEMENS", "Connected=" & _bConnected, CLog.Lev.Secondary) - Catch ex As Exception - Throw New NcException("ERR Disconnect CNC.SIEMENS", ex) - End Try - End Sub - - ''' - ''' Legge le memorie di configurazione dal cn - ''' - Public Overrides Sub GetStaticData() - - If Not bStaticDataReaded Then - - Try - ReDim itemRead(2) - itemRead(0) = New Item("DB255.DBW0") 'Matricola - itemRead(1) = New Item("DB255.DBW8") 'Teste - itemRead(2) = New Item("DB255.DBW12") 'Magazzini - m_DataSvcRW.Read(itemRead) - Me._Matricola = itemRead(0).Value - Me._Teste = itemRead(1).Value - Me._Magazzini = itemRead(2).Value - - ReDim itemRead(0) - itemRead(0) = New Item("DB254.DBB40:[20]") 'Manine per Magazzino - m_DataSvcRW.Read(itemRead) - ReDim Me._ManineMagazzino(Me._Magazzini - 1) - For i = 0 To Me._Magazzini - 1 - Me._ManineMagazzino(i) = itemRead(0).Value(i) - Next - - 'Magazzini Con Attrezzaggio Automatico (maschera) - ReDim itemRead(0) - itemRead(0) = New Item("DB253.DBB19:[3]") 'Maschera Magazzini con attrezzaggio automatico - m_DataSvcRW.Read(itemRead) - Me._MagazziniConAttrezzaggioAutomatico = WordsToInteger(ByteToWord(itemRead(0).Value(0), itemRead(0).Value(1)), ByteToWord(itemRead(0).Value(2), 0)) - - ReDim itemRead(0) - itemRead(0) = New Item("/NC/_N_NC_TEA_ACX/$MN_MM_NUM_TOOL") 'Number of tools the NCK can manage - m_DataSvcRW.Read(itemRead) - Me._MaxUtensiliGestibili = itemRead(0).Value - Me._MaxIdUtensile = 32000 - - ReDim itemRead(0) - itemRead(0) = New Item("DB254.DBB390") 'ZoomSpeed - m_DataSvcRW.Read(itemRead) - If itemRead(0).Value > 0 And itemRead(0).Value <= 100 Then - Me._ZoomSpeed = itemRead(0).Value - Else - Me._ZoomSpeed = 1 - End If - - bStaticDataReaded = True - - Catch ex As InfrastructureException - Throw New NcException("ERR GetStaticData CNC.SIEMENS InfrastructureException", ex) - Catch ex As DataSvcException - Throw New NcException("ERR GetStaticData CNC.SIEMENS DataSvcException", ex) - End Try - - End If - End Sub - - ''' - ''' Legge la riga del programma attivo - ''' - ''' Numero processo - ''' Riga in esecuzione del programma attivo - ''' True se andata a buon fine - Public Overridable Overloads Function S_GetActiveLineProgram(ByVal Path As Integer, ByRef Line As String) As Boolean - Dim itemRead() As Item - Do - Try - ReDim itemRead(0) - If Path = 0 Then - itemRead(0) = New Item("/Channel/ProgramInfo/actBlock[u1,1]") 'Blocco programma attivo - Else - itemRead(0) = New Item("/Channel/ProgramInfo/actBlock[u" & Path & ",1]") - End If - - - m_DataSvcRW.Read(itemRead) - Line = itemRead(0).Value - - Exit Do - Catch ex As DataSvcBusyException - Debug.Print(ex.Message) - End Try - Loop - - Return True - End Function - - ''' - ''' Legge o scrive Boolean da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Stringa di indirizzamento Siemens - ''' Valore da scrivere su scrittura e letto su lettura - ''' True se andata a buon fine - Public Overloads Function S_RW_Boolean(ByVal bWrite As Boolean, ByVal ItemPath As String, ByRef Value As Boolean) As Boolean - Dim itemRW As Item - - If bWrite Then ' *** Write - Try - itemRW = New Item(ItemPath) - 'set value - itemRW.Value = Value - Do - Try - m_DataSvcRW.Write(itemRW) - Exit Do - Catch ex As DataSvcBusyException - Debug.Print(ex.Message) - End Try - Loop - Catch ex As Exception - 'Log.WW("ERR m_DataSvcRW.Write on S_RW_Boolean CNC.SIEMENS", ex.Message, True) - Return False - End Try - - Else ' ************* Read - Try - itemRW = New Item(ItemPath) - Do - Try - m_DataSvcRW.Read(itemRW) - Exit Do - Catch ex As DataSvcBusyException - Debug.Print(ex.Message) - End Try - Loop - Value = itemRW.Value - Catch ex As Exception - 'Log.WW("ERR m_DataSvcRW.Read on S_RW_Boolean CNC.SIEMENS", ex.Message, True) - Return False - End Try - End If - - Return True - End Function - - - - ''' - ''' Legge o scrive Boolean da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo memoria - ''' Memoria del DB contenente il valore - ''' Bit della Memoria del DB contenente il valore - ''' Valore da scrivere su scrittura e letto su lettura - ''' True se andata a buon fine - Public Overloads Function S_RW_Boolean(ByVal bWrite As Boolean, ByVal MemType As Integer, ByVal MemoryIndex As Integer, ByVal BitIndex As Integer, ByRef Value As Boolean) As Boolean - Dim itemRW As Item - Dim ItemPath As String - Dim cValue(0) As Byte - - ItemPath = "DB" & MemType.ToString & ".DBX" & MemoryIndex.ToString & "." & BitIndex.ToString - - If bWrite Then ' *** Write - Try - If MemType = MEM_S_M Then - 'leggo il byte - S_RW_Byte(R, MEM_S_M, MemoryIndex, cValue) - 'set value - cValue(0) = cValue(0) Or (2 ^ BitIndex) - 'riscrivo il byte - S_RW_Byte(W, MEM_S_M, MemoryIndex, cValue) - ElseIf MemType = MEM_S_E Then - 'leggo il byte - S_RW_Byte(R, MEM_S_E, MemoryIndex, cValue) - 'set value - cValue(0) = cValue(0) Or (2 ^ BitIndex) - 'riscrivo il byte - S_RW_Byte(W, MEM_S_E, MemoryIndex, cValue) - ElseIf MemType = MEM_S_A Then - 'leggo il byte - S_RW_Byte(R, MEM_S_A, MemoryIndex, cValue) - 'set value - cValue(0) = cValue(0) Or (2 ^ BitIndex) - 'riscrivo il byte - S_RW_Byte(W, MEM_S_A, MemoryIndex, cValue) - Else - itemRW = New Item(ItemPath) - 'set value - itemRW.Value = Value - - Do - Try - m_DataSvcRW.Write(itemRW) - Exit Do - Catch ex As DataSvcBusyException - Debug.Print(ex.Message) - End Try - Loop - End If - - Catch ex As DataSvcException - 'Log.WW("ERR m_DataSvcRW.Write on S_RW_Boolean CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) - Catch ex As Exception - 'Log.WW("ERR m_DataSvcRW.Write on S_RW_Boolean CNC.SIEMENS", ex.Message, True) - Return False - End Try - - Else ' ************* Read - Try - itemRW = New Item(ItemPath) - - If MemType = MEM_S_M Then - 'leggo il byte - S_RW_Byte(R, MEM_S_M, MemoryIndex, cValue) - Value = ((cValue(0) And (2 ^ BitIndex)) = (2 ^ BitIndex)) - ElseIf MemType = MEM_S_E Then - 'leggo il byte - S_RW_Byte(R, MEM_S_E, MemoryIndex, cValue) - Value = ((cValue(0) And (2 ^ BitIndex)) = (2 ^ BitIndex)) - ElseIf MemType = MEM_S_A Then - 'leggo il byte - S_RW_Byte(R, MEM_S_A, MemoryIndex, cValue) - Value = ((cValue(0) And (2 ^ BitIndex)) = (2 ^ BitIndex)) - Else - Do - Try - m_DataSvcRW.Read(itemRW) - Exit Do - Catch ex As DataSvcBusyException - Debug.Print(ex.Message) - End Try - Loop - Value = itemRW.Value - End If - - Catch ex As DataSvcException - 'Log.WW("ERR m_DataSvcRW.Read on S_RW_Boolean CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) - Catch ex As Exception - 'Log.WW("ERR m_DataSvcRW.Read on S_RW_Boolean CNC.SIEMENS", ex.Message, True) - Return False - End Try - End If - - Return True - End Function - - - ''' - ''' Legge o scrive Byte da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo memoria - ''' Memoria del DB contenente il valore - ''' Valore da scrivere su scrittura e letto su lettura - ''' True se andata a buon fine - Public Overloads Function S_RW_Byte(ByVal bWrite As Boolean, ByVal MemType As Integer, ByVal MemoryIndex As Integer, ByRef Value() As Byte) As Boolean - Dim itemRW As Item - Dim ItemPath As String - - If MemType = MEM_S_M Then - ItemPath = "MB" & MemoryIndex.ToString - ElseIf MemType = MEM_S_E Then - ItemPath = "EB" & MemoryIndex.ToString - ElseIf MemType = MEM_S_A Then - ItemPath = "AB" & MemoryIndex.ToString - Else - ItemPath = "DB" & MemType.ToString & ".DBB" & MemoryIndex.ToString - End If - If Value.Length > 1 Then ItemPath &= ":[" & Value.Length.ToString & "]" - - If bWrite Then ' *** Write - Try - itemRW = New Item(ItemPath) - 'set value - If Value.Length = 1 Then - itemRW.Value = Value(0) - Else - ReDim itemRW.Value(Value.Length - 1) - For i As Integer = 0 To Value.Length - 1 - itemRW.Value(i) = Value(i) - Next i - End If - Do - Try - m_DataSvcRW.Write(itemRW) - Exit Do - Catch ex As DataSvcBusyException - Debug.Print(ex.Message) - End Try - Loop - Catch ex As DataSvcException - 'Log.WW("ERR m_DataSvcRW.Write on S_RW_Byte CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) - Catch ex As Exception - 'Log.WW("ERR m_DataSvcRW.Write on S_RW_Byte CNC.SIEMENS", ex.Message, True) - Return False - End Try - - Else ' ************* Read - Try - itemRW = New Item(ItemPath) - Do - Try - m_DataSvcRW.Read(itemRW) - Exit Do - Catch ex As DataSvcBusyException - Debug.Print(ex.Message) - End Try - Loop - - If Value.Length = 1 Then - Value(0) = itemRW.Value - Else - For i As Integer = 0 To Value.Length - 1 - Value(i) = itemRW.Value(i) - Next i - End If - Catch ex As DataSvcException - 'Log.WW("ERR m_DataSvcRW.Read on S_RW_Byte CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) - Catch ex As Exception - 'Log.WW("ERR m_DataSvcRW.Read on S_RW_Byte CNC.SIEMENS", ex.Message) - Return False - End Try - End If - - Return True - End Function - - ''' - ''' Legge o scrive Word da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo memoria - ''' Memoria del DB contenente il valore - ''' Valore da scrivere su scrittura e letto su lettura - ''' True se andata a buon fine - Public Overloads Function S_RW_Word(ByVal bWrite As Boolean, ByVal MemType As Integer, ByVal MemoryIndex As Integer, ByRef Value() As UShort) As Boolean - Dim itemRW As Item - Dim ItemPath As String - - If MemType = MEM_S_M Then - ItemPath = "MW" & MemoryIndex.ToString - ElseIf MemType = MEM_S_E Then - ItemPath = "EW" & MemoryIndex.ToString - ElseIf MemType = MEM_S_A Then - ItemPath = "AW" & MemoryIndex.ToString - Else - ItemPath = "DB" & MemType.ToString & ".DBW" & MemoryIndex.ToString - End If - If Value.Length > 1 Then ItemPath &= ":[" & Value.Length.ToString & "]" - - If bWrite Then ' *** Write - Try - itemRW = New Item(ItemPath) - 'set value - If Value.Length = 1 Then - itemRW.Value = Value(0) - Else - ReDim itemRW.Value(Value.Length - 1) - For i As Integer = 0 To Value.Length - 1 - itemRW.Value(i) = Value(i) - Next i - End If - Do - Try - m_DataSvcRW.Write(itemRW) - Exit Do - Catch ex As DataSvcBusyException - Debug.Print(ex.Message) - End Try - Loop - - Catch ex As DataSvcException - 'Log.WW("ERR m_DataSvcRW.Write on S_RW_Word CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) - Catch ex As Exception - 'Log.WW("ERR m_DataSvcRW.Write on S_RW_Word CNC.SIEMENS", ex.Message) - Return False - End Try - - Else ' ************* Read - Try - itemRW = New Item(ItemPath) - Do - Try - m_DataSvcRW.Read(itemRW) - Exit Do - Catch ex As DataSvcBusyException - Debug.Print(ex.Message) - End Try - Loop - - If Value.Length = 1 Then - Value(0) = itemRW.Value - Else - For i As Integer = 0 To Value.Length - 1 - Value(i) = itemRW.Value(i) - Next i - End If - - Catch ex As DataSvcException - 'Log.WW("ERR m_DataSvcRW.Read on S_RW_Word CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) - Catch ex As Exception - 'Log.WW("ERR m_DataSvcRW.Read on S_RW_Word CNC.SIEMENS", ex.Message, True) - Return False - End Try - End If - - Return True - End Function - - ''' - ''' Legge o scrive Short da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo memoria - ''' Memoria del DB contenente il valore - ''' Valore da scrivere su scrittura e letto su lettura - ''' True se andata a buon fine - Public Overloads Function S_RW_Short(ByVal bWrite As Boolean, ByVal MemType As Integer, ByVal MemoryIndex As Integer, ByRef Value() As Short) As Boolean - Dim itemRW As Item - Dim ItemPath As String - - If MemType = MEM_S_M Then - ItemPath = "MW" & MemoryIndex.ToString - ElseIf MemType = MEM_S_E Then - ItemPath = "EW" & MemoryIndex.ToString - ElseIf MemType = MEM_S_A Then - ItemPath = "AW" & MemoryIndex.ToString - Else - ItemPath = "DB" & MemType.ToString & ".DBW" & MemoryIndex.ToString - End If - If Value.Length > 1 Then ItemPath &= ":[" & Value.Length.ToString & "]" - - If bWrite Then ' *** Write - Try - itemRW = New Item(ItemPath) - 'set value - If Value.Length = 1 Then - itemRW.Value = ShortToUnsigned(Value(0)) - Else - ReDim itemRW.Value(Value.Length - 1) - For i As Integer = 0 To Value.Length - 1 - itemRW.Value(i) = ShortToUnsigned(Value(i)) - Next i - End If - Do - Try - m_DataSvcRW.Write(itemRW) - Exit Do - Catch ex As DataSvcBusyException - Debug.Print(ex.Message) - End Try - Loop - - Catch ex As DataSvcException - 'Log.WW("ERR m_DataSvcRW.Write on S_RW_Word CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) - Catch ex As Exception - 'Log.WW("ERR m_DataSvcRW.Write on S_RW_Word CNC.SIEMENS", ex.Message) - Return False - End Try - - Else ' ************* Read - Try - itemRW = New Item(ItemPath) - Do - Try - m_DataSvcRW.Read(itemRW) - Exit Do - Catch ex As DataSvcBusyException - Debug.Print(ex.Message) - End Try - Loop - - If Value.Length = 1 Then - Value(0) = itemRW.Value - Else - For i As Integer = 0 To Value.Length - 1 - Value(i) = UnsignedToShort(itemRW.Value(i)) - Next i - End If - - Catch ex As DataSvcException - 'Log.WW("ERR m_DataSvcRW.Read on S_RW_Short CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) - Catch ex As Exception - 'Log.WW("ERR m_DataSvcRW.Read on S_RW_Short CNC.SIEMENS", ex.Message, True) - Return False - End Try - End If - - Return True - End Function - - - - - ''' - ''' Legge o scrive DWord da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo memoria - ''' Memoria del DB contenente il valore - ''' Valore da scrivere su scrittura e letto su lettura - ''' True se andata a buon fine - Public Overloads Function S_RW_DWord(ByVal bWrite As Boolean, ByVal MemType As Integer, ByVal MemoryIndex As Integer, ByRef Value() As UInteger) As Boolean - Dim itemRW As Item - Dim ItemPath As String - - If MemType = MEM_S_M Then - ItemPath = "MD" & MemoryIndex.ToString - ElseIf MemType = MEM_S_E Then - ItemPath = "ED" & MemoryIndex.ToString - ElseIf MemType = MEM_S_A Then - ItemPath = "AD" & MemoryIndex.ToString - Else - ItemPath = "DB" & MemType.ToString & ".DBD" & MemoryIndex.ToString - End If - If Value.Length > 1 Then ItemPath &= ":[" & Value.Length.ToString & "]" - - If bWrite Then ' *** Write - Try - itemRW = New Item(ItemPath) - 'set value - If Value.Length = 1 Then - itemRW.Value = Value(0) - Else - ReDim itemRW.Value(Value.Length - 1) - For i As Integer = 0 To Value.Length - 1 - itemRW.Value(i) = Value(i) - Next i - End If - Do - Try - m_DataSvcRW.Write(itemRW) - Exit Do - Catch ex As DataSvcBusyException - Debug.Print(ex.Message) - End Try - Loop - - Catch ex As DataSvcException - 'Log.WW("ERR m_DataSvcRW.Write on S_RW_DWord CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) - Catch ex As Exception - 'Log.WW("ERR m_DataSvcRW.Write on S_RW_DWord CNC.SIEMENS", ex.Message) - Return False - End Try - - Else ' ************* Read - Try - itemRW = New Item(ItemPath) - Do - Try - m_DataSvcRW.Read(itemRW) - Exit Do - Catch ex As DataSvcBusyException - Debug.Print(ex.Message) - End Try - Loop - - If Value.Length = 1 Then - Value(0) = itemRW.Value - Else - For i As Integer = 0 To Value.Length - 1 - Value(i) = itemRW.Value(i) - Next i - End If - - Catch ex As DataSvcException - 'Log.WW("ERR m_DataSvcRW.Read on S_RW_DWord CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) - Catch ex As Exception - 'Log.WW("ERR m_DataSvcRW.Read on S_RW_DWord CNC.SIEMENS", ex.Message, True) - Return False - End Try - End If - - Return True - End Function - ''' - ''' Legge o scrive Integer da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo memoria - ''' Memoria del DB contenente il valore - ''' Valore da scrivere su scrittura e letto su lettura - ''' True se andata a buon fine - Public Overloads Function S_RW_Integer(ByVal bWrite As Boolean, ByVal MemType As Integer, ByVal MemoryIndex As Integer, ByRef Value() As Integer) As Boolean - Dim itemRW As Item - Dim ItemPath As String - - If MemType = MEM_S_M Then - ItemPath = "MD" & MemoryIndex.ToString - ElseIf MemType = MEM_S_E Then - ItemPath = "ED" & MemoryIndex.ToString - ElseIf MemType = MEM_S_A Then - ItemPath = "AD" & MemoryIndex.ToString - Else - ItemPath = "DB" & MemType.ToString & ".DBD" & MemoryIndex.ToString - End If - If Value.Length > 1 Then ItemPath &= ":[" & Value.Length.ToString & "]" - - If bWrite Then ' *** Write - Try - itemRW = New Item(ItemPath) - 'set value - If Value.Length = 1 Then - itemRW.Value = IntegerToUnsigned(Value(0)) - Else - ReDim itemRW.Value(Value.Length - 1) - For i As Integer = 0 To Value.Length - 1 - itemRW.Value(i) = IntegerToUnsigned(Value(i)) - Next i - End If - Do - Try - m_DataSvcRW.Write(itemRW) - Exit Do - Catch ex As DataSvcBusyException - Debug.Print(ex.Message) - End Try - Loop - - Catch ex As DataSvcException - 'Log.WW("ERR m_DataSvcRW.Write on S_RW_Integer CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) - Catch ex As Exception - 'Log.WW("ERR m_DataSvcRW.Write on S_RW_Integer CNC.SIEMENS", ex.Message) - Return False - End Try - - Else ' ************* Read - Try - itemRW = New Item(ItemPath) - Do - Try - m_DataSvcRW.Read(itemRW) - Exit Do - Catch ex As DataSvcBusyException - Debug.Print(ex.Message) - End Try - Loop - - If Value.Length = 1 Then - Value(0) = UnsignedToInteger(itemRW.Value) - Else - For i As Integer = 0 To Value.Length - 1 - Value(i) = UnsignedToInteger(itemRW.Value(i)) - Next i - End If - - Catch ex As DataSvcException - 'Log.WW("ERR m_DataSvcRW.Read on S_RW_Integer CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) - Catch ex As Exception - 'Log.WW("ERR m_DataSvcRW.Read on S_RW_Integer CNC.SIEMENS", ex.Message, True) - Return False - End Try - End If - - Return True - End Function - - - ''' - ''' Legge o scrive Real da MEMORIE PLC - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Tipo memoria - ''' Memoria del DB contenente il valore - ''' Valore da scrivere su scrittura e letto su lettura - ''' True se andata a buon fine - Public Overloads Function S_RW_Real(ByVal bWrite As Boolean, ByVal MemType As Integer, ByVal MemoryIndex As Integer, ByRef Value() As Single) As Boolean - Dim itemRW As Item - Dim ItemPath As String - - If MemType = MEM_S_M Then - ItemPath = "MD" & MemoryIndex.ToString - ElseIf MemType = MEM_S_E Then - ItemPath = "ED" & MemoryIndex.ToString - ElseIf MemType = MEM_S_A Then - ItemPath = "AD" & MemoryIndex.ToString - Else - ItemPath = "DB" & MemType.ToString & ".DBD" & MemoryIndex.ToString - End If - If Value.Length > 1 Then ItemPath &= ":[" & Value.Length.ToString & "]" - - If bWrite Then ' *** Write - Try - itemRW = New Item(ItemPath) - 'set value - If Value.Length = 1 Then - itemRW.Value = SingleToUInteger(Value(0)) - Else - ReDim itemRW.Value(Value.Length - 1) - For i As Integer = 0 To Value.Length - 1 - itemRW.Value(i) = SingleToUInteger(Value(i)) - Next i - End If - Do - Try - m_DataSvcRW.Write(itemRW) - Exit Do - Catch ex As DataSvcBusyException - Debug.Print(ex.Message) - End Try - Loop - - Catch ex As DataSvcException - 'Log.WW("ERR m_DataSvcRW.Write on S_RW_Real CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) - Catch ex As Exception - 'Log.WW("ERR m_DataSvcRW.Write on S_RW_Real CNC.SIEMENS", ex.Message) - Return False - End Try - - Else ' ************* Read - Try - itemRW = New Item(ItemPath) - Do - Try - m_DataSvcRW.Read(itemRW) - Exit Do - Catch ex As DataSvcBusyException - Debug.Print(ex.Message) - End Try - Loop - - If Value.Length = 1 Then - Value(0) = UIntegerToSingle(itemRW.Value) - Else - For i As Integer = 0 To Value.Length - 1 - Value(i) = UIntegerToSingle(itemRW.Value(i)) - Next i - End If - - Catch ex As DataSvcException - 'Log.WW("ERR m_DataSvcRW.Read on S_RW_Real CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) - Catch ex As Exception - 'Log.WW("ERR m_DataSvcRW.Read on S_RW_Real CNC.SIEMENS", ex.Message, True) - Return False - End Try - End If - - Return True - End Function - - - - ''' - ''' Legge o scrive LReal dalle MEMORIE R - ''' - ''' Se True SCRIVE, se False LEGGE - ''' Memoria del DB contenente il valore - ''' Valore da scrivere su scrittura e letto su lettura - ''' True se andata a buon fine - Public Overloads Function S_RW_R_LReal(ByVal bWrite As Boolean, ByVal MemoryIndex As Integer, ByRef Value As Double, Optional ByVal nPath As Integer = 1) As Boolean - Dim itemRW As Item - Dim ItemPath As String - - ItemPath = "/channel/parameter/r[u" & nPath.ToString & "," & MemoryIndex.ToString & "]" - - If bWrite Then ' *** Write - Try - itemRW = New Item(ItemPath) - 'set value - itemRW.Value = Value - Do - Try - m_DataSvcRW.Write(itemRW) - Exit Do - Catch ex As DataSvcBusyException - Debug.Print(ex.Message) - End Try - Loop - - Catch ex As DataSvcException - 'Log.WW("ERR m_DataSvcRW.Write on S_RW_R_LReal CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) - Catch ex As Exception - 'Log.WW("ERR m_DataSvcRW.Write on S_RW_R_LReal CNC.SIEMENS", ex.Message) - Return False - End Try - - Else ' ************* Read - Try - itemRW = New Item(ItemPath) - Do - Try - m_DataSvcRW.Read(itemRW) - Exit Do - Catch ex As DataSvcBusyException - Debug.Print(ex.Message) - End Try - Loop - - Value = itemRW.Value - - Catch ex As DataSvcException - 'Log.WW("ERR m_DataSvcRW.Read on S_RW_R_LReal CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) - Catch ex As Exception - 'Log.WW("ERR m_DataSvcRW.Read on S_RW_R_LReal CNC.SIEMENS", ex.Message, True) - Return False - End Try - End If - - Return True - End Function - - - -#Region "Funzioni specifiche IOT" - - ''' - ''' Struttura dati asse - ''' - Public Structure AxData - ''' - ''' Carico Asse - ''' - Public Load As Single - ''' - ''' posizione attuale asse - ''' - Public PosAct As Single - ''' - ''' posizione Target asse - ''' - Public PosTgt As Single - ''' - ''' Velocità asse - ''' - Public Speed As Single - - End Structure - ''' - ''' Struttura dati UT - ''' - Public Structure UtData - ''' - ''' Vettore elenco UT (DB254.DBW280) - ''' - Public elencoUtMem As UShort() - ''' - ''' Tabella UT (DB253.DBW2500) - ''' - Public tabUt_UT As UShort() - ''' - ''' Tabella IdFamigliaUt (DB253.DBW2900) - ''' - Public tabIdFamUt As UShort() - ''' - ''' Tabella Famiglie Utensili (DB253.DBW100) - ''' - Public tabFamUt As UShort() - ''' - ''' Tabella TIPO Vita Residua Famiglie Utensili (DB253.DBB1900) - ''' - Public tabTipoVitaRes As Byte() - ''' - ''' Tabella Vita Residua Famiglie Utensili (DB253.DBD4300) - ''' - Public tabVitaRes As UInt32() - - End Structure - - ''' - ''' Restituisce tutti i dati assi insieme - ''' - ''' - Public Function getAllAxisPos() As AxData() - ' RIFERIMENTO: - ' txt Giuseppe - - 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 - Try - m_DataSvcRW.Read(itemRead) - Exit Do - Catch ex As DataSvcBusyException - Debug.Print(ex.Message) - Catch ex As DataSvcException - Throw New NcException("ERR GetStaticData CNC.SIEMENS DataSvcException", ex) - End Try - Loop - - Dim datiAssi(19) As AxData - - ' faccio copia valori! - 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 = Convert.ToSingle(itemRead(3).Value(i)) - Next i - For i As Integer = 0 To 19 - datiAssi(i).Speed = UIntegerToSingle(itemRead(1).Value(i)) - datiAssi(i).Load = UIntegerToSingle(itemRead(2).Value(i)) - Next i - - Return datiAssi - - End Function - - ''' - ''' recupera (e formatta) tutti i dati riferiti alle tabelle della gestione UT - ''' - ''' - ''' - Public Function getAllUtData(ByVal numVal As Short, ByVal numUt As Short) As UtData - ' RIFERIMENTO: - ' txt Giuseppe - - ReDim itemRead(5) - itemRead(0) = New Item("DB254.DBW280:[" & numUt & "]") 'elencoUtMem - itemRead(1) = New Item("DB253.DBW2500:[" & numVal & "]") 'tabUt_UT - itemRead(2) = New Item("DB253.DBW2900:[" & numVal & "]") 'IdFamigliaUt - itemRead(3) = New Item("DB253.DBW100:[" & numVal & "]") 'tabFamUt - itemRead(4) = New Item("DB253.DBB1900:[" & numVal & "]") 'tabTipoVitaRes - itemRead(5) = New Item("DB253.DBD4300:[" & numVal & "]") 'tabVitaRes - - Do - Try - m_DataSvcRW.Read(itemRead) - Exit Do - Catch ex As DataSvcBusyException - Debug.Print(ex.Message) - Catch ex As DataSvcException - Throw New NcException("ERR GetStaticData CNC.SIEMENS DataSvcException", ex) - End Try - Loop - - ' variabili di appoggio - Dim datiUT As New UtData - - Dim _elencoUtMem(numUt - 1) As UShort - Dim _tabUt_UT(numVal - 1) As UShort - Dim _tabIdFamUt(numVal - 1) As UShort - Dim _tabFamUt(numVal - 1) As UShort - Dim _tabTipoVitaRes(numVal - 1) As Byte - Dim _tabVitaRes(numVal - 1) As UInt32 - - ' faccio copia valori! - For i As Integer = 0 To numUt - 1 - _elencoUtMem(i) = itemRead(0).Value(i) - '_elencoUtMem(i) = UIntegerToSingle(itemRead(0).Value(i)) - Next i - - ' faccio copia valori! - For i As Integer = 0 To numVal - 1 - - _tabUt_UT(i) = itemRead(1).Value(i) - '_tabUt_UT(i) = UIntegerToSingle(itemRead(1).Value(i)) - - _tabIdFamUt(i) = itemRead(2).Value(i) - '_tabIdFamUt(i) = UIntegerToSingle(itemRead(2).Value(i)) - - _tabFamUt(i) = itemRead(3).Value(i) - '_tabFamUt(i) = UIntegerToSingle(itemRead(3).Value(i)) - - _tabTipoVitaRes(i) = itemRead(4).Value(i) - '_tabTipoVitaRes(i) = UIntegerToSingle(itemRead(4).Value(i)) - - _tabVitaRes(i) = itemRead(5).Value(i) - '_tabVitaRes(i) = UIntegerToSingle(itemRead(5).Value(i)) - Next i - - ' copio in oggetto OUT... - datiUT.elencoUtMem = _elencoUtMem - datiUT.tabUt_UT = _tabUt_UT - datiUT.tabFamUt = _tabFamUt - datiUT.tabIdFamUt = _tabIdFamUt - datiUT.tabTipoVitaRes = _tabTipoVitaRes - datiUT.tabVitaRes = _tabVitaRes - - ' rendo i dati! - Return datiUT - - End Function - - ''' - ''' recupera l'array dei codici G attivi - ''' - ''' - ''' Vettore codici attivi correnti - ''' - Public Function getPathGCodeMod(maxProc As Integer, ByRef GCodeCurr As String(,)) As Boolean - ' RIFERIMENTO: - ' SynumerikOperate_net, pg 52 - ' Parameter manual NC, pg 401 - - ' preparo memorie - Dim maxGruppi As Int16 - maxGruppi = 64 - ReDim itemRead(maxProc - 1) - For i As Integer = 0 To maxProc - 1 - itemRead(i) = New Item("/Channel/SelectedFunctions/ncFktAct[u" & i + 1 & ",1,#" & maxGruppi & "]") ' leggo TUTTI i gruppi... - ' verificare sintassi...[u1,1,64] al posto di [u1,1,#64] - 'itemRead(i) = New Item("/Channel/SelectedFunctions/ncFktAct[u" & i + 1 & ",1," & maxGruppi & "]") ' leggo TUTTI i gruppi... - Next i - - 'lettura - Do - Try - m_DataSvcRW.Read(itemRead) - Exit Do - Catch ex As DataSvcBusyException - Debug.Print(ex.Message) - Catch ex As DataSvcException - Throw New NcException("ERR GetStaticData CNC.SIEMENS DataSvcException", ex) - End Try - Loop - - ' faccio copia valori! - For i As Integer = 0 To maxGruppi - 1 - For j As Integer = 0 To maxProc - 1 - GCodeCurr(j, i) = itemRead(j).Value(i) - Next j - Next i - - ' chiudo! - Return True - - End Function - - ''' - ''' procedura per risposta alla segnalazione di allarmi... - ''' - ''' - ''' - Public Sub AlarmList(guid As Guid, alarms() As Alarm) - ' RIFERIMENTO: - ' SynumerikOperate_Net, pg 101 --> 110 (NON serve verifica theread...) - - ' verifico di essere il "corretto responditore"... - If (m_AlarmGuid.Equals(guid)) Then - ' salvo nel mio oggetto in memoria... - currAlarms = alarms - End If - - End Sub - - Public Function getCncAlarm() As Alarm() - ' RIFERIMENTO: - ' SynumerikOperate_Net, pg 101 --> 110 - - ' restituisco vettore allarmi... - Return currAlarms - - End Function - - -#End Region - - End Class - -End Namespace - -#End If \ No newline at end of file diff --git a/IOB-WIN/CncLib/CNC/CNC/CNC.CNC.vb b/IOB-WIN/CncLib/CNC/CNC/CNC.CNC.vb deleted file mode 100644 index 0a3c588..0000000 --- a/IOB-WIN/CncLib/CNC/CNC/CNC.CNC.vb +++ /dev/null @@ -1,239 +0,0 @@ -Imports System.Drawing -Imports System.Runtime.Serialization - -Namespace CNC - - Partial Public MustInherit Class CNC - - Protected bStaticDataReaded As Boolean - Protected _CncWindowProcess As Process - - Public Const R = False - Public Const W = True - - Public Enum NcType - DEMO = 0 - FANUC = 1 - OSAI = 2 - SIEMENS = 3 - End Enum - - Public Enum Memo - MemBool = 1 - MemByte = 2 - MemWord = 3 - MemInt = 4 - MemDWord = 5 - MemDInt = 6 - MemSingle = 7 - MemDouble = 8 - End Enum - - Public Enum InfoType - Descrizione - Matricola - Teste - Magazzini - ManineMagazzino - End Enum - - Protected _Type As NcType - Public ReadOnly Property Type() As NcType - Get - Return _Type - End Get - End Property - - - Protected _Descrizione As String - Public ReadOnly Property Descrizione() As String - Get - Return _Descrizione - End Get - End Property - Protected _Matricola As Integer - Public ReadOnly Property Matricola() As Integer - Get - If Not bStaticDataReaded Then Throw New System.Configuration.SettingsPropertyNotFoundException("Matricola not found") - Return _Matricola - End Get - End Property - Protected _Teste As Integer - Public ReadOnly Property Teste() As Integer - Get - If Not bStaticDataReaded Then Throw New System.Configuration.SettingsPropertyNotFoundException("Teste not found") - Return _Teste - End Get - End Property - Protected _Magazzini As Integer - Public ReadOnly Property Magazzini() As Integer - Get - If Not bStaticDataReaded Then Throw New System.Configuration.SettingsPropertyNotFoundException("Magazzini not found") - Return _Magazzini - End Get - End Property - Protected _ManineMagazzino() As Integer - Public ReadOnly Property ManineMagazzino() As Integer() - Get - If Not bStaticDataReaded Then Throw New System.Configuration.SettingsPropertyNotFoundException("ManineMagazzino not found") - Return _ManineMagazzino - End Get - End Property - Protected _MagazziniConAttrezzaggioAutomatico As Integer - Public ReadOnly Property MagazziniConAttrezzaggioAutomatico() As Integer - Get - If Not bStaticDataReaded Then Throw New System.Configuration.SettingsPropertyNotFoundException("MagazziniConAttrezzaggioAutomatico not found") - Return _MagazziniConAttrezzaggioAutomatico - End Get - End Property - Protected _MaxUtensiliGestibili As Integer - Public ReadOnly Property MaxUtensiliGestibili() As Integer - Get - If Not bStaticDataReaded Then Throw New System.Configuration.SettingsPropertyNotFoundException("MaxUtensiliGestibili not found") - Return _MaxUtensiliGestibili - End Get - End Property - Protected _MaxIdUtensile As Integer - Public ReadOnly Property MaxIdUtensile() As Integer - Get - If Not bStaticDataReaded Then Throw New System.Configuration.SettingsPropertyNotFoundException("MaxIdUtensile not found") - Return _MaxIdUtensile - End Get - End Property - Protected _ZoomSpeed As Integer - Public ReadOnly Property ZoomSpeed() As Integer '(aka: FattoreMoltSpeed) - Get - If Not bStaticDataReaded Then Throw New System.Configuration.SettingsPropertyNotFoundException("ZoomSpeed not found") - Return _ZoomSpeed - End Get - End Property - - Protected _ScreenSize As Size - Public Property ScreenSize() As Size - Get - Return _ScreenSize - End Get - Set(ByVal value As Size) - _ScreenSize = value - End Set - End Property - - Protected _CncWindowSize As Size - Public Property CncWindowSize() As Size - Get - Return _CncWindowSize - End Get - Set(ByVal value As Size) - _CncWindowSize = value - End Set - End Property - - Protected _CncWindowPosition As Point - Public Property CncWindowPosition() As Point - Get - Return _CncWindowPosition - End Get - Set(ByVal value As Point) - _CncWindowPosition = value - End Set - End Property - - Protected _bConnected As Boolean - Public Property Connected() As Boolean - Get - Return _bConnected - End Get - Private Set(ByVal value As Boolean) - _bConnected = value - End Set - End Property - - Protected _Licenza As Integer - Public Overridable Property Licenza() As Integer - Get - Return _Licenza - End Get - Set(ByVal value As Integer) - _Licenza = value - End Set - End Property - - Protected _LicenzaScaduta As Boolean - Public Overridable Property LicenzaScaduta() As Boolean - Get - Return _LicenzaScaduta - End Get - Set(ByVal value As Boolean) - _LicenzaScaduta = value - End Set - End Property - - Public Sub New() - - 'Definisco l'area della Cnc Window - _CncWindowPosition = New System.Drawing.Point(0, 0) - _CncWindowSize = New System.Drawing.Size(800, 600) - - End Sub - - Public Overridable Sub Initialize() - End Sub - - Public Overridable Sub Connect(Optional ByRef szStatus As String = "") - End Sub - - Public Overridable Sub Disconnect(Optional ByRef szStatus As String = "") - End Sub - - Public Overridable Sub CncException(Optional ByRef szStatus As String = "") - _bConnected = False - End Sub - - ''' - ''' Legge il valore del tempo di lavorazione totale del CN - ''' - Public Overridable Function GetDataMaintenance() As TimeSpan - End Function - - ''' - ''' Legge le memorie di configurazione dal cn - ''' - Public Overridable Sub GetStaticData() - End Sub - - ''' - ''' Chiude l'applicazione CNC - ''' - Public Overridable Sub CloseCnc() - End Sub - - End Class - - - - - - - Public Class NcException - Inherits System.ApplicationException - Public Sub New() - MyBase.New("NC Exception") - End Sub - Public Sub New(ByVal new_message As String) - MyBase.New(new_message) - End Sub - Public Sub New(ByVal new_message As String, ByVal inner_exception As Exception) - MyBase.New(new_message, inner_exception) - End Sub - Public Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext) - MyBase.New(info, context) - End Sub - End Class - - Public MustInherit Class CExceptionInfo - Public Overrides Function ToString() As String - ToString = "" - End Function - End Class - -End Namespace \ No newline at end of file diff --git a/IOB-WIN/CncLib/CncLib.vbproj b/IOB-WIN/CncLib/CncLib.vbproj deleted file mode 100644 index 068d93e..0000000 --- a/IOB-WIN/CncLib/CncLib.vbproj +++ /dev/null @@ -1,646 +0,0 @@ - - - - - Debug - AnyCPU - {2D769FFD-1122-4276-A115-29246E6D23C5} - Library - CncLib - CncLib - 512 - Windows - v4.5.2 - - - - true - full - true - true - bin\Debug\ - CncLib.xml - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - FS30D=1,SIEMENS=1 - true - AnyCPU - false - - - pdbonly - false - true - true - bin\Release\ - CncLib.xml - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - FS30D=1,SIEMENS=1 - false - - - On - - - Binary - - - Off - - - On - - - true - bin\FANUC\ - CncLib.xml - true - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - pdbonly - AnyCPU - MinimumRecommendedRules.ruleset - FS30D=1,SIEMENS=1 - false - - - true - bin\ESA\ - CncLib.xml - true - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - pdbonly - AnyCPU - MinimumRecommendedRules.ruleset - FS30D=1,SIEMENS=1 - false - - - true - bin\SIEMENS\ - FS30D=1,SIEMENS=1 - CncLib.xml - true - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - pdbonly - AnyCPU - MinimumRecommendedRules.ruleset - false - - - true - bin\OSAI\ - FS30D=1,SIEMENS=1 - CncLib.xml - true - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - pdbonly - AnyCPU - MinimumRecommendedRules.ruleset - false - - - - False - ExtLib\Siemens.Sinumerik.Operate.Services.dll - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - True - Application.myapp - - - True - True - Resources.resx - - - True - Settings.settings - True - - - True - True - Reference.svcmap - - - - - VbMyResourcesResXFileCodeGenerator - Resources.Designer.vb - My.Resources - Designer - - - - - - MyApplicationCodeGenerator - Application.Designer.vb - - - SettingsSingleFileGenerator - My - Settings.Designer.vb - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - Reference.svcmap - - - - - - - - - - - - - - - - - - WCF Proxy Generator - Reference.vb - - - - - - - - - - \ No newline at end of file diff --git a/IOB-WIN/CncLib/CndexLinkDotNet.dll b/IOB-WIN/CncLib/CndexLinkDotNet.dll deleted file mode 100644 index 2ab44b8..0000000 Binary files a/IOB-WIN/CncLib/CndexLinkDotNet.dll and /dev/null differ diff --git a/IOB-WIN/CncLib/Config/Config.Options.vb b/IOB-WIN/CncLib/Config/Config.Options.vb deleted file mode 100644 index 73618af..0000000 --- a/IOB-WIN/CncLib/Config/Config.Options.vb +++ /dev/null @@ -1,294 +0,0 @@ -Namespace Config - Class Options - - Public Shared CurrentOptions As Options - Public Shared sPathFile As String - - Private _Machine_Enabled As Boolean - ''' Maintenance Machine - Public ReadOnly Property Machine_Enabled() As Boolean - Get - Return Me._Machine_Enabled - End Get - End Property - - Private _Maintenance_Enabled As Boolean - ''' Opzione Maintenance - Public ReadOnly Property Maintenance_Enabled() As Boolean - Get - Return Me._Maintenance_Enabled - End Get - End Property - - Private _OpPanel_Enabled As Boolean - ''' Opzione OpPanel - Public ReadOnly Property OpPanel_Enabled() As Boolean - Get - Return Me._OpPanel_Enabled - End Get - End Property - - Private _Launch_Enabled As Boolean - ''' Opzione Launch - Public ReadOnly Property Launch_Enabled() As Boolean - Get - Return Me._Launch_Enabled - End Get - End Property - Private _TcpSocket_Enabled As Boolean - ''' Opzione TcpSocket - Public ReadOnly Property TcpSocket_Enabled() As Boolean - Get - Return Me._TcpSocket_Enabled - End Get - End Property - - Private _ToolTable_Enabled As Boolean - ''' Opzione ToolTable - Public ReadOnly Property ToolTable_Enabled() As Boolean - Get - Return Me._ToolTable_Enabled - End Get - - End Property - - Private _ToolTable_Famiglie As Boolean - ''' Opzione Famiglie - Public ReadOnly Property ToolTable_Famiglie() As Boolean - Get - Return Me._ToolTable_Famiglie - End Get - End Property - - Private _ToolTable_Vita As Boolean - ''' Opzione Vita - Public ReadOnly Property ToolTable_Vita() As Boolean - Get - Return (Me._ToolTable_Vita_S Or Me._ToolTable_Vita_N Or Me._ToolTable_Vita_M) - End Get - End Property - - Private _ToolTable_Vita_S As Boolean - ''' Opzione Vita a Tempo - Public ReadOnly Property ToolTable_Vita_S() As Boolean - Get - Return Me._ToolTable_Vita_S - End Get - End Property - - Private _ToolTable_Vita_N As Boolean - ''' Opzione Vita a Cicli o Colpi - Public ReadOnly Property ToolTable_Vita_N() As Boolean - Get - Return Me._ToolTable_Vita_N - End Get - End Property - - Private _ToolTable_Vita_M As Boolean - ''' Opzione Vita a Profilo - Public ReadOnly Property ToolTable_Vita_M() As Boolean - Get - Return Me._ToolTable_Vita_M - End Get - End Property - - Private _ToolTable_AttrezzaggioAutomatico As Boolean - ''' Opzione Attrezzaggio Automatico - Public ReadOnly Property ToolTable_AttrezzaggioAutomatico() As Boolean - Get - Return Me._ToolTable_AttrezzaggioAutomatico - End Get - End Property - - Private _ToolTable_PercorsoAutoadattativo As Boolean - ''' Opzione Percorso Autoadattativo - Public ReadOnly Property ToolTable_PercorsoAutoadattativo() As Boolean - Get - Return Me._ToolTable_PercorsoAutoadattativo - End Get - End Property - - Private _ToolTable_Multiprofilo As Boolean - ''' Opzione Multiprofilo - Public ReadOnly Property ToolTable_Multiprofilo() As Boolean - Get - Return Me._ToolTable_Multiprofilo - End Get - End Property - - Private _ToolTable_CompensazioneDinamica As Boolean - ''' Opzione Compensazione Dinamica - Public ReadOnly Property ToolTable_CompensazioneDinamica() As Boolean - Get - Return Me._ToolTable_CompensazioneDinamica - End Get - End Property - - Private _ToolTable_Offset As Boolean - ''' Opzione Offset - Public ReadOnly Property ToolTable_Offset() As Boolean - Get - Return Me._ToolTable_Offset - End Get - End Property - - Private _ToolTable_FeedMax As Boolean - ''' Opzione FeedMax - Public ReadOnly Property ToolTable_FeedMax() As Boolean - Get - Return Me._ToolTable_FeedMax - End Get - End Property - - Private _ToolTable_Gamme As Boolean - ''' Opzione Gamme - Public ReadOnly Property ToolTable_Gamme() As Boolean - Get - Return Me._ToolTable_Gamme - End Get - End Property - - Private _ToolTable_Manine As Boolean - ''' Opzione Manine - Public ReadOnly Property ToolTable_Manine() As Boolean - Get - Return Me._ToolTable_Manine - End Get - End Property - - - Private _ToolTable_MaxToolsManaged As Integer - ''' Massimo numero di utensili gestibili - Public ReadOnly Property ToolTable_MaxToolsManaged() As Integer - Get - Return Me._ToolTable_MaxToolsManaged - End Get - End Property - - Private _ToolTable_Inch As Boolean - ''' Opzione gestione in Pollici - Public ReadOnly Property ToolTable_Inch() As Boolean - Get - Return Me._ToolTable_Inch - End Get - End Property - - Private _ToolTable_Diameter As Boolean - ''' Opzione gestione Diametro - Public ReadOnly Property ToolTable_Diameter() As Boolean - Get - Return Me._ToolTable_Diameter - End Get - End Property - - Private _ToolTable_AttrezzaggioInRun As Boolean - ''' Opzione modifica con macchina in RUN - Public ReadOnly Property ToolTable_AttrezzaggioInRun() As Boolean - Get - Return Me._ToolTable_AttrezzaggioInRun - End Get - End Property - - Private _ToolTable_AttrezzaggioAssistito As Boolean - ''' Opzione Attrezzaggio magazzini inaccessibili tramite macchina - Public ReadOnly Property ToolTable_AttrezzaggioAssistito() As Boolean - Get - Return Me._ToolTable_AttrezzaggioAssistito - End Get - End Property - - Private _ToolTable_SharedDB As Boolean - ''' Opzione magazzino utensili condiviso tra più macchine - Public ReadOnly Property ToolTable_SharedDB() As Boolean - Get - Return Me._ToolTable_SharedDB - End Get - End Property - Private _ToolTable_AllowRemote As Boolean - ''' Opzione AllowRemote Tool Table - Public ReadOnly Property ToolTable_AllowRemote() As Boolean - Get - Return Me._ToolTable_AllowRemote - End Get - End Property - Public Shared Sub CreateOptions(ByVal sPathF As String) - If CurrentOptions Is Nothing Then - CurrentOptions = New Options - End If - - ' Memorizzo il percorso del file INI - sPathFile = sPathF - - CurrentOptions.LoadOptions() - End Sub - - 'carica le opzioni da file - Private Sub LoadOptions() - ''leggo la matricola dal cn - ''se non è possibile disabilito tutto e chiedo che venga attivata la connessione - ''se leggo 0 avviso che la metricola deve essere popolata - - ''leggo il codice dal file - ''valore = decodifica(valoreletto, matricola, passwordpubblica) - - Dim szFileIni As String - Dim Ini As App.Native.Ini - - ' imposto il nome del file - szFileIni = sPathFile & "\" & My.Application.Info.AssemblyName & ".ini" - - ' verifico che esista il file - If My.Computer.FileSystem.FileExists(szFileIni) Then - 'istanzio la classe di gestione del file - Ini = New App.Native.Ini(szFileIni) - 'leggo i settaggi dal file - Me._Machine_Enabled = Ini.GetBoolean("OPTIONS", "MACHINE_ENABLED", 0) - Me._Maintenance_Enabled = Ini.GetBoolean("OPTIONS", "MAINTENANCE_ENABLED", 0) - Me._OpPanel_Enabled = Ini.GetBoolean("OPTIONS", "OPPANEL_ENABLED", 0) - Me._Launch_Enabled = Ini.GetBoolean("OPTIONS", "LAUNCH_ENABLED", 0) - Me._TcpSocket_Enabled = Ini.GetBoolean("OPTIONS", "TCPSOCKET_ENABLED", 0) - Me._ToolTable_Enabled = Ini.GetBoolean("OPTIONS", "TOOLTABLE_ENABLED", 0) - Me._ToolTable_Famiglie = Ini.GetBoolean("OPTIONS", "TOOLTABLE_FAMIGLIE", 0) - Me._ToolTable_Vita_S = Ini.GetBoolean("OPTIONS", "TOOLTABLE_VITA_S", 0) - Me._ToolTable_Vita_N = Ini.GetBoolean("OPTIONS", "TOOLTABLE_VITA_N", 0) - Me._ToolTable_Vita_M = Ini.GetBoolean("OPTIONS", "TOOLTABLE_VITA_M", 0) - Me._ToolTable_Multiprofilo = Ini.GetBoolean("OPTIONS", "TOOLTABLE_MULTIPROFILO", 0) - Me._ToolTable_AttrezzaggioAutomatico = Ini.GetBoolean("OPTIONS", "TOOLTABLE_ATTREZZAGGIOAUTOMATICO", 0) - Me._ToolTable_PercorsoAutoadattativo = Ini.GetBoolean("OPTIONS", "TOOLTABLE_PERCORSOAUTOADATTATIVO", 0) - Me._ToolTable_CompensazioneDinamica = Ini.GetBoolean("OPTIONS", "TOOLTABLE_COMPENSAZIONEDINAMICA", 0) - Me._ToolTable_Offset = Ini.GetBoolean("OPTIONS", "TOOLTABLE_OFFSET", 0) - Me._ToolTable_FeedMax = Ini.GetBoolean("OPTIONS", "TOOLTABLE_FEEDMAX", 0) - Me._ToolTable_Gamme = Ini.GetBoolean("OPTIONS", "TOOLTABLE_GAMME", 0) - Me._ToolTable_Manine = Ini.GetBoolean("OPTIONS", "TOOLTABLE_MANINE", 0) - 'Me._ToolTable_GeometryManagement = Ini.GetInteger("OPTIONS", "TOOLTABLE_GEOMETRYMANAGEMENT", 0) - Me._ToolTable_MaxToolsManaged = Ini.GetInteger("OPTIONS", "TOOLTABLE_MAXTOOLSMANAGED", 0) - Me._ToolTable_Inch = Ini.GetBoolean("OPTIONS", "TOOLTABLE_INCH", 0) - Me._ToolTable_Diameter = IIf(CNC.Runtime.NC.Type = CNC.CNC.NcType.OSAI, True, False) 'Ini.GetBoolean("OPTIONS", "TOOLTABLE_DIAMETER", 0) - Me._ToolTable_AttrezzaggioInRun = Ini.GetBoolean("OPTIONS", "TOOLTABLE_ATTREZZAGGIO_IN_RUN", 0) - Me._ToolTable_AttrezzaggioAssistito = Ini.GetBoolean("OPTIONS", "TOOLTABLE_ATTREZZAGGIO_ASSISTITO", 0) - - - ' Se è attiva l'opzione ToolTable_Remote, l'AllowRemote e SharedDB sono ignorati - If Config.Settings.Settings.ToolTable_Remote Then - Me._ToolTable_AllowRemote = False - Me._ToolTable_SharedDB = False - Else - Me._ToolTable_AllowRemote = Ini.GetBoolean("OPTIONS", "TOOLTABLE_ALLOWREMOTE", 0) - Me._ToolTable_SharedDB = Ini.GetBoolean("OPTIONS", "TOOLTABLE_SHAREDDB", 0) - End If - Else - 'CncLib.App.Runtime.Log.WW("ERR LoadOptions", String.Format("File {0} not found", szFileIni), True) - End If - - End Sub - - 'verifica che le opzioni sul cn siano coerenti, se no le corregge - Private Sub CheckOptions() - ''leggo le opzioni dal cn - - ''verifico che siano uguali a quelle del file, se no modifico il cn e avviso l'utente della modifica - End Sub - - - End Class -End Namespace diff --git a/IOB-WIN/CncLib/Config/Config.Settings.vb b/IOB-WIN/CncLib/Config/Config.Settings.vb deleted file mode 100644 index 56fbfe0..0000000 --- a/IOB-WIN/CncLib/Config/Config.Settings.vb +++ /dev/null @@ -1,698 +0,0 @@ -Imports System.ComponentModel -Imports System.Drawing - -Namespace Config - - Class Settings - Const MAX_NUM_TOOLTABLE_PATH = 19 - - Public Shared Settings As SettingsProperty - Public Shared SettingsEdit As SettingsProperty - Public Shared sPathFile As String - - Friend Enum MemoryMapping - [Default] = 0 - ElsManager = 1 - ToolManager = 2 - ToolTable = 3 - End Enum - - Public Shared Sub CreateSettings(ByVal sPathF As String, Optional ByVal bReadToolTable As Boolean = True) - If Settings Is Nothing Then - Settings = New SettingsProperty - SettingsEdit = New SettingsProperty - End If - - - ' Memorizzo il percorso del file INI - sPathFile = sPathF - - LoadSettings(bReadToolTable) - End Sub - - Public Shared Sub LoadSettings(Optional ByVal bReadToolTable As Boolean = True) - Dim szFileIni As String - Dim nTmp As Integer - Dim Ini As App.Native.Ini - Dim sFont As Single - - ' imposto il nome del file - szFileIni = sPathFile & "\" & My.Application.Info.AssemblyName & ".ini" - - ' verifico che esista il file - If My.Computer.FileSystem.FileExists(szFileIni) Then - 'istanzio la classe di gestione del file - Ini = New App.Native.Ini(szFileIni) - 'leggo i settaggi dal file - With Settings - .Debug = Ini.GetInteger("CONFIG", "DEBUG", 0) - .Language = Trim(Ini.GetString("CONFIG", "LANGUAGE", "English")) - ' Quando è attiva l'impostazione TOOLTABLEREMOTE in SettingsBase, - ' il CN è "sempre" da impostare a DEMO - If Config.Settings.Settings.ToolTable_Remote Then - .TypeNC = CNC.CNC.NcType.DEMO - Else - .TypeNC = Ini.GetInteger("NC", "TYPE", 0) - End If - - nTmp = Ini.GetInteger("NC", "MEMORYMAPPING", 0) - If nTmp = 0 Then 'se MEMORYMAPPING viene lasciata a 0, imposto il valore di default - Select Case nTmp - Case CNC.CNC.NcType.FANUC : .MemoryMapping = MemoryMapping.ElsManager - Case CNC.CNC.NcType.OSAI : .MemoryMapping = MemoryMapping.ElsManager - Case CNC.CNC.NcType.SIEMENS : .MemoryMapping = MemoryMapping.ToolTable - End Select - Else - .MemoryMapping = nTmp - End If - If bReadToolTable Then - .SerialNumber = Ini.GetInteger("NC", "SERIALNUMBER", "0") - End If - - .Hssb = Ini.GetBoolean("FANUC", "HSSB", 0) - .IpFanuc = Trim(Ini.GetString("FANUC", "IP", "192.168.1.1")) - .PortIpFanuc = Ini.GetInteger("FANUC", "PORT", "8193") - .CncScreenHssb = Ini.GetInteger("FANUC", "CNCSCREEN_HSSB", "0") - .NcName = Trim(Ini.GetString("OSAI", "NAME", "NC0000")) - .OsaiCommType = Trim(Ini.GetInteger("OSAI", "COMM_TYPE", "0")) - .IpOsai = Trim(Ini.GetString("OSAI", "IP", "192.168.1.1")) - .DncPcPath = Trim(Ini.GetString("OSAI", "DNC_PC_PATH", "C:\PARTPRG\")) - .DncNcPath = Trim(Ini.GetString("OSAI", "DNC_NC_PATH", "P:\")) - .DncTimeout = Ini.GetInteger("OSAI", "DNC_TIMEOUT", "20") - .AlwaysOnTop = CBool(Ini.GetString("POSITION", "ALWAYSONTOP", "0")) - .HeadsPanel_ShowOnOpPanel = CBool(Ini.GetString("HEADS_PANEL", "SHOW_ON_OPPANEL", "1")) - .HeadsPanel_ReverseOrder = CBool(Ini.GetString("HEADS_PANEL", "REVERSE_ORDER", "0")) - For i As Integer = 0 To 19 - .HeadsPanel_Name(i) = Ini.GetString("HEADS_PANEL", "HEADNAME" & (i + 1).ToString, "") - Try - '.HeadsPanel_Type(i) = CType(Ini.GetInteger("HEADS_PANEL", "HEADTYPE" & (i + 1).ToString, "0"), Control.Heads.HeadTypes) - Catch ex As Exception - End Try - Next - .ControlPosition = New Rectangle(Ini.GetInteger("POSITION", "LEFT", 60), - Ini.GetInteger("POSITION", "TOP", 80), - Ini.GetInteger("POSITION", "WIDTH", 800), - Ini.GetInteger("POSITION", "HEIGHT", 600)) - .OpPanel_FollowCnc = CBool(Ini.GetString("SETTINGS", "OPPANEL_FOLLOWCNC", "1")) - - Dim ScreenW = Ini.GetInteger("SETTINGS", "SCREEN_WIDTH", 0) - Dim ScreenH = Ini.GetInteger("SETTINGS", "SCREEN_HEIGHT", 0) - If ScreenW > 0 And ScreenH > 0 Then - .OpPanel_ScreenSize = New Size(ScreenW, ScreenH) - .OpPanel_ForcedScreenSize = True - Else - '.OpPanel_ScreenSize = Screen.PrimaryScreen.Bounds.Size - .OpPanel_ForcedScreenSize = False - End If - - Select Case .OpPanel_ScreenSize - Case New Size(800, 600) '10" - sFont = 6.75! - Case New Size(1024, 768), New Size(2048, 768) '15", 15" doppio monitor - sFont = 8.25! - Case New Size(1280, 800), New Size(1366, 768), New Size(1280, 1024) '15,6" widescreen,17" - sFont = 9.75! - Case Else - sFont = 8.25! - End Select - .DefaultFont = New System.Drawing.Font("Tahoma", sFont, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - - .TcpSocket_Ip = Trim(Ini.GetString("SETTINGS", "TCPSOCKET_IP", "192.168.139.100")) - .TcpSocket_Port = Ini.GetInteger("SETTINGS", "TCPSOCKET_PORT", "4999") - - ' ToolTable REMOTE - If bReadToolTable Then - .ToolTable_Remote = Ini.GetBoolean("TOOLTABLE", "REMOTE", 0) - For i As Integer = 0 To MAX_NUM_TOOLTABLE_PATH - .ToolTable_Path(i) = Ini.GetString("TOOLTABLE", "PATH" & (i + 1).ToString, "") - .ToolTable_Descr(i) = Ini.GetString("TOOLTABLE", "DESCRIPTION" & (i + 1).ToString, "") - If .ToolTable_Path(i) <> "" Then - .ToolTable_CountPaths = i + 1 - End If - Next - End If - End With - Else - 'CncLib.App.Runtime.Log.WW("ERR LoadFromFile", String.Format("File {0} not found", szFileIni), True) - End If - End Sub - - Public Shared Sub SaveToFile() - Dim szFileIni As String - Dim Ini As App.Native.Ini - - ' imposto il nome del file - szFileIni = sPathFile & "\" & My.Application.Info.AssemblyName & ".ini" - - ' verifico che esista il file - If My.Computer.FileSystem.FileExists(szFileIni) Then - 'istanzio la classe di gestione del file - Ini = New App.Native.Ini(szFileIni) - With Settings - ' salvo su file - Ini.WriteInteger("CONFIG", "DEBUG", .Debug) - Ini.WriteString("CONFIG", "LANGUAGE", .Language) - - Ini.WriteInteger("POSITION", "ALWAYSONTOP", IIf((.AlwaysOnTop), 1, 0)) - Ini.WriteInteger("POSITION", "LEFT", .ControlPosition.Left) - Ini.WriteInteger("POSITION", "TOP", .ControlPosition.Top) - Ini.WriteInteger("POSITION", "WIDTH", .ControlPosition.Width) - Ini.WriteInteger("POSITION", "HEIGHT", .ControlPosition.Height) - - Ini.WriteInteger("TOOLTABLE", "REMOTE", IIf((.ToolTable_Remote), 1, 0)) - ' Uso 2 cicli per mantenere Path e Descr separati - For i As Integer = 0 To MAX_NUM_TOOLTABLE_PATH - If .ToolTable_Path(i) <> "" Then - Ini.WriteString("TOOLTABLE", "PATH" & (i + 1).ToString, .ToolTable_Path(i)) - End If - Next - For i As Integer = 0 To MAX_NUM_TOOLTABLE_PATH - If .ToolTable_Descr(i) <> "" Then - Ini.WriteString("TOOLTABLE", "DESCRIPTION" & (i + 1).ToString, .ToolTable_Descr(i)) - End If - Next - End With - - 'CncLib.App.Runtime.Log.WI("END SaveToFile", , CCncLib.App.Runtime.Log.Lev.Secondary) - Else - 'CncLib.App.Runtime.Log.WW("ERR SaveToFile", String.Format("File {0} not found", szFileIni), True) - End If - End Sub - - Public Shared Sub SettingsToEdit() - SettingsEdit.Debug = Settings.Debug - SettingsEdit.Language = Settings.Language - SettingsEdit.TypeNC = Settings.TypeNC - SettingsEdit.MemoryMapping = Settings.MemoryMapping - SettingsEdit.SerialNumber = Settings.SerialNumber - SettingsEdit.Hssb = Settings.Hssb - SettingsEdit.IpFanuc = Settings.IpFanuc - SettingsEdit.PortIpFanuc = Settings.PortIpFanuc - SettingsEdit.CncScreenHssb = Settings.CncScreenHssb - SettingsEdit.NcName = Settings.NcName - SettingsEdit.OsaiCommType = Settings.OsaiCommType - SettingsEdit.IpOsai = Settings.IpOsai - SettingsEdit.DncPcPath = Settings.DncPcPath - SettingsEdit.DncNcPath = Settings.DncNcPath - SettingsEdit.DncTimeout = Settings.DncTimeout - SettingsEdit.AlwaysOnTop = Settings.AlwaysOnTop - SettingsEdit.HeadsPanel_ShowOnOpPanel = Settings.HeadsPanel_ShowOnOpPanel - SettingsEdit.HeadsPanel_ReverseOrder = Settings.HeadsPanel_ReverseOrder - SettingsEdit.ControlPosition = New Rectangle(Settings.ControlPosition.X, - Settings.ControlPosition.Y, - Settings.ControlPosition.Width, - Settings.ControlPosition.Height) - SettingsEdit.OpPanel_FollowCnc = Settings.OpPanel_FollowCnc - SettingsEdit.OpPanel_ScreenSize = New Size(Settings.OpPanel_ScreenSize.Width, - Settings.OpPanel_ScreenSize.Height) - SettingsEdit.TcpSocket_Ip = Settings.TcpSocket_Ip - SettingsEdit.TcpSocket_Port = Settings.TcpSocket_Port - - SettingsEdit.ToolTable_Remote = Settings.ToolTable_Remote - For i As Integer = 0 To MAX_NUM_TOOLTABLE_PATH - SettingsEdit.ToolTable_Path(i) = Settings.ToolTable_Path(i) - SettingsEdit.ToolTable_Descr(i) = Settings.ToolTable_Descr(i) - Next - End Sub - - Public Shared Sub EditToSettings() - Settings.Debug = SettingsEdit.Debug - Settings.Language = SettingsEdit.Language - Settings.TypeNC = SettingsEdit.TypeNC - Settings.MemoryMapping = SettingsEdit.MemoryMapping - Settings.SerialNumber = SettingsEdit.SerialNumber - Settings.Hssb = SettingsEdit.Hssb - Settings.IpFanuc = SettingsEdit.IpFanuc - Settings.PortIpFanuc = SettingsEdit.PortIpFanuc - Settings.CncScreenHssb = SettingsEdit.CncScreenHssb - Settings.NcName = SettingsEdit.NcName - Settings.OsaiCommType = SettingsEdit.OsaiCommType - Settings.IpOsai = SettingsEdit.IpOsai - Settings.DncPcPath = SettingsEdit.DncPcPath - Settings.DncNcPath = SettingsEdit.DncNcPath - Settings.DncTimeout = SettingsEdit.DncTimeout - Settings.AlwaysOnTop = SettingsEdit.AlwaysOnTop - Settings.HeadsPanel_ShowOnOpPanel = SettingsEdit.HeadsPanel_ShowOnOpPanel - Settings.HeadsPanel_ReverseOrder = SettingsEdit.HeadsPanel_ReverseOrder - Settings.ControlPosition = New Rectangle(SettingsEdit.ControlPosition.X, - SettingsEdit.ControlPosition.Y, - SettingsEdit.ControlPosition.Width, - SettingsEdit.ControlPosition.Height) - Settings.OpPanel_FollowCnc = SettingsEdit.OpPanel_FollowCnc - Settings.OpPanel_ScreenSize = New Size(SettingsEdit.OpPanel_ScreenSize.Width, - SettingsEdit.OpPanel_ScreenSize.Height) - Settings.TcpSocket_Ip = SettingsEdit.TcpSocket_Ip - Settings.TcpSocket_Port = SettingsEdit.TcpSocket_Port - - Settings.ToolTable_Remote = SettingsEdit.ToolTable_Remote - For i As Integer = 0 To MAX_NUM_TOOLTABLE_PATH - Settings.ToolTable_Path(i) = SettingsEdit.ToolTable_Path(i) - Settings.ToolTable_Descr(i) = SettingsEdit.ToolTable_Descr(i) - Next - - RaiseEvent SettingsChanged(New Object, New EventArgs) - End Sub - - Public Shared Event SettingsChanged(ByVal sender As Object, ByVal e As EventArgs) - - Friend Class SettingsProperty - - Private _Debug As Integer = 0 - - Public Property Debug() As Integer - Get - Return Me._Debug - End Get - Set(ByVal value As Integer) - Me._Debug = value - End Set - End Property - Private _Language As String = "English" - - Public Property Language() As String - Get - Return Me._Language - End Get - Set(ByVal value As String) - Me._Language = value - End Set - End Property - - Private _TypeNC As CNC.CNC.NcType = CNC.CNC.NcType.DEMO - - Public Property TypeNC() As CNC.CNC.NcType - Get - Return Me._TypeNC - End Get - Set(ByVal value As CNC.CNC.NcType) - Me._TypeNC = value - End Set - End Property - - Private _MemoryMapping As Config.Settings.MemoryMapping = MemoryMapping.Default - - Public Property MemoryMapping() As Config.Settings.MemoryMapping - Get - Return Me._MemoryMapping - End Get - Set(ByVal value As Config.Settings.MemoryMapping) - Me._MemoryMapping = value - End Set - End Property - - Private _SerialNumber As Integer = 0 - - Public Property SerialNumber() As Integer - Get - Return Me._SerialNumber - End Get - Set(ByVal value As Integer) - Me._SerialNumber = value - End Set - End Property - - Private _Hssb As Integer = 0 - - Public Property Hssb() As Integer - Get - Return Me._Hssb - End Get - Set(ByVal value As Integer) - Me._Hssb = value - End Set - End Property - - Private _IpFanuc As String = "192.168.1.1" - - Public Property IpFanuc() As String - Get - Return Me._IpFanuc - End Get - Set(ByVal value As String) - Me._IpFanuc = value - End Set - End Property - - Private _PortIpFanuc As Integer = 8193 - - Public Property PortIpFanuc() As Integer - Get - Return Me._PortIpFanuc - End Get - Set(ByVal value As Integer) - Me._PortIpFanuc = value - End Set - End Property - - Private _CncScreenHssb As Integer = 0 - - Public Property CncScreenHssb() As Integer - Get - Return Me._CncScreenHssb - End Get - Set(ByVal value As Integer) - Me._CncScreenHssb = value - End Set - End Property - - Private _NcName As String = "NC0000" - - Public Property NcName() As String - Get - Return Me._NcName - End Get - Set(ByVal value As String) - Me._NcName = value - End Set - End Property - - Private _OsaiCommType As Integer = 1 - - Public Property OsaiCommType() As Integer - Get - Return Me._OsaiCommType - End Get - Set(ByVal value As Integer) - Me._OsaiCommType = value - End Set - End Property - - Private _IpOsai As String = "192.168.1.1" - - Public Property IpOsai() As String - Get - Return Me._IpOsai - End Get - Set(ByVal value As String) - Me._IpOsai = value - End Set - End Property - - Private _DncPcPath As String = "C:\PARTPRG\" - - Public Property DncPcPath() As String - Get - Return Me._DncPcPath - End Get - Set(ByVal value As String) - Me._DncPcPath = value - End Set - End Property - - Private _DncNcPath As String = "P:\" - - Public Property DncNcPath() As String - Get - Return Me._DncNcPath - End Get - Set(ByVal value As String) - Me._DncNcPath = value - End Set - End Property - - Private _DncTimeout As Integer = 20 - - Public Property DncTimeout() As Integer - Get - Return Me._DncTimeout - End Get - Set(ByVal value As Integer) - Me._DncTimeout = value - End Set - End Property - - Private _ControlPosition As Rectangle = New Rectangle(80, 60, 800, 600) - - Public Property ControlPosition() As Rectangle - Get - Return Me._ControlPosition - End Get - Set(ByVal value As Rectangle) - Me._ControlPosition = value - End Set - End Property - - Private _AlwaysOnTop As Boolean - - Public Property AlwaysOnTop() As Boolean - Get - Return Me._AlwaysOnTop - End Get - Set(ByVal value As Boolean) - Me._AlwaysOnTop = value - End Set - End Property - - Private _HeadsPanel_ShowOnOpPanel As Boolean - - Public Property HeadsPanel_ShowOnOpPanel() As Boolean - Get - Return Me._HeadsPanel_ShowOnOpPanel - End Get - Set(ByVal value As Boolean) - Me._HeadsPanel_ShowOnOpPanel = value - End Set - End Property - - Private _HeadsPanel_ReverseOrder As Boolean - - Public Property HeadsPanel_ReverseOrder() As Boolean - Get - Return Me._HeadsPanel_ReverseOrder - End Get - Set(ByVal value As Boolean) - Me._HeadsPanel_ReverseOrder = value - End Set - End Property - - Private _HeadsPanel_Name(19) As String - - Public Property HeadsPanel_Name() As String() - Get - Return Me._HeadsPanel_Name - End Get - Set(ByVal value As String()) - Me._HeadsPanel_Name = value - End Set - End Property - - 'Private _HeadsPanel_Type(19) As Control.Heads.HeadTypes - ' _ - 'Public Property HeadsPanel_Type() As Control.Heads.HeadTypes() - ' Get - ' Return Me._HeadsPanel_Type - ' End Get - ' Set(ByVal value As Control.Heads.HeadTypes()) - ' Me._HeadsPanel_Type = value - ' End Set - 'End Property - - Private _OpPanel_FollowCnc As Boolean - - Public Property OpPanel_FollowCnc() As Boolean - Get - Return Me._OpPanel_FollowCnc - End Get - Set(ByVal value As Boolean) - Me._OpPanel_FollowCnc = value - End Set - End Property - - Private _OpPanel_ScreenSize As Size = New Size(0, 0) - - Public Property OpPanel_ScreenSize() As Size - Get - Return Me._OpPanel_ScreenSize - End Get - Set(ByVal value As Size) - Me._OpPanel_ScreenSize = value - End Set - End Property - - Private _OpPanel_ForcedScreenSize As Boolean = False - - Public Property OpPanel_ForcedScreenSize() As Boolean - Get - Return Me._OpPanel_ForcedScreenSize - End Get - Set(ByVal value As Boolean) - Me._OpPanel_ForcedScreenSize = value - End Set - End Property - - Private _DefaultFont As Font - - Public Property DefaultFont() As Font - Get - Return Me._DefaultFont - End Get - Set(ByVal value As Font) - Me._DefaultFont = value - End Set - End Property - - Private _TcpSocket_Ip As String = "192.168.139.100" - - Public Property TcpSocket_Ip() As String - Get - Return Me._TcpSocket_Ip - End Get - Set(ByVal value As String) - Me._TcpSocket_Ip = value - End Set - End Property - - Private _TcpSocket_Port As Integer = 4999 - - Public Property TcpSocket_Port() As Integer - Get - Return Me._TcpSocket_Port - End Get - Set(ByVal value As Integer) - Me._TcpSocket_Port = value - End Set - End Property - Private _ToolTable_Remote As Boolean = False - - Public Property ToolTable_Remote() As Boolean - Get - Return Me._ToolTable_Remote - End Get - Set(ByVal value As Boolean) - Me._ToolTable_Remote = value - End Set - End Property - Private _ToolTable_Path(MAX_NUM_TOOLTABLE_PATH) As String - - Public Property ToolTable_Path() As String() - Get - Return Me._ToolTable_Path - End Get - Set(ByVal value As String()) - Me._ToolTable_Path = value - End Set - End Property - Private _ToolTable_Descr(MAX_NUM_TOOLTABLE_PATH) As String - - Public Property ToolTable_Descr() As String() - Get - Return Me._ToolTable_Descr - End Get - Set(ByVal value As String()) - Me._ToolTable_Descr = value - End Set - End Property - Private _ToolTable_CountPaths As Integer = 0 - - Public Property ToolTable_CountPaths() As Integer - Get - Return Me._ToolTable_CountPaths - End Get - Set(ByVal value As Integer) - Me._ToolTable_CountPaths = value - End Set - End Property - - - - - - End Class - - End Class -End Namespace diff --git a/IOB-WIN/CncLib/ExtLib/Siemens.Sinumerik.Operate.Services.Wrapper.dll b/IOB-WIN/CncLib/ExtLib/Siemens.Sinumerik.Operate.Services.Wrapper.dll deleted file mode 100644 index b8d54cf..0000000 Binary files a/IOB-WIN/CncLib/ExtLib/Siemens.Sinumerik.Operate.Services.Wrapper.dll and /dev/null differ diff --git a/IOB-WIN/CncLib/ExtLib/Siemens.Sinumerik.Operate.Services.dll b/IOB-WIN/CncLib/ExtLib/Siemens.Sinumerik.Operate.Services.dll deleted file mode 100644 index f00469d..0000000 Binary files a/IOB-WIN/CncLib/ExtLib/Siemens.Sinumerik.Operate.Services.dll and /dev/null differ diff --git a/IOB-WIN/CncLib/Modules/Conversions.vb b/IOB-WIN/CncLib/Modules/Conversions.vb deleted file mode 100644 index c1d2990..0000000 --- a/IOB-WIN/CncLib/Modules/Conversions.vb +++ /dev/null @@ -1,167 +0,0 @@ -Option Explicit On - -Module Conversions - - Private Const OFFSET_2 = 65536 - Private Const MAXINT_2 = 32767 - Private Const OFFSET_4 = 4294967296 - Private Const MAXINT_4 = 2147483647 - - Function UnsignedToShort(ByVal Value As UShort) As Short - If Value <= MAXINT_2 Then - UnsignedToShort = Value - Else - UnsignedToShort = Value - OFFSET_2 - End If - End Function - - Function ShortToUnsigned(ByVal Value As Short) As UShort - If Value < 0 Then - ShortToUnsigned = Value + OFFSET_2 - Else - ShortToUnsigned = Value - End If - End Function - - Function UnsignedToInteger(ByVal Value As UInteger) As Integer - If Value <= MAXINT_4 Then - UnsignedToInteger = Value - Else - UnsignedToInteger = Value - OFFSET_4 - End If - End Function - - Function IntegerToUnsigned(ByVal Value As Integer) As UInteger - If Value < 0 Then - IntegerToUnsigned = Value + OFFSET_4 - Else - IntegerToUnsigned = Value - End If - End Function - - 'prende solo la parte positiva, se no 0 - Function LongToUInt(ByVal Value As Long) As UInteger - If Value < 0 Then - LongToUInt = 0 - Else - LongToUInt = CUInt(Value) - End If - End Function - - - 'Public Function WordToByte(ByVal Word As Int16, ByVal LevelByte As Byte) As Byte - ' Dim szTmp As String - - ' szTmp = Hex(Word) - - ' While Len(szTmp) < 4 - ' szTmp = "0" & szTmp - ' End While - - ' If LevelByte = LOW_ORDER Then - ' WordToByte = Val("&h" & Mid(szTmp, 3, 2)) - ' ElseIf LevelByte = HIGH_ORDER Then - ' WordToByte = Val("&h" & Mid(szTmp, 1, 2)) - ' End If - 'End Function - - Public Function WordToByte(ByVal Word As UInt16, ByVal LevelByte As Byte) As Byte - Dim Value() As Byte = BitConverter.GetBytes(Word) - WordToByte = Value(LevelByte) - End Function - - Public Function ShortToByte(ByVal [Short] As Int16, ByVal LevelByte As Byte) As Byte - Dim Value() As Byte = BitConverter.GetBytes([Short]) - ShortToByte = Value(LevelByte) - End Function - - Public Function ByteToWord(ByVal LowOrderByte As Byte, ByVal HighOrderByte As Byte) As UInt16 - Dim Value() As Byte = {LowOrderByte, HighOrderByte} - ByteToWord = BitConverter.ToUInt16(Value, 0) - End Function - - Public Function ByteToShort(ByVal LowOrderByte As Byte, ByVal HighOrderByte As Byte) As Int16 - Dim Value() As Byte = {LowOrderByte, HighOrderByte} - ByteToShort = BitConverter.ToInt16(Value, 0) - End Function - - Public Function UIntegerToSingle(ByVal [UInteger] As UInt32) As Single - Dim Value() As Byte = BitConverter.GetBytes([UInteger]) - UIntegerToSingle = BitConverter.ToSingle(Value, 0) - End Function - - Public Function SingleToUInteger(ByVal [Single] As Single) As UInt32 - Dim Value() As Byte = BitConverter.GetBytes([Single]) - SingleToUInteger = BitConverter.ToUInt32(Value, 0) - End Function - - - Public Function DWordToWord(ByVal DWord As UInt32, ByVal LevelWord As Byte) As UInt16 - Dim Value() As Byte = BitConverter.GetBytes(DWord) - DWordToWord = ByteToWord(Value(0 + 2 * LevelWord), Value(1 + 2 * LevelWord)) - End Function - - Public Function DWordToShort(ByVal DWord As UInt32, ByVal LevelWord As Byte) As Int16 - Dim Value() As Byte = BitConverter.GetBytes(DWord) - DWordToShort = ByteToShort(Value(0 + 2 * LevelWord), Value(1 + 2 * LevelWord)) - End Function - - Public Function IntegerToWord(ByVal [Integer] As Int32, ByVal LevelWord As Byte) As UInt16 - Dim Value() As Byte = BitConverter.GetBytes([Integer]) - IntegerToWord = ByteToWord(Value(0 + 2 * LevelWord), Value(1 + 2 * LevelWord)) - End Function - - Public Function IntegerToShort(ByVal [Integer] As Int32, ByVal LevelWord As Byte) As Int16 - Dim Value() As Byte = BitConverter.GetBytes([Integer]) - IntegerToShort = ByteToShort(Value(0 + 2 * LevelWord), Value(1 + 2 * LevelWord)) - End Function - - - Public Function WordsToDWord(ByVal LowOrderWord As UInt16, ByVal HighOrderWord As UInt16) As UInt32 - Dim ValueLow() As Byte = BitConverter.GetBytes(LowOrderWord) - Dim ValueHigh() As Byte = BitConverter.GetBytes(HighOrderWord) - Dim Value() As Byte = {ValueLow(0), ValueLow(1), ValueHigh(0), ValueHigh(1)} - WordsToDWord = BitConverter.ToUInt32(Value, 0) - End Function - - Public Function WordsToInteger(ByVal LowOrderWord As UInt16, ByVal HighOrderWord As UInt16) As Int32 - Dim ValueLow() As Byte = BitConverter.GetBytes(LowOrderWord) - Dim ValueHigh() As Byte = BitConverter.GetBytes(HighOrderWord) - Dim Value() As Byte = {ValueLow(0), ValueLow(1), ValueHigh(0), ValueHigh(1)} - WordsToInteger = BitConverter.ToInt32(Value, 0) - End Function - - Public Function ShortsToDWord(ByVal LowOrderShort As Int16, ByVal HighOrderShort As Int16) As UInt32 - Dim ValueLow() As Byte = BitConverter.GetBytes(LowOrderShort) - Dim ValueHigh() As Byte = BitConverter.GetBytes(HighOrderShort) - Dim Value() As Byte = {ValueLow(0), ValueLow(1), ValueHigh(0), ValueHigh(1)} - ShortsToDWord = BitConverter.ToUInt32(Value, 0) - End Function - - Public Function ShortsToInteger(ByVal LowOrderShort As Int16, ByVal HighOrderShort As Int16) As Int32 - Dim ValueLow() As Byte = BitConverter.GetBytes(LowOrderShort) - Dim ValueHigh() As Byte = BitConverter.GetBytes(HighOrderShort) - Dim Value() As Byte = {ValueLow(0), ValueLow(1), ValueHigh(0), ValueHigh(1)} - ShortsToInteger = BitConverter.ToInt32(Value, 0) - End Function - - - Function ArraysEqual(ByVal first As Int16(), ByVal second As Int16()) As Boolean - If (first Is second) Then - Return True - End If - If (first Is Nothing OrElse second Is Nothing) Then - Return False - End If - If (first.Length <> second.Length) Then - Return False - End If - For i As Integer = 0 To first.Length - 1 - If (first(i) <> second(i)) Then - Return False - End If - Next i - Return True - End Function - -End Module diff --git a/IOB-WIN/CncLib/Modules/General.vb b/IOB-WIN/CncLib/Modules/General.vb deleted file mode 100644 index 2cc30ad..0000000 --- a/IOB-WIN/CncLib/Modules/General.vb +++ /dev/null @@ -1,83 +0,0 @@ -Module General - - Public Const MASK_BIT0 = &H1& - Public Const MASK_BIT1 = &H2& - Public Const MASK_BIT2 = &H4& - Public Const MASK_BIT3 = &H8& - Public Const MASK_BIT4 = &H10& - Public Const MASK_BIT5 = &H20& - Public Const MASK_BIT6 = &H40& - Public Const MASK_BIT7 = &H80& - Public Const MASK_BIT8 = &H100& - Public Const MASK_BIT9 = &H200& - Public Const MASK_BIT10 = &H400& - Public Const MASK_BIT11 = &H800& - Public Const MASK_BIT12 = &H1000& - Public Const MASK_BIT13 = &H2000& - Public Const MASK_BIT14 = &H4000& - Public Const MASK_BIT15 = &H8000& - - Public Const LOW_ORDER = 0 - Public Const HIGH_ORDER = 1 - - 'Costanti globali - Public Const NC_DEMO = 0 - Public Const NC_FANUC = 1 - Public Const NC_OSAI = 2 - Public Const NC_SIEMENS = 3 - - Public Const HSSB_DEFAULT_NODE = 0 - - Public Const MEM_BOOL = 1 - Public Const MEM_BYTE = 2 - Public Const MEM_WORD = 3 - Public Const MEM_INT = 4 - Public Const MEM_DWORD = 5 - Public Const MEM_DINT = 6 - Public Const MEM_SINGLE = 7 - Public Const MEM_DOUBLE = 8 - - Public Const MEM_F_R = 5 - Public Const MEM_F_D = 9 - - Public Const MEM_S_DB = 0 - Public Const MEM_S_M = -1 - Public Const MEM_S_R = -2 - Public Const MEM_S_E = -3 - Public Const MEM_S_A = -4 - - 'Variabili globali - 'Public nDebug As Integer - 'Public szLanguage As String - 'Public nTypeNC As Integer - - 'Fanuc - 'Public bHssb As Boolean - Public Hssb_node As Long - 'Public szIpFanuc As String - 'Public nPortIpFanuc As Integer - ''Public nReturn As Integer - 'Public bSerie30 As Boolean - 'Public bMultiProcess As Boolean - - 'Osai - 'Public szNcName As String 'Nome del CN in rete - - Public nTop As Integer - Public nLeft As Integer - Public nHeight As Integer - Public nWidth As Integer - - - ''' - ''' Sostituisce il carattere | con un carattere speciale di ritorno a capo - ''' - Public Function ReplaceNewLine(ByVal strWord As String) As String - Dim strModifiedWord As String = strWord - - strModifiedWord = strModifiedWord.Replace("|", vbNewLine) - - Return strModifiedWord - End Function - -End Module diff --git a/IOB-WIN/CncLib/My Project/Application.Designer.vb b/IOB-WIN/CncLib/My Project/Application.Designer.vb deleted file mode 100644 index d3e75b8..0000000 --- a/IOB-WIN/CncLib/My Project/Application.Designer.vb +++ /dev/null @@ -1,13 +0,0 @@ -'------------------------------------------------------------------------------ -' -' Il codice è stato generato da uno strumento. -' Versione runtime:4.0.30319.42000 -' -' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se -' il codice viene rigenerato. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - diff --git a/IOB-WIN/CncLib/My Project/Application.myapp b/IOB-WIN/CncLib/My Project/Application.myapp deleted file mode 100644 index 758895d..0000000 --- a/IOB-WIN/CncLib/My Project/Application.myapp +++ /dev/null @@ -1,10 +0,0 @@ - - - false - false - 0 - true - 0 - 1 - true - diff --git a/IOB-WIN/CncLib/My Project/AssemblyInfo.vb b/IOB-WIN/CncLib/My Project/AssemblyInfo.vb deleted file mode 100644 index ff9228a..0000000 --- a/IOB-WIN/CncLib/My Project/AssemblyInfo.vb +++ /dev/null @@ -1,24 +0,0 @@ -Imports System -Imports System.Reflection -Imports System.Runtime.InteropServices - -' General Information about an assembly is controlled through the following -' set of attributes. Change these attribute values to modify the information -' associated with an assembly. - -' Review the values of the assembly attributes - - - - - - - - - - -'The following GUID is for the ID of the typelib if this project is exposed to COM - - - - diff --git a/IOB-WIN/CncLib/My Project/Resources.Designer.vb b/IOB-WIN/CncLib/My Project/Resources.Designer.vb deleted file mode 100644 index 4ebee5f..0000000 --- a/IOB-WIN/CncLib/My Project/Resources.Designer.vb +++ /dev/null @@ -1,63 +0,0 @@ -'------------------------------------------------------------------------------ -' -' Il codice è stato generato da uno strumento. -' Versione runtime:4.0.30319.42000 -' -' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se -' il codice viene rigenerato. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - -Imports System - -Namespace My.Resources - - 'Questa classe è stata generata automaticamente dalla classe StronglyTypedResourceBuilder. - 'tramite uno strumento quale ResGen o Visual Studio. - 'Per aggiungere o rimuovere un membro, modificare il file con estensione ResX ed eseguire nuovamente ResGen - 'con l'opzione /str oppure ricompilare il progetto VS. - ''' - ''' Classe di risorse fortemente tipizzata per la ricerca di stringhe localizzate e così via. - ''' - _ - Friend Module Resources - - Private resourceMan As Global.System.Resources.ResourceManager - - Private resourceCulture As Global.System.Globalization.CultureInfo - - ''' - ''' Restituisce l'istanza di ResourceManager nella cache utilizzata da questa classe. - ''' - _ - Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager - Get - If Object.ReferenceEquals(resourceMan, Nothing) Then - Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("CncLib.Resources", GetType(Resources).Assembly) - resourceMan = temp - End If - Return resourceMan - End Get - End Property - - ''' - ''' Esegue l'override della proprietà CurrentUICulture del thread corrente per tutte le - ''' ricerche di risorse eseguite utilizzando questa classe di risorse fortemente tipizzata. - ''' - _ - Friend Property Culture() As Global.System.Globalization.CultureInfo - Get - Return resourceCulture - End Get - Set - resourceCulture = value - End Set - End Property - End Module -End Namespace diff --git a/IOB-WIN/CncLib/My Project/Resources.resx b/IOB-WIN/CncLib/My Project/Resources.resx deleted file mode 100644 index af7dbeb..0000000 --- a/IOB-WIN/CncLib/My Project/Resources.resx +++ /dev/null @@ -1,117 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - \ No newline at end of file diff --git a/IOB-WIN/CncLib/My Project/Settings.Designer.vb b/IOB-WIN/CncLib/My Project/Settings.Designer.vb deleted file mode 100644 index d0ef8ed..0000000 --- a/IOB-WIN/CncLib/My Project/Settings.Designer.vb +++ /dev/null @@ -1,73 +0,0 @@ -'------------------------------------------------------------------------------ -' -' Il codice è stato generato da uno strumento. -' Versione runtime:4.0.30319.42000 -' -' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se -' il codice viene rigenerato. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - - -Namespace My - - _ - Partial Friend NotInheritable Class MySettings - Inherits Global.System.Configuration.ApplicationSettingsBase - - Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) - -#Region "Funzionalità di salvataggio automatico My.Settings" -#If _MyType = "WindowsForms" Then - Private Shared addedHandler As Boolean - - Private Shared addedHandlerLockObject As New Object - - _ - Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) - If My.Application.SaveMySettingsOnExit Then - My.Settings.Save() - End If - End Sub -#End If -#End Region - - Public Shared ReadOnly Property [Default]() As MySettings - Get - -#If _MyType = "WindowsForms" Then - If Not addedHandler Then - SyncLock addedHandlerLockObject - If Not addedHandler Then - AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings - addedHandler = True - End If - End SyncLock - End If -#End If - Return defaultInstance - End Get - End Property - End Class -End Namespace - -Namespace My - - _ - Friend Module MySettingsProperty - - _ - Friend ReadOnly Property Settings() As Global.CncLib.My.MySettings - Get - Return Global.CncLib.My.MySettings.Default - End Get - End Property - End Module -End Namespace diff --git a/IOB-WIN/CncLib/My Project/Settings.settings b/IOB-WIN/CncLib/My Project/Settings.settings deleted file mode 100644 index 85b890b..0000000 --- a/IOB-WIN/CncLib/My Project/Settings.settings +++ /dev/null @@ -1,7 +0,0 @@ - - - - - - - diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.AxesRefR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.AxesRefR.datasource deleted file mode 100644 index 134d5b6..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.AxesRefR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.AxesRefR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.BootModeR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.BootModeR.datasource deleted file mode 100644 index 9b19934..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.BootModeR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.BootModeR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.BootPhaseEnquiryR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.BootPhaseEnquiryR.datasource deleted file mode 100644 index 2a60c95..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.BootPhaseEnquiryR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.BootPhaseEnquiryR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.BootRebootR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.BootRebootR.datasource deleted file mode 100644 index f91f85d..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.BootRebootR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.BootRebootR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.BootShutDownR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.BootShutDownR.datasource deleted file mode 100644 index 733b8ae..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.BootShutDownR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.BootShutDownR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.CheckHistoryR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.CheckHistoryR.datasource deleted file mode 100644 index 0b67a4f..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.CheckHistoryR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.CheckHistoryR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.CycleR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.CycleR.datasource deleted file mode 100644 index 24d552d..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.CycleR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.CycleR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.DncDataR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.DncDataR.datasource deleted file mode 100644 index d128e24..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.DncDataR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.DncDataR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.DncEofR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.DncEofR.datasource deleted file mode 100644 index d16a2cb..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.DncEofR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.DncEofR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.DncInitR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.DncInitR.datasource deleted file mode 100644 index 14fc008..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.DncInitR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.DncInitR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.DncStopR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.DncStopR.datasource deleted file mode 100644 index 325698c..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.DncStopR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.DncStopR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.EseExR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.EseExR.datasource deleted file mode 100644 index 3561e47..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.EseExR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.EseExR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.EseR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.EseR.datasource deleted file mode 100644 index 465cd84..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.EseR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.EseR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ExeR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ExeR.datasource deleted file mode 100644 index 495ddc2..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ExeR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.ExeR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetActivePartProgramR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetActivePartProgramR.datasource deleted file mode 100644 index 2f7f881..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetActivePartProgramR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetActivePartProgramR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetAvailableCustomEventsR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetAvailableCustomEventsR.datasource deleted file mode 100644 index 77bea45..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetAvailableCustomEventsR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetAvailableCustomEventsR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetAxOriginNumR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetAxOriginNumR.datasource deleted file mode 100644 index cda2aff..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetAxOriginNumR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetAxOriginNumR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetAxesInfo3R.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetAxesInfo3R.datasource deleted file mode 100644 index aff3288..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetAxesInfo3R.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetAxesInfo3R, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetAxesPositionR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetAxesPositionR.datasource deleted file mode 100644 index 55c48d2..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetAxesPositionR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetAxesPositionR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetBinaryFileR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetBinaryFileR.datasource deleted file mode 100644 index dd8f56c..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetBinaryFileR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetBinaryFileR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetBlkNumR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetBlkNumR.datasource deleted file mode 100644 index febe9bb..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetBlkNumR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetBlkNumR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetCNCRegKeyR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetCNCRegKeyR.datasource deleted file mode 100644 index 24d9ab9..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetCNCRegKeyR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetCNCRegKeyR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetCodeNumberR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetCodeNumberR.datasource deleted file mode 100644 index a212331..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetCodeNumberR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetCodeNumberR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetDateTimeR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetDateTimeR.datasource deleted file mode 100644 index d0e3680..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetDateTimeR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetDateTimeR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetFileR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetFileR.datasource deleted file mode 100644 index 00b7466..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetFileR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetFileR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetGCodeR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetGCodeR.datasource deleted file mode 100644 index ab62a0b..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetGCodeR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetGCodeR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetHWKeyR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetHWKeyR.datasource deleted file mode 100644 index 842dc6a..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetHWKeyR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetHWKeyR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetMCodeR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetMCodeR.datasource deleted file mode 100644 index a862dac..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetMCodeR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetMCodeR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetMarkerInfoR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetMarkerInfoR.datasource deleted file mode 100644 index 5d5eb7c..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetMarkerInfoR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetMarkerInfoR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetNcInfo1R.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetNcInfo1R.datasource deleted file mode 100644 index bc221bd..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetNcInfo1R.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetNcInfo1R, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetNcInfo2R.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetNcInfo2R.datasource deleted file mode 100644 index a6a30fc..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetNcInfo2R.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetNcInfo2R, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetOffsetTabRecordIIR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetOffsetTabRecordIIR.datasource deleted file mode 100644 index 19c4861..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetOffsetTabRecordIIR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetOffsetTabRecordIIR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetOptionsR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetOptionsR.datasource deleted file mode 100644 index 735995e..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetOptionsR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetOptionsR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetOriginTabRecordIIR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetOriginTabRecordIIR.datasource deleted file mode 100644 index 2d471b9..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetOriginTabRecordIIR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetOriginTabRecordIIR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetPTechSizesR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetPTechSizesR.datasource deleted file mode 100644 index 1d28a02..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetPTechSizesR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetPTechSizesR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetPartProgramLinesR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetPartProgramLinesR.datasource deleted file mode 100644 index 942bbb8..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetPartProgramLinesR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetPartProgramLinesR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcInInputR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcInInputR.datasource deleted file mode 100644 index 3e7315c..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcInInputR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetProcInInputR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcVarDoubleR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcVarDoubleR.datasource deleted file mode 100644 index 577eb4b..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcVarDoubleR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetProcVarDoubleR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcVarWordR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcVarWordR.datasource deleted file mode 100644 index 552bb43..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcVarWordR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetProcVarWordR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcessConfNumR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcessConfNumR.datasource deleted file mode 100644 index ff66c73..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcessConfNumR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetProcessConfNumR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcessStatusR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcessStatusR.datasource deleted file mode 100644 index 5a1574c..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcessStatusR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetProcessStatusR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetSelectedProcessR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetSelectedProcessR.datasource deleted file mode 100644 index 57da0a6..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetSelectedProcessR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetSelectedProcessR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetSerialNumberR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetSerialNumberR.datasource deleted file mode 100644 index f8b7d4d..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetSerialNumberR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetSerialNumberR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetServoParR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetServoParR.datasource deleted file mode 100644 index 409f6ec..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetServoParR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetServoParR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetSysTickR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetSysTickR.datasource deleted file mode 100644 index dd0bc44..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetSysTickR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetSysTickR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetToolNamesR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetToolNamesR.datasource deleted file mode 100644 index f2605e3..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetToolNamesR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetToolNamesR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetToolTabRecordIIR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetToolTabRecordIIR.datasource deleted file mode 100644 index aab7ab0..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetToolTabRecordIIR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetToolTabRecordIIR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetUserTabRecordIIR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetUserTabRecordIIR.datasource deleted file mode 100644 index b5fc2ee..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetUserTabRecordIIR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetUserTabRecordIIR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetVarJOGR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetVarJOGR.datasource deleted file mode 100644 index b3efd6b..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetVarJOGR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetVarJOGR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetVarRCMR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetVarRCMR.datasource deleted file mode 100644 index 8c48f71..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetVarRCMR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.GetVarRCMR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.HoldR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.HoldR.datasource deleted file mode 100644 index 7363787..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.HoldR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.HoldR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LoadPTechR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LoadPTechR.datasource deleted file mode 100644 index 7d7331c..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LoadPTechR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LoadPTechR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LockTableIIR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LockTableIIR.datasource deleted file mode 100644 index 19663ce..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LockTableIIR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LockTableIIR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSAddDriveR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSAddDriveR.datasource deleted file mode 100644 index 0f06a98..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSAddDriveR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LogFSAddDriveR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSChangeFileAttribR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSChangeFileAttribR.datasource deleted file mode 100644 index 2be5fd2..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSChangeFileAttribR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LogFSChangeFileAttribR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSCloseFileR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSCloseFileR.datasource deleted file mode 100644 index b730416..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSCloseFileR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LogFSCloseFileR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSCopyFileR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSCopyFileR.datasource deleted file mode 100644 index bcda452..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSCopyFileR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LogFSCopyFileR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSCreateDirR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSCreateDirR.datasource deleted file mode 100644 index c44f463..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSCreateDirR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LogFSCreateDirR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSCreateFileR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSCreateFileR.datasource deleted file mode 100644 index 65e7df5..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSCreateFileR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LogFSCreateFileR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSFindCloseR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSFindCloseR.datasource deleted file mode 100644 index adc9027..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSFindCloseR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LogFSFindCloseR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSFindFirstR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSFindFirstR.datasource deleted file mode 100644 index e6bc4fd..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSFindFirstR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LogFSFindFirstR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSFindNextR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSFindNextR.datasource deleted file mode 100644 index d9482e0..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSFindNextR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LogFSFindNextR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetDriveListR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetDriveListR.datasource deleted file mode 100644 index ce158c7..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetDriveListR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LogFSGetDriveListR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetDrivePathR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetDrivePathR.datasource deleted file mode 100644 index 012cf93..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetDrivePathR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LogFSGetDrivePathR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetFileAttribR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetFileAttribR.datasource deleted file mode 100644 index 5b67525..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetFileAttribR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LogFSGetFileAttribR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetFileSizeR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetFileSizeR.datasource deleted file mode 100644 index 63c9d23..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetFileSizeR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LogFSGetFileSizeR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetHiddenDriveListR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetHiddenDriveListR.datasource deleted file mode 100644 index 0da3fb5..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetHiddenDriveListR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LogFSGetHiddenDriveListR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetInfoR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetInfoR.datasource deleted file mode 100644 index f3e4849..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetInfoR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LogFSGetInfoR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetNumDriveR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetNumDriveR.datasource deleted file mode 100644 index 61e2514..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetNumDriveR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LogFSGetNumDriveR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetSecurityLevelR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetSecurityLevelR.datasource deleted file mode 100644 index f8a2264..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetSecurityLevelR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LogFSGetSecurityLevelR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSLongFileNamesR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSLongFileNamesR.datasource deleted file mode 100644 index b9b0bea..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSLongFileNamesR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LogFSLongFileNamesR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSOpenFileR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSOpenFileR.datasource deleted file mode 100644 index e79bc94..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSOpenFileR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LogFSOpenFileR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSReadRecordR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSReadRecordR.datasource deleted file mode 100644 index bac7b1d..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSReadRecordR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LogFSReadRecordR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSReloadDriveListR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSReloadDriveListR.datasource deleted file mode 100644 index 8286c90..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSReloadDriveListR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LogFSReloadDriveListR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSRemoveDirR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSRemoveDirR.datasource deleted file mode 100644 index 5f92152..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSRemoveDirR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LogFSRemoveDirR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSRemoveDriveR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSRemoveDriveR.datasource deleted file mode 100644 index a80664f..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSRemoveDriveR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LogFSRemoveDriveR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSRemoveFileR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSRemoveFileR.datasource deleted file mode 100644 index c8ff9c6..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSRemoveFileR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LogFSRemoveFileR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSRenameR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSRenameR.datasource deleted file mode 100644 index 6d2ee4a..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSRenameR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LogFSRenameR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSSetFileAttribR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSSetFileAttribR.datasource deleted file mode 100644 index 377c20a..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSSetFileAttribR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LogFSSetFileAttribR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSSetSecurityLevelR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSSetSecurityLevelR.datasource deleted file mode 100644 index 93b662d..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSSetSecurityLevelR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LogFSSetSecurityLevelR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSWriteRecordR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSWriteRecordR.datasource deleted file mode 100644 index f82734a..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSWriteRecordR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.LogFSWriteRecordR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ManagePartProgramR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ManagePartProgramR.datasource deleted file mode 100644 index e79f5a7..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ManagePartProgramR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.ManagePartProgramR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonAddVariableR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonAddVariableR.datasource deleted file mode 100644 index 1bd7841..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonAddVariableR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.MonAddVariableR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonCloseChannelR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonCloseChannelR.datasource deleted file mode 100644 index 5a5483a..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonCloseChannelR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.MonCloseChannelR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonDeleteVariableR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonDeleteVariableR.datasource deleted file mode 100644 index b464d87..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonDeleteVariableR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.MonDeleteVariableR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonGetVariableR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonGetVariableR.datasource deleted file mode 100644 index 0af43f3..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonGetVariableR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.MonGetVariableR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonOpenChannelR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonOpenChannelR.datasource deleted file mode 100644 index 3d1c719..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonOpenChannelR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.MonOpenChannelR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonStartSamplingR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonStartSamplingR.datasource deleted file mode 100644 index 0f7dc81..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonStartSamplingR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.MonStartSamplingR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonStopSamplingR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonStopSamplingR.datasource deleted file mode 100644 index 3ff00c1..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonStopSamplingR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.MonStopSamplingR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.PutBinaryFileR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.PutBinaryFileR.datasource deleted file mode 100644 index 3df1622..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.PutBinaryFileR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.PutBinaryFileR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.PutFileR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.PutFileR.datasource deleted file mode 100644 index c8cf739..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.PutFileR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.PutFileR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadCurrentAnomalyMsgR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadCurrentAnomalyMsgR.datasource deleted file mode 100644 index 929e87a..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadCurrentAnomalyMsgR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.ReadCurrentAnomalyMsgR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadCurrentEmergMsgR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadCurrentEmergMsgR.datasource deleted file mode 100644 index 43fcfa0..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadCurrentEmergMsgR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.ReadCurrentEmergMsgR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadCurrentErrorMsgR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadCurrentErrorMsgR.datasource deleted file mode 100644 index f864ff1..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadCurrentErrorMsgR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.ReadCurrentErrorMsgR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadErrMsgR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadErrMsgR.datasource deleted file mode 100644 index df92838..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadErrMsgR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.ReadErrMsgR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadHistoryAnomalyMsgR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadHistoryAnomalyMsgR.datasource deleted file mode 100644 index 3d328d3..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadHistoryAnomalyMsgR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.ReadHistoryAnomalyMsgR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadHistoryEmergMsgR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadHistoryEmergMsgR.datasource deleted file mode 100644 index a5e813a..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadHistoryEmergMsgR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.ReadHistoryEmergMsgR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadHistoryErrorMsgR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadHistoryErrorMsgR.datasource deleted file mode 100644 index 7b023c0..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadHistoryErrorMsgR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.ReadHistoryErrorMsgR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadHistoryLogMsgR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadHistoryLogMsgR.datasource deleted file mode 100644 index 2a1b5a7..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadHistoryLogMsgR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.ReadHistoryLogMsgR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadPartProgramMsgR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadPartProgramMsgR.datasource deleted file mode 100644 index 7555cbc..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadPartProgramMsgR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.ReadPartProgramMsgR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadRemapDefinitionsR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadRemapDefinitionsR.datasource deleted file mode 100644 index d48b0aa..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadRemapDefinitionsR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.ReadRemapDefinitionsR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadVarDoubleR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadVarDoubleR.datasource deleted file mode 100644 index 64e22df..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadVarDoubleR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.ReadVarDoubleR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadVarTextR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadVarTextR.datasource deleted file mode 100644 index 57b521e..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadVarTextR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.ReadVarTextR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadVarWordR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadVarWordR.datasource deleted file mode 100644 index fb6112b..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadVarWordR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.ReadVarWordR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadWarningMsgR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadWarningMsgR.datasource deleted file mode 100644 index c30a72c..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadWarningMsgR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.ReadWarningMsgR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ResetR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ResetR.datasource deleted file mode 100644 index b3fa2aa..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ResetR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.ResetR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ResetSingleTableIIR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ResetSingleTableIIR.datasource deleted file mode 100644 index 253a86c..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ResetSingleTableIIR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.ResetSingleTableIIR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.RestoreBackupMemoryR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.RestoreBackupMemoryR.datasource deleted file mode 100644 index 26e9e46..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.RestoreBackupMemoryR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.RestoreBackupMemoryR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.RestoreSingleTableR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.RestoreSingleTableR.datasource deleted file mode 100644 index 9068e37..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.RestoreSingleTableR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.RestoreSingleTableR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SaveBackupMemoryR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SaveBackupMemoryR.datasource deleted file mode 100644 index 5e8d8c8..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SaveBackupMemoryR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SaveBackupMemoryR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SaveSingleTableR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SaveSingleTableR.datasource deleted file mode 100644 index 235c6b3..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SaveSingleTableR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SaveSingleTableR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SaveTablesR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SaveTablesR.datasource deleted file mode 100644 index 6ebe90b..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SaveTablesR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SaveTablesR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SelectPartProgramFromDriveR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SelectPartProgramFromDriveR.datasource deleted file mode 100644 index a73efda..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SelectPartProgramFromDriveR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SelectPartProgramFromDriveR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SelectPartProgramR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SelectPartProgramR.datasource deleted file mode 100644 index 07b3ce1..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SelectPartProgramR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SelectPartProgramR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SelectProcAxisR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SelectProcAxisR.datasource deleted file mode 100644 index 6f63933..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SelectProcAxisR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SelectProcAxisR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SelectProcessR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SelectProcessR.datasource deleted file mode 100644 index 20b58cb..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SelectProcessR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SelectProcessR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetDateTimeR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetDateTimeR.datasource deleted file mode 100644 index 736ce12..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetDateTimeR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SetDateTimeR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetFeedManOverR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetFeedManOverR.datasource deleted file mode 100644 index 8104d01..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetFeedManOverR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SetFeedManOverR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetFeedRapidOverR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetFeedRapidOverR.datasource deleted file mode 100644 index 5af90c9..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetFeedRapidOverR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SetFeedRapidOverR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetFeedRateOverR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetFeedRateOverR.datasource deleted file mode 100644 index 6af2261..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetFeedRateOverR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SetFeedRateOverR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetIpAddressR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetIpAddressR.datasource deleted file mode 100644 index 720042a..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetIpAddressR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SetIpAddressR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetManMovDirectionR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetManMovDirectionR.datasource deleted file mode 100644 index 94e38d3..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetManMovDirectionR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SetManMovDirectionR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetMdiStringR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetMdiStringR.datasource deleted file mode 100644 index edc5087..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetMdiStringR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SetMdiStringR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetOffsetTabRecordIIR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetOffsetTabRecordIIR.datasource deleted file mode 100644 index 8279516..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetOffsetTabRecordIIR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SetOffsetTabRecordIIR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetOriginTabRecordIIR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetOriginTabRecordIIR.datasource deleted file mode 100644 index 86f619a..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetOriginTabRecordIIR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SetOriginTabRecordIIR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetProcVarDoubleR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetProcVarDoubleR.datasource deleted file mode 100644 index 46c0515..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetProcVarDoubleR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SetProcVarDoubleR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetProcVarWordR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetProcVarWordR.datasource deleted file mode 100644 index 0d80f3b..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetProcVarWordR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SetProcVarWordR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetProcessModeR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetProcessModeR.datasource deleted file mode 100644 index cfbb27f..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetProcessModeR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SetProcessModeR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetServoParR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetServoParR.datasource deleted file mode 100644 index cb5b64f..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetServoParR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SetServoParR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetSpeedRateOverR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetSpeedRateOverR.datasource deleted file mode 100644 index 825118d..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetSpeedRateOverR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SetSpeedRateOverR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetToolTabRecordIIR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetToolTabRecordIIR.datasource deleted file mode 100644 index c6f6a33..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetToolTabRecordIIR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SetToolTabRecordIIR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetUserTabRecordIIR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetUserTabRecordIIR.datasource deleted file mode 100644 index 4763b3f..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetUserTabRecordIIR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SetUserTabRecordIIR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetVarJOGR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetVarJOGR.datasource deleted file mode 100644 index 161609b..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetVarJOGR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SetVarJOGR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetVarRCMR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetVarRCMR.datasource deleted file mode 100644 index c9f6538..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetVarRCMR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SetVarRCMR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetVarUASR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetVarUASR.datasource deleted file mode 100644 index f4d0602..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetVarUASR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SetVarUASR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SkipPProgBlockR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SkipPProgBlockR.datasource deleted file mode 100644 index 3a6c166..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SkipPProgBlockR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SkipPProgBlockR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SndProcInpDataR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SndProcInpDataR.datasource deleted file mode 100644 index 307ec90..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SndProcInpDataR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SndProcInpDataR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SyncroCycleR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SyncroCycleR.datasource deleted file mode 100644 index 8b7d9f4..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SyncroCycleR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.SyncroCycleR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.UnLockTableIIR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.UnLockTableIIR.datasource deleted file mode 100644 index da8ec34..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.UnLockTableIIR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.UnLockTableIIR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteRemapDefinitionsR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteRemapDefinitionsR.datasource deleted file mode 100644 index f97364e..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteRemapDefinitionsR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.WriteRemapDefinitionsR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteVarDoubleR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteVarDoubleR.datasource deleted file mode 100644 index 46ed79a..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteVarDoubleR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.WriteVarDoubleR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteVarTextR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteVarTextR.datasource deleted file mode 100644 index d49288b..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteVarTextR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.WriteVarTextR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteVarWordBitR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteVarWordBitR.datasource deleted file mode 100644 index 0044aae..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteVarWordBitR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.WriteVarWordBitR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteVarWordR.datasource b/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteVarWordR.datasource deleted file mode 100644 index 059fb30..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteVarWordR.datasource +++ /dev/null @@ -1,10 +0,0 @@ - - - - CMSCncLib.OPENcontrol.WriteVarWordR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/OPENcontrol.wsdl b/IOB-WIN/CncLib/Service References/OPENcontrol/OPENcontrol.wsdl deleted file mode 100644 index 2e6478a..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/OPENcontrol.wsdl +++ /dev/null @@ -1,5895 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Service definition of function ns__BootPhaseEnquiry - - - - - Service definition of function ns__BootReboot - - - - - Service definition of function ns__BootShutDown - - - - - Service definition of function ns__BootMode - - - - - Service definition of function ns__GetHWKey - - - - - Service definition of function ns__ReadVarWord - - - - - Service definition of function ns__ReadVarDouble - - - - - Service definition of function ns__WriteVarWord - - - - - Service definition of function ns__WriteVarWordBit - - - - - Service definition of function ns__WriteVarDouble - - - - - Service definition of function ns__ReadVarText - - - - - Service definition of function ns__WriteVarText - - - - - Service definition of function ns__ReadWarningMsg - - - - - Service definition of function ns__ResetSingleTableII - - - - - Service definition of function ns__LockTableII - - - - - Service definition of function ns__UnLockTableII - - - - - Service definition of function ns__GetOriginTabRecordII - - - - - Service definition of function ns__SetOriginTabRecordII - - - - - Service definition of function ns__GetToolTabRecordII - - - - - Service definition of function ns__SetToolTabRecordII - - - - - Service definition of function ns__GetOffsetTabRecordII - - - - - Service definition of function ns__SetOffsetTabRecordII - - - - - Service definition of function ns__GetUserTabRecordII - - - - - Service definition of function ns__SetUserTabRecordII - - - - - Service definition of function ns__SaveTables - - - - - Service definition of function ns__RestoreSingleTable - - - - - Service definition of function ns__SaveSingleTable - - - - - Service definition of function ns__SaveBackupMemory - - - - - Service definition of function ns__RestoreBackupMemory - - - - - Service definition of function ns__Cycle - - - - - Service definition of function ns__SyncroCycle - - - - - Service definition of function ns__Reset - - - - - Service definition of function ns__Hold - - - - - Service definition of function ns__SetFeedManOver - - - - - Service definition of function ns__SetFeedRateOver - - - - - Service definition of function ns__SetFeedRapidOver - - - - - Service definition of function ns__SetSpeedRateOver - - - - - Service definition of function ns__SetManMovDirection - - - - - Service definition of function ns__GetVarJOG - - - - - Service definition of function ns__SetVarJOG - - - - - Service definition of function ns__SetVarUAS - - - - - Service definition of function ns__GetVarRCM - - - - - Service definition of function ns__SetVarRCM - - - - - Service definition of function ns__GetProcVarWord - - - - - Service definition of function ns__SetProcVarWord - - - - - Service definition of function ns__GetProcVarDouble - - - - - Service definition of function ns__SetProcVarDouble - - - - - Service definition of function ns__SetMdiString - - - - - Service definition of function ns__SetProcessMode - - - - - Service definition of function ns__SelectProcess - - - - - Service definition of function ns__GetSelectedProcess - - - - - Service definition of function ns__SelectProcAxis - - - - - Service definition of function ns__SelectPartProgram - - - - - Service definition of function ns__SelectPartProgramFromDrive - - - - - Service definition of function ns__GetActivePartProgram - - - - - Service definition of function ns__GetPartProgramLines - - - - - Service definition of function ns__GetAxOriginNum - - - - - Service definition of function ns__GetAxesPosition - - - - - Service definition of function ns__GetNcInfo1 - - - - - Service definition of function ns__GetNcInfo2 - - - - - Service definition of function ns__GetToolNames - - - - - Service definition of function ns__GetProcessStatus - - - - - Service definition of function ns__GetBlkNum - - - - - Service definition of function ns__ReadErrMsg - - - - - Service definition of function ns__ReadPartProgramMsg - - - - - Service definition of function ns__GetGCode - - - - - Service definition of function ns__GetMCode - - - - - Service definition of function ns__SkipPProgBlock - - - - - Service definition of function ns__Ese - - - - - Service definition of function ns__EseEx - - - - - Service definition of function ns__Exe - - - - - Service definition of function ns__AxesRef - - - - - Service definition of function ns__DncInit - - - - - Service definition of function ns__DncData - - - - - Service definition of function ns__DncEof - - - - - Service definition of function ns__DncStop - - - - - Service definition of function ns__GetAxesInfo3 - - - - - Service definition of function ns__GetCodeNumber - - - - - Service definition of function ns__GetOptions - - - - - Service definition of function ns__GetDateTime - - - - - Service definition of function ns__SetDateTime - - - - - Service definition of function ns__GetSerialNumber - - - - - Service definition of function ns__PutFile - - - - - Service definition of function ns__GetFile - - - - - Service definition of function ns__PutBinaryFile - - - - - Service definition of function ns__GetBinaryFile - - - - - Service definition of function ns__LogFSSetSecurityLevel - - - - - Service definition of function ns__LogFSGetSecurityLevel - - - - - Service definition of function ns__LogFSLongFileNames - - - - - Service definition of function ns__LogFSGetNumDrive - - - - - Service definition of function ns__LogFSGetDriveList - - - - - Service definition of function ns__LogFSGetHiddenDriveList - - - - - Service definition of function ns__LogFSGetDrivePath - - - - - Service definition of function ns__LogFSAddDrive - - - - - Service definition of function ns__LogFSRemoveDrive - - - - - Service definition of function ns__LogFSReloadDriveList - - - - - Service definition of function ns__LogFSCreateDir - - - - - Service definition of function ns__LogFSCreateFile - - - - - Service definition of function ns__LogFSGetFileSize - - - - - Service definition of function ns__LogFSGetFileAttrib - - - - - Service definition of function ns__LogFSSetFileAttrib - - - - - Service definition of function ns__LogFSChangeFileAttrib - - - - - Service definition of function ns__LogFSFindFirst - - - - - Service definition of function ns__LogFSFindNext - - - - - Service definition of function ns__LogFSFindClose - - - - - Service definition of function ns__LogFSRemoveFile - - - - - Service definition of function ns__LogFSRemoveDir - - - - - Service definition of function ns__LogFSRename - - - - - Service definition of function ns__LogFSCopyFile - - - - - Service definition of function ns__LogFSGetInfo - - - - - Service definition of function ns__GetAvailableCustomEvents - - - - - Service definition of function ns__GetSysTick - - - - - Service definition of function ns__GetProcessConfNum - - - - - Service definition of function ns__MonOpenChannel - - - - - Service definition of function ns__MonCloseChannel - - - - - Service definition of function ns__MonAddVariable - - - - - Service definition of function ns__MonDeleteVariable - - - - - Service definition of function ns__MonStartSampling - - - - - Service definition of function ns__MonStopSampling - - - - - Service definition of function ns__MonGetVariable - - - - - Service definition of function ns__CheckHistory - - - - - Service definition of function ns__ReadHistoryEmergMsg - - - - - Service definition of function ns__ReadHistoryErrorMsg - - - - - Service definition of function ns__ReadHistoryLogMsg - - - - - Service definition of function ns__ReadHistoryAnomalyMsg - - - - - Service definition of function ns__ReadCurrentErrorMsg - - - - - Service definition of function ns__ReadCurrentEmergMsg - - - - - Service definition of function ns__ReadCurrentAnomalyMsg - - - - - Service definition of function ns__GetPTechSizes - - - - - Service definition of function ns__LoadPTech - - - - - Service definition of function ns__GetMarkerInfo - - - - - Service definition of function ns__ManagePartProgram - - - - - Service definition of function ns__LogFSOpenFile - - - - - Service definition of function ns__LogFSCloseFile - - - - - Service definition of function ns__LogFSWriteRecord - - - - - Service definition of function ns__LogFSReadRecord - - - - - Service definition of function ns__ReadRemapDefinitions - - - - - Service definition of function ns__WriteRemapDefinitions - - - - - Service definition of function ns__GetServoPar - - - - - Service definition of function ns__SetServoPar - - - - - Service definition of function ns__GetCNCRegKey - - - - - Service definition of function ns__SetIpAddress - - - - - Service definition of function ns__GetProcInInput - - - - - Service definition of function ns__SndProcInpData - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - OPENcontrol Web Services Definition - - - - - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/Reference.svcmap b/IOB-WIN/CncLib/Service References/OPENcontrol/Reference.svcmap deleted file mode 100644 index e539748..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/Reference.svcmap +++ /dev/null @@ -1,30 +0,0 @@ - - - - false - true - - false - false - false - - - true - Auto - true - true - - - - - - - - - - - - - - - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/Reference.vb b/IOB-WIN/CncLib/Service References/OPENcontrol/Reference.vb deleted file mode 100644 index fb321eb..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/Reference.vb +++ /dev/null @@ -1,29126 +0,0 @@ -'------------------------------------------------------------------------------ -' -' Il codice è stato generato da uno strumento. -' Versione runtime:4.0.30319.42000 -' -' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se -' il codice viene rigenerato. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - - -Namespace OPENcontrol - - _ - Public Interface OPENcontrolPortType - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione BootPhaseEnquiry non è RPC né incapsulata da documenti. - _ - Function BootPhaseEnquiry(ByVal request As OPENcontrol.BootPhaseEnquiryRequest) As OPENcontrol.BootPhaseEnquiryResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione BootReboot non è RPC né incapsulata da documenti. - _ - Function BootReboot(ByVal request As OPENcontrol.BootRebootRequest) As OPENcontrol.BootRebootResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione BootShutDown non è RPC né incapsulata da documenti. - _ - Function BootShutDown(ByVal request As OPENcontrol.BootShutDownRequest) As OPENcontrol.BootShutDownResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione BootMode non è RPC né incapsulata da documenti. - _ - Function BootMode(ByVal request As OPENcontrol.BootModeRequest) As OPENcontrol.BootModeResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetHWKey non è RPC né incapsulata da documenti. - _ - Function GetHWKey(ByVal request As OPENcontrol.GetHWKeyRequest) As OPENcontrol.GetHWKeyResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadVarWord non è RPC né incapsulata da documenti. - _ - Function ReadVarWord(ByVal request As OPENcontrol.ReadVarWordRequest) As OPENcontrol.ReadVarWordResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadVarDouble non è RPC né incapsulata da documenti. - _ - Function ReadVarDouble(ByVal request As OPENcontrol.ReadVarDoubleRequest) As OPENcontrol.ReadVarDoubleResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione WriteVarWord non è RPC né incapsulata da documenti. - _ - Function WriteVarWord(ByVal request As OPENcontrol.WriteVarWordRequest) As OPENcontrol.WriteVarWordResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione WriteVarWordBit non è RPC né incapsulata da documenti. - _ - Function WriteVarWordBit(ByVal request As OPENcontrol.WriteVarWordBitRequest) As OPENcontrol.WriteVarWordBitResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione WriteVarDouble non è RPC né incapsulata da documenti. - _ - Function WriteVarDouble(ByVal request As OPENcontrol.WriteVarDoubleRequest) As OPENcontrol.WriteVarDoubleResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadVarText non è RPC né incapsulata da documenti. - _ - Function ReadVarText(ByVal request As OPENcontrol.ReadVarTextRequest) As OPENcontrol.ReadVarTextResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione WriteVarText non è RPC né incapsulata da documenti. - _ - Function WriteVarText(ByVal request As OPENcontrol.WriteVarTextRequest) As OPENcontrol.WriteVarTextResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadWarningMsg non è RPC né incapsulata da documenti. - _ - Function ReadWarningMsg(ByVal request As OPENcontrol.ReadWarningMsgRequest) As OPENcontrol.ReadWarningMsgResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ResetSingleTableII non è RPC né incapsulata da documenti. - _ - Function ResetSingleTableII(ByVal request As OPENcontrol.ResetSingleTableIIRequest) As OPENcontrol.ResetSingleTableIIResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LockTableII non è RPC né incapsulata da documenti. - _ - Function LockTableII(ByVal request As OPENcontrol.LockTableIIRequest) As OPENcontrol.LockTableIIResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione UnLockTableII non è RPC né incapsulata da documenti. - _ - Function UnLockTableII(ByVal request As OPENcontrol.UnLockTableIIRequest) As OPENcontrol.UnLockTableIIResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetOriginTabRecordII non è RPC né incapsulata da documenti. - _ - Function GetOriginTabRecordII(ByVal request As OPENcontrol.GetOriginTabRecordIIRequest) As OPENcontrol.GetOriginTabRecordIIResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetOriginTabRecordII non è RPC né incapsulata da documenti. - _ - Function SetOriginTabRecordII(ByVal request As OPENcontrol.SetOriginTabRecordIIRequest) As OPENcontrol.SetOriginTabRecordIIResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetToolTabRecordII non è RPC né incapsulata da documenti. - _ - Function GetToolTabRecordII(ByVal request As OPENcontrol.GetToolTabRecordIIRequest) As OPENcontrol.GetToolTabRecordIIResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetToolTabRecordII non è RPC né incapsulata da documenti. - _ - Function SetToolTabRecordII(ByVal request As OPENcontrol.SetToolTabRecordIIRequest) As OPENcontrol.SetToolTabRecordIIResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetOffsetTabRecordII non è RPC né incapsulata da documenti. - _ - Function GetOffsetTabRecordII(ByVal request As OPENcontrol.GetOffsetTabRecordIIRequest) As OPENcontrol.GetOffsetTabRecordIIResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetOffsetTabRecordII non è RPC né incapsulata da documenti. - _ - Function SetOffsetTabRecordII(ByVal request As OPENcontrol.SetOffsetTabRecordIIRequest) As OPENcontrol.SetOffsetTabRecordIIResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetUserTabRecordII non è RPC né incapsulata da documenti. - _ - Function GetUserTabRecordII(ByVal request As OPENcontrol.GetUserTabRecordIIRequest) As OPENcontrol.GetUserTabRecordIIResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetUserTabRecordII non è RPC né incapsulata da documenti. - _ - Function SetUserTabRecordII(ByVal request As OPENcontrol.SetUserTabRecordIIRequest) As OPENcontrol.SetUserTabRecordIIResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SaveTables non è RPC né incapsulata da documenti. - _ - Function SaveTables(ByVal request As OPENcontrol.SaveTablesRequest) As OPENcontrol.SaveTablesResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione RestoreSingleTable non è RPC né incapsulata da documenti. - _ - Function RestoreSingleTable(ByVal request As OPENcontrol.RestoreSingleTableRequest) As OPENcontrol.RestoreSingleTableResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SaveSingleTable non è RPC né incapsulata da documenti. - _ - Function SaveSingleTable(ByVal request As OPENcontrol.SaveSingleTableRequest) As OPENcontrol.SaveSingleTableResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SaveBackupMemory non è RPC né incapsulata da documenti. - _ - Function SaveBackupMemory(ByVal request As OPENcontrol.SaveBackupMemoryRequest) As OPENcontrol.SaveBackupMemoryResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione RestoreBackupMemory non è RPC né incapsulata da documenti. - _ - Function RestoreBackupMemory(ByVal request As OPENcontrol.RestoreBackupMemoryRequest) As OPENcontrol.RestoreBackupMemoryResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione Cycle non è RPC né incapsulata da documenti. - _ - Function Cycle(ByVal request As OPENcontrol.CycleRequest) As OPENcontrol.CycleResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SyncroCycle non è RPC né incapsulata da documenti. - _ - Function SyncroCycle(ByVal request As OPENcontrol.SyncroCycleRequest) As OPENcontrol.SyncroCycleResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione Reset non è RPC né incapsulata da documenti. - _ - Function Reset(ByVal request As OPENcontrol.ResetRequest) As OPENcontrol.ResetResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione Hold non è RPC né incapsulata da documenti. - _ - Function Hold(ByVal request As OPENcontrol.HoldRequest) As OPENcontrol.HoldResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetFeedManOver non è RPC né incapsulata da documenti. - _ - Function SetFeedManOver(ByVal request As OPENcontrol.SetFeedManOverRequest) As OPENcontrol.SetFeedManOverResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetFeedRateOver non è RPC né incapsulata da documenti. - _ - Function SetFeedRateOver(ByVal request As OPENcontrol.SetFeedRateOverRequest) As OPENcontrol.SetFeedRateOverResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetFeedRapidOver non è RPC né incapsulata da documenti. - _ - Function SetFeedRapidOver(ByVal request As OPENcontrol.SetFeedRapidOverRequest) As OPENcontrol.SetFeedRapidOverResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetSpeedRateOver non è RPC né incapsulata da documenti. - _ - Function SetSpeedRateOver(ByVal request As OPENcontrol.SetSpeedRateOverRequest) As OPENcontrol.SetSpeedRateOverResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetManMovDirection non è RPC né incapsulata da documenti. - _ - Function SetManMovDirection(ByVal request As OPENcontrol.SetManMovDirectionRequest) As OPENcontrol.SetManMovDirectionResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetVarJOG non è RPC né incapsulata da documenti. - _ - Function GetVarJOG(ByVal request As OPENcontrol.GetVarJOGRequest) As OPENcontrol.GetVarJOGResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetVarJOG non è RPC né incapsulata da documenti. - _ - Function SetVarJOG(ByVal request As OPENcontrol.SetVarJOGRequest) As OPENcontrol.SetVarJOGResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetVarUAS non è RPC né incapsulata da documenti. - _ - Function SetVarUAS(ByVal request As OPENcontrol.SetVarUASRequest) As OPENcontrol.SetVarUASResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetVarRCM non è RPC né incapsulata da documenti. - _ - Function GetVarRCM(ByVal request As OPENcontrol.GetVarRCMRequest) As OPENcontrol.GetVarRCMResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetVarRCM non è RPC né incapsulata da documenti. - _ - Function SetVarRCM(ByVal request As OPENcontrol.SetVarRCMRequest) As OPENcontrol.SetVarRCMResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetProcVarWord non è RPC né incapsulata da documenti. - _ - Function GetProcVarWord(ByVal request As OPENcontrol.GetProcVarWordRequest) As OPENcontrol.GetProcVarWordResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetProcVarWord non è RPC né incapsulata da documenti. - _ - Function SetProcVarWord(ByVal request As OPENcontrol.SetProcVarWordRequest) As OPENcontrol.SetProcVarWordResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetProcVarDouble non è RPC né incapsulata da documenti. - _ - Function GetProcVarDouble(ByVal request As OPENcontrol.GetProcVarDoubleRequest) As OPENcontrol.GetProcVarDoubleResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetProcVarDouble non è RPC né incapsulata da documenti. - _ - Function SetProcVarDouble(ByVal request As OPENcontrol.SetProcVarDoubleRequest) As OPENcontrol.SetProcVarDoubleResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetMdiString non è RPC né incapsulata da documenti. - _ - Function SetMdiString(ByVal request As OPENcontrol.SetMdiStringRequest) As OPENcontrol.SetMdiStringResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetProcessMode non è RPC né incapsulata da documenti. - _ - Function SetProcessMode(ByVal request As OPENcontrol.SetProcessModeRequest) As OPENcontrol.SetProcessModeResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SelectProcess non è RPC né incapsulata da documenti. - _ - Function SelectProcess(ByVal request As OPENcontrol.SelectProcessRequest) As OPENcontrol.SelectProcessResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetSelectedProcess non è RPC né incapsulata da documenti. - _ - Function GetSelectedProcess(ByVal request As OPENcontrol.GetSelectedProcessRequest) As OPENcontrol.GetSelectedProcessResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SelectProcAxis non è RPC né incapsulata da documenti. - _ - Function SelectProcAxis(ByVal request As OPENcontrol.SelectProcAxisRequest) As OPENcontrol.SelectProcAxisResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SelectPartProgram non è RPC né incapsulata da documenti. - _ - Function SelectPartProgram(ByVal request As OPENcontrol.SelectPartProgramRequest) As OPENcontrol.SelectPartProgramResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SelectPartProgramFromDrive non è RPC né incapsulata da documenti. - _ - Function SelectPartProgramFromDrive(ByVal request As OPENcontrol.SelectPartProgramFromDriveRequest) As OPENcontrol.SelectPartProgramFromDriveResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetActivePartProgram non è RPC né incapsulata da documenti. - _ - Function GetActivePartProgram(ByVal request As OPENcontrol.GetActivePartProgramRequest) As OPENcontrol.GetActivePartProgramResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetPartProgramLines non è RPC né incapsulata da documenti. - _ - Function GetPartProgramLines(ByVal request As OPENcontrol.GetPartProgramLinesRequest) As OPENcontrol.GetPartProgramLinesResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetAxOriginNum non è RPC né incapsulata da documenti. - _ - Function GetAxOriginNum(ByVal request As OPENcontrol.GetAxOriginNumRequest) As OPENcontrol.GetAxOriginNumResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetAxesPosition non è RPC né incapsulata da documenti. - _ - Function GetAxesPosition(ByVal request As OPENcontrol.GetAxesPositionRequest) As OPENcontrol.GetAxesPositionResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetNcInfo1 non è RPC né incapsulata da documenti. - _ - Function GetNcInfo1(ByVal request As OPENcontrol.GetNcInfo1Request) As OPENcontrol.GetNcInfo1Response - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetNcInfo2 non è RPC né incapsulata da documenti. - _ - Function GetNcInfo2(ByVal request As OPENcontrol.GetNcInfo2Request) As OPENcontrol.GetNcInfo2Response - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetToolNames non è RPC né incapsulata da documenti. - _ - Function GetToolNames(ByVal request As OPENcontrol.GetToolNamesRequest) As OPENcontrol.GetToolNamesResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetProcessStatus non è RPC né incapsulata da documenti. - _ - Function GetProcessStatus(ByVal request As OPENcontrol.GetProcessStatusRequest) As OPENcontrol.GetProcessStatusResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetBlkNum non è RPC né incapsulata da documenti. - _ - Function GetBlkNum(ByVal request As OPENcontrol.GetBlkNumRequest) As OPENcontrol.GetBlkNumResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadErrMsg non è RPC né incapsulata da documenti. - _ - Function ReadErrMsg(ByVal request As OPENcontrol.ReadErrMsgRequest) As OPENcontrol.ReadErrMsgResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadPartProgramMsg non è RPC né incapsulata da documenti. - _ - Function ReadPartProgramMsg(ByVal request As OPENcontrol.ReadPartProgramMsgRequest) As OPENcontrol.ReadPartProgramMsgResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetGCode non è RPC né incapsulata da documenti. - _ - Function GetGCode(ByVal request As OPENcontrol.GetGCodeRequest) As OPENcontrol.GetGCodeResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetMCode non è RPC né incapsulata da documenti. - _ - Function GetMCode(ByVal request As OPENcontrol.GetMCodeRequest) As OPENcontrol.GetMCodeResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SkipPProgBlock non è RPC né incapsulata da documenti. - _ - Function SkipPProgBlock(ByVal request As OPENcontrol.SkipPProgBlockRequest) As OPENcontrol.SkipPProgBlockResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione Ese non è RPC né incapsulata da documenti. - _ - Function Ese(ByVal request As OPENcontrol.EseRequest) As OPENcontrol.EseResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione EseEx non è RPC né incapsulata da documenti. - _ - Function EseEx(ByVal request As OPENcontrol.EseExRequest) As OPENcontrol.EseExResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione Exe non è RPC né incapsulata da documenti. - _ - Function Exe(ByVal request As OPENcontrol.ExeRequest) As OPENcontrol.ExeResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione AxesRef non è RPC né incapsulata da documenti. - _ - Function AxesRef(ByVal request As OPENcontrol.AxesRefRequest) As OPENcontrol.AxesRefResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione DncInit non è RPC né incapsulata da documenti. - _ - Function DncInit(ByVal request As OPENcontrol.DncInitRequest) As OPENcontrol.DncInitResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione DncData non è RPC né incapsulata da documenti. - _ - Function DncData(ByVal request As OPENcontrol.DncDataRequest) As OPENcontrol.DncDataResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione DncEof non è RPC né incapsulata da documenti. - _ - Function DncEof(ByVal request As OPENcontrol.DncEofRequest) As OPENcontrol.DncEofResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione DncStop non è RPC né incapsulata da documenti. - _ - Function DncStop(ByVal request As OPENcontrol.DncStopRequest) As OPENcontrol.DncStopResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetAxesInfo3 non è RPC né incapsulata da documenti. - _ - Function GetAxesInfo3(ByVal request As OPENcontrol.GetAxesInfo3Request) As OPENcontrol.GetAxesInfo3Response - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetCodeNumber non è RPC né incapsulata da documenti. - _ - Function GetCodeNumber(ByVal request As OPENcontrol.GetCodeNumberRequest) As OPENcontrol.GetCodeNumberResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetOptions non è RPC né incapsulata da documenti. - _ - Function GetOptions(ByVal request As OPENcontrol.GetOptionsRequest) As OPENcontrol.GetOptionsResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetDateTime non è RPC né incapsulata da documenti. - _ - Function GetDateTime(ByVal request As OPENcontrol.GetDateTimeRequest) As OPENcontrol.GetDateTimeResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetDateTime non è RPC né incapsulata da documenti. - _ - Function SetDateTime(ByVal request As OPENcontrol.SetDateTimeRequest) As OPENcontrol.SetDateTimeResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetSerialNumber non è RPC né incapsulata da documenti. - _ - Function GetSerialNumber(ByVal request As OPENcontrol.GetSerialNumberRequest) As OPENcontrol.GetSerialNumberResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione PutFile non è RPC né incapsulata da documenti. - _ - Function PutFile(ByVal request As OPENcontrol.PutFileRequest) As OPENcontrol.PutFileResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetFile non è RPC né incapsulata da documenti. - _ - Function GetFile(ByVal request As OPENcontrol.GetFileRequest) As OPENcontrol.GetFileResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione PutBinaryFile non è RPC né incapsulata da documenti. - _ - Function PutBinaryFile(ByVal request As OPENcontrol.PutBinaryFileRequest) As OPENcontrol.PutBinaryFileResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetBinaryFile non è RPC né incapsulata da documenti. - _ - Function GetBinaryFile(ByVal request As OPENcontrol.GetBinaryFileRequest) As OPENcontrol.GetBinaryFileResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSSetSecurityLevel non è RPC né incapsulata da documenti. - _ - Function LogFSSetSecurityLevel(ByVal request As OPENcontrol.LogFSSetSecurityLevelRequest) As OPENcontrol.LogFSSetSecurityLevelResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetSecurityLevel non è RPC né incapsulata da documenti. - _ - Function LogFSGetSecurityLevel(ByVal request As OPENcontrol.LogFSGetSecurityLevelRequest) As OPENcontrol.LogFSGetSecurityLevelResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSLongFileNames non è RPC né incapsulata da documenti. - _ - Function LogFSLongFileNames(ByVal request As OPENcontrol.LogFSLongFileNamesRequest) As OPENcontrol.LogFSLongFileNamesResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetNumDrive non è RPC né incapsulata da documenti. - _ - Function LogFSGetNumDrive(ByVal request As OPENcontrol.LogFSGetNumDriveRequest) As OPENcontrol.LogFSGetNumDriveResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetDriveList non è RPC né incapsulata da documenti. - _ - Function LogFSGetDriveList(ByVal request As OPENcontrol.LogFSGetDriveListRequest) As OPENcontrol.LogFSGetDriveListResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetHiddenDriveList non è RPC né incapsulata da documenti. - _ - Function LogFSGetHiddenDriveList(ByVal request As OPENcontrol.LogFSGetHiddenDriveListRequest) As OPENcontrol.LogFSGetHiddenDriveListResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetDrivePath non è RPC né incapsulata da documenti. - _ - Function LogFSGetDrivePath(ByVal request As OPENcontrol.LogFSGetDrivePathRequest) As OPENcontrol.LogFSGetDrivePathResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSAddDrive non è RPC né incapsulata da documenti. - _ - Function LogFSAddDrive(ByVal request As OPENcontrol.LogFSAddDriveRequest) As OPENcontrol.LogFSAddDriveResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSRemoveDrive non è RPC né incapsulata da documenti. - _ - Function LogFSRemoveDrive(ByVal request As OPENcontrol.LogFSRemoveDriveRequest) As OPENcontrol.LogFSRemoveDriveResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSReloadDriveList non è RPC né incapsulata da documenti. - _ - Function LogFSReloadDriveList(ByVal request As OPENcontrol.LogFSReloadDriveListRequest) As OPENcontrol.LogFSReloadDriveListResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSCreateDir non è RPC né incapsulata da documenti. - _ - Function LogFSCreateDir(ByVal request As OPENcontrol.LogFSCreateDirRequest) As OPENcontrol.LogFSCreateDirResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSCreateFile non è RPC né incapsulata da documenti. - _ - Function LogFSCreateFile(ByVal request As OPENcontrol.LogFSCreateFileRequest) As OPENcontrol.LogFSCreateFileResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetFileSize non è RPC né incapsulata da documenti. - _ - Function LogFSGetFileSize(ByVal request As OPENcontrol.LogFSGetFileSizeRequest) As OPENcontrol.LogFSGetFileSizeResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetFileAttrib non è RPC né incapsulata da documenti. - _ - Function LogFSGetFileAttrib(ByVal request As OPENcontrol.LogFSGetFileAttribRequest) As OPENcontrol.LogFSGetFileAttribResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSSetFileAttrib non è RPC né incapsulata da documenti. - _ - Function LogFSSetFileAttrib(ByVal request As OPENcontrol.LogFSSetFileAttribRequest) As OPENcontrol.LogFSSetFileAttribResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSChangeFileAttrib non è RPC né incapsulata da documenti. - _ - Function LogFSChangeFileAttrib(ByVal request As OPENcontrol.LogFSChangeFileAttribRequest) As OPENcontrol.LogFSChangeFileAttribResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSFindFirst non è RPC né incapsulata da documenti. - _ - Function LogFSFindFirst(ByVal request As OPENcontrol.LogFSFindFirstRequest) As OPENcontrol.LogFSFindFirstResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSFindNext non è RPC né incapsulata da documenti. - _ - Function LogFSFindNext(ByVal request As OPENcontrol.LogFSFindNextRequest) As OPENcontrol.LogFSFindNextResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSFindClose non è RPC né incapsulata da documenti. - _ - Function LogFSFindClose(ByVal request As OPENcontrol.LogFSFindCloseRequest) As OPENcontrol.LogFSFindCloseResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSRemoveFile non è RPC né incapsulata da documenti. - _ - Function LogFSRemoveFile(ByVal request As OPENcontrol.LogFSRemoveFileRequest) As OPENcontrol.LogFSRemoveFileResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSRemoveDir non è RPC né incapsulata da documenti. - _ - Function LogFSRemoveDir(ByVal request As OPENcontrol.LogFSRemoveDirRequest) As OPENcontrol.LogFSRemoveDirResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSRename non è RPC né incapsulata da documenti. - _ - Function LogFSRename(ByVal request As OPENcontrol.LogFSRenameRequest) As OPENcontrol.LogFSRenameResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSCopyFile non è RPC né incapsulata da documenti. - _ - Function LogFSCopyFile(ByVal request As OPENcontrol.LogFSCopyFileRequest) As OPENcontrol.LogFSCopyFileResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetInfo non è RPC né incapsulata da documenti. - _ - Function LogFSGetInfo(ByVal request As OPENcontrol.LogFSGetInfoRequest) As OPENcontrol.LogFSGetInfoResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetAvailableCustomEvents non è RPC né incapsulata da documenti. - _ - Function GetAvailableCustomEvents(ByVal request As OPENcontrol.GetAvailableCustomEventsRequest) As OPENcontrol.GetAvailableCustomEventsResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetSysTick non è RPC né incapsulata da documenti. - _ - Function GetSysTick(ByVal request As OPENcontrol.GetSysTickRequest) As OPENcontrol.GetSysTickResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetProcessConfNum non è RPC né incapsulata da documenti. - _ - Function GetProcessConfNum(ByVal request As OPENcontrol.GetProcessConfNumRequest) As OPENcontrol.GetProcessConfNumResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonOpenChannel non è RPC né incapsulata da documenti. - _ - Function MonOpenChannel(ByVal request As OPENcontrol.MonOpenChannelRequest) As OPENcontrol.MonOpenChannelResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonCloseChannel non è RPC né incapsulata da documenti. - _ - Function MonCloseChannel(ByVal request As OPENcontrol.MonCloseChannelRequest) As OPENcontrol.MonCloseChannelResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonAddVariable non è RPC né incapsulata da documenti. - _ - Function MonAddVariable(ByVal request As OPENcontrol.MonAddVariableRequest) As OPENcontrol.MonAddVariableResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonDeleteVariable non è RPC né incapsulata da documenti. - _ - Function MonDeleteVariable(ByVal request As OPENcontrol.MonDeleteVariableRequest) As OPENcontrol.MonDeleteVariableResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonStartSampling non è RPC né incapsulata da documenti. - _ - Function MonStartSampling(ByVal request As OPENcontrol.MonStartSamplingRequest) As OPENcontrol.MonStartSamplingResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonStopSampling non è RPC né incapsulata da documenti. - _ - Function MonStopSampling(ByVal request As OPENcontrol.MonStopSamplingRequest) As OPENcontrol.MonStopSamplingResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonGetVariable non è RPC né incapsulata da documenti. - _ - Function MonGetVariable(ByVal request As OPENcontrol.MonGetVariableRequest) As OPENcontrol.MonGetVariableResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione CheckHistory non è RPC né incapsulata da documenti. - _ - Function CheckHistory(ByVal request As OPENcontrol.CheckHistoryRequest) As OPENcontrol.CheckHistoryResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadHistoryEmergMsg non è RPC né incapsulata da documenti. - _ - Function ReadHistoryEmergMsg(ByVal request As OPENcontrol.ReadHistoryEmergMsgRequest) As OPENcontrol.ReadHistoryEmergMsgResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadHistoryErrorMsg non è RPC né incapsulata da documenti. - _ - Function ReadHistoryErrorMsg(ByVal request As OPENcontrol.ReadHistoryErrorMsgRequest) As OPENcontrol.ReadHistoryErrorMsgResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadHistoryLogMsg non è RPC né incapsulata da documenti. - _ - Function ReadHistoryLogMsg(ByVal request As OPENcontrol.ReadHistoryLogMsgRequest) As OPENcontrol.ReadHistoryLogMsgResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadHistoryAnomalyMsg non è RPC né incapsulata da documenti. - _ - Function ReadHistoryAnomalyMsg(ByVal request As OPENcontrol.ReadHistoryAnomalyMsgRequest) As OPENcontrol.ReadHistoryAnomalyMsgResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadCurrentErrorMsg non è RPC né incapsulata da documenti. - _ - Function ReadCurrentErrorMsg(ByVal request As OPENcontrol.ReadCurrentErrorMsgRequest) As OPENcontrol.ReadCurrentErrorMsgResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadCurrentEmergMsg non è RPC né incapsulata da documenti. - _ - Function ReadCurrentEmergMsg(ByVal request As OPENcontrol.ReadCurrentEmergMsgRequest) As OPENcontrol.ReadCurrentEmergMsgResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadCurrentAnomalyMsg non è RPC né incapsulata da documenti. - _ - Function ReadCurrentAnomalyMsg(ByVal request As OPENcontrol.ReadCurrentAnomalyMsgRequest) As OPENcontrol.ReadCurrentAnomalyMsgResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetPTechSizes non è RPC né incapsulata da documenti. - _ - Function GetPTechSizes(ByVal request As OPENcontrol.GetPTechSizesRequest) As OPENcontrol.GetPTechSizesResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LoadPTech non è RPC né incapsulata da documenti. - _ - Function LoadPTech(ByVal request As OPENcontrol.LoadPTechRequest) As OPENcontrol.LoadPTechResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetMarkerInfo non è RPC né incapsulata da documenti. - _ - Function GetMarkerInfo(ByVal request As OPENcontrol.GetMarkerInfoRequest) As OPENcontrol.GetMarkerInfoResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ManagePartProgram non è RPC né incapsulata da documenti. - _ - Function ManagePartProgram(ByVal request As OPENcontrol.ManagePartProgramRequest) As OPENcontrol.ManagePartProgramResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSOpenFile non è RPC né incapsulata da documenti. - _ - Function LogFSOpenFile(ByVal request As OPENcontrol.LogFSOpenFileRequest) As OPENcontrol.LogFSOpenFileResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSCloseFile non è RPC né incapsulata da documenti. - _ - Function LogFSCloseFile(ByVal request As OPENcontrol.LogFSCloseFileRequest) As OPENcontrol.LogFSCloseFileResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSWriteRecord non è RPC né incapsulata da documenti. - _ - Function LogFSWriteRecord(ByVal request As OPENcontrol.LogFSWriteRecordRequest) As OPENcontrol.LogFSWriteRecordResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSReadRecord non è RPC né incapsulata da documenti. - _ - Function LogFSReadRecord(ByVal request As OPENcontrol.LogFSReadRecordRequest) As OPENcontrol.LogFSReadRecordResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadRemapDefinitions non è RPC né incapsulata da documenti. - _ - Function ReadRemapDefinitions(ByVal request As OPENcontrol.ReadRemapDefinitionsRequest) As OPENcontrol.ReadRemapDefinitionsResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione WriteRemapDefinitions non è RPC né incapsulata da documenti. - _ - Function WriteRemapDefinitions(ByVal request As OPENcontrol.WriteRemapDefinitionsRequest) As OPENcontrol.WriteRemapDefinitionsResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetServoPar non è RPC né incapsulata da documenti. - _ - Function GetServoPar(ByVal request As OPENcontrol.GetServoParRequest) As OPENcontrol.GetServoParResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetServoPar non è RPC né incapsulata da documenti. - _ - Function SetServoPar(ByVal request As OPENcontrol.SetServoParRequest) As OPENcontrol.SetServoParResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetCNCRegKey non è RPC né incapsulata da documenti. - _ - Function GetCNCRegKey(ByVal request As OPENcontrol.GetCNCRegKeyRequest) As OPENcontrol.GetCNCRegKeyResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetIpAddress non è RPC né incapsulata da documenti. - _ - Function SetIpAddress(ByVal request As OPENcontrol.SetIpAddressRequest) As OPENcontrol.SetIpAddressResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetProcInInput non è RPC né incapsulata da documenti. - _ - Function GetProcInInput(ByVal request As OPENcontrol.GetProcInInputRequest) As OPENcontrol.GetProcInInputResponse - - 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SndProcInpData non è RPC né incapsulata da documenti. - _ - Function SndProcInpData(ByVal request As OPENcontrol.SndProcInpDataRequest) As OPENcontrol.SndProcInpDataResponse - End Interface - - ''' - _ - Partial Public Class BootPhaseEnquiry - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class DEFRAME - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private rowField As UShort - - Private colField As UShort - - Private lenField As UShort - - Private textField() As Byte - - ''' - _ - Public Property row() As UShort - Get - Return Me.rowField - End Get - Set - Me.rowField = value - Me.RaisePropertyChanged("row") - End Set - End Property - - ''' - _ - Public Property col() As UShort - Get - Return Me.colField - End Get - Set - Me.colField = value - Me.RaisePropertyChanged("col") - End Set - End Property - - ''' - _ - Public Property len() As UShort - Get - Return Me.lenField - End Get - Set - Me.lenField = value - Me.RaisePropertyChanged("len") - End Set - End Property - - ''' - _ - Public Property text() As Byte() - Get - Return Me.textField - End Get - Set - Me.textField = value - Me.RaisePropertyChanged("text") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class DEFIELDCONTROL - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private strmatchField() As Byte - - Private rangebyteField() As Byte - - Private rangeintField() As Short - - Private rangelongField() As Long - - Private rangeuintField() As UShort - - Private rangeulongField() As ULong - - Private rangefloatField() As Double - - Private rangedoubleField() As Double - - ''' - _ - Public Property strmatch() As Byte() - Get - Return Me.strmatchField - End Get - Set - Me.strmatchField = value - Me.RaisePropertyChanged("strmatch") - End Set - End Property - - ''' - _ - Public Property rangebyte() As Byte() - Get - Return Me.rangebyteField - End Get - Set - Me.rangebyteField = value - Me.RaisePropertyChanged("rangebyte") - End Set - End Property - - ''' - _ - Public Property rangeint() As Short() - Get - Return Me.rangeintField - End Get - Set - Me.rangeintField = value - Me.RaisePropertyChanged("rangeint") - End Set - End Property - - ''' - _ - Public Property rangelong() As Long() - Get - Return Me.rangelongField - End Get - Set - Me.rangelongField = value - Me.RaisePropertyChanged("rangelong") - End Set - End Property - - ''' - _ - Public Property rangeuint() As UShort() - Get - Return Me.rangeuintField - End Get - Set - Me.rangeuintField = value - Me.RaisePropertyChanged("rangeuint") - End Set - End Property - - ''' - _ - Public Property rangeulong() As ULong() - Get - Return Me.rangeulongField - End Get - Set - Me.rangeulongField = value - Me.RaisePropertyChanged("rangeulong") - End Set - End Property - - ''' - _ - Public Property rangefloat() As Double() - Get - Return Me.rangefloatField - End Get - Set - Me.rangefloatField = value - Me.RaisePropertyChanged("rangefloat") - End Set - End Property - - ''' - _ - Public Property rangedouble() As Double() - Get - Return Me.rangedoubleField - End Get - Set - Me.rangedoubleField = value - Me.RaisePropertyChanged("rangedouble") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class DEFIELDCHECK - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private convField As Byte - - Private valueField As DEFIELDCONTROL - - ''' - _ - Public Property conv() As Byte - Get - Return Me.convField - End Get - Set - Me.convField = value - Me.RaisePropertyChanged("conv") - End Set - End Property - - ''' - _ - Public Property value() As DEFIELDCONTROL - Get - Return Me.valueField - End Get - Set - Me.valueField = value - Me.RaisePropertyChanged("value") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class DEFIELD - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private rowField As UShort - - Private colField As UShort - - Private typeField As Byte - - Private myIdField As Byte - - Private sizeField As UShort - - Private disSizeField As UShort - - Private checkField As DEFIELDCHECK - - ''' - _ - Public Property row() As UShort - Get - Return Me.rowField - End Get - Set - Me.rowField = value - Me.RaisePropertyChanged("row") - End Set - End Property - - ''' - _ - Public Property col() As UShort - Get - Return Me.colField - End Get - Set - Me.colField = value - Me.RaisePropertyChanged("col") - End Set - End Property - - ''' - _ - Public Property type() As Byte - Get - Return Me.typeField - End Get - Set - Me.typeField = value - Me.RaisePropertyChanged("type") - End Set - End Property - - ''' - _ - Public Property myId() As Byte - Get - Return Me.myIdField - End Get - Set - Me.myIdField = value - Me.RaisePropertyChanged("myId") - End Set - End Property - - ''' - _ - Public Property size() As UShort - Get - Return Me.sizeField - End Get - Set - Me.sizeField = value - Me.RaisePropertyChanged("size") - End Set - End Property - - ''' - _ - Public Property disSize() As UShort - Get - Return Me.disSizeField - End Get - Set - Me.disSizeField = value - Me.RaisePropertyChanged("disSize") - End Set - End Property - - ''' - _ - Public Property check() As DEFIELDCHECK - Get - Return Me.checkField - End Get - Set - Me.checkField = value - Me.RaisePropertyChanged("check") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class DEKEY - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private abortField() As Byte - - Private confirm1Field() As Byte - - Private confirm2Field() As Byte - - Private confirm3Field() As Byte - - Private resetField() As Byte - - Private incresField() As Byte - - ''' - _ - Public Property abort() As Byte() - Get - Return Me.abortField - End Get - Set - Me.abortField = value - Me.RaisePropertyChanged("abort") - End Set - End Property - - ''' - _ - Public Property confirm1() As Byte() - Get - Return Me.confirm1Field - End Get - Set - Me.confirm1Field = value - Me.RaisePropertyChanged("confirm1") - End Set - End Property - - ''' - _ - Public Property confirm2() As Byte() - Get - Return Me.confirm2Field - End Get - Set - Me.confirm2Field = value - Me.RaisePropertyChanged("confirm2") - End Set - End Property - - ''' - _ - Public Property confirm3() As Byte() - Get - Return Me.confirm3Field - End Get - Set - Me.confirm3Field = value - Me.RaisePropertyChanged("confirm3") - End Set - End Property - - ''' - _ - Public Property reset() As Byte() - Get - Return Me.resetField - End Get - Set - Me.resetField = value - Me.RaisePropertyChanged("reset") - End Set - End Property - - ''' - _ - Public Property incres() As Byte() - Get - Return Me.incresField - End Get - Set - Me.incresField = value - Me.RaisePropertyChanged("incres") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class USERINPTAB - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private myIdField As Short - - Private iniRowField As Byte - - Private iniColField As Byte - - Private totRowField As Byte - - Private totColField As Byte - - Private myTypeField As Byte - - Private helpField() As Byte - - Private totFrameField As Byte - - Private totFieldField As Byte - - Private keyField As DEKEY - - Private fldField() As DEFIELD - - Private frmField() As DEFRAME - - Private strDef1Field() As Byte - - Private strDef2Field() As Byte - - Private strDef3Field() As Byte - - Private strDef4Field() As Byte - - Private strDef5Field() As Byte - - Private strDef6Field() As Byte - - Private strDef7Field() As Byte - - Private strDef8Field() As Byte - - Private decolorField() As ULong - - ''' - _ - Public Property myId() As Short - Get - Return Me.myIdField - End Get - Set - Me.myIdField = value - Me.RaisePropertyChanged("myId") - End Set - End Property - - ''' - _ - Public Property iniRow() As Byte - Get - Return Me.iniRowField - End Get - Set - Me.iniRowField = value - Me.RaisePropertyChanged("iniRow") - End Set - End Property - - ''' - _ - Public Property iniCol() As Byte - Get - Return Me.iniColField - End Get - Set - Me.iniColField = value - Me.RaisePropertyChanged("iniCol") - End Set - End Property - - ''' - _ - Public Property totRow() As Byte - Get - Return Me.totRowField - End Get - Set - Me.totRowField = value - Me.RaisePropertyChanged("totRow") - End Set - End Property - - ''' - _ - Public Property totCol() As Byte - Get - Return Me.totColField - End Get - Set - Me.totColField = value - Me.RaisePropertyChanged("totCol") - End Set - End Property - - ''' - _ - Public Property myType() As Byte - Get - Return Me.myTypeField - End Get - Set - Me.myTypeField = value - Me.RaisePropertyChanged("myType") - End Set - End Property - - ''' - _ - Public Property help() As Byte() - Get - Return Me.helpField - End Get - Set - Me.helpField = value - Me.RaisePropertyChanged("help") - End Set - End Property - - ''' - _ - Public Property totFrame() As Byte - Get - Return Me.totFrameField - End Get - Set - Me.totFrameField = value - Me.RaisePropertyChanged("totFrame") - End Set - End Property - - ''' - _ - Public Property totField() As Byte - Get - Return Me.totFieldField - End Get - Set - Me.totFieldField = value - Me.RaisePropertyChanged("totField") - End Set - End Property - - ''' - _ - Public Property key() As DEKEY - Get - Return Me.keyField - End Get - Set - Me.keyField = value - Me.RaisePropertyChanged("key") - End Set - End Property - - ''' - _ - Public Property fld() As DEFIELD() - Get - Return Me.fldField - End Get - Set - Me.fldField = value - Me.RaisePropertyChanged("fld") - End Set - End Property - - ''' - _ - Public Property frm() As DEFRAME() - Get - Return Me.frmField - End Get - Set - Me.frmField = value - Me.RaisePropertyChanged("frm") - End Set - End Property - - ''' - _ - Public Property strDef1() As Byte() - Get - Return Me.strDef1Field - End Get - Set - Me.strDef1Field = value - Me.RaisePropertyChanged("strDef1") - End Set - End Property - - ''' - _ - Public Property strDef2() As Byte() - Get - Return Me.strDef2Field - End Get - Set - Me.strDef2Field = value - Me.RaisePropertyChanged("strDef2") - End Set - End Property - - ''' - _ - Public Property strDef3() As Byte() - Get - Return Me.strDef3Field - End Get - Set - Me.strDef3Field = value - Me.RaisePropertyChanged("strDef3") - End Set - End Property - - ''' - _ - Public Property strDef4() As Byte() - Get - Return Me.strDef4Field - End Get - Set - Me.strDef4Field = value - Me.RaisePropertyChanged("strDef4") - End Set - End Property - - ''' - _ - Public Property strDef5() As Byte() - Get - Return Me.strDef5Field - End Get - Set - Me.strDef5Field = value - Me.RaisePropertyChanged("strDef5") - End Set - End Property - - ''' - _ - Public Property strDef6() As Byte() - Get - Return Me.strDef6Field - End Get - Set - Me.strDef6Field = value - Me.RaisePropertyChanged("strDef6") - End Set - End Property - - ''' - _ - Public Property strDef7() As Byte() - Get - Return Me.strDef7Field - End Get - Set - Me.strDef7Field = value - Me.RaisePropertyChanged("strDef7") - End Set - End Property - - ''' - _ - Public Property strDef8() As Byte() - Get - Return Me.strDef8Field - End Get - Set - Me.strDef8Field = value - Me.RaisePropertyChanged("strDef8") - End Set - End Property - - ''' - _ - Public Property decolor() As ULong() - Get - Return Me.decolorField - End Get - Set - Me.decolorField = value - Me.RaisePropertyChanged("decolor") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class INPUTINFO - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private processField As UShort - - Private isInInputField As Byte - - Private dataField As USERINPTAB - - ''' - _ - Public Property Process() As UShort - Get - Return Me.processField - End Get - Set - Me.processField = value - Me.RaisePropertyChanged("Process") - End Set - End Property - - ''' - _ - Public Property isInInput() As Byte - Get - Return Me.isInInputField - End Get - Set - Me.isInInputField = value - Me.RaisePropertyChanged("isInInput") - End Set - End Property - - ''' - _ - Public Property Data() As USERINPTAB - Get - Return Me.dataField - End Get - Set - Me.dataField = value - Me.RaisePropertyChanged("Data") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class REMAPDEF - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private varTypeField As Byte - - Private physAddrField As UShort - - Private physBitField As Byte - - Private logicAddrField As UShort - - Private logicBitField As Byte - - Private modeField As Byte - - Private riseTimeField As UInteger - - Private fallTimeField As UInteger - - Private valueField As UInteger - - Private iOMsgIdField As UInteger - - Private iOClassField As Byte - - Private currPhysValueField As UInteger - - Private currLogicValueField As UInteger - - ''' - _ - Public Property VarType() As Byte - Get - Return Me.varTypeField - End Get - Set - Me.varTypeField = value - Me.RaisePropertyChanged("VarType") - End Set - End Property - - ''' - _ - Public Property PhysAddr() As UShort - Get - Return Me.physAddrField - End Get - Set - Me.physAddrField = value - Me.RaisePropertyChanged("PhysAddr") - End Set - End Property - - ''' - _ - Public Property PhysBit() As Byte - Get - Return Me.physBitField - End Get - Set - Me.physBitField = value - Me.RaisePropertyChanged("PhysBit") - End Set - End Property - - ''' - _ - Public Property LogicAddr() As UShort - Get - Return Me.logicAddrField - End Get - Set - Me.logicAddrField = value - Me.RaisePropertyChanged("LogicAddr") - End Set - End Property - - ''' - _ - Public Property LogicBit() As Byte - Get - Return Me.logicBitField - End Get - Set - Me.logicBitField = value - Me.RaisePropertyChanged("LogicBit") - End Set - End Property - - ''' - _ - Public Property Mode() As Byte - Get - Return Me.modeField - End Get - Set - Me.modeField = value - Me.RaisePropertyChanged("Mode") - End Set - End Property - - ''' - _ - Public Property RiseTime() As UInteger - Get - Return Me.riseTimeField - End Get - Set - Me.riseTimeField = value - Me.RaisePropertyChanged("RiseTime") - End Set - End Property - - ''' - _ - Public Property FallTime() As UInteger - Get - Return Me.fallTimeField - End Get - Set - Me.fallTimeField = value - Me.RaisePropertyChanged("FallTime") - End Set - End Property - - ''' - _ - Public Property Value() As UInteger - Get - Return Me.valueField - End Get - Set - Me.valueField = value - Me.RaisePropertyChanged("Value") - End Set - End Property - - ''' - _ - Public Property IOMsgId() As UInteger - Get - Return Me.iOMsgIdField - End Get - Set - Me.iOMsgIdField = value - Me.RaisePropertyChanged("IOMsgId") - End Set - End Property - - ''' - _ - Public Property IOClass() As Byte - Get - Return Me.iOClassField - End Get - Set - Me.iOClassField = value - Me.RaisePropertyChanged("IOClass") - End Set - End Property - - ''' - _ - Public Property CurrPhysValue() As UInteger - Get - Return Me.currPhysValueField - End Get - Set - Me.currPhysValueField = value - Me.RaisePropertyChanged("CurrPhysValue") - End Set - End Property - - ''' - _ - Public Property CurrLogicValue() As UInteger - Get - Return Me.currLogicValueField - End Get - Set - Me.currLogicValueField = value - Me.RaisePropertyChanged("CurrLogicValue") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class MARKERINFO - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private numberField As Short - - Private lineNumField() As UInteger - - Private numBlksField() As UInteger - - Private markerNameField()() As Byte - - Private pPnameField()() As Byte - - Private breakValField As UInteger - - ''' - _ - Public Property Number() As Short - Get - Return Me.numberField - End Get - Set - Me.numberField = value - Me.RaisePropertyChanged("Number") - End Set - End Property - - ''' - _ - Public Property LineNum() As UInteger() - Get - Return Me.lineNumField - End Get - Set - Me.lineNumField = value - Me.RaisePropertyChanged("LineNum") - End Set - End Property - - ''' - _ - Public Property NumBlks() As UInteger() - Get - Return Me.numBlksField - End Get - Set - Me.numBlksField = value - Me.RaisePropertyChanged("NumBlks") - End Set - End Property - - ''' - _ - Public Property MarkerName() As Byte()() - Get - Return Me.markerNameField - End Get - Set - Me.markerNameField = value - Me.RaisePropertyChanged("MarkerName") - End Set - End Property - - ''' - _ - Public Property PPname() As Byte()() - Get - Return Me.pPnameField - End Get - Set - Me.pPnameField = value - Me.RaisePropertyChanged("PPname") - End Set - End Property - - ''' - _ - Public Property breakVal() As UInteger - Get - Return Me.breakValField - End Get - Set - Me.breakValField = value - Me.RaisePropertyChanged("breakVal") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class MSGANOMALY - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private bootIDField As UInteger - - Private systemTimeField As SYSTEMTIMECNDEX - - Private unIdSeqField As UInteger - - Private codeErrField As UInteger - - Private lineaField As UInteger - - Private formatTxtField() As Byte - - ''' - _ - Public Property BootID() As UInteger - Get - Return Me.bootIDField - End Get - Set - Me.bootIDField = value - Me.RaisePropertyChanged("BootID") - End Set - End Property - - ''' - _ - Public Property SystemTime() As SYSTEMTIMECNDEX - Get - Return Me.systemTimeField - End Get - Set - Me.systemTimeField = value - Me.RaisePropertyChanged("SystemTime") - End Set - End Property - - ''' - _ - Public Property UnIdSeq() As UInteger - Get - Return Me.unIdSeqField - End Get - Set - Me.unIdSeqField = value - Me.RaisePropertyChanged("UnIdSeq") - End Set - End Property - - ''' - _ - Public Property CodeErr() As UInteger - Get - Return Me.codeErrField - End Get - Set - Me.codeErrField = value - Me.RaisePropertyChanged("CodeErr") - End Set - End Property - - ''' - _ - Public Property Linea() As UInteger - Get - Return Me.lineaField - End Get - Set - Me.lineaField = value - Me.RaisePropertyChanged("Linea") - End Set - End Property - - ''' - _ - Public Property FormatTxt() As Byte() - Get - Return Me.formatTxtField - End Get - Set - Me.formatTxtField = value - Me.RaisePropertyChanged("FormatTxt") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SYSTEMTIMECNDEX - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private wYearField As UShort - - Private wMonthField As UShort - - Private wDayOfWeekField As UShort - - Private wDayField As UShort - - Private wHourField As UShort - - Private wMinuteField As UShort - - Private wSecondField As UShort - - Private wMillisecondsField As UShort - - ''' - _ - Public Property wYear() As UShort - Get - Return Me.wYearField - End Get - Set - Me.wYearField = value - Me.RaisePropertyChanged("wYear") - End Set - End Property - - ''' - _ - Public Property wMonth() As UShort - Get - Return Me.wMonthField - End Get - Set - Me.wMonthField = value - Me.RaisePropertyChanged("wMonth") - End Set - End Property - - ''' - _ - Public Property wDayOfWeek() As UShort - Get - Return Me.wDayOfWeekField - End Get - Set - Me.wDayOfWeekField = value - Me.RaisePropertyChanged("wDayOfWeek") - End Set - End Property - - ''' - _ - Public Property wDay() As UShort - Get - Return Me.wDayField - End Get - Set - Me.wDayField = value - Me.RaisePropertyChanged("wDay") - End Set - End Property - - ''' - _ - Public Property wHour() As UShort - Get - Return Me.wHourField - End Get - Set - Me.wHourField = value - Me.RaisePropertyChanged("wHour") - End Set - End Property - - ''' - _ - Public Property wMinute() As UShort - Get - Return Me.wMinuteField - End Get - Set - Me.wMinuteField = value - Me.RaisePropertyChanged("wMinute") - End Set - End Property - - ''' - _ - Public Property wSecond() As UShort - Get - Return Me.wSecondField - End Get - Set - Me.wSecondField = value - Me.RaisePropertyChanged("wSecond") - End Set - End Property - - ''' - _ - Public Property wMilliseconds() As UShort - Get - Return Me.wMillisecondsField - End Get - Set - Me.wMillisecondsField = value - Me.RaisePropertyChanged("wMilliseconds") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class MSGLOGS - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private bootIDField As UInteger - - Private systemTimeField As SYSTEMTIMECNDEX - - Private unIdSeqField As UInteger - - Private codeLogField As UInteger - - Private errinfoField As UInteger - - Private formatTxtField() As Byte - - ''' - _ - Public Property BootID() As UInteger - Get - Return Me.bootIDField - End Get - Set - Me.bootIDField = value - Me.RaisePropertyChanged("BootID") - End Set - End Property - - ''' - _ - Public Property SystemTime() As SYSTEMTIMECNDEX - Get - Return Me.systemTimeField - End Get - Set - Me.systemTimeField = value - Me.RaisePropertyChanged("SystemTime") - End Set - End Property - - ''' - _ - Public Property UnIdSeq() As UInteger - Get - Return Me.unIdSeqField - End Get - Set - Me.unIdSeqField = value - Me.RaisePropertyChanged("UnIdSeq") - End Set - End Property - - ''' - _ - Public Property CodeLog() As UInteger - Get - Return Me.codeLogField - End Get - Set - Me.codeLogField = value - Me.RaisePropertyChanged("CodeLog") - End Set - End Property - - ''' - _ - Public Property Errinfo() As UInteger - Get - Return Me.errinfoField - End Get - Set - Me.errinfoField = value - Me.RaisePropertyChanged("Errinfo") - End Set - End Property - - ''' - _ - Public Property FormatTxt() As Byte() - Get - Return Me.formatTxtField - End Get - Set - Me.formatTxtField = value - Me.RaisePropertyChanged("FormatTxt") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class MSGERROR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private bootIDField As UInteger - - Private systemTimeField As SYSTEMTIMECNDEX - - Private unIdSeqField As UInteger - - Private codeErrField As UInteger - - Private processField As Short - - Private comandoField As SByte - - Private subComField As SByte - - Private formatTxtField() As Byte - - ''' - _ - Public Property BootID() As UInteger - Get - Return Me.bootIDField - End Get - Set - Me.bootIDField = value - Me.RaisePropertyChanged("BootID") - End Set - End Property - - ''' - _ - Public Property SystemTime() As SYSTEMTIMECNDEX - Get - Return Me.systemTimeField - End Get - Set - Me.systemTimeField = value - Me.RaisePropertyChanged("SystemTime") - End Set - End Property - - ''' - _ - Public Property UnIdSeq() As UInteger - Get - Return Me.unIdSeqField - End Get - Set - Me.unIdSeqField = value - Me.RaisePropertyChanged("UnIdSeq") - End Set - End Property - - ''' - _ - Public Property CodeErr() As UInteger - Get - Return Me.codeErrField - End Get - Set - Me.codeErrField = value - Me.RaisePropertyChanged("CodeErr") - End Set - End Property - - ''' - _ - Public Property Process() As Short - Get - Return Me.processField - End Get - Set - Me.processField = value - Me.RaisePropertyChanged("Process") - End Set - End Property - - ''' - _ - Public Property Comando() As SByte - Get - Return Me.comandoField - End Get - Set - Me.comandoField = value - Me.RaisePropertyChanged("Comando") - End Set - End Property - - ''' - _ - Public Property SubCom() As SByte - Get - Return Me.subComField - End Get - Set - Me.subComField = value - Me.RaisePropertyChanged("SubCom") - End Set - End Property - - ''' - _ - Public Property FormatTxt() As Byte() - Get - Return Me.formatTxtField - End Get - Set - Me.formatTxtField = value - Me.RaisePropertyChanged("FormatTxt") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class MSGEMERGENCY - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private bootIDField As UInteger - - Private systemTimeField As SYSTEMTIMECNDEX - - Private unIdSeqField As UInteger - - Private codeErrField As UInteger - - Private processField As Short - - Private procErrField As Short - - Private formatTxtField() As Byte - - ''' - _ - Public Property BootID() As UInteger - Get - Return Me.bootIDField - End Get - Set - Me.bootIDField = value - Me.RaisePropertyChanged("BootID") - End Set - End Property - - ''' - _ - Public Property SystemTime() As SYSTEMTIMECNDEX - Get - Return Me.systemTimeField - End Get - Set - Me.systemTimeField = value - Me.RaisePropertyChanged("SystemTime") - End Set - End Property - - ''' - _ - Public Property UnIdSeq() As UInteger - Get - Return Me.unIdSeqField - End Get - Set - Me.unIdSeqField = value - Me.RaisePropertyChanged("UnIdSeq") - End Set - End Property - - ''' - _ - Public Property CodeErr() As UInteger - Get - Return Me.codeErrField - End Get - Set - Me.codeErrField = value - Me.RaisePropertyChanged("CodeErr") - End Set - End Property - - ''' - _ - Public Property Process() As Short - Get - Return Me.processField - End Get - Set - Me.processField = value - Me.RaisePropertyChanged("Process") - End Set - End Property - - ''' - _ - Public Property ProcErr() As Short - Get - Return Me.procErrField - End Get - Set - Me.procErrField = value - Me.RaisePropertyChanged("ProcErr") - End Set - End Property - - ''' - _ - Public Property FormatTxt() As Byte() - Get - Return Me.formatTxtField - End Get - Set - Me.formatTxtField = value - Me.RaisePropertyChanged("FormatTxt") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class MONVARDESCR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private classField As UShort - - Private subClassField As UShort - - Private deviceIDField As UShort - - Private codeField As UShort - - Private addressField As UShort - - Private signalField As UShort - - Private samplingPeriodField As Double - - ''' - _ - Public Property [Class]() As UShort - Get - Return Me.classField - End Get - Set - Me.classField = value - Me.RaisePropertyChanged("Class") - End Set - End Property - - ''' - _ - Public Property SubClass() As UShort - Get - Return Me.subClassField - End Get - Set - Me.subClassField = value - Me.RaisePropertyChanged("SubClass") - End Set - End Property - - ''' - _ - Public Property DeviceID() As UShort - Get - Return Me.deviceIDField - End Get - Set - Me.deviceIDField = value - Me.RaisePropertyChanged("DeviceID") - End Set - End Property - - ''' - _ - Public Property Code() As UShort - Get - Return Me.codeField - End Get - Set - Me.codeField = value - Me.RaisePropertyChanged("Code") - End Set - End Property - - ''' - _ - Public Property Address() As UShort - Get - Return Me.addressField - End Get - Set - Me.addressField = value - Me.RaisePropertyChanged("Address") - End Set - End Property - - ''' - _ - Public Property Signal() As UShort - Get - Return Me.signalField - End Get - Set - Me.signalField = value - Me.RaisePropertyChanged("Signal") - End Set - End Property - - ''' - _ - Public Property SamplingPeriod() As Double - Get - Return Me.samplingPeriodField - End Get - Set - Me.samplingPeriodField = value - Me.RaisePropertyChanged("SamplingPeriod") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class MONCUSTOMEVENTINFO - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private idField As UShort - - Private typeField As UShort - - Private nameField As String - - ''' - _ - Public Property ID() As UShort - Get - Return Me.idField - End Get - Set - Me.idField = value - Me.RaisePropertyChanged("ID") - End Set - End Property - - ''' - _ - Public Property Type() As UShort - Get - Return Me.typeField - End Get - Set - Me.typeField = value - Me.RaisePropertyChanged("Type") - End Set - End Property - - ''' - _ - Public Property Name() As String - Get - Return Me.nameField - End Get - Set - Me.nameField = value - Me.RaisePropertyChanged("Name") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class FILEFINDDATA - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private fileAttributesField As UInteger - - Private lowDateCreationTimeField As UInteger - - Private highDateCreationTimeField As UInteger - - Private lowDateLastAccessTimeField As UInteger - - Private highDateLastAccessTimeField As UInteger - - Private lowDateLastWriteTimeField As UInteger - - Private highDateLastWriteTimeField As UInteger - - Private fileSizeHighField As UInteger - - Private fileSizeLowField As UInteger - - Private fileNameField As String - - ''' - _ - Public Property FileAttributes() As UInteger - Get - Return Me.fileAttributesField - End Get - Set - Me.fileAttributesField = value - Me.RaisePropertyChanged("FileAttributes") - End Set - End Property - - ''' - _ - Public Property LowDateCreationTime() As UInteger - Get - Return Me.lowDateCreationTimeField - End Get - Set - Me.lowDateCreationTimeField = value - Me.RaisePropertyChanged("LowDateCreationTime") - End Set - End Property - - ''' - _ - Public Property HighDateCreationTime() As UInteger - Get - Return Me.highDateCreationTimeField - End Get - Set - Me.highDateCreationTimeField = value - Me.RaisePropertyChanged("HighDateCreationTime") - End Set - End Property - - ''' - _ - Public Property LowDateLastAccessTime() As UInteger - Get - Return Me.lowDateLastAccessTimeField - End Get - Set - Me.lowDateLastAccessTimeField = value - Me.RaisePropertyChanged("LowDateLastAccessTime") - End Set - End Property - - ''' - _ - Public Property HighDateLastAccessTime() As UInteger - Get - Return Me.highDateLastAccessTimeField - End Get - Set - Me.highDateLastAccessTimeField = value - Me.RaisePropertyChanged("HighDateLastAccessTime") - End Set - End Property - - ''' - _ - Public Property LowDateLastWriteTime() As UInteger - Get - Return Me.lowDateLastWriteTimeField - End Get - Set - Me.lowDateLastWriteTimeField = value - Me.RaisePropertyChanged("LowDateLastWriteTime") - End Set - End Property - - ''' - _ - Public Property HighDateLastWriteTime() As UInteger - Get - Return Me.highDateLastWriteTimeField - End Get - Set - Me.highDateLastWriteTimeField = value - Me.RaisePropertyChanged("HighDateLastWriteTime") - End Set - End Property - - ''' - _ - Public Property FileSizeHigh() As UInteger - Get - Return Me.fileSizeHighField - End Get - Set - Me.fileSizeHighField = value - Me.RaisePropertyChanged("FileSizeHigh") - End Set - End Property - - ''' - _ - Public Property FileSizeLow() As UInteger - Get - Return Me.fileSizeLowField - End Get - Set - Me.fileSizeLowField = value - Me.RaisePropertyChanged("FileSizeLow") - End Set - End Property - - ''' - _ - Public Property FileName() As String - Get - Return Me.fileNameField - End Get - Set - Me.fileNameField = value - Me.RaisePropertyChanged("FileName") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class ERRMSG - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private msg1Field As String - - Private msg2Field As String - - Private msg3Field As String - - Private msg4Field As String - - ''' - _ - Public Property Msg1() As String - Get - Return Me.msg1Field - End Get - Set - Me.msg1Field = value - Me.RaisePropertyChanged("Msg1") - End Set - End Property - - ''' - _ - Public Property Msg2() As String - Get - Return Me.msg2Field - End Get - Set - Me.msg2Field = value - Me.RaisePropertyChanged("Msg2") - End Set - End Property - - ''' - _ - Public Property Msg3() As String - Get - Return Me.msg3Field - End Get - Set - Me.msg3Field = value - Me.RaisePropertyChanged("Msg3") - End Set - End Property - - ''' - _ - Public Property Msg4() As String - Get - Return Me.msg4Field - End Get - Set - Me.msg4Field = value - Me.RaisePropertyChanged("Msg4") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GETBLKNUMDATA - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private ppActNumField As UShort - - Private mainActBlkField As UInteger - - Private sbr1ActBlkField As UInteger - - Private sbr2ActBlkField As UInteger - - Private sbr3ActBlkField As UInteger - - Private sbr4ActBlkField As UInteger - - ''' - _ - Public Property ppActNum() As UShort - Get - Return Me.ppActNumField - End Get - Set - Me.ppActNumField = value - Me.RaisePropertyChanged("ppActNum") - End Set - End Property - - ''' - _ - Public Property MainActBlk() As UInteger - Get - Return Me.mainActBlkField - End Get - Set - Me.mainActBlkField = value - Me.RaisePropertyChanged("MainActBlk") - End Set - End Property - - ''' - _ - Public Property Sbr1ActBlk() As UInteger - Get - Return Me.sbr1ActBlkField - End Get - Set - Me.sbr1ActBlkField = value - Me.RaisePropertyChanged("Sbr1ActBlk") - End Set - End Property - - ''' - _ - Public Property Sbr2ActBlk() As UInteger - Get - Return Me.sbr2ActBlkField - End Get - Set - Me.sbr2ActBlkField = value - Me.RaisePropertyChanged("Sbr2ActBlk") - End Set - End Property - - ''' - _ - Public Property Sbr3ActBlk() As UInteger - Get - Return Me.sbr3ActBlkField - End Get - Set - Me.sbr3ActBlkField = value - Me.RaisePropertyChanged("Sbr3ActBlk") - End Set - End Property - - ''' - _ - Public Property Sbr4ActBlk() As UInteger - Get - Return Me.sbr4ActBlkField - End Get - Set - Me.sbr4ActBlkField = value - Me.RaisePropertyChanged("Sbr4ActBlk") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class PROCDATA - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private modeField As UShort - - Private statusField As UShort - - Private subStatusField As UShort - - ''' - _ - Public Property Mode() As UShort - Get - Return Me.modeField - End Get - Set - Me.modeField = value - Me.RaisePropertyChanged("Mode") - End Set - End Property - - ''' - _ - Public Property Status() As UShort - Get - Return Me.statusField - End Get - Set - Me.statusField = value - Me.RaisePropertyChanged("Status") - End Set - End Property - - ''' - _ - Public Property SubStatus() As UShort - Get - Return Me.subStatusField - End Get - Set - Me.subStatusField = value - Me.RaisePropertyChanged("SubStatus") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GETINFO2DATA - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private statusWordField As UShort - - Private urpField As Double - - Private actToolField As Double - - Private actOffsetField As UShort - - Private progToolField As Double - - Private progOffsetField As UShort - - Private mStatusField As UShort - - Private mValueField() As UShort - - Private ax1NameField As Byte - - Private ax1OffsetField As Double - - Private ax2NameField As Byte - - Private ax2OffsetField As Double - - Private radiusField As Double - - ''' - _ - Public Property StatusWord() As UShort - Get - Return Me.statusWordField - End Get - Set - Me.statusWordField = value - Me.RaisePropertyChanged("StatusWord") - End Set - End Property - - ''' - _ - Public Property Urp() As Double - Get - Return Me.urpField - End Get - Set - Me.urpField = value - Me.RaisePropertyChanged("Urp") - End Set - End Property - - ''' - _ - Public Property ActTool() As Double - Get - Return Me.actToolField - End Get - Set - Me.actToolField = value - Me.RaisePropertyChanged("ActTool") - End Set - End Property - - ''' - _ - Public Property ActOffset() As UShort - Get - Return Me.actOffsetField - End Get - Set - Me.actOffsetField = value - Me.RaisePropertyChanged("ActOffset") - End Set - End Property - - ''' - _ - Public Property ProgTool() As Double - Get - Return Me.progToolField - End Get - Set - Me.progToolField = value - Me.RaisePropertyChanged("ProgTool") - End Set - End Property - - ''' - _ - Public Property ProgOffset() As UShort - Get - Return Me.progOffsetField - End Get - Set - Me.progOffsetField = value - Me.RaisePropertyChanged("ProgOffset") - End Set - End Property - - ''' - _ - Public Property MStatus() As UShort - Get - Return Me.mStatusField - End Get - Set - Me.mStatusField = value - Me.RaisePropertyChanged("MStatus") - End Set - End Property - - ''' - _ - Public Property MValue() As UShort() - Get - Return Me.mValueField - End Get - Set - Me.mValueField = value - Me.RaisePropertyChanged("MValue") - End Set - End Property - - ''' - _ - Public Property Ax1Name() As Byte - Get - Return Me.ax1NameField - End Get - Set - Me.ax1NameField = value - Me.RaisePropertyChanged("Ax1Name") - End Set - End Property - - ''' - _ - Public Property Ax1Offset() As Double - Get - Return Me.ax1OffsetField - End Get - Set - Me.ax1OffsetField = value - Me.RaisePropertyChanged("Ax1Offset") - End Set - End Property - - ''' - _ - Public Property Ax2Name() As Byte - Get - Return Me.ax2NameField - End Get - Set - Me.ax2NameField = value - Me.RaisePropertyChanged("Ax2Name") - End Set - End Property - - ''' - _ - Public Property Ax2Offset() As Double - Get - Return Me.ax2OffsetField - End Get - Set - Me.ax2OffsetField = value - Me.RaisePropertyChanged("Ax2Offset") - End Set - End Property - - ''' - _ - Public Property Radius() As Double - Get - Return Me.radiusField - End Get - Set - Me.radiusField = value - Me.RaisePropertyChanged("Radius") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GETINFO1DATA - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private statusField As Byte - - Private substatusField As Byte - - Private modeselectField As Byte - - Private jogdirField As Byte - - Private speedovField As UShort - - Private feedovField As UShort - - Private rapfeedovField As UShort - - Private manfeedovField As UShort - - Private jogincrField As Double - - Private numaxselField As Byte - - Private axselField() As Byte - - Private actualtoolField As Double - - Private progrtoolField As Double - - Private actualtooloffField As UShort - - Private progrtooloffField As UShort - - Private realspeedField As Double - - Private progrspeedField As Double - - Private progrfeedField As Double - - Private rapidfeedField As Double - - Private realfeedField As Double - - Private feedmisunitField As UShort - - Private mainprogrnameField As String - - Private dryrunField As Byte - - Private rapidoverrideField As Byte - - Private disableslashedblkField As Byte - - Private optionalstopField As Byte - - Private forcerapidfeedField As Byte - - Private autojogretField As Byte - - Private blockretraceField As Byte - - Private lastncerrorField As UShort - - Private freeField As String - - ''' - _ - Public Property status() As Byte - Get - Return Me.statusField - End Get - Set - Me.statusField = value - Me.RaisePropertyChanged("status") - End Set - End Property - - ''' - _ - Public Property substatus() As Byte - Get - Return Me.substatusField - End Get - Set - Me.substatusField = value - Me.RaisePropertyChanged("substatus") - End Set - End Property - - ''' - _ - Public Property modeselect() As Byte - Get - Return Me.modeselectField - End Get - Set - Me.modeselectField = value - Me.RaisePropertyChanged("modeselect") - End Set - End Property - - ''' - _ - Public Property jogdir() As Byte - Get - Return Me.jogdirField - End Get - Set - Me.jogdirField = value - Me.RaisePropertyChanged("jogdir") - End Set - End Property - - ''' - _ - Public Property speedov() As UShort - Get - Return Me.speedovField - End Get - Set - Me.speedovField = value - Me.RaisePropertyChanged("speedov") - End Set - End Property - - ''' - _ - Public Property feedov() As UShort - Get - Return Me.feedovField - End Get - Set - Me.feedovField = value - Me.RaisePropertyChanged("feedov") - End Set - End Property - - ''' - _ - Public Property rapfeedov() As UShort - Get - Return Me.rapfeedovField - End Get - Set - Me.rapfeedovField = value - Me.RaisePropertyChanged("rapfeedov") - End Set - End Property - - ''' - _ - Public Property manfeedov() As UShort - Get - Return Me.manfeedovField - End Get - Set - Me.manfeedovField = value - Me.RaisePropertyChanged("manfeedov") - End Set - End Property - - ''' - _ - Public Property jogincr() As Double - Get - Return Me.jogincrField - End Get - Set - Me.jogincrField = value - Me.RaisePropertyChanged("jogincr") - End Set - End Property - - ''' - _ - Public Property numaxsel() As Byte - Get - Return Me.numaxselField - End Get - Set - Me.numaxselField = value - Me.RaisePropertyChanged("numaxsel") - End Set - End Property - - ''' - _ - Public Property axsel() As Byte() - Get - Return Me.axselField - End Get - Set - Me.axselField = value - Me.RaisePropertyChanged("axsel") - End Set - End Property - - ''' - _ - Public Property actualtool() As Double - Get - Return Me.actualtoolField - End Get - Set - Me.actualtoolField = value - Me.RaisePropertyChanged("actualtool") - End Set - End Property - - ''' - _ - Public Property progrtool() As Double - Get - Return Me.progrtoolField - End Get - Set - Me.progrtoolField = value - Me.RaisePropertyChanged("progrtool") - End Set - End Property - - ''' - _ - Public Property actualtooloff() As UShort - Get - Return Me.actualtooloffField - End Get - Set - Me.actualtooloffField = value - Me.RaisePropertyChanged("actualtooloff") - End Set - End Property - - ''' - _ - Public Property progrtooloff() As UShort - Get - Return Me.progrtooloffField - End Get - Set - Me.progrtooloffField = value - Me.RaisePropertyChanged("progrtooloff") - End Set - End Property - - ''' - _ - Public Property realspeed() As Double - Get - Return Me.realspeedField - End Get - Set - Me.realspeedField = value - Me.RaisePropertyChanged("realspeed") - End Set - End Property - - ''' - _ - Public Property progrspeed() As Double - Get - Return Me.progrspeedField - End Get - Set - Me.progrspeedField = value - Me.RaisePropertyChanged("progrspeed") - End Set - End Property - - ''' - _ - Public Property progrfeed() As Double - Get - Return Me.progrfeedField - End Get - Set - Me.progrfeedField = value - Me.RaisePropertyChanged("progrfeed") - End Set - End Property - - ''' - _ - Public Property rapidfeed() As Double - Get - Return Me.rapidfeedField - End Get - Set - Me.rapidfeedField = value - Me.RaisePropertyChanged("rapidfeed") - End Set - End Property - - ''' - _ - Public Property realfeed() As Double - Get - Return Me.realfeedField - End Get - Set - Me.realfeedField = value - Me.RaisePropertyChanged("realfeed") - End Set - End Property - - ''' - _ - Public Property feedmisunit() As UShort - Get - Return Me.feedmisunitField - End Get - Set - Me.feedmisunitField = value - Me.RaisePropertyChanged("feedmisunit") - End Set - End Property - - ''' - _ - Public Property mainprogrname() As String - Get - Return Me.mainprogrnameField - End Get - Set - Me.mainprogrnameField = value - Me.RaisePropertyChanged("mainprogrname") - End Set - End Property - - ''' - _ - Public Property dryrun() As Byte - Get - Return Me.dryrunField - End Get - Set - Me.dryrunField = value - Me.RaisePropertyChanged("dryrun") - End Set - End Property - - ''' - _ - Public Property rapidoverride() As Byte - Get - Return Me.rapidoverrideField - End Get - Set - Me.rapidoverrideField = value - Me.RaisePropertyChanged("rapidoverride") - End Set - End Property - - ''' - _ - Public Property disableslashedblk() As Byte - Get - Return Me.disableslashedblkField - End Get - Set - Me.disableslashedblkField = value - Me.RaisePropertyChanged("disableslashedblk") - End Set - End Property - - ''' - _ - Public Property optionalstop() As Byte - Get - Return Me.optionalstopField - End Get - Set - Me.optionalstopField = value - Me.RaisePropertyChanged("optionalstop") - End Set - End Property - - ''' - _ - Public Property forcerapidfeed() As Byte - Get - Return Me.forcerapidfeedField - End Get - Set - Me.forcerapidfeedField = value - Me.RaisePropertyChanged("forcerapidfeed") - End Set - End Property - - ''' - _ - Public Property autojogret() As Byte - Get - Return Me.autojogretField - End Get - Set - Me.autojogretField = value - Me.RaisePropertyChanged("autojogret") - End Set - End Property - - ''' - _ - Public Property blockretrace() As Byte - Get - Return Me.blockretraceField - End Get - Set - Me.blockretraceField = value - Me.RaisePropertyChanged("blockretrace") - End Set - End Property - - ''' - _ - Public Property lastncerror() As UShort - Get - Return Me.lastncerrorField - End Get - Set - Me.lastncerrorField = value - Me.RaisePropertyChanged("lastncerror") - End Set - End Property - - ''' - _ - Public Property free() As String - Get - Return Me.freeField - End Get - Set - Me.freeField = value - Me.RaisePropertyChanged("free") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GETINTDATA - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private axisNameField As Byte - - Private modeField As Byte - - Private positionField As Double - - Private totalOffsetField As Double - - ''' - _ - Public Property AxisName() As Byte - Get - Return Me.axisNameField - End Get - Set - Me.axisNameField = value - Me.RaisePropertyChanged("AxisName") - End Set - End Property - - ''' - _ - Public Property mode() As Byte - Get - Return Me.modeField - End Get - Set - Me.modeField = value - Me.RaisePropertyChanged("mode") - End Set - End Property - - ''' - _ - Public Property position() As Double - Get - Return Me.positionField - End Get - Set - Me.positionField = value - Me.RaisePropertyChanged("position") - End Set - End Property - - ''' - _ - Public Property TotalOffset() As Double - Get - Return Me.totalOffsetField - End Get - Set - Me.totalOffsetField = value - Me.RaisePropertyChanged("TotalOffset") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class AXORIGNUM - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private axisNameField As Byte - - Private originNumberField As Byte - - Private originFlagField As UShort - - ''' - _ - Public Property AxisName() As Byte - Get - Return Me.axisNameField - End Get - Set - Me.axisNameField = value - Me.RaisePropertyChanged("AxisName") - End Set - End Property - - ''' - _ - Public Property OriginNumber() As Byte - Get - Return Me.originNumberField - End Get - Set - Me.originNumberField = value - Me.RaisePropertyChanged("OriginNumber") - End Set - End Property - - ''' - _ - Public Property OriginFlag() As UShort - Get - Return Me.originFlagField - End Get - Set - Me.originFlagField = value - Me.RaisePropertyChanged("OriginFlag") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class USERTABLEII - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private userValField() As Double - - ''' - _ - Public Property UserVal() As Double() - Get - Return Me.userValField - End Get - Set - Me.userValField = value - Me.RaisePropertyChanged("UserVal") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class OFFSETVALII - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private valOrigField As Double - - Private maxChangeValField As Double - - Private actChangeValField As Double - - ''' - _ - Public Property ValOrig() As Double - Get - Return Me.valOrigField - End Get - Set - Me.valOrigField = value - Me.RaisePropertyChanged("ValOrig") - End Set - End Property - - ''' - _ - Public Property MaxChangeVal() As Double - Get - Return Me.maxChangeValField - End Get - Set - Me.maxChangeValField = value - Me.RaisePropertyChanged("MaxChangeVal") - End Set - End Property - - ''' - _ - Public Property ActChangeVal() As Double - Get - Return Me.actChangeValField - End Get - Set - Me.actChangeValField = value - Me.RaisePropertyChanged("ActChangeVal") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class OFFSETTABLEII - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private lenValField() As OFFSETVALII - - Private diaValField() As OFFSETVALII - - Private orientField As UShort - - Private externTypeField As UShort - - Private externIndField As UShort - - Private duserField() As Double - - Private suserField() As Short - - Private descrField() As UShort - - ''' - _ - Public Property LenVal() As OFFSETVALII() - Get - Return Me.lenValField - End Get - Set - Me.lenValField = value - Me.RaisePropertyChanged("LenVal") - End Set - End Property - - ''' - _ - Public Property DiaVal() As OFFSETVALII() - Get - Return Me.diaValField - End Get - Set - Me.diaValField = value - Me.RaisePropertyChanged("DiaVal") - End Set - End Property - - ''' - _ - Public Property Orient() As UShort - Get - Return Me.orientField - End Get - Set - Me.orientField = value - Me.RaisePropertyChanged("Orient") - End Set - End Property - - ''' - _ - Public Property ExternType() As UShort - Get - Return Me.externTypeField - End Get - Set - Me.externTypeField = value - Me.RaisePropertyChanged("ExternType") - End Set - End Property - - ''' - _ - Public Property ExternInd() As UShort - Get - Return Me.externIndField - End Get - Set - Me.externIndField = value - Me.RaisePropertyChanged("ExternInd") - End Set - End Property - - ''' - _ - Public Property Duser() As Double() - Get - Return Me.duserField - End Get - Set - Me.duserField = value - Me.RaisePropertyChanged("Duser") - End Set - End Property - - ''' - _ - Public Property Suser() As Short() - Get - Return Me.suserField - End Get - Set - Me.suserField = value - Me.RaisePropertyChanged("Suser") - End Set - End Property - - ''' - _ - Public Property Descr() As UShort() - Get - Return Me.descrField - End Get - Set - Me.descrField = value - Me.RaisePropertyChanged("Descr") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class TOOLTABLEII - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private toolNameField As String - - Private statusField As UShort - - Private lifeTypeField As UShort - - Private maxLifeField As Double - - Private remLifeField As Double - - Private offsNumField As UShort - - Private externTypeField As UShort - - Private externIndField As UShort - - Private duserField() As Double - - Private suserField() As Short - - Private descrField() As UShort - - ''' - _ - Public Property ToolName() As String - Get - Return Me.toolNameField - End Get - Set - Me.toolNameField = value - Me.RaisePropertyChanged("ToolName") - End Set - End Property - - ''' - _ - Public Property Status() As UShort - Get - Return Me.statusField - End Get - Set - Me.statusField = value - Me.RaisePropertyChanged("Status") - End Set - End Property - - ''' - _ - Public Property LifeType() As UShort - Get - Return Me.lifeTypeField - End Get - Set - Me.lifeTypeField = value - Me.RaisePropertyChanged("LifeType") - End Set - End Property - - ''' - _ - Public Property MaxLife() As Double - Get - Return Me.maxLifeField - End Get - Set - Me.maxLifeField = value - Me.RaisePropertyChanged("MaxLife") - End Set - End Property - - ''' - _ - Public Property RemLife() As Double - Get - Return Me.remLifeField - End Get - Set - Me.remLifeField = value - Me.RaisePropertyChanged("RemLife") - End Set - End Property - - ''' - _ - Public Property OffsNum() As UShort - Get - Return Me.offsNumField - End Get - Set - Me.offsNumField = value - Me.RaisePropertyChanged("OffsNum") - End Set - End Property - - ''' - _ - Public Property ExternType() As UShort - Get - Return Me.externTypeField - End Get - Set - Me.externTypeField = value - Me.RaisePropertyChanged("ExternType") - End Set - End Property - - ''' - _ - Public Property ExternInd() As UShort - Get - Return Me.externIndField - End Get - Set - Me.externIndField = value - Me.RaisePropertyChanged("ExternInd") - End Set - End Property - - ''' - _ - Public Property Duser() As Double() - Get - Return Me.duserField - End Get - Set - Me.duserField = value - Me.RaisePropertyChanged("Duser") - End Set - End Property - - ''' - _ - Public Property Suser() As Short() - Get - Return Me.suserField - End Get - Set - Me.suserField = value - Me.RaisePropertyChanged("Suser") - End Set - End Property - - ''' - _ - Public Property Descr() As UShort() - Get - Return Me.descrField - End Get - Set - Me.descrField = value - Me.RaisePropertyChanged("Descr") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class ORIGINTABLEII - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private axisValField() As Double - - Private externTypeField As UShort - - Private externIndField As UShort - - Private descrField() As UShort - - ''' - _ - Public Property AxisVal() As Double() - Get - Return Me.axisValField - End Get - Set - Me.axisValField = value - Me.RaisePropertyChanged("AxisVal") - End Set - End Property - - ''' - _ - Public Property ExternType() As UShort - Get - Return Me.externTypeField - End Get - Set - Me.externTypeField = value - Me.RaisePropertyChanged("ExternType") - End Set - End Property - - ''' - _ - Public Property ExternInd() As UShort - Get - Return Me.externIndField - End Get - Set - Me.externIndField = value - Me.RaisePropertyChanged("ExternInd") - End Set - End Property - - ''' - _ - Public Property Descr() As UShort() - Get - Return Me.descrField - End Get - Set - Me.descrField = value - Me.RaisePropertyChanged("Descr") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class BootPhaseEnquiryR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private phaseField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property Phase() As UShort - Get - Return Me.phaseField - End Get - Set - Me.phaseField = value - Me.RaisePropertyChanged("Phase") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class BootPhaseEnquiryRequest - - _ - Public BootPhaseEnquiry As OPENcontrol.BootPhaseEnquiry - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal BootPhaseEnquiry As OPENcontrol.BootPhaseEnquiry) - MyBase.New - Me.BootPhaseEnquiry = BootPhaseEnquiry - End Sub - End Class - - _ - Partial Public Class BootPhaseEnquiryResponse - - _ - Public BootPhaseEnquiryR As OPENcontrol.BootPhaseEnquiryR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal BootPhaseEnquiryR As OPENcontrol.BootPhaseEnquiryR) - MyBase.New - Me.BootPhaseEnquiryR = BootPhaseEnquiryR - End Sub - End Class - - ''' - _ - Partial Public Class BootReboot - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class BootRebootR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class BootRebootRequest - - _ - Public BootReboot As OPENcontrol.BootReboot - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal BootReboot As OPENcontrol.BootReboot) - MyBase.New - Me.BootReboot = BootReboot - End Sub - End Class - - _ - Partial Public Class BootRebootResponse - - _ - Public BootRebootR As OPENcontrol.BootRebootR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal BootRebootR As OPENcontrol.BootRebootR) - MyBase.New - Me.BootRebootR = BootRebootR - End Sub - End Class - - ''' - _ - Partial Public Class BootShutDown - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class BootShutDownR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class BootShutDownRequest - - _ - Public BootShutDown As OPENcontrol.BootShutDown - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal BootShutDown As OPENcontrol.BootShutDown) - MyBase.New - Me.BootShutDown = BootShutDown - End Sub - End Class - - _ - Partial Public Class BootShutDownResponse - - _ - Public BootShutDownR As OPENcontrol.BootShutDownR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal BootShutDownR As OPENcontrol.BootShutDownR) - MyBase.New - Me.BootShutDownR = BootShutDownR - End Sub - End Class - - ''' - _ - Partial Public Class BootMode - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private modeField As UShort - - ''' - _ - Public Property Mode() As UShort - Get - Return Me.modeField - End Get - Set - Me.modeField = value - Me.RaisePropertyChanged("Mode") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class BootModeR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class BootModeRequest - - _ - Public BootMode As OPENcontrol.BootMode - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal BootMode As OPENcontrol.BootMode) - MyBase.New - Me.BootMode = BootMode - End Sub - End Class - - _ - Partial Public Class BootModeResponse - - _ - Public BootModeR As OPENcontrol.BootModeR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal BootModeR As OPENcontrol.BootModeR) - MyBase.New - Me.BootModeR = BootModeR - End Sub - End Class - - ''' - _ - Partial Public Class GetHWKey - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetHWKeyR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private hwKeyField() As Byte - - Private securLevelField() As Byte - - Private releaseField As String - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property HwKey() As Byte() - Get - Return Me.hwKeyField - End Get - Set - Me.hwKeyField = value - Me.RaisePropertyChanged("HwKey") - End Set - End Property - - ''' - _ - Public Property SecurLevel() As Byte() - Get - Return Me.securLevelField - End Get - Set - Me.securLevelField = value - Me.RaisePropertyChanged("SecurLevel") - End Set - End Property - - ''' - _ - Public Property Release() As String - Get - Return Me.releaseField - End Get - Set - Me.releaseField = value - Me.RaisePropertyChanged("Release") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetHWKeyRequest - - _ - Public GetHWKey As OPENcontrol.GetHWKey - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetHWKey As OPENcontrol.GetHWKey) - MyBase.New - Me.GetHWKey = GetHWKey - End Sub - End Class - - _ - Partial Public Class GetHWKeyResponse - - _ - Public GetHWKeyR As OPENcontrol.GetHWKeyR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetHWKeyR As OPENcontrol.GetHWKeyR) - MyBase.New - Me.GetHWKeyR = GetHWKeyR - End Sub - End Class - - ''' - _ - Partial Public Class ReadVarWord - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private codeField As UShort - - Private processField As UShort - - Private indexField As UShort - - Private numVarField As UShort - - ''' - _ - Public Property Code() As UShort - Get - Return Me.codeField - End Get - Set - Me.codeField = value - Me.RaisePropertyChanged("Code") - End Set - End Property - - ''' - _ - Public Property Process() As UShort - Get - Return Me.processField - End Get - Set - Me.processField = value - Me.RaisePropertyChanged("Process") - End Set - End Property - - ''' - _ - Public Property Index() As UShort - Get - Return Me.indexField - End Get - Set - Me.indexField = value - Me.RaisePropertyChanged("Index") - End Set - End Property - - ''' - _ - Public Property NumVar() As UShort - Get - Return Me.numVarField - End Get - Set - Me.numVarField = value - Me.RaisePropertyChanged("NumVar") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class ReadVarWordR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private valueField() As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property Value() As UShort() - Get - Return Me.valueField - End Get - Set - Me.valueField = value - Me.RaisePropertyChanged("Value") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class ReadVarWordRequest - - _ - Public ReadVarWord As OPENcontrol.ReadVarWord - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ReadVarWord As OPENcontrol.ReadVarWord) - MyBase.New - Me.ReadVarWord = ReadVarWord - End Sub - End Class - - _ - Partial Public Class ReadVarWordResponse - - _ - Public ReadVarWordR As OPENcontrol.ReadVarWordR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ReadVarWordR As OPENcontrol.ReadVarWordR) - MyBase.New - Me.ReadVarWordR = ReadVarWordR - End Sub - End Class - - ''' - _ - Partial Public Class ReadVarDouble - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private codeField As UShort - - Private processField As UShort - - Private indexField As UShort - - Private numVarField As UShort - - ''' - _ - Public Property Code() As UShort - Get - Return Me.codeField - End Get - Set - Me.codeField = value - Me.RaisePropertyChanged("Code") - End Set - End Property - - ''' - _ - Public Property Process() As UShort - Get - Return Me.processField - End Get - Set - Me.processField = value - Me.RaisePropertyChanged("Process") - End Set - End Property - - ''' - _ - Public Property Index() As UShort - Get - Return Me.indexField - End Get - Set - Me.indexField = value - Me.RaisePropertyChanged("Index") - End Set - End Property - - ''' - _ - Public Property NumVar() As UShort - Get - Return Me.numVarField - End Get - Set - Me.numVarField = value - Me.RaisePropertyChanged("NumVar") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class ReadVarDoubleR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private valueField() As Double - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property Value() As Double() - Get - Return Me.valueField - End Get - Set - Me.valueField = value - Me.RaisePropertyChanged("Value") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class ReadVarDoubleRequest - - _ - Public ReadVarDouble As OPENcontrol.ReadVarDouble - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ReadVarDouble As OPENcontrol.ReadVarDouble) - MyBase.New - Me.ReadVarDouble = ReadVarDouble - End Sub - End Class - - _ - Partial Public Class ReadVarDoubleResponse - - _ - Public ReadVarDoubleR As OPENcontrol.ReadVarDoubleR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ReadVarDoubleR As OPENcontrol.ReadVarDoubleR) - MyBase.New - Me.ReadVarDoubleR = ReadVarDoubleR - End Sub - End Class - - ''' - _ - Partial Public Class WriteVarWord - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private codeField As UShort - - Private processField As UShort - - Private indexField As UShort - - Private numVarField As UShort - - Private valueField() As UShort - - ''' - _ - Public Property Code() As UShort - Get - Return Me.codeField - End Get - Set - Me.codeField = value - Me.RaisePropertyChanged("Code") - End Set - End Property - - ''' - _ - Public Property Process() As UShort - Get - Return Me.processField - End Get - Set - Me.processField = value - Me.RaisePropertyChanged("Process") - End Set - End Property - - ''' - _ - Public Property Index() As UShort - Get - Return Me.indexField - End Get - Set - Me.indexField = value - Me.RaisePropertyChanged("Index") - End Set - End Property - - ''' - _ - Public Property NumVar() As UShort - Get - Return Me.numVarField - End Get - Set - Me.numVarField = value - Me.RaisePropertyChanged("NumVar") - End Set - End Property - - ''' - _ - Public Property Value() As UShort() - Get - Return Me.valueField - End Get - Set - Me.valueField = value - Me.RaisePropertyChanged("Value") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class WriteVarWordR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class WriteVarWordRequest - - _ - Public WriteVarWord As OPENcontrol.WriteVarWord - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal WriteVarWord As OPENcontrol.WriteVarWord) - MyBase.New - Me.WriteVarWord = WriteVarWord - End Sub - End Class - - _ - Partial Public Class WriteVarWordResponse - - _ - Public WriteVarWordR As OPENcontrol.WriteVarWordR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal WriteVarWordR As OPENcontrol.WriteVarWordR) - MyBase.New - Me.WriteVarWordR = WriteVarWordR - End Sub - End Class - - ''' - _ - Partial Public Class WriteVarWordBit - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private codeField As UShort - - Private processField As UShort - - Private indexField As UShort - - Private bitIndexField As UShort - - Private bitValueField As UShort - - ''' - _ - Public Property Code() As UShort - Get - Return Me.codeField - End Get - Set - Me.codeField = value - Me.RaisePropertyChanged("Code") - End Set - End Property - - ''' - _ - Public Property Process() As UShort - Get - Return Me.processField - End Get - Set - Me.processField = value - Me.RaisePropertyChanged("Process") - End Set - End Property - - ''' - _ - Public Property Index() As UShort - Get - Return Me.indexField - End Get - Set - Me.indexField = value - Me.RaisePropertyChanged("Index") - End Set - End Property - - ''' - _ - Public Property BitIndex() As UShort - Get - Return Me.bitIndexField - End Get - Set - Me.bitIndexField = value - Me.RaisePropertyChanged("BitIndex") - End Set - End Property - - ''' - _ - Public Property BitValue() As UShort - Get - Return Me.bitValueField - End Get - Set - Me.bitValueField = value - Me.RaisePropertyChanged("BitValue") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class WriteVarWordBitR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class WriteVarWordBitRequest - - _ - Public WriteVarWordBit As OPENcontrol.WriteVarWordBit - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal WriteVarWordBit As OPENcontrol.WriteVarWordBit) - MyBase.New - Me.WriteVarWordBit = WriteVarWordBit - End Sub - End Class - - _ - Partial Public Class WriteVarWordBitResponse - - _ - Public WriteVarWordBitR As OPENcontrol.WriteVarWordBitR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal WriteVarWordBitR As OPENcontrol.WriteVarWordBitR) - MyBase.New - Me.WriteVarWordBitR = WriteVarWordBitR - End Sub - End Class - - ''' - _ - Partial Public Class WriteVarDouble - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private codeField As UShort - - Private processField As UShort - - Private indexField As UShort - - Private numVarField As UShort - - Private valueField() As Double - - ''' - _ - Public Property Code() As UShort - Get - Return Me.codeField - End Get - Set - Me.codeField = value - Me.RaisePropertyChanged("Code") - End Set - End Property - - ''' - _ - Public Property Process() As UShort - Get - Return Me.processField - End Get - Set - Me.processField = value - Me.RaisePropertyChanged("Process") - End Set - End Property - - ''' - _ - Public Property Index() As UShort - Get - Return Me.indexField - End Get - Set - Me.indexField = value - Me.RaisePropertyChanged("Index") - End Set - End Property - - ''' - _ - Public Property NumVar() As UShort - Get - Return Me.numVarField - End Get - Set - Me.numVarField = value - Me.RaisePropertyChanged("NumVar") - End Set - End Property - - ''' - _ - Public Property Value() As Double() - Get - Return Me.valueField - End Get - Set - Me.valueField = value - Me.RaisePropertyChanged("Value") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class WriteVarDoubleR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class WriteVarDoubleRequest - - _ - Public WriteVarDouble As OPENcontrol.WriteVarDouble - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal WriteVarDouble As OPENcontrol.WriteVarDouble) - MyBase.New - Me.WriteVarDouble = WriteVarDouble - End Sub - End Class - - _ - Partial Public Class WriteVarDoubleResponse - - _ - Public WriteVarDoubleR As OPENcontrol.WriteVarDoubleR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal WriteVarDoubleR As OPENcontrol.WriteVarDoubleR) - MyBase.New - Me.WriteVarDoubleR = WriteVarDoubleR - End Sub - End Class - - ''' - _ - Partial Public Class ReadVarText - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private codeField As UShort - - Private processField As UShort - - Private indexField As UShort - - Private sizeField As UShort - - ''' - _ - Public Property Code() As UShort - Get - Return Me.codeField - End Get - Set - Me.codeField = value - Me.RaisePropertyChanged("Code") - End Set - End Property - - ''' - _ - Public Property Process() As UShort - Get - Return Me.processField - End Get - Set - Me.processField = value - Me.RaisePropertyChanged("Process") - End Set - End Property - - ''' - _ - Public Property Index() As UShort - Get - Return Me.indexField - End Get - Set - Me.indexField = value - Me.RaisePropertyChanged("Index") - End Set - End Property - - ''' - _ - Public Property Size() As UShort - Get - Return Me.sizeField - End Get - Set - Me.sizeField = value - Me.RaisePropertyChanged("Size") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class ReadVarTextR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private textField As String - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property Text() As String - Get - Return Me.textField - End Get - Set - Me.textField = value - Me.RaisePropertyChanged("Text") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class ReadVarTextRequest - - _ - Public ReadVarText As OPENcontrol.ReadVarText - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ReadVarText As OPENcontrol.ReadVarText) - MyBase.New - Me.ReadVarText = ReadVarText - End Sub - End Class - - _ - Partial Public Class ReadVarTextResponse - - _ - Public ReadVarTextR As OPENcontrol.ReadVarTextR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ReadVarTextR As OPENcontrol.ReadVarTextR) - MyBase.New - Me.ReadVarTextR = ReadVarTextR - End Sub - End Class - - ''' - _ - Partial Public Class WriteVarText - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private codeField As UShort - - Private processField As UShort - - Private indexField As UShort - - Private lenField As UShort - - Private textField As String - - ''' - _ - Public Property Code() As UShort - Get - Return Me.codeField - End Get - Set - Me.codeField = value - Me.RaisePropertyChanged("Code") - End Set - End Property - - ''' - _ - Public Property Process() As UShort - Get - Return Me.processField - End Get - Set - Me.processField = value - Me.RaisePropertyChanged("Process") - End Set - End Property - - ''' - _ - Public Property Index() As UShort - Get - Return Me.indexField - End Get - Set - Me.indexField = value - Me.RaisePropertyChanged("Index") - End Set - End Property - - ''' - _ - Public Property Len() As UShort - Get - Return Me.lenField - End Get - Set - Me.lenField = value - Me.RaisePropertyChanged("Len") - End Set - End Property - - ''' - _ - Public Property Text() As String - Get - Return Me.textField - End Get - Set - Me.textField = value - Me.RaisePropertyChanged("Text") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class WriteVarTextR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class WriteVarTextRequest - - _ - Public WriteVarText As OPENcontrol.WriteVarText - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal WriteVarText As OPENcontrol.WriteVarText) - MyBase.New - Me.WriteVarText = WriteVarText - End Sub - End Class - - _ - Partial Public Class WriteVarTextResponse - - _ - Public WriteVarTextR As OPENcontrol.WriteVarTextR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal WriteVarTextR As OPENcontrol.WriteVarTextR) - MyBase.New - Me.WriteVarTextR = WriteVarTextR - End Sub - End Class - - ''' - _ - Partial Public Class ReadWarningMsg - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class ReadWarningMsgR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private warningMsgField As String - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property WarningMsg() As String - Get - Return Me.warningMsgField - End Get - Set - Me.warningMsgField = value - Me.RaisePropertyChanged("WarningMsg") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class ReadWarningMsgRequest - - _ - Public ReadWarningMsg As OPENcontrol.ReadWarningMsg - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ReadWarningMsg As OPENcontrol.ReadWarningMsg) - MyBase.New - Me.ReadWarningMsg = ReadWarningMsg - End Sub - End Class - - _ - Partial Public Class ReadWarningMsgResponse - - _ - Public ReadWarningMsgR As OPENcontrol.ReadWarningMsgR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ReadWarningMsgR As OPENcontrol.ReadWarningMsgR) - MyBase.New - Me.ReadWarningMsgR = ReadWarningMsgR - End Sub - End Class - - ''' - _ - Partial Public Class ResetSingleTableII - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private tableNumField As UShort - - ''' - _ - Public Property TableNum() As UShort - Get - Return Me.tableNumField - End Get - Set - Me.tableNumField = value - Me.RaisePropertyChanged("TableNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class ResetSingleTableIIR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class ResetSingleTableIIRequest - - _ - Public ResetSingleTableII As OPENcontrol.ResetSingleTableII - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ResetSingleTableII As OPENcontrol.ResetSingleTableII) - MyBase.New - Me.ResetSingleTableII = ResetSingleTableII - End Sub - End Class - - _ - Partial Public Class ResetSingleTableIIResponse - - _ - Public ResetSingleTableIIR As OPENcontrol.ResetSingleTableIIR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ResetSingleTableIIR As OPENcontrol.ResetSingleTableIIR) - MyBase.New - Me.ResetSingleTableIIR = ResetSingleTableIIR - End Sub - End Class - - ''' - _ - Partial Public Class LockTableII - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private tableNumField As UShort - - ''' - _ - Public Property TableNum() As UShort - Get - Return Me.tableNumField - End Get - Set - Me.tableNumField = value - Me.RaisePropertyChanged("TableNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LockTableIIR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LockTableIIRequest - - _ - Public LockTableII As OPENcontrol.LockTableII - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LockTableII As OPENcontrol.LockTableII) - MyBase.New - Me.LockTableII = LockTableII - End Sub - End Class - - _ - Partial Public Class LockTableIIResponse - - _ - Public LockTableIIR As OPENcontrol.LockTableIIR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LockTableIIR As OPENcontrol.LockTableIIR) - MyBase.New - Me.LockTableIIR = LockTableIIR - End Sub - End Class - - ''' - _ - Partial Public Class UnLockTableII - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private tableNumField As UShort - - ''' - _ - Public Property TableNum() As UShort - Get - Return Me.tableNumField - End Get - Set - Me.tableNumField = value - Me.RaisePropertyChanged("TableNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class UnLockTableIIR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class UnLockTableIIRequest - - _ - Public UnLockTableII As OPENcontrol.UnLockTableII - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal UnLockTableII As OPENcontrol.UnLockTableII) - MyBase.New - Me.UnLockTableII = UnLockTableII - End Sub - End Class - - _ - Partial Public Class UnLockTableIIResponse - - _ - Public UnLockTableIIR As OPENcontrol.UnLockTableIIR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal UnLockTableIIR As OPENcontrol.UnLockTableIIR) - MyBase.New - Me.UnLockTableIIR = UnLockTableIIR - End Sub - End Class - - ''' - _ - Partial Public Class GetOriginTabRecordII - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private recordNumField As UInteger - - ''' - _ - Public Property RecordNum() As UInteger - Get - Return Me.recordNumField - End Get - Set - Me.recordNumField = value - Me.RaisePropertyChanged("RecordNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetOriginTabRecordIIR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private recordBuffField As ORIGINTABLEII - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property RecordBuff() As ORIGINTABLEII - Get - Return Me.recordBuffField - End Get - Set - Me.recordBuffField = value - Me.RaisePropertyChanged("RecordBuff") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetOriginTabRecordIIRequest - - _ - Public GetOriginTabRecordII As OPENcontrol.GetOriginTabRecordII - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetOriginTabRecordII As OPENcontrol.GetOriginTabRecordII) - MyBase.New - Me.GetOriginTabRecordII = GetOriginTabRecordII - End Sub - End Class - - _ - Partial Public Class GetOriginTabRecordIIResponse - - _ - Public GetOriginTabRecordIIR As OPENcontrol.GetOriginTabRecordIIR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetOriginTabRecordIIR As OPENcontrol.GetOriginTabRecordIIR) - MyBase.New - Me.GetOriginTabRecordIIR = GetOriginTabRecordIIR - End Sub - End Class - - ''' - _ - Partial Public Class SetOriginTabRecordII - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private recordNumField As UInteger - - Private recordBuffField As ORIGINTABLEII - - ''' - _ - Public Property RecordNum() As UInteger - Get - Return Me.recordNumField - End Get - Set - Me.recordNumField = value - Me.RaisePropertyChanged("RecordNum") - End Set - End Property - - ''' - _ - Public Property RecordBuff() As ORIGINTABLEII - Get - Return Me.recordBuffField - End Get - Set - Me.recordBuffField = value - Me.RaisePropertyChanged("RecordBuff") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SetOriginTabRecordIIR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SetOriginTabRecordIIRequest - - _ - Public SetOriginTabRecordII As OPENcontrol.SetOriginTabRecordII - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetOriginTabRecordII As OPENcontrol.SetOriginTabRecordII) - MyBase.New - Me.SetOriginTabRecordII = SetOriginTabRecordII - End Sub - End Class - - _ - Partial Public Class SetOriginTabRecordIIResponse - - _ - Public SetOriginTabRecordIIR As OPENcontrol.SetOriginTabRecordIIR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetOriginTabRecordIIR As OPENcontrol.SetOriginTabRecordIIR) - MyBase.New - Me.SetOriginTabRecordIIR = SetOriginTabRecordIIR - End Sub - End Class - - ''' - _ - Partial Public Class GetToolTabRecordII - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private recordNumField As UInteger - - ''' - _ - Public Property RecordNum() As UInteger - Get - Return Me.recordNumField - End Get - Set - Me.recordNumField = value - Me.RaisePropertyChanged("RecordNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetToolTabRecordIIR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private recordBuffField As TOOLTABLEII - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property RecordBuff() As TOOLTABLEII - Get - Return Me.recordBuffField - End Get - Set - Me.recordBuffField = value - Me.RaisePropertyChanged("RecordBuff") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetToolTabRecordIIRequest - - _ - Public GetToolTabRecordII As OPENcontrol.GetToolTabRecordII - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetToolTabRecordII As OPENcontrol.GetToolTabRecordII) - MyBase.New - Me.GetToolTabRecordII = GetToolTabRecordII - End Sub - End Class - - _ - Partial Public Class GetToolTabRecordIIResponse - - _ - Public GetToolTabRecordIIR As OPENcontrol.GetToolTabRecordIIR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetToolTabRecordIIR As OPENcontrol.GetToolTabRecordIIR) - MyBase.New - Me.GetToolTabRecordIIR = GetToolTabRecordIIR - End Sub - End Class - - ''' - _ - Partial Public Class SetToolTabRecordII - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private recordNumField As UInteger - - Private recordBuffField As TOOLTABLEII - - ''' - _ - Public Property RecordNum() As UInteger - Get - Return Me.recordNumField - End Get - Set - Me.recordNumField = value - Me.RaisePropertyChanged("RecordNum") - End Set - End Property - - ''' - _ - Public Property RecordBuff() As TOOLTABLEII - Get - Return Me.recordBuffField - End Get - Set - Me.recordBuffField = value - Me.RaisePropertyChanged("RecordBuff") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SetToolTabRecordIIR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SetToolTabRecordIIRequest - - _ - Public SetToolTabRecordII As OPENcontrol.SetToolTabRecordII - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetToolTabRecordII As OPENcontrol.SetToolTabRecordII) - MyBase.New - Me.SetToolTabRecordII = SetToolTabRecordII - End Sub - End Class - - _ - Partial Public Class SetToolTabRecordIIResponse - - _ - Public SetToolTabRecordIIR As OPENcontrol.SetToolTabRecordIIR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetToolTabRecordIIR As OPENcontrol.SetToolTabRecordIIR) - MyBase.New - Me.SetToolTabRecordIIR = SetToolTabRecordIIR - End Sub - End Class - - ''' - _ - Partial Public Class GetOffsetTabRecordII - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private recordNumField As UInteger - - ''' - _ - Public Property RecordNum() As UInteger - Get - Return Me.recordNumField - End Get - Set - Me.recordNumField = value - Me.RaisePropertyChanged("RecordNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetOffsetTabRecordIIR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private recordBuffField As OFFSETTABLEII - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property RecordBuff() As OFFSETTABLEII - Get - Return Me.recordBuffField - End Get - Set - Me.recordBuffField = value - Me.RaisePropertyChanged("RecordBuff") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetOffsetTabRecordIIRequest - - _ - Public GetOffsetTabRecordII As OPENcontrol.GetOffsetTabRecordII - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetOffsetTabRecordII As OPENcontrol.GetOffsetTabRecordII) - MyBase.New - Me.GetOffsetTabRecordII = GetOffsetTabRecordII - End Sub - End Class - - _ - Partial Public Class GetOffsetTabRecordIIResponse - - _ - Public GetOffsetTabRecordIIR As OPENcontrol.GetOffsetTabRecordIIR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetOffsetTabRecordIIR As OPENcontrol.GetOffsetTabRecordIIR) - MyBase.New - Me.GetOffsetTabRecordIIR = GetOffsetTabRecordIIR - End Sub - End Class - - ''' - _ - Partial Public Class SetOffsetTabRecordII - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private recordNumField As UInteger - - Private recordBuffField As OFFSETTABLEII - - ''' - _ - Public Property RecordNum() As UInteger - Get - Return Me.recordNumField - End Get - Set - Me.recordNumField = value - Me.RaisePropertyChanged("RecordNum") - End Set - End Property - - ''' - _ - Public Property RecordBuff() As OFFSETTABLEII - Get - Return Me.recordBuffField - End Get - Set - Me.recordBuffField = value - Me.RaisePropertyChanged("RecordBuff") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SetOffsetTabRecordIIR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SetOffsetTabRecordIIRequest - - _ - Public SetOffsetTabRecordII As OPENcontrol.SetOffsetTabRecordII - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetOffsetTabRecordII As OPENcontrol.SetOffsetTabRecordII) - MyBase.New - Me.SetOffsetTabRecordII = SetOffsetTabRecordII - End Sub - End Class - - _ - Partial Public Class SetOffsetTabRecordIIResponse - - _ - Public SetOffsetTabRecordIIR As OPENcontrol.SetOffsetTabRecordIIR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetOffsetTabRecordIIR As OPENcontrol.SetOffsetTabRecordIIR) - MyBase.New - Me.SetOffsetTabRecordIIR = SetOffsetTabRecordIIR - End Sub - End Class - - ''' - _ - Partial Public Class GetUserTabRecordII - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private recordNumField As UInteger - - ''' - _ - Public Property RecordNum() As UInteger - Get - Return Me.recordNumField - End Get - Set - Me.recordNumField = value - Me.RaisePropertyChanged("RecordNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetUserTabRecordIIR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private recordBuffField As USERTABLEII - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property RecordBuff() As USERTABLEII - Get - Return Me.recordBuffField - End Get - Set - Me.recordBuffField = value - Me.RaisePropertyChanged("RecordBuff") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetUserTabRecordIIRequest - - _ - Public GetUserTabRecordII As OPENcontrol.GetUserTabRecordII - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetUserTabRecordII As OPENcontrol.GetUserTabRecordII) - MyBase.New - Me.GetUserTabRecordII = GetUserTabRecordII - End Sub - End Class - - _ - Partial Public Class GetUserTabRecordIIResponse - - _ - Public GetUserTabRecordIIR As OPENcontrol.GetUserTabRecordIIR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetUserTabRecordIIR As OPENcontrol.GetUserTabRecordIIR) - MyBase.New - Me.GetUserTabRecordIIR = GetUserTabRecordIIR - End Sub - End Class - - ''' - _ - Partial Public Class SetUserTabRecordII - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private recordNumField As UInteger - - Private recordBuffField As USERTABLEII - - ''' - _ - Public Property RecordNum() As UInteger - Get - Return Me.recordNumField - End Get - Set - Me.recordNumField = value - Me.RaisePropertyChanged("RecordNum") - End Set - End Property - - ''' - _ - Public Property RecordBuff() As USERTABLEII - Get - Return Me.recordBuffField - End Get - Set - Me.recordBuffField = value - Me.RaisePropertyChanged("RecordBuff") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SetUserTabRecordIIR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SetUserTabRecordIIRequest - - _ - Public SetUserTabRecordII As OPENcontrol.SetUserTabRecordII - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetUserTabRecordII As OPENcontrol.SetUserTabRecordII) - MyBase.New - Me.SetUserTabRecordII = SetUserTabRecordII - End Sub - End Class - - _ - Partial Public Class SetUserTabRecordIIResponse - - _ - Public SetUserTabRecordIIR As OPENcontrol.SetUserTabRecordIIR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetUserTabRecordIIR As OPENcontrol.SetUserTabRecordIIR) - MyBase.New - Me.SetUserTabRecordIIR = SetUserTabRecordIIR - End Sub - End Class - - ''' - _ - Partial Public Class SaveTables - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private localDirField As String - - ''' - _ - Public Property LocalDir() As String - Get - Return Me.localDirField - End Get - Set - Me.localDirField = value - Me.RaisePropertyChanged("LocalDir") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SaveTablesR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SaveTablesRequest - - _ - Public SaveTables As OPENcontrol.SaveTables - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SaveTables As OPENcontrol.SaveTables) - MyBase.New - Me.SaveTables = SaveTables - End Sub - End Class - - _ - Partial Public Class SaveTablesResponse - - _ - Public SaveTablesR As OPENcontrol.SaveTablesR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SaveTablesR As OPENcontrol.SaveTablesR) - MyBase.New - Me.SaveTablesR = SaveTablesR - End Sub - End Class - - ''' - _ - Partial Public Class RestoreSingleTable - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private localDirField As String - - Private tableTypeField As TABLETYPEII - - ''' - _ - Public Property LocalDir() As String - Get - Return Me.localDirField - End Get - Set - Me.localDirField = value - Me.RaisePropertyChanged("LocalDir") - End Set - End Property - - ''' - _ - Public Property TableType() As TABLETYPEII - Get - Return Me.tableTypeField - End Get - Set - Me.tableTypeField = value - Me.RaisePropertyChanged("TableType") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Public Enum TABLETYPEII - - ''' - _ - TabTypeTools - - ''' - _ - TabTypeOffsets - - ''' - _ - TabTypeOrigins - - ''' - _ - TabTypeUser - End Enum - - ''' - _ - Partial Public Class RestoreSingleTableR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class RestoreSingleTableRequest - - _ - Public RestoreSingleTable As OPENcontrol.RestoreSingleTable - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal RestoreSingleTable As OPENcontrol.RestoreSingleTable) - MyBase.New - Me.RestoreSingleTable = RestoreSingleTable - End Sub - End Class - - _ - Partial Public Class RestoreSingleTableResponse - - _ - Public RestoreSingleTableR As OPENcontrol.RestoreSingleTableR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal RestoreSingleTableR As OPENcontrol.RestoreSingleTableR) - MyBase.New - Me.RestoreSingleTableR = RestoreSingleTableR - End Sub - End Class - - ''' - _ - Partial Public Class SaveSingleTable - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private localDirField As String - - Private tableTypeField As TABLETYPEII - - ''' - _ - Public Property LocalDir() As String - Get - Return Me.localDirField - End Get - Set - Me.localDirField = value - Me.RaisePropertyChanged("LocalDir") - End Set - End Property - - ''' - _ - Public Property TableType() As TABLETYPEII - Get - Return Me.tableTypeField - End Get - Set - Me.tableTypeField = value - Me.RaisePropertyChanged("TableType") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SaveSingleTableR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SaveSingleTableRequest - - _ - Public SaveSingleTable As OPENcontrol.SaveSingleTable - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SaveSingleTable As OPENcontrol.SaveSingleTable) - MyBase.New - Me.SaveSingleTable = SaveSingleTable - End Sub - End Class - - _ - Partial Public Class SaveSingleTableResponse - - _ - Public SaveSingleTableR As OPENcontrol.SaveSingleTableR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SaveSingleTableR As OPENcontrol.SaveSingleTableR) - MyBase.New - Me.SaveSingleTableR = SaveSingleTableR - End Sub - End Class - - ''' - _ - Partial Public Class SaveBackupMemory - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private fileNameField As String - - ''' - _ - Public Property FileName() As String - Get - Return Me.fileNameField - End Get - Set - Me.fileNameField = value - Me.RaisePropertyChanged("FileName") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SaveBackupMemoryR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SaveBackupMemoryRequest - - _ - Public SaveBackupMemory As OPENcontrol.SaveBackupMemory - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SaveBackupMemory As OPENcontrol.SaveBackupMemory) - MyBase.New - Me.SaveBackupMemory = SaveBackupMemory - End Sub - End Class - - _ - Partial Public Class SaveBackupMemoryResponse - - _ - Public SaveBackupMemoryR As OPENcontrol.SaveBackupMemoryR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SaveBackupMemoryR As OPENcontrol.SaveBackupMemoryR) - MyBase.New - Me.SaveBackupMemoryR = SaveBackupMemoryR - End Sub - End Class - - ''' - _ - Partial Public Class RestoreBackupMemory - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private fileNameField As String - - Private restoreMaskField As UInteger - - ''' - _ - Public Property FileName() As String - Get - Return Me.fileNameField - End Get - Set - Me.fileNameField = value - Me.RaisePropertyChanged("FileName") - End Set - End Property - - ''' - _ - Public Property RestoreMask() As UInteger - Get - Return Me.restoreMaskField - End Get - Set - Me.restoreMaskField = value - Me.RaisePropertyChanged("RestoreMask") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class RestoreBackupMemoryR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class RestoreBackupMemoryRequest - - _ - Public RestoreBackupMemory As OPENcontrol.RestoreBackupMemory - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal RestoreBackupMemory As OPENcontrol.RestoreBackupMemory) - MyBase.New - Me.RestoreBackupMemory = RestoreBackupMemory - End Sub - End Class - - _ - Partial Public Class RestoreBackupMemoryResponse - - _ - Public RestoreBackupMemoryR As OPENcontrol.RestoreBackupMemoryR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal RestoreBackupMemoryR As OPENcontrol.RestoreBackupMemoryR) - MyBase.New - Me.RestoreBackupMemoryR = RestoreBackupMemoryR - End Sub - End Class - - ''' - _ - Partial Public Class Cycle - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - Private cmdField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property Cmd() As UShort - Get - Return Me.cmdField - End Get - Set - Me.cmdField = value - Me.RaisePropertyChanged("Cmd") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class CycleR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class CycleRequest - - _ - Public Cycle As OPENcontrol.Cycle - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal Cycle As OPENcontrol.Cycle) - MyBase.New - Me.Cycle = Cycle - End Sub - End Class - - _ - Partial Public Class CycleResponse - - _ - Public CycleR As OPENcontrol.CycleR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal CycleR As OPENcontrol.CycleR) - MyBase.New - Me.CycleR = CycleR - End Sub - End Class - - ''' - _ - Partial Public Class SyncroCycle - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SyncroCycleR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SyncroCycleRequest - - _ - Public SyncroCycle As OPENcontrol.SyncroCycle - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SyncroCycle As OPENcontrol.SyncroCycle) - MyBase.New - Me.SyncroCycle = SyncroCycle - End Sub - End Class - - _ - Partial Public Class SyncroCycleResponse - - _ - Public SyncroCycleR As OPENcontrol.SyncroCycleR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SyncroCycleR As OPENcontrol.SyncroCycleR) - MyBase.New - Me.SyncroCycleR = SyncroCycleR - End Sub - End Class - - ''' - _ - Partial Public Class Reset - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class ResetR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class ResetRequest - - _ - Public Reset As OPENcontrol.Reset - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal Reset As OPENcontrol.Reset) - MyBase.New - Me.Reset = Reset - End Sub - End Class - - _ - Partial Public Class ResetResponse - - _ - Public ResetR As OPENcontrol.ResetR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ResetR As OPENcontrol.ResetR) - MyBase.New - Me.ResetR = ResetR - End Sub - End Class - - ''' - _ - Partial Public Class Hold - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - Private cmdField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property Cmd() As UShort - Get - Return Me.cmdField - End Get - Set - Me.cmdField = value - Me.RaisePropertyChanged("Cmd") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class HoldR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class HoldRequest - - _ - Public Hold As OPENcontrol.Hold - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal Hold As OPENcontrol.Hold) - MyBase.New - Me.Hold = Hold - End Sub - End Class - - _ - Partial Public Class HoldResponse - - _ - Public HoldR As OPENcontrol.HoldR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal HoldR As OPENcontrol.HoldR) - MyBase.New - Me.HoldR = HoldR - End Sub - End Class - - ''' - _ - Partial Public Class SetFeedManOver - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - Private feedManOverField As UShort - - Private directionField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property FeedManOver() As UShort - Get - Return Me.feedManOverField - End Get - Set - Me.feedManOverField = value - Me.RaisePropertyChanged("FeedManOver") - End Set - End Property - - ''' - _ - Public Property Direction() As UShort - Get - Return Me.directionField - End Get - Set - Me.directionField = value - Me.RaisePropertyChanged("Direction") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SetFeedManOverR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SetFeedManOverRequest - - _ - Public SetFeedManOver As OPENcontrol.SetFeedManOver - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetFeedManOver As OPENcontrol.SetFeedManOver) - MyBase.New - Me.SetFeedManOver = SetFeedManOver - End Sub - End Class - - _ - Partial Public Class SetFeedManOverResponse - - _ - Public SetFeedManOverR As OPENcontrol.SetFeedManOverR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetFeedManOverR As OPENcontrol.SetFeedManOverR) - MyBase.New - Me.SetFeedManOverR = SetFeedManOverR - End Sub - End Class - - ''' - _ - Partial Public Class SetFeedRateOver - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - Private feedRateOverField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property FeedRateOver() As UShort - Get - Return Me.feedRateOverField - End Get - Set - Me.feedRateOverField = value - Me.RaisePropertyChanged("FeedRateOver") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SetFeedRateOverR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SetFeedRateOverRequest - - _ - Public SetFeedRateOver As OPENcontrol.SetFeedRateOver - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetFeedRateOver As OPENcontrol.SetFeedRateOver) - MyBase.New - Me.SetFeedRateOver = SetFeedRateOver - End Sub - End Class - - _ - Partial Public Class SetFeedRateOverResponse - - _ - Public SetFeedRateOverR As OPENcontrol.SetFeedRateOverR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetFeedRateOverR As OPENcontrol.SetFeedRateOverR) - MyBase.New - Me.SetFeedRateOverR = SetFeedRateOverR - End Sub - End Class - - ''' - _ - Partial Public Class SetFeedRapidOver - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - Private feedRapidOverField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property FeedRapidOver() As UShort - Get - Return Me.feedRapidOverField - End Get - Set - Me.feedRapidOverField = value - Me.RaisePropertyChanged("FeedRapidOver") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SetFeedRapidOverR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SetFeedRapidOverRequest - - _ - Public SetFeedRapidOver As OPENcontrol.SetFeedRapidOver - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetFeedRapidOver As OPENcontrol.SetFeedRapidOver) - MyBase.New - Me.SetFeedRapidOver = SetFeedRapidOver - End Sub - End Class - - _ - Partial Public Class SetFeedRapidOverResponse - - _ - Public SetFeedRapidOverR As OPENcontrol.SetFeedRapidOverR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetFeedRapidOverR As OPENcontrol.SetFeedRapidOverR) - MyBase.New - Me.SetFeedRapidOverR = SetFeedRapidOverR - End Sub - End Class - - ''' - _ - Partial Public Class SetSpeedRateOver - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - Private speedRateOverField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property SpeedRateOver() As UShort - Get - Return Me.speedRateOverField - End Get - Set - Me.speedRateOverField = value - Me.RaisePropertyChanged("SpeedRateOver") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SetSpeedRateOverR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SetSpeedRateOverRequest - - _ - Public SetSpeedRateOver As OPENcontrol.SetSpeedRateOver - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetSpeedRateOver As OPENcontrol.SetSpeedRateOver) - MyBase.New - Me.SetSpeedRateOver = SetSpeedRateOver - End Sub - End Class - - _ - Partial Public Class SetSpeedRateOverResponse - - _ - Public SetSpeedRateOverR As OPENcontrol.SetSpeedRateOverR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetSpeedRateOverR As OPENcontrol.SetSpeedRateOverR) - MyBase.New - Me.SetSpeedRateOverR = SetSpeedRateOverR - End Sub - End Class - - ''' - _ - Partial Public Class SetManMovDirection - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - Private directionField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property Direction() As UShort - Get - Return Me.directionField - End Get - Set - Me.directionField = value - Me.RaisePropertyChanged("Direction") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SetManMovDirectionR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SetManMovDirectionRequest - - _ - Public SetManMovDirection As OPENcontrol.SetManMovDirection - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetManMovDirection As OPENcontrol.SetManMovDirection) - MyBase.New - Me.SetManMovDirection = SetManMovDirection - End Sub - End Class - - _ - Partial Public Class SetManMovDirectionResponse - - _ - Public SetManMovDirectionR As OPENcontrol.SetManMovDirectionR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetManMovDirectionR As OPENcontrol.SetManMovDirectionR) - MyBase.New - Me.SetManMovDirectionR = SetManMovDirectionR - End Sub - End Class - - ''' - _ - Partial Public Class GetVarJOG - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetVarJOGR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private valueField As Double - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property Value() As Double - Get - Return Me.valueField - End Get - Set - Me.valueField = value - Me.RaisePropertyChanged("Value") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetVarJOGRequest - - _ - Public GetVarJOG As OPENcontrol.GetVarJOG - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetVarJOG As OPENcontrol.GetVarJOG) - MyBase.New - Me.GetVarJOG = GetVarJOG - End Sub - End Class - - _ - Partial Public Class GetVarJOGResponse - - _ - Public GetVarJOGR As OPENcontrol.GetVarJOGR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetVarJOGR As OPENcontrol.GetVarJOGR) - MyBase.New - Me.GetVarJOGR = GetVarJOGR - End Sub - End Class - - ''' - _ - Partial Public Class SetVarJOG - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - Private valueField As Double - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property Value() As Double - Get - Return Me.valueField - End Get - Set - Me.valueField = value - Me.RaisePropertyChanged("Value") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SetVarJOGR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SetVarJOGRequest - - _ - Public SetVarJOG As OPENcontrol.SetVarJOG - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetVarJOG As OPENcontrol.SetVarJOG) - MyBase.New - Me.SetVarJOG = SetVarJOG - End Sub - End Class - - _ - Partial Public Class SetVarJOGResponse - - _ - Public SetVarJOGR As OPENcontrol.SetVarJOGR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetVarJOGR As OPENcontrol.SetVarJOGR) - MyBase.New - Me.SetVarJOGR = SetVarJOGR - End Sub - End Class - - ''' - _ - Partial Public Class SetVarUAS - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - Private modeField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property Mode() As UShort - Get - Return Me.modeField - End Get - Set - Me.modeField = value - Me.RaisePropertyChanged("Mode") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SetVarUASR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SetVarUASRequest - - _ - Public SetVarUAS As OPENcontrol.SetVarUAS - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetVarUAS As OPENcontrol.SetVarUAS) - MyBase.New - Me.SetVarUAS = SetVarUAS - End Sub - End Class - - _ - Partial Public Class SetVarUASResponse - - _ - Public SetVarUASR As OPENcontrol.SetVarUASR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetVarUASR As OPENcontrol.SetVarUASR) - MyBase.New - Me.SetVarUASR = SetVarUASR - End Sub - End Class - - ''' - _ - Partial Public Class GetVarRCM - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetVarRCMR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private valueField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property Value() As UShort - Get - Return Me.valueField - End Get - Set - Me.valueField = value - Me.RaisePropertyChanged("Value") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetVarRCMRequest - - _ - Public GetVarRCM As OPENcontrol.GetVarRCM - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetVarRCM As OPENcontrol.GetVarRCM) - MyBase.New - Me.GetVarRCM = GetVarRCM - End Sub - End Class - - _ - Partial Public Class GetVarRCMResponse - - _ - Public GetVarRCMR As OPENcontrol.GetVarRCMR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetVarRCMR As OPENcontrol.GetVarRCMR) - MyBase.New - Me.GetVarRCMR = GetVarRCMR - End Sub - End Class - - ''' - _ - Partial Public Class SetVarRCM - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - Private modeField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property Mode() As UShort - Get - Return Me.modeField - End Get - Set - Me.modeField = value - Me.RaisePropertyChanged("Mode") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SetVarRCMR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SetVarRCMRequest - - _ - Public SetVarRCM As OPENcontrol.SetVarRCM - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetVarRCM As OPENcontrol.SetVarRCM) - MyBase.New - Me.SetVarRCM = SetVarRCM - End Sub - End Class - - _ - Partial Public Class SetVarRCMResponse - - _ - Public SetVarRCMR As OPENcontrol.SetVarRCMR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetVarRCMR As OPENcontrol.SetVarRCMR) - MyBase.New - Me.SetVarRCMR = SetVarRCMR - End Sub - End Class - - ''' - _ - Partial Public Class GetProcVarWord - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - Private varTypeField As PROCWORDVARTYPE - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property VarType() As PROCWORDVARTYPE - Get - Return Me.varTypeField - End Get - Set - Me.varTypeField = value - Me.RaisePropertyChanged("VarType") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Public Enum PROCWORDVARTYPE - - ''' - _ - PROCWORDVARRCM - - ''' - _ - PROCWORDVARARM - - ''' - _ - PROCWORDVARDPS - - ''' - _ - PROCWORDVARRAP - - ''' - _ - PROCWORDVARTRP - - ''' - _ - PROCWORDVARVFF - - ''' - _ - PROCWORDVARUVR - - ''' - _ - PROCWORDVARDLA - - ''' - _ - PROCWORDVARMBR - - ''' - _ - PROCWORDVARURL - - ''' - _ - PROCWORDVARDSB - - ''' - _ - PROCWORDVARUSO - - ''' - _ - PROCWORDVARERR - - ''' - _ - PROCWORDVARHMP - - ''' - _ - PROCWORDVARUAS - - ''' - _ - PROCWORDVARMBA - - ''' - _ - PROCWORDVARREM - End Enum - - ''' - _ - Partial Public Class GetProcVarWordR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private valueField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property Value() As UShort - Get - Return Me.valueField - End Get - Set - Me.valueField = value - Me.RaisePropertyChanged("Value") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetProcVarWordRequest - - _ - Public GetProcVarWord As OPENcontrol.GetProcVarWord - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetProcVarWord As OPENcontrol.GetProcVarWord) - MyBase.New - Me.GetProcVarWord = GetProcVarWord - End Sub - End Class - - _ - Partial Public Class GetProcVarWordResponse - - _ - Public GetProcVarWordR As OPENcontrol.GetProcVarWordR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetProcVarWordR As OPENcontrol.GetProcVarWordR) - MyBase.New - Me.GetProcVarWordR = GetProcVarWordR - End Sub - End Class - - ''' - _ - Partial Public Class SetProcVarWord - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - Private varTypeField As PROCWORDVARTYPE - - Private valueField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property VarType() As PROCWORDVARTYPE - Get - Return Me.varTypeField - End Get - Set - Me.varTypeField = value - Me.RaisePropertyChanged("VarType") - End Set - End Property - - ''' - _ - Public Property Value() As UShort - Get - Return Me.valueField - End Get - Set - Me.valueField = value - Me.RaisePropertyChanged("Value") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SetProcVarWordR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SetProcVarWordRequest - - _ - Public SetProcVarWord As OPENcontrol.SetProcVarWord - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetProcVarWord As OPENcontrol.SetProcVarWord) - MyBase.New - Me.SetProcVarWord = SetProcVarWord - End Sub - End Class - - _ - Partial Public Class SetProcVarWordResponse - - _ - Public SetProcVarWordR As OPENcontrol.SetProcVarWordR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetProcVarWordR As OPENcontrol.SetProcVarWordR) - MyBase.New - Me.SetProcVarWordR = SetProcVarWordR - End Sub - End Class - - ''' - _ - Partial Public Class GetProcVarDouble - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - Private varTypeField As PROCDOUBLEVARTYPE - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property VarType() As PROCDOUBLEVARTYPE - Get - Return Me.varTypeField - End Get - Set - Me.varTypeField = value - Me.RaisePropertyChanged("VarType") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Public Enum PROCDOUBLEVARTYPE - - ''' - _ - PROCDOUBLEVARURP - - ''' - _ - PROCDOUBLEVARDWT - - ''' - _ - PROCDOUBLEVARJOG - - ''' - _ - PROCDOUBLEVARMDA - - ''' - _ - PROCDOUBLEVARMSA - - ''' - _ - PROCDOUBLEVARSSL - - ''' - _ - PROCDOUBLEVARVEF - - ''' - _ - PROCDOUBLEVARUPO - - ''' - _ - PROCDOUBLEVARUPA - - ''' - _ - PROCDOUBLEVARCET - - ''' - _ - PROCDOUBLEVARFCT - - ''' - _ - PROCDOUBLEVARMBRLEN - - ''' - _ - PROCDOUBLEVARMBRTHR - End Enum - - ''' - _ - Partial Public Class GetProcVarDoubleR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private valueField As Double - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property Value() As Double - Get - Return Me.valueField - End Get - Set - Me.valueField = value - Me.RaisePropertyChanged("Value") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetProcVarDoubleRequest - - _ - Public GetProcVarDouble As OPENcontrol.GetProcVarDouble - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetProcVarDouble As OPENcontrol.GetProcVarDouble) - MyBase.New - Me.GetProcVarDouble = GetProcVarDouble - End Sub - End Class - - _ - Partial Public Class GetProcVarDoubleResponse - - _ - Public GetProcVarDoubleR As OPENcontrol.GetProcVarDoubleR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetProcVarDoubleR As OPENcontrol.GetProcVarDoubleR) - MyBase.New - Me.GetProcVarDoubleR = GetProcVarDoubleR - End Sub - End Class - - ''' - _ - Partial Public Class SetProcVarDouble - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - Private varTypeField As PROCDOUBLEVARTYPE - - Private valueField As Double - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property VarType() As PROCDOUBLEVARTYPE - Get - Return Me.varTypeField - End Get - Set - Me.varTypeField = value - Me.RaisePropertyChanged("VarType") - End Set - End Property - - ''' - _ - Public Property Value() As Double - Get - Return Me.valueField - End Get - Set - Me.valueField = value - Me.RaisePropertyChanged("Value") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SetProcVarDoubleR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SetProcVarDoubleRequest - - _ - Public SetProcVarDouble As OPENcontrol.SetProcVarDouble - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetProcVarDouble As OPENcontrol.SetProcVarDouble) - MyBase.New - Me.SetProcVarDouble = SetProcVarDouble - End Sub - End Class - - _ - Partial Public Class SetProcVarDoubleResponse - - _ - Public SetProcVarDoubleR As OPENcontrol.SetProcVarDoubleR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetProcVarDoubleR As OPENcontrol.SetProcVarDoubleR) - MyBase.New - Me.SetProcVarDoubleR = SetProcVarDoubleR - End Sub - End Class - - ''' - _ - Partial Public Class SetMdiString - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - Private mdiStringField As String - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property MdiString() As String - Get - Return Me.mdiStringField - End Get - Set - Me.mdiStringField = value - Me.RaisePropertyChanged("MdiString") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SetMdiStringR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SetMdiStringRequest - - _ - Public SetMdiString As OPENcontrol.SetMdiString - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetMdiString As OPENcontrol.SetMdiString) - MyBase.New - Me.SetMdiString = SetMdiString - End Sub - End Class - - _ - Partial Public Class SetMdiStringResponse - - _ - Public SetMdiStringR As OPENcontrol.SetMdiStringR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetMdiStringR As OPENcontrol.SetMdiStringR) - MyBase.New - Me.SetMdiStringR = SetMdiStringR - End Sub - End Class - - ''' - _ - Partial Public Class SetProcessMode - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - Private modeField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property Mode() As UShort - Get - Return Me.modeField - End Get - Set - Me.modeField = value - Me.RaisePropertyChanged("Mode") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SetProcessModeR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SetProcessModeRequest - - _ - Public SetProcessMode As OPENcontrol.SetProcessMode - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetProcessMode As OPENcontrol.SetProcessMode) - MyBase.New - Me.SetProcessMode = SetProcessMode - End Sub - End Class - - _ - Partial Public Class SetProcessModeResponse - - _ - Public SetProcessModeR As OPENcontrol.SetProcessModeR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetProcessModeR As OPENcontrol.SetProcessModeR) - MyBase.New - Me.SetProcessModeR = SetProcessModeR - End Sub - End Class - - ''' - _ - Partial Public Class SelectProcess - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SelectProcessR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SelectProcessRequest - - _ - Public SelectProcess As OPENcontrol.SelectProcess - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SelectProcess As OPENcontrol.SelectProcess) - MyBase.New - Me.SelectProcess = SelectProcess - End Sub - End Class - - _ - Partial Public Class SelectProcessResponse - - _ - Public SelectProcessR As OPENcontrol.SelectProcessR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SelectProcessR As OPENcontrol.SelectProcessR) - MyBase.New - Me.SelectProcessR = SelectProcessR - End Sub - End Class - - ''' - _ - Partial Public Class GetSelectedProcess - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetSelectedProcessR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private procNumField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetSelectedProcessRequest - - _ - Public GetSelectedProcess As OPENcontrol.GetSelectedProcess - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetSelectedProcess As OPENcontrol.GetSelectedProcess) - MyBase.New - Me.GetSelectedProcess = GetSelectedProcess - End Sub - End Class - - _ - Partial Public Class GetSelectedProcessResponse - - _ - Public GetSelectedProcessR As OPENcontrol.GetSelectedProcessR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetSelectedProcessR As OPENcontrol.GetSelectedProcessR) - MyBase.New - Me.GetSelectedProcessR = GetSelectedProcessR - End Sub - End Class - - ''' - _ - Partial Public Class SelectProcAxis - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - Private axisNameField As Byte - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property AxisName() As Byte - Get - Return Me.axisNameField - End Get - Set - Me.axisNameField = value - Me.RaisePropertyChanged("AxisName") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SelectProcAxisR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SelectProcAxisRequest - - _ - Public SelectProcAxis As OPENcontrol.SelectProcAxis - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SelectProcAxis As OPENcontrol.SelectProcAxis) - MyBase.New - Me.SelectProcAxis = SelectProcAxis - End Sub - End Class - - _ - Partial Public Class SelectProcAxisResponse - - _ - Public SelectProcAxisR As OPENcontrol.SelectProcAxisR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SelectProcAxisR As OPENcontrol.SelectProcAxisR) - MyBase.New - Me.SelectProcAxisR = SelectProcAxisR - End Sub - End Class - - ''' - _ - Partial Public Class SelectPartProgram - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - Private pPNameField As String - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property PPName() As String - Get - Return Me.pPNameField - End Get - Set - Me.pPNameField = value - Me.RaisePropertyChanged("PPName") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SelectPartProgramR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SelectPartProgramRequest - - _ - Public SelectPartProgram As OPENcontrol.SelectPartProgram - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SelectPartProgram As OPENcontrol.SelectPartProgram) - MyBase.New - Me.SelectPartProgram = SelectPartProgram - End Sub - End Class - - _ - Partial Public Class SelectPartProgramResponse - - _ - Public SelectPartProgramR As OPENcontrol.SelectPartProgramR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SelectPartProgramR As OPENcontrol.SelectPartProgramR) - MyBase.New - Me.SelectPartProgramR = SelectPartProgramR - End Sub - End Class - - ''' - _ - Partial Public Class SelectPartProgramFromDrive - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - Private pPNameField As String - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property PPName() As String - Get - Return Me.pPNameField - End Get - Set - Me.pPNameField = value - Me.RaisePropertyChanged("PPName") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SelectPartProgramFromDriveR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SelectPartProgramFromDriveRequest - - _ - Public SelectPartProgramFromDrive As OPENcontrol.SelectPartProgramFromDrive - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SelectPartProgramFromDrive As OPENcontrol.SelectPartProgramFromDrive) - MyBase.New - Me.SelectPartProgramFromDrive = SelectPartProgramFromDrive - End Sub - End Class - - _ - Partial Public Class SelectPartProgramFromDriveResponse - - _ - Public SelectPartProgramFromDriveR As OPENcontrol.SelectPartProgramFromDriveR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SelectPartProgramFromDriveR As OPENcontrol.SelectPartProgramFromDriveR) - MyBase.New - Me.SelectPartProgramFromDriveR = SelectPartProgramFromDriveR - End Sub - End Class - - ''' - _ - Partial Public Class GetActivePartProgram - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetActivePartProgramR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private levelField As UShort - - Private mainField As String - - Private subField As String - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property Level() As UShort - Get - Return Me.levelField - End Get - Set - Me.levelField = value - Me.RaisePropertyChanged("Level") - End Set - End Property - - ''' - _ - Public Property Main() As String - Get - Return Me.mainField - End Get - Set - Me.mainField = value - Me.RaisePropertyChanged("Main") - End Set - End Property - - ''' - _ - Public Property [Sub]() As String - Get - Return Me.subField - End Get - Set - Me.subField = value - Me.RaisePropertyChanged("Sub") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetActivePartProgramRequest - - _ - Public GetActivePartProgram As OPENcontrol.GetActivePartProgram - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetActivePartProgram As OPENcontrol.GetActivePartProgram) - MyBase.New - Me.GetActivePartProgram = GetActivePartProgram - End Sub - End Class - - _ - Partial Public Class GetActivePartProgramResponse - - _ - Public GetActivePartProgramR As OPENcontrol.GetActivePartProgramR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetActivePartProgramR As OPENcontrol.GetActivePartProgramR) - MyBase.New - Me.GetActivePartProgramR = GetActivePartProgramR - End Sub - End Class - - ''' - _ - Partial Public Class GetPartProgramLines - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetPartProgramLinesR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private pPLine1Field As String - - Private pPLine2Field As String - - Private pPLine3Field As String - - Private pPLine4Field As String - - Private pPLine5Field As String - - Private pPLine6Field As String - - Private pPLine7Field As String - - Private pPLine8Field As String - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property PPLine1() As String - Get - Return Me.pPLine1Field - End Get - Set - Me.pPLine1Field = value - Me.RaisePropertyChanged("PPLine1") - End Set - End Property - - ''' - _ - Public Property PPLine2() As String - Get - Return Me.pPLine2Field - End Get - Set - Me.pPLine2Field = value - Me.RaisePropertyChanged("PPLine2") - End Set - End Property - - ''' - _ - Public Property PPLine3() As String - Get - Return Me.pPLine3Field - End Get - Set - Me.pPLine3Field = value - Me.RaisePropertyChanged("PPLine3") - End Set - End Property - - ''' - _ - Public Property PPLine4() As String - Get - Return Me.pPLine4Field - End Get - Set - Me.pPLine4Field = value - Me.RaisePropertyChanged("PPLine4") - End Set - End Property - - ''' - _ - Public Property PPLine5() As String - Get - Return Me.pPLine5Field - End Get - Set - Me.pPLine5Field = value - Me.RaisePropertyChanged("PPLine5") - End Set - End Property - - ''' - _ - Public Property PPLine6() As String - Get - Return Me.pPLine6Field - End Get - Set - Me.pPLine6Field = value - Me.RaisePropertyChanged("PPLine6") - End Set - End Property - - ''' - _ - Public Property PPLine7() As String - Get - Return Me.pPLine7Field - End Get - Set - Me.pPLine7Field = value - Me.RaisePropertyChanged("PPLine7") - End Set - End Property - - ''' - _ - Public Property PPLine8() As String - Get - Return Me.pPLine8Field - End Get - Set - Me.pPLine8Field = value - Me.RaisePropertyChanged("PPLine8") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetPartProgramLinesRequest - - _ - Public GetPartProgramLines As OPENcontrol.GetPartProgramLines - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetPartProgramLines As OPENcontrol.GetPartProgramLines) - MyBase.New - Me.GetPartProgramLines = GetPartProgramLines - End Sub - End Class - - _ - Partial Public Class GetPartProgramLinesResponse - - _ - Public GetPartProgramLinesR As OPENcontrol.GetPartProgramLinesR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetPartProgramLinesR As OPENcontrol.GetPartProgramLinesR) - MyBase.New - Me.GetPartProgramLinesR = GetPartProgramLinesR - End Sub - End Class - - ''' - _ - Partial Public Class GetAxOriginNum - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - Private axesNumField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property AxesNum() As UShort - Get - Return Me.axesNumField - End Get - Set - Me.axesNumField = value - Me.RaisePropertyChanged("AxesNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetAxOriginNumR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private axesNumField As UShort - - Private axOriginNumField() As AXORIGNUM - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property AxesNum() As UShort - Get - Return Me.axesNumField - End Get - Set - Me.axesNumField = value - Me.RaisePropertyChanged("AxesNum") - End Set - End Property - - ''' - _ - Public Property AxOriginNum() As AXORIGNUM() - Get - Return Me.axOriginNumField - End Get - Set - Me.axOriginNumField = value - Me.RaisePropertyChanged("AxOriginNum") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetAxOriginNumRequest - - _ - Public GetAxOriginNum As OPENcontrol.GetAxOriginNum - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetAxOriginNum As OPENcontrol.GetAxOriginNum) - MyBase.New - Me.GetAxOriginNum = GetAxOriginNum - End Sub - End Class - - _ - Partial Public Class GetAxOriginNumResponse - - _ - Public GetAxOriginNumR As OPENcontrol.GetAxOriginNumR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetAxOriginNumR As OPENcontrol.GetAxOriginNumR) - MyBase.New - Me.GetAxOriginNumR = GetAxOriginNumR - End Sub - End Class - - ''' - _ - Partial Public Class GetAxesPosition - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - Private axisNameField As Byte - - Private selectField As UShort - - Private numAxisField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property AxisName() As Byte - Get - Return Me.axisNameField - End Get - Set - Me.axisNameField = value - Me.RaisePropertyChanged("AxisName") - End Set - End Property - - ''' - _ - Public Property [Select]() As UShort - Get - Return Me.selectField - End Get - Set - Me.selectField = value - Me.RaisePropertyChanged("Select") - End Set - End Property - - ''' - _ - Public Property NumAxis() As UShort - Get - Return Me.numAxisField - End Get - Set - Me.numAxisField = value - Me.RaisePropertyChanged("NumAxis") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetAxesPositionR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private numAxisField As UShort - - Private intPosField() As GETINTDATA - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property NumAxis() As UShort - Get - Return Me.numAxisField - End Get - Set - Me.numAxisField = value - Me.RaisePropertyChanged("NumAxis") - End Set - End Property - - ''' - _ - Public Property IntPos() As GETINTDATA() - Get - Return Me.intPosField - End Get - Set - Me.intPosField = value - Me.RaisePropertyChanged("IntPos") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetAxesPositionRequest - - _ - Public GetAxesPosition As OPENcontrol.GetAxesPosition - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetAxesPosition As OPENcontrol.GetAxesPosition) - MyBase.New - Me.GetAxesPosition = GetAxesPosition - End Sub - End Class - - _ - Partial Public Class GetAxesPositionResponse - - _ - Public GetAxesPositionR As OPENcontrol.GetAxesPositionR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetAxesPositionR As OPENcontrol.GetAxesPositionR) - MyBase.New - Me.GetAxesPositionR = GetAxesPositionR - End Sub - End Class - - ''' - _ - Partial Public Class GetNcInfo1 - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetNcInfo1R - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private getInfoField As GETINFO1DATA - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property GetInfo() As GETINFO1DATA - Get - Return Me.getInfoField - End Get - Set - Me.getInfoField = value - Me.RaisePropertyChanged("GetInfo") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetNcInfo1Request - - _ - Public GetNcInfo1 As OPENcontrol.GetNcInfo1 - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetNcInfo1 As OPENcontrol.GetNcInfo1) - MyBase.New - Me.GetNcInfo1 = GetNcInfo1 - End Sub - End Class - - _ - Partial Public Class GetNcInfo1Response - - _ - Public GetNcInfo1R As OPENcontrol.GetNcInfo1R - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetNcInfo1R As OPENcontrol.GetNcInfo1R) - MyBase.New - Me.GetNcInfo1R = GetNcInfo1R - End Sub - End Class - - ''' - _ - Partial Public Class GetNcInfo2 - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetNcInfo2R - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private getInfoField As GETINFO2DATA - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property GetInfo() As GETINFO2DATA - Get - Return Me.getInfoField - End Get - Set - Me.getInfoField = value - Me.RaisePropertyChanged("GetInfo") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetNcInfo2Request - - _ - Public GetNcInfo2 As OPENcontrol.GetNcInfo2 - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetNcInfo2 As OPENcontrol.GetNcInfo2) - MyBase.New - Me.GetNcInfo2 = GetNcInfo2 - End Sub - End Class - - _ - Partial Public Class GetNcInfo2Response - - _ - Public GetNcInfo2R As OPENcontrol.GetNcInfo2R - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetNcInfo2R As OPENcontrol.GetNcInfo2R) - MyBase.New - Me.GetNcInfo2R = GetNcInfo2R - End Sub - End Class - - ''' - _ - Partial Public Class GetToolNames - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetToolNamesR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private toolField As String - - Private progToolField As String - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property Tool() As String - Get - Return Me.toolField - End Get - Set - Me.toolField = value - Me.RaisePropertyChanged("Tool") - End Set - End Property - - ''' - _ - Public Property ProgTool() As String - Get - Return Me.progToolField - End Get - Set - Me.progToolField = value - Me.RaisePropertyChanged("ProgTool") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetToolNamesRequest - - _ - Public GetToolNames As OPENcontrol.GetToolNames - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetToolNames As OPENcontrol.GetToolNames) - MyBase.New - Me.GetToolNames = GetToolNames - End Sub - End Class - - _ - Partial Public Class GetToolNamesResponse - - _ - Public GetToolNamesR As OPENcontrol.GetToolNamesR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetToolNamesR As OPENcontrol.GetToolNamesR) - MyBase.New - Me.GetToolNamesR = GetToolNamesR - End Sub - End Class - - ''' - _ - Partial Public Class GetProcessStatus - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetProcessStatusR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private procStatField As PROCDATA - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ProcStat() As PROCDATA - Get - Return Me.procStatField - End Get - Set - Me.procStatField = value - Me.RaisePropertyChanged("ProcStat") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetProcessStatusRequest - - _ - Public GetProcessStatus As OPENcontrol.GetProcessStatus - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetProcessStatus As OPENcontrol.GetProcessStatus) - MyBase.New - Me.GetProcessStatus = GetProcessStatus - End Sub - End Class - - _ - Partial Public Class GetProcessStatusResponse - - _ - Public GetProcessStatusR As OPENcontrol.GetProcessStatusR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetProcessStatusR As OPENcontrol.GetProcessStatusR) - MyBase.New - Me.GetProcessStatusR = GetProcessStatusR - End Sub - End Class - - ''' - _ - Partial Public Class GetBlkNum - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetBlkNumR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private getBlkNumField As GETBLKNUMDATA - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property GetBlkNum() As GETBLKNUMDATA - Get - Return Me.getBlkNumField - End Get - Set - Me.getBlkNumField = value - Me.RaisePropertyChanged("GetBlkNum") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetBlkNumRequest - - _ - Public GetBlkNum As OPENcontrol.GetBlkNum - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetBlkNum As OPENcontrol.GetBlkNum) - MyBase.New - Me.GetBlkNum = GetBlkNum - End Sub - End Class - - _ - Partial Public Class GetBlkNumResponse - - _ - Public GetBlkNumR As OPENcontrol.GetBlkNumR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetBlkNumR As OPENcontrol.GetBlkNumR) - MyBase.New - Me.GetBlkNumR = GetBlkNumR - End Sub - End Class - - ''' - _ - Partial Public Class ReadErrMsg - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class ReadErrMsgR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private sysErrMsgField As ERRMSG - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property SysErrMsg() As ERRMSG - Get - Return Me.sysErrMsgField - End Get - Set - Me.sysErrMsgField = value - Me.RaisePropertyChanged("SysErrMsg") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class ReadErrMsgRequest - - _ - Public ReadErrMsg As OPENcontrol.ReadErrMsg - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ReadErrMsg As OPENcontrol.ReadErrMsg) - MyBase.New - Me.ReadErrMsg = ReadErrMsg - End Sub - End Class - - _ - Partial Public Class ReadErrMsgResponse - - _ - Public ReadErrMsgR As OPENcontrol.ReadErrMsgR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ReadErrMsgR As OPENcontrol.ReadErrMsgR) - MyBase.New - Me.ReadErrMsgR = ReadErrMsgR - End Sub - End Class - - ''' - _ - Partial Public Class ReadPartProgramMsg - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class ReadPartProgramMsgR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private partProgramMsgField As String - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property PartProgramMsg() As String - Get - Return Me.partProgramMsgField - End Get - Set - Me.partProgramMsgField = value - Me.RaisePropertyChanged("PartProgramMsg") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class ReadPartProgramMsgRequest - - _ - Public ReadPartProgramMsg As OPENcontrol.ReadPartProgramMsg - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ReadPartProgramMsg As OPENcontrol.ReadPartProgramMsg) - MyBase.New - Me.ReadPartProgramMsg = ReadPartProgramMsg - End Sub - End Class - - _ - Partial Public Class ReadPartProgramMsgResponse - - _ - Public ReadPartProgramMsgR As OPENcontrol.ReadPartProgramMsgR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ReadPartProgramMsgR As OPENcontrol.ReadPartProgramMsgR) - MyBase.New - Me.ReadPartProgramMsgR = ReadPartProgramMsgR - End Sub - End Class - - ''' - _ - Partial Public Class GetGCode - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetGCodeR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private gCodeField() As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property GCode() As UShort() - Get - Return Me.gCodeField - End Get - Set - Me.gCodeField = value - Me.RaisePropertyChanged("GCode") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetGCodeRequest - - _ - Public GetGCode As OPENcontrol.GetGCode - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetGCode As OPENcontrol.GetGCode) - MyBase.New - Me.GetGCode = GetGCode - End Sub - End Class - - _ - Partial Public Class GetGCodeResponse - - _ - Public GetGCodeR As OPENcontrol.GetGCodeR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetGCodeR As OPENcontrol.GetGCodeR) - MyBase.New - Me.GetGCodeR = GetGCodeR - End Sub - End Class - - ''' - _ - Partial Public Class GetMCode - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetMCodeR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private mCodeField() As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property MCode() As UShort() - Get - Return Me.mCodeField - End Get - Set - Me.mCodeField = value - Me.RaisePropertyChanged("MCode") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetMCodeRequest - - _ - Public GetMCode As OPENcontrol.GetMCode - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetMCode As OPENcontrol.GetMCode) - MyBase.New - Me.GetMCode = GetMCode - End Sub - End Class - - _ - Partial Public Class GetMCodeResponse - - _ - Public GetMCodeR As OPENcontrol.GetMCodeR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetMCodeR As OPENcontrol.GetMCodeR) - MyBase.New - Me.GetMCodeR = GetMCodeR - End Sub - End Class - - ''' - _ - Partial Public Class SkipPProgBlock - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - Private numOfBlocksField As UInteger - - Private directionField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property NumOfBlocks() As UInteger - Get - Return Me.numOfBlocksField - End Get - Set - Me.numOfBlocksField = value - Me.RaisePropertyChanged("NumOfBlocks") - End Set - End Property - - ''' - _ - Public Property Direction() As UShort - Get - Return Me.directionField - End Get - Set - Me.directionField = value - Me.RaisePropertyChanged("Direction") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SkipPProgBlockR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SkipPProgBlockRequest - - _ - Public SkipPProgBlock As OPENcontrol.SkipPProgBlock - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SkipPProgBlock As OPENcontrol.SkipPProgBlock) - MyBase.New - Me.SkipPProgBlock = SkipPProgBlock - End Sub - End Class - - _ - Partial Public Class SkipPProgBlockResponse - - _ - Public SkipPProgBlockR As OPENcontrol.SkipPProgBlockR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SkipPProgBlockR As OPENcontrol.SkipPProgBlockR) - MyBase.New - Me.SkipPProgBlockR = SkipPProgBlockR - End Sub - End Class - - ''' - _ - Partial Public Class Ese - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - Private blockNumField As UInteger - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property BlockNum() As UInteger - Get - Return Me.blockNumField - End Get - Set - Me.blockNumField = value - Me.RaisePropertyChanged("BlockNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class EseR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class EseRequest - - _ - Public Ese As OPENcontrol.Ese - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal Ese As OPENcontrol.Ese) - MyBase.New - Me.Ese = Ese - End Sub - End Class - - _ - Partial Public Class EseResponse - - _ - Public EseR As OPENcontrol.EseR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal EseR As OPENcontrol.EseR) - MyBase.New - Me.EseR = EseR - End Sub - End Class - - ''' - _ - Partial Public Class EseEx - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - Private modeField As RCMTOMODE - - Private maskField As UInteger - - Private blockNumField As UInteger - - Private lineNumField As UInteger - - Private brkValField As UInteger - - Private labelField As String - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property Mode() As RCMTOMODE - Get - Return Me.modeField - End Get - Set - Me.modeField = value - Me.RaisePropertyChanged("Mode") - End Set - End Property - - ''' - _ - Public Property Mask() As UInteger - Get - Return Me.maskField - End Get - Set - Me.maskField = value - Me.RaisePropertyChanged("Mask") - End Set - End Property - - ''' - _ - Public Property BlockNum() As UInteger - Get - Return Me.blockNumField - End Get - Set - Me.blockNumField = value - Me.RaisePropertyChanged("BlockNum") - End Set - End Property - - ''' - _ - Public Property LineNum() As UInteger - Get - Return Me.lineNumField - End Get - Set - Me.lineNumField = value - Me.RaisePropertyChanged("LineNum") - End Set - End Property - - ''' - _ - Public Property BrkVal() As UInteger - Get - Return Me.brkValField - End Get - Set - Me.brkValField = value - Me.RaisePropertyChanged("BrkVal") - End Set - End Property - - ''' - _ - Public Property Label() As String - Get - Return Me.labelField - End Get - Set - Me.labelField = value - Me.RaisePropertyChanged("Label") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Public Enum RCMTOMODE - - ''' - _ - RCMTOTO - - ''' - _ - RCMTONEXT - End Enum - - ''' - _ - Partial Public Class EseExR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class EseExRequest - - _ - Public EseEx As OPENcontrol.EseEx - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal EseEx As OPENcontrol.EseEx) - MyBase.New - Me.EseEx = EseEx - End Sub - End Class - - _ - Partial Public Class EseExResponse - - _ - Public EseExR As OPENcontrol.EseExR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal EseExR As OPENcontrol.EseExR) - MyBase.New - Me.EseExR = EseExR - End Sub - End Class - - ''' - _ - Partial Public Class Exe - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - Private funcField As UShort - - Private modeField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property Func() As UShort - Get - Return Me.funcField - End Get - Set - Me.funcField = value - Me.RaisePropertyChanged("Func") - End Set - End Property - - ''' - _ - Public Property Mode() As UShort - Get - Return Me.modeField - End Get - Set - Me.modeField = value - Me.RaisePropertyChanged("Mode") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class ExeR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class ExeRequest - - _ - Public Exe As OPENcontrol.Exe - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal Exe As OPENcontrol.Exe) - MyBase.New - Me.Exe = Exe - End Sub - End Class - - _ - Partial Public Class ExeResponse - - _ - Public ExeR As OPENcontrol.ExeR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ExeR As OPENcontrol.ExeR) - MyBase.New - Me.ExeR = ExeR - End Sub - End Class - - ''' - _ - Partial Public Class AxesRef - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - Private numAxField As UShort - - Private axisNameField As String - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property NumAx() As UShort - Get - Return Me.numAxField - End Get - Set - Me.numAxField = value - Me.RaisePropertyChanged("NumAx") - End Set - End Property - - ''' - _ - Public Property AxisName() As String - Get - Return Me.axisNameField - End Get - Set - Me.axisNameField = value - Me.RaisePropertyChanged("AxisName") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class AxesRefR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class AxesRefRequest - - _ - Public AxesRef As OPENcontrol.AxesRef - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal AxesRef As OPENcontrol.AxesRef) - MyBase.New - Me.AxesRef = AxesRef - End Sub - End Class - - _ - Partial Public Class AxesRefResponse - - _ - Public AxesRefR As OPENcontrol.AxesRefR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal AxesRefR As OPENcontrol.AxesRefR) - MyBase.New - Me.AxesRefR = AxesRefR - End Sub - End Class - - ''' - _ - Partial Public Class DncInit - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - Private pathNameField As String - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property PathName() As String - Get - Return Me.pathNameField - End Get - Set - Me.pathNameField = value - Me.RaisePropertyChanged("PathName") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class DncInitR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class DncInitRequest - - _ - Public DncInit As OPENcontrol.DncInit - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal DncInit As OPENcontrol.DncInit) - MyBase.New - Me.DncInit = DncInit - End Sub - End Class - - _ - Partial Public Class DncInitResponse - - _ - Public DncInitR As OPENcontrol.DncInitR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal DncInitR As OPENcontrol.DncInitR) - MyBase.New - Me.DncInitR = DncInitR - End Sub - End Class - - ''' - _ - Partial Public Class DncData - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - Private dataField As String - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - ''' - _ - Public Property Data() As String - Get - Return Me.dataField - End Get - Set - Me.dataField = value - Me.RaisePropertyChanged("Data") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class DncDataR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class DncDataRequest - - _ - Public DncData As OPENcontrol.DncData - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal DncData As OPENcontrol.DncData) - MyBase.New - Me.DncData = DncData - End Sub - End Class - - _ - Partial Public Class DncDataResponse - - _ - Public DncDataR As OPENcontrol.DncDataR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal DncDataR As OPENcontrol.DncDataR) - MyBase.New - Me.DncDataR = DncDataR - End Sub - End Class - - ''' - _ - Partial Public Class DncEof - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class DncEofR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class DncEofRequest - - _ - Public DncEof As OPENcontrol.DncEof - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal DncEof As OPENcontrol.DncEof) - MyBase.New - Me.DncEof = DncEof - End Sub - End Class - - _ - Partial Public Class DncEofResponse - - _ - Public DncEofR As OPENcontrol.DncEofR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal DncEofR As OPENcontrol.DncEofR) - MyBase.New - Me.DncEofR = DncEofR - End Sub - End Class - - ''' - _ - Partial Public Class DncStop - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private procNumField As UShort - - ''' - _ - Public Property ProcNum() As UShort - Get - Return Me.procNumField - End Get - Set - Me.procNumField = value - Me.RaisePropertyChanged("ProcNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class DncStopR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class DncStopRequest - - _ - Public DncStop As OPENcontrol.DncStop - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal DncStop As OPENcontrol.DncStop) - MyBase.New - Me.DncStop = DncStop - End Sub - End Class - - _ - Partial Public Class DncStopResponse - - _ - Public DncStopR As OPENcontrol.DncStopR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal DncStopR As OPENcontrol.DncStopR) - MyBase.New - Me.DncStopR = DncStopR - End Sub - End Class - - ''' - _ - Partial Public Class GetAxesInfo3 - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private axisIdField As UShort - - Private axesNumField As UShort - - ''' - _ - Public Property AxisId() As UShort - Get - Return Me.axisIdField - End Get - Set - Me.axisIdField = value - Me.RaisePropertyChanged("AxisId") - End Set - End Property - - ''' - _ - Public Property AxesNum() As UShort - Get - Return Me.axesNumField - End Get - Set - Me.axesNumField = value - Me.RaisePropertyChanged("AxesNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetAxesInfo3R - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private axesNumField As UShort - - Private axOwnerListField() As UShort - - Private axNameListField() As Byte - - Private axTypeField() As UShort - - Private axInterfaceField() As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property AxesNum() As UShort - Get - Return Me.axesNumField - End Get - Set - Me.axesNumField = value - Me.RaisePropertyChanged("AxesNum") - End Set - End Property - - ''' - _ - Public Property AxOwnerList() As UShort() - Get - Return Me.axOwnerListField - End Get - Set - Me.axOwnerListField = value - Me.RaisePropertyChanged("AxOwnerList") - End Set - End Property - - ''' - _ - Public Property AxNameList() As Byte() - Get - Return Me.axNameListField - End Get - Set - Me.axNameListField = value - Me.RaisePropertyChanged("AxNameList") - End Set - End Property - - ''' - _ - Public Property AxType() As UShort() - Get - Return Me.axTypeField - End Get - Set - Me.axTypeField = value - Me.RaisePropertyChanged("AxType") - End Set - End Property - - ''' - _ - Public Property AxInterface() As UShort() - Get - Return Me.axInterfaceField - End Get - Set - Me.axInterfaceField = value - Me.RaisePropertyChanged("AxInterface") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetAxesInfo3Request - - _ - Public GetAxesInfo3 As OPENcontrol.GetAxesInfo3 - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetAxesInfo3 As OPENcontrol.GetAxesInfo3) - MyBase.New - Me.GetAxesInfo3 = GetAxesInfo3 - End Sub - End Class - - _ - Partial Public Class GetAxesInfo3Response - - _ - Public GetAxesInfo3R As OPENcontrol.GetAxesInfo3R - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetAxesInfo3R As OPENcontrol.GetAxesInfo3R) - MyBase.New - Me.GetAxesInfo3R = GetAxesInfo3R - End Sub - End Class - - ''' - _ - Partial Public Class GetCodeNumber - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetCodeNumberR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private codeNumberField As String - - Private swVersionField As String - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property CodeNumber() As String - Get - Return Me.codeNumberField - End Get - Set - Me.codeNumberField = value - Me.RaisePropertyChanged("CodeNumber") - End Set - End Property - - ''' - _ - Public Property SwVersion() As String - Get - Return Me.swVersionField - End Get - Set - Me.swVersionField = value - Me.RaisePropertyChanged("SwVersion") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetCodeNumberRequest - - _ - Public GetCodeNumber As OPENcontrol.GetCodeNumber - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetCodeNumber As OPENcontrol.GetCodeNumber) - MyBase.New - Me.GetCodeNumber = GetCodeNumber - End Sub - End Class - - _ - Partial Public Class GetCodeNumberResponse - - _ - Public GetCodeNumberR As OPENcontrol.GetCodeNumberR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetCodeNumberR As OPENcontrol.GetCodeNumberR) - MyBase.New - Me.GetCodeNumberR = GetCodeNumberR - End Sub - End Class - - ''' - _ - Partial Public Class GetOptions - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetOptionsR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private optionField() As Byte - - Private securLevelField() As Byte - - Private swVersionField As String - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property [Option]() As Byte() - Get - Return Me.optionField - End Get - Set - Me.optionField = value - Me.RaisePropertyChanged("Option") - End Set - End Property - - ''' - _ - Public Property SecurLevel() As Byte() - Get - Return Me.securLevelField - End Get - Set - Me.securLevelField = value - Me.RaisePropertyChanged("SecurLevel") - End Set - End Property - - ''' - _ - Public Property SwVersion() As String - Get - Return Me.swVersionField - End Get - Set - Me.swVersionField = value - Me.RaisePropertyChanged("SwVersion") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetOptionsRequest - - _ - Public GetOptions As OPENcontrol.GetOptions - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetOptions As OPENcontrol.GetOptions) - MyBase.New - Me.GetOptions = GetOptions - End Sub - End Class - - _ - Partial Public Class GetOptionsResponse - - _ - Public GetOptionsR As OPENcontrol.GetOptionsR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetOptionsR As OPENcontrol.GetOptionsR) - MyBase.New - Me.GetOptionsR = GetOptionsR - End Sub - End Class - - ''' - _ - Partial Public Class GetDateTime - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetDateTimeR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private yearField As UShort - - Private monthField As UShort - - Private dayField As UShort - - Private hourField As UShort - - Private minuteField As UShort - - Private secondField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property Year() As UShort - Get - Return Me.yearField - End Get - Set - Me.yearField = value - Me.RaisePropertyChanged("Year") - End Set - End Property - - ''' - _ - Public Property Month() As UShort - Get - Return Me.monthField - End Get - Set - Me.monthField = value - Me.RaisePropertyChanged("Month") - End Set - End Property - - ''' - _ - Public Property Day() As UShort - Get - Return Me.dayField - End Get - Set - Me.dayField = value - Me.RaisePropertyChanged("Day") - End Set - End Property - - ''' - _ - Public Property Hour() As UShort - Get - Return Me.hourField - End Get - Set - Me.hourField = value - Me.RaisePropertyChanged("Hour") - End Set - End Property - - ''' - _ - Public Property Minute() As UShort - Get - Return Me.minuteField - End Get - Set - Me.minuteField = value - Me.RaisePropertyChanged("Minute") - End Set - End Property - - ''' - _ - Public Property Second() As UShort - Get - Return Me.secondField - End Get - Set - Me.secondField = value - Me.RaisePropertyChanged("Second") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetDateTimeRequest - - _ - Public GetDateTime As OPENcontrol.GetDateTime - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetDateTime As OPENcontrol.GetDateTime) - MyBase.New - Me.GetDateTime = GetDateTime - End Sub - End Class - - _ - Partial Public Class GetDateTimeResponse - - _ - Public GetDateTimeR As OPENcontrol.GetDateTimeR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetDateTimeR As OPENcontrol.GetDateTimeR) - MyBase.New - Me.GetDateTimeR = GetDateTimeR - End Sub - End Class - - ''' - _ - Partial Public Class SetDateTime - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private yearField As UShort - - Private monthField As UShort - - Private dayField As UShort - - Private hourField As UShort - - Private minuteField As UShort - - Private secondField As UShort - - ''' - _ - Public Property Year() As UShort - Get - Return Me.yearField - End Get - Set - Me.yearField = value - Me.RaisePropertyChanged("Year") - End Set - End Property - - ''' - _ - Public Property Month() As UShort - Get - Return Me.monthField - End Get - Set - Me.monthField = value - Me.RaisePropertyChanged("Month") - End Set - End Property - - ''' - _ - Public Property Day() As UShort - Get - Return Me.dayField - End Get - Set - Me.dayField = value - Me.RaisePropertyChanged("Day") - End Set - End Property - - ''' - _ - Public Property Hour() As UShort - Get - Return Me.hourField - End Get - Set - Me.hourField = value - Me.RaisePropertyChanged("Hour") - End Set - End Property - - ''' - _ - Public Property Minute() As UShort - Get - Return Me.minuteField - End Get - Set - Me.minuteField = value - Me.RaisePropertyChanged("Minute") - End Set - End Property - - ''' - _ - Public Property Second() As UShort - Get - Return Me.secondField - End Get - Set - Me.secondField = value - Me.RaisePropertyChanged("Second") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SetDateTimeR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SetDateTimeRequest - - _ - Public SetDateTime As OPENcontrol.SetDateTime - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetDateTime As OPENcontrol.SetDateTime) - MyBase.New - Me.SetDateTime = SetDateTime - End Sub - End Class - - _ - Partial Public Class SetDateTimeResponse - - _ - Public SetDateTimeR As OPENcontrol.SetDateTimeR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetDateTimeR As OPENcontrol.SetDateTimeR) - MyBase.New - Me.SetDateTimeR = SetDateTimeR - End Sub - End Class - - ''' - _ - Partial Public Class GetSerialNumber - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetSerialNumberR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private serialNumberField As String - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property SerialNumber() As String - Get - Return Me.serialNumberField - End Get - Set - Me.serialNumberField = value - Me.RaisePropertyChanged("SerialNumber") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetSerialNumberRequest - - _ - Public GetSerialNumber As OPENcontrol.GetSerialNumber - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetSerialNumber As OPENcontrol.GetSerialNumber) - MyBase.New - Me.GetSerialNumber = GetSerialNumber - End Sub - End Class - - _ - Partial Public Class GetSerialNumberResponse - - _ - Public GetSerialNumberR As OPENcontrol.GetSerialNumberR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetSerialNumberR As OPENcontrol.GetSerialNumberR) - MyBase.New - Me.GetSerialNumberR = GetSerialNumberR - End Sub - End Class - - ''' - _ - Partial Public Class PutFile - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private dataField As String - - Private sizeField As UInteger - - Private pathNameField As String - - ''' - _ - Public Property Data() As String - Get - Return Me.dataField - End Get - Set - Me.dataField = value - Me.RaisePropertyChanged("Data") - End Set - End Property - - ''' - _ - Public Property Size() As UInteger - Get - Return Me.sizeField - End Get - Set - Me.sizeField = value - Me.RaisePropertyChanged("Size") - End Set - End Property - - ''' - _ - Public Property PathName() As String - Get - Return Me.pathNameField - End Get - Set - Me.pathNameField = value - Me.RaisePropertyChanged("PathName") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class PutFileR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class PutFileRequest - - _ - Public PutFile As OPENcontrol.PutFile - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal PutFile As OPENcontrol.PutFile) - MyBase.New - Me.PutFile = PutFile - End Sub - End Class - - _ - Partial Public Class PutFileResponse - - _ - Public PutFileR As OPENcontrol.PutFileR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal PutFileR As OPENcontrol.PutFileR) - MyBase.New - Me.PutFileR = PutFileR - End Sub - End Class - - ''' - _ - Partial Public Class GetFile - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private pathNameField As String - - Private sizeField As UInteger - - ''' - _ - Public Property PathName() As String - Get - Return Me.pathNameField - End Get - Set - Me.pathNameField = value - Me.RaisePropertyChanged("PathName") - End Set - End Property - - ''' - _ - Public Property Size() As UInteger - Get - Return Me.sizeField - End Get - Set - Me.sizeField = value - Me.RaisePropertyChanged("Size") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetFileR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private sizeField As UInteger - - Private dataField As String - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property Size() As UInteger - Get - Return Me.sizeField - End Get - Set - Me.sizeField = value - Me.RaisePropertyChanged("Size") - End Set - End Property - - ''' - _ - Public Property Data() As String - Get - Return Me.dataField - End Get - Set - Me.dataField = value - Me.RaisePropertyChanged("Data") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetFileRequest - - _ - Public GetFile As OPENcontrol.GetFile - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetFile As OPENcontrol.GetFile) - MyBase.New - Me.GetFile = GetFile - End Sub - End Class - - _ - Partial Public Class GetFileResponse - - _ - Public GetFileR As OPENcontrol.GetFileR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetFileR As OPENcontrol.GetFileR) - MyBase.New - Me.GetFileR = GetFileR - End Sub - End Class - - ''' - _ - Partial Public Class PutBinaryFile - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private dataField() As Byte - - Private pathNameField As String - - ''' - _ - Public Property Data() As Byte() - Get - Return Me.dataField - End Get - Set - Me.dataField = value - Me.RaisePropertyChanged("Data") - End Set - End Property - - ''' - _ - Public Property PathName() As String - Get - Return Me.pathNameField - End Get - Set - Me.pathNameField = value - Me.RaisePropertyChanged("PathName") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class PutBinaryFileR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class PutBinaryFileRequest - - _ - Public PutBinaryFile As OPENcontrol.PutBinaryFile - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal PutBinaryFile As OPENcontrol.PutBinaryFile) - MyBase.New - Me.PutBinaryFile = PutBinaryFile - End Sub - End Class - - _ - Partial Public Class PutBinaryFileResponse - - _ - Public PutBinaryFileR As OPENcontrol.PutBinaryFileR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal PutBinaryFileR As OPENcontrol.PutBinaryFileR) - MyBase.New - Me.PutBinaryFileR = PutBinaryFileR - End Sub - End Class - - ''' - _ - Partial Public Class GetBinaryFile - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private pathNameField As String - - Private sizeField As UInteger - - ''' - _ - Public Property PathName() As String - Get - Return Me.pathNameField - End Get - Set - Me.pathNameField = value - Me.RaisePropertyChanged("PathName") - End Set - End Property - - ''' - _ - Public Property Size() As UInteger - Get - Return Me.sizeField - End Get - Set - Me.sizeField = value - Me.RaisePropertyChanged("Size") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetBinaryFileR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private dataField() As Byte - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property Data() As Byte() - Get - Return Me.dataField - End Get - Set - Me.dataField = value - Me.RaisePropertyChanged("Data") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetBinaryFileRequest - - _ - Public GetBinaryFile As OPENcontrol.GetBinaryFile - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetBinaryFile As OPENcontrol.GetBinaryFile) - MyBase.New - Me.GetBinaryFile = GetBinaryFile - End Sub - End Class - - _ - Partial Public Class GetBinaryFileResponse - - _ - Public GetBinaryFileR As OPENcontrol.GetBinaryFileR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetBinaryFileR As OPENcontrol.GetBinaryFileR) - MyBase.New - Me.GetBinaryFileR = GetBinaryFileR - End Sub - End Class - - ''' - _ - Partial Public Class LogFSSetSecurityLevel - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private passwordField As String - - Private securityLevelField As SECURITYLEVEL - - ''' - _ - Public Property Password() As String - Get - Return Me.passwordField - End Get - Set - Me.passwordField = value - Me.RaisePropertyChanged("Password") - End Set - End Property - - ''' - _ - Public Property SecurityLevel() As SECURITYLEVEL - Get - Return Me.securityLevelField - End Get - Set - Me.securityLevelField = value - Me.RaisePropertyChanged("SecurityLevel") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Public Enum SECURITYLEVEL - - ''' - _ - SECURITYLEVELADMIN - - ''' - _ - SECURITYLEVELSERVICE - - ''' - _ - SECURITYLEVELOEMADMIN - - ''' - _ - SECURITYLEVELOEMSERVICE - - ''' - _ - SECURITYLEVELUSERADMIN - - ''' - _ - SECURITYLEVELUSERSERVICE - End Enum - - ''' - _ - Partial Public Class LogFSSetSecurityLevelR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private oldSecurityLevelField As SECURITYLEVEL - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property OldSecurityLevel() As SECURITYLEVEL - Get - Return Me.oldSecurityLevelField - End Get - Set - Me.oldSecurityLevelField = value - Me.RaisePropertyChanged("OldSecurityLevel") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LogFSSetSecurityLevelRequest - - _ - Public LogFSSetSecurityLevel As OPENcontrol.LogFSSetSecurityLevel - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSSetSecurityLevel As OPENcontrol.LogFSSetSecurityLevel) - MyBase.New - Me.LogFSSetSecurityLevel = LogFSSetSecurityLevel - End Sub - End Class - - _ - Partial Public Class LogFSSetSecurityLevelResponse - - _ - Public LogFSSetSecurityLevelR As OPENcontrol.LogFSSetSecurityLevelR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSSetSecurityLevelR As OPENcontrol.LogFSSetSecurityLevelR) - MyBase.New - Me.LogFSSetSecurityLevelR = LogFSSetSecurityLevelR - End Sub - End Class - - ''' - _ - Partial Public Class LogFSGetSecurityLevel - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LogFSGetSecurityLevelR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private securityLevelField As SECURITYLEVEL - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property SecurityLevel() As SECURITYLEVEL - Get - Return Me.securityLevelField - End Get - Set - Me.securityLevelField = value - Me.RaisePropertyChanged("SecurityLevel") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LogFSGetSecurityLevelRequest - - _ - Public LogFSGetSecurityLevel As OPENcontrol.LogFSGetSecurityLevel - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSGetSecurityLevel As OPENcontrol.LogFSGetSecurityLevel) - MyBase.New - Me.LogFSGetSecurityLevel = LogFSGetSecurityLevel - End Sub - End Class - - _ - Partial Public Class LogFSGetSecurityLevelResponse - - _ - Public LogFSGetSecurityLevelR As OPENcontrol.LogFSGetSecurityLevelR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSGetSecurityLevelR As OPENcontrol.LogFSGetSecurityLevelR) - MyBase.New - Me.LogFSGetSecurityLevelR = LogFSGetSecurityLevelR - End Sub - End Class - - ''' - _ - Partial Public Class LogFSLongFileNames - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LogFSLongFileNamesR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private useLongFileNamesField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property UseLongFileNames() As UShort - Get - Return Me.useLongFileNamesField - End Get - Set - Me.useLongFileNamesField = value - Me.RaisePropertyChanged("UseLongFileNames") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LogFSLongFileNamesRequest - - _ - Public LogFSLongFileNames As OPENcontrol.LogFSLongFileNames - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSLongFileNames As OPENcontrol.LogFSLongFileNames) - MyBase.New - Me.LogFSLongFileNames = LogFSLongFileNames - End Sub - End Class - - _ - Partial Public Class LogFSLongFileNamesResponse - - _ - Public LogFSLongFileNamesR As OPENcontrol.LogFSLongFileNamesR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSLongFileNamesR As OPENcontrol.LogFSLongFileNamesR) - MyBase.New - Me.LogFSLongFileNamesR = LogFSLongFileNamesR - End Sub - End Class - - ''' - _ - Partial Public Class LogFSGetNumDrive - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LogFSGetNumDriveR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private numHiddenDriveField As UShort - - Private numUserDriveField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property NumHiddenDrive() As UShort - Get - Return Me.numHiddenDriveField - End Get - Set - Me.numHiddenDriveField = value - Me.RaisePropertyChanged("NumHiddenDrive") - End Set - End Property - - ''' - _ - Public Property NumUserDrive() As UShort - Get - Return Me.numUserDriveField - End Get - Set - Me.numUserDriveField = value - Me.RaisePropertyChanged("NumUserDrive") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LogFSGetNumDriveRequest - - _ - Public LogFSGetNumDrive As OPENcontrol.LogFSGetNumDrive - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSGetNumDrive As OPENcontrol.LogFSGetNumDrive) - MyBase.New - Me.LogFSGetNumDrive = LogFSGetNumDrive - End Sub - End Class - - _ - Partial Public Class LogFSGetNumDriveResponse - - _ - Public LogFSGetNumDriveR As OPENcontrol.LogFSGetNumDriveR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSGetNumDriveR As OPENcontrol.LogFSGetNumDriveR) - MyBase.New - Me.LogFSGetNumDriveR = LogFSGetNumDriveR - End Sub - End Class - - ''' - _ - Partial Public Class LogFSGetDriveList - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private indexField As UShort - - ''' - _ - Public Property Index() As UShort - Get - Return Me.indexField - End Get - Set - Me.indexField = value - Me.RaisePropertyChanged("Index") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LogFSGetDriveListR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private driveNameField As String - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property DriveName() As String - Get - Return Me.driveNameField - End Get - Set - Me.driveNameField = value - Me.RaisePropertyChanged("DriveName") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LogFSGetDriveListRequest - - _ - Public LogFSGetDriveList As OPENcontrol.LogFSGetDriveList - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSGetDriveList As OPENcontrol.LogFSGetDriveList) - MyBase.New - Me.LogFSGetDriveList = LogFSGetDriveList - End Sub - End Class - - _ - Partial Public Class LogFSGetDriveListResponse - - _ - Public LogFSGetDriveListR As OPENcontrol.LogFSGetDriveListR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSGetDriveListR As OPENcontrol.LogFSGetDriveListR) - MyBase.New - Me.LogFSGetDriveListR = LogFSGetDriveListR - End Sub - End Class - - ''' - _ - Partial Public Class LogFSGetHiddenDriveList - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private indexField As UShort - - ''' - _ - Public Property Index() As UShort - Get - Return Me.indexField - End Get - Set - Me.indexField = value - Me.RaisePropertyChanged("Index") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LogFSGetHiddenDriveListR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private driveNameField As String - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property DriveName() As String - Get - Return Me.driveNameField - End Get - Set - Me.driveNameField = value - Me.RaisePropertyChanged("DriveName") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LogFSGetHiddenDriveListRequest - - _ - Public LogFSGetHiddenDriveList As OPENcontrol.LogFSGetHiddenDriveList - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSGetHiddenDriveList As OPENcontrol.LogFSGetHiddenDriveList) - MyBase.New - Me.LogFSGetHiddenDriveList = LogFSGetHiddenDriveList - End Sub - End Class - - _ - Partial Public Class LogFSGetHiddenDriveListResponse - - _ - Public LogFSGetHiddenDriveListR As OPENcontrol.LogFSGetHiddenDriveListR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSGetHiddenDriveListR As OPENcontrol.LogFSGetHiddenDriveListR) - MyBase.New - Me.LogFSGetHiddenDriveListR = LogFSGetHiddenDriveListR - End Sub - End Class - - ''' - _ - Partial Public Class LogFSGetDrivePath - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private driveNameField As String - - Private securityLevelField As SECURITYLEVEL - - ''' - _ - Public Property DriveName() As String - Get - Return Me.driveNameField - End Get - Set - Me.driveNameField = value - Me.RaisePropertyChanged("DriveName") - End Set - End Property - - ''' - _ - Public Property SecurityLevel() As SECURITYLEVEL - Get - Return Me.securityLevelField - End Get - Set - Me.securityLevelField = value - Me.RaisePropertyChanged("SecurityLevel") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LogFSGetDrivePathR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private drivePathField As String - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property DrivePath() As String - Get - Return Me.drivePathField - End Get - Set - Me.drivePathField = value - Me.RaisePropertyChanged("DrivePath") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LogFSGetDrivePathRequest - - _ - Public LogFSGetDrivePath As OPENcontrol.LogFSGetDrivePath - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSGetDrivePath As OPENcontrol.LogFSGetDrivePath) - MyBase.New - Me.LogFSGetDrivePath = LogFSGetDrivePath - End Sub - End Class - - _ - Partial Public Class LogFSGetDrivePathResponse - - _ - Public LogFSGetDrivePathR As OPENcontrol.LogFSGetDrivePathR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSGetDrivePathR As OPENcontrol.LogFSGetDrivePathR) - MyBase.New - Me.LogFSGetDrivePathR = LogFSGetDrivePathR - End Sub - End Class - - ''' - _ - Partial Public Class LogFSAddDrive - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private driveNameField As String - - Private pathNameField As String - - Private temporaryField As Boolean - - Private securityLevelField As SECURITYLEVEL - - ''' - _ - Public Property DriveName() As String - Get - Return Me.driveNameField - End Get - Set - Me.driveNameField = value - Me.RaisePropertyChanged("DriveName") - End Set - End Property - - ''' - _ - Public Property PathName() As String - Get - Return Me.pathNameField - End Get - Set - Me.pathNameField = value - Me.RaisePropertyChanged("PathName") - End Set - End Property - - ''' - _ - Public Property Temporary() As Boolean - Get - Return Me.temporaryField - End Get - Set - Me.temporaryField = value - Me.RaisePropertyChanged("Temporary") - End Set - End Property - - ''' - _ - Public Property SecurityLevel() As SECURITYLEVEL - Get - Return Me.securityLevelField - End Get - Set - Me.securityLevelField = value - Me.RaisePropertyChanged("SecurityLevel") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LogFSAddDriveR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LogFSAddDriveRequest - - _ - Public LogFSAddDrive As OPENcontrol.LogFSAddDrive - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSAddDrive As OPENcontrol.LogFSAddDrive) - MyBase.New - Me.LogFSAddDrive = LogFSAddDrive - End Sub - End Class - - _ - Partial Public Class LogFSAddDriveResponse - - _ - Public LogFSAddDriveR As OPENcontrol.LogFSAddDriveR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSAddDriveR As OPENcontrol.LogFSAddDriveR) - MyBase.New - Me.LogFSAddDriveR = LogFSAddDriveR - End Sub - End Class - - ''' - _ - Partial Public Class LogFSRemoveDrive - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private driveNameField As String - - Private securityLevelField As SECURITYLEVEL - - ''' - _ - Public Property DriveName() As String - Get - Return Me.driveNameField - End Get - Set - Me.driveNameField = value - Me.RaisePropertyChanged("DriveName") - End Set - End Property - - ''' - _ - Public Property SecurityLevel() As SECURITYLEVEL - Get - Return Me.securityLevelField - End Get - Set - Me.securityLevelField = value - Me.RaisePropertyChanged("SecurityLevel") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LogFSRemoveDriveR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LogFSRemoveDriveRequest - - _ - Public LogFSRemoveDrive As OPENcontrol.LogFSRemoveDrive - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSRemoveDrive As OPENcontrol.LogFSRemoveDrive) - MyBase.New - Me.LogFSRemoveDrive = LogFSRemoveDrive - End Sub - End Class - - _ - Partial Public Class LogFSRemoveDriveResponse - - _ - Public LogFSRemoveDriveR As OPENcontrol.LogFSRemoveDriveR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSRemoveDriveR As OPENcontrol.LogFSRemoveDriveR) - MyBase.New - Me.LogFSRemoveDriveR = LogFSRemoveDriveR - End Sub - End Class - - ''' - _ - Partial Public Class LogFSReloadDriveList - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LogFSReloadDriveListR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LogFSReloadDriveListRequest - - _ - Public LogFSReloadDriveList As OPENcontrol.LogFSReloadDriveList - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSReloadDriveList As OPENcontrol.LogFSReloadDriveList) - MyBase.New - Me.LogFSReloadDriveList = LogFSReloadDriveList - End Sub - End Class - - _ - Partial Public Class LogFSReloadDriveListResponse - - _ - Public LogFSReloadDriveListR As OPENcontrol.LogFSReloadDriveListR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSReloadDriveListR As OPENcontrol.LogFSReloadDriveListR) - MyBase.New - Me.LogFSReloadDriveListR = LogFSReloadDriveListR - End Sub - End Class - - ''' - _ - Partial Public Class LogFSCreateDir - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private pathNameField As String - - ''' - _ - Public Property PathName() As String - Get - Return Me.pathNameField - End Get - Set - Me.pathNameField = value - Me.RaisePropertyChanged("PathName") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LogFSCreateDirR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LogFSCreateDirRequest - - _ - Public LogFSCreateDir As OPENcontrol.LogFSCreateDir - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSCreateDir As OPENcontrol.LogFSCreateDir) - MyBase.New - Me.LogFSCreateDir = LogFSCreateDir - End Sub - End Class - - _ - Partial Public Class LogFSCreateDirResponse - - _ - Public LogFSCreateDirR As OPENcontrol.LogFSCreateDirR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSCreateDirR As OPENcontrol.LogFSCreateDirR) - MyBase.New - Me.LogFSCreateDirR = LogFSCreateDirR - End Sub - End Class - - ''' - _ - Partial Public Class LogFSCreateFile - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private pathNameField As String - - ''' - _ - Public Property PathName() As String - Get - Return Me.pathNameField - End Get - Set - Me.pathNameField = value - Me.RaisePropertyChanged("PathName") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LogFSCreateFileR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LogFSCreateFileRequest - - _ - Public LogFSCreateFile As OPENcontrol.LogFSCreateFile - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSCreateFile As OPENcontrol.LogFSCreateFile) - MyBase.New - Me.LogFSCreateFile = LogFSCreateFile - End Sub - End Class - - _ - Partial Public Class LogFSCreateFileResponse - - _ - Public LogFSCreateFileR As OPENcontrol.LogFSCreateFileR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSCreateFileR As OPENcontrol.LogFSCreateFileR) - MyBase.New - Me.LogFSCreateFileR = LogFSCreateFileR - End Sub - End Class - - ''' - _ - Partial Public Class LogFSGetFileSize - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private pathNameField As String - - ''' - _ - Public Property PathName() As String - Get - Return Me.pathNameField - End Get - Set - Me.pathNameField = value - Me.RaisePropertyChanged("PathName") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LogFSGetFileSizeR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private sizeField As UInteger - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property Size() As UInteger - Get - Return Me.sizeField - End Get - Set - Me.sizeField = value - Me.RaisePropertyChanged("Size") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LogFSGetFileSizeRequest - - _ - Public LogFSGetFileSize As OPENcontrol.LogFSGetFileSize - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSGetFileSize As OPENcontrol.LogFSGetFileSize) - MyBase.New - Me.LogFSGetFileSize = LogFSGetFileSize - End Sub - End Class - - _ - Partial Public Class LogFSGetFileSizeResponse - - _ - Public LogFSGetFileSizeR As OPENcontrol.LogFSGetFileSizeR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSGetFileSizeR As OPENcontrol.LogFSGetFileSizeR) - MyBase.New - Me.LogFSGetFileSizeR = LogFSGetFileSizeR - End Sub - End Class - - ''' - _ - Partial Public Class LogFSGetFileAttrib - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private pathNameField As String - - ''' - _ - Public Property PathName() As String - Get - Return Me.pathNameField - End Get - Set - Me.pathNameField = value - Me.RaisePropertyChanged("PathName") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LogFSGetFileAttribR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private attribField As UInteger - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property Attrib() As UInteger - Get - Return Me.attribField - End Get - Set - Me.attribField = value - Me.RaisePropertyChanged("Attrib") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LogFSGetFileAttribRequest - - _ - Public LogFSGetFileAttrib As OPENcontrol.LogFSGetFileAttrib - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSGetFileAttrib As OPENcontrol.LogFSGetFileAttrib) - MyBase.New - Me.LogFSGetFileAttrib = LogFSGetFileAttrib - End Sub - End Class - - _ - Partial Public Class LogFSGetFileAttribResponse - - _ - Public LogFSGetFileAttribR As OPENcontrol.LogFSGetFileAttribR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSGetFileAttribR As OPENcontrol.LogFSGetFileAttribR) - MyBase.New - Me.LogFSGetFileAttribR = LogFSGetFileAttribR - End Sub - End Class - - ''' - _ - Partial Public Class LogFSSetFileAttrib - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private pathNameField As String - - Private attribField As UInteger - - ''' - _ - Public Property PathName() As String - Get - Return Me.pathNameField - End Get - Set - Me.pathNameField = value - Me.RaisePropertyChanged("PathName") - End Set - End Property - - ''' - _ - Public Property Attrib() As UInteger - Get - Return Me.attribField - End Get - Set - Me.attribField = value - Me.RaisePropertyChanged("Attrib") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LogFSSetFileAttribR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LogFSSetFileAttribRequest - - _ - Public LogFSSetFileAttrib As OPENcontrol.LogFSSetFileAttrib - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSSetFileAttrib As OPENcontrol.LogFSSetFileAttrib) - MyBase.New - Me.LogFSSetFileAttrib = LogFSSetFileAttrib - End Sub - End Class - - _ - Partial Public Class LogFSSetFileAttribResponse - - _ - Public LogFSSetFileAttribR As OPENcontrol.LogFSSetFileAttribR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSSetFileAttribR As OPENcontrol.LogFSSetFileAttribR) - MyBase.New - Me.LogFSSetFileAttribR = LogFSSetFileAttribR - End Sub - End Class - - ''' - _ - Partial Public Class LogFSChangeFileAttrib - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private pathNameField As String - - Private addField As UInteger - - Private removeField As UInteger - - ''' - _ - Public Property PathName() As String - Get - Return Me.pathNameField - End Get - Set - Me.pathNameField = value - Me.RaisePropertyChanged("PathName") - End Set - End Property - - ''' - _ - Public Property Add() As UInteger - Get - Return Me.addField - End Get - Set - Me.addField = value - Me.RaisePropertyChanged("Add") - End Set - End Property - - ''' - _ - Public Property Remove() As UInteger - Get - Return Me.removeField - End Get - Set - Me.removeField = value - Me.RaisePropertyChanged("Remove") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LogFSChangeFileAttribR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LogFSChangeFileAttribRequest - - _ - Public LogFSChangeFileAttrib As OPENcontrol.LogFSChangeFileAttrib - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSChangeFileAttrib As OPENcontrol.LogFSChangeFileAttrib) - MyBase.New - Me.LogFSChangeFileAttrib = LogFSChangeFileAttrib - End Sub - End Class - - _ - Partial Public Class LogFSChangeFileAttribResponse - - _ - Public LogFSChangeFileAttribR As OPENcontrol.LogFSChangeFileAttribR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSChangeFileAttribR As OPENcontrol.LogFSChangeFileAttribR) - MyBase.New - Me.LogFSChangeFileAttribR = LogFSChangeFileAttribR - End Sub - End Class - - ''' - _ - Partial Public Class LogFSFindFirst - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private fileNameField As String - - ''' - _ - Public Property FileName() As String - Get - Return Me.fileNameField - End Get - Set - Me.fileNameField = value - Me.RaisePropertyChanged("FileName") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LogFSFindFirstR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private findDataField As FILEFINDDATA - - Private finderField As UInteger - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property FindData() As FILEFINDDATA - Get - Return Me.findDataField - End Get - Set - Me.findDataField = value - Me.RaisePropertyChanged("FindData") - End Set - End Property - - ''' - _ - Public Property Finder() As UInteger - Get - Return Me.finderField - End Get - Set - Me.finderField = value - Me.RaisePropertyChanged("Finder") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LogFSFindFirstRequest - - _ - Public LogFSFindFirst As OPENcontrol.LogFSFindFirst - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSFindFirst As OPENcontrol.LogFSFindFirst) - MyBase.New - Me.LogFSFindFirst = LogFSFindFirst - End Sub - End Class - - _ - Partial Public Class LogFSFindFirstResponse - - _ - Public LogFSFindFirstR As OPENcontrol.LogFSFindFirstR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSFindFirstR As OPENcontrol.LogFSFindFirstR) - MyBase.New - Me.LogFSFindFirstR = LogFSFindFirstR - End Sub - End Class - - ''' - _ - Partial Public Class LogFSFindNext - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private finderField As UInteger - - ''' - _ - Public Property Finder() As UInteger - Get - Return Me.finderField - End Get - Set - Me.finderField = value - Me.RaisePropertyChanged("Finder") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LogFSFindNextR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private findDataField As FILEFINDDATA - - Private foundField As Boolean - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property FindData() As FILEFINDDATA - Get - Return Me.findDataField - End Get - Set - Me.findDataField = value - Me.RaisePropertyChanged("FindData") - End Set - End Property - - ''' - _ - Public Property Found() As Boolean - Get - Return Me.foundField - End Get - Set - Me.foundField = value - Me.RaisePropertyChanged("Found") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LogFSFindNextRequest - - _ - Public LogFSFindNext As OPENcontrol.LogFSFindNext - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSFindNext As OPENcontrol.LogFSFindNext) - MyBase.New - Me.LogFSFindNext = LogFSFindNext - End Sub - End Class - - _ - Partial Public Class LogFSFindNextResponse - - _ - Public LogFSFindNextR As OPENcontrol.LogFSFindNextR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSFindNextR As OPENcontrol.LogFSFindNextR) - MyBase.New - Me.LogFSFindNextR = LogFSFindNextR - End Sub - End Class - - ''' - _ - Partial Public Class LogFSFindClose - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private finderField As UInteger - - ''' - _ - Public Property Finder() As UInteger - Get - Return Me.finderField - End Get - Set - Me.finderField = value - Me.RaisePropertyChanged("Finder") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LogFSFindCloseR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LogFSFindCloseRequest - - _ - Public LogFSFindClose As OPENcontrol.LogFSFindClose - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSFindClose As OPENcontrol.LogFSFindClose) - MyBase.New - Me.LogFSFindClose = LogFSFindClose - End Sub - End Class - - _ - Partial Public Class LogFSFindCloseResponse - - _ - Public LogFSFindCloseR As OPENcontrol.LogFSFindCloseR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSFindCloseR As OPENcontrol.LogFSFindCloseR) - MyBase.New - Me.LogFSFindCloseR = LogFSFindCloseR - End Sub - End Class - - ''' - _ - Partial Public Class LogFSRemoveFile - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private pathNameField As String - - Private fileNameField As String - - ''' - _ - Public Property PathName() As String - Get - Return Me.pathNameField - End Get - Set - Me.pathNameField = value - Me.RaisePropertyChanged("PathName") - End Set - End Property - - ''' - _ - Public Property FileName() As String - Get - Return Me.fileNameField - End Get - Set - Me.fileNameField = value - Me.RaisePropertyChanged("FileName") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LogFSRemoveFileR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LogFSRemoveFileRequest - - _ - Public LogFSRemoveFile As OPENcontrol.LogFSRemoveFile - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSRemoveFile As OPENcontrol.LogFSRemoveFile) - MyBase.New - Me.LogFSRemoveFile = LogFSRemoveFile - End Sub - End Class - - _ - Partial Public Class LogFSRemoveFileResponse - - _ - Public LogFSRemoveFileR As OPENcontrol.LogFSRemoveFileR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSRemoveFileR As OPENcontrol.LogFSRemoveFileR) - MyBase.New - Me.LogFSRemoveFileR = LogFSRemoveFileR - End Sub - End Class - - ''' - _ - Partial Public Class LogFSRemoveDir - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private pathNameField As String - - ''' - _ - Public Property PathName() As String - Get - Return Me.pathNameField - End Get - Set - Me.pathNameField = value - Me.RaisePropertyChanged("PathName") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LogFSRemoveDirR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LogFSRemoveDirRequest - - _ - Public LogFSRemoveDir As OPENcontrol.LogFSRemoveDir - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSRemoveDir As OPENcontrol.LogFSRemoveDir) - MyBase.New - Me.LogFSRemoveDir = LogFSRemoveDir - End Sub - End Class - - _ - Partial Public Class LogFSRemoveDirResponse - - _ - Public LogFSRemoveDirR As OPENcontrol.LogFSRemoveDirR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSRemoveDirR As OPENcontrol.LogFSRemoveDirR) - MyBase.New - Me.LogFSRemoveDirR = LogFSRemoveDirR - End Sub - End Class - - ''' - _ - Partial Public Class LogFSRename - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private pathNameField As String - - Private newPathNameField As String - - ''' - _ - Public Property PathName() As String - Get - Return Me.pathNameField - End Get - Set - Me.pathNameField = value - Me.RaisePropertyChanged("PathName") - End Set - End Property - - ''' - _ - Public Property NewPathName() As String - Get - Return Me.newPathNameField - End Get - Set - Me.newPathNameField = value - Me.RaisePropertyChanged("NewPathName") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LogFSRenameR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LogFSRenameRequest - - _ - Public LogFSRename As OPENcontrol.LogFSRename - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSRename As OPENcontrol.LogFSRename) - MyBase.New - Me.LogFSRename = LogFSRename - End Sub - End Class - - _ - Partial Public Class LogFSRenameResponse - - _ - Public LogFSRenameR As OPENcontrol.LogFSRenameR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSRenameR As OPENcontrol.LogFSRenameR) - MyBase.New - Me.LogFSRenameR = LogFSRenameR - End Sub - End Class - - ''' - _ - Partial Public Class LogFSCopyFile - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private pathNameField As String - - Private newPathNameField As String - - Private failIfExistsField As Boolean - - ''' - _ - Public Property PathName() As String - Get - Return Me.pathNameField - End Get - Set - Me.pathNameField = value - Me.RaisePropertyChanged("PathName") - End Set - End Property - - ''' - _ - Public Property NewPathName() As String - Get - Return Me.newPathNameField - End Get - Set - Me.newPathNameField = value - Me.RaisePropertyChanged("NewPathName") - End Set - End Property - - ''' - _ - Public Property FailIfExists() As Boolean - Get - Return Me.failIfExistsField - End Get - Set - Me.failIfExistsField = value - Me.RaisePropertyChanged("FailIfExists") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LogFSCopyFileR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LogFSCopyFileRequest - - _ - Public LogFSCopyFile As OPENcontrol.LogFSCopyFile - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSCopyFile As OPENcontrol.LogFSCopyFile) - MyBase.New - Me.LogFSCopyFile = LogFSCopyFile - End Sub - End Class - - _ - Partial Public Class LogFSCopyFileResponse - - _ - Public LogFSCopyFileR As OPENcontrol.LogFSCopyFileR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSCopyFileR As OPENcontrol.LogFSCopyFileR) - MyBase.New - Me.LogFSCopyFileR = LogFSCopyFileR - End Sub - End Class - - ''' - _ - Partial Public Class LogFSGetInfo - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private pathNameField As String - - Private selectorField As UInteger - - Private itemCounterField As UShort - - ''' - _ - Public Property PathName() As String - Get - Return Me.pathNameField - End Get - Set - Me.pathNameField = value - Me.RaisePropertyChanged("PathName") - End Set - End Property - - ''' - _ - Public Property Selector() As UInteger - Get - Return Me.selectorField - End Get - Set - Me.selectorField = value - Me.RaisePropertyChanged("Selector") - End Set - End Property - - ''' - _ - Public Property ItemCounter() As UShort - Get - Return Me.itemCounterField - End Get - Set - Me.itemCounterField = value - Me.RaisePropertyChanged("ItemCounter") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LogFSGetInfoR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private bufferField() As UInteger - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property Buffer() As UInteger() - Get - Return Me.bufferField - End Get - Set - Me.bufferField = value - Me.RaisePropertyChanged("Buffer") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LogFSGetInfoRequest - - _ - Public LogFSGetInfo As OPENcontrol.LogFSGetInfo - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSGetInfo As OPENcontrol.LogFSGetInfo) - MyBase.New - Me.LogFSGetInfo = LogFSGetInfo - End Sub - End Class - - _ - Partial Public Class LogFSGetInfoResponse - - _ - Public LogFSGetInfoR As OPENcontrol.LogFSGetInfoR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSGetInfoR As OPENcontrol.LogFSGetInfoR) - MyBase.New - Me.LogFSGetInfoR = LogFSGetInfoR - End Sub - End Class - - ''' - _ - Partial Public Class GetAvailableCustomEvents - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private maxEventsField As UShort - - ''' - _ - Public Property MaxEvents() As UShort - Get - Return Me.maxEventsField - End Get - Set - Me.maxEventsField = value - Me.RaisePropertyChanged("MaxEvents") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetAvailableCustomEventsR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private numEventsField As UShort - - Private eventDataField() As MONCUSTOMEVENTINFO - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property NumEvents() As UShort - Get - Return Me.numEventsField - End Get - Set - Me.numEventsField = value - Me.RaisePropertyChanged("NumEvents") - End Set - End Property - - ''' - _ - Public Property EventData() As MONCUSTOMEVENTINFO() - Get - Return Me.eventDataField - End Get - Set - Me.eventDataField = value - Me.RaisePropertyChanged("EventData") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetAvailableCustomEventsRequest - - _ - Public GetAvailableCustomEvents As OPENcontrol.GetAvailableCustomEvents - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetAvailableCustomEvents As OPENcontrol.GetAvailableCustomEvents) - MyBase.New - Me.GetAvailableCustomEvents = GetAvailableCustomEvents - End Sub - End Class - - _ - Partial Public Class GetAvailableCustomEventsResponse - - _ - Public GetAvailableCustomEventsR As OPENcontrol.GetAvailableCustomEventsR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetAvailableCustomEventsR As OPENcontrol.GetAvailableCustomEventsR) - MyBase.New - Me.GetAvailableCustomEventsR = GetAvailableCustomEventsR - End Sub - End Class - - ''' - _ - Partial Public Class GetSysTick - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetSysTickR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private sysTickField As Double - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property SysTick() As Double - Get - Return Me.sysTickField - End Get - Set - Me.sysTickField = value - Me.RaisePropertyChanged("SysTick") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetSysTickRequest - - _ - Public GetSysTick As OPENcontrol.GetSysTick - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetSysTick As OPENcontrol.GetSysTick) - MyBase.New - Me.GetSysTick = GetSysTick - End Sub - End Class - - _ - Partial Public Class GetSysTickResponse - - _ - Public GetSysTickR As OPENcontrol.GetSysTickR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetSysTickR As OPENcontrol.GetSysTickR) - MyBase.New - Me.GetSysTickR = GetSysTickR - End Sub - End Class - - ''' - _ - Partial Public Class GetProcessConfNum - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetProcessConfNumR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private processConfNumField As Byte - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ProcessConfNum() As Byte - Get - Return Me.processConfNumField - End Get - Set - Me.processConfNumField = value - Me.RaisePropertyChanged("ProcessConfNum") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetProcessConfNumRequest - - _ - Public GetProcessConfNum As OPENcontrol.GetProcessConfNum - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetProcessConfNum As OPENcontrol.GetProcessConfNum) - MyBase.New - Me.GetProcessConfNum = GetProcessConfNum - End Sub - End Class - - _ - Partial Public Class GetProcessConfNumResponse - - _ - Public GetProcessConfNumR As OPENcontrol.GetProcessConfNumR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetProcessConfNumR As OPENcontrol.GetProcessConfNumR) - MyBase.New - Me.GetProcessConfNumR = GetProcessConfNumR - End Sub - End Class - - ''' - _ - Partial Public Class MonOpenChannel - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private synchronizedField As Boolean - - ''' - _ - Public Property Synchronized() As Boolean - Get - Return Me.synchronizedField - End Get - Set - Me.synchronizedField = value - Me.RaisePropertyChanged("Synchronized") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class MonOpenChannelR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private channelIDField As UInteger - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ChannelID() As UInteger - Get - Return Me.channelIDField - End Get - Set - Me.channelIDField = value - Me.RaisePropertyChanged("ChannelID") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class MonOpenChannelRequest - - _ - Public MonOpenChannel As OPENcontrol.MonOpenChannel - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal MonOpenChannel As OPENcontrol.MonOpenChannel) - MyBase.New - Me.MonOpenChannel = MonOpenChannel - End Sub - End Class - - _ - Partial Public Class MonOpenChannelResponse - - _ - Public MonOpenChannelR As OPENcontrol.MonOpenChannelR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal MonOpenChannelR As OPENcontrol.MonOpenChannelR) - MyBase.New - Me.MonOpenChannelR = MonOpenChannelR - End Sub - End Class - - ''' - _ - Partial Public Class MonCloseChannel - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private channelIDField As UInteger - - ''' - _ - Public Property ChannelID() As UInteger - Get - Return Me.channelIDField - End Get - Set - Me.channelIDField = value - Me.RaisePropertyChanged("ChannelID") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class MonCloseChannelR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class MonCloseChannelRequest - - _ - Public MonCloseChannel As OPENcontrol.MonCloseChannel - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal MonCloseChannel As OPENcontrol.MonCloseChannel) - MyBase.New - Me.MonCloseChannel = MonCloseChannel - End Sub - End Class - - _ - Partial Public Class MonCloseChannelResponse - - _ - Public MonCloseChannelR As OPENcontrol.MonCloseChannelR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal MonCloseChannelR As OPENcontrol.MonCloseChannelR) - MyBase.New - Me.MonCloseChannelR = MonCloseChannelR - End Sub - End Class - - ''' - _ - Partial Public Class MonAddVariable - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private channelIDField As UInteger - - Private varDescrField As MONVARDESCR - - ''' - _ - Public Property ChannelID() As UInteger - Get - Return Me.channelIDField - End Get - Set - Me.channelIDField = value - Me.RaisePropertyChanged("ChannelID") - End Set - End Property - - ''' - _ - Public Property VarDescr() As MONVARDESCR - Get - Return Me.varDescrField - End Get - Set - Me.varDescrField = value - Me.RaisePropertyChanged("VarDescr") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class MonAddVariableR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private variableIDField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property VariableID() As UShort - Get - Return Me.variableIDField - End Get - Set - Me.variableIDField = value - Me.RaisePropertyChanged("VariableID") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class MonAddVariableRequest - - _ - Public MonAddVariable As OPENcontrol.MonAddVariable - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal MonAddVariable As OPENcontrol.MonAddVariable) - MyBase.New - Me.MonAddVariable = MonAddVariable - End Sub - End Class - - _ - Partial Public Class MonAddVariableResponse - - _ - Public MonAddVariableR As OPENcontrol.MonAddVariableR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal MonAddVariableR As OPENcontrol.MonAddVariableR) - MyBase.New - Me.MonAddVariableR = MonAddVariableR - End Sub - End Class - - ''' - _ - Partial Public Class MonDeleteVariable - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private channelIDField As UInteger - - Private variableIDField As UShort - - ''' - _ - Public Property ChannelID() As UInteger - Get - Return Me.channelIDField - End Get - Set - Me.channelIDField = value - Me.RaisePropertyChanged("ChannelID") - End Set - End Property - - ''' - _ - Public Property VariableID() As UShort - Get - Return Me.variableIDField - End Get - Set - Me.variableIDField = value - Me.RaisePropertyChanged("VariableID") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class MonDeleteVariableR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class MonDeleteVariableRequest - - _ - Public MonDeleteVariable As OPENcontrol.MonDeleteVariable - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal MonDeleteVariable As OPENcontrol.MonDeleteVariable) - MyBase.New - Me.MonDeleteVariable = MonDeleteVariable - End Sub - End Class - - _ - Partial Public Class MonDeleteVariableResponse - - _ - Public MonDeleteVariableR As OPENcontrol.MonDeleteVariableR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal MonDeleteVariableR As OPENcontrol.MonDeleteVariableR) - MyBase.New - Me.MonDeleteVariableR = MonDeleteVariableR - End Sub - End Class - - ''' - _ - Partial Public Class MonStartSampling - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private channelIDField As UInteger - - ''' - _ - Public Property ChannelID() As UInteger - Get - Return Me.channelIDField - End Get - Set - Me.channelIDField = value - Me.RaisePropertyChanged("ChannelID") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class MonStartSamplingR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class MonStartSamplingRequest - - _ - Public MonStartSampling As OPENcontrol.MonStartSampling - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal MonStartSampling As OPENcontrol.MonStartSampling) - MyBase.New - Me.MonStartSampling = MonStartSampling - End Sub - End Class - - _ - Partial Public Class MonStartSamplingResponse - - _ - Public MonStartSamplingR As OPENcontrol.MonStartSamplingR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal MonStartSamplingR As OPENcontrol.MonStartSamplingR) - MyBase.New - Me.MonStartSamplingR = MonStartSamplingR - End Sub - End Class - - ''' - _ - Partial Public Class MonStopSampling - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private channelIDField As UInteger - - ''' - _ - Public Property ChannelID() As UInteger - Get - Return Me.channelIDField - End Get - Set - Me.channelIDField = value - Me.RaisePropertyChanged("ChannelID") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class MonStopSamplingR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class MonStopSamplingRequest - - _ - Public MonStopSampling As OPENcontrol.MonStopSampling - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal MonStopSampling As OPENcontrol.MonStopSampling) - MyBase.New - Me.MonStopSampling = MonStopSampling - End Sub - End Class - - _ - Partial Public Class MonStopSamplingResponse - - _ - Public MonStopSamplingR As OPENcontrol.MonStopSamplingR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal MonStopSamplingR As OPENcontrol.MonStopSamplingR) - MyBase.New - Me.MonStopSamplingR = MonStopSamplingR - End Sub - End Class - - ''' - _ - Partial Public Class MonGetVariable - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private channelIDField As UInteger - - Private variableIDField As UShort - - Private maxSamplesField As UShort - - ''' - _ - Public Property ChannelID() As UInteger - Get - Return Me.channelIDField - End Get - Set - Me.channelIDField = value - Me.RaisePropertyChanged("ChannelID") - End Set - End Property - - ''' - _ - Public Property VariableID() As UShort - Get - Return Me.variableIDField - End Get - Set - Me.variableIDField = value - Me.RaisePropertyChanged("VariableID") - End Set - End Property - - ''' - _ - Public Property MaxSamples() As UShort - Get - Return Me.maxSamplesField - End Get - Set - Me.maxSamplesField = value - Me.RaisePropertyChanged("MaxSamples") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class MonGetVariableR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private numSampleReadField As UShort - - Private dataBufferField() As Double - - Private timeBufferField() As Long - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property NumSampleRead() As UShort - Get - Return Me.numSampleReadField - End Get - Set - Me.numSampleReadField = value - Me.RaisePropertyChanged("NumSampleRead") - End Set - End Property - - ''' - _ - Public Property DataBuffer() As Double() - Get - Return Me.dataBufferField - End Get - Set - Me.dataBufferField = value - Me.RaisePropertyChanged("DataBuffer") - End Set - End Property - - ''' - _ - Public Property TimeBuffer() As Long() - Get - Return Me.timeBufferField - End Get - Set - Me.timeBufferField = value - Me.RaisePropertyChanged("TimeBuffer") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class MonGetVariableRequest - - _ - Public MonGetVariable As OPENcontrol.MonGetVariable - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal MonGetVariable As OPENcontrol.MonGetVariable) - MyBase.New - Me.MonGetVariable = MonGetVariable - End Sub - End Class - - _ - Partial Public Class MonGetVariableResponse - - _ - Public MonGetVariableR As OPENcontrol.MonGetVariableR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal MonGetVariableR As OPENcontrol.MonGetVariableR) - MyBase.New - Me.MonGetVariableR = MonGetVariableR - End Sub - End Class - - ''' - _ - Partial Public Class CheckHistory - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class CheckHistoryR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private thisBootMsgCounterField() As UInteger - - Private allBootMsgCounterField() As UInteger - - Private thisBootIDField() As UInteger - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ThisBootMsgCounter() As UInteger() - Get - Return Me.thisBootMsgCounterField - End Get - Set - Me.thisBootMsgCounterField = value - Me.RaisePropertyChanged("ThisBootMsgCounter") - End Set - End Property - - ''' - _ - Public Property AllBootMsgCounter() As UInteger() - Get - Return Me.allBootMsgCounterField - End Get - Set - Me.allBootMsgCounterField = value - Me.RaisePropertyChanged("AllBootMsgCounter") - End Set - End Property - - ''' - _ - Public Property ThisBootID() As UInteger() - Get - Return Me.thisBootIDField - End Get - Set - Me.thisBootIDField = value - Me.RaisePropertyChanged("ThisBootID") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class CheckHistoryRequest - - _ - Public CheckHistory As OPENcontrol.CheckHistory - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal CheckHistory As OPENcontrol.CheckHistory) - MyBase.New - Me.CheckHistory = CheckHistory - End Sub - End Class - - _ - Partial Public Class CheckHistoryResponse - - _ - Public CheckHistoryR As OPENcontrol.CheckHistoryR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal CheckHistoryR As OPENcontrol.CheckHistoryR) - MyBase.New - Me.CheckHistoryR = CheckHistoryR - End Sub - End Class - - ''' - _ - Partial Public Class ReadHistoryEmergMsg - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private readModeField As Integer - - Private recNumField As UInteger - - ''' - _ - Public Property ReadMode() As Integer - Get - Return Me.readModeField - End Get - Set - Me.readModeField = value - Me.RaisePropertyChanged("ReadMode") - End Set - End Property - - ''' - _ - Public Property RecNum() As UInteger - Get - Return Me.recNumField - End Get - Set - Me.recNumField = value - Me.RaisePropertyChanged("RecNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class ReadHistoryEmergMsgR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private dataField As MSGEMERGENCY - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property Data() As MSGEMERGENCY - Get - Return Me.dataField - End Get - Set - Me.dataField = value - Me.RaisePropertyChanged("Data") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class ReadHistoryEmergMsgRequest - - _ - Public ReadHistoryEmergMsg As OPENcontrol.ReadHistoryEmergMsg - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ReadHistoryEmergMsg As OPENcontrol.ReadHistoryEmergMsg) - MyBase.New - Me.ReadHistoryEmergMsg = ReadHistoryEmergMsg - End Sub - End Class - - _ - Partial Public Class ReadHistoryEmergMsgResponse - - _ - Public ReadHistoryEmergMsgR As OPENcontrol.ReadHistoryEmergMsgR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ReadHistoryEmergMsgR As OPENcontrol.ReadHistoryEmergMsgR) - MyBase.New - Me.ReadHistoryEmergMsgR = ReadHistoryEmergMsgR - End Sub - End Class - - ''' - _ - Partial Public Class ReadHistoryErrorMsg - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private readModeField As Integer - - Private recNumField As UInteger - - ''' - _ - Public Property ReadMode() As Integer - Get - Return Me.readModeField - End Get - Set - Me.readModeField = value - Me.RaisePropertyChanged("ReadMode") - End Set - End Property - - ''' - _ - Public Property RecNum() As UInteger - Get - Return Me.recNumField - End Get - Set - Me.recNumField = value - Me.RaisePropertyChanged("RecNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class ReadHistoryErrorMsgR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private dataField As MSGERROR - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property Data() As MSGERROR - Get - Return Me.dataField - End Get - Set - Me.dataField = value - Me.RaisePropertyChanged("Data") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class ReadHistoryErrorMsgRequest - - _ - Public ReadHistoryErrorMsg As OPENcontrol.ReadHistoryErrorMsg - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ReadHistoryErrorMsg As OPENcontrol.ReadHistoryErrorMsg) - MyBase.New - Me.ReadHistoryErrorMsg = ReadHistoryErrorMsg - End Sub - End Class - - _ - Partial Public Class ReadHistoryErrorMsgResponse - - _ - Public ReadHistoryErrorMsgR As OPENcontrol.ReadHistoryErrorMsgR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ReadHistoryErrorMsgR As OPENcontrol.ReadHistoryErrorMsgR) - MyBase.New - Me.ReadHistoryErrorMsgR = ReadHistoryErrorMsgR - End Sub - End Class - - ''' - _ - Partial Public Class ReadHistoryLogMsg - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private noHistoryField As Integer - - Private readModeField As Integer - - Private recNumField As UInteger - - ''' - _ - Public Property NoHistory() As Integer - Get - Return Me.noHistoryField - End Get - Set - Me.noHistoryField = value - Me.RaisePropertyChanged("NoHistory") - End Set - End Property - - ''' - _ - Public Property ReadMode() As Integer - Get - Return Me.readModeField - End Get - Set - Me.readModeField = value - Me.RaisePropertyChanged("ReadMode") - End Set - End Property - - ''' - _ - Public Property RecNum() As UInteger - Get - Return Me.recNumField - End Get - Set - Me.recNumField = value - Me.RaisePropertyChanged("RecNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class ReadHistoryLogMsgR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private dataField As MSGLOGS - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property Data() As MSGLOGS - Get - Return Me.dataField - End Get - Set - Me.dataField = value - Me.RaisePropertyChanged("Data") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class ReadHistoryLogMsgRequest - - _ - Public ReadHistoryLogMsg As OPENcontrol.ReadHistoryLogMsg - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ReadHistoryLogMsg As OPENcontrol.ReadHistoryLogMsg) - MyBase.New - Me.ReadHistoryLogMsg = ReadHistoryLogMsg - End Sub - End Class - - _ - Partial Public Class ReadHistoryLogMsgResponse - - _ - Public ReadHistoryLogMsgR As OPENcontrol.ReadHistoryLogMsgR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ReadHistoryLogMsgR As OPENcontrol.ReadHistoryLogMsgR) - MyBase.New - Me.ReadHistoryLogMsgR = ReadHistoryLogMsgR - End Sub - End Class - - ''' - _ - Partial Public Class ReadHistoryAnomalyMsg - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private readModeField As Integer - - Private recNumField As UInteger - - ''' - _ - Public Property ReadMode() As Integer - Get - Return Me.readModeField - End Get - Set - Me.readModeField = value - Me.RaisePropertyChanged("ReadMode") - End Set - End Property - - ''' - _ - Public Property RecNum() As UInteger - Get - Return Me.recNumField - End Get - Set - Me.recNumField = value - Me.RaisePropertyChanged("RecNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class ReadHistoryAnomalyMsgR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private dataField As MSGANOMALY - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property Data() As MSGANOMALY - Get - Return Me.dataField - End Get - Set - Me.dataField = value - Me.RaisePropertyChanged("Data") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class ReadHistoryAnomalyMsgRequest - - _ - Public ReadHistoryAnomalyMsg As OPENcontrol.ReadHistoryAnomalyMsg - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ReadHistoryAnomalyMsg As OPENcontrol.ReadHistoryAnomalyMsg) - MyBase.New - Me.ReadHistoryAnomalyMsg = ReadHistoryAnomalyMsg - End Sub - End Class - - _ - Partial Public Class ReadHistoryAnomalyMsgResponse - - _ - Public ReadHistoryAnomalyMsgR As OPENcontrol.ReadHistoryAnomalyMsgR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ReadHistoryAnomalyMsgR As OPENcontrol.ReadHistoryAnomalyMsgR) - MyBase.New - Me.ReadHistoryAnomalyMsgR = ReadHistoryAnomalyMsgR - End Sub - End Class - - ''' - _ - Partial Public Class ReadCurrentErrorMsg - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private processField As UShort - - ''' - _ - Public Property Process() As UShort - Get - Return Me.processField - End Get - Set - Me.processField = value - Me.RaisePropertyChanged("Process") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class ReadCurrentErrorMsgR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private dataField As MSGERROR - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property Data() As MSGERROR - Get - Return Me.dataField - End Get - Set - Me.dataField = value - Me.RaisePropertyChanged("Data") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class ReadCurrentErrorMsgRequest - - _ - Public ReadCurrentErrorMsg As OPENcontrol.ReadCurrentErrorMsg - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ReadCurrentErrorMsg As OPENcontrol.ReadCurrentErrorMsg) - MyBase.New - Me.ReadCurrentErrorMsg = ReadCurrentErrorMsg - End Sub - End Class - - _ - Partial Public Class ReadCurrentErrorMsgResponse - - _ - Public ReadCurrentErrorMsgR As OPENcontrol.ReadCurrentErrorMsgR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ReadCurrentErrorMsgR As OPENcontrol.ReadCurrentErrorMsgR) - MyBase.New - Me.ReadCurrentErrorMsgR = ReadCurrentErrorMsgR - End Sub - End Class - - ''' - _ - Partial Public Class ReadCurrentEmergMsg - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private processField As UShort - - ''' - _ - Public Property Process() As UShort - Get - Return Me.processField - End Get - Set - Me.processField = value - Me.RaisePropertyChanged("Process") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class ReadCurrentEmergMsgR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private dataField As MSGEMERGENCY - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property Data() As MSGEMERGENCY - Get - Return Me.dataField - End Get - Set - Me.dataField = value - Me.RaisePropertyChanged("Data") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class ReadCurrentEmergMsgRequest - - _ - Public ReadCurrentEmergMsg As OPENcontrol.ReadCurrentEmergMsg - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ReadCurrentEmergMsg As OPENcontrol.ReadCurrentEmergMsg) - MyBase.New - Me.ReadCurrentEmergMsg = ReadCurrentEmergMsg - End Sub - End Class - - _ - Partial Public Class ReadCurrentEmergMsgResponse - - _ - Public ReadCurrentEmergMsgR As OPENcontrol.ReadCurrentEmergMsgR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ReadCurrentEmergMsgR As OPENcontrol.ReadCurrentEmergMsgR) - MyBase.New - Me.ReadCurrentEmergMsgR = ReadCurrentEmergMsgR - End Sub - End Class - - ''' - _ - Partial Public Class ReadCurrentAnomalyMsg - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class ReadCurrentAnomalyMsgR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private dataField As MSGANOMALY - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property Data() As MSGANOMALY - Get - Return Me.dataField - End Get - Set - Me.dataField = value - Me.RaisePropertyChanged("Data") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class ReadCurrentAnomalyMsgRequest - - _ - Public ReadCurrentAnomalyMsg As OPENcontrol.ReadCurrentAnomalyMsg - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ReadCurrentAnomalyMsg As OPENcontrol.ReadCurrentAnomalyMsg) - MyBase.New - Me.ReadCurrentAnomalyMsg = ReadCurrentAnomalyMsg - End Sub - End Class - - _ - Partial Public Class ReadCurrentAnomalyMsgResponse - - _ - Public ReadCurrentAnomalyMsgR As OPENcontrol.ReadCurrentAnomalyMsgR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ReadCurrentAnomalyMsgR As OPENcontrol.ReadCurrentAnomalyMsgR) - MyBase.New - Me.ReadCurrentAnomalyMsgR = ReadCurrentAnomalyMsgR - End Sub - End Class - - ''' - _ - Partial Public Class GetPTechSizes - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private processField As UShort - - ''' - _ - Public Property Process() As UShort - Get - Return Me.processField - End Get - Set - Me.processField = value - Me.RaisePropertyChanged("Process") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetPTechSizesR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private ind1Field As UShort - - Private ind2Field As UShort - - Private ind3Field As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property Ind1() As UShort - Get - Return Me.ind1Field - End Get - Set - Me.ind1Field = value - Me.RaisePropertyChanged("Ind1") - End Set - End Property - - ''' - _ - Public Property Ind2() As UShort - Get - Return Me.ind2Field - End Get - Set - Me.ind2Field = value - Me.RaisePropertyChanged("Ind2") - End Set - End Property - - ''' - _ - Public Property Ind3() As UShort - Get - Return Me.ind3Field - End Get - Set - Me.ind3Field = value - Me.RaisePropertyChanged("Ind3") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetPTechSizesRequest - - _ - Public GetPTechSizes As OPENcontrol.GetPTechSizes - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetPTechSizes As OPENcontrol.GetPTechSizes) - MyBase.New - Me.GetPTechSizes = GetPTechSizes - End Sub - End Class - - _ - Partial Public Class GetPTechSizesResponse - - _ - Public GetPTechSizesR As OPENcontrol.GetPTechSizesR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetPTechSizesR As OPENcontrol.GetPTechSizesR) - MyBase.New - Me.GetPTechSizesR = GetPTechSizesR - End Sub - End Class - - ''' - _ - Partial Public Class LoadPTech - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private processField As UShort - - Private pPPathNameField As String - - Private writeModeField As UShort - - Private sheetField As UShort - - Private lineField As UShort - - Private columnField As UShort - - Private numVarField As UShort - - Private dataField() As Double - - ''' - _ - Public Property Process() As UShort - Get - Return Me.processField - End Get - Set - Me.processField = value - Me.RaisePropertyChanged("Process") - End Set - End Property - - ''' - _ - Public Property PPPathName() As String - Get - Return Me.pPPathNameField - End Get - Set - Me.pPPathNameField = value - Me.RaisePropertyChanged("PPPathName") - End Set - End Property - - ''' - _ - Public Property WriteMode() As UShort - Get - Return Me.writeModeField - End Get - Set - Me.writeModeField = value - Me.RaisePropertyChanged("WriteMode") - End Set - End Property - - ''' - _ - Public Property Sheet() As UShort - Get - Return Me.sheetField - End Get - Set - Me.sheetField = value - Me.RaisePropertyChanged("Sheet") - End Set - End Property - - ''' - _ - Public Property Line() As UShort - Get - Return Me.lineField - End Get - Set - Me.lineField = value - Me.RaisePropertyChanged("Line") - End Set - End Property - - ''' - _ - Public Property Column() As UShort - Get - Return Me.columnField - End Get - Set - Me.columnField = value - Me.RaisePropertyChanged("Column") - End Set - End Property - - ''' - _ - Public Property NumVar() As UShort - Get - Return Me.numVarField - End Get - Set - Me.numVarField = value - Me.RaisePropertyChanged("NumVar") - End Set - End Property - - ''' - _ - Public Property Data() As Double() - Get - Return Me.dataField - End Get - Set - Me.dataField = value - Me.RaisePropertyChanged("Data") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LoadPTechR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LoadPTechRequest - - _ - Public LoadPTech As OPENcontrol.LoadPTech - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LoadPTech As OPENcontrol.LoadPTech) - MyBase.New - Me.LoadPTech = LoadPTech - End Sub - End Class - - _ - Partial Public Class LoadPTechResponse - - _ - Public LoadPTechR As OPENcontrol.LoadPTechR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LoadPTechR As OPENcontrol.LoadPTechR) - MyBase.New - Me.LoadPTechR = LoadPTechR - End Sub - End Class - - ''' - _ - Partial Public Class GetMarkerInfo - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private processField As UShort - - Private requestField As Byte - - ''' - _ - Public Property Process() As UShort - Get - Return Me.processField - End Get - Set - Me.processField = value - Me.RaisePropertyChanged("Process") - End Set - End Property - - ''' - _ - Public Property Request() As Byte - Get - Return Me.requestField - End Get - Set - Me.requestField = value - Me.RaisePropertyChanged("Request") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetMarkerInfoR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private markerInfoField As MARKERINFO - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property MarkerInfo() As MARKERINFO - Get - Return Me.markerInfoField - End Get - Set - Me.markerInfoField = value - Me.RaisePropertyChanged("MarkerInfo") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetMarkerInfoRequest - - _ - Public GetMarkerInfo As OPENcontrol.GetMarkerInfo - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetMarkerInfo As OPENcontrol.GetMarkerInfo) - MyBase.New - Me.GetMarkerInfo = GetMarkerInfo - End Sub - End Class - - _ - Partial Public Class GetMarkerInfoResponse - - _ - Public GetMarkerInfoR As OPENcontrol.GetMarkerInfoR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetMarkerInfoR As OPENcontrol.GetMarkerInfoR) - MyBase.New - Me.GetMarkerInfoR = GetMarkerInfoR - End Sub - End Class - - ''' - _ - Partial Public Class ManagePartProgram - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private processField As UShort - - Private modeField As UShort - - Private pPPathField As String - - ''' - _ - Public Property Process() As UShort - Get - Return Me.processField - End Get - Set - Me.processField = value - Me.RaisePropertyChanged("Process") - End Set - End Property - - ''' - _ - Public Property Mode() As UShort - Get - Return Me.modeField - End Get - Set - Me.modeField = value - Me.RaisePropertyChanged("Mode") - End Set - End Property - - ''' - _ - Public Property PPPath() As String - Get - Return Me.pPPathField - End Get - Set - Me.pPPathField = value - Me.RaisePropertyChanged("PPPath") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class ManagePartProgramR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errStringField() As Byte - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrString() As Byte() - Get - Return Me.errStringField - End Get - Set - Me.errStringField = value - Me.RaisePropertyChanged("ErrString") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class ManagePartProgramRequest - - _ - Public ManagePartProgram As OPENcontrol.ManagePartProgram - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ManagePartProgram As OPENcontrol.ManagePartProgram) - MyBase.New - Me.ManagePartProgram = ManagePartProgram - End Sub - End Class - - _ - Partial Public Class ManagePartProgramResponse - - _ - Public ManagePartProgramR As OPENcontrol.ManagePartProgramR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ManagePartProgramR As OPENcontrol.ManagePartProgramR) - MyBase.New - Me.ManagePartProgramR = ManagePartProgramR - End Sub - End Class - - ''' - _ - Partial Public Class LogFSOpenFile - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private pathNameField As String - - Private writeModeField As Boolean - - Private dOSDateLastWriteField As UShort - - Private dOSTimeLastWriteField As UShort - - ''' - _ - Public Property PathName() As String - Get - Return Me.pathNameField - End Get - Set - Me.pathNameField = value - Me.RaisePropertyChanged("PathName") - End Set - End Property - - ''' - _ - Public Property WriteMode() As Boolean - Get - Return Me.writeModeField - End Get - Set - Me.writeModeField = value - Me.RaisePropertyChanged("WriteMode") - End Set - End Property - - ''' - _ - Public Property DOSDateLastWrite() As UShort - Get - Return Me.dOSDateLastWriteField - End Get - Set - Me.dOSDateLastWriteField = value - Me.RaisePropertyChanged("DOSDateLastWrite") - End Set - End Property - - ''' - _ - Public Property DOSTimeLastWrite() As UShort - Get - Return Me.dOSTimeLastWriteField - End Get - Set - Me.dOSTimeLastWriteField = value - Me.RaisePropertyChanged("DOSTimeLastWrite") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LogFSOpenFileR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private fileIDField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property FileID() As UShort - Get - Return Me.fileIDField - End Get - Set - Me.fileIDField = value - Me.RaisePropertyChanged("FileID") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LogFSOpenFileRequest - - _ - Public LogFSOpenFile As OPENcontrol.LogFSOpenFile - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSOpenFile As OPENcontrol.LogFSOpenFile) - MyBase.New - Me.LogFSOpenFile = LogFSOpenFile - End Sub - End Class - - _ - Partial Public Class LogFSOpenFileResponse - - _ - Public LogFSOpenFileR As OPENcontrol.LogFSOpenFileR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSOpenFileR As OPENcontrol.LogFSOpenFileR) - MyBase.New - Me.LogFSOpenFileR = LogFSOpenFileR - End Sub - End Class - - ''' - _ - Partial Public Class LogFSCloseFile - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private fileIDField As UShort - - Private transactionField As UShort - - ''' - _ - Public Property FileID() As UShort - Get - Return Me.fileIDField - End Get - Set - Me.fileIDField = value - Me.RaisePropertyChanged("FileID") - End Set - End Property - - ''' - _ - Public Property Transaction() As UShort - Get - Return Me.transactionField - End Get - Set - Me.transactionField = value - Me.RaisePropertyChanged("Transaction") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LogFSCloseFileR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private fileIDField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property FileID() As UShort - Get - Return Me.fileIDField - End Get - Set - Me.fileIDField = value - Me.RaisePropertyChanged("FileID") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LogFSCloseFileRequest - - _ - Public LogFSCloseFile As OPENcontrol.LogFSCloseFile - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSCloseFile As OPENcontrol.LogFSCloseFile) - MyBase.New - Me.LogFSCloseFile = LogFSCloseFile - End Sub - End Class - - _ - Partial Public Class LogFSCloseFileResponse - - _ - Public LogFSCloseFileR As OPENcontrol.LogFSCloseFileR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSCloseFileR As OPENcontrol.LogFSCloseFileR) - MyBase.New - Me.LogFSCloseFileR = LogFSCloseFileR - End Sub - End Class - - ''' - _ - Partial Public Class LogFSWriteRecord - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private fileIDField As UShort - - Private transactionField As UShort - - Private recordLenField As UInteger - - Private recordField() As Byte - - ''' - _ - Public Property FileID() As UShort - Get - Return Me.fileIDField - End Get - Set - Me.fileIDField = value - Me.RaisePropertyChanged("FileID") - End Set - End Property - - ''' - _ - Public Property Transaction() As UShort - Get - Return Me.transactionField - End Get - Set - Me.transactionField = value - Me.RaisePropertyChanged("Transaction") - End Set - End Property - - ''' - _ - Public Property RecordLen() As UInteger - Get - Return Me.recordLenField - End Get - Set - Me.recordLenField = value - Me.RaisePropertyChanged("RecordLen") - End Set - End Property - - ''' - _ - Public Property Record() As Byte() - Get - Return Me.recordField - End Get - Set - Me.recordField = value - Me.RaisePropertyChanged("Record") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LogFSWriteRecordR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LogFSWriteRecordRequest - - _ - Public LogFSWriteRecord As OPENcontrol.LogFSWriteRecord - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSWriteRecord As OPENcontrol.LogFSWriteRecord) - MyBase.New - Me.LogFSWriteRecord = LogFSWriteRecord - End Sub - End Class - - _ - Partial Public Class LogFSWriteRecordResponse - - _ - Public LogFSWriteRecordR As OPENcontrol.LogFSWriteRecordR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSWriteRecordR As OPENcontrol.LogFSWriteRecordR) - MyBase.New - Me.LogFSWriteRecordR = LogFSWriteRecordR - End Sub - End Class - - ''' - _ - Partial Public Class LogFSReadRecord - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private fileIDField As UShort - - Private transactionField As UShort - - Private recordLenField As UInteger - - ''' - _ - Public Property FileID() As UShort - Get - Return Me.fileIDField - End Get - Set - Me.fileIDField = value - Me.RaisePropertyChanged("FileID") - End Set - End Property - - ''' - _ - Public Property Transaction() As UShort - Get - Return Me.transactionField - End Get - Set - Me.transactionField = value - Me.RaisePropertyChanged("Transaction") - End Set - End Property - - ''' - _ - Public Property RecordLen() As UInteger - Get - Return Me.recordLenField - End Get - Set - Me.recordLenField = value - Me.RaisePropertyChanged("RecordLen") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class LogFSReadRecordR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private dataSizeField As UInteger - - Private recordField() As Byte - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property DataSize() As UInteger - Get - Return Me.dataSizeField - End Get - Set - Me.dataSizeField = value - Me.RaisePropertyChanged("DataSize") - End Set - End Property - - ''' - _ - Public Property Record() As Byte() - Get - Return Me.recordField - End Get - Set - Me.recordField = value - Me.RaisePropertyChanged("Record") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class LogFSReadRecordRequest - - _ - Public LogFSReadRecord As OPENcontrol.LogFSReadRecord - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSReadRecord As OPENcontrol.LogFSReadRecord) - MyBase.New - Me.LogFSReadRecord = LogFSReadRecord - End Sub - End Class - - _ - Partial Public Class LogFSReadRecordResponse - - _ - Public LogFSReadRecordR As OPENcontrol.LogFSReadRecordR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal LogFSReadRecordR As OPENcontrol.LogFSReadRecordR) - MyBase.New - Me.LogFSReadRecordR = LogFSReadRecordR - End Sub - End Class - - ''' - _ - Partial Public Class ReadRemapDefinitions - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private arraySizeField As Integer - - Private typeField As Integer - - ''' - _ - Public Property ArraySize() As Integer - Get - Return Me.arraySizeField - End Get - Set - Me.arraySizeField = value - Me.RaisePropertyChanged("ArraySize") - End Set - End Property - - ''' - _ - Public Property Type() As Integer - Get - Return Me.typeField - End Get - Set - Me.typeField = value - Me.RaisePropertyChanged("Type") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class ReadRemapDefinitionsR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private arrayField() As REMAPDEF - - Private definitionsCntField As Integer - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property Array() As REMAPDEF() - Get - Return Me.arrayField - End Get - Set - Me.arrayField = value - Me.RaisePropertyChanged("Array") - End Set - End Property - - ''' - _ - Public Property DefinitionsCnt() As Integer - Get - Return Me.definitionsCntField - End Get - Set - Me.definitionsCntField = value - Me.RaisePropertyChanged("DefinitionsCnt") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class ReadRemapDefinitionsRequest - - _ - Public ReadRemapDefinitions As OPENcontrol.ReadRemapDefinitions - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ReadRemapDefinitions As OPENcontrol.ReadRemapDefinitions) - MyBase.New - Me.ReadRemapDefinitions = ReadRemapDefinitions - End Sub - End Class - - _ - Partial Public Class ReadRemapDefinitionsResponse - - _ - Public ReadRemapDefinitionsR As OPENcontrol.ReadRemapDefinitionsR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal ReadRemapDefinitionsR As OPENcontrol.ReadRemapDefinitionsR) - MyBase.New - Me.ReadRemapDefinitionsR = ReadRemapDefinitionsR - End Sub - End Class - - ''' - _ - Partial Public Class WriteRemapDefinitions - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private arraySizeField As Integer - - Private arrayField() As REMAPDEF - - Private typeField As Integer - - Private modeField As Integer - - ''' - _ - Public Property ArraySize() As Integer - Get - Return Me.arraySizeField - End Get - Set - Me.arraySizeField = value - Me.RaisePropertyChanged("ArraySize") - End Set - End Property - - ''' - _ - Public Property Array() As REMAPDEF() - Get - Return Me.arrayField - End Get - Set - Me.arrayField = value - Me.RaisePropertyChanged("Array") - End Set - End Property - - ''' - _ - Public Property Type() As Integer - Get - Return Me.typeField - End Get - Set - Me.typeField = value - Me.RaisePropertyChanged("Type") - End Set - End Property - - ''' - _ - Public Property Mode() As Integer - Get - Return Me.modeField - End Get - Set - Me.modeField = value - Me.RaisePropertyChanged("Mode") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class WriteRemapDefinitionsR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class WriteRemapDefinitionsRequest - - _ - Public WriteRemapDefinitions As OPENcontrol.WriteRemapDefinitions - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal WriteRemapDefinitions As OPENcontrol.WriteRemapDefinitions) - MyBase.New - Me.WriteRemapDefinitions = WriteRemapDefinitions - End Sub - End Class - - _ - Partial Public Class WriteRemapDefinitionsResponse - - _ - Public WriteRemapDefinitionsR As OPENcontrol.WriteRemapDefinitionsR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal WriteRemapDefinitionsR As OPENcontrol.WriteRemapDefinitionsR) - MyBase.New - Me.WriteRemapDefinitionsR = WriteRemapDefinitionsR - End Sub - End Class - - ''' - _ - Partial Public Class GetServoPar - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private axisIdField As UShort - - Private parIdField As UShort - - ''' - _ - Public Property AxisId() As UShort - Get - Return Me.axisIdField - End Get - Set - Me.axisIdField = value - Me.RaisePropertyChanged("AxisId") - End Set - End Property - - ''' - _ - Public Property ParId() As UShort - Get - Return Me.parIdField - End Get - Set - Me.parIdField = value - Me.RaisePropertyChanged("ParId") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetServoParR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private valueField As Double - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property Value() As Double - Get - Return Me.valueField - End Get - Set - Me.valueField = value - Me.RaisePropertyChanged("Value") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetServoParRequest - - _ - Public GetServoPar As OPENcontrol.GetServoPar - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetServoPar As OPENcontrol.GetServoPar) - MyBase.New - Me.GetServoPar = GetServoPar - End Sub - End Class - - _ - Partial Public Class GetServoParResponse - - _ - Public GetServoParR As OPENcontrol.GetServoParR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetServoParR As OPENcontrol.GetServoParR) - MyBase.New - Me.GetServoParR = GetServoParR - End Sub - End Class - - ''' - _ - Partial Public Class SetServoPar - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private axisIdField As UShort - - Private parIdField As UShort - - Private valueField As Double - - ''' - _ - Public Property AxisId() As UShort - Get - Return Me.axisIdField - End Get - Set - Me.axisIdField = value - Me.RaisePropertyChanged("AxisId") - End Set - End Property - - ''' - _ - Public Property ParId() As UShort - Get - Return Me.parIdField - End Get - Set - Me.parIdField = value - Me.RaisePropertyChanged("ParId") - End Set - End Property - - ''' - _ - Public Property Value() As Double - Get - Return Me.valueField - End Get - Set - Me.valueField = value - Me.RaisePropertyChanged("Value") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SetServoParR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SetServoParRequest - - _ - Public SetServoPar As OPENcontrol.SetServoPar - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetServoPar As OPENcontrol.SetServoPar) - MyBase.New - Me.SetServoPar = SetServoPar - End Sub - End Class - - _ - Partial Public Class SetServoParResponse - - _ - Public SetServoParR As OPENcontrol.SetServoParR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetServoParR As OPENcontrol.SetServoParR) - MyBase.New - Me.SetServoParR = SetServoParR - End Sub - End Class - - ''' - _ - Partial Public Class GetCNCRegKey - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private keyField As String - - Private subKeyField As String - - Private valueLenField As Integer - - ''' - _ - Public Property Key() As String - Get - Return Me.keyField - End Get - Set - Me.keyField = value - Me.RaisePropertyChanged("Key") - End Set - End Property - - ''' - _ - Public Property SubKey() As String - Get - Return Me.subKeyField - End Get - Set - Me.subKeyField = value - Me.RaisePropertyChanged("SubKey") - End Set - End Property - - ''' - _ - Public Property ValueLen() As Integer - Get - Return Me.valueLenField - End Get - Set - Me.valueLenField = value - Me.RaisePropertyChanged("ValueLen") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetCNCRegKeyR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private valueLenField As Integer - - Private valueField() As Byte - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ValueLen() As Integer - Get - Return Me.valueLenField - End Get - Set - Me.valueLenField = value - Me.RaisePropertyChanged("ValueLen") - End Set - End Property - - ''' - _ - Public Property Value() As Byte() - Get - Return Me.valueField - End Get - Set - Me.valueField = value - Me.RaisePropertyChanged("Value") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetCNCRegKeyRequest - - _ - Public GetCNCRegKey As OPENcontrol.GetCNCRegKey - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetCNCRegKey As OPENcontrol.GetCNCRegKey) - MyBase.New - Me.GetCNCRegKey = GetCNCRegKey - End Sub - End Class - - _ - Partial Public Class GetCNCRegKeyResponse - - _ - Public GetCNCRegKeyR As OPENcontrol.GetCNCRegKeyR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetCNCRegKeyR As OPENcontrol.GetCNCRegKeyR) - MyBase.New - Me.GetCNCRegKeyR = GetCNCRegKeyR - End Sub - End Class - - ''' - _ - Partial Public Class SetIpAddress - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private ipAddressField As String - - Private subNetMaskField As String - - Private defaultGatewayField As String - - Private dnsField As String - - Private winsField As String - - Private netField As String - - ''' - _ - Public Property IpAddress() As String - Get - Return Me.ipAddressField - End Get - Set - Me.ipAddressField = value - Me.RaisePropertyChanged("IpAddress") - End Set - End Property - - ''' - _ - Public Property SubNetMask() As String - Get - Return Me.subNetMaskField - End Get - Set - Me.subNetMaskField = value - Me.RaisePropertyChanged("SubNetMask") - End Set - End Property - - ''' - _ - Public Property DefaultGateway() As String - Get - Return Me.defaultGatewayField - End Get - Set - Me.defaultGatewayField = value - Me.RaisePropertyChanged("DefaultGateway") - End Set - End Property - - ''' - _ - Public Property Dns() As String - Get - Return Me.dnsField - End Get - Set - Me.dnsField = value - Me.RaisePropertyChanged("Dns") - End Set - End Property - - ''' - _ - Public Property Wins() As String - Get - Return Me.winsField - End Get - Set - Me.winsField = value - Me.RaisePropertyChanged("Wins") - End Set - End Property - - ''' - _ - Public Property Net() As String - Get - Return Me.netField - End Get - Set - Me.netField = value - Me.RaisePropertyChanged("Net") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SetIpAddressR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SetIpAddressRequest - - _ - Public SetIpAddress As OPENcontrol.SetIpAddress - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetIpAddress As OPENcontrol.SetIpAddress) - MyBase.New - Me.SetIpAddress = SetIpAddress - End Sub - End Class - - _ - Partial Public Class SetIpAddressResponse - - _ - Public SetIpAddressR As OPENcontrol.SetIpAddressR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SetIpAddressR As OPENcontrol.SetIpAddressR) - MyBase.New - Me.SetIpAddressR = SetIpAddressR - End Sub - End Class - - ''' - _ - Partial Public Class GetProcInInput - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private processField As UShort - - ''' - _ - Public Property Process() As UShort - Get - Return Me.processField - End Get - Set - Me.processField = value - Me.RaisePropertyChanged("Process") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class GetProcInInputR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private procInfoField As INPUTINFO - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ProcInfo() As INPUTINFO - Get - Return Me.procInfoField - End Get - Set - Me.procInfoField = value - Me.RaisePropertyChanged("ProcInfo") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class GetProcInInputRequest - - _ - Public GetProcInInput As OPENcontrol.GetProcInInput - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetProcInInput As OPENcontrol.GetProcInInput) - MyBase.New - Me.GetProcInInput = GetProcInInput - End Sub - End Class - - _ - Partial Public Class GetProcInInputResponse - - _ - Public GetProcInInputR As OPENcontrol.GetProcInInputR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal GetProcInInputR As OPENcontrol.GetProcInInputR) - MyBase.New - Me.GetProcInInputR = GetProcInInputR - End Sub - End Class - - ''' - _ - Partial Public Class SndProcInpData - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private processField As UShort - - Private keyPressedField As UShort - - Private numDataField As UShort - - Private arDataField() As Byte - - Private arSizeField As UShort - - ''' - _ - Public Property Process() As UShort - Get - Return Me.processField - End Get - Set - Me.processField = value - Me.RaisePropertyChanged("Process") - End Set - End Property - - ''' - _ - Public Property keyPressed() As UShort - Get - Return Me.keyPressedField - End Get - Set - Me.keyPressedField = value - Me.RaisePropertyChanged("keyPressed") - End Set - End Property - - ''' - _ - Public Property numData() As UShort - Get - Return Me.numDataField - End Get - Set - Me.numDataField = value - Me.RaisePropertyChanged("numData") - End Set - End Property - - ''' - _ - Public Property arData() As Byte() - Get - Return Me.arDataField - End Get - Set - Me.arDataField = value - Me.RaisePropertyChanged("arData") - End Set - End Property - - ''' - _ - Public Property arSize() As UShort - Get - Return Me.arSizeField - End Get - Set - Me.arSizeField = value - Me.RaisePropertyChanged("arSize") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - ''' - _ - Partial Public Class SndProcInpDataR - Inherits Object - Implements System.ComponentModel.INotifyPropertyChanged - - Private retvalField As UShort - - Private errClassField As UInteger - - Private errNumField As UInteger - - ''' - _ - Public Property retval() As UShort - Get - Return Me.retvalField - End Get - Set - Me.retvalField = value - Me.RaisePropertyChanged("retval") - End Set - End Property - - ''' - _ - Public Property ErrClass() As UInteger - Get - Return Me.errClassField - End Get - Set - Me.errClassField = value - Me.RaisePropertyChanged("ErrClass") - End Set - End Property - - ''' - _ - Public Property ErrNum() As UInteger - Get - Return Me.errNumField - End Get - Set - Me.errNumField = value - Me.RaisePropertyChanged("ErrNum") - End Set - End Property - - Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged - - Protected Sub RaisePropertyChanged(ByVal propertyName As String) - Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent - If (Not (propertyChanged) Is Nothing) Then - propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) - End If - End Sub - End Class - - _ - Partial Public Class SndProcInpDataRequest - - _ - Public SndProcInpData As OPENcontrol.SndProcInpData - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SndProcInpData As OPENcontrol.SndProcInpData) - MyBase.New - Me.SndProcInpData = SndProcInpData - End Sub - End Class - - _ - Partial Public Class SndProcInpDataResponse - - _ - Public SndProcInpDataR As OPENcontrol.SndProcInpDataR - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal SndProcInpDataR As OPENcontrol.SndProcInpDataR) - MyBase.New - Me.SndProcInpDataR = SndProcInpDataR - End Sub - End Class - - _ - Public Interface OPENcontrolPortTypeChannel - Inherits OPENcontrol.OPENcontrolPortType, System.ServiceModel.IClientChannel - End Interface - - _ - Partial Public Class OPENcontrolPortTypeClient - Inherits System.ServiceModel.ClientBase(Of OPENcontrol.OPENcontrolPortType) - Implements OPENcontrol.OPENcontrolPortType - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal endpointConfigurationName As String) - MyBase.New(endpointConfigurationName) - End Sub - - Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As String) - MyBase.New(endpointConfigurationName, remoteAddress) - End Sub - - Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As System.ServiceModel.EndpointAddress) - MyBase.New(endpointConfigurationName, remoteAddress) - End Sub - - Public Sub New(ByVal binding As System.ServiceModel.Channels.Binding, ByVal remoteAddress As System.ServiceModel.EndpointAddress) - MyBase.New(binding, remoteAddress) - End Sub - - _ - Function OPENcontrol_OPENcontrolPortType_BootPhaseEnquiry(ByVal request As OPENcontrol.BootPhaseEnquiryRequest) As OPENcontrol.BootPhaseEnquiryResponse Implements OPENcontrol.OPENcontrolPortType.BootPhaseEnquiry - Return MyBase.Channel.BootPhaseEnquiry(request) - End Function - - Public Function BootPhaseEnquiry(ByVal BootPhaseEnquiry1 As OPENcontrol.BootPhaseEnquiry) As OPENcontrol.BootPhaseEnquiryR - Dim inValue As OPENcontrol.BootPhaseEnquiryRequest = New OPENcontrol.BootPhaseEnquiryRequest() - inValue.BootPhaseEnquiry = BootPhaseEnquiry1 - Dim retVal As OPENcontrol.BootPhaseEnquiryResponse = CType(Me,OPENcontrol.OPENcontrolPortType).BootPhaseEnquiry(inValue) - Return retVal.BootPhaseEnquiryR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_BootReboot(ByVal request As OPENcontrol.BootRebootRequest) As OPENcontrol.BootRebootResponse Implements OPENcontrol.OPENcontrolPortType.BootReboot - Return MyBase.Channel.BootReboot(request) - End Function - - Public Function BootReboot(ByVal BootReboot1 As OPENcontrol.BootReboot) As OPENcontrol.BootRebootR - Dim inValue As OPENcontrol.BootRebootRequest = New OPENcontrol.BootRebootRequest() - inValue.BootReboot = BootReboot1 - Dim retVal As OPENcontrol.BootRebootResponse = CType(Me,OPENcontrol.OPENcontrolPortType).BootReboot(inValue) - Return retVal.BootRebootR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_BootShutDown(ByVal request As OPENcontrol.BootShutDownRequest) As OPENcontrol.BootShutDownResponse Implements OPENcontrol.OPENcontrolPortType.BootShutDown - Return MyBase.Channel.BootShutDown(request) - End Function - - Public Function BootShutDown(ByVal BootShutDown1 As OPENcontrol.BootShutDown) As OPENcontrol.BootShutDownR - Dim inValue As OPENcontrol.BootShutDownRequest = New OPENcontrol.BootShutDownRequest() - inValue.BootShutDown = BootShutDown1 - Dim retVal As OPENcontrol.BootShutDownResponse = CType(Me,OPENcontrol.OPENcontrolPortType).BootShutDown(inValue) - Return retVal.BootShutDownR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_BootMode(ByVal request As OPENcontrol.BootModeRequest) As OPENcontrol.BootModeResponse Implements OPENcontrol.OPENcontrolPortType.BootMode - Return MyBase.Channel.BootMode(request) - End Function - - Public Function BootMode(ByVal BootMode1 As OPENcontrol.BootMode) As OPENcontrol.BootModeR - Dim inValue As OPENcontrol.BootModeRequest = New OPENcontrol.BootModeRequest() - inValue.BootMode = BootMode1 - Dim retVal As OPENcontrol.BootModeResponse = CType(Me,OPENcontrol.OPENcontrolPortType).BootMode(inValue) - Return retVal.BootModeR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetHWKey(ByVal request As OPENcontrol.GetHWKeyRequest) As OPENcontrol.GetHWKeyResponse Implements OPENcontrol.OPENcontrolPortType.GetHWKey - Return MyBase.Channel.GetHWKey(request) - End Function - - Public Function GetHWKey(ByVal GetHWKey1 As OPENcontrol.GetHWKey) As OPENcontrol.GetHWKeyR - Dim inValue As OPENcontrol.GetHWKeyRequest = New OPENcontrol.GetHWKeyRequest() - inValue.GetHWKey = GetHWKey1 - Dim retVal As OPENcontrol.GetHWKeyResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetHWKey(inValue) - Return retVal.GetHWKeyR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_ReadVarWord(ByVal request As OPENcontrol.ReadVarWordRequest) As OPENcontrol.ReadVarWordResponse Implements OPENcontrol.OPENcontrolPortType.ReadVarWord - Return MyBase.Channel.ReadVarWord(request) - End Function - - Public Function ReadVarWord(ByVal ReadVarWord1 As OPENcontrol.ReadVarWord) As OPENcontrol.ReadVarWordR - Dim inValue As OPENcontrol.ReadVarWordRequest = New OPENcontrol.ReadVarWordRequest() - inValue.ReadVarWord = ReadVarWord1 - Dim retVal As OPENcontrol.ReadVarWordResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadVarWord(inValue) - Return retVal.ReadVarWordR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_ReadVarDouble(ByVal request As OPENcontrol.ReadVarDoubleRequest) As OPENcontrol.ReadVarDoubleResponse Implements OPENcontrol.OPENcontrolPortType.ReadVarDouble - Return MyBase.Channel.ReadVarDouble(request) - End Function - - Public Function ReadVarDouble(ByVal ReadVarDouble1 As OPENcontrol.ReadVarDouble) As OPENcontrol.ReadVarDoubleR - Dim inValue As OPENcontrol.ReadVarDoubleRequest = New OPENcontrol.ReadVarDoubleRequest() - inValue.ReadVarDouble = ReadVarDouble1 - Dim retVal As OPENcontrol.ReadVarDoubleResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadVarDouble(inValue) - Return retVal.ReadVarDoubleR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_WriteVarWord(ByVal request As OPENcontrol.WriteVarWordRequest) As OPENcontrol.WriteVarWordResponse Implements OPENcontrol.OPENcontrolPortType.WriteVarWord - Return MyBase.Channel.WriteVarWord(request) - End Function - - Public Function WriteVarWord(ByVal WriteVarWord1 As OPENcontrol.WriteVarWord) As OPENcontrol.WriteVarWordR - Dim inValue As OPENcontrol.WriteVarWordRequest = New OPENcontrol.WriteVarWordRequest() - inValue.WriteVarWord = WriteVarWord1 - Dim retVal As OPENcontrol.WriteVarWordResponse = CType(Me,OPENcontrol.OPENcontrolPortType).WriteVarWord(inValue) - Return retVal.WriteVarWordR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_WriteVarWordBit(ByVal request As OPENcontrol.WriteVarWordBitRequest) As OPENcontrol.WriteVarWordBitResponse Implements OPENcontrol.OPENcontrolPortType.WriteVarWordBit - Return MyBase.Channel.WriteVarWordBit(request) - End Function - - Public Function WriteVarWordBit(ByVal WriteVarWordBit1 As OPENcontrol.WriteVarWordBit) As OPENcontrol.WriteVarWordBitR - Dim inValue As OPENcontrol.WriteVarWordBitRequest = New OPENcontrol.WriteVarWordBitRequest() - inValue.WriteVarWordBit = WriteVarWordBit1 - Dim retVal As OPENcontrol.WriteVarWordBitResponse = CType(Me,OPENcontrol.OPENcontrolPortType).WriteVarWordBit(inValue) - Return retVal.WriteVarWordBitR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_WriteVarDouble(ByVal request As OPENcontrol.WriteVarDoubleRequest) As OPENcontrol.WriteVarDoubleResponse Implements OPENcontrol.OPENcontrolPortType.WriteVarDouble - Return MyBase.Channel.WriteVarDouble(request) - End Function - - Public Function WriteVarDouble(ByVal WriteVarDouble1 As OPENcontrol.WriteVarDouble) As OPENcontrol.WriteVarDoubleR - Dim inValue As OPENcontrol.WriteVarDoubleRequest = New OPENcontrol.WriteVarDoubleRequest() - inValue.WriteVarDouble = WriteVarDouble1 - Dim retVal As OPENcontrol.WriteVarDoubleResponse = CType(Me,OPENcontrol.OPENcontrolPortType).WriteVarDouble(inValue) - Return retVal.WriteVarDoubleR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_ReadVarText(ByVal request As OPENcontrol.ReadVarTextRequest) As OPENcontrol.ReadVarTextResponse Implements OPENcontrol.OPENcontrolPortType.ReadVarText - Return MyBase.Channel.ReadVarText(request) - End Function - - Public Function ReadVarText(ByVal ReadVarText1 As OPENcontrol.ReadVarText) As OPENcontrol.ReadVarTextR - Dim inValue As OPENcontrol.ReadVarTextRequest = New OPENcontrol.ReadVarTextRequest() - inValue.ReadVarText = ReadVarText1 - Dim retVal As OPENcontrol.ReadVarTextResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadVarText(inValue) - Return retVal.ReadVarTextR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_WriteVarText(ByVal request As OPENcontrol.WriteVarTextRequest) As OPENcontrol.WriteVarTextResponse Implements OPENcontrol.OPENcontrolPortType.WriteVarText - Return MyBase.Channel.WriteVarText(request) - End Function - - Public Function WriteVarText(ByVal WriteVarText1 As OPENcontrol.WriteVarText) As OPENcontrol.WriteVarTextR - Dim inValue As OPENcontrol.WriteVarTextRequest = New OPENcontrol.WriteVarTextRequest() - inValue.WriteVarText = WriteVarText1 - Dim retVal As OPENcontrol.WriteVarTextResponse = CType(Me,OPENcontrol.OPENcontrolPortType).WriteVarText(inValue) - Return retVal.WriteVarTextR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_ReadWarningMsg(ByVal request As OPENcontrol.ReadWarningMsgRequest) As OPENcontrol.ReadWarningMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadWarningMsg - Return MyBase.Channel.ReadWarningMsg(request) - End Function - - Public Function ReadWarningMsg(ByVal ReadWarningMsg1 As OPENcontrol.ReadWarningMsg) As OPENcontrol.ReadWarningMsgR - Dim inValue As OPENcontrol.ReadWarningMsgRequest = New OPENcontrol.ReadWarningMsgRequest() - inValue.ReadWarningMsg = ReadWarningMsg1 - Dim retVal As OPENcontrol.ReadWarningMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadWarningMsg(inValue) - Return retVal.ReadWarningMsgR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_ResetSingleTableII(ByVal request As OPENcontrol.ResetSingleTableIIRequest) As OPENcontrol.ResetSingleTableIIResponse Implements OPENcontrol.OPENcontrolPortType.ResetSingleTableII - Return MyBase.Channel.ResetSingleTableII(request) - End Function - - Public Function ResetSingleTableII(ByVal ResetSingleTableII1 As OPENcontrol.ResetSingleTableII) As OPENcontrol.ResetSingleTableIIR - Dim inValue As OPENcontrol.ResetSingleTableIIRequest = New OPENcontrol.ResetSingleTableIIRequest() - inValue.ResetSingleTableII = ResetSingleTableII1 - Dim retVal As OPENcontrol.ResetSingleTableIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ResetSingleTableII(inValue) - Return retVal.ResetSingleTableIIR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LockTableII(ByVal request As OPENcontrol.LockTableIIRequest) As OPENcontrol.LockTableIIResponse Implements OPENcontrol.OPENcontrolPortType.LockTableII - Return MyBase.Channel.LockTableII(request) - End Function - - Public Function LockTableII(ByVal LockTableII1 As OPENcontrol.LockTableII) As OPENcontrol.LockTableIIR - Dim inValue As OPENcontrol.LockTableIIRequest = New OPENcontrol.LockTableIIRequest() - inValue.LockTableII = LockTableII1 - Dim retVal As OPENcontrol.LockTableIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LockTableII(inValue) - Return retVal.LockTableIIR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_UnLockTableII(ByVal request As OPENcontrol.UnLockTableIIRequest) As OPENcontrol.UnLockTableIIResponse Implements OPENcontrol.OPENcontrolPortType.UnLockTableII - Return MyBase.Channel.UnLockTableII(request) - End Function - - Public Function UnLockTableII(ByVal UnLockTableII1 As OPENcontrol.UnLockTableII) As OPENcontrol.UnLockTableIIR - Dim inValue As OPENcontrol.UnLockTableIIRequest = New OPENcontrol.UnLockTableIIRequest() - inValue.UnLockTableII = UnLockTableII1 - Dim retVal As OPENcontrol.UnLockTableIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).UnLockTableII(inValue) - Return retVal.UnLockTableIIR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetOriginTabRecordII(ByVal request As OPENcontrol.GetOriginTabRecordIIRequest) As OPENcontrol.GetOriginTabRecordIIResponse Implements OPENcontrol.OPENcontrolPortType.GetOriginTabRecordII - Return MyBase.Channel.GetOriginTabRecordII(request) - End Function - - Public Function GetOriginTabRecordII(ByVal GetOriginTabRecordII1 As OPENcontrol.GetOriginTabRecordII) As OPENcontrol.GetOriginTabRecordIIR - Dim inValue As OPENcontrol.GetOriginTabRecordIIRequest = New OPENcontrol.GetOriginTabRecordIIRequest() - inValue.GetOriginTabRecordII = GetOriginTabRecordII1 - Dim retVal As OPENcontrol.GetOriginTabRecordIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetOriginTabRecordII(inValue) - Return retVal.GetOriginTabRecordIIR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SetOriginTabRecordII(ByVal request As OPENcontrol.SetOriginTabRecordIIRequest) As OPENcontrol.SetOriginTabRecordIIResponse Implements OPENcontrol.OPENcontrolPortType.SetOriginTabRecordII - Return MyBase.Channel.SetOriginTabRecordII(request) - End Function - - Public Function SetOriginTabRecordII(ByVal SetOriginTabRecordII1 As OPENcontrol.SetOriginTabRecordII) As OPENcontrol.SetOriginTabRecordIIR - Dim inValue As OPENcontrol.SetOriginTabRecordIIRequest = New OPENcontrol.SetOriginTabRecordIIRequest() - inValue.SetOriginTabRecordII = SetOriginTabRecordII1 - Dim retVal As OPENcontrol.SetOriginTabRecordIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetOriginTabRecordII(inValue) - Return retVal.SetOriginTabRecordIIR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetToolTabRecordII(ByVal request As OPENcontrol.GetToolTabRecordIIRequest) As OPENcontrol.GetToolTabRecordIIResponse Implements OPENcontrol.OPENcontrolPortType.GetToolTabRecordII - Return MyBase.Channel.GetToolTabRecordII(request) - End Function - - Public Function GetToolTabRecordII(ByVal GetToolTabRecordII1 As OPENcontrol.GetToolTabRecordII) As OPENcontrol.GetToolTabRecordIIR - Dim inValue As OPENcontrol.GetToolTabRecordIIRequest = New OPENcontrol.GetToolTabRecordIIRequest() - inValue.GetToolTabRecordII = GetToolTabRecordII1 - Dim retVal As OPENcontrol.GetToolTabRecordIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetToolTabRecordII(inValue) - Return retVal.GetToolTabRecordIIR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SetToolTabRecordII(ByVal request As OPENcontrol.SetToolTabRecordIIRequest) As OPENcontrol.SetToolTabRecordIIResponse Implements OPENcontrol.OPENcontrolPortType.SetToolTabRecordII - Return MyBase.Channel.SetToolTabRecordII(request) - End Function - - Public Function SetToolTabRecordII(ByVal SetToolTabRecordII1 As OPENcontrol.SetToolTabRecordII) As OPENcontrol.SetToolTabRecordIIR - Dim inValue As OPENcontrol.SetToolTabRecordIIRequest = New OPENcontrol.SetToolTabRecordIIRequest() - inValue.SetToolTabRecordII = SetToolTabRecordII1 - Dim retVal As OPENcontrol.SetToolTabRecordIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetToolTabRecordII(inValue) - Return retVal.SetToolTabRecordIIR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetOffsetTabRecordII(ByVal request As OPENcontrol.GetOffsetTabRecordIIRequest) As OPENcontrol.GetOffsetTabRecordIIResponse Implements OPENcontrol.OPENcontrolPortType.GetOffsetTabRecordII - Return MyBase.Channel.GetOffsetTabRecordII(request) - End Function - - Public Function GetOffsetTabRecordII(ByVal GetOffsetTabRecordII1 As OPENcontrol.GetOffsetTabRecordII) As OPENcontrol.GetOffsetTabRecordIIR - Dim inValue As OPENcontrol.GetOffsetTabRecordIIRequest = New OPENcontrol.GetOffsetTabRecordIIRequest() - inValue.GetOffsetTabRecordII = GetOffsetTabRecordII1 - Dim retVal As OPENcontrol.GetOffsetTabRecordIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetOffsetTabRecordII(inValue) - Return retVal.GetOffsetTabRecordIIR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SetOffsetTabRecordII(ByVal request As OPENcontrol.SetOffsetTabRecordIIRequest) As OPENcontrol.SetOffsetTabRecordIIResponse Implements OPENcontrol.OPENcontrolPortType.SetOffsetTabRecordII - Return MyBase.Channel.SetOffsetTabRecordII(request) - End Function - - Public Function SetOffsetTabRecordII(ByVal SetOffsetTabRecordII1 As OPENcontrol.SetOffsetTabRecordII) As OPENcontrol.SetOffsetTabRecordIIR - Dim inValue As OPENcontrol.SetOffsetTabRecordIIRequest = New OPENcontrol.SetOffsetTabRecordIIRequest() - inValue.SetOffsetTabRecordII = SetOffsetTabRecordII1 - Dim retVal As OPENcontrol.SetOffsetTabRecordIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetOffsetTabRecordII(inValue) - Return retVal.SetOffsetTabRecordIIR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetUserTabRecordII(ByVal request As OPENcontrol.GetUserTabRecordIIRequest) As OPENcontrol.GetUserTabRecordIIResponse Implements OPENcontrol.OPENcontrolPortType.GetUserTabRecordII - Return MyBase.Channel.GetUserTabRecordII(request) - End Function - - Public Function GetUserTabRecordII(ByVal GetUserTabRecordII1 As OPENcontrol.GetUserTabRecordII) As OPENcontrol.GetUserTabRecordIIR - Dim inValue As OPENcontrol.GetUserTabRecordIIRequest = New OPENcontrol.GetUserTabRecordIIRequest() - inValue.GetUserTabRecordII = GetUserTabRecordII1 - Dim retVal As OPENcontrol.GetUserTabRecordIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetUserTabRecordII(inValue) - Return retVal.GetUserTabRecordIIR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SetUserTabRecordII(ByVal request As OPENcontrol.SetUserTabRecordIIRequest) As OPENcontrol.SetUserTabRecordIIResponse Implements OPENcontrol.OPENcontrolPortType.SetUserTabRecordII - Return MyBase.Channel.SetUserTabRecordII(request) - End Function - - Public Function SetUserTabRecordII(ByVal SetUserTabRecordII1 As OPENcontrol.SetUserTabRecordII) As OPENcontrol.SetUserTabRecordIIR - Dim inValue As OPENcontrol.SetUserTabRecordIIRequest = New OPENcontrol.SetUserTabRecordIIRequest() - inValue.SetUserTabRecordII = SetUserTabRecordII1 - Dim retVal As OPENcontrol.SetUserTabRecordIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetUserTabRecordII(inValue) - Return retVal.SetUserTabRecordIIR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SaveTables(ByVal request As OPENcontrol.SaveTablesRequest) As OPENcontrol.SaveTablesResponse Implements OPENcontrol.OPENcontrolPortType.SaveTables - Return MyBase.Channel.SaveTables(request) - End Function - - Public Function SaveTables(ByVal SaveTables1 As OPENcontrol.SaveTables) As OPENcontrol.SaveTablesR - Dim inValue As OPENcontrol.SaveTablesRequest = New OPENcontrol.SaveTablesRequest() - inValue.SaveTables = SaveTables1 - Dim retVal As OPENcontrol.SaveTablesResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SaveTables(inValue) - Return retVal.SaveTablesR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_RestoreSingleTable(ByVal request As OPENcontrol.RestoreSingleTableRequest) As OPENcontrol.RestoreSingleTableResponse Implements OPENcontrol.OPENcontrolPortType.RestoreSingleTable - Return MyBase.Channel.RestoreSingleTable(request) - End Function - - Public Function RestoreSingleTable(ByVal RestoreSingleTable1 As OPENcontrol.RestoreSingleTable) As OPENcontrol.RestoreSingleTableR - Dim inValue As OPENcontrol.RestoreSingleTableRequest = New OPENcontrol.RestoreSingleTableRequest() - inValue.RestoreSingleTable = RestoreSingleTable1 - Dim retVal As OPENcontrol.RestoreSingleTableResponse = CType(Me,OPENcontrol.OPENcontrolPortType).RestoreSingleTable(inValue) - Return retVal.RestoreSingleTableR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SaveSingleTable(ByVal request As OPENcontrol.SaveSingleTableRequest) As OPENcontrol.SaveSingleTableResponse Implements OPENcontrol.OPENcontrolPortType.SaveSingleTable - Return MyBase.Channel.SaveSingleTable(request) - End Function - - Public Function SaveSingleTable(ByVal SaveSingleTable1 As OPENcontrol.SaveSingleTable) As OPENcontrol.SaveSingleTableR - Dim inValue As OPENcontrol.SaveSingleTableRequest = New OPENcontrol.SaveSingleTableRequest() - inValue.SaveSingleTable = SaveSingleTable1 - Dim retVal As OPENcontrol.SaveSingleTableResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SaveSingleTable(inValue) - Return retVal.SaveSingleTableR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SaveBackupMemory(ByVal request As OPENcontrol.SaveBackupMemoryRequest) As OPENcontrol.SaveBackupMemoryResponse Implements OPENcontrol.OPENcontrolPortType.SaveBackupMemory - Return MyBase.Channel.SaveBackupMemory(request) - End Function - - Public Function SaveBackupMemory(ByVal SaveBackupMemory1 As OPENcontrol.SaveBackupMemory) As OPENcontrol.SaveBackupMemoryR - Dim inValue As OPENcontrol.SaveBackupMemoryRequest = New OPENcontrol.SaveBackupMemoryRequest() - inValue.SaveBackupMemory = SaveBackupMemory1 - Dim retVal As OPENcontrol.SaveBackupMemoryResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SaveBackupMemory(inValue) - Return retVal.SaveBackupMemoryR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_RestoreBackupMemory(ByVal request As OPENcontrol.RestoreBackupMemoryRequest) As OPENcontrol.RestoreBackupMemoryResponse Implements OPENcontrol.OPENcontrolPortType.RestoreBackupMemory - Return MyBase.Channel.RestoreBackupMemory(request) - End Function - - Public Function RestoreBackupMemory(ByVal RestoreBackupMemory1 As OPENcontrol.RestoreBackupMemory) As OPENcontrol.RestoreBackupMemoryR - Dim inValue As OPENcontrol.RestoreBackupMemoryRequest = New OPENcontrol.RestoreBackupMemoryRequest() - inValue.RestoreBackupMemory = RestoreBackupMemory1 - Dim retVal As OPENcontrol.RestoreBackupMemoryResponse = CType(Me,OPENcontrol.OPENcontrolPortType).RestoreBackupMemory(inValue) - Return retVal.RestoreBackupMemoryR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_Cycle(ByVal request As OPENcontrol.CycleRequest) As OPENcontrol.CycleResponse Implements OPENcontrol.OPENcontrolPortType.Cycle - Return MyBase.Channel.Cycle(request) - End Function - - Public Function Cycle(ByVal Cycle1 As OPENcontrol.Cycle) As OPENcontrol.CycleR - Dim inValue As OPENcontrol.CycleRequest = New OPENcontrol.CycleRequest() - inValue.Cycle = Cycle1 - Dim retVal As OPENcontrol.CycleResponse = CType(Me,OPENcontrol.OPENcontrolPortType).Cycle(inValue) - Return retVal.CycleR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SyncroCycle(ByVal request As OPENcontrol.SyncroCycleRequest) As OPENcontrol.SyncroCycleResponse Implements OPENcontrol.OPENcontrolPortType.SyncroCycle - Return MyBase.Channel.SyncroCycle(request) - End Function - - Public Function SyncroCycle(ByVal SyncroCycle1 As OPENcontrol.SyncroCycle) As OPENcontrol.SyncroCycleR - Dim inValue As OPENcontrol.SyncroCycleRequest = New OPENcontrol.SyncroCycleRequest() - inValue.SyncroCycle = SyncroCycle1 - Dim retVal As OPENcontrol.SyncroCycleResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SyncroCycle(inValue) - Return retVal.SyncroCycleR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_Reset(ByVal request As OPENcontrol.ResetRequest) As OPENcontrol.ResetResponse Implements OPENcontrol.OPENcontrolPortType.Reset - Return MyBase.Channel.Reset(request) - End Function - - Public Function Reset(ByVal Reset1 As OPENcontrol.Reset) As OPENcontrol.ResetR - Dim inValue As OPENcontrol.ResetRequest = New OPENcontrol.ResetRequest() - inValue.Reset = Reset1 - Dim retVal As OPENcontrol.ResetResponse = CType(Me,OPENcontrol.OPENcontrolPortType).Reset(inValue) - Return retVal.ResetR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_Hold(ByVal request As OPENcontrol.HoldRequest) As OPENcontrol.HoldResponse Implements OPENcontrol.OPENcontrolPortType.Hold - Return MyBase.Channel.Hold(request) - End Function - - Public Function Hold(ByVal Hold1 As OPENcontrol.Hold) As OPENcontrol.HoldR - Dim inValue As OPENcontrol.HoldRequest = New OPENcontrol.HoldRequest() - inValue.Hold = Hold1 - Dim retVal As OPENcontrol.HoldResponse = CType(Me,OPENcontrol.OPENcontrolPortType).Hold(inValue) - Return retVal.HoldR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SetFeedManOver(ByVal request As OPENcontrol.SetFeedManOverRequest) As OPENcontrol.SetFeedManOverResponse Implements OPENcontrol.OPENcontrolPortType.SetFeedManOver - Return MyBase.Channel.SetFeedManOver(request) - End Function - - Public Function SetFeedManOver(ByVal SetFeedManOver1 As OPENcontrol.SetFeedManOver) As OPENcontrol.SetFeedManOverR - Dim inValue As OPENcontrol.SetFeedManOverRequest = New OPENcontrol.SetFeedManOverRequest() - inValue.SetFeedManOver = SetFeedManOver1 - Dim retVal As OPENcontrol.SetFeedManOverResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetFeedManOver(inValue) - Return retVal.SetFeedManOverR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SetFeedRateOver(ByVal request As OPENcontrol.SetFeedRateOverRequest) As OPENcontrol.SetFeedRateOverResponse Implements OPENcontrol.OPENcontrolPortType.SetFeedRateOver - Return MyBase.Channel.SetFeedRateOver(request) - End Function - - Public Function SetFeedRateOver(ByVal SetFeedRateOver1 As OPENcontrol.SetFeedRateOver) As OPENcontrol.SetFeedRateOverR - Dim inValue As OPENcontrol.SetFeedRateOverRequest = New OPENcontrol.SetFeedRateOverRequest() - inValue.SetFeedRateOver = SetFeedRateOver1 - Dim retVal As OPENcontrol.SetFeedRateOverResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetFeedRateOver(inValue) - Return retVal.SetFeedRateOverR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SetFeedRapidOver(ByVal request As OPENcontrol.SetFeedRapidOverRequest) As OPENcontrol.SetFeedRapidOverResponse Implements OPENcontrol.OPENcontrolPortType.SetFeedRapidOver - Return MyBase.Channel.SetFeedRapidOver(request) - End Function - - Public Function SetFeedRapidOver(ByVal SetFeedRapidOver1 As OPENcontrol.SetFeedRapidOver) As OPENcontrol.SetFeedRapidOverR - Dim inValue As OPENcontrol.SetFeedRapidOverRequest = New OPENcontrol.SetFeedRapidOverRequest() - inValue.SetFeedRapidOver = SetFeedRapidOver1 - Dim retVal As OPENcontrol.SetFeedRapidOverResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetFeedRapidOver(inValue) - Return retVal.SetFeedRapidOverR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SetSpeedRateOver(ByVal request As OPENcontrol.SetSpeedRateOverRequest) As OPENcontrol.SetSpeedRateOverResponse Implements OPENcontrol.OPENcontrolPortType.SetSpeedRateOver - Return MyBase.Channel.SetSpeedRateOver(request) - End Function - - Public Function SetSpeedRateOver(ByVal SetSpeedRateOver1 As OPENcontrol.SetSpeedRateOver) As OPENcontrol.SetSpeedRateOverR - Dim inValue As OPENcontrol.SetSpeedRateOverRequest = New OPENcontrol.SetSpeedRateOverRequest() - inValue.SetSpeedRateOver = SetSpeedRateOver1 - Dim retVal As OPENcontrol.SetSpeedRateOverResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetSpeedRateOver(inValue) - Return retVal.SetSpeedRateOverR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SetManMovDirection(ByVal request As OPENcontrol.SetManMovDirectionRequest) As OPENcontrol.SetManMovDirectionResponse Implements OPENcontrol.OPENcontrolPortType.SetManMovDirection - Return MyBase.Channel.SetManMovDirection(request) - End Function - - Public Function SetManMovDirection(ByVal SetManMovDirection1 As OPENcontrol.SetManMovDirection) As OPENcontrol.SetManMovDirectionR - Dim inValue As OPENcontrol.SetManMovDirectionRequest = New OPENcontrol.SetManMovDirectionRequest() - inValue.SetManMovDirection = SetManMovDirection1 - Dim retVal As OPENcontrol.SetManMovDirectionResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetManMovDirection(inValue) - Return retVal.SetManMovDirectionR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetVarJOG(ByVal request As OPENcontrol.GetVarJOGRequest) As OPENcontrol.GetVarJOGResponse Implements OPENcontrol.OPENcontrolPortType.GetVarJOG - Return MyBase.Channel.GetVarJOG(request) - End Function - - Public Function GetVarJOG(ByVal GetVarJOG1 As OPENcontrol.GetVarJOG) As OPENcontrol.GetVarJOGR - Dim inValue As OPENcontrol.GetVarJOGRequest = New OPENcontrol.GetVarJOGRequest() - inValue.GetVarJOG = GetVarJOG1 - Dim retVal As OPENcontrol.GetVarJOGResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetVarJOG(inValue) - Return retVal.GetVarJOGR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SetVarJOG(ByVal request As OPENcontrol.SetVarJOGRequest) As OPENcontrol.SetVarJOGResponse Implements OPENcontrol.OPENcontrolPortType.SetVarJOG - Return MyBase.Channel.SetVarJOG(request) - End Function - - Public Function SetVarJOG(ByVal SetVarJOG1 As OPENcontrol.SetVarJOG) As OPENcontrol.SetVarJOGR - Dim inValue As OPENcontrol.SetVarJOGRequest = New OPENcontrol.SetVarJOGRequest() - inValue.SetVarJOG = SetVarJOG1 - Dim retVal As OPENcontrol.SetVarJOGResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetVarJOG(inValue) - Return retVal.SetVarJOGR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SetVarUAS(ByVal request As OPENcontrol.SetVarUASRequest) As OPENcontrol.SetVarUASResponse Implements OPENcontrol.OPENcontrolPortType.SetVarUAS - Return MyBase.Channel.SetVarUAS(request) - End Function - - Public Function SetVarUAS(ByVal SetVarUAS1 As OPENcontrol.SetVarUAS) As OPENcontrol.SetVarUASR - Dim inValue As OPENcontrol.SetVarUASRequest = New OPENcontrol.SetVarUASRequest() - inValue.SetVarUAS = SetVarUAS1 - Dim retVal As OPENcontrol.SetVarUASResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetVarUAS(inValue) - Return retVal.SetVarUASR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetVarRCM(ByVal request As OPENcontrol.GetVarRCMRequest) As OPENcontrol.GetVarRCMResponse Implements OPENcontrol.OPENcontrolPortType.GetVarRCM - Return MyBase.Channel.GetVarRCM(request) - End Function - - Public Function GetVarRCM(ByVal GetVarRCM1 As OPENcontrol.GetVarRCM) As OPENcontrol.GetVarRCMR - Dim inValue As OPENcontrol.GetVarRCMRequest = New OPENcontrol.GetVarRCMRequest() - inValue.GetVarRCM = GetVarRCM1 - Dim retVal As OPENcontrol.GetVarRCMResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetVarRCM(inValue) - Return retVal.GetVarRCMR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SetVarRCM(ByVal request As OPENcontrol.SetVarRCMRequest) As OPENcontrol.SetVarRCMResponse Implements OPENcontrol.OPENcontrolPortType.SetVarRCM - Return MyBase.Channel.SetVarRCM(request) - End Function - - Public Function SetVarRCM(ByVal SetVarRCM1 As OPENcontrol.SetVarRCM) As OPENcontrol.SetVarRCMR - Dim inValue As OPENcontrol.SetVarRCMRequest = New OPENcontrol.SetVarRCMRequest() - inValue.SetVarRCM = SetVarRCM1 - Dim retVal As OPENcontrol.SetVarRCMResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetVarRCM(inValue) - Return retVal.SetVarRCMR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetProcVarWord(ByVal request As OPENcontrol.GetProcVarWordRequest) As OPENcontrol.GetProcVarWordResponse Implements OPENcontrol.OPENcontrolPortType.GetProcVarWord - Return MyBase.Channel.GetProcVarWord(request) - End Function - - Public Function GetProcVarWord(ByVal GetProcVarWord1 As OPENcontrol.GetProcVarWord) As OPENcontrol.GetProcVarWordR - Dim inValue As OPENcontrol.GetProcVarWordRequest = New OPENcontrol.GetProcVarWordRequest() - inValue.GetProcVarWord = GetProcVarWord1 - Dim retVal As OPENcontrol.GetProcVarWordResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetProcVarWord(inValue) - Return retVal.GetProcVarWordR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SetProcVarWord(ByVal request As OPENcontrol.SetProcVarWordRequest) As OPENcontrol.SetProcVarWordResponse Implements OPENcontrol.OPENcontrolPortType.SetProcVarWord - Return MyBase.Channel.SetProcVarWord(request) - End Function - - Public Function SetProcVarWord(ByVal SetProcVarWord1 As OPENcontrol.SetProcVarWord) As OPENcontrol.SetProcVarWordR - Dim inValue As OPENcontrol.SetProcVarWordRequest = New OPENcontrol.SetProcVarWordRequest() - inValue.SetProcVarWord = SetProcVarWord1 - Dim retVal As OPENcontrol.SetProcVarWordResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetProcVarWord(inValue) - Return retVal.SetProcVarWordR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetProcVarDouble(ByVal request As OPENcontrol.GetProcVarDoubleRequest) As OPENcontrol.GetProcVarDoubleResponse Implements OPENcontrol.OPENcontrolPortType.GetProcVarDouble - Return MyBase.Channel.GetProcVarDouble(request) - End Function - - Public Function GetProcVarDouble(ByVal GetProcVarDouble1 As OPENcontrol.GetProcVarDouble) As OPENcontrol.GetProcVarDoubleR - Dim inValue As OPENcontrol.GetProcVarDoubleRequest = New OPENcontrol.GetProcVarDoubleRequest() - inValue.GetProcVarDouble = GetProcVarDouble1 - Dim retVal As OPENcontrol.GetProcVarDoubleResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetProcVarDouble(inValue) - Return retVal.GetProcVarDoubleR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SetProcVarDouble(ByVal request As OPENcontrol.SetProcVarDoubleRequest) As OPENcontrol.SetProcVarDoubleResponse Implements OPENcontrol.OPENcontrolPortType.SetProcVarDouble - Return MyBase.Channel.SetProcVarDouble(request) - End Function - - Public Function SetProcVarDouble(ByVal SetProcVarDouble1 As OPENcontrol.SetProcVarDouble) As OPENcontrol.SetProcVarDoubleR - Dim inValue As OPENcontrol.SetProcVarDoubleRequest = New OPENcontrol.SetProcVarDoubleRequest() - inValue.SetProcVarDouble = SetProcVarDouble1 - Dim retVal As OPENcontrol.SetProcVarDoubleResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetProcVarDouble(inValue) - Return retVal.SetProcVarDoubleR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SetMdiString(ByVal request As OPENcontrol.SetMdiStringRequest) As OPENcontrol.SetMdiStringResponse Implements OPENcontrol.OPENcontrolPortType.SetMdiString - Return MyBase.Channel.SetMdiString(request) - End Function - - Public Function SetMdiString(ByVal SetMdiString1 As OPENcontrol.SetMdiString) As OPENcontrol.SetMdiStringR - Dim inValue As OPENcontrol.SetMdiStringRequest = New OPENcontrol.SetMdiStringRequest() - inValue.SetMdiString = SetMdiString1 - Dim retVal As OPENcontrol.SetMdiStringResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetMdiString(inValue) - Return retVal.SetMdiStringR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SetProcessMode(ByVal request As OPENcontrol.SetProcessModeRequest) As OPENcontrol.SetProcessModeResponse Implements OPENcontrol.OPENcontrolPortType.SetProcessMode - Return MyBase.Channel.SetProcessMode(request) - End Function - - Public Function SetProcessMode(ByVal SetProcessMode1 As OPENcontrol.SetProcessMode) As OPENcontrol.SetProcessModeR - Dim inValue As OPENcontrol.SetProcessModeRequest = New OPENcontrol.SetProcessModeRequest() - inValue.SetProcessMode = SetProcessMode1 - Dim retVal As OPENcontrol.SetProcessModeResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetProcessMode(inValue) - Return retVal.SetProcessModeR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SelectProcess(ByVal request As OPENcontrol.SelectProcessRequest) As OPENcontrol.SelectProcessResponse Implements OPENcontrol.OPENcontrolPortType.SelectProcess - Return MyBase.Channel.SelectProcess(request) - End Function - - Public Function SelectProcess(ByVal SelectProcess1 As OPENcontrol.SelectProcess) As OPENcontrol.SelectProcessR - Dim inValue As OPENcontrol.SelectProcessRequest = New OPENcontrol.SelectProcessRequest() - inValue.SelectProcess = SelectProcess1 - Dim retVal As OPENcontrol.SelectProcessResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SelectProcess(inValue) - Return retVal.SelectProcessR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetSelectedProcess(ByVal request As OPENcontrol.GetSelectedProcessRequest) As OPENcontrol.GetSelectedProcessResponse Implements OPENcontrol.OPENcontrolPortType.GetSelectedProcess - Return MyBase.Channel.GetSelectedProcess(request) - End Function - - Public Function GetSelectedProcess(ByVal GetSelectedProcess1 As OPENcontrol.GetSelectedProcess) As OPENcontrol.GetSelectedProcessR - Dim inValue As OPENcontrol.GetSelectedProcessRequest = New OPENcontrol.GetSelectedProcessRequest() - inValue.GetSelectedProcess = GetSelectedProcess1 - Dim retVal As OPENcontrol.GetSelectedProcessResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetSelectedProcess(inValue) - Return retVal.GetSelectedProcessR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SelectProcAxis(ByVal request As OPENcontrol.SelectProcAxisRequest) As OPENcontrol.SelectProcAxisResponse Implements OPENcontrol.OPENcontrolPortType.SelectProcAxis - Return MyBase.Channel.SelectProcAxis(request) - End Function - - Public Function SelectProcAxis(ByVal SelectProcAxis1 As OPENcontrol.SelectProcAxis) As OPENcontrol.SelectProcAxisR - Dim inValue As OPENcontrol.SelectProcAxisRequest = New OPENcontrol.SelectProcAxisRequest() - inValue.SelectProcAxis = SelectProcAxis1 - Dim retVal As OPENcontrol.SelectProcAxisResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SelectProcAxis(inValue) - Return retVal.SelectProcAxisR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SelectPartProgram(ByVal request As OPENcontrol.SelectPartProgramRequest) As OPENcontrol.SelectPartProgramResponse Implements OPENcontrol.OPENcontrolPortType.SelectPartProgram - Return MyBase.Channel.SelectPartProgram(request) - End Function - - Public Function SelectPartProgram(ByVal SelectPartProgram1 As OPENcontrol.SelectPartProgram) As OPENcontrol.SelectPartProgramR - Dim inValue As OPENcontrol.SelectPartProgramRequest = New OPENcontrol.SelectPartProgramRequest() - inValue.SelectPartProgram = SelectPartProgram1 - Dim retVal As OPENcontrol.SelectPartProgramResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SelectPartProgram(inValue) - Return retVal.SelectPartProgramR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SelectPartProgramFromDrive(ByVal request As OPENcontrol.SelectPartProgramFromDriveRequest) As OPENcontrol.SelectPartProgramFromDriveResponse Implements OPENcontrol.OPENcontrolPortType.SelectPartProgramFromDrive - Return MyBase.Channel.SelectPartProgramFromDrive(request) - End Function - - Public Function SelectPartProgramFromDrive(ByVal SelectPartProgramFromDrive1 As OPENcontrol.SelectPartProgramFromDrive) As OPENcontrol.SelectPartProgramFromDriveR - Dim inValue As OPENcontrol.SelectPartProgramFromDriveRequest = New OPENcontrol.SelectPartProgramFromDriveRequest() - inValue.SelectPartProgramFromDrive = SelectPartProgramFromDrive1 - Dim retVal As OPENcontrol.SelectPartProgramFromDriveResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SelectPartProgramFromDrive(inValue) - Return retVal.SelectPartProgramFromDriveR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetActivePartProgram(ByVal request As OPENcontrol.GetActivePartProgramRequest) As OPENcontrol.GetActivePartProgramResponse Implements OPENcontrol.OPENcontrolPortType.GetActivePartProgram - Return MyBase.Channel.GetActivePartProgram(request) - End Function - - Public Function GetActivePartProgram(ByVal GetActivePartProgram1 As OPENcontrol.GetActivePartProgram) As OPENcontrol.GetActivePartProgramR - Dim inValue As OPENcontrol.GetActivePartProgramRequest = New OPENcontrol.GetActivePartProgramRequest() - inValue.GetActivePartProgram = GetActivePartProgram1 - Dim retVal As OPENcontrol.GetActivePartProgramResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetActivePartProgram(inValue) - Return retVal.GetActivePartProgramR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetPartProgramLines(ByVal request As OPENcontrol.GetPartProgramLinesRequest) As OPENcontrol.GetPartProgramLinesResponse Implements OPENcontrol.OPENcontrolPortType.GetPartProgramLines - Return MyBase.Channel.GetPartProgramLines(request) - End Function - - Public Function GetPartProgramLines(ByVal GetPartProgramLines1 As OPENcontrol.GetPartProgramLines) As OPENcontrol.GetPartProgramLinesR - Dim inValue As OPENcontrol.GetPartProgramLinesRequest = New OPENcontrol.GetPartProgramLinesRequest() - inValue.GetPartProgramLines = GetPartProgramLines1 - Dim retVal As OPENcontrol.GetPartProgramLinesResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetPartProgramLines(inValue) - Return retVal.GetPartProgramLinesR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetAxOriginNum(ByVal request As OPENcontrol.GetAxOriginNumRequest) As OPENcontrol.GetAxOriginNumResponse Implements OPENcontrol.OPENcontrolPortType.GetAxOriginNum - Return MyBase.Channel.GetAxOriginNum(request) - End Function - - Public Function GetAxOriginNum(ByVal GetAxOriginNum1 As OPENcontrol.GetAxOriginNum) As OPENcontrol.GetAxOriginNumR - Dim inValue As OPENcontrol.GetAxOriginNumRequest = New OPENcontrol.GetAxOriginNumRequest() - inValue.GetAxOriginNum = GetAxOriginNum1 - Dim retVal As OPENcontrol.GetAxOriginNumResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetAxOriginNum(inValue) - Return retVal.GetAxOriginNumR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetAxesPosition(ByVal request As OPENcontrol.GetAxesPositionRequest) As OPENcontrol.GetAxesPositionResponse Implements OPENcontrol.OPENcontrolPortType.GetAxesPosition - Return MyBase.Channel.GetAxesPosition(request) - End Function - - Public Function GetAxesPosition(ByVal GetAxesPosition1 As OPENcontrol.GetAxesPosition) As OPENcontrol.GetAxesPositionR - Dim inValue As OPENcontrol.GetAxesPositionRequest = New OPENcontrol.GetAxesPositionRequest() - inValue.GetAxesPosition = GetAxesPosition1 - Dim retVal As OPENcontrol.GetAxesPositionResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetAxesPosition(inValue) - Return retVal.GetAxesPositionR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetNcInfo1(ByVal request As OPENcontrol.GetNcInfo1Request) As OPENcontrol.GetNcInfo1Response Implements OPENcontrol.OPENcontrolPortType.GetNcInfo1 - Return MyBase.Channel.GetNcInfo1(request) - End Function - - Public Function GetNcInfo1(ByVal GetNcInfo11 As OPENcontrol.GetNcInfo1) As OPENcontrol.GetNcInfo1R - Dim inValue As OPENcontrol.GetNcInfo1Request = New OPENcontrol.GetNcInfo1Request() - inValue.GetNcInfo1 = GetNcInfo11 - Dim retVal As OPENcontrol.GetNcInfo1Response = CType(Me,OPENcontrol.OPENcontrolPortType).GetNcInfo1(inValue) - Return retVal.GetNcInfo1R - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetNcInfo2(ByVal request As OPENcontrol.GetNcInfo2Request) As OPENcontrol.GetNcInfo2Response Implements OPENcontrol.OPENcontrolPortType.GetNcInfo2 - Return MyBase.Channel.GetNcInfo2(request) - End Function - - Public Function GetNcInfo2(ByVal GetNcInfo21 As OPENcontrol.GetNcInfo2) As OPENcontrol.GetNcInfo2R - Dim inValue As OPENcontrol.GetNcInfo2Request = New OPENcontrol.GetNcInfo2Request() - inValue.GetNcInfo2 = GetNcInfo21 - Dim retVal As OPENcontrol.GetNcInfo2Response = CType(Me,OPENcontrol.OPENcontrolPortType).GetNcInfo2(inValue) - Return retVal.GetNcInfo2R - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetToolNames(ByVal request As OPENcontrol.GetToolNamesRequest) As OPENcontrol.GetToolNamesResponse Implements OPENcontrol.OPENcontrolPortType.GetToolNames - Return MyBase.Channel.GetToolNames(request) - End Function - - Public Function GetToolNames(ByVal GetToolNames1 As OPENcontrol.GetToolNames) As OPENcontrol.GetToolNamesR - Dim inValue As OPENcontrol.GetToolNamesRequest = New OPENcontrol.GetToolNamesRequest() - inValue.GetToolNames = GetToolNames1 - Dim retVal As OPENcontrol.GetToolNamesResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetToolNames(inValue) - Return retVal.GetToolNamesR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetProcessStatus(ByVal request As OPENcontrol.GetProcessStatusRequest) As OPENcontrol.GetProcessStatusResponse Implements OPENcontrol.OPENcontrolPortType.GetProcessStatus - Return MyBase.Channel.GetProcessStatus(request) - End Function - - Public Function GetProcessStatus(ByVal GetProcessStatus1 As OPENcontrol.GetProcessStatus) As OPENcontrol.GetProcessStatusR - Dim inValue As OPENcontrol.GetProcessStatusRequest = New OPENcontrol.GetProcessStatusRequest() - inValue.GetProcessStatus = GetProcessStatus1 - Dim retVal As OPENcontrol.GetProcessStatusResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetProcessStatus(inValue) - Return retVal.GetProcessStatusR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetBlkNum(ByVal request As OPENcontrol.GetBlkNumRequest) As OPENcontrol.GetBlkNumResponse Implements OPENcontrol.OPENcontrolPortType.GetBlkNum - Return MyBase.Channel.GetBlkNum(request) - End Function - - Public Function GetBlkNum(ByVal GetBlkNum1 As OPENcontrol.GetBlkNum) As OPENcontrol.GetBlkNumR - Dim inValue As OPENcontrol.GetBlkNumRequest = New OPENcontrol.GetBlkNumRequest() - inValue.GetBlkNum = GetBlkNum1 - Dim retVal As OPENcontrol.GetBlkNumResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetBlkNum(inValue) - Return retVal.GetBlkNumR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_ReadErrMsg(ByVal request As OPENcontrol.ReadErrMsgRequest) As OPENcontrol.ReadErrMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadErrMsg - Return MyBase.Channel.ReadErrMsg(request) - End Function - - Public Function ReadErrMsg(ByVal ReadErrMsg1 As OPENcontrol.ReadErrMsg) As OPENcontrol.ReadErrMsgR - Dim inValue As OPENcontrol.ReadErrMsgRequest = New OPENcontrol.ReadErrMsgRequest() - inValue.ReadErrMsg = ReadErrMsg1 - Dim retVal As OPENcontrol.ReadErrMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadErrMsg(inValue) - Return retVal.ReadErrMsgR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_ReadPartProgramMsg(ByVal request As OPENcontrol.ReadPartProgramMsgRequest) As OPENcontrol.ReadPartProgramMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadPartProgramMsg - Return MyBase.Channel.ReadPartProgramMsg(request) - End Function - - Public Function ReadPartProgramMsg(ByVal ReadPartProgramMsg1 As OPENcontrol.ReadPartProgramMsg) As OPENcontrol.ReadPartProgramMsgR - Dim inValue As OPENcontrol.ReadPartProgramMsgRequest = New OPENcontrol.ReadPartProgramMsgRequest() - inValue.ReadPartProgramMsg = ReadPartProgramMsg1 - Dim retVal As OPENcontrol.ReadPartProgramMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadPartProgramMsg(inValue) - Return retVal.ReadPartProgramMsgR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetGCode(ByVal request As OPENcontrol.GetGCodeRequest) As OPENcontrol.GetGCodeResponse Implements OPENcontrol.OPENcontrolPortType.GetGCode - Return MyBase.Channel.GetGCode(request) - End Function - - Public Function GetGCode(ByVal GetGCode1 As OPENcontrol.GetGCode) As OPENcontrol.GetGCodeR - Dim inValue As OPENcontrol.GetGCodeRequest = New OPENcontrol.GetGCodeRequest() - inValue.GetGCode = GetGCode1 - Dim retVal As OPENcontrol.GetGCodeResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetGCode(inValue) - Return retVal.GetGCodeR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetMCode(ByVal request As OPENcontrol.GetMCodeRequest) As OPENcontrol.GetMCodeResponse Implements OPENcontrol.OPENcontrolPortType.GetMCode - Return MyBase.Channel.GetMCode(request) - End Function - - Public Function GetMCode(ByVal GetMCode1 As OPENcontrol.GetMCode) As OPENcontrol.GetMCodeR - Dim inValue As OPENcontrol.GetMCodeRequest = New OPENcontrol.GetMCodeRequest() - inValue.GetMCode = GetMCode1 - Dim retVal As OPENcontrol.GetMCodeResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetMCode(inValue) - Return retVal.GetMCodeR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SkipPProgBlock(ByVal request As OPENcontrol.SkipPProgBlockRequest) As OPENcontrol.SkipPProgBlockResponse Implements OPENcontrol.OPENcontrolPortType.SkipPProgBlock - Return MyBase.Channel.SkipPProgBlock(request) - End Function - - Public Function SkipPProgBlock(ByVal SkipPProgBlock1 As OPENcontrol.SkipPProgBlock) As OPENcontrol.SkipPProgBlockR - Dim inValue As OPENcontrol.SkipPProgBlockRequest = New OPENcontrol.SkipPProgBlockRequest() - inValue.SkipPProgBlock = SkipPProgBlock1 - Dim retVal As OPENcontrol.SkipPProgBlockResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SkipPProgBlock(inValue) - Return retVal.SkipPProgBlockR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_Ese(ByVal request As OPENcontrol.EseRequest) As OPENcontrol.EseResponse Implements OPENcontrol.OPENcontrolPortType.Ese - Return MyBase.Channel.Ese(request) - End Function - - Public Function Ese(ByVal Ese1 As OPENcontrol.Ese) As OPENcontrol.EseR - Dim inValue As OPENcontrol.EseRequest = New OPENcontrol.EseRequest() - inValue.Ese = Ese1 - Dim retVal As OPENcontrol.EseResponse = CType(Me,OPENcontrol.OPENcontrolPortType).Ese(inValue) - Return retVal.EseR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_EseEx(ByVal request As OPENcontrol.EseExRequest) As OPENcontrol.EseExResponse Implements OPENcontrol.OPENcontrolPortType.EseEx - Return MyBase.Channel.EseEx(request) - End Function - - Public Function EseEx(ByVal EseEx1 As OPENcontrol.EseEx) As OPENcontrol.EseExR - Dim inValue As OPENcontrol.EseExRequest = New OPENcontrol.EseExRequest() - inValue.EseEx = EseEx1 - Dim retVal As OPENcontrol.EseExResponse = CType(Me,OPENcontrol.OPENcontrolPortType).EseEx(inValue) - Return retVal.EseExR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_Exe(ByVal request As OPENcontrol.ExeRequest) As OPENcontrol.ExeResponse Implements OPENcontrol.OPENcontrolPortType.Exe - Return MyBase.Channel.Exe(request) - End Function - - Public Function Exe(ByVal Exe1 As OPENcontrol.Exe) As OPENcontrol.ExeR - Dim inValue As OPENcontrol.ExeRequest = New OPENcontrol.ExeRequest() - inValue.Exe = Exe1 - Dim retVal As OPENcontrol.ExeResponse = CType(Me,OPENcontrol.OPENcontrolPortType).Exe(inValue) - Return retVal.ExeR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_AxesRef(ByVal request As OPENcontrol.AxesRefRequest) As OPENcontrol.AxesRefResponse Implements OPENcontrol.OPENcontrolPortType.AxesRef - Return MyBase.Channel.AxesRef(request) - End Function - - Public Function AxesRef(ByVal AxesRef1 As OPENcontrol.AxesRef) As OPENcontrol.AxesRefR - Dim inValue As OPENcontrol.AxesRefRequest = New OPENcontrol.AxesRefRequest() - inValue.AxesRef = AxesRef1 - Dim retVal As OPENcontrol.AxesRefResponse = CType(Me,OPENcontrol.OPENcontrolPortType).AxesRef(inValue) - Return retVal.AxesRefR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_DncInit(ByVal request As OPENcontrol.DncInitRequest) As OPENcontrol.DncInitResponse Implements OPENcontrol.OPENcontrolPortType.DncInit - Return MyBase.Channel.DncInit(request) - End Function - - Public Function DncInit(ByVal DncInit1 As OPENcontrol.DncInit) As OPENcontrol.DncInitR - Dim inValue As OPENcontrol.DncInitRequest = New OPENcontrol.DncInitRequest() - inValue.DncInit = DncInit1 - Dim retVal As OPENcontrol.DncInitResponse = CType(Me,OPENcontrol.OPENcontrolPortType).DncInit(inValue) - Return retVal.DncInitR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_DncData(ByVal request As OPENcontrol.DncDataRequest) As OPENcontrol.DncDataResponse Implements OPENcontrol.OPENcontrolPortType.DncData - Return MyBase.Channel.DncData(request) - End Function - - Public Function DncData(ByVal DncData1 As OPENcontrol.DncData) As OPENcontrol.DncDataR - Dim inValue As OPENcontrol.DncDataRequest = New OPENcontrol.DncDataRequest() - inValue.DncData = DncData1 - Dim retVal As OPENcontrol.DncDataResponse = CType(Me,OPENcontrol.OPENcontrolPortType).DncData(inValue) - Return retVal.DncDataR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_DncEof(ByVal request As OPENcontrol.DncEofRequest) As OPENcontrol.DncEofResponse Implements OPENcontrol.OPENcontrolPortType.DncEof - Return MyBase.Channel.DncEof(request) - End Function - - Public Function DncEof(ByVal DncEof1 As OPENcontrol.DncEof) As OPENcontrol.DncEofR - Dim inValue As OPENcontrol.DncEofRequest = New OPENcontrol.DncEofRequest() - inValue.DncEof = DncEof1 - Dim retVal As OPENcontrol.DncEofResponse = CType(Me,OPENcontrol.OPENcontrolPortType).DncEof(inValue) - Return retVal.DncEofR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_DncStop(ByVal request As OPENcontrol.DncStopRequest) As OPENcontrol.DncStopResponse Implements OPENcontrol.OPENcontrolPortType.DncStop - Return MyBase.Channel.DncStop(request) - End Function - - Public Function DncStop(ByVal DncStop1 As OPENcontrol.DncStop) As OPENcontrol.DncStopR - Dim inValue As OPENcontrol.DncStopRequest = New OPENcontrol.DncStopRequest() - inValue.DncStop = DncStop1 - Dim retVal As OPENcontrol.DncStopResponse = CType(Me,OPENcontrol.OPENcontrolPortType).DncStop(inValue) - Return retVal.DncStopR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetAxesInfo3(ByVal request As OPENcontrol.GetAxesInfo3Request) As OPENcontrol.GetAxesInfo3Response Implements OPENcontrol.OPENcontrolPortType.GetAxesInfo3 - Return MyBase.Channel.GetAxesInfo3(request) - End Function - - Public Function GetAxesInfo3(ByVal GetAxesInfo31 As OPENcontrol.GetAxesInfo3) As OPENcontrol.GetAxesInfo3R - Dim inValue As OPENcontrol.GetAxesInfo3Request = New OPENcontrol.GetAxesInfo3Request() - inValue.GetAxesInfo3 = GetAxesInfo31 - Dim retVal As OPENcontrol.GetAxesInfo3Response = CType(Me,OPENcontrol.OPENcontrolPortType).GetAxesInfo3(inValue) - Return retVal.GetAxesInfo3R - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetCodeNumber(ByVal request As OPENcontrol.GetCodeNumberRequest) As OPENcontrol.GetCodeNumberResponse Implements OPENcontrol.OPENcontrolPortType.GetCodeNumber - Return MyBase.Channel.GetCodeNumber(request) - End Function - - Public Function GetCodeNumber(ByVal GetCodeNumber1 As OPENcontrol.GetCodeNumber) As OPENcontrol.GetCodeNumberR - Dim inValue As OPENcontrol.GetCodeNumberRequest = New OPENcontrol.GetCodeNumberRequest() - inValue.GetCodeNumber = GetCodeNumber1 - Dim retVal As OPENcontrol.GetCodeNumberResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetCodeNumber(inValue) - Return retVal.GetCodeNumberR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetOptions(ByVal request As OPENcontrol.GetOptionsRequest) As OPENcontrol.GetOptionsResponse Implements OPENcontrol.OPENcontrolPortType.GetOptions - Return MyBase.Channel.GetOptions(request) - End Function - - Public Function GetOptions(ByVal GetOptions1 As OPENcontrol.GetOptions) As OPENcontrol.GetOptionsR - Dim inValue As OPENcontrol.GetOptionsRequest = New OPENcontrol.GetOptionsRequest() - inValue.GetOptions = GetOptions1 - Dim retVal As OPENcontrol.GetOptionsResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetOptions(inValue) - Return retVal.GetOptionsR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetDateTime(ByVal request As OPENcontrol.GetDateTimeRequest) As OPENcontrol.GetDateTimeResponse Implements OPENcontrol.OPENcontrolPortType.GetDateTime - Return MyBase.Channel.GetDateTime(request) - End Function - - Public Function GetDateTime(ByVal GetDateTime1 As OPENcontrol.GetDateTime) As OPENcontrol.GetDateTimeR - Dim inValue As OPENcontrol.GetDateTimeRequest = New OPENcontrol.GetDateTimeRequest() - inValue.GetDateTime = GetDateTime1 - Dim retVal As OPENcontrol.GetDateTimeResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetDateTime(inValue) - Return retVal.GetDateTimeR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SetDateTime(ByVal request As OPENcontrol.SetDateTimeRequest) As OPENcontrol.SetDateTimeResponse Implements OPENcontrol.OPENcontrolPortType.SetDateTime - Return MyBase.Channel.SetDateTime(request) - End Function - - Public Function SetDateTime(ByVal SetDateTime1 As OPENcontrol.SetDateTime) As OPENcontrol.SetDateTimeR - Dim inValue As OPENcontrol.SetDateTimeRequest = New OPENcontrol.SetDateTimeRequest() - inValue.SetDateTime = SetDateTime1 - Dim retVal As OPENcontrol.SetDateTimeResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetDateTime(inValue) - Return retVal.SetDateTimeR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetSerialNumber(ByVal request As OPENcontrol.GetSerialNumberRequest) As OPENcontrol.GetSerialNumberResponse Implements OPENcontrol.OPENcontrolPortType.GetSerialNumber - Return MyBase.Channel.GetSerialNumber(request) - End Function - - Public Function GetSerialNumber(ByVal GetSerialNumber1 As OPENcontrol.GetSerialNumber) As OPENcontrol.GetSerialNumberR - Dim inValue As OPENcontrol.GetSerialNumberRequest = New OPENcontrol.GetSerialNumberRequest() - inValue.GetSerialNumber = GetSerialNumber1 - Dim retVal As OPENcontrol.GetSerialNumberResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetSerialNumber(inValue) - Return retVal.GetSerialNumberR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_PutFile(ByVal request As OPENcontrol.PutFileRequest) As OPENcontrol.PutFileResponse Implements OPENcontrol.OPENcontrolPortType.PutFile - Return MyBase.Channel.PutFile(request) - End Function - - Public Function PutFile(ByVal PutFile1 As OPENcontrol.PutFile) As OPENcontrol.PutFileR - Dim inValue As OPENcontrol.PutFileRequest = New OPENcontrol.PutFileRequest() - inValue.PutFile = PutFile1 - Dim retVal As OPENcontrol.PutFileResponse = CType(Me,OPENcontrol.OPENcontrolPortType).PutFile(inValue) - Return retVal.PutFileR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetFile(ByVal request As OPENcontrol.GetFileRequest) As OPENcontrol.GetFileResponse Implements OPENcontrol.OPENcontrolPortType.GetFile - Return MyBase.Channel.GetFile(request) - End Function - - Public Function GetFile(ByVal GetFile1 As OPENcontrol.GetFile) As OPENcontrol.GetFileR - Dim inValue As OPENcontrol.GetFileRequest = New OPENcontrol.GetFileRequest() - inValue.GetFile = GetFile1 - Dim retVal As OPENcontrol.GetFileResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetFile(inValue) - Return retVal.GetFileR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_PutBinaryFile(ByVal request As OPENcontrol.PutBinaryFileRequest) As OPENcontrol.PutBinaryFileResponse Implements OPENcontrol.OPENcontrolPortType.PutBinaryFile - Return MyBase.Channel.PutBinaryFile(request) - End Function - - Public Function PutBinaryFile(ByVal PutBinaryFile1 As OPENcontrol.PutBinaryFile) As OPENcontrol.PutBinaryFileR - Dim inValue As OPENcontrol.PutBinaryFileRequest = New OPENcontrol.PutBinaryFileRequest() - inValue.PutBinaryFile = PutBinaryFile1 - Dim retVal As OPENcontrol.PutBinaryFileResponse = CType(Me,OPENcontrol.OPENcontrolPortType).PutBinaryFile(inValue) - Return retVal.PutBinaryFileR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetBinaryFile(ByVal request As OPENcontrol.GetBinaryFileRequest) As OPENcontrol.GetBinaryFileResponse Implements OPENcontrol.OPENcontrolPortType.GetBinaryFile - Return MyBase.Channel.GetBinaryFile(request) - End Function - - Public Function GetBinaryFile(ByVal GetBinaryFile1 As OPENcontrol.GetBinaryFile) As OPENcontrol.GetBinaryFileR - Dim inValue As OPENcontrol.GetBinaryFileRequest = New OPENcontrol.GetBinaryFileRequest() - inValue.GetBinaryFile = GetBinaryFile1 - Dim retVal As OPENcontrol.GetBinaryFileResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetBinaryFile(inValue) - Return retVal.GetBinaryFileR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LogFSSetSecurityLevel(ByVal request As OPENcontrol.LogFSSetSecurityLevelRequest) As OPENcontrol.LogFSSetSecurityLevelResponse Implements OPENcontrol.OPENcontrolPortType.LogFSSetSecurityLevel - Return MyBase.Channel.LogFSSetSecurityLevel(request) - End Function - - Public Function LogFSSetSecurityLevel(ByVal LogFSSetSecurityLevel1 As OPENcontrol.LogFSSetSecurityLevel) As OPENcontrol.LogFSSetSecurityLevelR - Dim inValue As OPENcontrol.LogFSSetSecurityLevelRequest = New OPENcontrol.LogFSSetSecurityLevelRequest() - inValue.LogFSSetSecurityLevel = LogFSSetSecurityLevel1 - Dim retVal As OPENcontrol.LogFSSetSecurityLevelResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSSetSecurityLevel(inValue) - Return retVal.LogFSSetSecurityLevelR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LogFSGetSecurityLevel(ByVal request As OPENcontrol.LogFSGetSecurityLevelRequest) As OPENcontrol.LogFSGetSecurityLevelResponse Implements OPENcontrol.OPENcontrolPortType.LogFSGetSecurityLevel - Return MyBase.Channel.LogFSGetSecurityLevel(request) - End Function - - Public Function LogFSGetSecurityLevel(ByVal LogFSGetSecurityLevel1 As OPENcontrol.LogFSGetSecurityLevel) As OPENcontrol.LogFSGetSecurityLevelR - Dim inValue As OPENcontrol.LogFSGetSecurityLevelRequest = New OPENcontrol.LogFSGetSecurityLevelRequest() - inValue.LogFSGetSecurityLevel = LogFSGetSecurityLevel1 - Dim retVal As OPENcontrol.LogFSGetSecurityLevelResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSGetSecurityLevel(inValue) - Return retVal.LogFSGetSecurityLevelR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LogFSLongFileNames(ByVal request As OPENcontrol.LogFSLongFileNamesRequest) As OPENcontrol.LogFSLongFileNamesResponse Implements OPENcontrol.OPENcontrolPortType.LogFSLongFileNames - Return MyBase.Channel.LogFSLongFileNames(request) - End Function - - Public Function LogFSLongFileNames(ByVal LogFSLongFileNames1 As OPENcontrol.LogFSLongFileNames) As OPENcontrol.LogFSLongFileNamesR - Dim inValue As OPENcontrol.LogFSLongFileNamesRequest = New OPENcontrol.LogFSLongFileNamesRequest() - inValue.LogFSLongFileNames = LogFSLongFileNames1 - Dim retVal As OPENcontrol.LogFSLongFileNamesResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSLongFileNames(inValue) - Return retVal.LogFSLongFileNamesR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LogFSGetNumDrive(ByVal request As OPENcontrol.LogFSGetNumDriveRequest) As OPENcontrol.LogFSGetNumDriveResponse Implements OPENcontrol.OPENcontrolPortType.LogFSGetNumDrive - Return MyBase.Channel.LogFSGetNumDrive(request) - End Function - - Public Function LogFSGetNumDrive(ByVal LogFSGetNumDrive1 As OPENcontrol.LogFSGetNumDrive) As OPENcontrol.LogFSGetNumDriveR - Dim inValue As OPENcontrol.LogFSGetNumDriveRequest = New OPENcontrol.LogFSGetNumDriveRequest() - inValue.LogFSGetNumDrive = LogFSGetNumDrive1 - Dim retVal As OPENcontrol.LogFSGetNumDriveResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSGetNumDrive(inValue) - Return retVal.LogFSGetNumDriveR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LogFSGetDriveList(ByVal request As OPENcontrol.LogFSGetDriveListRequest) As OPENcontrol.LogFSGetDriveListResponse Implements OPENcontrol.OPENcontrolPortType.LogFSGetDriveList - Return MyBase.Channel.LogFSGetDriveList(request) - End Function - - Public Function LogFSGetDriveList(ByVal LogFSGetDriveList1 As OPENcontrol.LogFSGetDriveList) As OPENcontrol.LogFSGetDriveListR - Dim inValue As OPENcontrol.LogFSGetDriveListRequest = New OPENcontrol.LogFSGetDriveListRequest() - inValue.LogFSGetDriveList = LogFSGetDriveList1 - Dim retVal As OPENcontrol.LogFSGetDriveListResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSGetDriveList(inValue) - Return retVal.LogFSGetDriveListR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LogFSGetHiddenDriveList(ByVal request As OPENcontrol.LogFSGetHiddenDriveListRequest) As OPENcontrol.LogFSGetHiddenDriveListResponse Implements OPENcontrol.OPENcontrolPortType.LogFSGetHiddenDriveList - Return MyBase.Channel.LogFSGetHiddenDriveList(request) - End Function - - Public Function LogFSGetHiddenDriveList(ByVal LogFSGetHiddenDriveList1 As OPENcontrol.LogFSGetHiddenDriveList) As OPENcontrol.LogFSGetHiddenDriveListR - Dim inValue As OPENcontrol.LogFSGetHiddenDriveListRequest = New OPENcontrol.LogFSGetHiddenDriveListRequest() - inValue.LogFSGetHiddenDriveList = LogFSGetHiddenDriveList1 - Dim retVal As OPENcontrol.LogFSGetHiddenDriveListResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSGetHiddenDriveList(inValue) - Return retVal.LogFSGetHiddenDriveListR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LogFSGetDrivePath(ByVal request As OPENcontrol.LogFSGetDrivePathRequest) As OPENcontrol.LogFSGetDrivePathResponse Implements OPENcontrol.OPENcontrolPortType.LogFSGetDrivePath - Return MyBase.Channel.LogFSGetDrivePath(request) - End Function - - Public Function LogFSGetDrivePath(ByVal LogFSGetDrivePath1 As OPENcontrol.LogFSGetDrivePath) As OPENcontrol.LogFSGetDrivePathR - Dim inValue As OPENcontrol.LogFSGetDrivePathRequest = New OPENcontrol.LogFSGetDrivePathRequest() - inValue.LogFSGetDrivePath = LogFSGetDrivePath1 - Dim retVal As OPENcontrol.LogFSGetDrivePathResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSGetDrivePath(inValue) - Return retVal.LogFSGetDrivePathR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LogFSAddDrive(ByVal request As OPENcontrol.LogFSAddDriveRequest) As OPENcontrol.LogFSAddDriveResponse Implements OPENcontrol.OPENcontrolPortType.LogFSAddDrive - Return MyBase.Channel.LogFSAddDrive(request) - End Function - - Public Function LogFSAddDrive(ByVal LogFSAddDrive1 As OPENcontrol.LogFSAddDrive) As OPENcontrol.LogFSAddDriveR - Dim inValue As OPENcontrol.LogFSAddDriveRequest = New OPENcontrol.LogFSAddDriveRequest() - inValue.LogFSAddDrive = LogFSAddDrive1 - Dim retVal As OPENcontrol.LogFSAddDriveResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSAddDrive(inValue) - Return retVal.LogFSAddDriveR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LogFSRemoveDrive(ByVal request As OPENcontrol.LogFSRemoveDriveRequest) As OPENcontrol.LogFSRemoveDriveResponse Implements OPENcontrol.OPENcontrolPortType.LogFSRemoveDrive - Return MyBase.Channel.LogFSRemoveDrive(request) - End Function - - Public Function LogFSRemoveDrive(ByVal LogFSRemoveDrive1 As OPENcontrol.LogFSRemoveDrive) As OPENcontrol.LogFSRemoveDriveR - Dim inValue As OPENcontrol.LogFSRemoveDriveRequest = New OPENcontrol.LogFSRemoveDriveRequest() - inValue.LogFSRemoveDrive = LogFSRemoveDrive1 - Dim retVal As OPENcontrol.LogFSRemoveDriveResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSRemoveDrive(inValue) - Return retVal.LogFSRemoveDriveR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LogFSReloadDriveList(ByVal request As OPENcontrol.LogFSReloadDriveListRequest) As OPENcontrol.LogFSReloadDriveListResponse Implements OPENcontrol.OPENcontrolPortType.LogFSReloadDriveList - Return MyBase.Channel.LogFSReloadDriveList(request) - End Function - - Public Function LogFSReloadDriveList(ByVal LogFSReloadDriveList1 As OPENcontrol.LogFSReloadDriveList) As OPENcontrol.LogFSReloadDriveListR - Dim inValue As OPENcontrol.LogFSReloadDriveListRequest = New OPENcontrol.LogFSReloadDriveListRequest() - inValue.LogFSReloadDriveList = LogFSReloadDriveList1 - Dim retVal As OPENcontrol.LogFSReloadDriveListResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSReloadDriveList(inValue) - Return retVal.LogFSReloadDriveListR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LogFSCreateDir(ByVal request As OPENcontrol.LogFSCreateDirRequest) As OPENcontrol.LogFSCreateDirResponse Implements OPENcontrol.OPENcontrolPortType.LogFSCreateDir - Return MyBase.Channel.LogFSCreateDir(request) - End Function - - Public Function LogFSCreateDir(ByVal LogFSCreateDir1 As OPENcontrol.LogFSCreateDir) As OPENcontrol.LogFSCreateDirR - Dim inValue As OPENcontrol.LogFSCreateDirRequest = New OPENcontrol.LogFSCreateDirRequest() - inValue.LogFSCreateDir = LogFSCreateDir1 - Dim retVal As OPENcontrol.LogFSCreateDirResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSCreateDir(inValue) - Return retVal.LogFSCreateDirR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LogFSCreateFile(ByVal request As OPENcontrol.LogFSCreateFileRequest) As OPENcontrol.LogFSCreateFileResponse Implements OPENcontrol.OPENcontrolPortType.LogFSCreateFile - Return MyBase.Channel.LogFSCreateFile(request) - End Function - - Public Function LogFSCreateFile(ByVal LogFSCreateFile1 As OPENcontrol.LogFSCreateFile) As OPENcontrol.LogFSCreateFileR - Dim inValue As OPENcontrol.LogFSCreateFileRequest = New OPENcontrol.LogFSCreateFileRequest() - inValue.LogFSCreateFile = LogFSCreateFile1 - Dim retVal As OPENcontrol.LogFSCreateFileResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSCreateFile(inValue) - Return retVal.LogFSCreateFileR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LogFSGetFileSize(ByVal request As OPENcontrol.LogFSGetFileSizeRequest) As OPENcontrol.LogFSGetFileSizeResponse Implements OPENcontrol.OPENcontrolPortType.LogFSGetFileSize - Return MyBase.Channel.LogFSGetFileSize(request) - End Function - - Public Function LogFSGetFileSize(ByVal LogFSGetFileSize1 As OPENcontrol.LogFSGetFileSize) As OPENcontrol.LogFSGetFileSizeR - Dim inValue As OPENcontrol.LogFSGetFileSizeRequest = New OPENcontrol.LogFSGetFileSizeRequest() - inValue.LogFSGetFileSize = LogFSGetFileSize1 - Dim retVal As OPENcontrol.LogFSGetFileSizeResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSGetFileSize(inValue) - Return retVal.LogFSGetFileSizeR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LogFSGetFileAttrib(ByVal request As OPENcontrol.LogFSGetFileAttribRequest) As OPENcontrol.LogFSGetFileAttribResponse Implements OPENcontrol.OPENcontrolPortType.LogFSGetFileAttrib - Return MyBase.Channel.LogFSGetFileAttrib(request) - End Function - - Public Function LogFSGetFileAttrib(ByVal LogFSGetFileAttrib1 As OPENcontrol.LogFSGetFileAttrib) As OPENcontrol.LogFSGetFileAttribR - Dim inValue As OPENcontrol.LogFSGetFileAttribRequest = New OPENcontrol.LogFSGetFileAttribRequest() - inValue.LogFSGetFileAttrib = LogFSGetFileAttrib1 - Dim retVal As OPENcontrol.LogFSGetFileAttribResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSGetFileAttrib(inValue) - Return retVal.LogFSGetFileAttribR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LogFSSetFileAttrib(ByVal request As OPENcontrol.LogFSSetFileAttribRequest) As OPENcontrol.LogFSSetFileAttribResponse Implements OPENcontrol.OPENcontrolPortType.LogFSSetFileAttrib - Return MyBase.Channel.LogFSSetFileAttrib(request) - End Function - - Public Function LogFSSetFileAttrib(ByVal LogFSSetFileAttrib1 As OPENcontrol.LogFSSetFileAttrib) As OPENcontrol.LogFSSetFileAttribR - Dim inValue As OPENcontrol.LogFSSetFileAttribRequest = New OPENcontrol.LogFSSetFileAttribRequest() - inValue.LogFSSetFileAttrib = LogFSSetFileAttrib1 - Dim retVal As OPENcontrol.LogFSSetFileAttribResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSSetFileAttrib(inValue) - Return retVal.LogFSSetFileAttribR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LogFSChangeFileAttrib(ByVal request As OPENcontrol.LogFSChangeFileAttribRequest) As OPENcontrol.LogFSChangeFileAttribResponse Implements OPENcontrol.OPENcontrolPortType.LogFSChangeFileAttrib - Return MyBase.Channel.LogFSChangeFileAttrib(request) - End Function - - Public Function LogFSChangeFileAttrib(ByVal LogFSChangeFileAttrib1 As OPENcontrol.LogFSChangeFileAttrib) As OPENcontrol.LogFSChangeFileAttribR - Dim inValue As OPENcontrol.LogFSChangeFileAttribRequest = New OPENcontrol.LogFSChangeFileAttribRequest() - inValue.LogFSChangeFileAttrib = LogFSChangeFileAttrib1 - Dim retVal As OPENcontrol.LogFSChangeFileAttribResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSChangeFileAttrib(inValue) - Return retVal.LogFSChangeFileAttribR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LogFSFindFirst(ByVal request As OPENcontrol.LogFSFindFirstRequest) As OPENcontrol.LogFSFindFirstResponse Implements OPENcontrol.OPENcontrolPortType.LogFSFindFirst - Return MyBase.Channel.LogFSFindFirst(request) - End Function - - Public Function LogFSFindFirst(ByVal LogFSFindFirst1 As OPENcontrol.LogFSFindFirst) As OPENcontrol.LogFSFindFirstR - Dim inValue As OPENcontrol.LogFSFindFirstRequest = New OPENcontrol.LogFSFindFirstRequest() - inValue.LogFSFindFirst = LogFSFindFirst1 - Dim retVal As OPENcontrol.LogFSFindFirstResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSFindFirst(inValue) - Return retVal.LogFSFindFirstR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LogFSFindNext(ByVal request As OPENcontrol.LogFSFindNextRequest) As OPENcontrol.LogFSFindNextResponse Implements OPENcontrol.OPENcontrolPortType.LogFSFindNext - Return MyBase.Channel.LogFSFindNext(request) - End Function - - Public Function LogFSFindNext(ByVal LogFSFindNext1 As OPENcontrol.LogFSFindNext) As OPENcontrol.LogFSFindNextR - Dim inValue As OPENcontrol.LogFSFindNextRequest = New OPENcontrol.LogFSFindNextRequest() - inValue.LogFSFindNext = LogFSFindNext1 - Dim retVal As OPENcontrol.LogFSFindNextResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSFindNext(inValue) - Return retVal.LogFSFindNextR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LogFSFindClose(ByVal request As OPENcontrol.LogFSFindCloseRequest) As OPENcontrol.LogFSFindCloseResponse Implements OPENcontrol.OPENcontrolPortType.LogFSFindClose - Return MyBase.Channel.LogFSFindClose(request) - End Function - - Public Function LogFSFindClose(ByVal LogFSFindClose1 As OPENcontrol.LogFSFindClose) As OPENcontrol.LogFSFindCloseR - Dim inValue As OPENcontrol.LogFSFindCloseRequest = New OPENcontrol.LogFSFindCloseRequest() - inValue.LogFSFindClose = LogFSFindClose1 - Dim retVal As OPENcontrol.LogFSFindCloseResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSFindClose(inValue) - Return retVal.LogFSFindCloseR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LogFSRemoveFile(ByVal request As OPENcontrol.LogFSRemoveFileRequest) As OPENcontrol.LogFSRemoveFileResponse Implements OPENcontrol.OPENcontrolPortType.LogFSRemoveFile - Return MyBase.Channel.LogFSRemoveFile(request) - End Function - - Public Function LogFSRemoveFile(ByVal LogFSRemoveFile1 As OPENcontrol.LogFSRemoveFile) As OPENcontrol.LogFSRemoveFileR - Dim inValue As OPENcontrol.LogFSRemoveFileRequest = New OPENcontrol.LogFSRemoveFileRequest() - inValue.LogFSRemoveFile = LogFSRemoveFile1 - Dim retVal As OPENcontrol.LogFSRemoveFileResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSRemoveFile(inValue) - Return retVal.LogFSRemoveFileR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LogFSRemoveDir(ByVal request As OPENcontrol.LogFSRemoveDirRequest) As OPENcontrol.LogFSRemoveDirResponse Implements OPENcontrol.OPENcontrolPortType.LogFSRemoveDir - Return MyBase.Channel.LogFSRemoveDir(request) - End Function - - Public Function LogFSRemoveDir(ByVal LogFSRemoveDir1 As OPENcontrol.LogFSRemoveDir) As OPENcontrol.LogFSRemoveDirR - Dim inValue As OPENcontrol.LogFSRemoveDirRequest = New OPENcontrol.LogFSRemoveDirRequest() - inValue.LogFSRemoveDir = LogFSRemoveDir1 - Dim retVal As OPENcontrol.LogFSRemoveDirResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSRemoveDir(inValue) - Return retVal.LogFSRemoveDirR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LogFSRename(ByVal request As OPENcontrol.LogFSRenameRequest) As OPENcontrol.LogFSRenameResponse Implements OPENcontrol.OPENcontrolPortType.LogFSRename - Return MyBase.Channel.LogFSRename(request) - End Function - - Public Function LogFSRename(ByVal LogFSRename1 As OPENcontrol.LogFSRename) As OPENcontrol.LogFSRenameR - Dim inValue As OPENcontrol.LogFSRenameRequest = New OPENcontrol.LogFSRenameRequest() - inValue.LogFSRename = LogFSRename1 - Dim retVal As OPENcontrol.LogFSRenameResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSRename(inValue) - Return retVal.LogFSRenameR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LogFSCopyFile(ByVal request As OPENcontrol.LogFSCopyFileRequest) As OPENcontrol.LogFSCopyFileResponse Implements OPENcontrol.OPENcontrolPortType.LogFSCopyFile - Return MyBase.Channel.LogFSCopyFile(request) - End Function - - Public Function LogFSCopyFile(ByVal LogFSCopyFile1 As OPENcontrol.LogFSCopyFile) As OPENcontrol.LogFSCopyFileR - Dim inValue As OPENcontrol.LogFSCopyFileRequest = New OPENcontrol.LogFSCopyFileRequest() - inValue.LogFSCopyFile = LogFSCopyFile1 - Dim retVal As OPENcontrol.LogFSCopyFileResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSCopyFile(inValue) - Return retVal.LogFSCopyFileR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LogFSGetInfo(ByVal request As OPENcontrol.LogFSGetInfoRequest) As OPENcontrol.LogFSGetInfoResponse Implements OPENcontrol.OPENcontrolPortType.LogFSGetInfo - Return MyBase.Channel.LogFSGetInfo(request) - End Function - - Public Function LogFSGetInfo(ByVal LogFSGetInfo1 As OPENcontrol.LogFSGetInfo) As OPENcontrol.LogFSGetInfoR - Dim inValue As OPENcontrol.LogFSGetInfoRequest = New OPENcontrol.LogFSGetInfoRequest() - inValue.LogFSGetInfo = LogFSGetInfo1 - Dim retVal As OPENcontrol.LogFSGetInfoResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSGetInfo(inValue) - Return retVal.LogFSGetInfoR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetAvailableCustomEvents(ByVal request As OPENcontrol.GetAvailableCustomEventsRequest) As OPENcontrol.GetAvailableCustomEventsResponse Implements OPENcontrol.OPENcontrolPortType.GetAvailableCustomEvents - Return MyBase.Channel.GetAvailableCustomEvents(request) - End Function - - Public Function GetAvailableCustomEvents(ByVal GetAvailableCustomEvents1 As OPENcontrol.GetAvailableCustomEvents) As OPENcontrol.GetAvailableCustomEventsR - Dim inValue As OPENcontrol.GetAvailableCustomEventsRequest = New OPENcontrol.GetAvailableCustomEventsRequest() - inValue.GetAvailableCustomEvents = GetAvailableCustomEvents1 - Dim retVal As OPENcontrol.GetAvailableCustomEventsResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetAvailableCustomEvents(inValue) - Return retVal.GetAvailableCustomEventsR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetSysTick(ByVal request As OPENcontrol.GetSysTickRequest) As OPENcontrol.GetSysTickResponse Implements OPENcontrol.OPENcontrolPortType.GetSysTick - Return MyBase.Channel.GetSysTick(request) - End Function - - Public Function GetSysTick(ByVal GetSysTick1 As OPENcontrol.GetSysTick) As OPENcontrol.GetSysTickR - Dim inValue As OPENcontrol.GetSysTickRequest = New OPENcontrol.GetSysTickRequest() - inValue.GetSysTick = GetSysTick1 - Dim retVal As OPENcontrol.GetSysTickResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetSysTick(inValue) - Return retVal.GetSysTickR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetProcessConfNum(ByVal request As OPENcontrol.GetProcessConfNumRequest) As OPENcontrol.GetProcessConfNumResponse Implements OPENcontrol.OPENcontrolPortType.GetProcessConfNum - Return MyBase.Channel.GetProcessConfNum(request) - End Function - - Public Function GetProcessConfNum(ByVal GetProcessConfNum1 As OPENcontrol.GetProcessConfNum) As OPENcontrol.GetProcessConfNumR - Dim inValue As OPENcontrol.GetProcessConfNumRequest = New OPENcontrol.GetProcessConfNumRequest() - inValue.GetProcessConfNum = GetProcessConfNum1 - Dim retVal As OPENcontrol.GetProcessConfNumResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetProcessConfNum(inValue) - Return retVal.GetProcessConfNumR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_MonOpenChannel(ByVal request As OPENcontrol.MonOpenChannelRequest) As OPENcontrol.MonOpenChannelResponse Implements OPENcontrol.OPENcontrolPortType.MonOpenChannel - Return MyBase.Channel.MonOpenChannel(request) - End Function - - Public Function MonOpenChannel(ByVal MonOpenChannel1 As OPENcontrol.MonOpenChannel) As OPENcontrol.MonOpenChannelR - Dim inValue As OPENcontrol.MonOpenChannelRequest = New OPENcontrol.MonOpenChannelRequest() - inValue.MonOpenChannel = MonOpenChannel1 - Dim retVal As OPENcontrol.MonOpenChannelResponse = CType(Me,OPENcontrol.OPENcontrolPortType).MonOpenChannel(inValue) - Return retVal.MonOpenChannelR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_MonCloseChannel(ByVal request As OPENcontrol.MonCloseChannelRequest) As OPENcontrol.MonCloseChannelResponse Implements OPENcontrol.OPENcontrolPortType.MonCloseChannel - Return MyBase.Channel.MonCloseChannel(request) - End Function - - Public Function MonCloseChannel(ByVal MonCloseChannel1 As OPENcontrol.MonCloseChannel) As OPENcontrol.MonCloseChannelR - Dim inValue As OPENcontrol.MonCloseChannelRequest = New OPENcontrol.MonCloseChannelRequest() - inValue.MonCloseChannel = MonCloseChannel1 - Dim retVal As OPENcontrol.MonCloseChannelResponse = CType(Me,OPENcontrol.OPENcontrolPortType).MonCloseChannel(inValue) - Return retVal.MonCloseChannelR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_MonAddVariable(ByVal request As OPENcontrol.MonAddVariableRequest) As OPENcontrol.MonAddVariableResponse Implements OPENcontrol.OPENcontrolPortType.MonAddVariable - Return MyBase.Channel.MonAddVariable(request) - End Function - - Public Function MonAddVariable(ByVal MonAddVariable1 As OPENcontrol.MonAddVariable) As OPENcontrol.MonAddVariableR - Dim inValue As OPENcontrol.MonAddVariableRequest = New OPENcontrol.MonAddVariableRequest() - inValue.MonAddVariable = MonAddVariable1 - Dim retVal As OPENcontrol.MonAddVariableResponse = CType(Me,OPENcontrol.OPENcontrolPortType).MonAddVariable(inValue) - Return retVal.MonAddVariableR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_MonDeleteVariable(ByVal request As OPENcontrol.MonDeleteVariableRequest) As OPENcontrol.MonDeleteVariableResponse Implements OPENcontrol.OPENcontrolPortType.MonDeleteVariable - Return MyBase.Channel.MonDeleteVariable(request) - End Function - - Public Function MonDeleteVariable(ByVal MonDeleteVariable1 As OPENcontrol.MonDeleteVariable) As OPENcontrol.MonDeleteVariableR - Dim inValue As OPENcontrol.MonDeleteVariableRequest = New OPENcontrol.MonDeleteVariableRequest() - inValue.MonDeleteVariable = MonDeleteVariable1 - Dim retVal As OPENcontrol.MonDeleteVariableResponse = CType(Me,OPENcontrol.OPENcontrolPortType).MonDeleteVariable(inValue) - Return retVal.MonDeleteVariableR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_MonStartSampling(ByVal request As OPENcontrol.MonStartSamplingRequest) As OPENcontrol.MonStartSamplingResponse Implements OPENcontrol.OPENcontrolPortType.MonStartSampling - Return MyBase.Channel.MonStartSampling(request) - End Function - - Public Function MonStartSampling(ByVal MonStartSampling1 As OPENcontrol.MonStartSampling) As OPENcontrol.MonStartSamplingR - Dim inValue As OPENcontrol.MonStartSamplingRequest = New OPENcontrol.MonStartSamplingRequest() - inValue.MonStartSampling = MonStartSampling1 - Dim retVal As OPENcontrol.MonStartSamplingResponse = CType(Me,OPENcontrol.OPENcontrolPortType).MonStartSampling(inValue) - Return retVal.MonStartSamplingR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_MonStopSampling(ByVal request As OPENcontrol.MonStopSamplingRequest) As OPENcontrol.MonStopSamplingResponse Implements OPENcontrol.OPENcontrolPortType.MonStopSampling - Return MyBase.Channel.MonStopSampling(request) - End Function - - Public Function MonStopSampling(ByVal MonStopSampling1 As OPENcontrol.MonStopSampling) As OPENcontrol.MonStopSamplingR - Dim inValue As OPENcontrol.MonStopSamplingRequest = New OPENcontrol.MonStopSamplingRequest() - inValue.MonStopSampling = MonStopSampling1 - Dim retVal As OPENcontrol.MonStopSamplingResponse = CType(Me,OPENcontrol.OPENcontrolPortType).MonStopSampling(inValue) - Return retVal.MonStopSamplingR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_MonGetVariable(ByVal request As OPENcontrol.MonGetVariableRequest) As OPENcontrol.MonGetVariableResponse Implements OPENcontrol.OPENcontrolPortType.MonGetVariable - Return MyBase.Channel.MonGetVariable(request) - End Function - - Public Function MonGetVariable(ByVal MonGetVariable1 As OPENcontrol.MonGetVariable) As OPENcontrol.MonGetVariableR - Dim inValue As OPENcontrol.MonGetVariableRequest = New OPENcontrol.MonGetVariableRequest() - inValue.MonGetVariable = MonGetVariable1 - Dim retVal As OPENcontrol.MonGetVariableResponse = CType(Me,OPENcontrol.OPENcontrolPortType).MonGetVariable(inValue) - Return retVal.MonGetVariableR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_CheckHistory(ByVal request As OPENcontrol.CheckHistoryRequest) As OPENcontrol.CheckHistoryResponse Implements OPENcontrol.OPENcontrolPortType.CheckHistory - Return MyBase.Channel.CheckHistory(request) - End Function - - Public Function CheckHistory(ByVal CheckHistory1 As OPENcontrol.CheckHistory) As OPENcontrol.CheckHistoryR - Dim inValue As OPENcontrol.CheckHistoryRequest = New OPENcontrol.CheckHistoryRequest() - inValue.CheckHistory = CheckHistory1 - Dim retVal As OPENcontrol.CheckHistoryResponse = CType(Me,OPENcontrol.OPENcontrolPortType).CheckHistory(inValue) - Return retVal.CheckHistoryR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_ReadHistoryEmergMsg(ByVal request As OPENcontrol.ReadHistoryEmergMsgRequest) As OPENcontrol.ReadHistoryEmergMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadHistoryEmergMsg - Return MyBase.Channel.ReadHistoryEmergMsg(request) - End Function - - Public Function ReadHistoryEmergMsg(ByVal ReadHistoryEmergMsg1 As OPENcontrol.ReadHistoryEmergMsg) As OPENcontrol.ReadHistoryEmergMsgR - Dim inValue As OPENcontrol.ReadHistoryEmergMsgRequest = New OPENcontrol.ReadHistoryEmergMsgRequest() - inValue.ReadHistoryEmergMsg = ReadHistoryEmergMsg1 - Dim retVal As OPENcontrol.ReadHistoryEmergMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadHistoryEmergMsg(inValue) - Return retVal.ReadHistoryEmergMsgR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_ReadHistoryErrorMsg(ByVal request As OPENcontrol.ReadHistoryErrorMsgRequest) As OPENcontrol.ReadHistoryErrorMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadHistoryErrorMsg - Return MyBase.Channel.ReadHistoryErrorMsg(request) - End Function - - Public Function ReadHistoryErrorMsg(ByVal ReadHistoryErrorMsg1 As OPENcontrol.ReadHistoryErrorMsg) As OPENcontrol.ReadHistoryErrorMsgR - Dim inValue As OPENcontrol.ReadHistoryErrorMsgRequest = New OPENcontrol.ReadHistoryErrorMsgRequest() - inValue.ReadHistoryErrorMsg = ReadHistoryErrorMsg1 - Dim retVal As OPENcontrol.ReadHistoryErrorMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadHistoryErrorMsg(inValue) - Return retVal.ReadHistoryErrorMsgR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_ReadHistoryLogMsg(ByVal request As OPENcontrol.ReadHistoryLogMsgRequest) As OPENcontrol.ReadHistoryLogMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadHistoryLogMsg - Return MyBase.Channel.ReadHistoryLogMsg(request) - End Function - - Public Function ReadHistoryLogMsg(ByVal ReadHistoryLogMsg1 As OPENcontrol.ReadHistoryLogMsg) As OPENcontrol.ReadHistoryLogMsgR - Dim inValue As OPENcontrol.ReadHistoryLogMsgRequest = New OPENcontrol.ReadHistoryLogMsgRequest() - inValue.ReadHistoryLogMsg = ReadHistoryLogMsg1 - Dim retVal As OPENcontrol.ReadHistoryLogMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadHistoryLogMsg(inValue) - Return retVal.ReadHistoryLogMsgR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_ReadHistoryAnomalyMsg(ByVal request As OPENcontrol.ReadHistoryAnomalyMsgRequest) As OPENcontrol.ReadHistoryAnomalyMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadHistoryAnomalyMsg - Return MyBase.Channel.ReadHistoryAnomalyMsg(request) - End Function - - Public Function ReadHistoryAnomalyMsg(ByVal ReadHistoryAnomalyMsg1 As OPENcontrol.ReadHistoryAnomalyMsg) As OPENcontrol.ReadHistoryAnomalyMsgR - Dim inValue As OPENcontrol.ReadHistoryAnomalyMsgRequest = New OPENcontrol.ReadHistoryAnomalyMsgRequest() - inValue.ReadHistoryAnomalyMsg = ReadHistoryAnomalyMsg1 - Dim retVal As OPENcontrol.ReadHistoryAnomalyMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadHistoryAnomalyMsg(inValue) - Return retVal.ReadHistoryAnomalyMsgR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_ReadCurrentErrorMsg(ByVal request As OPENcontrol.ReadCurrentErrorMsgRequest) As OPENcontrol.ReadCurrentErrorMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadCurrentErrorMsg - Return MyBase.Channel.ReadCurrentErrorMsg(request) - End Function - - Public Function ReadCurrentErrorMsg(ByVal ReadCurrentErrorMsg1 As OPENcontrol.ReadCurrentErrorMsg) As OPENcontrol.ReadCurrentErrorMsgR - Dim inValue As OPENcontrol.ReadCurrentErrorMsgRequest = New OPENcontrol.ReadCurrentErrorMsgRequest() - inValue.ReadCurrentErrorMsg = ReadCurrentErrorMsg1 - Dim retVal As OPENcontrol.ReadCurrentErrorMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadCurrentErrorMsg(inValue) - Return retVal.ReadCurrentErrorMsgR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_ReadCurrentEmergMsg(ByVal request As OPENcontrol.ReadCurrentEmergMsgRequest) As OPENcontrol.ReadCurrentEmergMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadCurrentEmergMsg - Return MyBase.Channel.ReadCurrentEmergMsg(request) - End Function - - Public Function ReadCurrentEmergMsg(ByVal ReadCurrentEmergMsg1 As OPENcontrol.ReadCurrentEmergMsg) As OPENcontrol.ReadCurrentEmergMsgR - Dim inValue As OPENcontrol.ReadCurrentEmergMsgRequest = New OPENcontrol.ReadCurrentEmergMsgRequest() - inValue.ReadCurrentEmergMsg = ReadCurrentEmergMsg1 - Dim retVal As OPENcontrol.ReadCurrentEmergMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadCurrentEmergMsg(inValue) - Return retVal.ReadCurrentEmergMsgR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_ReadCurrentAnomalyMsg(ByVal request As OPENcontrol.ReadCurrentAnomalyMsgRequest) As OPENcontrol.ReadCurrentAnomalyMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadCurrentAnomalyMsg - Return MyBase.Channel.ReadCurrentAnomalyMsg(request) - End Function - - Public Function ReadCurrentAnomalyMsg(ByVal ReadCurrentAnomalyMsg1 As OPENcontrol.ReadCurrentAnomalyMsg) As OPENcontrol.ReadCurrentAnomalyMsgR - Dim inValue As OPENcontrol.ReadCurrentAnomalyMsgRequest = New OPENcontrol.ReadCurrentAnomalyMsgRequest() - inValue.ReadCurrentAnomalyMsg = ReadCurrentAnomalyMsg1 - Dim retVal As OPENcontrol.ReadCurrentAnomalyMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadCurrentAnomalyMsg(inValue) - Return retVal.ReadCurrentAnomalyMsgR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetPTechSizes(ByVal request As OPENcontrol.GetPTechSizesRequest) As OPENcontrol.GetPTechSizesResponse Implements OPENcontrol.OPENcontrolPortType.GetPTechSizes - Return MyBase.Channel.GetPTechSizes(request) - End Function - - Public Function GetPTechSizes(ByVal GetPTechSizes1 As OPENcontrol.GetPTechSizes) As OPENcontrol.GetPTechSizesR - Dim inValue As OPENcontrol.GetPTechSizesRequest = New OPENcontrol.GetPTechSizesRequest() - inValue.GetPTechSizes = GetPTechSizes1 - Dim retVal As OPENcontrol.GetPTechSizesResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetPTechSizes(inValue) - Return retVal.GetPTechSizesR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LoadPTech(ByVal request As OPENcontrol.LoadPTechRequest) As OPENcontrol.LoadPTechResponse Implements OPENcontrol.OPENcontrolPortType.LoadPTech - Return MyBase.Channel.LoadPTech(request) - End Function - - Public Function LoadPTech(ByVal LoadPTech1 As OPENcontrol.LoadPTech) As OPENcontrol.LoadPTechR - Dim inValue As OPENcontrol.LoadPTechRequest = New OPENcontrol.LoadPTechRequest() - inValue.LoadPTech = LoadPTech1 - Dim retVal As OPENcontrol.LoadPTechResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LoadPTech(inValue) - Return retVal.LoadPTechR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetMarkerInfo(ByVal request As OPENcontrol.GetMarkerInfoRequest) As OPENcontrol.GetMarkerInfoResponse Implements OPENcontrol.OPENcontrolPortType.GetMarkerInfo - Return MyBase.Channel.GetMarkerInfo(request) - End Function - - Public Function GetMarkerInfo(ByVal GetMarkerInfo1 As OPENcontrol.GetMarkerInfo) As OPENcontrol.GetMarkerInfoR - Dim inValue As OPENcontrol.GetMarkerInfoRequest = New OPENcontrol.GetMarkerInfoRequest() - inValue.GetMarkerInfo = GetMarkerInfo1 - Dim retVal As OPENcontrol.GetMarkerInfoResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetMarkerInfo(inValue) - Return retVal.GetMarkerInfoR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_ManagePartProgram(ByVal request As OPENcontrol.ManagePartProgramRequest) As OPENcontrol.ManagePartProgramResponse Implements OPENcontrol.OPENcontrolPortType.ManagePartProgram - Return MyBase.Channel.ManagePartProgram(request) - End Function - - Public Function ManagePartProgram(ByVal ManagePartProgram1 As OPENcontrol.ManagePartProgram) As OPENcontrol.ManagePartProgramR - Dim inValue As OPENcontrol.ManagePartProgramRequest = New OPENcontrol.ManagePartProgramRequest() - inValue.ManagePartProgram = ManagePartProgram1 - Dim retVal As OPENcontrol.ManagePartProgramResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ManagePartProgram(inValue) - Return retVal.ManagePartProgramR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LogFSOpenFile(ByVal request As OPENcontrol.LogFSOpenFileRequest) As OPENcontrol.LogFSOpenFileResponse Implements OPENcontrol.OPENcontrolPortType.LogFSOpenFile - Return MyBase.Channel.LogFSOpenFile(request) - End Function - - Public Function LogFSOpenFile(ByVal LogFSOpenFile1 As OPENcontrol.LogFSOpenFile) As OPENcontrol.LogFSOpenFileR - Dim inValue As OPENcontrol.LogFSOpenFileRequest = New OPENcontrol.LogFSOpenFileRequest() - inValue.LogFSOpenFile = LogFSOpenFile1 - Dim retVal As OPENcontrol.LogFSOpenFileResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSOpenFile(inValue) - Return retVal.LogFSOpenFileR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LogFSCloseFile(ByVal request As OPENcontrol.LogFSCloseFileRequest) As OPENcontrol.LogFSCloseFileResponse Implements OPENcontrol.OPENcontrolPortType.LogFSCloseFile - Return MyBase.Channel.LogFSCloseFile(request) - End Function - - Public Function LogFSCloseFile(ByVal LogFSCloseFile1 As OPENcontrol.LogFSCloseFile) As OPENcontrol.LogFSCloseFileR - Dim inValue As OPENcontrol.LogFSCloseFileRequest = New OPENcontrol.LogFSCloseFileRequest() - inValue.LogFSCloseFile = LogFSCloseFile1 - Dim retVal As OPENcontrol.LogFSCloseFileResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSCloseFile(inValue) - Return retVal.LogFSCloseFileR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LogFSWriteRecord(ByVal request As OPENcontrol.LogFSWriteRecordRequest) As OPENcontrol.LogFSWriteRecordResponse Implements OPENcontrol.OPENcontrolPortType.LogFSWriteRecord - Return MyBase.Channel.LogFSWriteRecord(request) - End Function - - Public Function LogFSWriteRecord(ByVal LogFSWriteRecord1 As OPENcontrol.LogFSWriteRecord) As OPENcontrol.LogFSWriteRecordR - Dim inValue As OPENcontrol.LogFSWriteRecordRequest = New OPENcontrol.LogFSWriteRecordRequest() - inValue.LogFSWriteRecord = LogFSWriteRecord1 - Dim retVal As OPENcontrol.LogFSWriteRecordResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSWriteRecord(inValue) - Return retVal.LogFSWriteRecordR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_LogFSReadRecord(ByVal request As OPENcontrol.LogFSReadRecordRequest) As OPENcontrol.LogFSReadRecordResponse Implements OPENcontrol.OPENcontrolPortType.LogFSReadRecord - Return MyBase.Channel.LogFSReadRecord(request) - End Function - - Public Function LogFSReadRecord(ByVal LogFSReadRecord1 As OPENcontrol.LogFSReadRecord) As OPENcontrol.LogFSReadRecordR - Dim inValue As OPENcontrol.LogFSReadRecordRequest = New OPENcontrol.LogFSReadRecordRequest() - inValue.LogFSReadRecord = LogFSReadRecord1 - Dim retVal As OPENcontrol.LogFSReadRecordResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSReadRecord(inValue) - Return retVal.LogFSReadRecordR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_ReadRemapDefinitions(ByVal request As OPENcontrol.ReadRemapDefinitionsRequest) As OPENcontrol.ReadRemapDefinitionsResponse Implements OPENcontrol.OPENcontrolPortType.ReadRemapDefinitions - Return MyBase.Channel.ReadRemapDefinitions(request) - End Function - - Public Function ReadRemapDefinitions(ByVal ReadRemapDefinitions1 As OPENcontrol.ReadRemapDefinitions) As OPENcontrol.ReadRemapDefinitionsR - Dim inValue As OPENcontrol.ReadRemapDefinitionsRequest = New OPENcontrol.ReadRemapDefinitionsRequest() - inValue.ReadRemapDefinitions = ReadRemapDefinitions1 - Dim retVal As OPENcontrol.ReadRemapDefinitionsResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadRemapDefinitions(inValue) - Return retVal.ReadRemapDefinitionsR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_WriteRemapDefinitions(ByVal request As OPENcontrol.WriteRemapDefinitionsRequest) As OPENcontrol.WriteRemapDefinitionsResponse Implements OPENcontrol.OPENcontrolPortType.WriteRemapDefinitions - Return MyBase.Channel.WriteRemapDefinitions(request) - End Function - - Public Function WriteRemapDefinitions(ByVal WriteRemapDefinitions1 As OPENcontrol.WriteRemapDefinitions) As OPENcontrol.WriteRemapDefinitionsR - Dim inValue As OPENcontrol.WriteRemapDefinitionsRequest = New OPENcontrol.WriteRemapDefinitionsRequest() - inValue.WriteRemapDefinitions = WriteRemapDefinitions1 - Dim retVal As OPENcontrol.WriteRemapDefinitionsResponse = CType(Me,OPENcontrol.OPENcontrolPortType).WriteRemapDefinitions(inValue) - Return retVal.WriteRemapDefinitionsR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetServoPar(ByVal request As OPENcontrol.GetServoParRequest) As OPENcontrol.GetServoParResponse Implements OPENcontrol.OPENcontrolPortType.GetServoPar - Return MyBase.Channel.GetServoPar(request) - End Function - - Public Function GetServoPar(ByVal GetServoPar1 As OPENcontrol.GetServoPar) As OPENcontrol.GetServoParR - Dim inValue As OPENcontrol.GetServoParRequest = New OPENcontrol.GetServoParRequest() - inValue.GetServoPar = GetServoPar1 - Dim retVal As OPENcontrol.GetServoParResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetServoPar(inValue) - Return retVal.GetServoParR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SetServoPar(ByVal request As OPENcontrol.SetServoParRequest) As OPENcontrol.SetServoParResponse Implements OPENcontrol.OPENcontrolPortType.SetServoPar - Return MyBase.Channel.SetServoPar(request) - End Function - - Public Function SetServoPar(ByVal SetServoPar1 As OPENcontrol.SetServoPar) As OPENcontrol.SetServoParR - Dim inValue As OPENcontrol.SetServoParRequest = New OPENcontrol.SetServoParRequest() - inValue.SetServoPar = SetServoPar1 - Dim retVal As OPENcontrol.SetServoParResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetServoPar(inValue) - Return retVal.SetServoParR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetCNCRegKey(ByVal request As OPENcontrol.GetCNCRegKeyRequest) As OPENcontrol.GetCNCRegKeyResponse Implements OPENcontrol.OPENcontrolPortType.GetCNCRegKey - Return MyBase.Channel.GetCNCRegKey(request) - End Function - - Public Function GetCNCRegKey(ByVal GetCNCRegKey1 As OPENcontrol.GetCNCRegKey) As OPENcontrol.GetCNCRegKeyR - Dim inValue As OPENcontrol.GetCNCRegKeyRequest = New OPENcontrol.GetCNCRegKeyRequest() - inValue.GetCNCRegKey = GetCNCRegKey1 - Dim retVal As OPENcontrol.GetCNCRegKeyResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetCNCRegKey(inValue) - Return retVal.GetCNCRegKeyR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SetIpAddress(ByVal request As OPENcontrol.SetIpAddressRequest) As OPENcontrol.SetIpAddressResponse Implements OPENcontrol.OPENcontrolPortType.SetIpAddress - Return MyBase.Channel.SetIpAddress(request) - End Function - - Public Function SetIpAddress(ByVal SetIpAddress1 As OPENcontrol.SetIpAddress) As OPENcontrol.SetIpAddressR - Dim inValue As OPENcontrol.SetIpAddressRequest = New OPENcontrol.SetIpAddressRequest() - inValue.SetIpAddress = SetIpAddress1 - Dim retVal As OPENcontrol.SetIpAddressResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetIpAddress(inValue) - Return retVal.SetIpAddressR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_GetProcInInput(ByVal request As OPENcontrol.GetProcInInputRequest) As OPENcontrol.GetProcInInputResponse Implements OPENcontrol.OPENcontrolPortType.GetProcInInput - Return MyBase.Channel.GetProcInInput(request) - End Function - - Public Function GetProcInInput(ByVal GetProcInInput1 As OPENcontrol.GetProcInInput) As OPENcontrol.GetProcInInputR - Dim inValue As OPENcontrol.GetProcInInputRequest = New OPENcontrol.GetProcInInputRequest() - inValue.GetProcInInput = GetProcInInput1 - Dim retVal As OPENcontrol.GetProcInInputResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetProcInInput(inValue) - Return retVal.GetProcInInputR - End Function - - _ - Function OPENcontrol_OPENcontrolPortType_SndProcInpData(ByVal request As OPENcontrol.SndProcInpDataRequest) As OPENcontrol.SndProcInpDataResponse Implements OPENcontrol.OPENcontrolPortType.SndProcInpData - Return MyBase.Channel.SndProcInpData(request) - End Function - - Public Function SndProcInpData(ByVal SndProcInpData1 As OPENcontrol.SndProcInpData) As OPENcontrol.SndProcInpDataR - Dim inValue As OPENcontrol.SndProcInpDataRequest = New OPENcontrol.SndProcInpDataRequest() - inValue.SndProcInpData = SndProcInpData1 - Dim retVal As OPENcontrol.SndProcInpDataResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SndProcInpData(inValue) - Return retVal.SndProcInpDataR - End Function - End Class -End Namespace diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/configuration.svcinfo b/IOB-WIN/CncLib/Service References/OPENcontrol/configuration.svcinfo deleted file mode 100644 index 198883d..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/configuration.svcinfo +++ /dev/null @@ -1,10 +0,0 @@ - - - - - - - - - - \ No newline at end of file diff --git a/IOB-WIN/CncLib/Service References/OPENcontrol/configuration91.svcinfo b/IOB-WIN/CncLib/Service References/OPENcontrol/configuration91.svcinfo deleted file mode 100644 index 0a06217..0000000 --- a/IOB-WIN/CncLib/Service References/OPENcontrol/configuration91.svcinfo +++ /dev/null @@ -1,201 +0,0 @@ - - - - - - - OPENcontrol - - - - - - - - - - - - - - - - - - - - - StrongWildcard - - - - - - 65536 - - - - - - - - - System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement - - - 0 - - - 0 - - - 0 - - - 0 - - - 0 - - - System.Text.UTF8Encoding - - - Buffered - - - - - - Text - - - System.ServiceModel.Configuration.BasicHttpSecurityElement - - - None - - - System.ServiceModel.Configuration.HttpTransportSecurityElement - - - None - - - None - - - System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement - - - Never - - - TransportSelected - - - (Raccolta) - - - - - - System.ServiceModel.Configuration.BasicHttpMessageSecurityElement - - - UserName - - - Default - - - - - - - - - http://192.168.20.2:8080 - - - - - - basicHttpBinding - - - OPENcontrol - - - OPENcontrol.OPENcontrolPortType - - - System.ServiceModel.Configuration.AddressHeaderCollectionElement - - - <Header /> - - - System.ServiceModel.Configuration.IdentityElement - - - System.ServiceModel.Configuration.UserPrincipalNameElement - - - - - - System.ServiceModel.Configuration.ServicePrincipalNameElement - - - - - - System.ServiceModel.Configuration.DnsElement - - - - - - System.ServiceModel.Configuration.RsaElement - - - - - - System.ServiceModel.Configuration.CertificateElement - - - - - - System.ServiceModel.Configuration.CertificateReferenceElement - - - My - - - LocalMachine - - - FindBySubjectDistinguishedName - - - - - - False - - - OPENcontrol - - - - - - - - - - - \ No newline at end of file diff --git a/IOB-WIN/CncLib/app.config b/IOB-WIN/CncLib/app.config deleted file mode 100644 index ae1f778..0000000 --- a/IOB-WIN/CncLib/app.config +++ /dev/null @@ -1,33 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/IOB-WIN/IOB-UT/BinaryFormatter.cs b/IOB-WIN/IOB-UT/BinaryFormatter.cs deleted file mode 100644 index 9ab1f0a..0000000 --- a/IOB-WIN/IOB-UT/BinaryFormatter.cs +++ /dev/null @@ -1,136 +0,0 @@ -using System; -using System.Globalization; -using System.Numerics; - -namespace IOB_UT -{ - - public class BinaryFormatter : IFormatProvider, ICustomFormatter - { - // IFormatProvider.GetFormat implementation. - public object GetFormat(Type formatType) - { - // Determine whether custom formatting object is requested. - if (formatType == typeof(ICustomFormatter)) - return this; - else - return null; - } - - // Format number in binary (B), octal (O), or hexadecimal (H). - public string Format(string format, object arg, IFormatProvider formatProvider) - { - // Handle format string. - int baseNumber; - // Handle null or empty format string, string with precision specifier. - string thisFmt = String.Empty; - // Extract first character of format string (precision specifiers - // are not supported). - if (!String.IsNullOrEmpty(format)) - thisFmt = format.Length > 1 ? format.Substring(0, 1) : format; - - - // Get a byte array representing the numeric value. - byte[] bytes; - if (arg is sbyte) - { - string byteString = ((sbyte)arg).ToString("X2"); - bytes = new byte[1] { Byte.Parse(byteString, System.Globalization.NumberStyles.HexNumber) }; - } - else if (arg is byte) - { - bytes = new byte[1] { (byte)arg }; - } - else if (arg is short) - { - bytes = BitConverter.GetBytes((short)arg); - } - else if (arg is int) - { - bytes = BitConverter.GetBytes((int)arg); - } - else if (arg is long) - { - bytes = BitConverter.GetBytes((long)arg); - } - else if (arg is ushort) - { - bytes = BitConverter.GetBytes((ushort)arg); - } - else if (arg is uint) - { - bytes = BitConverter.GetBytes((uint)arg); - } - else if (arg is ulong) - { - bytes = BitConverter.GetBytes((ulong)arg); - } - else if (arg is BigInteger) - { - bytes = ((BigInteger)arg).ToByteArray(); - } - else - { - try - { - return HandleOtherFormats(format, arg); - } - catch (FormatException e) - { - throw new FormatException(String.Format("The format of '{0}' is invalid.", format), e); - } - } - - switch (thisFmt.ToUpper()) - { - // Binary formatting. - case "B": - baseNumber = 2; - break; - case "O": - baseNumber = 8; - break; - case "H": - baseNumber = 16; - break; - // Handle unsupported format strings. - default: - try - { - return HandleOtherFormats(format, arg); - } - catch (FormatException e) - { - throw new FormatException(String.Format("The format of '{0}' is invalid.", format), e); - } - } - - // Return a formatted string. - string numericString = String.Empty; - for (int ctr = bytes.GetUpperBound(0); ctr >= bytes.GetLowerBound(0); ctr--) - { - string byteString = Convert.ToString(bytes[ctr], baseNumber); - if (baseNumber == 2) - byteString = new String('0', 8 - byteString.Length) + byteString; - else if (baseNumber == 8) - byteString = new String('0', 4 - byteString.Length) + byteString; - // Base is 16. - else - byteString = new String('0', 2 - byteString.Length) + byteString; - - numericString += byteString + " "; - } - return numericString.Trim(); - } - - private string HandleOtherFormats(string format, object arg) - { - if (arg is IFormattable) - return ((IFormattable)arg).ToString(format, CultureInfo.CurrentCulture); - else if (arg != null) - return arg.ToString(); - else - return String.Empty; - } - } -} diff --git a/IOB-WIN/IOB-UT/IOB-UT.csproj b/IOB-WIN/IOB-UT/IOB-UT.csproj deleted file mode 100644 index 90aa78c..0000000 --- a/IOB-WIN/IOB-UT/IOB-UT.csproj +++ /dev/null @@ -1,63 +0,0 @@ - - - - - Debug - AnyCPU - {90512E12-29FC-460D-94CC-648C2A072DBD} - Library - Properties - IOB_UT - IOB-UT - v4.6.1 - 512 - - - true - full - false - bin\Debug\ - DEBUG;TRACE - prompt - 4 - - - pdbonly - true - bin\Release\ - TRACE - prompt - 4 - - - - ..\packages\NLog.4.4.12\lib\net45\NLog.dll - - - - - - - - - - - - - - - - - - - - - Always - - - Designer - - - - - \ No newline at end of file diff --git a/IOB-WIN/IOB-UT/IniFile.cs b/IOB-WIN/IOB-UT/IniFile.cs deleted file mode 100644 index f6a2e2d..0000000 --- a/IOB-WIN/IOB-UT/IniFile.cs +++ /dev/null @@ -1,247 +0,0 @@ -using System; -using System.Runtime.InteropServices; -using System.Text; -using System.Globalization; - -namespace IOB_UT -{ - /// - /// Create a new INI file to store or load data - /// - public class IniFile - { - public string FileName; // INI filename - - // import windows dll functions - #region DLL_IMPORT_FUNCTIONS - [DllImport("kernel32", CharSet = CharSet.Auto, BestFitMapping = false)] - private static extern long WritePrivateProfileString(string section, string key, string val, string filePath); - [DllImport("kernel32")] - private static extern bool WritePrivateProfileSection(string section, string value, string filePath); - [DllImport("kernel32")] - private static extern int GetPrivateProfileString(string section, string key, string def, StringBuilder retVal, int size, string filePath); - [DllImport("kernel32")] - private static extern int GetPrivateProfileInt(string section, string key, int def, string filePath); - [DllImport("kernel32")] - private static extern int GetPrivateProfileSection(string section, IntPtr retVal, uint size, string filePath); - #endregion - - /// - /// Constructor - /// - /// - public IniFile(string INIPath) - { - FileName = INIPath; - } - - /// - /// Write data to the INI file - /// - /// - /// Section name - /// - /// Key Name - /// - /// Value Name - public void WriteString(string Section, string Key, string Value) - { - WritePrivateProfileString(Section, Key, Value, FileName); - } - - /// - /// Write a boolean value - /// - /// - /// - /// - public void WriteBoolean(string Section, string Key, bool Value) - { - int flag = Value ? 1 : 0; - WriteString(Section, Key, Convert.ToString(flag)); - } - - /// - /// Write an integer value - /// - /// - /// - /// - public void WriteInteger(string Section, string Key, int Value) - { - WriteString(Section, Key, Convert.ToString(Value)); - } - - /// - /// Write a double value - /// - /// - /// - /// - public void WriteDouble(string Section, string Key, double Value) - { - WriteString(Section, Key, Convert.ToString(Value, NumberFormatInfo.InvariantInfo)); - } - - /// - /// Read data from the Ini file - /// - /// - /// - /// - /// - public string ReadString(string Section, string Key) - { - StringBuilder temp = new StringBuilder(255); - int i = GetPrivateProfileString(Section, Key, "", temp, 255, FileName); - return temp.ToString(); - } - - /// - /// Read a string. If not found use default value - /// - /// - /// - /// - /// - public string ReadString(string Section, string Key, string DefaultVal) - { - string temp = ReadString(Section, Key); - if (temp == "") temp = DefaultVal; - return temp; - } - - /// - /// Read an integer - /// - /// - /// - /// - public int ReadInteger(string Section, string Key) - { - return GetPrivateProfileInt(Section, Key, 0, FileName); - //System.Convert.ToInt32(IniReadValue(Section, Key)); - } - - /// - /// Read an integer. If not found use default value - /// - /// - /// - /// - /// - public int ReadInteger(string Section, string Key, int DefaultVal) - { - //int temp = System.Convert.ToInt32(IniReadString(Section, Key, Convert.ToString(DefaultVal))); - //return temp; - return GetPrivateProfileInt(Section, Key, DefaultVal, FileName); - } - - /// - /// Read a boolean - /// - /// - /// - /// - public bool ReadBoolean(string Section, string Key) - { - return (ReadInteger(Section, Key, 0) != 0); - } - - /// - /// Read a boolean with default value - /// - /// - /// - /// - /// - public bool ReadBoolean(string Section, string Key, bool DefaultVal) - { - int v = DefaultVal ? 1 : 0; - return (ReadInteger(Section, Key, v) != 0); - } - - /// - /// Read a complete section (keys=values) - /// - /// - /// Section name - /// - public string[] ReadSection(string Section) - { - const int bufferSize = 2048; // max is 32767 - - StringBuilder returnedString = new StringBuilder(); - - IntPtr pReturnedString = Marshal.AllocCoTaskMem(bufferSize); - try - { - int bytesReturned = GetPrivateProfileSection(Section, pReturnedString, bufferSize, FileName); - - //bytesReturned -1 to remove trailing \0 - for (int i = 0; i < bytesReturned - 1; i++) - returnedString.Append((char)Marshal.ReadByte(new IntPtr((uint)pReturnedString + (uint)i))); - } - finally - { - Marshal.FreeCoTaskMem(pReturnedString); - } - - string sectionData = returnedString.ToString(); - return sectionData.Split('\0'); - } - - /// - /// Return true if value exists - /// - /// - /// - /// - public bool ValueExists(string Section, string Key) - { - StringBuilder temp = new StringBuilder(255); - int i = GetPrivateProfileString(Section, Key, "", temp, 255, FileName); - return (i > 0); - } - - /// - /// Completely remove one section - /// - /// - public void IniDeleteSection(string Section) - { - WritePrivateProfileSection(Section, null, FileName); - } - - /// - /// Return true if section exists - /// - /// - /// - public bool IniSectionExists(string Section) - { - int bytesReturned = 0; - const int bufferSize = 2048; // max is 32767 - IntPtr pReturnedString = Marshal.AllocCoTaskMem(bufferSize); - try - { - bytesReturned = GetPrivateProfileSection(Section, pReturnedString, bufferSize, FileName); - } - finally - { - Marshal.FreeCoTaskMem(pReturnedString); - } - return (bytesReturned > 0); - } - - /// - /// Delete a key from section - /// - /// - /// - public void IniDeleteKey(string Section, string Key) - { - WritePrivateProfileString(Section, Key, null, FileName); - } - } -} diff --git a/IOB-WIN/IOB-UT/NLog.config b/IOB-WIN/IOB-UT/NLog.config deleted file mode 100644 index 7a0f3aa..0000000 --- a/IOB-WIN/IOB-UT/NLog.config +++ /dev/null @@ -1,41 +0,0 @@ - - - - - - - - - - - - - - - - - - - - diff --git a/IOB-WIN/IOB-UT/NLog.xsd b/IOB-WIN/IOB-UT/NLog.xsd deleted file mode 100644 index 4740d80..0000000 --- a/IOB-WIN/IOB-UT/NLog.xsd +++ /dev/null @@ -1,3103 +0,0 @@ - - - - - - - - - - - - - - - Watch config file for changes and reload automatically. - - - - - Print internal NLog messages to the console. Default value is: false - - - - - Print internal NLog messages to the console error output. Default value is: false - - - - - Write internal NLog messages to the specified file. - - - - - Log level threshold for internal log messages. Default value is: Info. - - - - - Global log level threshold for application log messages. Messages below this level won't be logged.. - - - - - Throw an exception when there is an internal error. Default value is: false. - - - - - Throw an exception when there is a configuration error. If not set, determined by throwExceptions. - - - - - Gets or sets a value indicating whether Variables should be kept on configuration reload. Default value is: false. - - - - - Write internal NLog messages to the System.Diagnostics.Trace. Default value is: false. - - - - - Write timestamps for internal NLog messages. Default value is: true. - - - - - Use InvariantCulture as default culture instead of CurrentCulture. Default value is: false. - - - - - - - - - - - - - - Make all targets within this section asynchronous (creates additional threads but the calling thread isn't blocked by any target writes). - - - - - - - - - - - - - - - - - Prefix for targets/layout renderers/filters/conditions loaded from this assembly. - - - - - Load NLog extensions from the specified file (*.dll) - - - - - Load NLog extensions from the specified assembly. Assembly name should be fully qualified. - - - - - - - - - - Name of the logger. May include '*' character which acts like a wildcard. Allowed forms are: *, Name, *Name, Name* and *Name* - - - - - Comma separated list of levels that this rule matches. - - - - - Minimum level that this rule matches. - - - - - Maximum level that this rule matches. - - - - - Level that this rule matches. - - - - - Comma separated list of target names. - - - - - Ignore further rules if this one matches. - - - - - Enable or disable logging rule. Disabled rules are ignored. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Name of the file to be included. You could use * wildcard. The name is relative to the name of the current config file. - - - - - Ignore any errors in the include file. - - - - - - - Variable name. - - - - - Variable value. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Number of log events that should be processed in a batch by the lazy writer thread. - - - - - Limit of full s to write before yielding into Performance is better when writing many small batches, than writing a single large batch - - - - - Action to be taken when the lazy writer thread request queue count exceeds the set limit. - - - - - Limit on the number of requests in the lazy writer thread request queue. - - - - - Time in milliseconds to sleep between batches. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Delay the flush until the LogEvent has been confirmed as written - - - - - Condition expression. Log events who meet this condition will cause a flush on the wrapped target. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Number of log events to be buffered. - - - - - Timeout (in milliseconds) after which the contents of buffer will be flushed if there's no write in the specified period of time. Use -1 to disable timed flushes. - - - - - Indicates whether to use sliding timeout. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Encoding to be used. - - - - - Instance of that is used to format log messages. - - - - - End of line value if a newline is appended at the end of log message . - - - - - Maximum message size in bytes. - - - - - Indicates whether to append newline at the end of log message. - - - - - Action that should be taken if the will be more connections than . - - - - - Action that should be taken if the message is larger than maxMessageSize. - - - - - Maximum current connections. 0 = no maximum. - - - - - Indicates whether to keep connection open whenever possible. - - - - - Size of the connection cache (number of connections which are kept alive). - - - - - Network address. - - - - - Maximum queue size. - - - - - Indicates whether to include stack contents. - - - - - Indicates whether to include source info (file name and line number) in the information sent over the network. - - - - - Indicates whether to include NLog-specific extensions to log4j schema. - - - - - Indicates whether to include dictionary contents. - - - - - Indicates whether to include call site (class and method name) in the information sent over the network. - - - - - AppInfo field. By default it's the friendly name of the current AppDomain. - - - - - NDC item separator. - - - - - Indicates whether to include dictionary contents. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - - - - - - Layout that should be use to calcuate the value for the parameter. - - - - - Viewer parameter name. - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Text to be rendered. - - - - - Header. - - - - - Footer. - - - - - Indicates whether to use default row highlighting rules. - - - - - Indicates whether to auto-check if the console is available. - Disables console writing if Environment.UserInteractive = False (Windows Service) - Disables console writing if Console Standard Input is not available (Non-Console-App) - - - - - The encoding for writing messages to the . - - - - - Indicates whether the error stream (stderr) should be used instead of the output stream (stdout). - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Condition that must be met in order to set the specified foreground and background color. - - - - - Background color. - - - - - Foreground color. - - - - - - - - - - - - - - - - Indicates whether to ignore case when comparing texts. - - - - - Regular expression to be matched. You must specify either text or regex. - - - - - Text to be matched. You must specify either text or regex. - - - - - Indicates whether to match whole words only. - - - - - Compile the ? This can improve the performance, but at the costs of more memory usage. If false, the Regex Cache is used. - - - - - Background color. - - - - - Foreground color. - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Text to be rendered. - - - - - Header. - - - - - Footer. - - - - - Indicates whether to send the log messages to the standard error instead of the standard output. - - - - - Indicates whether to auto-check if the console is available - Disables console writing if Environment.UserInteractive = False (Windows Service) - Disables console writing if Console Standard Input is not available (Non-Console-App) - - - - - The encoding for writing messages to the . - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Obsolete - value will be ignored! The logging code always runs outside of transaction. Gets or sets a value indicating whether to use database transactions. Some data providers require this. - - - - - Database user name. If the ConnectionString is not provided this value will be used to construct the "User ID=" part of the connection string. - - - - - Name of the database provider. - - - - - Database password. If the ConnectionString is not provided this value will be used to construct the "Password=" part of the connection string. - - - - - Indicates whether to keep the database connection open between the log events. - - - - - Database name. If the ConnectionString is not provided this value will be used to construct the "Database=" part of the connection string. - - - - - Name of the connection string (as specified in <connectionStrings> configuration section. - - - - - Connection string. When provided, it overrides the values specified in DBHost, DBUserName, DBPassword, DBDatabase. - - - - - Database host name. If the ConnectionString is not provided this value will be used to construct the "Server=" part of the connection string. - - - - - Connection string using for installation and uninstallation. If not provided, regular ConnectionString is being used. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - Text of the SQL command to be run on each log level. - - - - - Type of the SQL command to be run on each log level. - - - - - - - - - - - - - - - - - - - - - - - Type of the command. - - - - - Connection string to run the command against. If not provided, connection string from the target is used. - - - - - Indicates whether to ignore failures. - - - - - Command text. - - - - - - - - - - - - - - Layout that should be use to calcuate the value for the parameter. - - - - - Database parameter name. - - - - - Database parameter precision. - - - - - Database parameter scale. - - - - - Database parameter size. - - - - - - - - - - - - - - - - Name of the target. - - - - - Text to be rendered. - - - - - Header. - - - - - Footer. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - Name of the target. - - - - - Layout used to format log messages. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Layout used to format log messages. - - - - - Layout that renders event Category. - - - - - Layout that renders event ID. - - - - - Name of the Event Log to write to. This can be System, Application or any user-defined name. - - - - - Name of the machine on which Event Log service is running. - - - - - Value to be used as the event Source. - - - - - Action to take if the message is larger than the option. - - - - - Optional entrytype. When not set, or when not convertable to then determined by - - - - - Maximum Event log size in kilobytes. If null, the value won't be set. Default is 512 Kilobytes as specified by Eventlog API - - - - - Message length limit to write to the Event Log. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Indicates whether to return to the first target after any successful write. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Text to be rendered. - - - - - Header. - - - - - Footer. - - - - - File encoding. - - - - - Line ending mode. - - - - - Way file archives are numbered. - - - - - Name of the file to be used for an archive. - - - - - Indicates whether to automatically archive log files every time the specified time passes. - - - - - Size in bytes above which log files will be automatically archived. Warning: combining this with isn't supported. We cannot create multiple archive files, if they should have the same name. Choose: - - - - - Indicates whether to compress archive files into the zip archive format. - - - - - Maximum number of archive files that should be kept. - - - - - Gets or set a value indicating whether a managed file stream is forced, instead of using the native implementation. - - - - - Is the an absolute or relative path? - - - - - Cleanup invalid values in a filename, e.g. slashes in a filename. If set to true, this can impact the performance of massive writes. If set to false, nothing gets written when the filename is wrong. - - - - - Whether or not this target should just discard all data that its asked to write. Mostly used for when testing NLog Stack except final write - - - - - Is the an absolute or relative path? - - - - - Value indicationg whether file creation calls should be synchronized by a system global mutex. - - - - - Maximum number of log filenames that should be stored as existing. - - - - - Indicates whether the footer should be written only when the file is archived. - - - - - Name of the file to write to. - - - - - Value specifying the date format to use when archiving files. - - - - - Indicates whether to archive old log file on startup. - - - - - Indicates whether to create directories if they do not exist. - - - - - File attributes (Windows only). - - - - - Indicates whether to delete old log file on startup. - - - - - Indicates whether to replace file contents on each write instead of appending log message at the end. - - - - - Indicates whether to enable log file(s) to be deleted. - - - - - Number of times the write is appended on the file before NLog discards the log message. - - - - - Indicates whether concurrent writes to the log file by multiple processes on the same host. - - - - - Indicates whether to keep log file open instead of opening and closing it on each logging event. - - - - - Indicates whether concurrent writes to the log file by multiple processes on different network hosts. - - - - - Number of files to be kept open. Setting this to a higher value may improve performance in a situation where a single File target is writing to many files (such as splitting by level or by logger). - - - - - Maximum number of seconds that files are kept open. If this number is negative the files are not automatically closed after a period of inactivity. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - Log file buffer size in bytes. - - - - - Indicates whether to automatically flush the file buffers after each log message. - - - - - Delay in milliseconds to wait before attempting to write to the file again. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Condition expression. Log events who meet this condition will be forwarded to the wrapped target. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Windows domain name to change context to. - - - - - Required impersonation level. - - - - - Type of the logon provider. - - - - - Logon Type. - - - - - User account password. - - - - - Indicates whether to revert to the credentials of the process instead of impersonating another user. - - - - - Username to change context to. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Interval in which messages will be written up to the number of messages. - - - - - Maximum allowed number of messages written per . - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Endpoint address. - - - - - Name of the endpoint configuration in WCF configuration file. - - - - - Indicates whether to use a WCF service contract that is one way (fire and forget) or two way (request-reply) - - - - - Client ID. - - - - - Indicates whether to include per-event properties in the payload sent to the server. - - - - - Indicates whether to use binary message encoding. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - Layout that should be use to calculate the value for the parameter. - - - - - Name of the parameter. - - - - - Type of the parameter. - - - - - Type of the parameter. Obsolete alias for - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Text to be rendered. - - - - - Header. - - - - - Footer. - - - - - Indicates whether to send message as HTML instead of plain text. - - - - - Encoding to be used for sending e-mail. - - - - - Indicates whether to add new lines between log entries. - - - - - CC email addresses separated by semicolons (e.g. john@domain.com;jane@domain.com). - - - - - Recipients' email addresses separated by semicolons (e.g. john@domain.com;jane@domain.com). - - - - - BCC email addresses separated by semicolons (e.g. john@domain.com;jane@domain.com). - - - - - Mail message body (repeated for each log message send in one mail). - - - - - Mail subject. - - - - - Sender's email address (e.g. joe@domain.com). - - - - - Indicates the SMTP client timeout. - - - - - Priority used for sending mails. - - - - - Indicates whether NewLine characters in the body should be replaced with tags. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - SMTP Server to be used for sending. - - - - - SMTP Authentication mode. - - - - - Username used to connect to SMTP server (used when SmtpAuthentication is set to "basic"). - - - - - Password used to authenticate against SMTP server (used when SmtpAuthentication is set to "basic"). - - - - - Indicates whether SSL (secure sockets layer) should be used when communicating with SMTP server. - - - - - Port number that SMTP Server is listening on. - - - - - Indicates whether the default Settings from System.Net.MailSettings should be used. - - - - - Folder where applications save mail messages to be processed by the local SMTP server. - - - - - Specifies how outgoing email messages will be handled. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Layout used to format log messages. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Layout used to format log messages. - - - - - Encoding to be used when writing text to the queue. - - - - - Indicates whether to use the XML format when serializing message. This will also disable creating queues. - - - - - Indicates whether to check if a queue exists before writing to it. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - Indicates whether to create the queue if it doesn't exists. - - - - - Label to associate with each message. - - - - - Name of the queue to write to. - - - - - Indicates whether to use recoverable messages (with guaranteed delivery). - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Class name. - - - - - Method name. The method must be public and static. Use the AssemblyQualifiedName , https://msdn.microsoft.com/en-us/library/system.type.assemblyqualifiedname(v=vs.110).aspx e.g. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Layout used to format log messages. - - - - - Encoding to be used. - - - - - End of line value if a newline is appended at the end of log message . - - - - - Maximum message size in bytes. - - - - - Indicates whether to append newline at the end of log message. - - - - - Action that should be taken if the will be more connections than . - - - - - Action that should be taken if the message is larger than maxMessageSize. - - - - - Network address. - - - - - Size of the connection cache (number of connections which are kept alive). - - - - - Indicates whether to keep connection open whenever possible. - - - - - Maximum current connections. 0 = no maximum. - - - - - Maximum queue size. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Encoding to be used. - - - - - Instance of that is used to format log messages. - - - - - End of line value if a newline is appended at the end of log message . - - - - - Maximum message size in bytes. - - - - - Indicates whether to append newline at the end of log message. - - - - - Action that should be taken if the will be more connections than . - - - - - Action that should be taken if the message is larger than maxMessageSize. - - - - - Maximum current connections. 0 = no maximum. - - - - - Indicates whether to keep connection open whenever possible. - - - - - Size of the connection cache (number of connections which are kept alive). - - - - - Network address. - - - - - Maximum queue size. - - - - - Indicates whether to include stack contents. - - - - - Indicates whether to include source info (file name and line number) in the information sent over the network. - - - - - Indicates whether to include NLog-specific extensions to log4j schema. - - - - - Indicates whether to include dictionary contents. - - - - - Indicates whether to include call site (class and method name) in the information sent over the network. - - - - - AppInfo field. By default it's the friendly name of the current AppDomain. - - - - - NDC item separator. - - - - - Indicates whether to include dictionary contents. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - Name of the target. - - - - - Layout used to format log messages. - - - - - Indicates whether to perform layout calculation. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - Name of the target. - - - - - Layout used to format log messages. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Indicates whether performance counter should be automatically created. - - - - - Name of the performance counter category. - - - - - Counter help text. - - - - - Name of the performance counter. - - - - - Performance counter type. - - - - - The value by which to increment the counter. - - - - - Performance counter instance name. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Default filter to be applied when no specific rule matches. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - Condition to be tested. - - - - - Resulting filter to be applied when the condition matches. - - - - - - - - - - - - - Name of the target. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - Name of the target. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - Number of times to repeat each log message. - - - - - - - - - - - - - - - - - Name of the target. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - Number of retries that should be attempted on the wrapped target in case of a failure. - - - - - Time to wait between retries in milliseconds. - - - - - - - - - - - - - - - Name of the target. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - Name of the target. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - Name of the target. - - - - - Layout used to format log messages. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Should we include the BOM (Byte-order-mark) for UTF? Influences the property. This will only work for UTF-8. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - Encoding. - - - - - Value whether escaping be done according to the old NLog style (Very non-standard) - - - - - Value whether escaping be done according to Rfc3986 (Supports Internationalized Resource Identifiers - IRIs) - - - - - Web service method name. Only used with Soap. - - - - - Web service namespace. Only used with Soap. - - - - - Indicates whether to pre-authenticate the HttpWebRequest (Requires 'Authorization' in parameters) - - - - - Protocol to be used when calling web service. - - - - - Web service URL. - - - - - Name of the root XML element, if POST of XML document chosen. If so, this property must not be null. (see and ). - - - - - (optional) root namespace of the XML document, if POST of XML document chosen. (see and ). - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Footer layout. - - - - - Header layout. - - - - - Body layout (can be repeated multiple times). - - - - - Custom column delimiter value (valid when ColumnDelimiter is set to 'Custom'). - - - - - Column delimiter. - - - - - Quote Character. - - - - - Quoting mode. - - - - - Indicates whether CVS should include header. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Layout of the column. - - - - - Name of the column. - - - - - - - - - - - - - - - - - - List of property names to exclude when is true - - - - - Option to include all properties from the log events - - - - - Indicates whether to include contents of the dictionary. - - - - - Option to render the empty object value {} - - - - - Option to suppress the extra spaces in the output json - - - - - Indicates whether to include contents of the dictionary. - - - - - - - - - - - - - - - Determines wether or not this attribute will be Json encoded. - - - - - Indicates whether to escape non-ascii characters - - - - - Layout that will be rendered as the attribute's value. - - - - - Name of the attribute. - - - - - - - - - - - - - - Footer layout. - - - - - Header layout. - - - - - Body layout (can be repeated multiple times). - - - - - - - - - - - - - - - - Option to include all properties from the log events - - - - - Indicates whether to include contents of the dictionary. - - - - - Indicates whether to include contents of the dictionary. - - - - - - - - - - - - - - Layout text. - - - - - - - - - - - - - - - Action to be taken when filter matches. - - - - - Condition expression. - - - - - - - - - - - - - - - - - - - - - - - - - - Action to be taken when filter matches. - - - - - Indicates whether to ignore case when comparing strings. - - - - - Layout to be used to filter log messages. - - - - - Substring to be matched. - - - - - - - - - - - - - - - - - Action to be taken when filter matches. - - - - - String to compare the layout to. - - - - - Indicates whether to ignore case when comparing strings. - - - - - Layout to be used to filter log messages. - - - - - - - - - - - - - - - - - Action to be taken when filter matches. - - - - - Indicates whether to ignore case when comparing strings. - - - - - Layout to be used to filter log messages. - - - - - Substring to be matched. - - - - - - - - - - - - - - - - - Action to be taken when filter matches. - - - - - String to compare the layout to. - - - - - Indicates whether to ignore case when comparing strings. - - - - - Layout to be used to filter log messages. - - - - - - - - - - - - - - - - - - - - - - - Action to be taken when filter matches. - - - - - Layout to be used to filter log messages. - - - - - Default number of unique filter values to expect, will automatically increase if needed - - - - - Append FilterCount to the when an event is no longer filtered - - - - - Insert FilterCount value into when an event is no longer filtered - - - - - Max number of unique filter values to expect simultaneously - - - - - Max length of filter values, will truncate if above limit - - - - - Default buffer size for the internal buffers - - - - - Reuse internal buffers, and doesn't have to constantly allocate new buffers - - - - - How long before a filter expires, and logging is accepted again - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - \ No newline at end of file diff --git a/IOB-WIN/IOB-UT/Properties/AssemblyInfo.cs b/IOB-WIN/IOB-UT/Properties/AssemblyInfo.cs deleted file mode 100644 index 742e7bb..0000000 --- a/IOB-WIN/IOB-UT/Properties/AssemblyInfo.cs +++ /dev/null @@ -1,36 +0,0 @@ -using System.Reflection; -using System.Runtime.CompilerServices; -using System.Runtime.InteropServices; - -// Le informazioni generali relative a un assembly sono controllate dal seguente -// set di attributi. Modificare i valori di questi attributi per modificare le informazioni -// associate a un assembly. -[assembly: AssemblyTitle("IOB-UT")] -[assembly: AssemblyDescription("")] -[assembly: AssemblyConfiguration("")] -[assembly: AssemblyCompany("")] -[assembly: AssemblyProduct("IOB-UT")] -[assembly: AssemblyCopyright("Copyright © 2017")] -[assembly: AssemblyTrademark("")] -[assembly: AssemblyCulture("")] - -// Se si imposta ComVisible su false, i tipi in questo assembly non saranno visibili -// ai componenti COM. Se è necessario accedere a un tipo in questo assembly da -// COM, impostare su true l'attributo ComVisible per tale tipo. -[assembly: ComVisible(false)] - -// Se il progetto viene esposto a COM, il GUID seguente verrà utilizzato come ID della libreria dei tipi -[assembly: Guid("90512e12-29fc-460d-94cc-648c2a072dbd")] - -// Le informazioni sulla versione di un assembly sono costituite dai seguenti quattro valori: -// -// Versione principale -// Versione secondaria -// Numero di build -// Revisione -// -// È possibile specificare tutti i valori oppure impostare valori predefiniti per i numeri relativi alla revisione e alla build -// usando l'asterisco '*' come illustrato di seguito: -// [assembly: AssemblyVersion("1.0.*")] -[assembly: AssemblyVersion("1.0.0.0")] -[assembly: AssemblyFileVersion("1.0.0.0")] diff --git a/IOB-WIN/IOB-UT/baseUtils.cs b/IOB-WIN/IOB-UT/baseUtils.cs deleted file mode 100644 index 28bf300..0000000 --- a/IOB-WIN/IOB-UT/baseUtils.cs +++ /dev/null @@ -1,990 +0,0 @@ -using System; -using System.Collections; -using System.Collections.Generic; -using System.Configuration; -using System.Data; -using System.IO; -using System.Linq; -using NLog; - -namespace IOB_UT -{ - public class baseUtils - { - /// - /// classe logger - /// - public static Logger lg; - - /// - /// legge conf in formato char - /// - /// - /// - public static char CRC(string key) - { - char answ = '-'; - try - { - answ = ConfigurationManager.AppSettings[key].ToCharArray()[0]; - } - catch - { } - return answ; - } - /// - /// legge conf in formato stringa - /// - /// - /// - public static string CRS(string key) - { - string answ = ""; - try - { - answ = ConfigurationManager.AppSettings[key].ToString(); - } - catch - { } - return answ; - } - /// - /// legge conf in formato INT - /// - /// - /// - public static Int32 CRI(string key) - { - int answ = 0; - try - { - answ = Convert.ToInt32(CRS(key)); - } - catch - { } - return answ; - } - /// - /// legge conf in formato BOOLean - /// - /// - /// - public static bool CRB(string key) - { - bool answ = false; - try - { - answ = Convert.ToBoolean(CRS(key)); - } - catch - { } - return answ; - } - /// - /// verifica se un dato bit sia alzato (come flag di strobe) - /// - /// valore da testare - /// valore cercato, può essere un singolo valore o un insieme in modalità AND - /// - public static bool IsSetAll(Strobe value, Strobe flag) - { - return ((value & flag) == flag); - } - /// - /// verifica se un dato bit sia alzato (come flag di strobe) - /// - /// valore da testare - /// valore cercato, può essere un singolo valore o un insieme in modalità OR - /// - public static bool IsSetAny(Strobe value, Strobe flag) - { - return ((value & flag) != 0); - } - /// - /// verifica se un dato bit sia alzato (come flag di strobe) - /// - /// valore da testare - /// valore cercato, può essere un singolo valore o un insieme in modalità AND - /// - public static bool IsSetAll(StatusBitMap value, StatusBitMap flag) - { - return ((value & flag) == flag); - } - /// - /// verifica se un dato bit sia alzato (come flag di strobe) - /// - /// valore da testare - /// valore cercato, può essere un singolo valore o un insieme in modalità OR - /// - public static bool IsSetAny(StatusBitMap value, StatusBitMap flag) - { - return ((value & flag) != 0); - } - /// - /// formatta un numero in forma binaria 0/1 - /// - /// - /// - public static string binaryForm(int valore) - { - string answ = ""; - try - { - answ = string.Format(new BinaryFormatter(), "{0:B}", valore); - } - catch - { } - return answ; - } - /// - /// Method to convert an integer to a string containing the number in binary. A negative - /// number will be formatted as a 32-character binary number in two's compliment. - /// - /// self-explanatory - /// if binary number contains fewer characters leading zeros are added - /// string as described above - public static string IntToBinStr(int theNumber, int minimumDigits) - { - return Convert.ToString(theNumber, 2).PadLeft(minimumDigits, '0'); - } - /// - /// imposta un bit al valore richiesto duplicando il valore IN come OUT - /// - /// valore originale da aggiornare - /// valore richiesto x il bit (0/1) - /// indice bit, 0 based (es: 0..31 per 32bit) - /// - public static byte[] setBitOnStFlag(byte[] original, bool bitBool, int bitIndex) - { - int bitVal = 0; - if (bitBool) bitVal = 1; - // risposta è identica ad originale... - byte[] answ = original; - // verifico se il bit è 0/1b - if (bitVal <= 1 && bitVal >= 0) - { - // verifico se si possa aggiornare il bit richiesto (<= al totale dei bit...) - if (bitIndex <= original.Length * 8 - 1) - { - // calcolo byte - int byteIndex = bitIndex / 8; - // bit nel byte - int bitInByteIndex = bitIndex % 8; - // bit richiesto - byte mask = (byte)(bitVal << bitInByteIndex); - // imposto! - answ[byteIndex] |= mask; - } - } - return answ; - } - /// - /// Converte un bitarray a byte[] - /// - /// - /// - public static byte[] ToByteArray(BitArray bits) - { - int numBytes = bits.Count / 8; - if (bits.Count % 8 != 0) numBytes++; - - byte[] bytes = new byte[numBytes]; - int byteIndex = 0, bitIndex = 0; - - for (int i = 0; i < bits.Count; i++) - { - if (bits[i]) - bytes[byteIndex] |= (byte)(1 << (7 - bitIndex)); - - bitIndex++; - if (bitIndex == 8) - { - bitIndex = 0; - byteIndex++; - } - } - - return bytes; - } - - /// - /// Scrittura dictionary su file - /// - /// - /// - public static void WriteBin(Dictionary dictionary, string file) - { - using (FileStream fs = File.OpenWrite(file)) - using (BinaryWriter writer = new BinaryWriter(fs)) - { - // Put count. - writer.Write(dictionary.Count); - // Write pairs. - foreach (var pair in dictionary) - { - writer.Write(pair.Key); - writer.Write(pair.Value); - } - } - } - /// - /// Lettura dictionary da file - /// - /// - /// - public static Dictionary ReadBin(string file) - { - var result = new Dictionary(); - // verifico file esista... - if (!File.Exists(file)) - { - FileStream fs = File.Create(file); - fs.Close(); - } - using (FileStream fs = File.OpenRead(file)) - using (BinaryReader reader = new BinaryReader(fs)) - { - // Get count. - int count = 0; - try - { - count = reader.ReadInt32(); - } - catch - { } - // Read in all pairs. - for (int i = 0; i < count; i++) - { - string key = reader.ReadString(); - string value = reader.ReadString(); - result[key] = value; - } - } - return result; - } - - /// - /// Scrittura dictionary su file - /// - /// - /// - public static void WritePlain(Dictionary dictionary, string file) - { - string dirPath = file.Substring(0, file.LastIndexOf('\\')); - // verifico directory - if (!Directory.Exists(dirPath)) - { - Directory.CreateDirectory(dirPath); - } - string[] lines = dictionary.OrderBy(i => i.Key).Select(kvp => kvp.Key + ":" + kvp.Value).ToArray(); - try - { - File.WriteAllLines(file, lines); - } - catch (Exception exc) - { - lg.Info(exc, string.Format("Errore in scrittura file {0}", file)); - } - } - /// - /// Lettura dictionary da file - /// - /// - /// - public static Dictionary ReadPlain(string file) - { - // inizializzo num righe lette... - int numRow = 0; - var result = new Dictionary(); - // verifico file esista... - if (!File.Exists(file)) - { - FileStream fs = File.Create(file); - fs.Close(); - } - try - { - string[] lines = File.ReadAllLines(file); - result = lines.Select(l => l.Split(':')).ToDictionary(a => a[0], a => a[1]); - numRow = result.Count; - } - catch - { } - // se leggesse un valore NON coerente (senza righe) restituisce un file vuoto... - if (numRow == 0) - { - result = new Dictionary(); - } - return result; - } - - } - /// - /// Oggetto timing x archiviazione dati perfomances - /// - public class TimeRec - { - /// - /// Codice univoco chiamata: tipo R4 (read 4 byte), W2 (write 2 Byte) - /// - public string codCall; - /// - /// Num chiamate totale - /// - public int numCall; - /// - /// Tempo medio chiamata - /// - public double avgMsec - { - get - { - return totMsec.TotalMilliseconds / numCall; - } - } - /// - /// Totale Msec accumulati - /// - public TimeSpan totMsec; - /// - /// Classe record timing - /// - public TimeRec() - { - codCall = ""; - numCall = 0; - totMsec = new TimeSpan(0); - } - /// - /// Classe record timing - /// - /// - /// - public TimeRec(string codice, long nTicks) - { - codCall = codice; - numCall = 1; - totMsec = new TimeSpan(nTicks); - } - } - - /// - /// Classe gestione valori campionati su periodo - /// - public class sampleVect - { - /// - /// Dimensione finestra di campionamento (secondi) - /// - protected int windSize; - /// - /// vettore valori temporali della serie - /// - protected List lTime; - /// - /// vettore valoti puntuali della serie - /// - protected List lVal; - /// - /// Inizializzo l'oggetto - /// - public sampleVect() - { - // init valori default... - windSize = baseUtils.CRI("countWindSize") > 0 ? baseUtils.CRI("countWindSize") : 60; - lTime = new List(); - lVal = new List(); - } - /// - /// Conteggio elementi - /// - protected int numElem - { - get - { - int answ = 0; - try - { - answ = lTime.Count; - } - catch - { } - return answ; - } - } - /// - /// Verifica ampiezza finestra valori First-Last - /// - protected double flWindSize - { - get - { - double answ = 0; - if (numElem > 1) - { - answ = lTime.Last().Subtract(lTime[0]).TotalSeconds; - } - return answ; - } - } - /// - /// Verifica ampiezza finestra valori Second-Last - /// - protected double slWindSize - { - get - { - double answ = 0; - if (numElem > 2) // altrimenti SE non ne ho almeno 3 NON posso avere secondo/ultimo... - { - - answ = lTime.Last().Subtract(lTime[1]).TotalSeconds; - } - return answ; - } - } - /// - /// Aggiunge un valore alla serie ed eventualmente elimina i valori superflui a garantirne una finestra temporale valida - /// - /// - /// - public void addValue(DateTime tempo, int valore) - { - lTime.Add(tempo); - lVal.Add(valore); - // verifico se siano da accorciare le serie... ovvero i 2 intervalli ENTRAMBI sono superiori al periodo minimo (in tal caso riduco.. - while (flWindSize > windSize && slWindSize > windSize) - { - // elimino i 2 valori + vecchi - lTime.RemoveAt(0); - lVal.RemoveAt(0); - // ora ricontrollo... - } - } - /// - /// Calcola il valore mediano... - /// - public double vcMedian - { - get - { - double answ = 0; - // restituisce la mediana SE valida, altrimenti null... - if (numElem > 2 && flWindSize > windSize) - { - try - { - // calcolo mediana! - //answ = Statistics.Median(lVal.ToArray()); - - // rif: https://blogs.msmvps.com/deborahk/linq-mean-median-and-mode/ - var sortedNumbers = lVal.OrderBy(n => n); - int numCount = lVal.Count; - int indice50 = lVal.Count / 2; - if ((numCount % 2) == 0) - { - answ = ((sortedNumbers.ElementAt(indice50) + sortedNumbers.ElementAt(indice50 - 1)) / 2); - } - else - { - answ = sortedNumbers.ElementAt(indice50); - } - } - catch - { } - } - return answ; - } - } - /// - /// Verifica se la vc sia valida (ovvero almeno 2 valori e intervallo > window richiesta) - /// - public bool vcValid - { - get - { - return (flWindSize > windSize && numElem > 1); - } - } - - } - - public static class TimingData - { - public static List results = new List(); - - /// - /// aggiorno vettore aggiungendo risultato - /// - /// - /// - public static void addResult(string codice, long ticks) - { - if (results.Count == 0) - { - results.Add(new TimeRec(codice, ticks)); - } - int indice = -1; - for (int i = 0; i < results.Count; i++) - { - // se il codice è quello cercato... - if (results[i].codCall == codice) indice = i; - } - // se c'è aggiorno... - if (indice >= 0) - { - results[indice].numCall++; - results[indice].totMsec = results[indice].totMsec.Add(new TimeSpan(ticks)); - } - // altrimenti aggiungo... - else - { - results.Add(new TimeRec(codice, ticks)); - } - } - /// - /// Resetta i dati registrati (ad avvio adapter...) - /// - public static void resetData() - { - results = new List(); - } - } - /// - /// Gestione Endianness - /// - public static class Endian - { - /// - /// Scambia MSB/LSB per 16bit - /// - /// - /// - public static UInt16 SwapUInt16(UInt16 inValue) - { - return (UInt16)(((inValue & 0xff00) >> 8) | - ((inValue & 0x00ff) << 8)); - } - - /// - /// Scambia MSB/LSB per 32bit - /// - /// - /// - public static UInt32 SwapUInt32(UInt32 inValue) - { - return (UInt32)(((inValue & 0xff000000) >> 24) | - ((inValue & 0x00ff0000) >> 8) | - ((inValue & 0x0000ff00) << 8) | - ((inValue & 0x000000ff) << 24)); - } - } - - - public enum tipoAdapter - { - /// - /// Adapter generico/demo - /// - DEMO, - /// - /// adapter FANUC - /// - FANUC, - /// - /// Adapter non specificato - /// - ND, - /// - /// Adapter SIEMENS - /// - SIEMENS - } - - public enum gatherCycle - { - /// - /// Very High Frequency (solo x invii...) - /// - VHF, - /// - /// lettura dati ad alta frequenza - /// - HF, - /// - /// lettura dati standard - /// - MF, - /// - /// lettura dati bassa freq - /// - LF, - /// - /// lettura dati bassissima priorità (re-sync stato allarmi) - /// - VLF - } - - /// - /// informazioni di produzione - /// - public struct prodData - { - public string Operator; - - public bool Status; - public int AccTime; - public int Power; - public string FuncMode; - public bool EmrStop; - public string MessageCode; - public string MessageText; - - } - - public struct PathData - { - public int PathSel; - public string PathType; // LAVOR/ASSERV - public string RunMode; - public string ExeMode; - public int pzTot; - public string ProgramName; - public string ProgrRow; - public string PartId; - public string ActiveAxes; - public string CodG_Act; - public string SubMode; - - public int PathFeedrate; - public int PathFeedrateOver; - public int PathRapidOver; - public int PathJogOver; - public int PathSpindleOver_01; - public int PathSpindleOver_02; - public int PathSpindleOver_03; - public int PathSpindleOver_04; - public position PathPosAct; - } - - - public struct UnOpData - { - public int UnOpSel; - public int UnOpToolId; - public int UnOpNumCU; - public string UnOpStatus; - public int UnOpVitaRes; - public int UnOpSpeed; - public int UnOpLoad; - public int UnOpAccTime; - } - - public struct AxisData - { - public int AxisSel; - public string AxisMainProc; - public bool AxisIsMaster; - public string AxisMastId; - public string AxisType; - public string AxisDir; - public int AxisLoad; - public int AxisPosAct; - public int AxisPosTgt; - public int AxisFeedAct; - public int AxisFeedOver; - public string AxisAccel; - public string AxisAccTime; - public string AxisBattery; - public string DistDone; - public string InvDDone; - } - - /// - /// Vettore completo posizione (X-Y-Z con versori i-j-k) - /// - public class position - { - public float x; - public float y; - public float z; - public float i; - public float j; - public float k; - public position() - { - x = 0; - y = 0; - z = 0; - i = 0; - j = 0; - k = 0; - } - } - - /// - /// Dati Prod SCM (per decodifica) - /// - public class datiProdSCM - { - public string area; - public string fileName; - public string dimensioni; - public DateTime start; - public DateTime stop; - public TimeSpan tEff; - public TimeSpan tTot; - public int qta; - public TimeSpan tMed; - public datiProdSCM() - { - area = ""; - fileName = ""; - dimensioni = ""; - start = DateTime.Now; - stop = DateTime.Now; - tEff = new TimeSpan(0); - tTot = new TimeSpan(0); - qta = 0; - tMed = new TimeSpan(0); - } - /// - /// crea un nuovo oggetto a partire da un array di stringhe - /// - /// - public datiProdSCM(string[] valori) - { - try - { - area = valori[0]; - fileName = valori[1]; - dimensioni = string.Format("{0}x{1}x{2}", valori[3], valori[4], valori[5]); - start = DateTime.Today.AddHours(Convert.ToInt16(valori[6])).AddMinutes(Convert.ToInt16(valori[7])).AddSeconds(Convert.ToInt16(valori[8])); - - stop = DateTime.Today.AddHours(Convert.ToInt16(valori[9])).AddMinutes(Convert.ToInt16(valori[10])).AddSeconds(Convert.ToInt16(valori[11])); - // se ore == 0 --> aggiungo 1 gg!!! - if (Convert.ToInt16(valori[9]) == 0) stop.AddDays(1); - - tEff = new TimeSpan(Convert.ToInt16(valori[12]), Convert.ToInt16(valori[13]), Convert.ToInt16(valori[14])); - - tTot = new TimeSpan(Convert.ToInt16(valori[15]), Convert.ToInt16(valori[16]), Convert.ToInt16(valori[17])); - - qta = Convert.ToInt16(valori[18]); - - tMed = new TimeSpan(Convert.ToInt16(valori[19]), Convert.ToInt16(valori[20]), Convert.ToInt16(valori[22]), Convert.ToInt16(valori[23])); - } - catch - { } - } - } - /// - /// Allarme (per decodifica) - /// - public class allarme - { - public string codNum; - public string gruppo; - public string livello; - public string descrizione; - public allarme() - { - codNum = ""; - gruppo = ""; - livello = ""; - descrizione = ""; - } - public allarme(string _codNum, string _gruppo, string _livello, string _descrizione) - { - codNum = _codNum; - gruppo = _gruppo; - livello = _livello; - descrizione = _descrizione; - } - } - - - /// - /// Dato generico (per decodifica) - /// - public class otherData - { - public string codNum; - public string memAddr; - public string varName; - public string dataType; - public otherData() - { - codNum = ""; - memAddr = ""; - varName = ""; - dataType = ""; - } - public otherData(string _codNum, string _memAddr, string _varName, string _dataType) - { - codNum = _codNum; - memAddr = _memAddr; - varName = _varName; - dataType = _dataType; - } - } - - - /// - /// Strobe: contiene il set di strobe di comunicazione - /// - /// rif: http://stackoverflow.com/questions/17209054/parse-bits-in-a-byte-to-enum - /// - [Flags] - public enum Strobe : int - { - NONE = 0, - M_CODE = 1 << 0, - S_CODE = 1 << 1, - T_CODE = 1 << 2, - PZ_OK = 1 << 3, - PZ_KO = 1 << 4, - FEED_SPEED = 1 << 5, - POS_ACT = 1 << 6, - SP07 = 1 << 7, - SP08 = 1 << 8, - SP09 = 1 << 9, - SP10 = 1 << 10, - SP11 = 1 << 11, - SP12 = 1 << 12, - SP13 = 1 << 13, - SP14 = 1 << 14, - SP15 = 1 << 15, - SP16 = 1 << 16, - SP17 = 1 << 17, - SP18 = 1 << 18, - SP19 = 1 << 19, - SP20 = 1 << 20, - SP21 = 1 << 21, - SP22 = 1 << 22, - SP23 = 1 << 23, - SP24 = 1 << 24, - SP25 = 1 << 25, - SP26 = 1 << 26, - SP27 = 1 << 27, - SP28 = 1 << 28, - SP29 = 1 << 29, - SP30 = 1 << 30, - SP31 = 1 << 31 - } - /// - /// StFlag8: set di 8 bit (1 word) contente semaforo di variabili - /// - [Flags] - public enum StFlag8 : int - { - NONE = 0, - B0 = 1 << 0, - B1 = 1 << 1, - B2 = 1 << 2, - B3 = 1 << 3, - B4 = 1 << 4, - B5 = 1 << 5, - B6 = 1 << 6, - B7 = 1 << 7 - } - /// - /// StFlag32: set di 32 bit (4 word) contente semaforo di variabili - /// - [Flags] - public enum StFlag32 : int - { - NONE = 0, - B00 = 1 << 0, - B01 = 1 << 1, - B02 = 1 << 2, - B03 = 1 << 3, - B04 = 1 << 4, - B05 = 1 << 5, - B06 = 1 << 6, - B07 = 1 << 7, - B08 = 1 << 8, - B09 = 1 << 9, - B10 = 1 << 10, - B11 = 1 << 11, - B12 = 1 << 12, - B13 = 1 << 13, - B14 = 1 << 14, - B15 = 1 << 15, - B16 = 1 << 16, - B17 = 1 << 17, - B18 = 1 << 18, - B19 = 1 << 19, - B20 = 1 << 20, - B21 = 1 << 21, - B22 = 1 << 22, - B23 = 1 << 23, - B24 = 1 << 24, - B25 = 1 << 25, - B26 = 1 << 26, - B27 = 1 << 27, - B28 = 1 << 28, - B29 = 1 << 29, - B30 = 1 << 30, - B31 = 1 << 31 - } - /// - /// StatusBitMap: contiene il set di semafori/flag x status + allarmi (x classi) - /// - [Flags] - public enum StatusBitMap : int - { - NONE = 0, - ESTOP = 1 << 0, - RM_AUTO = 1 << 1, - RM_MANUAL = 1 << 2, - RM_MDI = 1 << 3, - RM_EDIT = 1 << 4, - EM_RUN = 1 << 5, - EM_READY = 1 << 6, - EM_STOP = 1 << 7, - EM_FEEDHOLD = 1 << 8, - HM = 1 << 9, - ST11 = 1 << 10, - ST12 = 1 << 11, - ST13 = 1 << 12, - ST14 = 1 << 13, - ST15 = 1 << 14, - ST16 = 1 << 15, - AL01 = 1 << 16, - AL02 = 1 << 17, - AL03 = 1 << 18, - AL04 = 1 << 19, - AL05 = 1 << 20, - AL06 = 1 << 21, - AL07 = 1 << 22, - AL08 = 1 << 23, - AL09 = 1 << 24, - AL10 = 1 << 25, - AL11 = 1 << 26, - AL12 = 1 << 27, - AL13 = 1 << 28, - AL14 = 1 << 29, - AL15 = 1 << 30, - AL16 = 1 << 31 - } - - public enum Semaforo - { - /// - /// Verde - /// - SV, - /// - /// Giallo - /// - SG, - /// - /// Rosso - /// - SR, - /// - /// Grigio/Spento - /// - SS - } -} \ No newline at end of file diff --git a/IOB-WIN/IOB-UT/packages.config b/IOB-WIN/IOB-UT/packages.config deleted file mode 100644 index bbf6b99..0000000 --- a/IOB-WIN/IOB-UT/packages.config +++ /dev/null @@ -1,6 +0,0 @@ - - - - - - \ No newline at end of file diff --git a/IOB-WIN/IOB-WIN.sln b/IOB-WIN/IOB-WIN.sln deleted file mode 100644 index a44133b..0000000 --- a/IOB-WIN/IOB-WIN.sln +++ /dev/null @@ -1,82 +0,0 @@ - -Microsoft Visual Studio Solution File, Format Version 12.00 -# Visual Studio 15 -VisualStudioVersion = 15.0.26730.12 -MinimumVisualStudioVersion = 10.0.40219.1 -Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "IOB-WIN", "IOB-WIN\IOB-WIN.csproj", "{ADCB8028-79C4-4896-A9A7-E3C5140FC00B}" -EndProject -Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "VersGen", "..\..\..\Visual Studio 2017\Projects\Mapo-IOB\IOB-WIN\VersGen\VersGen.csproj", "{58E399F3-9D4E-49D3-AB35-9ED536543D50}" -EndProject -Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "IOB-UT", "IOB-UT\IOB-UT.csproj", "{90512E12-29FC-460D-94CC-648C2A072DBD}" -EndProject -Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "CncLib", "..\..\..\Visual Studio 2017\Projects\Mapo-IOB\IOB-WIN\CncLib\CncLib.vbproj", "{2D769FFD-1122-4276-A115-29246E6D23C5}" -EndProject -Global - GlobalSection(Performance) = preSolution - HasPerformanceSessions = true - EndGlobalSection - GlobalSection(SolutionConfigurationPlatforms) = preSolution - Debug|Any CPU = Debug|Any CPU - ESA|Any CPU = ESA|Any CPU - FANUC|Any CPU = FANUC|Any CPU - OSAI|Any CPU = OSAI|Any CPU - Release|Any CPU = Release|Any CPU - SIEMENS|Any CPU = SIEMENS|Any CPU - EndGlobalSection - GlobalSection(ProjectConfigurationPlatforms) = postSolution - {ADCB8028-79C4-4896-A9A7-E3C5140FC00B}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {ADCB8028-79C4-4896-A9A7-E3C5140FC00B}.Debug|Any CPU.Build.0 = Debug|Any CPU - {ADCB8028-79C4-4896-A9A7-E3C5140FC00B}.ESA|Any CPU.ActiveCfg = Release|Any CPU - {ADCB8028-79C4-4896-A9A7-E3C5140FC00B}.ESA|Any CPU.Build.0 = Release|Any CPU - {ADCB8028-79C4-4896-A9A7-E3C5140FC00B}.FANUC|Any CPU.ActiveCfg = Release|Any CPU - {ADCB8028-79C4-4896-A9A7-E3C5140FC00B}.FANUC|Any CPU.Build.0 = Release|Any CPU - {ADCB8028-79C4-4896-A9A7-E3C5140FC00B}.OSAI|Any CPU.ActiveCfg = Release|Any CPU - {ADCB8028-79C4-4896-A9A7-E3C5140FC00B}.OSAI|Any CPU.Build.0 = Release|Any CPU - {ADCB8028-79C4-4896-A9A7-E3C5140FC00B}.Release|Any CPU.ActiveCfg = Release|Any CPU - {ADCB8028-79C4-4896-A9A7-E3C5140FC00B}.Release|Any CPU.Build.0 = Release|Any CPU - {ADCB8028-79C4-4896-A9A7-E3C5140FC00B}.SIEMENS|Any CPU.ActiveCfg = Release|Any CPU - {ADCB8028-79C4-4896-A9A7-E3C5140FC00B}.SIEMENS|Any CPU.Build.0 = Release|Any CPU - {58E399F3-9D4E-49D3-AB35-9ED536543D50}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {58E399F3-9D4E-49D3-AB35-9ED536543D50}.Debug|Any CPU.Build.0 = Debug|Any CPU - {58E399F3-9D4E-49D3-AB35-9ED536543D50}.ESA|Any CPU.ActiveCfg = Release|Any CPU - {58E399F3-9D4E-49D3-AB35-9ED536543D50}.ESA|Any CPU.Build.0 = Release|Any CPU - {58E399F3-9D4E-49D3-AB35-9ED536543D50}.FANUC|Any CPU.ActiveCfg = Release|Any CPU - {58E399F3-9D4E-49D3-AB35-9ED536543D50}.FANUC|Any CPU.Build.0 = Release|Any CPU - {58E399F3-9D4E-49D3-AB35-9ED536543D50}.OSAI|Any CPU.ActiveCfg = Release|Any CPU - {58E399F3-9D4E-49D3-AB35-9ED536543D50}.OSAI|Any CPU.Build.0 = Release|Any CPU - {58E399F3-9D4E-49D3-AB35-9ED536543D50}.Release|Any CPU.ActiveCfg = Release|Any CPU - {58E399F3-9D4E-49D3-AB35-9ED536543D50}.Release|Any CPU.Build.0 = Release|Any CPU - {58E399F3-9D4E-49D3-AB35-9ED536543D50}.SIEMENS|Any CPU.ActiveCfg = Release|Any CPU - {58E399F3-9D4E-49D3-AB35-9ED536543D50}.SIEMENS|Any CPU.Build.0 = Release|Any CPU - {90512E12-29FC-460D-94CC-648C2A072DBD}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {90512E12-29FC-460D-94CC-648C2A072DBD}.Debug|Any CPU.Build.0 = Debug|Any CPU - {90512E12-29FC-460D-94CC-648C2A072DBD}.ESA|Any CPU.ActiveCfg = Release|Any CPU - {90512E12-29FC-460D-94CC-648C2A072DBD}.ESA|Any CPU.Build.0 = Release|Any CPU - {90512E12-29FC-460D-94CC-648C2A072DBD}.FANUC|Any CPU.ActiveCfg = Release|Any CPU - {90512E12-29FC-460D-94CC-648C2A072DBD}.FANUC|Any CPU.Build.0 = Release|Any CPU - {90512E12-29FC-460D-94CC-648C2A072DBD}.OSAI|Any CPU.ActiveCfg = Release|Any CPU - {90512E12-29FC-460D-94CC-648C2A072DBD}.OSAI|Any CPU.Build.0 = Release|Any CPU - {90512E12-29FC-460D-94CC-648C2A072DBD}.Release|Any CPU.ActiveCfg = Release|Any CPU - {90512E12-29FC-460D-94CC-648C2A072DBD}.Release|Any CPU.Build.0 = Release|Any CPU - {90512E12-29FC-460D-94CC-648C2A072DBD}.SIEMENS|Any CPU.ActiveCfg = Release|Any CPU - {90512E12-29FC-460D-94CC-648C2A072DBD}.SIEMENS|Any CPU.Build.0 = Release|Any CPU - {2D769FFD-1122-4276-A115-29246E6D23C5}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {2D769FFD-1122-4276-A115-29246E6D23C5}.Debug|Any CPU.Build.0 = Debug|Any CPU - {2D769FFD-1122-4276-A115-29246E6D23C5}.ESA|Any CPU.ActiveCfg = ESA|Any CPU - {2D769FFD-1122-4276-A115-29246E6D23C5}.ESA|Any CPU.Build.0 = ESA|Any CPU - {2D769FFD-1122-4276-A115-29246E6D23C5}.FANUC|Any CPU.ActiveCfg = FANUC|Any CPU - {2D769FFD-1122-4276-A115-29246E6D23C5}.FANUC|Any CPU.Build.0 = FANUC|Any CPU - {2D769FFD-1122-4276-A115-29246E6D23C5}.OSAI|Any CPU.ActiveCfg = OSAI|Any CPU - {2D769FFD-1122-4276-A115-29246E6D23C5}.OSAI|Any CPU.Build.0 = OSAI|Any CPU - {2D769FFD-1122-4276-A115-29246E6D23C5}.Release|Any CPU.ActiveCfg = Release|Any CPU - {2D769FFD-1122-4276-A115-29246E6D23C5}.Release|Any CPU.Build.0 = Release|Any CPU - {2D769FFD-1122-4276-A115-29246E6D23C5}.SIEMENS|Any CPU.ActiveCfg = SIEMENS|Any CPU - {2D769FFD-1122-4276-A115-29246E6D23C5}.SIEMENS|Any CPU.Build.0 = SIEMENS|Any CPU - EndGlobalSection - GlobalSection(SolutionProperties) = preSolution - HideSolutionNode = FALSE - EndGlobalSection - GlobalSection(ExtensibilityGlobals) = postSolution - SolutionGuid = {801DCDC5-B7D3-4EA5-B543-783D2C91765F} - EndGlobalSection -EndGlobal diff --git a/IOB-WIN/IOB-WIN/App.config b/IOB-WIN/IOB-WIN/App.config deleted file mode 100644 index 4f7c4fc..0000000 --- a/IOB-WIN/IOB-WIN/App.config +++ /dev/null @@ -1,75 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - \ No newline at end of file diff --git a/IOB-WIN/IOB-WIN/DATA/CONF/IOB.ini b/IOB-WIN/IOB-WIN/DATA/CONF/IOB.ini deleted file mode 100644 index 6a1eeae..0000000 --- a/IOB-WIN/IOB-WIN/DATA/CONF/IOB.ini +++ /dev/null @@ -1,37 +0,0 @@ -;Configurazione IOB-WIN -[IOB] -CNCTYPE=FANUC -IDXMACC=3001 - -[CNC] -; TEST TORNOS! -IP=192.168.1.80 -PORT=8193 - -[SERVER] -MPIP=http://10.74.82.219 -MPURL=/MP/IO -CMDBASE=/IOB/input/ -CMDALIVE=/IOB -CMDENABLED=/IOB/enabled/ -CMDADV1=?valore= -CMDREBO=/sendReboot.aspx?idxMacchina= - -[MEMORY] -BITRED=Y8.4 -BITYELLOW=Y8.5 -BITGREEN=Y8.6 - -[BLINK] -;MAX_COUNTER_BLINK = 30 -MAX_COUNTER_BLINK = 15 -;bit0 = 0 -;bit1 = 0 -;bit2 = 1 -;bit3 = 1 -;bit4 = 1 -;bit5 = 0 -;bit6 = 0 -;bit7 = 0 -BLINK_FILT=0 -;BLINK_FILT=28 diff --git a/IOB-WIN/IOB-WIN/DATA/DAT/PersistData.dat b/IOB-WIN/IOB-WIN/DATA/DAT/PersistData.dat deleted file mode 100644 index 5f28270..0000000 --- a/IOB-WIN/IOB-WIN/DATA/DAT/PersistData.dat +++ /dev/null @@ -1 +0,0 @@ - \ No newline at end of file diff --git a/IOB-WIN/IOB-WIN/DATA/DAT/SimData.dat b/IOB-WIN/IOB-WIN/DATA/DAT/SimData.dat deleted file mode 100644 index c59e482..0000000 --- a/IOB-WIN/IOB-WIN/DATA/DAT/SimData.dat +++ /dev/null @@ -1,959 +0,0 @@ -;------------------------------------------------------------------------------------ -; filevalori simulati x provare sistema dati e filtraggio... commenti iniziano per ';', valori formato data#valore#counter -; NOTE FILE: -; - bit come macchine std IOB -; B0 = POWERON -; B1 = RUN -; B2 = CONTAPEZZO -; B3 = ALLARME -; B4 = MANUALE -; B5 = NA -; B6 = NA -; B7 = NA -; - segnali alternanti su 00011100 -;------------------------------------------------------------------------------------ -; -;---------------------------- -; inizio da spenta -0 -0 -; indico accesa -1 -1 -1 -; allarme (BLINK) -9 -9 -9 -9 -9 -1 -1 -1 -1 -1 -1 -9 -9 -9 -9 -9 -1 -1 -1 -1 -1 -19 -9 -9 -9 -9 -1 -1 -1 -1 -1 -1 -; allarme manuale (2 blink, periodo diverso) -25 -25 -17 -17 -9 -9 -1 -1 -25 -25 -17 -17 -9 -9 -1 -1 -25 -25 -17 -17 -9 -9 -1 -1 -25 -25 -17 -17 -9 -9 -1 -1 -25 -25 -17 -17 -9 -9 -1 -1 -; indico manuale -17 -17 -17 -17 -17 -17 -17 -17 -17 -17 -1 -1 -1 -1 -1 -1 -1 -1 -17 -17 -17 -17 -17 -17 -17 -17 -17 -17 -1 -1 -1 -1 -1 -1 -1 -1 -17 -17 -17 -17 -17 -17 -17 -17 -17 -17 -1 -1 -1 -1 -1 -1 -1 -1 -; RUN! -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -; contapezzo -7 -7 -7 -7 -7 -3 -3 -3 -3 -3 -3 -7 -7 -7 -7 -7 -3 -3 -3 -3 -3 -3 -7 -7 -7 -7 -7 -3 -3 -3 -3 -3 -3 -7 -7 -7 -7 -7 -3 -3 -3 -3 -3 -3 -; RUN -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -; contapezzo -7 -7 -7 -7 -7 -3 -3 -3 -3 -3 -3 -7 -7 -7 -7 -7 -3 -3 -3 -3 -3 -3 -7 -7 -7 -7 -7 -3 -3 -3 -3 -3 -3 -7 -7 -7 -7 -7 -3 -3 -3 -3 -3 -3 -; RUN -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -; contapezzo -7 -7 -7 -7 -7 -3 -3 -3 -3 -3 -3 -7 -7 -7 -7 -7 -3 -3 -3 -3 -3 -3 -7 -7 -7 -7 -7 -3 -3 -3 -3 -3 -3 -7 -7 -7 -7 -7 -3 -3 -3 -3 -3 -3 -; RUN -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -; allarme (BLINK) -9 -9 -9 -9 -9 -1 -1 -1 -1 -1 -1 -9 -9 -9 -9 -9 -1 -1 -1 -1 -1 -19 -9 -9 -9 -9 -1 -1 -1 -1 -1 -1 -; allarme manuale (2 blink, periodo diverso) -25 -25 -17 -17 -9 -9 -1 -1 -25 -25 -17 -17 -9 -9 -1 -1 -25 -25 -17 -17 -9 -9 -1 -1 -25 -25 -17 -17 -9 -9 -1 -1 -25 -25 -17 -17 -9 -9 -1 -1 -; indico manuale -17 -17 -17 -17 -17 -17 -17 -17 -17 -17 -1 -1 -1 -1 -1 -1 -1 -1 -17 -17 -17 -17 -17 -17 -17 -17 -17 -17 -1 -1 -1 -1 -1 -1 -1 -1 -17 -17 -17 -17 -17 -17 -17 -17 -17 -17 -1 -1 -1 -1 -1 -1 -1 -1 -; RUN! -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -; contapezzo -7 -7 -7 -7 -7 -3 -3 -3 -3 -3 -3 -7 -7 -7 -7 -7 -3 -3 -3 -3 -3 -3 -7 -7 -7 -7 -7 -3 -3 -3 -3 -3 -3 -7 -7 -7 -7 -7 -3 -3 -3 -3 -3 -3 -; RUN -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -; contapezzo -7 -7 -7 -7 -7 -3 -3 -3 -3 -3 -3 -7 -7 -7 -7 -7 -3 -3 -3 -3 -3 -3 -7 -7 -7 -7 -7 -3 -3 -3 -3 -3 -3 -7 -7 -7 -7 -7 -3 -3 -3 -3 -3 -3 -; RUN -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 \ No newline at end of file diff --git a/IOB-WIN/IOB-WIN/IOB-WIN.csproj b/IOB-WIN/IOB-WIN/IOB-WIN.csproj deleted file mode 100644 index 7103cf4..0000000 --- a/IOB-WIN/IOB-WIN/IOB-WIN.csproj +++ /dev/null @@ -1,154 +0,0 @@ - - - - - Debug - AnyCPU - {ADCB8028-79C4-4896-A9A7-E3C5140FC00B} - WinExe - IOB_WIN - IOB-WIN - v4.6.1 - 512 - true - - - AnyCPU - true - full - false - bin\Debug\ - DEBUG;TRACE - prompt - 4 - - - AnyCPU - pdbonly - true - bin\Release\ - TRACE - prompt - 4 - - - - ..\packages\Autoupdater.NET.Official.1.4.3\lib\net452\AutoUpdater.NET.dll - - - ..\packages\NLog.4.4.12\lib\net45\NLog.dll - - - - - - - - - - - - - - - - - - VersGen.cs - - - - - - - - Form - - - MainForm.cs - - - - - - - Always - - - Always - - - - Always - - - MainForm.cs - - - ResXFileCodeGenerator - Resources.Designer.cs - Designer - - - True - Resources.resx - - - Always - - - Always - - - Always - - - Always - - - - - Designer - - - - - SettingsSingleFileGenerator - Settings.Designer.cs - - - True - Settings.settings - True - - - - - - - - - {2d769ffd-1122-4276-a115-29246e6d23c5} - CncLib - - - {90512e12-29fc-460d-94cc-648c2a072dbd} - IOB-UT - - - - - - - - - - - "$(ProjectDir)setupTgt.bat" "$(ConfigurationName)" "$(ProjectDir)" - - - - - "$(ProjectDir)postBuildTgt.bat" "$(ConfigurationName)" "$(TargetDir)" - - \ No newline at end of file diff --git a/IOB-WIN/IOB-WIN/IobConfiguration.cs b/IOB-WIN/IOB-WIN/IobConfiguration.cs deleted file mode 100644 index f62272e..0000000 --- a/IOB-WIN/IOB-WIN/IobConfiguration.cs +++ /dev/null @@ -1,120 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Text; -using System.Threading.Tasks; -using IOB_UT; -using System.IO; -using System.Xml.Serialization; - -namespace IOB_WIN -{ - /// - /// This Configuration class is basically just a set of - /// properties with a couple of static methods to manage - /// the serialization to and deserialization from a - /// simple XML file. - /// - /// ref: http://www.cambiaresearch.com/articles/33/how-can-i-easily-manage-an-xml-configuration-file-in-dotnet - /// - [Serializable] - public class IobConfiguration - { - - /// - /// Codice univoco IOB - /// - public string codIOB { get; set; } - /// - /// Versione IOB - /// - public string versIOB { get; set; } - /// - /// Indirizzo Ip del CNC Controllato - /// - public string cncIpAddr { get; set; } - /// - /// Porta del CNC Controllato - /// - public string cncPort { get; set; } - /// - /// Dati di conf del server MoonPro cui comunicare - /// - public serverMapo serverData { get; set; } - /// - /// Porta del CNC Controllato - /// - public tipoAdapter tipoIob { get; set; } - /// - /// Valore MAX per countdown segnali blinking - /// - public int MAX_COUNTER_BLINK; - /// - /// Valore intero corrispondente ai BIT da filtrare x blinking - /// - public int BLINK_FILT; - - /// - /// Avvio configurazione DUMMY - /// - public IobConfiguration() - { - codIOB = "ND"; - versIOB = "0"; - cncIpAddr = "127.0.0.1"; - cncPort = "0"; - tipoIob = tipoAdapter.DEMO; - serverData = new serverMapo("127.0.0.1", "/", "/IOB/input/", "/IOB", "/IOB/enabled/", "/sendReboot.aspx?idxMacchina="); - MAX_COUNTER_BLINK = 10; - BLINK_FILT = 0; - } - } - - public class serverMapo - { - /// - /// Indirizzo IP server - /// - public string MPIP = ""; - /// - /// URL Base del server applicativo - /// - public string MPURL = ""; - /// - /// comando base x INPUT - /// - public string CMDBASE = ""; - /// - /// comando base x check ALIVE - /// - public string CMDALIVE = ""; - /// - /// comando base x check ENABLED - /// - public string CMDENABLED = ""; - /// - /// comando base x comando reboot - /// - public string CMDREBO = ""; - /// - /// Parametri configurazione server MoonPro cui inviare dati - /// - /// Indirizzo IP del server MoonPro - /// URL Base server applicativo - /// Comando x invio INPUT - /// Comando x check alive - /// Comando x check abilitato - /// Comando x parametri opz - /// Comando x reboot - public serverMapo(string MPIP_, string MPURL_, string CMDBASE_, string CMDALIVE_, string CMDENABLED_, string CMDREBO_) - { - MPIP = MPIP_; - MPURL = MPURL_; - CMDBASE = CMDBASE_; - CMDALIVE = CMDALIVE_; - CMDENABLED = CMDENABLED_; - CMDREBO = CMDREBO_; - } - } - -} diff --git a/IOB-WIN/IOB-WIN/IobDemo.cs b/IOB-WIN/IOB-WIN/IobDemo.cs deleted file mode 100644 index 9efe492..0000000 --- a/IOB-WIN/IOB-WIN/IobDemo.cs +++ /dev/null @@ -1,21 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Text; -using System.Threading.Tasks; -using IOB_UT; - -namespace IOB_WIN -{ - public class IobDemo : IobGeneric - { - /// - /// estende l'init della classe base... - /// - /// - /// - public IobDemo(MainForm caller, IobConfiguration IOBConf) : base(caller, IOBConf) - { - } - } -} diff --git a/IOB-WIN/IOB-WIN/IobFanuc.cs b/IOB-WIN/IOB-WIN/IobFanuc.cs deleted file mode 100644 index e08eec8..0000000 --- a/IOB-WIN/IOB-WIN/IobFanuc.cs +++ /dev/null @@ -1,255 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Text; -using System.Threading.Tasks; -using IOB_UT; -using CncLib.CNC; - -namespace IOB_WIN -{ - public class IobFanuc : IobGeneric - { - /// - /// wrapper chiamata lettura/scrittura SINGOLO BYTE... - /// - /// - /// - /// - /// - /// - public bool FanucMemRW(bool bWrite, FANUC.MemType MemType, Int32 memIndex, ref byte Value) - { - bool answ = false; - if (FANUC_ref.Connected) - { - try - { - parentForm.commPlcActive = true; - answ = FANUC_ref.F_RW_Byte(bWrite, MemType, memIndex, ref Value); - } - catch - { } - } - parentForm.commPlcActive = false; - return answ; - } - /// - /// wrapper chiamata lettura/scrittura MULTI BYTE... - /// - /// - /// - /// - /// - /// - public bool FanucMemRW(bool bWrite, FANUC.MemType MemType, Int32 memIndex, ref byte[] Value) - { - bool answ = false; - if (FANUC_ref.Connected) - { - try - { - parentForm.commPlcActive = true; - answ = FANUC_ref.F_RW_Byte(bWrite, MemType, memIndex, ref Value); - } - catch - { } - } - parentForm.commPlcActive = false; - return answ; - } - /// - /// Oggetto MAIN x connessione FANUC - /// - protected FANUC FANUC_ref; - - /// - /// estende l'init della classe base... - /// - /// - /// - public IobFanuc(MainForm caller, IobConfiguration IOBConf) : base(caller, IOBConf) - { - // i dati RAW principali sono 6 byte... - RawInput = new byte[6]; - // è little endian (NON serve conversione) - hasBigEndian = false; - lg.Info("Start init Adapter FANUC all'IP {0}:{1} per IOB {2}", IOBConf.cncIpAddr, IOBConf.cncPort, IOBConf.codIOB); - - // Creo oggetto connessione NC - parentForm.commPlcActive = true; - Runtime.CreateNC(CNC.NcType.FANUC, IOBConf.cncIpAddr, IOBConf.cncPort); - parentForm.commPlcActive = false; - - // aggiungo referenza obj FANUC - FANUC_ref = (FANUC)Runtime.NC; - if (utils.CRB("verbose")) lg.Info("FANUC_ref da CncLib"); - - // disconnetto e connetto... - if (utils.CRB("verbose")) lg.Info("FANUC: tryDisconnect"); - tryDisconnect(); - lg.Info("FANUC: tryConnect"); - tryConnect(); - lg.Info("End init Adapter FANUC"); - } - - /// - /// Override disconnessione - /// - public override void tryDisconnect() - { - if (connectionOk) - { - string szStatusConnection = ""; - try - { - FANUC_ref.Disconnect(ref szStatusConnection); - connectionOk = false; - lg.Info(szStatusConnection); - lg.Info("Effettuata disconnessione adapter FANUC!"); - } - catch (Exception exc) - { - lg.Fatal(exc, "Errore nella disconnessione dall'adapter FANUC"); - } - } - else - { - lg.Error("IMPOSSIBILE effettuare disconnessione: Connessione non disponibile..."); - } - } - /// - /// Override connessione - /// - public override void tryConnect() - { - if (!connectionOk) - { - string szStatusConnection = ""; - try - { - parentForm.commPlcActive = true; - FANUC_ref.Connect(ref szStatusConnection); - parentForm.commPlcActive = false; - lg.Info("szStatusConnection: " + szStatusConnection); - connectionOk = true; - // refresh stato allarmi!!! - if (connectionOk) - { - if (adpRunning) - { - // carico status allarmi (completo) - lg.Info("Inizio refresh completo stato allarmi..."); - forceAlarmCheck(); - lg.Info("Completato refresh completo stato allarmi!"); - } - else - { - lg.Info("Connessione OK"); - } - } - else - { - lg.Error("Impossibile procedere, connessione mancante..."); - } - } - catch (Exception exc) - { - lg.Fatal(string.Format("Errore nella connessione all'adapter FANUC: {0}{1}{2}", szStatusConnection, Environment.NewLine, exc)); - connectionOk = false; - lg.Info(string.Format("Segnalo Adapter NON running, pausa di {0} msec prima di ulteriori tentativi di riconnessione", utils.CRI("waitRecMSec"))); - } - } - } - - public override void readSemafori() - { - base.readSemafori(); - - if (verboseLog) lg.Info("inizio read semafori"); - parentForm.sIN = Semaforo.SV; - // leggo SEMAFORI, leggo da Y8 ...leggo 6 bit da Y8 a Y13... - byte[] MemBlock = new byte[RawInput.Length]; - // Red: Y8.4 | Yellow: Y8.5 | Green Y8.6 | WrkZone Y8.7 | All DOorsClosed: Y10.5 - int memIndex = 8; - inizio = DateTime.Now; - if (verboseLog) lg.Info("START FanucMemRW"); - FanucMemRW(R, FANUC.MemType.Y, memIndex, ref MemBlock); - if (verboseLog) lg.Info("END FanucMemRW"); - if (utils.CRB("recTime")) TimingData.addResult(string.Format("R{0}-SEM", MemBlock.Length), DateTime.Now.Subtract(inizio).Ticks); - - if (verboseLog) lg.Info(string.Format("MemBlock: {0}", utils.binaryForm((int)MemBlock[0]))); - // suddivido! - Buffer.BlockCopy(MemBlock, 0, RawInput, 0, 6); - if (verboseLog) lg.Info(string.Format("RawInput: {0}", utils.binaryForm((int)RawInput[0]))); - // salvo il solo BYTE dell'input decifrando il semaforo... - decodeToBitmap(); - } - /// - /// Effettua decodifica aree memoria alla bitmap usata x MAPO - /// - private void decodeToBitmap() - { - // init a zero... - B_input = 0; - // !!!FARE!!! generalizzazione... x ora usa dati "hard coded"... - //Red: Y8.4 | Yellow: Y8.5 | Green Y8.6 - - // leggo primo byte... - int primoByte = RawInput[0]; - if (verboseLog) lg.Info(string.Format("PrimoByte: {0}", primoByte)); - - if (utils.CRB("macOnFromConn")) - { - // SE SI E' CONNESSO al FANUC allora è 1... - if (FANUC_ref.Connected) - { - B_input += 1 << 0; - } - } - else - { - // B0: facio un OR tra i 3 semafori... - if ((primoByte & 112) > 0) - { - B_input += 1 << 0; - } - } - // B1: verde! Y8.6 - if ((primoByte & 64) > 0) - { - B_input += 1 << 1; - } - // NON HO CONTAPEZZI ovvero 1 << 3 - // B1: verde! Y8.4 - if ((primoByte & 16) > 0) - { - B_input += 1 << 3; - } - // B1: verde! Y8.5 - if ((primoByte & 32) > 0) - { - B_input += 1 << 4; - } - if (verboseLog) lg.Info(string.Format("Trasformazione B_input: {0}", B_input)); - } - - public override void readPrgName() - { - CncLib.Focas1.ODBEXEPRG answ = FANUC_ref.getPrgName(); - string prgName = ""; - try - { - string nome = new string(answ.name); - prgName= string.Format("{0} | {1}", answ.o_num, nome); - } - catch(Exception exc) - { - lg.Error(exc, "Errore in readPrgName"); - } - if (verboseLog) lg.Info(string.Format("PrgName: {0}", prgName)); - parentForm.dataMonitor_3 += prgName; - } - - } -} diff --git a/IOB-WIN/IOB-WIN/IobGeneric.cs b/IOB-WIN/IOB-WIN/IobGeneric.cs deleted file mode 100644 index 61dd85e..0000000 --- a/IOB-WIN/IOB-WIN/IobGeneric.cs +++ /dev/null @@ -1,1202 +0,0 @@ -using IOB_UT; -using NLog; -using System; -using System.Collections; -using System.Collections.Generic; -using System.IO; -using System.Linq; -using System.Net; -using System.Text; -using System.Threading; -using System.Threading.Tasks; - -namespace IOB_WIN -{ - public class IobGeneric - { - /// - /// Evento Iob ha subito un refresh - /// - public event EventHandler eh_refreshed; - /// - /// Determina se sia encessario convertire valori little/big endian (SIEMENS=true, OSAI=FALSE) - /// - public bool hasBigEndian = false; - /// - /// alias booleano false = R - /// - public bool R = false; - /// - /// alias booleano true = W - /// - public bool W = true; - /// - /// wrapper di log - /// - public static Logger lg; - /// - /// dataOra ultimo log periodico... - /// - public DateTime lastPeriodicLog; - /// - /// Oggetto della coda degli elementi letti (e non ancora trasmessi) - /// - public Queue QueueIN = new Queue(); - /// - /// Coda valori simulazione deterministica... - /// - public Queue QueueSIM = new Queue(); - /// - /// Coda valori letti x DEBUG... - /// - public Queue QueueDebug = new Queue(); - - /// - /// valore booleano di check se sia in fase di COMUNICAZIONE ATTIVA con il PLC/NC - /// - protected bool adpCommAct; - /// - /// valore booleano di check se sia stato AVVIATO l'adapter (Running) - /// - public bool adpRunning = false; - /// - /// valore booleano di check se l'adapter STIA SALVANDO - /// - public bool adpSaving = false; - /// - /// valore booleano (richiesta di riavvio automatico) - /// - public bool adpTryRestart; - /// - /// Ultimo valore watchdog rilevato - /// - public bool lastWatchDog = false; - /// - /// Verifica se sia in modalità DEMO x dati INPUT - /// - public bool DemoIn - { - get - { - return IOB_UT.baseUtils.CRB("DemoIn"); - } - } - /// - /// Verifica se sia in modalità DEMO avanzata (campionamento da set di valori ammessi...) - /// - public bool DemoInSample - { - get - { - return IOB_UT.baseUtils.CRB("DemoInSample"); - } - } - /// - /// Numero simulazioni ammesse... - /// - protected int numSim { get; set; } - /// - /// Numero letture IN da avvio - /// - protected int nReadIN { get; set; } - /// - /// Numero letture IN da avvio - /// - protected int nReadFilt { get; set; } - /// - /// Numero invii OUT (svuotamento coda) - /// - protected int nSendOut { get; set; } - /// - /// Verifica se sia in modalità DEMO x dati OUTPUT - /// - public bool DemoOut - { - get - { - return utils.CRB("DemoOut"); - } - } - /// - /// Contatore x invio dati - /// - public int counter { get; set; } - /// - /// Ultimo URL - /// - public string lastUrl { get; set; } - - /// - /// Array dei contatori x segnali blinking - /// - protected int[] i_counters; - /// - /// Vettore 16 BIT valori precedenti - /// - protected int B_previous; - /// - /// Vettore 16 BIT valori in ingresso al filtro - /// - protected int B_input; - /// - /// Vettore 16 BIT valori in uscita dal filtro - /// - protected int B_output; - // 16 byte di strobe (4 word da 32 bit di flags...) - public byte[] RawInput = new byte[4]; - - /// - /// Verifica SE si debba fare log verboso (verboso + ogni tot letture IN) - /// - public bool verboseLog - { - get - { - bool answ = false; - int logEvery = utils.CRI("logEvery"); - if (logEvery < 1) logEvery = 10; - answ = utils.CRB("verbose") && (nReadIN % logEvery == 0); - return answ; - } - } - /// - /// Verifica SE si debba fare log periodico (ogni "verboseLogTOut" sec...) - /// - public bool periodicLog - { - get - { - bool answ = false; - answ = (DateTime.Now.Subtract(lastPeriodicLog).TotalSeconds > utils.CRI("verboseLogTOut")); - if (answ) lastPeriodicLog = DateTime.Now; - return answ; - } - } - - - /// - /// Determina se utilizzare blocchi di memoria IOT contigui (e quindi processing "monoblocco" semplificato"= - /// - public bool procIotMem = false; - /// - /// porta x adapter (x restart) - /// - protected int adpPortNum; - /// - /// DataOra ultimo avvio adapter x watchdog - /// - protected DateTime adpStartRun; - /// - /// Data/ora ultimo avvio adapter - /// - public DateTime dtAvvioAdp = DateTime.Now; - /// - /// Data/ora ultimo spegnimento adapter - /// - public DateTime dtStopAdp = DateTime.Now; - /// - /// vettore gestione cronometraggi - /// - public DateTime inizio; - /// - /// Conteggio ATTUALE ore macchina ON - /// - public double contOreMaccOn; - /// - /// Conteggio ATTUALE ore macchina IN LAVORO - /// - public double contOreMaccLav; - /// - /// stato Online/Offline della IOB - /// - public bool IobOnline; - /// - /// stato Online/Offline della IOB - /// - public bool MPOnline; - - /// - /// Form chiamante - /// - protected MainForm parentForm; - /// - /// Conf adapter corrente - /// - public IobConfiguration currIobConf; - - - /// - /// inizializzo l'oggetto sulla form SULLA BASE DEL FILE DI CONFIGURAZIONE letto - /// - /// - /// - public IobGeneric(MainForm caller, IobConfiguration IOBConf) - { - lg = LogManager.GetCurrentClassLogger(); - lg.Info("Avvio preliminare AdapterGeneric"); - - // configurazione... - currIobConf = IOBConf; - // aggiungo altri defaults - setDefaults(); - // salvo il form chiamante - parentForm = caller; - - // concluso! - lg.Info("Istanziata classe preliminare IOBGeneric"); - } - /// - /// Imposto alcuni valori di default - /// - private void setDefaults() - { - numSim = utils.CRI("numSim"); - nReadIN = 0; - nReadFilt = 0; - nSendOut = 0; - // svuoto code... - QueueIN.Clear(); - QueueSIM.Clear(); - // imposto contatori blink a zero... - i_counters = new int[32]; - lastPeriodicLog = DateTime.Now; - } - - - #region metodi adapter - - - /// - /// lettura file di persistenza - /// - public void loadPersData() - { - } - - /// - /// Avvia l'adapter sulla porta richiesta - /// - /// - public virtual void startAdapter(int port) - { - lg.Info("Starting adapter..."); - parentForm.commPlcActive = false; - adpRunning = true; - dtAvvioAdp = DateTime.Now; - TimingData.resetData(); - // aggiungo altri defaults - setDefaults(); - adpTryRestart = true; - parentForm.displayTaskAndLog("Adapter Started!"); - } - - /// - /// ferma l'adapter... - /// - /// indica se si debba tentare di riavviare l'adapter (con caduta connessione viene fermato in automatico) - public void stopAdapter(bool tryRestart) - { - parentForm.displayTaskAndLog("Svuotamento FORZATO coda invio..."); - while (QueueIN.Count > 0) - { - // INVIO SE PERMESSO...!!! - sendToMoonPro(QueueIN.Dequeue()); - } - //reportDataProc(); - - parentForm.displayTaskAndLog("Stopping adapter..."); - adpTryRestart = false; - - parentForm.displayTaskAndLog("Stopping adapter - last periodic data read..."); - - // chiudo la connessione all'adapter... - tryDisconnect(); - dtStopAdp = DateTime.Now; - adpTryRestart = tryRestart; - adpRunning = false; - // chiudo! - parentForm.resetProgBar(); - parentForm.displayTaskAndLog("Adapter Stopped."); - parentForm.commPlcActive = false; - } - - /// - /// effettua recupero dati ed invio valori modificati... - /// - /// - public void getAndSend(gatherCycle ciclo) - { - lg.Info("START getAndSend"); - // controllo connessione/connettività - if (connectionOk) - { - // controllo non sia già in esecuzione... - if (!adpCommAct) - { - // provo ad avviare - try - { - // imposto flag adapter running.. - adpCommAct = true; - adpStartRun = DateTime.Now; - } - catch (Exception exc) - { - parentForm.displayTaskAndLog(string.Format("Adapter NOT STARTED!!!{0}{1}", Environment.NewLine, exc)); - adpCommAct = false; - adpStartRun = DateTime.Now; - } - if (adpCommAct) - { - // try / catch generale altrimenti segno che è disconnesso... - try - { - bool showDebugData = false; - - lg.Info("STEP 01"); - // processing dati memoria (lettura, filtraggio, enqueque) - if (ciclo == gatherCycle.VHF) - { - } - else if (ciclo == gatherCycle.HF) - { - processAllMemory(); - } - else if (ciclo == gatherCycle.MF) - { - parentForm.dataMonitor_3 = ""; - readPrgName(); - } - else if (ciclo == gatherCycle.LF) - { - } - else if (ciclo == gatherCycle.VLF) - { - // recupero dati SETUP (sysinfo e sysinfo_ex) - // eventuale log! - if (utils.CRB("recTime")) logTimeResults(); - } - lg.Info("STEP 02"); - // gestione queue (invio, display) - svuotaCoda(); - reportDataProc(); - if (showDebugData) - { - // verifica se debba salvare e mostrare dati - checkSavePersDataLayer(); - } - lg.Info("STEP 03"); - } - catch (Exception exc) - { - // segnalo eccezione e indico disconnesso... - lg.Error(exc, string.Format("Errore in gestione ciclo principale ADP, fermo adapter{0}{1}", Environment.NewLine, exc)); - parentForm.fermaAdapter(true); - } - // tolgo flag running - adpCommAct = false; - } - else - { - if (periodicLog) lg.Info("ADP not running..."); - } - } - else - { - // log ADP running - lg.Error("Non eseguo chiamata: ADP ancora in running"); - // se è bloccato da oltre maxSec lo sblocco... - if (DateTime.Now.Subtract(adpStartRun).TotalSeconds > utils.CRI("maxAdapterLockSec")) - { - // tolgo flag running - adpCommAct = false; - adpStartRun = DateTime.Now; - } - } - } - else - { - // log connessione KO - lg.Error("getAndSend - Connessione non disponibile, provo a riconnettere"); - // provo a riconnettere SE abilitato tryRestart... - if (adpTryRestart && !connectionOk) - { - lg.Info("ConnKO - tryConnect"); - tryConnect(); - } - } - if (eh_refreshed != null) - { - eh_refreshed(this, new EventArgs()); - } - lg.Info("STOP getAndSend"); - } - - private void reportDataProc() - { - // update valori visualizzazione... - parentForm.dataProcLabel = string.Format("RAW: {0} --> IN: {1} --> OUT: {2}", nReadIN, nReadFilt, nSendOut); - } - - /// - /// riporta il log di tutti i dati di results temporali registrati - /// - public void logTimeResults() - { - if (TimingData.results.Count > 0) - { - lg.Info("{0}--------------- START TIMING DATA ---------------", Environment.NewLine); - int globNumCall = 0; - TimeSpan globAvgMsec = new TimeSpan(0); - foreach (TimeRec item in TimingData.results) - { - lg.Info("Chiamate {0}: effettuate {1}, tempo medio {2:N2} msec | impegno canale {3:P3}", item.codCall, item.numCall, item.avgMsec, item.totMsec.TotalSeconds / DateTime.Now.Subtract(dtAvvioAdp).TotalSeconds); - globNumCall += item.numCall; - globAvgMsec += item.totMsec; - } - // riporto conteggio medio al secondo... - lg.Info("Chiamate GLOBALI: {0}, periodo: {1:N2} minuti.cent, tempo medio {2:N2} msec | impegno canale {3:P3}", globNumCall, DateTime.Now.Subtract(dtAvvioAdp).TotalMinutes, globAvgMsec.TotalMilliseconds / globNumCall, globAvgMsec.TotalSeconds / DateTime.Now.Subtract(dtAvvioAdp).TotalSeconds); - lg.Info("{0}--------------- STOP TIMING DATA ---------------{0}", Environment.NewLine); - // mostro in form statistiche globali! - parentForm.updateComStats(string.Format("Periodo: {0:N2}min | {1} x {2:N2}ms | canale {3:P3}", DateTime.Now.Subtract(dtAvvioAdp).TotalMinutes, globNumCall, globAvgMsec.TotalMilliseconds / globNumCall, globAvgMsec.TotalSeconds / DateTime.Now.Subtract(dtAvvioAdp).TotalSeconds)); - } - } - /// - /// processa dataLayer e se necessario salva/mostra - /// - public void checkSavePersDataLayer() - { - } - public void resetDebugConsole() - { - } - - /// - /// Metodo base connessione... - /// - public virtual void tryConnect() - { - - } - /// - /// Metodo base disconnessione... - /// - public virtual void tryDisconnect() - { - - } - protected bool _connOk = false; - /// - /// Salva verifica stato connessione OK - /// - /// - public virtual bool connectionOk - { - get - { - return _connOk; - } - set - { - _connOk = value; - } - } - - #endregion - - #region layer persistenza dati - - /// - /// Dizionario di persistenza per i valori da salvare da/su file - /// - public Dictionary persistenceLayer; - - /// - /// recupera valore salvato in persistence layer (se non c'è crea...) - /// - /// - /// - private string getStoredVal(string keyVal) - { - string value = ""; - try - { - if (persistenceLayer != null) - { - if (!persistenceLayer.TryGetValue(keyVal, out value)) - { - persistenceLayer.Add(keyVal, "0"); - } - } - } - catch (Exception exc) - { - lg.Error(string.Format("Eccezione in getStoredVal: {0}{1}", Environment.NewLine, exc)); - } - return value; - } - /// - /// recupera valore salvato in persistence layer (se non c'è crea...) come UINT - /// - /// - /// - private uint getStoredValUInt(string keyVal) - { - uint answ = 0; - try - { - answ = Convert.ToUInt32(getStoredVal(keyVal)); - } - catch (Exception exc) - { - lg.Error(string.Format("Eccezione in getStoredValUInt: {0}{1}", Environment.NewLine, exc)); - } - // verifico che il valore sia minore di 9/10 del valore massimo... - answ = (answ < (uint.MaxValue / 10 * 9)) ? answ : 0; - return answ; - } - /// - /// recupera valore salvato in persistence layer (se non c'è crea...) come INT - /// - /// - /// - private long getStoredValLong(string keyVal) - { - long answ = 0; - try - { - answ = Convert.ToInt64(getStoredVal(keyVal)); - } - catch - { } - // verifico che il valore sia minore di 9/10 del valore massimo... - answ = (answ < (long.MaxValue / 10 * 9)) ? answ : 0; - return answ; - } - /// - /// recupera valore salvato in persistence layer (se non c'è crea...) come double - /// - /// - /// - private double getStoredValDouble(string keyVal) - { - double answ = 0; - try - { - answ = Convert.ToDouble(getStoredVal(keyVal)); - } - catch (Exception exc) - { - lg.Error(string.Format("Eccezione in getStoredValDouble: {0}{1}", Environment.NewLine, exc)); - } - answ = (answ < (double.MaxValue / 10 * 9)) ? answ : 0; - return answ; - } - - /// - /// Aggiorna un valore del dizionario in SOSTITUZIONE - /// - /// - /// - /// - /// Nuovo valore incrementato - private void updateValString(int i, string newVal, string searchString) - { - // stringa da cercare.. - string keyVal = string.Format(searchString, i + 1); - // salvo in ram! - persistenceLayer[keyVal] = newVal; - } - /// - /// Aggiorna un valore del dizionario in SOSTITUZIONE e lo restituisce - /// - /// - /// - /// - /// Nuovo valore incrementato - private void updateValUInt(int i, uint newVal, string searchString) - { - // stringa da cercare.. - string keyVal = string.Format(searchString, i + 1); - // salvo in ram! - persistenceLayer[keyVal] = newVal.ToString(); - } - /// - /// Aggiorna un valore del dizionario in INCREMENTO e lo restituisce - /// - /// - /// - /// - /// Nuovo valore incrementato - private uint updateValUIntByIncr(int i, uint delta, string searchString) - { - // stringa da cercare.. - string keyVal = string.Format(searchString, i + 1); - // recupero valore precedente... - uint contAct = getStoredValUInt(keyVal); - // nuovo valore... - contAct += delta; - // salvo in ram! - persistenceLayer[keyVal] = contAct.ToString(); - // rendo il valore! - return contAct; - } - /// - /// Aggiorna un valore del dizionario in INCREMENTO e lo restituisce - /// - /// - /// - /// - /// Nuovo valore incrementato - private long updateValLongByIncr(int i, long delta, string searchString) - { - // stringa da cercare.. - string keyVal = string.Format(searchString, i + 1); - // recupero valore precedente... - long contAct = getStoredValLong(keyVal); - // nuovo valore... - contAct += delta; - // salvo in ram! - persistenceLayer[keyVal] = contAct.ToString(); - // rendo il valore! - return contAct; - } - /// - /// Aggiorna un valore del dizionario in INCREMENTO e lo restituisce - /// - /// - /// - /// - /// Nuovo valore incrementato - private double updateValDoubleByIncr(int i, double delta, string searchString) - { - // stringa da cercare.. - string keyVal = string.Format(searchString, i + 1); - // recupero valore precedente... - double contAct = getStoredValDouble(keyVal); - // nuovo valore... - contAct += delta; - // salvo in ram! - persistenceLayer[keyVal] = contAct.ToString(); - // rendo il valore! - return contAct; - } - - #endregion - - - /// - /// effettua ogni log period una rilettura di TUTTI gli allarmi... - /// - public virtual void forceAlarmCheck() - { - } - - - #region IOB METHODS - - /// - /// Valore del num max invii consecutivi da coda... - /// - protected int nMaxSend = 5; - /// - /// DateTime Ultimo valore simulazione generato - /// - public DateTime lastSim; - /// - /// contatore x simulazione valori input - /// - public int countSim = 0; - /// - /// URL per check alive... - /// - public string urlAlive - { - get - { - return string.Format(@"{0}{1}{2}", currIobConf.serverData.MPIP, currIobConf.serverData.MPURL, currIobConf.serverData.CMDALIVE); - } - } - /// - /// URL per check alive... - /// - public string urlIobEnabled - { - get - { - return string.Format(@"{0}{1}{2}{3}", currIobConf.serverData.MPIP, currIobConf.serverData.MPURL, currIobConf.serverData.CMDENABLED, currIobConf.codIOB); - } - } - /// - /// Fornisce URL INPUT per i parametri richiesti - /// - /// valore salvato in coda formatodtEve#valore#counter - /// - public string urlInput(string queueVal) - { - // URL base x input - string answ = string.Format(@"{0}{1}{2}", currIobConf.serverData.MPIP, currIobConf.serverData.MPURL, currIobConf.serverData.CMDBASE); - // decodifica valore! - string[] valori = qDecodeIN(queueVal); - // aggiungo macchina e valore... - answ += string.Format(@"{0}?valore={1}", currIobConf.codIOB, valori[1]); - // aggiondo dataOra evento e corrente + contatore... - answ += string.Format(@"&&dtEve={0}&&dtCurr={1:yyyyMMddHHmmssfff}&&cnt={2}", valori[0], DateTime.Now, valori[2]); - return answ; - } - /// - /// Effettua chaimata URL e restituisce risultato - /// - /// - /// - public string callUrl(string URL) - { - string answ = ""; - var client = new WebClient(); - answ = client.DownloadString(URL); - // restituisco valore! - return answ; - } - /// - /// Verifica se il server sia ALIVE - /// - private bool checkServerAlive - { - get - { - bool answ = false; - if (DemoOut) - { - answ = true; - } - else - { - try - { - // chiamo URL, se restituisce "OK" è alive! - answ = (callUrl(urlAlive) == "OK"); - } - catch - { } - // verifico SE è variato stato online/offline... - if (MPOnline != answ) - { - // se ORA sono online riporto... - if (answ) - { - lg.Info("SERVER ONLINE"); - } - else - { - lg.Info("SERVER OFFLINE"); - } - // salvo nuovo status... - MPOnline = answ; - } - } - return answ; - } - } - /// - /// Verifica se la IOB sia ENABLED (da server o Demo) - /// - private bool checkIobEnabled - { - get - { - bool answ = false; - if (DemoOut) - { - answ = (QueueIN.Count >= nMaxSend); - } - else - { - try - { - // chiamo URL, se restituisce "OK" è enabled! - answ = (callUrl(urlIobEnabled) == "OK"); - } - catch - { } - } - // verifico SE è variato stato online/offline... - if (IobOnline != answ) - { - // se ORA sono online riporto... - if (answ) - { - lg.Info("IOB ONLINE"); - } - else - { - lg.Info("IOB OFFLINE"); - } - // salvo nuovo status... - IobOnline = answ; - } - return answ; - } - } - - /// - /// Processo la coda... - /// - private void svuotaCoda() - { - // verifico SE la coda abbia dei valori... - if (QueueIN.Count > 0) - { - // verifico se risponde il server... - if (checkServerAlive) - { - // verifico SE posso inviare dati - if (checkIobEnabled) - { - // invio pacchetto di dati (max da conf) - for (int i = 0; i < nMaxSend; i++) - { - // SE ho qualcosa in coda... - if (QueueIN.Count > 0) - { - // INVIO!!! - sendToMoonPro(QueueIN.Dequeue()); - } - } - } - else - { - // mostro VETO-SEND x invio... GIALLO - parentForm.sOUT = Semaforo.SG; - } - } - else - { - // mostro SERVER KO x invio... ROSSO - parentForm.sOUT = Semaforo.SR; - } - } - } - /// - /// Classe fittizia in caso di processing GLOBALE di tutto in 1 solo colpo... - /// - private void processAllMemory() - { - // in primis SALVO valori previous/precedenti - B_previous = B_output; - // poi faccio lettura NUOVI valori - readAllData(); - // eseguo il filtering dei valori (per i bit "blinking") - filterData(); - // effettuo confronto valori vecchi/nuovi... SE trovo variazione - if (B_output != B_previous) - { - // mostro dati variati letti... - displayInData(); - // --> accodo (valore già formattato)! - QueueIN.Enqueue(qEncodeIN); - nReadFilt++; - // Gestione counter! - counter++; - // se supera 10k resetto... - if (counter > 9999) counter = 0; - } - } - /// - /// Esegue filtraggio dati x bit blinking!!! - /// - private void filterData() - { - // effettuo filtraggio dei valori letti... inizializzo OUT! - B_output = 0; - // in primis verifico SE ci siano bit blinkng... se non ci sono OUT=IN... - if (currIobConf.BLINK_FILT == 0) - { - B_output = B_input; - } - else - { - // incomincio con i valori NON blinking: questi "passano invariati", inizio a sommare nel valore OUT... - B_output = B_input & ~currIobConf.BLINK_FILT; - // calcolo il valore dei BIT che "passano la maschera" - int iBlink = B_input & currIobConf.BLINK_FILT; - // ...aggiungo i "bit che passano" - B_output += iBlink; - - // calcolo QUALI valori (tra quelli blink) siano PASSATI da 0 a 1 --> init counters... - BitArray bBlinkStart = new BitArray(new byte[] { Convert.ToByte(iBlink) }); - int[] bitsUp = bBlinkStart.Cast().Select(bit => bit ? 1 : 0).ToArray(); - for (int i = 0; i < bitsUp.Length; i++) - { - // SE 1... impostiamo contatori al MAX - if (bitsUp[i] == 1) - { - // se era zero indico START blink... - if (i_counters[i] == 0) - { - lg.Info("START BLINK: B{0}", i); - } - // imposto comunque contatore al cambio fronte... - i_counters[i] = currIobConf.MAX_COUNTER_BLINK; - } - } - - // quelli che sono zero... LI RECUPERO E LI PROCESSO... - int iZero = ~B_input & currIobConf.BLINK_FILT; - BitArray bBlinkEnd = new BitArray(new byte[] { Convert.ToByte(iZero) }); - int[] bitsDown = bBlinkEnd.Cast().Select(bit => bit ? 1 : 0).ToArray(); - for (int i = 0; i < bitsDown.Length; i++) - { - // se era a zero (invertito...) - if (bitsDown[i] == 1) - { - // SE è in corso il conteggio... - if (i_counters[i] > 0) - { - // decremento! - i_counters[i] -= 1; - // se è zero NON faccio nulla, altrimenti SOMMO... - if (i_counters[i] > 0) - { - B_output += 1 << i; - } - else - { - lg.Info("END BLINK: B{0}", i); - } - } - } - } - } - } - /// - /// Fornisce il valore letto da BITMAP in formato valido x messa in coda nel formato dtEve#value#cont - /// - protected string qEncodeIN - { - get - { - string answ = ""; - try - { - answ = string.Format("{0:yyyyMMddHHmmssfff}#{1:X2}#{2}", DateTime.Now, (int)B_output, counter); - } - catch - { } - return answ; - } - } - /// - /// Decodifica valore della coda IN nel formato - /// answ[0]=dtEve - /// answ[1]=valore - /// answ[2]=counter - /// - /// dtEve + '#' + value + '#' + cont - /// - protected string[] qDecodeIN(string queueVal) - { - return queueVal.Split('#'); - } - /// - /// Effettua lettura dati - /// - public virtual void readAllData() - { - if (!DemoIn) - { - if (connectionOk) - { - readSemafori(); - } - else - { - lg.Error("Errore connessione mancante x readSemafori"); - } - } - else - { - // segnalo ceh sono in Demo - parentForm.sIN = Semaforo.SS; - // simulo letura - simReadMem(); - } - nReadIN++; - // aggiorno valore mostrato... - displayRawData(); - } - /// - /// lettura programma in esecuzione - /// - public virtual void readPrgName() - { - } - - /// - /// Effettua lettura semafori principale - /// - public virtual void readSemafori() - { - } - - private void displayRawData() - { - // mostro update...... - string newString = string.Format("{0}{1}{2}", (int)B_input, Environment.NewLine, parentForm.dataMonitor_0); - // se num righe superiore a limite trimmo... - if (newString.Split('\n').Length > parentForm.nLine2show) - { - int idx = newString.LastIndexOf(Environment.NewLine); - newString = newString.Substring(0, idx); - } - parentForm.dataMonitor_0 = newString; - // salvo coda debug... - QueueDebug.Enqueue(B_input); - } - - /// - /// Effettua invio a MoonPro dello status rilevato in HEX - /// - public void sendToMoonPro(string queueVal) - { - // recupero e formatto URL dati da coda... - lastUrl = urlInput(queueVal); - // se NON sono in demo effettuo invio! - if (!DemoOut) - { - // chiamo URL! - string answ = callUrl(lastUrl); - // loggo! - lg.Info(string.Format("{0} -> {1}", queueVal, answ)); - // se "OK" verde, altrimenti errore --> ROSSO - if (answ == "OK") - { - parentForm.sOUT = Semaforo.SV; - } - else - { - parentForm.sOUT = Semaforo.SR; - } - } - else - { - parentForm.sOUT = Semaforo.SV; - // loggo! - lg.Info(string.Format("{0} -> [SIM]", queueVal)); - } - nSendOut++; - // riporto cosa inviato - displayOutData(); - } - /// - /// Mostra cosa ha/avrebbe inviato - /// - public void displayOutData() - { - // mostro update...... - string newString = string.Format("{0}{1}{2}", lastUrl, Environment.NewLine, parentForm.dataMonitor_2); - // se num righe superiore a limite trimmo... - if (newString.Split('\n').Length > parentForm.nLine2show) - { - int idx = newString.LastIndexOf(Environment.NewLine); - newString = newString.Substring(0, idx); - } - parentForm.dataMonitor_2 = newString; - } - /// - /// Update visualizzaizone BIT in ingresso - /// - public void displayInData() - { - // mostro update...... - string newString = string.Format("{0:0000}|{1}{2}{3}", counter, utils.IntToBinStr((int)B_output, 8), Environment.NewLine, parentForm.dataMonitor_1); - // se num righe superiore a limite trimmo... - if (newString.Split('\n').Length > parentForm.nLine2show) - { - int idx = newString.LastIndexOf(Environment.NewLine); - newString = newString.Substring(0, idx); - } - parentForm.dataMonitor_1 = newString; - } - - public void simReadMem() - { - if (lastSim == null) - { - lastSim = DateTime.Now; - } - // simulazione complessa (basata su samples dei parametri effettivi...) - if (utils.CRB("DemoInSample")) - { - if (numSim >= 0) - { - // verifico se la coda di simulazione sia piena altrimenti la RICARICO... - if (QueueSIM.Count == 0) - { - leggiSimFile(); - numSim--; - } - // processo la coda di simulazione (stacco ed accodo 1 valore...) - B_input = QueueSIM.Dequeue(); - countSim++; - // ogni 5 loggo... - if (countSim % 5 == 0) - { - lg.Info("Read {0} sim data", countSim); - } - } - else - { - // fermo tutto! - parentForm.sIN = Semaforo.SR; - parentForm.fermaAdapter(false); - } - } - // simulazione semplice (counter crescente) - else - { - // se passato 1 sec genero NUOV num casuale e lo metto nel bit strobe... ogni 2 sec... - if (DateTime.Now.Subtract(lastSim).TotalMilliseconds > 100) - { - countSim++; - if (countSim > 255) countSim = 0; - B_input = countSim; - } - } - lastSim = DateTime.Now; - } - /// - /// legge ed accoda file Sim in QueueSIM - /// - private void leggiSimFile() - { - int totRighe = 0; - string fileName = utils.simDataFile; - string linea; - totRighe = File.ReadLines(fileName).Count(); - lg.Info("File SIM: TROVATE {0} righe", totRighe); - // ora conto righe effettive... - totRighe = 0; - // carica da file... - StreamReader file = new StreamReader(fileName); - // leggo 1 linea alla volta... - int valore = 0; - while ((linea = file.ReadLine()) != null) - { - // SE non è un commento... - if (linea.Substring(0, 1) != ";") - { - //elencoAllarmi[rumRiga] = decodeAlarmLine(linea, ':'); - Int32.TryParse(linea, out valore); - QueueSIM.Enqueue(valore); - totRighe++; - } - } - // chiudo file - file.Close(); - lg.Info("File SIM: LETTE {0} righe", totRighe); - } - - #endregion - - } -} diff --git a/IOB-WIN/IOB-WIN/IobSiemens.cs b/IOB-WIN/IOB-WIN/IobSiemens.cs deleted file mode 100644 index 2118a49..0000000 --- a/IOB-WIN/IOB-WIN/IobSiemens.cs +++ /dev/null @@ -1,21 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Text; -using System.Threading.Tasks; -using IOB_UT; - -namespace IOB_WIN -{ - public class IobSiemens : IobGeneric - { - /// - /// estende l'init della classe base... - /// - /// - /// - public IobSiemens(MainForm caller, IobConfiguration IOBConf) : base(caller, IOBConf) - { - } - } -} diff --git a/IOB-WIN/IOB-WIN/MainForm.Designer.cs b/IOB-WIN/IOB-WIN/MainForm.Designer.cs deleted file mode 100644 index cb40f0a..0000000 --- a/IOB-WIN/IOB-WIN/MainForm.Designer.cs +++ /dev/null @@ -1,657 +0,0 @@ -namespace IOB_WIN -{ - partial class MainForm - { - /// - /// Required designer variable. - /// - private System.ComponentModel.IContainer components = null; - - /// - /// Clean up any resources being used. - /// - /// true if managed resources should be disposed; otherwise, false. - protected override void Dispose(bool disposing) - { - if (disposing && (components != null)) - { - components.Dispose(); - } - base.Dispose(disposing); - } - - #region Windows Form Designer generated code - - /// - /// Required method for Designer support - do not modify - /// the contents of this method with the code editor. - /// - private void InitializeComponent() - { - this.components = new System.ComponentModel.Container(); - this.gather = new System.Windows.Forms.Timer(this.components); - this.statusStrip1 = new System.Windows.Forms.StatusStrip(); - this.lblApp = new System.Windows.Forms.ToolStripStatusLabel(); - this.lblVers = new System.Windows.Forms.ToolStripStatusLabel(); - this.MainProgrBar = new System.Windows.Forms.ToolStripProgressBar(); - this.lblComStats = new System.Windows.Forms.ToolStripStatusLabel(); - this.lblStatus = new System.Windows.Forms.ToolStripStatusLabel(); - this.toolStripStatusLabel1 = new System.Windows.Forms.ToolStripStatusLabel(); - this.tslUptime = new System.Windows.Forms.ToolStripStatusLabel(); - this.toolStripStatusLabel2 = new System.Windows.Forms.ToolStripStatusLabel(); - this.tslDataProc = new System.Windows.Forms.ToolStripStatusLabel(); - this.toolStripStatusLabel3 = new System.Windows.Forms.ToolStripStatusLabel(); - this.tslRunTime = new System.Windows.Forms.ToolStripStatusLabel(); - this.menuStrip1 = new System.Windows.Forms.MenuStrip(); - this.FileTSMI = new System.Windows.Forms.ToolStripMenuItem(); - this.mLoadConf = new System.Windows.Forms.ToolStripMenuItem(); - this.notifyIcon1 = new System.Windows.Forms.NotifyIcon(this.components); - this.trayMenu = new System.Windows.Forms.ContextMenuStrip(this.components); - this.tableLayoutPanel1 = new System.Windows.Forms.TableLayoutPanel(); - this.lblTopCent = new System.Windows.Forms.Label(); - this.lblTopDx = new System.Windows.Forms.Label(); - this.lblTopSx = new System.Windows.Forms.Label(); - this.bIN = new System.Windows.Forms.Button(); - this.bOUT = new System.Windows.Forms.Button(); - this.groupBox1 = new System.Windows.Forms.GroupBox(); - this.dump = new System.Windows.Forms.Button(); - this.stop = new System.Windows.Forms.Button(); - this.start = new System.Windows.Forms.Button(); - this.port = new System.Windows.Forms.TextBox(); - this.label1 = new System.Windows.Forms.Label(); - this.gbMonitor = new System.Windows.Forms.GroupBox(); - this.tableLayoutPanel2 = new System.Windows.Forms.TableLayoutPanel(); - this.lblOutMessage = new System.Windows.Forms.Label(); - this.label3 = new System.Windows.Forms.Label(); - this.label4 = new System.Windows.Forms.Label(); - this.lblOutMessage2 = new System.Windows.Forms.Label(); - this.label2 = new System.Windows.Forms.Label(); - this.label7 = new System.Windows.Forms.Label(); - this.lblRawData = new System.Windows.Forms.Label(); - this.lblOutMessage3 = new System.Windows.Forms.Label(); - this.panel1 = new System.Windows.Forms.Panel(); - this.lQueueLen = new System.Windows.Forms.Label(); - this.label6 = new System.Windows.Forms.Label(); - this.label5 = new System.Windows.Forms.Label(); - this.nLines = new System.Windows.Forms.TextBox(); - this.displTimer = new System.Windows.Forms.Timer(this.components); - this.mCheckUpdates = new System.Windows.Forms.ToolStripMenuItem(); - this.statusStrip1.SuspendLayout(); - this.menuStrip1.SuspendLayout(); - this.tableLayoutPanel1.SuspendLayout(); - this.groupBox1.SuspendLayout(); - this.gbMonitor.SuspendLayout(); - this.tableLayoutPanel2.SuspendLayout(); - this.panel1.SuspendLayout(); - this.SuspendLayout(); - // - // gather - // - this.gather.Tick += new System.EventHandler(this.gather_Tick); - // - // statusStrip1 - // - this.statusStrip1.ImageScalingSize = new System.Drawing.Size(20, 20); - this.statusStrip1.Items.AddRange(new System.Windows.Forms.ToolStripItem[] { - this.lblApp, - this.lblVers, - this.MainProgrBar, - this.lblComStats, - this.lblStatus, - this.toolStripStatusLabel1, - this.tslUptime, - this.toolStripStatusLabel2, - this.tslDataProc, - this.toolStripStatusLabel3, - this.tslRunTime}); - this.statusStrip1.Location = new System.Drawing.Point(0, 675); - this.statusStrip1.Name = "statusStrip1"; - this.statusStrip1.Size = new System.Drawing.Size(869, 25); - this.statusStrip1.TabIndex = 0; - this.statusStrip1.Text = "statusStrip1"; - // - // lblApp - // - this.lblApp.Font = new System.Drawing.Font("Segoe UI", 9F, System.Drawing.FontStyle.Bold); - this.lblApp.Name = "lblApp"; - this.lblApp.Size = new System.Drawing.Size(21, 20); - this.lblApp.Text = "..."; - // - // lblVers - // - this.lblVers.Name = "lblVers"; - this.lblVers.Size = new System.Drawing.Size(18, 20); - this.lblVers.Text = "..."; - // - // MainProgrBar - // - this.MainProgrBar.Name = "MainProgrBar"; - this.MainProgrBar.Size = new System.Drawing.Size(100, 19); - // - // lblComStats - // - this.lblComStats.Name = "lblComStats"; - this.lblComStats.Size = new System.Drawing.Size(39, 20); - this.lblComStats.Text = "stats"; - // - // lblStatus - // - this.lblStatus.Name = "lblStatus"; - this.lblStatus.Size = new System.Drawing.Size(27, 20); - this.lblStatus.Text = "---"; - // - // toolStripStatusLabel1 - // - this.toolStripStatusLabel1.Name = "toolStripStatusLabel1"; - this.toolStripStatusLabel1.Size = new System.Drawing.Size(13, 20); - this.toolStripStatusLabel1.Text = "|"; - // - // tslUptime - // - this.tslUptime.Name = "tslUptime"; - this.tslUptime.Size = new System.Drawing.Size(15, 20); - this.tslUptime.Text = "-"; - // - // toolStripStatusLabel2 - // - this.toolStripStatusLabel2.Name = "toolStripStatusLabel2"; - this.toolStripStatusLabel2.Size = new System.Drawing.Size(13, 20); - this.toolStripStatusLabel2.Text = "|"; - // - // tslDataProc - // - this.tslDataProc.Name = "tslDataProc"; - this.tslDataProc.Size = new System.Drawing.Size(15, 20); - this.tslDataProc.Text = "-"; - // - // toolStripStatusLabel3 - // - this.toolStripStatusLabel3.Name = "toolStripStatusLabel3"; - this.toolStripStatusLabel3.Size = new System.Drawing.Size(13, 20); - this.toolStripStatusLabel3.Text = "|"; - // - // tslRunTime - // - this.tslRunTime.Name = "tslRunTime"; - this.tslRunTime.Size = new System.Drawing.Size(0, 20); - // - // menuStrip1 - // - this.menuStrip1.ImageScalingSize = new System.Drawing.Size(20, 20); - this.menuStrip1.Items.AddRange(new System.Windows.Forms.ToolStripItem[] { - this.FileTSMI}); - this.menuStrip1.Location = new System.Drawing.Point(0, 0); - this.menuStrip1.Name = "menuStrip1"; - this.menuStrip1.Size = new System.Drawing.Size(869, 28); - this.menuStrip1.TabIndex = 1; - this.menuStrip1.Text = "menuStrip1"; - // - // FileTSMI - // - this.FileTSMI.DropDownItems.AddRange(new System.Windows.Forms.ToolStripItem[] { - this.mLoadConf, - this.mCheckUpdates}); - this.FileTSMI.Name = "FileTSMI"; - this.FileTSMI.ShortcutKeys = ((System.Windows.Forms.Keys)((System.Windows.Forms.Keys.Alt | System.Windows.Forms.Keys.F))); - this.FileTSMI.Size = new System.Drawing.Size(47, 24); - this.FileTSMI.Text = "&FILE"; - // - // mLoadConf - // - this.mLoadConf.Name = "mLoadConf"; - this.mLoadConf.ShortcutKeys = ((System.Windows.Forms.Keys)((System.Windows.Forms.Keys.Alt | System.Windows.Forms.Keys.L))); - this.mLoadConf.Size = new System.Drawing.Size(214, 26); - this.mLoadConf.Text = "LOAD CONF"; - this.mLoadConf.Click += new System.EventHandler(this.mLoadConf_Click); - // - // notifyIcon1 - // - this.notifyIcon1.ContextMenuStrip = this.trayMenu; - this.notifyIcon1.Text = "IOB-WIN"; - this.notifyIcon1.Visible = true; - this.notifyIcon1.DoubleClick += new System.EventHandler(this.notifyIcon1_DoubleClick); - // - // trayMenu - // - this.trayMenu.ImageScalingSize = new System.Drawing.Size(20, 20); - this.trayMenu.Name = "trayMenu"; - this.trayMenu.Size = new System.Drawing.Size(61, 4); - this.trayMenu.ItemClicked += new System.Windows.Forms.ToolStripItemClickedEventHandler(this.trayMenu_ItemClicked); - // - // tableLayoutPanel1 - // - this.tableLayoutPanel1.Anchor = ((System.Windows.Forms.AnchorStyles)(((System.Windows.Forms.AnchorStyles.Top | System.Windows.Forms.AnchorStyles.Left) - | System.Windows.Forms.AnchorStyles.Right))); - this.tableLayoutPanel1.ColumnCount = 5; - this.tableLayoutPanel1.ColumnStyles.Add(new System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 30F)); - this.tableLayoutPanel1.ColumnStyles.Add(new System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 25F)); - this.tableLayoutPanel1.ColumnStyles.Add(new System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50F)); - this.tableLayoutPanel1.ColumnStyles.Add(new System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 25F)); - this.tableLayoutPanel1.ColumnStyles.Add(new System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 33F)); - this.tableLayoutPanel1.Controls.Add(this.lblTopCent, 2, 0); - this.tableLayoutPanel1.Controls.Add(this.lblTopDx, 3, 0); - this.tableLayoutPanel1.Controls.Add(this.lblTopSx, 1, 0); - this.tableLayoutPanel1.Controls.Add(this.bIN, 0, 0); - this.tableLayoutPanel1.Controls.Add(this.bOUT, 4, 0); - this.tableLayoutPanel1.Location = new System.Drawing.Point(6, 31); - this.tableLayoutPanel1.Name = "tableLayoutPanel1"; - this.tableLayoutPanel1.RowCount = 1; - this.tableLayoutPanel1.RowStyles.Add(new System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100F)); - this.tableLayoutPanel1.Size = new System.Drawing.Size(863, 42); - this.tableLayoutPanel1.TabIndex = 66; - // - // lblTopCent - // - this.lblTopCent.Anchor = ((System.Windows.Forms.AnchorStyles)((((System.Windows.Forms.AnchorStyles.Top | System.Windows.Forms.AnchorStyles.Bottom) - | System.Windows.Forms.AnchorStyles.Left) - | System.Windows.Forms.AnchorStyles.Right))); - this.lblTopCent.Font = new System.Drawing.Font("Microsoft Sans Serif", 16F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(0))); - this.lblTopCent.Location = new System.Drawing.Point(234, 0); - this.lblTopCent.Margin = new System.Windows.Forms.Padding(4, 0, 4, 0); - this.lblTopCent.Name = "lblTopCent"; - this.lblTopCent.Size = new System.Drawing.Size(392, 42); - this.lblTopCent.TabIndex = 68; - this.lblTopCent.Text = "IOB loaded: N.A."; - this.lblTopCent.TextAlign = System.Drawing.ContentAlignment.MiddleCenter; - // - // lblTopDx - // - this.lblTopDx.Anchor = ((System.Windows.Forms.AnchorStyles)((((System.Windows.Forms.AnchorStyles.Top | System.Windows.Forms.AnchorStyles.Bottom) - | System.Windows.Forms.AnchorStyles.Left) - | System.Windows.Forms.AnchorStyles.Right))); - this.lblTopDx.AutoSize = true; - this.lblTopDx.Location = new System.Drawing.Point(633, 0); - this.lblTopDx.Name = "lblTopDx"; - this.lblTopDx.Size = new System.Drawing.Size(194, 42); - this.lblTopDx.TabIndex = 69; - this.lblTopDx.Text = "..."; - this.lblTopDx.TextAlign = System.Drawing.ContentAlignment.MiddleRight; - // - // lblTopSx - // - this.lblTopSx.Anchor = ((System.Windows.Forms.AnchorStyles)((((System.Windows.Forms.AnchorStyles.Top | System.Windows.Forms.AnchorStyles.Bottom) - | System.Windows.Forms.AnchorStyles.Left) - | System.Windows.Forms.AnchorStyles.Right))); - this.lblTopSx.AutoSize = true; - this.lblTopSx.Location = new System.Drawing.Point(33, 0); - this.lblTopSx.Name = "lblTopSx"; - this.lblTopSx.Size = new System.Drawing.Size(194, 42); - this.lblTopSx.TabIndex = 70; - this.lblTopSx.Text = "..."; - this.lblTopSx.TextAlign = System.Drawing.ContentAlignment.MiddleLeft; - // - // bIN - // - this.bIN.Anchor = ((System.Windows.Forms.AnchorStyles)((((System.Windows.Forms.AnchorStyles.Top | System.Windows.Forms.AnchorStyles.Bottom) - | System.Windows.Forms.AnchorStyles.Left) - | System.Windows.Forms.AnchorStyles.Right))); - this.bIN.Font = new System.Drawing.Font("Microsoft Sans Serif", 10F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(0))); - this.bIN.Location = new System.Drawing.Point(3, 3); - this.bIN.Name = "bIN"; - this.bIN.Size = new System.Drawing.Size(24, 36); - this.bIN.TabIndex = 71; - this.bIN.Text = "I"; - this.bIN.UseVisualStyleBackColor = true; - // - // bOUT - // - this.bOUT.Anchor = ((System.Windows.Forms.AnchorStyles)((((System.Windows.Forms.AnchorStyles.Top | System.Windows.Forms.AnchorStyles.Bottom) - | System.Windows.Forms.AnchorStyles.Left) - | System.Windows.Forms.AnchorStyles.Right))); - this.bOUT.Font = new System.Drawing.Font("Microsoft Sans Serif", 10F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(0))); - this.bOUT.Location = new System.Drawing.Point(833, 3); - this.bOUT.Name = "bOUT"; - this.bOUT.Size = new System.Drawing.Size(27, 36); - this.bOUT.TabIndex = 72; - this.bOUT.Text = "O"; - this.bOUT.UseVisualStyleBackColor = true; - // - // groupBox1 - // - this.groupBox1.Controls.Add(this.dump); - this.groupBox1.Controls.Add(this.stop); - this.groupBox1.Controls.Add(this.start); - this.groupBox1.Controls.Add(this.port); - this.groupBox1.Controls.Add(this.label1); - this.groupBox1.Location = new System.Drawing.Point(6, 80); - this.groupBox1.Margin = new System.Windows.Forms.Padding(4); - this.groupBox1.Name = "groupBox1"; - this.groupBox1.Padding = new System.Windows.Forms.Padding(4); - this.groupBox1.Size = new System.Drawing.Size(505, 53); - this.groupBox1.TabIndex = 67; - this.groupBox1.TabStop = false; - this.groupBox1.Text = "IOB Info"; - // - // dump - // - this.dump.Location = new System.Drawing.Point(397, 18); - this.dump.Margin = new System.Windows.Forms.Padding(4); - this.dump.Name = "dump"; - this.dump.Size = new System.Drawing.Size(100, 28); - this.dump.TabIndex = 4; - this.dump.Text = "Show Dump"; - this.dump.UseVisualStyleBackColor = true; - this.dump.Click += new System.EventHandler(this.dump_Click); - // - // stop - // - this.stop.Location = new System.Drawing.Point(269, 18); - this.stop.Margin = new System.Windows.Forms.Padding(4); - this.stop.Name = "stop"; - this.stop.Size = new System.Drawing.Size(100, 28); - this.stop.TabIndex = 3; - this.stop.Text = "Stop"; - this.stop.UseVisualStyleBackColor = true; - this.stop.Click += new System.EventHandler(this.stop_Click); - // - // start - // - this.start.Location = new System.Drawing.Point(161, 18); - this.start.Margin = new System.Windows.Forms.Padding(4); - this.start.Name = "start"; - this.start.Size = new System.Drawing.Size(100, 28); - this.start.TabIndex = 2; - this.start.Text = "Start"; - this.start.UseVisualStyleBackColor = true; - this.start.Click += new System.EventHandler(this.start_Click); - // - // port - // - this.port.Enabled = false; - this.port.Location = new System.Drawing.Point(67, 21); - this.port.Margin = new System.Windows.Forms.Padding(4); - this.port.Name = "port"; - this.port.Size = new System.Drawing.Size(81, 22); - this.port.TabIndex = 1; - this.port.Text = "7878"; - this.port.TextAlign = System.Windows.Forms.HorizontalAlignment.Right; - this.port.Visible = false; - // - // label1 - // - this.label1.AutoSize = true; - this.label1.Location = new System.Drawing.Point(24, 25); - this.label1.Margin = new System.Windows.Forms.Padding(4, 0, 4, 0); - this.label1.Name = "label1"; - this.label1.Size = new System.Drawing.Size(34, 17); - this.label1.TabIndex = 0; - this.label1.Text = "Port"; - this.label1.Visible = false; - // - // gbMonitor - // - this.gbMonitor.Anchor = ((System.Windows.Forms.AnchorStyles)((((System.Windows.Forms.AnchorStyles.Top | System.Windows.Forms.AnchorStyles.Bottom) - | System.Windows.Forms.AnchorStyles.Left) - | System.Windows.Forms.AnchorStyles.Right))); - this.gbMonitor.BackColor = System.Drawing.Color.Black; - this.gbMonitor.Controls.Add(this.tableLayoutPanel2); - this.gbMonitor.ForeColor = System.Drawing.SystemColors.Control; - this.gbMonitor.Location = new System.Drawing.Point(6, 137); - this.gbMonitor.Margin = new System.Windows.Forms.Padding(0); - this.gbMonitor.Name = "gbMonitor"; - this.gbMonitor.Padding = new System.Windows.Forms.Padding(0); - this.gbMonitor.Size = new System.Drawing.Size(860, 538); - this.gbMonitor.TabIndex = 70; - this.gbMonitor.TabStop = false; - this.gbMonitor.Text = "Monitor variabili"; - // - // tableLayoutPanel2 - // - this.tableLayoutPanel2.Anchor = ((System.Windows.Forms.AnchorStyles)((((System.Windows.Forms.AnchorStyles.Top | System.Windows.Forms.AnchorStyles.Bottom) - | System.Windows.Forms.AnchorStyles.Left) - | System.Windows.Forms.AnchorStyles.Right))); - this.tableLayoutPanel2.ColumnCount = 4; - this.tableLayoutPanel2.ColumnStyles.Add(new System.Windows.Forms.ColumnStyle()); - this.tableLayoutPanel2.ColumnStyles.Add(new System.Windows.Forms.ColumnStyle()); - this.tableLayoutPanel2.ColumnStyles.Add(new System.Windows.Forms.ColumnStyle()); - this.tableLayoutPanel2.ColumnStyles.Add(new System.Windows.Forms.ColumnStyle()); - this.tableLayoutPanel2.Controls.Add(this.lblOutMessage, 1, 1); - this.tableLayoutPanel2.Controls.Add(this.label3, 2, 0); - this.tableLayoutPanel2.Controls.Add(this.label4, 3, 0); - this.tableLayoutPanel2.Controls.Add(this.lblOutMessage2, 2, 1); - this.tableLayoutPanel2.Controls.Add(this.label2, 1, 0); - this.tableLayoutPanel2.Controls.Add(this.label7, 0, 0); - this.tableLayoutPanel2.Controls.Add(this.lblRawData, 0, 1); - this.tableLayoutPanel2.Controls.Add(this.lblOutMessage3, 3, 1); - this.tableLayoutPanel2.Location = new System.Drawing.Point(6, 27); - this.tableLayoutPanel2.Name = "tableLayoutPanel2"; - this.tableLayoutPanel2.RowCount = 2; - this.tableLayoutPanel2.RowStyles.Add(new System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20F)); - this.tableLayoutPanel2.RowStyles.Add(new System.Windows.Forms.RowStyle()); - this.tableLayoutPanel2.Size = new System.Drawing.Size(851, 508); - this.tableLayoutPanel2.TabIndex = 63; - // - // lblOutMessage - // - this.lblOutMessage.AutoSize = true; - this.lblOutMessage.Dock = System.Windows.Forms.DockStyle.Top; - this.lblOutMessage.Font = new System.Drawing.Font("Microsoft Sans Serif", 7F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(0))); - this.lblOutMessage.ForeColor = System.Drawing.Color.FromArgb(((int)(((byte)(128)))), ((int)(((byte)(255)))), ((int)(((byte)(128))))); - this.lblOutMessage.Location = new System.Drawing.Point(31, 20); - this.lblOutMessage.Margin = new System.Windows.Forms.Padding(4, 0, 4, 0); - this.lblOutMessage.Name = "lblOutMessage"; - this.lblOutMessage.Size = new System.Drawing.Size(56, 15); - this.lblOutMessage.TabIndex = 61; - this.lblOutMessage.Text = "..."; - // - // label3 - // - this.label3.AutoSize = true; - this.label3.Location = new System.Drawing.Point(94, 0); - this.label3.Name = "label3"; - this.label3.Size = new System.Drawing.Size(93, 17); - this.label3.TabIndex = 64; - this.label3.Text = "URL CALLED"; - // - // label4 - // - this.label4.AutoSize = true; - this.label4.Location = new System.Drawing.Point(193, 0); - this.label4.Name = "label4"; - this.label4.Size = new System.Drawing.Size(98, 17); - this.label4.TabIndex = 65; - this.label4.Text = "OTHER DATA"; - // - // lblOutMessage2 - // - this.lblOutMessage2.AutoSize = true; - this.lblOutMessage2.Dock = System.Windows.Forms.DockStyle.Top; - this.lblOutMessage2.Font = new System.Drawing.Font("Microsoft Sans Serif", 7F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(0))); - this.lblOutMessage2.ForeColor = System.Drawing.Color.Yellow; - this.lblOutMessage2.Location = new System.Drawing.Point(95, 20); - this.lblOutMessage2.Margin = new System.Windows.Forms.Padding(4, 0, 4, 0); - this.lblOutMessage2.Name = "lblOutMessage2"; - this.lblOutMessage2.Size = new System.Drawing.Size(91, 15); - this.lblOutMessage2.TabIndex = 62; - this.lblOutMessage2.Text = "..."; - // - // label2 - // - this.label2.AutoSize = true; - this.label2.Location = new System.Drawing.Point(30, 0); - this.label2.Name = "label2"; - this.label2.Size = new System.Drawing.Size(58, 17); - this.label2.TabIndex = 65; - this.label2.Text = "SIGNAL"; - // - // label7 - // - this.label7.AutoSize = true; - this.label7.Location = new System.Drawing.Point(3, 0); - this.label7.Name = "label7"; - this.label7.Size = new System.Drawing.Size(21, 17); - this.label7.TabIndex = 66; - this.label7.Text = "IN"; - // - // lblRawData - // - this.lblRawData.Anchor = ((System.Windows.Forms.AnchorStyles)(((System.Windows.Forms.AnchorStyles.Top | System.Windows.Forms.AnchorStyles.Left) - | System.Windows.Forms.AnchorStyles.Right))); - this.lblRawData.AutoSize = true; - this.lblRawData.Font = new System.Drawing.Font("Microsoft Sans Serif", 7F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(0))); - this.lblRawData.ForeColor = System.Drawing.Color.FromArgb(((int)(((byte)(0)))), ((int)(((byte)(192)))), ((int)(((byte)(192))))); - this.lblRawData.Location = new System.Drawing.Point(3, 20); - this.lblRawData.Name = "lblRawData"; - this.lblRawData.Size = new System.Drawing.Size(21, 15); - this.lblRawData.TabIndex = 67; - this.lblRawData.Text = "..."; - // - // lblOutMessage3 - // - this.lblOutMessage3.Anchor = ((System.Windows.Forms.AnchorStyles)(((System.Windows.Forms.AnchorStyles.Top | System.Windows.Forms.AnchorStyles.Left) - | System.Windows.Forms.AnchorStyles.Right))); - this.lblOutMessage3.AutoSize = true; - this.lblOutMessage3.ForeColor = System.Drawing.Color.FromArgb(((int)(((byte)(255)))), ((int)(((byte)(128)))), ((int)(((byte)(0))))); - this.lblOutMessage3.Location = new System.Drawing.Point(193, 20); - this.lblOutMessage3.Name = "lblOutMessage3"; - this.lblOutMessage3.Size = new System.Drawing.Size(655, 17); - this.lblOutMessage3.TabIndex = 68; - this.lblOutMessage3.Text = "..."; - // - // panel1 - // - this.panel1.Anchor = ((System.Windows.Forms.AnchorStyles)((System.Windows.Forms.AnchorStyles.Top | System.Windows.Forms.AnchorStyles.Right))); - this.panel1.Controls.Add(this.lQueueLen); - this.panel1.Controls.Add(this.label6); - this.panel1.Controls.Add(this.label5); - this.panel1.Controls.Add(this.nLines); - this.panel1.Location = new System.Drawing.Point(674, 98); - this.panel1.Name = "panel1"; - this.panel1.Size = new System.Drawing.Size(192, 32); - this.panel1.TabIndex = 73; - // - // lQueueLen - // - this.lQueueLen.AutoSize = true; - this.lQueueLen.Font = new System.Drawing.Font("Microsoft Sans Serif", 8F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(0))); - this.lQueueLen.Location = new System.Drawing.Point(48, 8); - this.lQueueLen.Name = "lQueueLen"; - this.lQueueLen.Size = new System.Drawing.Size(17, 17); - this.lQueueLen.TabIndex = 77; - this.lQueueLen.Text = "#"; - // - // label6 - // - this.label6.AutoSize = true; - this.label6.Location = new System.Drawing.Point(3, 8); - this.label6.Name = "label6"; - this.label6.Size = new System.Drawing.Size(48, 17); - this.label6.TabIndex = 76; - this.label6.Text = "queue"; - // - // label5 - // - this.label5.AutoSize = true; - this.label5.Location = new System.Drawing.Point(116, 7); - this.label5.Name = "label5"; - this.label5.Size = new System.Drawing.Size(37, 17); - this.label5.TabIndex = 74; - this.label5.Text = "rows"; - // - // nLines - // - this.nLines.Font = new System.Drawing.Font("Microsoft Sans Serif", 10F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(0))); - this.nLines.Location = new System.Drawing.Point(159, 1); - this.nLines.Name = "nLines"; - this.nLines.Size = new System.Drawing.Size(33, 26); - this.nLines.TabIndex = 73; - this.nLines.Text = "50"; - this.nLines.TextAlign = System.Windows.Forms.HorizontalAlignment.Right; - // - // displTimer - // - this.displTimer.Tick += new System.EventHandler(this.displTimer_Tick); - // - // mCheckUpdates - // - this.mCheckUpdates.Name = "mCheckUpdates"; - this.mCheckUpdates.Size = new System.Drawing.Size(214, 26); - this.mCheckUpdates.Text = "CHECK &UPDATES"; - this.mCheckUpdates.Click += new System.EventHandler(this.mCheckUpdates_Click); - // - // MainForm - // - this.AutoScaleDimensions = new System.Drawing.SizeF(8F, 16F); - this.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font; - this.ClientSize = new System.Drawing.Size(869, 700); - this.Controls.Add(this.panel1); - this.Controls.Add(this.gbMonitor); - this.Controls.Add(this.groupBox1); - this.Controls.Add(this.tableLayoutPanel1); - this.Controls.Add(this.statusStrip1); - this.Controls.Add(this.menuStrip1); - this.MainMenuStrip = this.menuStrip1; - this.Name = "MainForm"; - this.Text = "IOB-WIN"; - this.FormClosing += new System.Windows.Forms.FormClosingEventHandler(this.MainForm_FormClosing); - this.Shown += new System.EventHandler(this.MainForm_Shown); - this.Resize += new System.EventHandler(this.MainForm_Resize); - this.statusStrip1.ResumeLayout(false); - this.statusStrip1.PerformLayout(); - this.menuStrip1.ResumeLayout(false); - this.menuStrip1.PerformLayout(); - this.tableLayoutPanel1.ResumeLayout(false); - this.tableLayoutPanel1.PerformLayout(); - this.groupBox1.ResumeLayout(false); - this.groupBox1.PerformLayout(); - this.gbMonitor.ResumeLayout(false); - this.tableLayoutPanel2.ResumeLayout(false); - this.tableLayoutPanel2.PerformLayout(); - this.panel1.ResumeLayout(false); - this.panel1.PerformLayout(); - this.ResumeLayout(false); - this.PerformLayout(); - - } - - #endregion - - private System.Windows.Forms.Timer gather; - private System.Windows.Forms.StatusStrip statusStrip1; - private System.Windows.Forms.MenuStrip menuStrip1; - private System.Windows.Forms.NotifyIcon notifyIcon1; - private System.Windows.Forms.ContextMenuStrip trayMenu; - private System.Windows.Forms.ToolStripStatusLabel lblApp; - private System.Windows.Forms.ToolStripStatusLabel lblVers; - private System.Windows.Forms.ToolStripProgressBar MainProgrBar; - private System.Windows.Forms.ToolStripStatusLabel lblComStats; - private System.Windows.Forms.ToolStripStatusLabel lblStatus; - private System.Windows.Forms.ToolStripMenuItem FileTSMI; - private System.Windows.Forms.ToolStripMenuItem mLoadConf; - private System.Windows.Forms.TableLayoutPanel tableLayoutPanel1; - private System.Windows.Forms.Label lblTopCent; - private System.Windows.Forms.Label lblTopDx; - private System.Windows.Forms.Label lblTopSx; - private System.Windows.Forms.GroupBox groupBox1; - private System.Windows.Forms.Button dump; - private System.Windows.Forms.Button stop; - private System.Windows.Forms.Button start; - private System.Windows.Forms.TextBox port; - private System.Windows.Forms.Label label1; - private System.Windows.Forms.GroupBox gbMonitor; - private System.Windows.Forms.TableLayoutPanel tableLayoutPanel2; - private System.Windows.Forms.Label lblOutMessage; - private System.Windows.Forms.Label lblOutMessage2; - private System.Windows.Forms.Label label2; - private System.Windows.Forms.Label label4; - private System.Windows.Forms.Label label3; - private System.Windows.Forms.Panel panel1; - private System.Windows.Forms.Label lQueueLen; - private System.Windows.Forms.Label label6; - private System.Windows.Forms.Label label5; - private System.Windows.Forms.TextBox nLines; - private System.Windows.Forms.Button bIN; - private System.Windows.Forms.Button bOUT; - private System.Windows.Forms.ToolStripStatusLabel toolStripStatusLabel1; - private System.Windows.Forms.ToolStripStatusLabel tslUptime; - private System.Windows.Forms.ToolStripStatusLabel toolStripStatusLabel2; - private System.Windows.Forms.ToolStripStatusLabel tslDataProc; - private System.Windows.Forms.ToolStripStatusLabel toolStripStatusLabel3; - private System.Windows.Forms.ToolStripStatusLabel tslRunTime; - private System.Windows.Forms.Timer displTimer; - private System.Windows.Forms.Label label7; - private System.Windows.Forms.Label lblRawData; - private System.Windows.Forms.Label lblOutMessage3; - private System.Windows.Forms.ToolStripMenuItem mCheckUpdates; - } -} \ No newline at end of file diff --git a/IOB-WIN/IOB-WIN/MainForm.cs b/IOB-WIN/IOB-WIN/MainForm.cs deleted file mode 100644 index 5d75128..0000000 --- a/IOB-WIN/IOB-WIN/MainForm.cs +++ /dev/null @@ -1,946 +0,0 @@ -using AutoUpdaterDotNET; -using IOB_UT; -using NLog; -using System; -using System.Collections.Generic; -using System.Configuration; -using System.Diagnostics; -using System.Drawing; -using System.Threading; -using System.Windows.Forms; - -namespace IOB_WIN -{ - public partial class MainForm : Form - { - #region inizializzazione contatori - - /// - /// contatore veloce - /// - protected int fastCount; - /// - /// contatore normale - /// - protected int normCount; - /// - /// contatore lento - /// - protected int slowCount; - /// - /// contatore sync allarmi - /// - protected int verySlowCount; - /// - /// timer base in avvio - /// - protected int startTimerMs = 250; - /// - /// ultimo tentativo riavvio... - /// - protected DateTime lastStartTry; - /// - /// Data-Ora prima apertura FORM... - /// - protected DateTime firstStart; - - #endregion - - #region inizializzazione oggetti base - - /// - /// oggetto logging - /// - public static Logger lg; - - /// - /// Oggetto x gestione dell'adapter GENERICO (x poter usare metodi di ognuno...) - /// - IobGeneric iobObj; - /// - /// configurazione caricata - /// - IobConfiguration IOBConf; - /// - /// tipo di adapter prescelto... - /// - public tipoAdapter tipoScelto = tipoAdapter.DEMO; - /// - /// URLK stringa di UPDATE... - /// - protected string updateUrl - { - get - { - return string.Format("http://seriate.steamware.net:8083/SWS/IOB-WIN/{0}/manifest.xml", utils.CRS("appVers")); - } - } - - #endregion - - #region utils ed helpers - - private class Item - { - public string Name; - public int Value; - public Item(string name, int value) - { - Name = name; Value = value; - } - } - /// - /// mostra un testo sulla status bar + LOG - /// - /// - public void displayTaskAndLog(string txt2show) - { - lblStatus.Text = txt2show; - lblStatus.Invalidate(); - lg.Info(txt2show); - } - /// - /// Mostra update delle statistiche di comunicazione (numero chiamate, tempo medio...) - /// - /// - public void updateComStats(string txt2show) - { - lblComStats.Text = string.Format("{0} | ", txt2show); - } - - #endregion - - #region gestione form e visibilità - - // apro eseguibile dump - private void dump_Click(object sender, EventArgs e) - { - apriDumpAgent(); - } - /// - /// apre agent di dump in CMD - /// - private static void apriDumpAgent() - { - string path = Application.StartupPath; - try - { - Process.Start(string.Format(@"{0}\..\..\dump\dump.exe", path)); - } - catch - { - Process.Start(string.Format(@"{0}\dump\dump.exe", path)); - } - } - - /// - /// Avvio MainForm - /// - public MainForm() - { - // avvio autoupdater... - AutoUpdater.Start(updateUrl); - - // continuo avvio... - InitializeComponent(); - lblStatus.Text = "Loading"; - - // inizializzo orologi - firstStart = DateTime.Now; - lastStartTry = DateTime.Now; - - // fix icon! - notifyIcon1.Text = string.Format("IOB-WIN | {0}", System.Reflection.Assembly.GetExecutingAssembly().GetName().Version); - Icon = Icon.ExtractAssociatedIcon(utils.defIconFilePath); - notifyIcon1.Icon = Icon.ExtractAssociatedIcon(utils.defIconFilePath); - - // fix versione! - lblApp.Text = string.Format("{0}", ConfigurationManager.AppSettings.Get("appName")); - lblVers.Text = string.Format(" v.{0}", System.Reflection.Assembly.GetExecutingAssembly().GetName().Version); - - startTimerMs = utils.CRI("startTimerMs"); - -#if DEBUG - // Setup the logging view for Sentinel - http://sentinel.codeplex.com - var sentinalTarget = new NLogViewerTarget() - { - Name = "sentinal", - Address = "udp://127.0.0.1:9999", - IncludeNLogData = false - }; - var sentinalRule = new LoggingRule("*", LogLevel.Trace, sentinalTarget); - LogManager.Configuration.AddTarget("sentinal", sentinalTarget); - LogManager.Configuration.LoggingRules.Add(sentinalRule); - -#endif - - LogManager.ReconfigExistingLoggers(); - - lg = LogManager.GetCurrentClassLogger(); - displayTaskAndLog("MainForm Starting"); - - // se abilitato autoload conf leggo file corretto... - if (utils.CRB("autoLoadConf")) - { - loadIniFile(utils.defConfFilePath); - lg.Info("INI LOADED"); - loadPersistLayer(utils.defPersLayerFile); - lg.Info("PersLayerFile READ"); - iobObj.loadPersData(); - lg.Info("PersLayerFile LOADED"); - } - else - { - // definisco e avvio tipo adapter generico - tipoScelto = tipoAdapter.ND; - IOBConf = new IobConfiguration(); - loadIobType(); - displayTaskAndLog("Waiting for config file selection"); - } - - // Start timer periodico comunicazione - gather.Interval = utils.CRI("timerIntMs"); - gather.Enabled = true; - displayTaskAndLog(string.Format("Main timer set: {0}ms", gather.Interval)); - // Start timer periodico interfaccia - displTimer.Interval = utils.CRI("timerIntMs"); - displTimer.Enabled = true; - - displayTaskAndLog("Program Running"); - createTrayMenu(); - displayTaskAndLog("Tray Menu OK"); - - // avvio minimizzato se richiesto - if (utils.CRB("startMinimized")) - { - // imposto minimized se necessario! - if (WindowState != FormWindowState.Minimized) - { - WindowState = FormWindowState.Minimized; - } - displayTaskAndLog("Minimized"); - } - - displayTaskAndLog("Main Form OK"); - } - /// - /// Fase chiusura Form - /// - /// - /// - private void MainForm_FormClosing(object sender, FormClosingEventArgs e) - { - closeAdapter(); - } - /// - /// Mostrata form - /// - /// - /// - private void MainForm_Shown(object sender, EventArgs e) - { - // avvio minimizzato se richiesto - if (utils.CRB("startMinimized")) - { - // controllo e mando a tray... - sendToTray(); - } - displayTaskAndLog("Main Form SHOWN"); - } - /// - /// Completato resize form - /// - /// - /// - private void MainForm_Resize(object sender, EventArgs e) - { - checkFormVisibility(); - } - - #endregion - - #region gestione tray - - /// - /// crea menù tray x applicazione - /// - private void createTrayMenu() - { - // Fix testi menù tray... - trayMenu.Items.Clear(); - // SE permessa massimizzazione... - if (utils.CRB("windowCanMax")) - { - trayMenu.Items.Add("Show IOB-WIN"); - } - // se è permesso tray close... - if (utils.CRB("trayClose")) - { - trayMenu.Items.Add("Close IOB-WIN"); - } - } - - /// - /// doppio click su tray icon - /// - /// - /// - private void notifyIcon1_DoubleClick(object sender, EventArgs e) - { - // SOLO SE PERMESSO mostrare full... - if (utils.CRB("windowCanMax")) - { - Show(); - WindowState = FormWindowState.Normal; - } - } - /// - /// Verifica stato windows (minimized/normal) e visibilità con tray... - /// - private void checkFormVisibility() - { - // se non può massimizzare imposto COMUNQUE a minimized... - if (!utils.CRB("windowCanMax")) - { - WindowState = FormWindowState.Minimized; - } - // controllo cosa devo mostrare... - if (WindowState == FormWindowState.Minimized) - { - notifyIcon1.Visible = false; - sendToTray(); - } - else - { - notifyIcon1.Visible = false; - } - - } - /// - /// Gestisce "andata nel tray" della form - /// - private void sendToTray() - { - if (!notifyIcon1.Visible) - { - notifyIcon1.BalloonTipTitle = utils.CRS("appName"); - notifyIcon1.BalloonTipText = string.Format("{0} running on tray", utils.CRS("appName")); - notifyIcon1.Visible = true; - notifyIcon1.ShowBalloonTip(100); - } - Hide(); - } - /// - /// click su menù contestuale in tray - /// - /// - /// - private void trayMenu_ItemClicked(object sender, ToolStripItemClickedEventArgs e) - { - if (e.ClickedItem.Text.StartsWith("Close")) - { - // stop adapter... - closeAdapter(); - // chiudo! - Close(); - } - else if (e.ClickedItem.Text.StartsWith("Show")) - { - if (utils.CRB("windowCanMax")) - { - Show(); - WindowState = FormWindowState.Normal; - } - } - } - - #endregion - - #region gestione metodi specifici FORM - - /// - /// Avanza la barra di stato... - /// - public void advProgBar() - { - try - { - MainProgrBar.PerformStep(); - MainProgrBar.Invalidate(); - // aggiorno runtime... - TimeSpan uptime = DateTime.Now.Subtract(iobObj.dtAvvioAdp); - tslRunTime.Text = string.Format("Running: {0}gg {1:00}:{2:00}:{3:00}", uptime.Days, uptime.Hours, uptime.Minutes, uptime.Seconds); - } - catch - { } - } - private void checkSendTask() - { - // avvio fase invio con adapter (code MST) - iobObj.getAndSend(gatherCycle.VHF); - } - private void checkFastTask() - { - // decremento... - fastCount--; - // se il counter è a zero eseguo... - if (fastCount <= 0) - { - fastCount = utils.CRI("fastCount"); - - // avvio fase raccolta dati e invio con adapter - iobObj.getAndSend(gatherCycle.HF); - } - } - private void checkNormTask() - { - // decremento... - normCount--; - // se il counter è a zero eseguo... - if (normCount <= 0) - { - normCount = utils.CRI("normCount"); - - // avvio fase raccolta dati e invio con adapter - iobObj.getAndSend(gatherCycle.MF); - } - } - private void checkSlowTask() - { - slowCount--; - if (slowCount <= 0) - { - slowCount = utils.CRI("slowCount"); - - // avvio fase raccolta dati e invio con adapter - iobObj.getAndSend(gatherCycle.LF); - } - } - - private void checkVerySlowData() - { - verySlowCount--; - if (verySlowCount <= 0) - { - verySlowCount = utils.CRI("verySlowCount"); - // avvio fase raccolta dati e invio con adapter - iobObj.getAndSend(gatherCycle.VLF); - } - } - - private void refreshFormData() - { - // aggiorno visualizzazioni varie in form... - lQueueLen.Text = iobObj.QueueIN.Count.ToString(); - } - private void gather_Tick(object sender, EventArgs e) - { - if (iobObj.verboseLog) lg.Info("START gather_Tick"); - // eseguo cicli attivi SOLO se adapter è in EFFETTIVO running... - if (iobObj.adpRunning) - { - // inizio a riportare che sto eseguendo.. - advProgBar(); - if (iobObj.connectionOk) - { - // check esecuzione FastTask - checkFastTask(); - // check esecuzione NormTask - checkNormTask(); - // check esecuzione SlowTask - checkSlowTask(); - // check esecuzione AlarmSync - checkVerySlowData(); - // check esecuzione SendTask (VHF) - checkSendTask(); - if (utils.CRI("waitEndCycle") > 0) - { - Thread.Sleep(utils.CRI("waitEndCycle")); - } - } - else - { - double currWait = DateTime.Now.Subtract(lastStartTry).TotalMilliseconds; - if (iobObj.adpTryRestart && currWait > utils.CRI("waitRecMSec")) - { - lastStartTry = DateTime.Now; - iobObj.tryConnect(); - iobObj.loadPersData(); - } - } - // se è arrivato a MAX resetto... - if (MainProgrBar.Value >= MainProgrBar.Maximum) - { - MainProgrBar.Value = 0; - } - } - else - { - lg.Info("PLC <--> IOB Not connected"); - // verifico SE debba tentare il riavvio, ovvero NON running ma tryReconn e non ho riprovato x oltre waitRecMSec - double currWait = DateTime.Now.Subtract(lastStartTry).TotalMilliseconds; - if (iobObj.adpTryRestart && currWait > utils.CRI("waitRecMSec")) - { - lastStartTry = DateTime.Now; - avviaAdapter(); - iobObj.loadPersData(); - } - } - if (iobObj.verboseLog) lg.Info("END gather_Tick"); - } - /// - /// Chiusura adapter - /// - private void closeAdapter() - { - fermaTutto(true, false); - } - /// - /// Ferma tutti i componenti adapter + update buttons - /// - /// determina se fermare il timer (gather) principale (solo se non si chiude) - /// determina se tentare di riconnettersi - private void fermaTutto(bool stopTimer, bool tryRestart) - { - iobObj.stopAdapter(tryRestart); - // salvo! - savePersistLayer(utils.defPersLayerFile); - savePersistLayer(utils.histPersLayerFile); - - stop.Enabled = false; - dump.Enabled = false; - start.Enabled = true; - - if (stopTimer) - { - gather.Enabled = false; - iobObj.tryDisconnect(); - } - sIN = Semaforo.SS; - sOUT = Semaforo.SS; - } - - /// - /// Carica file ini della configurazione richiesta - /// - /// - private void loadIniFile(string iniConfFile) - { - displayTaskAndLog(string.Format("Loading iniConfFile: {0}", iniConfFile)); - - IniFile fIni = new IniFile(iniConfFile); - tipoScelto = (tipoAdapter)Enum.Parse(typeof(tipoAdapter), fIni.ReadString("IOB", "CNCTYPE", "DEMO")); - IOBConf = new IobConfiguration - { - tipoIob = tipoScelto, - versIOB = System.Reflection.Assembly.GetExecutingAssembly().GetName().Version.ToString(), - codIOB = fIni.ReadString("IOB", "IDXMACC", "0"), - cncIpAddr = fIni.ReadString("CNC", "IP", "::1"), - cncPort = fIni.ReadString("CNC", "PORT", "0"), - serverData = new serverMapo(fIni.ReadString("SERVER", "MPIP", "::1"), fIni.ReadString("SERVER", "MPURL", "/"), fIni.ReadString("SERVER", "CMDBASE", "/"), fIni.ReadString("SERVER", "CMDALIVE", "/"), fIni.ReadString("SERVER", "CMDENABLED", "/"), fIni.ReadString("SERVER", "CMDREBO", "/")), - MAX_COUNTER_BLINK = Convert.ToInt32(fIni.ReadString("BLINK", "MAX_COUNTER_BLINK", "1")), - BLINK_FILT = Convert.ToInt32(fIni.ReadString("BLINK", "BLINK_FILT", "0")) - }; - - loadIobType(); - // avvio macchina con adapter specificato... - if (utils.CRB("autoStartOnLoad")) - { - displayTaskAndLog("Auto Starting..."); - // avvio! - avviaAdapter(); - displayTaskAndLog("Auto Started!"); - } - } - - /// - /// Salva su file l'oggetto di persistenza dati - /// - /// - public void savePersistLayer(string filePath) - { - // in primis check semaforo salvataggio... - if (!iobObj.adpSaving) - { - // alzo semaforo salvataggio - iobObj.adpSaving = true; - // se HO dei dati... - if (iobObj.persistenceLayer != null) - { - try - { - utils.WritePlain(iobObj.persistenceLayer, filePath); - } - catch (Exception exc) - { - lg.Error(string.Format("Errore salvataggio file{0}{1}", Environment.NewLine, exc)); - } - } - else - { - lg.Info("persistenceLayer null, non salvato..."); - } - // abbasso semaforo salvataggio - iobObj.adpSaving = false; - } - } - /// - /// Carica da file l'oggetto di persistenza dati - /// - /// - public void loadPersistLayer(string filePath) - { - // inizializzo prima di leggere... - iobObj.persistenceLayer = new Dictionary(); - iobObj.persistenceLayer = utils.ReadPlain(filePath); - - // 2017.03.23 check problema files corrotti... - if (iobObj.persistenceLayer.Count == 0) - { - // se avesse letto un valore NON coerente (senza righe) PROVA a leggere a ritroso vecchi files... da histPersLayerFile e precedenti... - int numDD = 0; - int maxNumDD = utils.CRI("maxNumDD"); - Dictionary lastRead = new Dictionary(); - // continuo fino a che non leggo almeno 1 riga valida e non ho raggiunto maxDD - while (numDD < maxNumDD && lastRead.Count == 0) - { - // leggo il file storico alla data anticipata... (ci provo...) - try - { - lastRead = utils.ReadPlain(utils.prevPersLayerFile(numDD)); - } - catch - { } - numDD++; - } - // se sono uscito PROVO a passare il file storico letto buono (oppure vuoto...) - iobObj.persistenceLayer = lastRead; - } - } - - #endregion - - private void mLoadConf_Click(object sender, EventArgs e) - { - // mostro selettore file x leggere adapter.. - OpenFileDialog openFileDial = new OpenFileDialog(); - - // directory iniziale - openFileDial.InitialDirectory = utils.confDir; // string.Format(@"{0}\{1}", Application.StartupPath, utils.CRS("dataConfPath")); - // Set filter options and filter index. - openFileDial.Filter = "INI Files (.ini)|*.ini|All Files (*.*)|*.*"; - openFileDial.FilterIndex = 1; - // altre opzioni - openFileDial.Multiselect = false; - - // Call the ShowDialog method to show the dialog box. - DialogResult userClickedOK = openFileDial.ShowDialog(); - - // Process input if the user clicked OK. - if (userClickedOK == DialogResult.OK) - { - string iniConfFile = openFileDial.FileName; - loadIniFile(iniConfFile); - lg.Info("INI LOADED"); - loadPersistLayer(utils.defPersLayerFile); - lg.Info("PersLayerFile READ"); - iobObj.loadPersData(); - lg.Info("PersLayerFile LOADED"); - } - } - - /// - /// carica IOB richiesto - /// - private void loadIobType() - { - switch (tipoScelto) - { - case tipoAdapter.DEMO: - iobObj = new IobDemo(this, IOBConf); - start.Enabled = true; - break; - case tipoAdapter.FANUC: - iobObj = new IobFanuc(this, IOBConf); - start.Enabled = true; - break; - case tipoAdapter.SIEMENS: - iobObj = new IobSiemens(this, IOBConf); - start.Enabled = true; - break; - case tipoAdapter.ND: - default: - iobObj = new IobDemo(this, IOBConf); - start.Enabled = false; - break; - } - lblTopSx.Text = string.Format("CNC: {0}{1}IP: {2}:{3}", IOBConf.tipoIob, Environment.NewLine, IOBConf.cncIpAddr, IOBConf.cncPort); - lblTopCent.Text = string.Format("IOB {0}", IOBConf.codIOB); - lblTopDx.Text = string.Format("SRV: {0}{1}URL: {2}{3}", IOBConf.serverData.MPIP, Environment.NewLine, IOBConf.serverData.MPURL, IOBConf.serverData.CMDBASE); - - // carico i default values su interfaccia - setDefaults(); - - displayTaskAndLog(string.Format("Caricata conf per adapter {0}", tipoScelto)); - } - - /// - /// impostazione valori defaults - /// - private void setDefaults() - { - stop.Enabled = false; - dump.Enabled = false; - - lQueueLen.Text = "ND"; - nLine2show = utils.CRI("numRowConsole"); - MainProgrBar.Minimum = 0; - MainProgrBar.Maximum = 1000; - MainProgrBar.Value = 0; - MainProgrBar.Step = 1; - } - public void resetProgBar() - { - MainProgrBar.Value = 0; - } - /// - /// Visualizzazione stato di comunicazione attiva con PLC - /// - public bool commPlcActive - { - set - { - // se true --> comunica/verde, altrimenti grigio - lblApp.ForeColor = value ? Color.SeaGreen : Color.Black; - lblVers.ForeColor = value ? Color.SeaGreen : Color.DarkSlateGray; - statusStrip1.Refresh(); - } - } - - /// - /// Avvio dell'adapter - /// - /// - /// - private void start_Click(object sender, EventArgs e) - { - avviaAdapter(); - iobObj.loadPersData(); - // salvo che ho avviato adapter - lg.Info("Completato LOAD Adapter"); - } - - public void avviaAdapter() - { - displayTaskAndLog("Adapter starting"); - // se NON sta girando... - if (!iobObj.adpRunning) - { - int porta = Convert.ToInt32(port.Text); - iobObj.startAdapter(porta); - displayTaskAndLog("Adapter started!"); - - // fix buttons start/stop/dump - start.Enabled = false; - stop.Enabled = true; - dump.Enabled = true; - if (utils.CRB("openDumpOnStart")) - { - displayTaskAndLog("Dump Window starting"); - apriDumpAgent(); - displayTaskAndLog("Dump Windows OK"); - } - - displayTaskAndLog("Start Timers"); - // inizializzo contatori fast/mid/slow - fastCount = utils.CRI("fastCount"); - normCount = utils.CRI("normCount"); - slowCount = utils.CRI("slowCount"); - verySlowCount = utils.CRI("verySlowCount"); - displayTaskAndLog("Adapter Running..."); - // forzo check allarmi.. - iobObj.forceAlarmCheck(); - } - else - { - displayTaskAndLog("Adapter STILL Running..."); - } - } - - /// - /// fermata dell'adapter - /// - /// - /// - private void stop_Click(object sender, EventArgs e) - { - fermaAdapter(false); - // salvo che ho fermato adapter - lg.Info("UNLOAD Adapter"); - } - /// - /// Ferma l'adapter - /// - /// determina se si debba tentare riavvio automatico (per caduta connessione) - public void fermaAdapter(bool tryRestart) - { - fermaTutto(false, tryRestart); - } - - /// - /// Stringa dati monitoraggio mostrata (1 SX)... - /// - public string dataMonitor_0 - { - get - { - return lblRawData.Text; - } - set - { - lblRawData.Text = value; - } - } - /// - /// Stringa dati monitoraggio mostrata (1 SX)... - /// - public string dataMonitor_1 - { - get - { - return lblOutMessage.Text; - } - set - { - lblOutMessage.Text = value; - } - } - /// - /// Stringa dati monitoraggio mostrata (2 centro)... - /// - public string dataMonitor_2 - { - get - { - return lblOutMessage2.Text; - } - set - { - lblOutMessage2.Text = value; - } - } - /// - /// Stringa dati monitoraggio mostrata (3 dx)... - /// - public string dataMonitor_3 - { - get - { - return lblOutMessage3.Text; - } - set - { - lblOutMessage3.Text = value; - } - } - /// - /// label del numero di record processati (libera) - /// - public string dataProcLabel - { - get - { - return tslDataProc.Text; - } - set - { - tslDataProc.Text = value; - } - } - /// - /// Numero max linee da mostrare (da controllo)... - /// - public int nLine2show - { - get - { - int answ = 5; - try - { - Int32.TryParse(nLines.Text, out answ); - } - catch - { } - return answ; - } - set - { - nLines.Text = value.ToString(); - } - } - /// - /// Imposta COLORE SFONDO x Semaforo IN - /// - public Semaforo sIN - { - set - { - bIN.BackColor = decSemaforo(value); - bIN.Refresh(); - } - } - /// - /// Imposta COLORE SFONDO x Semaforo OUT - /// - public Semaforo sOUT - { - set - { - bOUT.BackColor = decSemaforo(value); - bOUT.Refresh(); - } - } - /// - /// Decodifica colore da valore semaforico - /// - /// - /// - public Color decSemaforo(Semaforo valore) - { - Color colore = Color.LightGray; - switch (valore) - { - case Semaforo.SV: - colore = Color.LightGreen; - break; - case Semaforo.SG: - colore = Color.LightGoldenrodYellow; - break; - case Semaforo.SR: - colore = Color.Red; - break; - case Semaforo.SS: - colore = Color.DarkGray; - break; - default: - colore = Color.LightGray; - break; - } - return colore; - } - - private void displTimer_Tick(object sender, EventArgs e) - { - // aggiorno solo componenti visuali... - - // aggiorno uptime... - TimeSpan uptime = DateTime.Now.Subtract(firstStart); - tslUptime.Text = string.Format("Uptime: {0}gg {1:00}:{2:00}:{3:00}", uptime.Days, uptime.Hours, uptime.Minutes, uptime.Seconds); - } - - private void mCheckUpdates_Click(object sender, EventArgs e) - { - AutoUpdater.Start(updateUrl); - } - } -} diff --git a/IOB-WIN/IOB-WIN/MainForm.resx b/IOB-WIN/IOB-WIN/MainForm.resx deleted file mode 100644 index 1f548d1..0000000 --- a/IOB-WIN/IOB-WIN/MainForm.resx +++ /dev/null @@ -1,138 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 17, 17 - - - 118, 17 - - - 255, 17 - - - 390, 17 - - - 523, 17 - - - 645, 17 - - \ No newline at end of file diff --git a/IOB-WIN/IOB-WIN/NLog.config b/IOB-WIN/IOB-WIN/NLog.config deleted file mode 100644 index 43a9f06..0000000 --- a/IOB-WIN/IOB-WIN/NLog.config +++ /dev/null @@ -1,54 +0,0 @@ - - - - - - - - - - - - - - - - - - - - \ No newline at end of file diff --git a/IOB-WIN/IOB-WIN/NLog.xsd b/IOB-WIN/IOB-WIN/NLog.xsd deleted file mode 100644 index 4740d80..0000000 --- a/IOB-WIN/IOB-WIN/NLog.xsd +++ /dev/null @@ -1,3103 +0,0 @@ - - - - - - - - - - - - - - - Watch config file for changes and reload automatically. - - - - - Print internal NLog messages to the console. Default value is: false - - - - - Print internal NLog messages to the console error output. Default value is: false - - - - - Write internal NLog messages to the specified file. - - - - - Log level threshold for internal log messages. Default value is: Info. - - - - - Global log level threshold for application log messages. Messages below this level won't be logged.. - - - - - Throw an exception when there is an internal error. Default value is: false. - - - - - Throw an exception when there is a configuration error. If not set, determined by throwExceptions. - - - - - Gets or sets a value indicating whether Variables should be kept on configuration reload. Default value is: false. - - - - - Write internal NLog messages to the System.Diagnostics.Trace. Default value is: false. - - - - - Write timestamps for internal NLog messages. Default value is: true. - - - - - Use InvariantCulture as default culture instead of CurrentCulture. Default value is: false. - - - - - - - - - - - - - - Make all targets within this section asynchronous (creates additional threads but the calling thread isn't blocked by any target writes). - - - - - - - - - - - - - - - - - Prefix for targets/layout renderers/filters/conditions loaded from this assembly. - - - - - Load NLog extensions from the specified file (*.dll) - - - - - Load NLog extensions from the specified assembly. Assembly name should be fully qualified. - - - - - - - - - - Name of the logger. May include '*' character which acts like a wildcard. Allowed forms are: *, Name, *Name, Name* and *Name* - - - - - Comma separated list of levels that this rule matches. - - - - - Minimum level that this rule matches. - - - - - Maximum level that this rule matches. - - - - - Level that this rule matches. - - - - - Comma separated list of target names. - - - - - Ignore further rules if this one matches. - - - - - Enable or disable logging rule. Disabled rules are ignored. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Name of the file to be included. You could use * wildcard. The name is relative to the name of the current config file. - - - - - Ignore any errors in the include file. - - - - - - - Variable name. - - - - - Variable value. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Number of log events that should be processed in a batch by the lazy writer thread. - - - - - Limit of full s to write before yielding into Performance is better when writing many small batches, than writing a single large batch - - - - - Action to be taken when the lazy writer thread request queue count exceeds the set limit. - - - - - Limit on the number of requests in the lazy writer thread request queue. - - - - - Time in milliseconds to sleep between batches. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Delay the flush until the LogEvent has been confirmed as written - - - - - Condition expression. Log events who meet this condition will cause a flush on the wrapped target. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Number of log events to be buffered. - - - - - Timeout (in milliseconds) after which the contents of buffer will be flushed if there's no write in the specified period of time. Use -1 to disable timed flushes. - - - - - Indicates whether to use sliding timeout. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Encoding to be used. - - - - - Instance of that is used to format log messages. - - - - - End of line value if a newline is appended at the end of log message . - - - - - Maximum message size in bytes. - - - - - Indicates whether to append newline at the end of log message. - - - - - Action that should be taken if the will be more connections than . - - - - - Action that should be taken if the message is larger than maxMessageSize. - - - - - Maximum current connections. 0 = no maximum. - - - - - Indicates whether to keep connection open whenever possible. - - - - - Size of the connection cache (number of connections which are kept alive). - - - - - Network address. - - - - - Maximum queue size. - - - - - Indicates whether to include stack contents. - - - - - Indicates whether to include source info (file name and line number) in the information sent over the network. - - - - - Indicates whether to include NLog-specific extensions to log4j schema. - - - - - Indicates whether to include dictionary contents. - - - - - Indicates whether to include call site (class and method name) in the information sent over the network. - - - - - AppInfo field. By default it's the friendly name of the current AppDomain. - - - - - NDC item separator. - - - - - Indicates whether to include dictionary contents. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - - - - - - Layout that should be use to calcuate the value for the parameter. - - - - - Viewer parameter name. - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Text to be rendered. - - - - - Header. - - - - - Footer. - - - - - Indicates whether to use default row highlighting rules. - - - - - Indicates whether to auto-check if the console is available. - Disables console writing if Environment.UserInteractive = False (Windows Service) - Disables console writing if Console Standard Input is not available (Non-Console-App) - - - - - The encoding for writing messages to the . - - - - - Indicates whether the error stream (stderr) should be used instead of the output stream (stdout). - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Condition that must be met in order to set the specified foreground and background color. - - - - - Background color. - - - - - Foreground color. - - - - - - - - - - - - - - - - Indicates whether to ignore case when comparing texts. - - - - - Regular expression to be matched. You must specify either text or regex. - - - - - Text to be matched. You must specify either text or regex. - - - - - Indicates whether to match whole words only. - - - - - Compile the ? This can improve the performance, but at the costs of more memory usage. If false, the Regex Cache is used. - - - - - Background color. - - - - - Foreground color. - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Text to be rendered. - - - - - Header. - - - - - Footer. - - - - - Indicates whether to send the log messages to the standard error instead of the standard output. - - - - - Indicates whether to auto-check if the console is available - Disables console writing if Environment.UserInteractive = False (Windows Service) - Disables console writing if Console Standard Input is not available (Non-Console-App) - - - - - The encoding for writing messages to the . - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Obsolete - value will be ignored! The logging code always runs outside of transaction. Gets or sets a value indicating whether to use database transactions. Some data providers require this. - - - - - Database user name. If the ConnectionString is not provided this value will be used to construct the "User ID=" part of the connection string. - - - - - Name of the database provider. - - - - - Database password. If the ConnectionString is not provided this value will be used to construct the "Password=" part of the connection string. - - - - - Indicates whether to keep the database connection open between the log events. - - - - - Database name. If the ConnectionString is not provided this value will be used to construct the "Database=" part of the connection string. - - - - - Name of the connection string (as specified in <connectionStrings> configuration section. - - - - - Connection string. When provided, it overrides the values specified in DBHost, DBUserName, DBPassword, DBDatabase. - - - - - Database host name. If the ConnectionString is not provided this value will be used to construct the "Server=" part of the connection string. - - - - - Connection string using for installation and uninstallation. If not provided, regular ConnectionString is being used. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - Text of the SQL command to be run on each log level. - - - - - Type of the SQL command to be run on each log level. - - - - - - - - - - - - - - - - - - - - - - - Type of the command. - - - - - Connection string to run the command against. If not provided, connection string from the target is used. - - - - - Indicates whether to ignore failures. - - - - - Command text. - - - - - - - - - - - - - - Layout that should be use to calcuate the value for the parameter. - - - - - Database parameter name. - - - - - Database parameter precision. - - - - - Database parameter scale. - - - - - Database parameter size. - - - - - - - - - - - - - - - - Name of the target. - - - - - Text to be rendered. - - - - - Header. - - - - - Footer. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - Name of the target. - - - - - Layout used to format log messages. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Layout used to format log messages. - - - - - Layout that renders event Category. - - - - - Layout that renders event ID. - - - - - Name of the Event Log to write to. This can be System, Application or any user-defined name. - - - - - Name of the machine on which Event Log service is running. - - - - - Value to be used as the event Source. - - - - - Action to take if the message is larger than the option. - - - - - Optional entrytype. When not set, or when not convertable to then determined by - - - - - Maximum Event log size in kilobytes. If null, the value won't be set. Default is 512 Kilobytes as specified by Eventlog API - - - - - Message length limit to write to the Event Log. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Indicates whether to return to the first target after any successful write. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Text to be rendered. - - - - - Header. - - - - - Footer. - - - - - File encoding. - - - - - Line ending mode. - - - - - Way file archives are numbered. - - - - - Name of the file to be used for an archive. - - - - - Indicates whether to automatically archive log files every time the specified time passes. - - - - - Size in bytes above which log files will be automatically archived. Warning: combining this with isn't supported. We cannot create multiple archive files, if they should have the same name. Choose: - - - - - Indicates whether to compress archive files into the zip archive format. - - - - - Maximum number of archive files that should be kept. - - - - - Gets or set a value indicating whether a managed file stream is forced, instead of using the native implementation. - - - - - Is the an absolute or relative path? - - - - - Cleanup invalid values in a filename, e.g. slashes in a filename. If set to true, this can impact the performance of massive writes. If set to false, nothing gets written when the filename is wrong. - - - - - Whether or not this target should just discard all data that its asked to write. Mostly used for when testing NLog Stack except final write - - - - - Is the an absolute or relative path? - - - - - Value indicationg whether file creation calls should be synchronized by a system global mutex. - - - - - Maximum number of log filenames that should be stored as existing. - - - - - Indicates whether the footer should be written only when the file is archived. - - - - - Name of the file to write to. - - - - - Value specifying the date format to use when archiving files. - - - - - Indicates whether to archive old log file on startup. - - - - - Indicates whether to create directories if they do not exist. - - - - - File attributes (Windows only). - - - - - Indicates whether to delete old log file on startup. - - - - - Indicates whether to replace file contents on each write instead of appending log message at the end. - - - - - Indicates whether to enable log file(s) to be deleted. - - - - - Number of times the write is appended on the file before NLog discards the log message. - - - - - Indicates whether concurrent writes to the log file by multiple processes on the same host. - - - - - Indicates whether to keep log file open instead of opening and closing it on each logging event. - - - - - Indicates whether concurrent writes to the log file by multiple processes on different network hosts. - - - - - Number of files to be kept open. Setting this to a higher value may improve performance in a situation where a single File target is writing to many files (such as splitting by level or by logger). - - - - - Maximum number of seconds that files are kept open. If this number is negative the files are not automatically closed after a period of inactivity. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - Log file buffer size in bytes. - - - - - Indicates whether to automatically flush the file buffers after each log message. - - - - - Delay in milliseconds to wait before attempting to write to the file again. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Condition expression. Log events who meet this condition will be forwarded to the wrapped target. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Windows domain name to change context to. - - - - - Required impersonation level. - - - - - Type of the logon provider. - - - - - Logon Type. - - - - - User account password. - - - - - Indicates whether to revert to the credentials of the process instead of impersonating another user. - - - - - Username to change context to. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Interval in which messages will be written up to the number of messages. - - - - - Maximum allowed number of messages written per . - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Endpoint address. - - - - - Name of the endpoint configuration in WCF configuration file. - - - - - Indicates whether to use a WCF service contract that is one way (fire and forget) or two way (request-reply) - - - - - Client ID. - - - - - Indicates whether to include per-event properties in the payload sent to the server. - - - - - Indicates whether to use binary message encoding. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - Layout that should be use to calculate the value for the parameter. - - - - - Name of the parameter. - - - - - Type of the parameter. - - - - - Type of the parameter. Obsolete alias for - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Text to be rendered. - - - - - Header. - - - - - Footer. - - - - - Indicates whether to send message as HTML instead of plain text. - - - - - Encoding to be used for sending e-mail. - - - - - Indicates whether to add new lines between log entries. - - - - - CC email addresses separated by semicolons (e.g. john@domain.com;jane@domain.com). - - - - - Recipients' email addresses separated by semicolons (e.g. john@domain.com;jane@domain.com). - - - - - BCC email addresses separated by semicolons (e.g. john@domain.com;jane@domain.com). - - - - - Mail message body (repeated for each log message send in one mail). - - - - - Mail subject. - - - - - Sender's email address (e.g. joe@domain.com). - - - - - Indicates the SMTP client timeout. - - - - - Priority used for sending mails. - - - - - Indicates whether NewLine characters in the body should be replaced with tags. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - SMTP Server to be used for sending. - - - - - SMTP Authentication mode. - - - - - Username used to connect to SMTP server (used when SmtpAuthentication is set to "basic"). - - - - - Password used to authenticate against SMTP server (used when SmtpAuthentication is set to "basic"). - - - - - Indicates whether SSL (secure sockets layer) should be used when communicating with SMTP server. - - - - - Port number that SMTP Server is listening on. - - - - - Indicates whether the default Settings from System.Net.MailSettings should be used. - - - - - Folder where applications save mail messages to be processed by the local SMTP server. - - - - - Specifies how outgoing email messages will be handled. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Layout used to format log messages. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Layout used to format log messages. - - - - - Encoding to be used when writing text to the queue. - - - - - Indicates whether to use the XML format when serializing message. This will also disable creating queues. - - - - - Indicates whether to check if a queue exists before writing to it. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - Indicates whether to create the queue if it doesn't exists. - - - - - Label to associate with each message. - - - - - Name of the queue to write to. - - - - - Indicates whether to use recoverable messages (with guaranteed delivery). - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Class name. - - - - - Method name. The method must be public and static. Use the AssemblyQualifiedName , https://msdn.microsoft.com/en-us/library/system.type.assemblyqualifiedname(v=vs.110).aspx e.g. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Layout used to format log messages. - - - - - Encoding to be used. - - - - - End of line value if a newline is appended at the end of log message . - - - - - Maximum message size in bytes. - - - - - Indicates whether to append newline at the end of log message. - - - - - Action that should be taken if the will be more connections than . - - - - - Action that should be taken if the message is larger than maxMessageSize. - - - - - Network address. - - - - - Size of the connection cache (number of connections which are kept alive). - - - - - Indicates whether to keep connection open whenever possible. - - - - - Maximum current connections. 0 = no maximum. - - - - - Maximum queue size. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Encoding to be used. - - - - - Instance of that is used to format log messages. - - - - - End of line value if a newline is appended at the end of log message . - - - - - Maximum message size in bytes. - - - - - Indicates whether to append newline at the end of log message. - - - - - Action that should be taken if the will be more connections than . - - - - - Action that should be taken if the message is larger than maxMessageSize. - - - - - Maximum current connections. 0 = no maximum. - - - - - Indicates whether to keep connection open whenever possible. - - - - - Size of the connection cache (number of connections which are kept alive). - - - - - Network address. - - - - - Maximum queue size. - - - - - Indicates whether to include stack contents. - - - - - Indicates whether to include source info (file name and line number) in the information sent over the network. - - - - - Indicates whether to include NLog-specific extensions to log4j schema. - - - - - Indicates whether to include dictionary contents. - - - - - Indicates whether to include call site (class and method name) in the information sent over the network. - - - - - AppInfo field. By default it's the friendly name of the current AppDomain. - - - - - NDC item separator. - - - - - Indicates whether to include dictionary contents. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - Name of the target. - - - - - Layout used to format log messages. - - - - - Indicates whether to perform layout calculation. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - Name of the target. - - - - - Layout used to format log messages. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Indicates whether performance counter should be automatically created. - - - - - Name of the performance counter category. - - - - - Counter help text. - - - - - Name of the performance counter. - - - - - Performance counter type. - - - - - The value by which to increment the counter. - - - - - Performance counter instance name. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Default filter to be applied when no specific rule matches. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - Condition to be tested. - - - - - Resulting filter to be applied when the condition matches. - - - - - - - - - - - - - Name of the target. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - Name of the target. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - Number of times to repeat each log message. - - - - - - - - - - - - - - - - - Name of the target. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - Number of retries that should be attempted on the wrapped target in case of a failure. - - - - - Time to wait between retries in milliseconds. - - - - - - - - - - - - - - - Name of the target. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - Name of the target. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - Name of the target. - - - - - Layout used to format log messages. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - - - - - - - - - - - - - - - - - - - - - - - - Name of the target. - - - - - Should we include the BOM (Byte-order-mark) for UTF? Influences the property. This will only work for UTF-8. - - - - - Target supports reuse of internal buffers, and doesn't have to constantly allocate new buffers Required for legacy NLog-targets, that expects buffers to remain stable after Write-method exit - - - - - Encoding. - - - - - Value whether escaping be done according to the old NLog style (Very non-standard) - - - - - Value whether escaping be done according to Rfc3986 (Supports Internationalized Resource Identifiers - IRIs) - - - - - Web service method name. Only used with Soap. - - - - - Web service namespace. Only used with Soap. - - - - - Indicates whether to pre-authenticate the HttpWebRequest (Requires 'Authorization' in parameters) - - - - - Protocol to be used when calling web service. - - - - - Web service URL. - - - - - Name of the root XML element, if POST of XML document chosen. If so, this property must not be null. (see and ). - - - - - (optional) root namespace of the XML document, if POST of XML document chosen. (see and ). - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Footer layout. - - - - - Header layout. - - - - - Body layout (can be repeated multiple times). - - - - - Custom column delimiter value (valid when ColumnDelimiter is set to 'Custom'). - - - - - Column delimiter. - - - - - Quote Character. - - - - - Quoting mode. - - - - - Indicates whether CVS should include header. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Layout of the column. - - - - - Name of the column. - - - - - - - - - - - - - - - - - - List of property names to exclude when is true - - - - - Option to include all properties from the log events - - - - - Indicates whether to include contents of the dictionary. - - - - - Option to render the empty object value {} - - - - - Option to suppress the extra spaces in the output json - - - - - Indicates whether to include contents of the dictionary. - - - - - - - - - - - - - - - Determines wether or not this attribute will be Json encoded. - - - - - Indicates whether to escape non-ascii characters - - - - - Layout that will be rendered as the attribute's value. - - - - - Name of the attribute. - - - - - - - - - - - - - - Footer layout. - - - - - Header layout. - - - - - Body layout (can be repeated multiple times). - - - - - - - - - - - - - - - - Option to include all properties from the log events - - - - - Indicates whether to include contents of the dictionary. - - - - - Indicates whether to include contents of the dictionary. - - - - - - - - - - - - - - Layout text. - - - - - - - - - - - - - - - Action to be taken when filter matches. - - - - - Condition expression. - - - - - - - - - - - - - - - - - - - - - - - - - - Action to be taken when filter matches. - - - - - Indicates whether to ignore case when comparing strings. - - - - - Layout to be used to filter log messages. - - - - - Substring to be matched. - - - - - - - - - - - - - - - - - Action to be taken when filter matches. - - - - - String to compare the layout to. - - - - - Indicates whether to ignore case when comparing strings. - - - - - Layout to be used to filter log messages. - - - - - - - - - - - - - - - - - Action to be taken when filter matches. - - - - - Indicates whether to ignore case when comparing strings. - - - - - Layout to be used to filter log messages. - - - - - Substring to be matched. - - - - - - - - - - - - - - - - - Action to be taken when filter matches. - - - - - String to compare the layout to. - - - - - Indicates whether to ignore case when comparing strings. - - - - - Layout to be used to filter log messages. - - - - - - - - - - - - - - - - - - - - - - - Action to be taken when filter matches. - - - - - Layout to be used to filter log messages. - - - - - Default number of unique filter values to expect, will automatically increase if needed - - - - - Append FilterCount to the when an event is no longer filtered - - - - - Insert FilterCount value into when an event is no longer filtered - - - - - Max number of unique filter values to expect simultaneously - - - - - Max length of filter values, will truncate if above limit - - - - - Default buffer size for the internal buffers - - - - - Reuse internal buffers, and doesn't have to constantly allocate new buffers - - - - - How long before a filter expires, and logging is accepted again - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - \ No newline at end of file diff --git a/IOB-WIN/IOB-WIN/Program.cs b/IOB-WIN/IOB-WIN/Program.cs deleted file mode 100644 index fffacbe..0000000 --- a/IOB-WIN/IOB-WIN/Program.cs +++ /dev/null @@ -1,25 +0,0 @@ -using System; -using System.Runtime.InteropServices; -using System.Windows.Forms; - -namespace IOB_WIN -{ - static class Program - { - [DllImport("kernel32.dll", SetLastError = true)] - static extern bool AllocConsole(); - - [DllImport("kernel32.dll", SetLastError = true)] - static extern bool FreeConsole(); - /// - /// Punto di ingresso principale dell'applicazione. - /// - [STAThread] - static void Main() - { - Application.EnableVisualStyles(); - Application.SetCompatibleTextRenderingDefault(false); - Application.Run(new MainForm()); - } - } -} diff --git a/IOB-WIN/IOB-WIN/Properties/AssemblyInfo.cs b/IOB-WIN/IOB-WIN/Properties/AssemblyInfo.cs deleted file mode 100644 index 41b87de..0000000 --- a/IOB-WIN/IOB-WIN/Properties/AssemblyInfo.cs +++ /dev/null @@ -1,22 +0,0 @@ -using System.Reflection; -using System.Runtime.CompilerServices; -using System.Runtime.InteropServices; - -// Le informazioni generali relative a un assembly sono controllate dal seguente -// set di attributi. Modificare i valori di questi attributi per modificare le informazioni -// associate a un assembly. -[assembly: AssemblyTitle("IOB-WIN")] -[assembly: AssemblyDescription("")] -[assembly: AssemblyConfiguration("")] -[assembly: AssemblyProduct("IOB-WIN")] -[assembly: AssemblyTrademark("")] -[assembly: AssemblyCulture("")] - -// Se si imposta ComVisible su false, i tipi in questo assembly non saranno visibili -// ai componenti COM. Se è necessario accedere a un tipo in questo assembly da -// COM, impostare su true l'attributo ComVisible per tale tipo. -[assembly: ComVisible(false)] - -// Se il progetto viene esposto a COM, il GUID seguente verrà utilizzato come ID della libreria dei tipi -[assembly: Guid("adcb8028-79c4-4896-a9a7-e3c5140fc00b")] - diff --git a/IOB-WIN/IOB-WIN/Properties/Resources.Designer.cs b/IOB-WIN/IOB-WIN/Properties/Resources.Designer.cs deleted file mode 100644 index 97de66d..0000000 --- a/IOB-WIN/IOB-WIN/Properties/Resources.Designer.cs +++ /dev/null @@ -1,71 +0,0 @@ -//------------------------------------------------------------------------------ -// -// Codice generato da uno strumento. -// Versione runtime:4.0.30319.42000 -// -// Le modifiche apportate a questo file possono causare un comportamento non corretto e andranno perse se -// il codice viene rigenerato. -// -//------------------------------------------------------------------------------ - -namespace IOB_WIN.Properties -{ - - - /// - /// Classe di risorse fortemente tipizzata per la ricerca di stringhe localizzate e così via. - /// - // Questa classe è stata generata automaticamente dalla classe StronglyTypedResourceBuilder - // tramite uno strumento quale ResGen o Visual Studio. - // Per aggiungere o rimuovere un membro, modificare il file .ResX, quindi eseguire di nuovo ResGen - // con l'opzione /str oppure ricompilare il progetto VS. - [global::System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0")] - [global::System.Diagnostics.DebuggerNonUserCodeAttribute()] - [global::System.Runtime.CompilerServices.CompilerGeneratedAttribute()] - internal class Resources - { - - private static global::System.Resources.ResourceManager resourceMan; - - private static global::System.Globalization.CultureInfo resourceCulture; - - [global::System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")] - internal Resources() - { - } - - /// - /// Restituisce l'istanza di ResourceManager memorizzata nella cache e usata da questa classe. - /// - [global::System.ComponentModel.EditorBrowsableAttribute(global::System.ComponentModel.EditorBrowsableState.Advanced)] - internal static global::System.Resources.ResourceManager ResourceManager - { - get - { - if ((resourceMan == null)) - { - global::System.Resources.ResourceManager temp = new global::System.Resources.ResourceManager("IOB_WIN.Properties.Resources", typeof(Resources).Assembly); - resourceMan = temp; - } - return resourceMan; - } - } - - /// - /// Esegue l'override della proprietà CurrentUICulture del thread corrente per tutte - /// le ricerche di risorse che utilizzano questa classe di risorse fortemente tipizzata. - /// - [global::System.ComponentModel.EditorBrowsableAttribute(global::System.ComponentModel.EditorBrowsableState.Advanced)] - internal static global::System.Globalization.CultureInfo Culture - { - get - { - return resourceCulture; - } - set - { - resourceCulture = value; - } - } - } -} diff --git a/IOB-WIN/IOB-WIN/Properties/Resources.resx b/IOB-WIN/IOB-WIN/Properties/Resources.resx deleted file mode 100644 index af7dbeb..0000000 --- a/IOB-WIN/IOB-WIN/Properties/Resources.resx +++ /dev/null @@ -1,117 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - \ No newline at end of file diff --git a/IOB-WIN/IOB-WIN/Properties/Settings.Designer.cs b/IOB-WIN/IOB-WIN/Properties/Settings.Designer.cs deleted file mode 100644 index e5eef23..0000000 --- a/IOB-WIN/IOB-WIN/Properties/Settings.Designer.cs +++ /dev/null @@ -1,30 +0,0 @@ -//------------------------------------------------------------------------------ -// -// This code was generated by a tool. -// Runtime Version:4.0.30319.42000 -// -// Changes to this file may cause incorrect behavior and will be lost if -// the code is regenerated. -// -//------------------------------------------------------------------------------ - -namespace IOB_WIN.Properties -{ - - - [global::System.Runtime.CompilerServices.CompilerGeneratedAttribute()] - [global::System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0")] - internal sealed partial class Settings : global::System.Configuration.ApplicationSettingsBase - { - - private static Settings defaultInstance = ((Settings)(global::System.Configuration.ApplicationSettingsBase.Synchronized(new Settings()))); - - public static Settings Default - { - get - { - return defaultInstance; - } - } - } -} diff --git a/IOB-WIN/IOB-WIN/Properties/Settings.settings b/IOB-WIN/IOB-WIN/Properties/Settings.settings deleted file mode 100644 index 3964565..0000000 --- a/IOB-WIN/IOB-WIN/Properties/Settings.settings +++ /dev/null @@ -1,7 +0,0 @@ - - - - - - - diff --git a/IOB-WIN/IOB-WIN/Readme/ToDo.txt b/IOB-WIN/IOB-WIN/Readme/ToDo.txt deleted file mode 100644 index efe3d82..0000000 --- a/IOB-WIN/IOB-WIN/Readme/ToDo.txt +++ /dev/null @@ -1,17 +0,0 @@ -------------------------------------- -- 2017.10.19 -------------------------------------- -.. - da testare ora invio URL a MoonPro -OK - ALIVE -OK - ENABLED - - INPUT - - FARE lettura VERA da FANUC almeno della bitmap - - fare gestione configurabile lettura FANUC -.. - fare gestione come rPI-IOB, ovvero -OK - gestione QUEUE eventi -OK - salvataggio su file dello storico eventi rilevati -OK - gestione dei segnali ballerini (BITMASK!) - - fare integrazione ALTRI varori FANUC, tra cui - - allarmi - - load/speed - - nuovo metodo chaimata x MP/IO (che dovrà avere nuovo comando x accettare queste chiamate e salvare su tabella SENZA processing, come eventi o come extra... evento NOTA?) \ No newline at end of file diff --git a/IOB-WIN/IOB-WIN/Resources/SteamWare.ico b/IOB-WIN/IOB-WIN/Resources/SteamWare.ico deleted file mode 100644 index 70ccada..0000000 Binary files a/IOB-WIN/IOB-WIN/Resources/SteamWare.ico and /dev/null differ diff --git a/IOB-WIN/IOB-WIN/dump/build.bat b/IOB-WIN/IOB-WIN/dump/build.bat deleted file mode 100644 index afc9d95..0000000 --- a/IOB-WIN/IOB-WIN/dump/build.bat +++ /dev/null @@ -1 +0,0 @@ -cl dump.c ws2_32.lib \ No newline at end of file diff --git a/IOB-WIN/IOB-WIN/dump/dump.c b/IOB-WIN/IOB-WIN/dump/dump.c deleted file mode 100644 index cad2cef..0000000 --- a/IOB-WIN/IOB-WIN/dump/dump.c +++ /dev/null @@ -1,184 +0,0 @@ -#include -#ifdef _WIN32 -#include -#else -#include -#include -#include -#include -#include -#include -#include -#include -#endif - -#include -#include - -#define PORT 7878 -#define HOST "localhost" -#define BUFFER_SIZE 1024 - -#ifndef _WIN32 -#define SOCKET int -#define closesocket close -#endif - -void cleanup_and_exit(int ret) -{ -#ifdef _WIN32 - WSACleanup(); -#endif - exit(ret); -} - -void usage() -{ - fprintf(stderr, "Usage: dump [-t timeout] [host] [port] [file]\n host defaults to localhost\n port defaults to 7878\n file defaults to stdout\n"); - exit(0); -} - -int main(int argc, char **argv) -{ - char hostname[100]; - SOCKET sd; - struct sockaddr_in pin; - struct hostent *hp; - char buffer[BUFFER_SIZE]; - int port; - FILE *file; - char dump = 0; - char **argvp = argv; - time_t start = 0; - int remaining = 1, timeout = 0, nfds; - struct fd_set fds; - struct timeval tv, *tvp = 0; - -#ifdef _WIN32 - WSADATA wsaData; - if (WSAStartup(MAKEWORD(2,0), &wsaData) != 0) { - fprintf(stderr, "WSAStartup failed\n"); - cleanup_and_exit(1); - } -#endif - - if (argc > 1) { - if (strcmp(argv[1], "-h") == 0) { - usage(); - } else if (strcmp(argv[1], "-t") == 0) { - if (argc < 3) { - fprintf(stderr, "Missing timeout argument\n"); - usage(); - } - timeout = atoi(argv[2]); - argc -= 2; - argvp += 2; - } - } - - strcpy(hostname,HOST); - if (argc > 1) { - strcpy(hostname,argvp[1]); - } - - port = PORT; - if (argc > 2) { - port = atoi(argvp[2]); - } - - file = stdout; - if (argc > 3) { - file = fopen(argvp[3], "w"); - if (file == NULL) { - perror("fopen"); - fprintf(stderr, "Cannot open file %s\n", argv[3]); - exit(1); - } - dump = 1; - } - - /* go find out about the desired host machine */ - if ((hp = gethostbyname(hostname)) == (void*) 0) { - perror("gethostbyname"); - cleanup_and_exit(1); - } - - /* fill in the socket structure with host information */ - memset(&pin, 0, sizeof(pin)); - pin.sin_family = AF_INET; - memcpy(&pin.sin_addr.s_addr, hp->h_addr, hp->h_length); - pin.sin_port = htons(port); - - /* grab an Internet domain socket */ - if ((sd = socket(AF_INET, SOCK_STREAM, 0)) == -1) { - perror("socket"); - cleanup_and_exit(1); - } - - /* connect to PORT on HOST */ - if (connect(sd,(struct sockaddr *) &pin, sizeof(pin)) == -1) { - perror("connect"); - cleanup_and_exit(1); - } - - if (dump) { - printf("Connected to %s port %d\n", hostname, port); - } - - /* wait for a message to come back from the server */ - if (timeout > 0) { - start = time(0); - remaining = timeout; - tv.tv_usec = 0; - tvp = &tv; - } -#ifdef _WIN32 - nfds = 1; -#else - nfds = sd + 1; -#endif - while (remaining > 0) { - int n; - - FD_ZERO(&fds); - FD_SET(sd, &fds); - tv.tv_sec = remaining; - n = select(nfds, &fds, (fd_set*) 0, (fd_set*) 0, tvp); - if (n < 0) { - closesocket(sd); - perror("recv"); - cleanup_and_exit(1); - } else if (n > 0) { - int count = recv(sd, buffer, BUFFER_SIZE, 0); - if (count == -1) { - closesocket(sd); - perror("recv"); - cleanup_and_exit(1); - } - if (count == 0) - break; - fwrite(buffer, 1, count, file); - if (dump) { - fputc('.', stdout); - fflush(stdout); - } - fflush(file); - } - - if (timeout > 0) { - time_t now = time(0); - remaining -= (int) (now - start); - start = now; - } - } - - if (dump) printf("\nFinished\n"); - - fclose(file); - closesocket(sd); -#ifdef _WIN32 - WSACleanup(); -#endif - - return 0; -} diff --git a/IOB-WIN/IOB-WIN/dump/dump.exe b/IOB-WIN/IOB-WIN/dump/dump.exe deleted file mode 100644 index caa249c..0000000 Binary files a/IOB-WIN/IOB-WIN/dump/dump.exe and /dev/null differ diff --git a/IOB-WIN/IOB-WIN/logs/.placeholder.txt b/IOB-WIN/IOB-WIN/logs/.placeholder.txt deleted file mode 100644 index 5f28270..0000000 --- a/IOB-WIN/IOB-WIN/logs/.placeholder.txt +++ /dev/null @@ -1 +0,0 @@ - \ No newline at end of file diff --git a/IOB-WIN/IOB-WIN/packages.config b/IOB-WIN/IOB-WIN/packages.config deleted file mode 100644 index 9210810..0000000 --- a/IOB-WIN/IOB-WIN/packages.config +++ /dev/null @@ -1,7 +0,0 @@ - - - - - - - \ No newline at end of file diff --git a/IOB-WIN/IOB-WIN/postBuildTgt.bat b/IOB-WIN/IOB-WIN/postBuildTgt.bat deleted file mode 100644 index 4db8914..0000000 --- a/IOB-WIN/IOB-WIN/postBuildTgt.bat +++ /dev/null @@ -1,77 +0,0 @@ -@echo off -echo Effettua pulizia post build: configurazione %1. directory %2 - -REM RD /S /Q %2"\lib\da" -REM RD /S /Q %2"\lib\de" -REM RD /S /Q %2"\lib\es" -REM RD /S /Q %2"\lib\fr" -REM RD /S /Q %2"\lib\it" -REM RD /S /Q %2"\lib\ko" -REM RD /S /Q %2"\lib\nl" -REM RD /S /Q %2"\lib\pl" -REM RD /S /Q %2"\lib\pt" -REM RD /S /Q %2"\lib\ru" -REM RD /S /Q %2"\lib\sv" -REM RD /S /Q %2"\lib\tr" -REM RD /S /Q %2"\lib\zh" -REM -REM move /Y %2"da" %2"lib\" -REM move /Y %2"de" %2"lib\" -REM move /Y %2"es" %2"lib\" -REM move /Y %2"fr" %2"lib\" -REM move /Y %2"it" %2"lib\" -REM move /Y %2"ko" %2"lib\" -REM move /Y %2"nl" %2"lib\" -REM move /Y %2"pl" %2"lib\" -REM move /Y %2"pt" %2"lib\" -REM move /Y %2"ru" %2"lib\" -REM move /Y %2"sv" %2"lib\" -REM move /Y %2"tr" %2"lib\" -REM move /Y %2"zh" %2"lib\" - - - - - - - -if %1 == "Release" goto Release -if %1 == "Debug" goto Debug -REM if %1 == "FANUC" goto FANUC -REM if %1 == "SIEMENS" goto SIEMENS - -:Release -REM INIZIO eliminando i files pdb -del /S %2"*.pdb"" -del /S %2"lib/*.pdb"" -echo Release: eliminato pdb!!! -goto END - -:Debug -echo Debug: nulla da eliminare -goto END - -REM :CMS -REM echo CMS: Elimino files IOT di SCM -REM REM INIZIO eliminando i files pdb -REM del /S %2"*.pdb"" -REM del %2"DATA\CONF\IOT_ByteList.map" -REM del %2"DATA\CONF\IOT_WordList.map" -REM del %2"DATA\CONF\IOT_DWordList.map" -REM del %2"DATA\CONF\IOT_StringList.map" -REM del %2"DATA\CONF\EsaKvara.ini" -REM del /S %2"SCMCncLib.dll" -REM del /S %2"SCMCncLib.xml" -REM ora verifico tipo controllo esatto... -REM if %1 == "CMS-FANUC" goto FANUC -REM if %1 == "CMS-SIEMENS" goto SIEMENS -REM if %1 == "CMS-OSAI" goto OSAI -REM -REM :FANUC -REM goto END -REM -REM :SIEMENS -REM goto END - -:END -echo Fatto! \ No newline at end of file diff --git a/IOB-WIN/IOB-WIN/setupTgt.bat b/IOB-WIN/IOB-WIN/setupTgt.bat deleted file mode 100644 index 3bf5e83..0000000 --- a/IOB-WIN/IOB-WIN/setupTgt.bat +++ /dev/null @@ -1,84 +0,0 @@ -@echo off -echo Effettua setup dei file specifici per i vari ambienti pre build installer: verifica da nome configurazione %1 - - -REM if %1 == "Release" goto Release -REM if %1 == "Debug" goto Debug -REM if %1 == "FANUC" goto CMS -REM if %1 == "SIEMENS" goto CMS -REM -REM :Release -REM echo Release: nulla da copiare -REM goto END -REM -REM :Debug -REM echo Debug: copia file ini x simulazione ESA -REM del %2"DATA\CONF\EsaKvara.ini" -REM copy %2"Resources\SCM\EsaKvara_SIM.ini" %2"DATA\CONF\EsaKvara.ini" -REM goto END -REM -REM :CMS -REM echo CMS: copio files CMS - Zogno -REM del %2"Resources\MTCA.ico" -REM del %2"DATA\CONF\Adapter_ItemList.xml" -REM del %2"DATA\CONF\AlarmList.map" -REM del %2"DATA\CONF\AlarmListCNC.map" -REM del %2"DATA\CONF\AnalogData.map" -REM del %2"DATA\CONF\CounterList.map" -REM del %2"DATA\CONF\StatusList.map" -REM REM del /F /Q %2"DATA\CONF\*.*" -REM copy %2"Resources\CMS\CMS.ico" %2"Resources\MTCA.ico" -REM copy %2"Resources\CMS\AlarmListEmpty.map" %2"DATA\CONF\AlarmListCNC.map" -REM REM ora verifico tipo controllo esatto... -REM if %1 == "CMS-FANUC" goto FANUC -REM if %1 == "CMS-SIEMENS" goto SIEMENS -REM if %1 == "CMS-OSAI" goto OSAI -REM -REM :SCM -REM echo SCM: copio files SCM - Rimini -REM del %2"Resources\MTCA.ico" -REM del %2"DATA\CONF\Adapter_ItemList.xml" -REM del %2"DATA\CONF\AlarmList.map" -REM REM del %2"DATA\CONF\EsaKvara.ini" -REM del %2"DATA\CONF\IOT_ByteList.map" -REM del %2"DATA\CONF\IOT_WordList.map" -REM del %2"DATA\CONF\IOT_DWordList.map" -REM del %2"DATA\CONF\IOT_StringList.map" -REM REM del /F /Q %2"DATA\CONF\*.*" -REM copy %2"Resources\SCM\SCM.ico" %2"Resources\MTCA.ico" -REM copy %2"Resources\SCM\SCM_ESA.xml" %2"DATA\CONF\Adapter_ItemList.xml" -REM copy %2"Resources\SCM\AlarmListEsaGv.map" %2"DATA\CONF\AlarmList.map" -REM copy %2"Resources\SCM\AlarmListEsaGvCNC.map" %2"DATA\CONF\AlarmListCNC.map" -REM copy %2"Resources\SCM\EsaKvara_PROD.ini" %2"DATA\CONF\EsaKvara.ini" -REM copy %2"Resources\SCM\IOT_ByteList.map" %2"DATA\CONF\IOT_ByteList.map" -REM copy %2"Resources\SCM\IOT_WordList.map" %2"DATA\CONF\IOT_WordList.map" -REM copy %2"Resources\SCM\IOT_DWordList.map" %2"DATA\CONF\IOT_DWordList.map" -REM copy %2"Resources\SCM\IOT_StringList.map" %2"DATA\CONF\IOT_StringList.map" -REM goto END -REM -REM :FANUC -REM copy %2"Resources\CMS\FANUC.xml" %2"DATA\CONF\Adapter_ItemList.xml" -REM copy %2"Resources\CMS\AlarmListFANUC.map" %2"DATA\CONF\AlarmList.map" -REM copy %2"Resources\CMS\AnalogDataFANUC.map" %2"DATA\CONF\AnalogData.map" -REM copy %2"Resources\CMS\CounterListFANUC.map" %2"DATA\CONF\CounterList.map" -REM copy %2"Resources\CMS\StatusListFANUC.map" %2"DATA\CONF\StatusList.map" -REM goto END -REM -REM :SIEMENS -REM copy %2"Resources\CMS\SIEMENS.xml" %2"DATA\CONF\Adapter_ItemList.xml" -REM copy %2"Resources\CMS\AlarmListSIEMENS.map" %2"DATA\CONF\AlarmList.map" -REM copy %2"Resources\CMS\AnalogDataSIEMENS.map" %2"DATA\CONF\AnalogData.map" -REM copy %2"Resources\CMS\CounterListSIEMENS.map" %2"DATA\CONF\CounterList.map" -REM copy %2"Resources\CMS\StatusListSIEMENS.map" %2"DATA\CONF\StatusList.map" -REM goto END -REM -REM :OSAI -REM copy %2"Resources\CMS\OSAI.xml" %2"DATA\CONF\Adapter_ItemList.xml" -REM copy %2"Resources\CMS\AlarmListOSAI.map" %2"DATA\CONF\AlarmList.map" -REM copy %2"Resources\CMS\AnalogDataOSAI.map" %2"DATA\CONF\AnalogData.map" -REM copy %2"Resources\CMS\CounterListOSAI.map" %2"DATA\CONF\CounterList.map" -REM copy %2"Resources\CMS\StatusListOSAI.map" %2"DATA\CONF\StatusList.map" -REM goto END - -:END -echo Fatto! \ No newline at end of file diff --git a/IOB-WIN/IOB-WIN/utils.cs b/IOB-WIN/IOB-WIN/utils.cs deleted file mode 100644 index e85eb81..0000000 --- a/IOB-WIN/IOB-WIN/utils.cs +++ /dev/null @@ -1,108 +0,0 @@ -using System; -using System.Windows.Forms; - -namespace IOB_WIN -{ - public class utils : IOB_UT.baseUtils - { - /// - /// folder archiviazione dati configurazione (DATA\CONF) - /// - public static string resxDir - { - get - { - return string.Format(@"{0}\{1}", Application.StartupPath, CRS("resxPath")); - } - } - /// - /// folder archiviazione dati configurazione (DATA\CONF) - /// - public static string confDir - { - get - { - return string.Format(@"{0}\{1}", Application.StartupPath, CRS("dataConfPath")); - } - } - /// - /// folder archiviazione dati storici giornalieri (DATA\DAT) - /// - public static string dataDatDir - { - get - { - return string.Format(@"{0}\{1}", Application.StartupPath, CRS("dataDatPath")); - } - } - /// - /// folder archiviazione dati (DATA) - /// - public static string dataDir - { - get - { - return string.Format(@"{0}\{1}", Application.StartupPath, CRS("dataPath")); - } - } - /// - /// File configurazione default - /// - public static string defConfFilePath - { - get - { - return string.Format(@"{0}\{1}", utils.confDir, utils.CRS("defaultConfFile")); - } - } - /// - /// File SimData x simulazione deterministica - /// - public static string simDataFile - { - get - { - return string.Format(@"{0}\{1}", utils.dataDatDir, utils.CRS("simDataFile")); - } - } - /// - /// File persistenza generale - /// - public static string defPersLayerFile - { - get - { - return string.Format(@"{0}\{1}", utils.dataDatDir, utils.CRS("defaultPersLayerFile")); - } - } - /// - /// file persistenza generale - /// - public static string histPersLayerFile - { - get - { - return string.Format(@"{0}\{1:yyyy}\{1:yyyy-MM-dd}.mtc", utils.dataDatDir, DateTime.Now); - } - } - /// - /// file persistenza generale data attuale ANTICIPATA di xx giorni - /// - /// num DD di anticipo - /// - public static string prevPersLayerFile(int numDD) - { - return string.Format(@"{0}\{1:yyyy}\{1:yyyy-MM-dd}.mtc", utils.dataDatDir, DateTime.Now.AddDays(-numDD)); - } - /// - /// File icona default - /// - public static string defIconFilePath - { - get - { - return string.Format(@"{0}\SteamWare.ico", utils.resxDir); - } - } - } -} diff --git a/IOB-WIN/README.md b/IOB-WIN/README.md deleted file mode 100644 index 1d3a143..0000000 --- a/IOB-WIN/README.md +++ /dev/null @@ -1,39 +0,0 @@ -# MAPO-IOB-WIN - -Qui sono raccolte le informazioni relative al sw **MAPO-IOB-WIN**, progetto per IOB windows based -- funzionamento base come IOB-PI -- autoupdate -- nascosta nel tray - - - -- [MAPO-IOB-WIN](#mapo-iob-win) - - [Standard Tecnici](#standard-tecnici) - - [Setup](#setup) - - [Applicativo](#applicativo) - - - -## Standard Tecnici - -Il progetto impiega i seguenti standard tecnici: - -- asp.net / C# (W-IOB) - -## Setup - -Il computer deve avere - -- un account admin - - username: **steamware** - - pwd: musicale numerica complicata -- un account utente base - - username: **IOB** - - pwd: viadante16 -- interfaccia di rete configurata in base al cliente (rete dedicata? rete aiendale?) -- sul pc vanno installati preventivamente i files di test per il controller (es FANUC) x verificare corretta configurazione rete/porte/firewall del PC e del CN - - -## Applicativo - -L'applicativo si basa in parte sulle esperiente MTC per comunicazione con i controlli NC (Fanuc, ...) ma sopratutto si basa sull'architettura del sw python di IOB-PY per la lettura di informazioni (via rete e non leggendo via parallela degli input elettrici) dai CNC e l'invio dei segnali con il "Protocollo Mapo" al server centrale diff --git a/IOB-WIN/README.pdf b/IOB-WIN/README.pdf deleted file mode 100644 index 2eefc39..0000000 Binary files a/IOB-WIN/README.pdf and /dev/null differ diff --git a/IOB-WIN/VersGen/App.config b/IOB-WIN/VersGen/App.config deleted file mode 100644 index 88fa402..0000000 --- a/IOB-WIN/VersGen/App.config +++ /dev/null @@ -1,6 +0,0 @@ - - - - - - \ No newline at end of file diff --git a/IOB-WIN/VersGen/Properties/AssemblyInfo.cs b/IOB-WIN/VersGen/Properties/AssemblyInfo.cs deleted file mode 100644 index 15292d5..0000000 --- a/IOB-WIN/VersGen/Properties/AssemblyInfo.cs +++ /dev/null @@ -1,32 +0,0 @@ -using System.Reflection; -using System.Runtime.CompilerServices; -using System.Runtime.InteropServices; - -// General Information about an assembly is controlled through the following -// set of attributes. Change these attribute values to modify the information -// associated with an assembly. -[assembly: AssemblyTitle("VersGen")] -[assembly: AssemblyDescription("")] -[assembly: AssemblyConfiguration("")] -[assembly: AssemblyProduct("VersGen")] -[assembly: AssemblyTrademark("")] -[assembly: AssemblyCulture("")] - -// Setting ComVisible to false makes the types in this assembly not visible -// to COM components. If you need to access a type in this assembly from -// COM, set the ComVisible attribute to true on that type. -[assembly: ComVisible(false)] - -// The following GUID is for the ID of the typelib if this project is exposed to COM -[assembly: Guid("58e399f3-9d4e-49d3-ab35-9ed536543d50")] - -// Version information for an assembly consists of the following four values: -// -// Major Version -// Minor Version -// Build Number -// Revision -// -// You can specify all the values or you can default the Build and Revision Numbers -// by using the '*' as shown below: -// [assembly: AssemblyVersion("1.0.*")] diff --git a/IOB-WIN/VersGen/VersGen.cs b/IOB-WIN/VersGen/VersGen.cs deleted file mode 100644 index 35dbdd2..0000000 --- a/IOB-WIN/VersGen/VersGen.cs +++ /dev/null @@ -1,11 +0,0 @@ -// -// This code was generated by a tool. Any changes made manually will be lost -// the next time this code is regenerated. -// - -using System.Reflection; - -[assembly: AssemblyVersion("0.9.0.0")] -[assembly: AssemblyFileVersion("0.9.0.0")] -[assembly: AssemblyCopyright("Steamware © 2006-2017")] -[assembly: AssemblyCompany("Steamware")] \ No newline at end of file diff --git a/IOB-WIN/VersGen/VersGen.csproj b/IOB-WIN/VersGen/VersGen.csproj deleted file mode 100644 index 830d81f..0000000 --- a/IOB-WIN/VersGen/VersGen.csproj +++ /dev/null @@ -1,77 +0,0 @@ - - - - - Debug - AnyCPU - {58E399F3-9D4E-49D3-AB35-9ED536543D50} - Library - Properties - VersGen - VersGen - v4.5.2 - 512 - true - - - AnyCPU - true - full - false - bin\Debug\ - DEBUG;TRACE - prompt - 4 - true - - - AnyCPU - pdbonly - true - bin\Release\ - TRACE - prompt - 4 - - - - - - - - - - - - - - - - - True - True - VersGen.tt - - - - - - - - - TextTemplatingFileGenerator - VersGen.cs - - - - - - - - \ No newline at end of file diff --git a/IOB-WIN/VersGen/VersGen.tt b/IOB-WIN/VersGen/VersGen.tt deleted file mode 100644 index 7b6b652..0000000 --- a/IOB-WIN/VersGen/VersGen.tt +++ /dev/null @@ -1,12 +0,0 @@ -<#@ template language="C#" #> -// -// This code was generated by a tool. Any changes made manually will be lost -// the next time this code is regenerated. -// - -using System.Reflection; - -[assembly: AssemblyVersion("0.9.0.0")] -[assembly: AssemblyFileVersion("0.9.0.0")] -[assembly: AssemblyCopyright("Steamware © 2006-<#= DateTime.Now.Year #>")] -[assembly: AssemblyCompany("Steamware")] \ No newline at end of file