diff --git a/CncLib/App/App.Native.Ini.vb b/CncLib/App/App.Native.Ini.vb new file mode 100644 index 00000000..67bbb0a0 --- /dev/null +++ b/CncLib/App/App.Native.Ini.vb @@ -0,0 +1,113 @@ +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/CncLib/CNC/CNC.FANUC/CNC.FANUC.vb b/CncLib/CNC/CNC.FANUC/CNC.FANUC.vb new file mode 100644 index 00000000..0b413320 --- /dev/null +++ b/CncLib/CNC/CNC.FANUC/CNC.FANUC.vb @@ -0,0 +1,1848 @@ +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/CncLib/CNC/CNC.FANUC/_/CNC.FANUC.Err.vb b/CncLib/CNC/CNC.FANUC/_/CNC.FANUC.Err.vb new file mode 100644 index 00000000..8a0b9fb9 --- /dev/null +++ b/CncLib/CNC/CNC.FANUC/_/CNC.FANUC.Err.vb @@ -0,0 +1,65 @@ +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/CncLib/CNC/CNC.FANUC/_/fwlib32.vb b/CncLib/CNC/CNC.FANUC/_/fwlib32.vb new file mode 100644 index 00000000..94e6d90a --- /dev/null +++ b/CncLib/CNC/CNC.FANUC/_/fwlib32.vb @@ -0,0 +1,10952 @@ +'------------------------------------------------------- +' 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/CncLib/CNC/CNC.OSAI/CNC.OSAI.vb b/CncLib/CNC/CNC.OSAI/CNC.OSAI.vb new file mode 100644 index 00000000..8e331ebb --- /dev/null +++ b/CncLib/CNC/CNC.OSAI/CNC.OSAI.vb @@ -0,0 +1,910 @@ +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/CncLib/CNC/CNC.OSAI/CNC.OSAI_SOAP.vb b/CncLib/CNC/CNC.OSAI/CNC.OSAI_SOAP.vb new file mode 100644 index 00000000..cb9a7891 --- /dev/null +++ b/CncLib/CNC/CNC.OSAI/CNC.OSAI_SOAP.vb @@ -0,0 +1,1154 @@ +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/CncLib/CNC/CNC.Runtime.vb b/CncLib/CNC/CNC.Runtime.vb new file mode 100644 index 00000000..93a72e66 --- /dev/null +++ b/CncLib/CNC/CNC.Runtime.vb @@ -0,0 +1,54 @@ +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/CncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb b/CncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb new file mode 100644 index 00000000..99f47234 --- /dev/null +++ b/CncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb @@ -0,0 +1,1147 @@ +'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/CncLib/CNC/CNC/CNC.CNC.vb b/CncLib/CNC/CNC/CNC.CNC.vb new file mode 100644 index 00000000..0a3c5883 --- /dev/null +++ b/CncLib/CNC/CNC/CNC.CNC.vb @@ -0,0 +1,239 @@ +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/CncLib/CncLib.vbproj b/CncLib/CncLib.vbproj new file mode 100644 index 00000000..068d93e6 --- /dev/null +++ b/CncLib/CncLib.vbproj @@ -0,0 +1,646 @@ + + + + + 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/CncLib/CndexLinkDotNet.dll b/CncLib/CndexLinkDotNet.dll new file mode 100644 index 00000000..2ab44b83 Binary files /dev/null and b/CncLib/CndexLinkDotNet.dll differ diff --git a/CncLib/Config/Config.Options.vb b/CncLib/Config/Config.Options.vb new file mode 100644 index 00000000..73618af3 --- /dev/null +++ b/CncLib/Config/Config.Options.vb @@ -0,0 +1,294 @@ +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/CncLib/Config/Config.Settings.vb b/CncLib/Config/Config.Settings.vb new file mode 100644 index 00000000..56fbfe0e --- /dev/null +++ b/CncLib/Config/Config.Settings.vb @@ -0,0 +1,698 @@ +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/CncLib/ExtLib/Siemens.Sinumerik.Operate.Services.Wrapper.dll b/CncLib/ExtLib/Siemens.Sinumerik.Operate.Services.Wrapper.dll new file mode 100644 index 00000000..b8d54cf9 Binary files /dev/null and b/CncLib/ExtLib/Siemens.Sinumerik.Operate.Services.Wrapper.dll differ diff --git a/CncLib/ExtLib/Siemens.Sinumerik.Operate.Services.dll b/CncLib/ExtLib/Siemens.Sinumerik.Operate.Services.dll new file mode 100644 index 00000000..f00469d5 Binary files /dev/null and b/CncLib/ExtLib/Siemens.Sinumerik.Operate.Services.dll differ diff --git a/CncLib/Modules/Conversions.vb b/CncLib/Modules/Conversions.vb new file mode 100644 index 00000000..c1d2990a --- /dev/null +++ b/CncLib/Modules/Conversions.vb @@ -0,0 +1,167 @@ +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/CncLib/Modules/General.vb b/CncLib/Modules/General.vb new file mode 100644 index 00000000..2cc30ad6 --- /dev/null +++ b/CncLib/Modules/General.vb @@ -0,0 +1,83 @@ +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/CncLib/My Project/Application.Designer.vb b/CncLib/My Project/Application.Designer.vb new file mode 100644 index 00000000..d3e75b8a --- /dev/null +++ b/CncLib/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' 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/CncLib/My Project/Application.myapp b/CncLib/My Project/Application.myapp new file mode 100644 index 00000000..758895de --- /dev/null +++ b/CncLib/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + false + false + 0 + true + 0 + 1 + true + diff --git a/CncLib/My Project/AssemblyInfo.vb b/CncLib/My Project/AssemblyInfo.vb new file mode 100644 index 00000000..ff9228af --- /dev/null +++ b/CncLib/My Project/AssemblyInfo.vb @@ -0,0 +1,24 @@ +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/CncLib/My Project/Resources.Designer.vb b/CncLib/My Project/Resources.Designer.vb new file mode 100644 index 00000000..4ebee5f4 --- /dev/null +++ b/CncLib/My Project/Resources.Designer.vb @@ -0,0 +1,63 @@ +'------------------------------------------------------------------------------ +' +' 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/CncLib/My Project/Resources.resx b/CncLib/My Project/Resources.resx new file mode 100644 index 00000000..af7dbebb --- /dev/null +++ b/CncLib/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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/CncLib/My Project/Settings.Designer.vb b/CncLib/My Project/Settings.Designer.vb new file mode 100644 index 00000000..d0ef8ed7 --- /dev/null +++ b/CncLib/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' 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/CncLib/My Project/Settings.settings b/CncLib/My Project/Settings.settings new file mode 100644 index 00000000..85b890b3 --- /dev/null +++ b/CncLib/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.AxesRefR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.AxesRefR.datasource new file mode 100644 index 00000000..134d5b6a --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.AxesRefR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.BootModeR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.BootModeR.datasource new file mode 100644 index 00000000..9b199349 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.BootModeR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.BootPhaseEnquiryR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.BootPhaseEnquiryR.datasource new file mode 100644 index 00000000..2a60c950 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.BootPhaseEnquiryR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.BootRebootR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.BootRebootR.datasource new file mode 100644 index 00000000..f91f85d1 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.BootRebootR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.BootShutDownR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.BootShutDownR.datasource new file mode 100644 index 00000000..733b8aef --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.BootShutDownR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.CheckHistoryR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.CheckHistoryR.datasource new file mode 100644 index 00000000..0b67a4f9 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.CheckHistoryR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.CycleR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.CycleR.datasource new file mode 100644 index 00000000..24d552d5 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.CycleR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.DncDataR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.DncDataR.datasource new file mode 100644 index 00000000..d128e24d --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.DncDataR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.DncEofR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.DncEofR.datasource new file mode 100644 index 00000000..d16a2cbe --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.DncEofR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.DncInitR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.DncInitR.datasource new file mode 100644 index 00000000..14fc0088 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.DncInitR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.DncStopR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.DncStopR.datasource new file mode 100644 index 00000000..325698c3 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.DncStopR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.EseExR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.EseExR.datasource new file mode 100644 index 00000000..3561e471 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.EseExR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.EseR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.EseR.datasource new file mode 100644 index 00000000..465cd847 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.EseR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ExeR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ExeR.datasource new file mode 100644 index 00000000..495ddc2d --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ExeR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetActivePartProgramR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetActivePartProgramR.datasource new file mode 100644 index 00000000..2f7f8812 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetActivePartProgramR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetAvailableCustomEventsR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetAvailableCustomEventsR.datasource new file mode 100644 index 00000000..77bea450 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetAvailableCustomEventsR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetAxOriginNumR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetAxOriginNumR.datasource new file mode 100644 index 00000000..cda2aff3 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetAxOriginNumR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetAxesInfo3R.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetAxesInfo3R.datasource new file mode 100644 index 00000000..aff32885 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetAxesInfo3R.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetAxesPositionR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetAxesPositionR.datasource new file mode 100644 index 00000000..55c48d2d --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetAxesPositionR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetBinaryFileR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetBinaryFileR.datasource new file mode 100644 index 00000000..dd8f56c5 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetBinaryFileR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetBlkNumR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetBlkNumR.datasource new file mode 100644 index 00000000..febe9bb2 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetBlkNumR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetCNCRegKeyR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetCNCRegKeyR.datasource new file mode 100644 index 00000000..24d9ab9a --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetCNCRegKeyR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetCodeNumberR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetCodeNumberR.datasource new file mode 100644 index 00000000..a2123316 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetCodeNumberR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetDateTimeR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetDateTimeR.datasource new file mode 100644 index 00000000..d0e36804 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetDateTimeR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetFileR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetFileR.datasource new file mode 100644 index 00000000..00b74669 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetFileR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetGCodeR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetGCodeR.datasource new file mode 100644 index 00000000..ab62a0b9 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetGCodeR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetHWKeyR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetHWKeyR.datasource new file mode 100644 index 00000000..842dc6a0 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetHWKeyR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetMCodeR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetMCodeR.datasource new file mode 100644 index 00000000..a862dac6 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetMCodeR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetMarkerInfoR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetMarkerInfoR.datasource new file mode 100644 index 00000000..5d5eb7cd --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetMarkerInfoR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetNcInfo1R.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetNcInfo1R.datasource new file mode 100644 index 00000000..bc221bd7 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetNcInfo1R.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetNcInfo2R.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetNcInfo2R.datasource new file mode 100644 index 00000000..a6a30fc5 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetNcInfo2R.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetOffsetTabRecordIIR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetOffsetTabRecordIIR.datasource new file mode 100644 index 00000000..19c4861d --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetOffsetTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetOptionsR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetOptionsR.datasource new file mode 100644 index 00000000..735995e6 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetOptionsR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetOriginTabRecordIIR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetOriginTabRecordIIR.datasource new file mode 100644 index 00000000..2d471b94 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetOriginTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetPTechSizesR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetPTechSizesR.datasource new file mode 100644 index 00000000..1d28a02d --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetPTechSizesR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetPartProgramLinesR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetPartProgramLinesR.datasource new file mode 100644 index 00000000..942bbb8c --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetPartProgramLinesR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcInInputR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcInInputR.datasource new file mode 100644 index 00000000..3e7315c7 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcInInputR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcVarDoubleR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcVarDoubleR.datasource new file mode 100644 index 00000000..577eb4b4 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcVarDoubleR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcVarWordR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcVarWordR.datasource new file mode 100644 index 00000000..552bb43b --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcVarWordR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcessConfNumR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcessConfNumR.datasource new file mode 100644 index 00000000..ff66c736 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcessConfNumR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcessStatusR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcessStatusR.datasource new file mode 100644 index 00000000..5a1574c3 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetProcessStatusR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetSelectedProcessR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetSelectedProcessR.datasource new file mode 100644 index 00000000..57da0a6e --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetSelectedProcessR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetSerialNumberR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetSerialNumberR.datasource new file mode 100644 index 00000000..f8b7d4db --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetSerialNumberR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetServoParR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetServoParR.datasource new file mode 100644 index 00000000..409f6ec2 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetServoParR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetSysTickR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetSysTickR.datasource new file mode 100644 index 00000000..dd0bc441 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetSysTickR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetToolNamesR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetToolNamesR.datasource new file mode 100644 index 00000000..f2605e36 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetToolNamesR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetToolTabRecordIIR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetToolTabRecordIIR.datasource new file mode 100644 index 00000000..aab7ab0f --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetToolTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetUserTabRecordIIR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetUserTabRecordIIR.datasource new file mode 100644 index 00000000..b5fc2eef --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetUserTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetVarJOGR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetVarJOGR.datasource new file mode 100644 index 00000000..b3efd6bf --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetVarJOGR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetVarRCMR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetVarRCMR.datasource new file mode 100644 index 00000000..8c48f711 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.GetVarRCMR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.HoldR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.HoldR.datasource new file mode 100644 index 00000000..73637875 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.HoldR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LoadPTechR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LoadPTechR.datasource new file mode 100644 index 00000000..7d7331c2 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LoadPTechR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LockTableIIR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LockTableIIR.datasource new file mode 100644 index 00000000..19663ce7 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LockTableIIR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSAddDriveR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSAddDriveR.datasource new file mode 100644 index 00000000..0f06a989 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSAddDriveR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSChangeFileAttribR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSChangeFileAttribR.datasource new file mode 100644 index 00000000..2be5fd2b --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSChangeFileAttribR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSCloseFileR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSCloseFileR.datasource new file mode 100644 index 00000000..b7304163 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSCloseFileR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSCopyFileR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSCopyFileR.datasource new file mode 100644 index 00000000..bcda452f --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSCopyFileR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSCreateDirR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSCreateDirR.datasource new file mode 100644 index 00000000..c44f4637 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSCreateDirR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSCreateFileR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSCreateFileR.datasource new file mode 100644 index 00000000..65e7df57 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSCreateFileR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSFindCloseR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSFindCloseR.datasource new file mode 100644 index 00000000..adc9027a --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSFindCloseR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSFindFirstR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSFindFirstR.datasource new file mode 100644 index 00000000..e6bc4fd7 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSFindFirstR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSFindNextR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSFindNextR.datasource new file mode 100644 index 00000000..d9482e01 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSFindNextR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetDriveListR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetDriveListR.datasource new file mode 100644 index 00000000..ce158c7e --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetDriveListR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetDrivePathR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetDrivePathR.datasource new file mode 100644 index 00000000..012cf933 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetDrivePathR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetFileAttribR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetFileAttribR.datasource new file mode 100644 index 00000000..5b675259 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetFileAttribR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetFileSizeR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetFileSizeR.datasource new file mode 100644 index 00000000..63c9d230 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetFileSizeR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetHiddenDriveListR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetHiddenDriveListR.datasource new file mode 100644 index 00000000..0da3fb55 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetHiddenDriveListR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetInfoR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetInfoR.datasource new file mode 100644 index 00000000..f3e4849e --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetInfoR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetNumDriveR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetNumDriveR.datasource new file mode 100644 index 00000000..61e2514c --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetNumDriveR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetSecurityLevelR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetSecurityLevelR.datasource new file mode 100644 index 00000000..f8a22648 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSGetSecurityLevelR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSLongFileNamesR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSLongFileNamesR.datasource new file mode 100644 index 00000000..b9b0beac --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSLongFileNamesR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSOpenFileR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSOpenFileR.datasource new file mode 100644 index 00000000..e79bc941 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSOpenFileR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSReadRecordR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSReadRecordR.datasource new file mode 100644 index 00000000..bac7b1d8 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSReadRecordR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSReloadDriveListR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSReloadDriveListR.datasource new file mode 100644 index 00000000..8286c90f --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSReloadDriveListR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSRemoveDirR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSRemoveDirR.datasource new file mode 100644 index 00000000..5f921528 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSRemoveDirR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSRemoveDriveR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSRemoveDriveR.datasource new file mode 100644 index 00000000..a80664f9 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSRemoveDriveR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSRemoveFileR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSRemoveFileR.datasource new file mode 100644 index 00000000..c8ff9c65 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSRemoveFileR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSRenameR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSRenameR.datasource new file mode 100644 index 00000000..6d2ee4a2 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSRenameR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSSetFileAttribR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSSetFileAttribR.datasource new file mode 100644 index 00000000..377c20ac --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSSetFileAttribR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSSetSecurityLevelR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSSetSecurityLevelR.datasource new file mode 100644 index 00000000..93b662d8 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSSetSecurityLevelR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSWriteRecordR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSWriteRecordR.datasource new file mode 100644 index 00000000..f82734ab --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.LogFSWriteRecordR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ManagePartProgramR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ManagePartProgramR.datasource new file mode 100644 index 00000000..e79f5a7a --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ManagePartProgramR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonAddVariableR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonAddVariableR.datasource new file mode 100644 index 00000000..1bd78416 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonAddVariableR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonCloseChannelR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonCloseChannelR.datasource new file mode 100644 index 00000000..5a5483a9 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonCloseChannelR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonDeleteVariableR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonDeleteVariableR.datasource new file mode 100644 index 00000000..b464d877 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonDeleteVariableR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonGetVariableR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonGetVariableR.datasource new file mode 100644 index 00000000..0af43f39 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonGetVariableR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonOpenChannelR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonOpenChannelR.datasource new file mode 100644 index 00000000..3d1c7195 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonOpenChannelR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonStartSamplingR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonStartSamplingR.datasource new file mode 100644 index 00000000..0f7dc81f --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonStartSamplingR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonStopSamplingR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonStopSamplingR.datasource new file mode 100644 index 00000000..3ff00c1e --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.MonStopSamplingR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.PutBinaryFileR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.PutBinaryFileR.datasource new file mode 100644 index 00000000..3df16227 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.PutBinaryFileR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.PutFileR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.PutFileR.datasource new file mode 100644 index 00000000..c8cf7390 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.PutFileR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadCurrentAnomalyMsgR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadCurrentAnomalyMsgR.datasource new file mode 100644 index 00000000..929e87ab --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadCurrentAnomalyMsgR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadCurrentEmergMsgR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadCurrentEmergMsgR.datasource new file mode 100644 index 00000000..43fcfa0f --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadCurrentEmergMsgR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadCurrentErrorMsgR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadCurrentErrorMsgR.datasource new file mode 100644 index 00000000..f864ff13 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadCurrentErrorMsgR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadErrMsgR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadErrMsgR.datasource new file mode 100644 index 00000000..df92838c --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadErrMsgR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadHistoryAnomalyMsgR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadHistoryAnomalyMsgR.datasource new file mode 100644 index 00000000..3d328d36 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadHistoryAnomalyMsgR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadHistoryEmergMsgR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadHistoryEmergMsgR.datasource new file mode 100644 index 00000000..a5e813a3 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadHistoryEmergMsgR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadHistoryErrorMsgR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadHistoryErrorMsgR.datasource new file mode 100644 index 00000000..7b023c0f --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadHistoryErrorMsgR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadHistoryLogMsgR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadHistoryLogMsgR.datasource new file mode 100644 index 00000000..2a1b5a70 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadHistoryLogMsgR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadPartProgramMsgR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadPartProgramMsgR.datasource new file mode 100644 index 00000000..7555cbc2 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadPartProgramMsgR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadRemapDefinitionsR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadRemapDefinitionsR.datasource new file mode 100644 index 00000000..d48b0aaa --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadRemapDefinitionsR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadVarDoubleR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadVarDoubleR.datasource new file mode 100644 index 00000000..64e22df5 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadVarDoubleR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadVarTextR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadVarTextR.datasource new file mode 100644 index 00000000..57b521ed --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadVarTextR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadVarWordR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadVarWordR.datasource new file mode 100644 index 00000000..fb6112bd --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadVarWordR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadWarningMsgR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadWarningMsgR.datasource new file mode 100644 index 00000000..c30a72c4 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ReadWarningMsgR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ResetR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ResetR.datasource new file mode 100644 index 00000000..b3fa2aa4 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ResetR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ResetSingleTableIIR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ResetSingleTableIIR.datasource new file mode 100644 index 00000000..253a86c1 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.ResetSingleTableIIR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.RestoreBackupMemoryR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.RestoreBackupMemoryR.datasource new file mode 100644 index 00000000..26e9e461 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.RestoreBackupMemoryR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.RestoreSingleTableR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.RestoreSingleTableR.datasource new file mode 100644 index 00000000..9068e37b --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.RestoreSingleTableR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SaveBackupMemoryR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SaveBackupMemoryR.datasource new file mode 100644 index 00000000..5e8d8c8b --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SaveBackupMemoryR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SaveSingleTableR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SaveSingleTableR.datasource new file mode 100644 index 00000000..235c6b34 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SaveSingleTableR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SaveTablesR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SaveTablesR.datasource new file mode 100644 index 00000000..6ebe90b9 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SaveTablesR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SelectPartProgramFromDriveR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SelectPartProgramFromDriveR.datasource new file mode 100644 index 00000000..a73efdac --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SelectPartProgramFromDriveR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SelectPartProgramR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SelectPartProgramR.datasource new file mode 100644 index 00000000..07b3ce1a --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SelectPartProgramR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SelectProcAxisR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SelectProcAxisR.datasource new file mode 100644 index 00000000..6f63933f --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SelectProcAxisR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SelectProcessR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SelectProcessR.datasource new file mode 100644 index 00000000..20b58cba --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SelectProcessR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetDateTimeR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetDateTimeR.datasource new file mode 100644 index 00000000..736ce121 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetDateTimeR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetFeedManOverR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetFeedManOverR.datasource new file mode 100644 index 00000000..8104d013 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetFeedManOverR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetFeedRapidOverR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetFeedRapidOverR.datasource new file mode 100644 index 00000000..5af90c9d --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetFeedRapidOverR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetFeedRateOverR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetFeedRateOverR.datasource new file mode 100644 index 00000000..6af2261f --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetFeedRateOverR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetIpAddressR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetIpAddressR.datasource new file mode 100644 index 00000000..720042ad --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetIpAddressR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetManMovDirectionR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetManMovDirectionR.datasource new file mode 100644 index 00000000..94e38d31 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetManMovDirectionR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetMdiStringR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetMdiStringR.datasource new file mode 100644 index 00000000..edc50876 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetMdiStringR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetOffsetTabRecordIIR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetOffsetTabRecordIIR.datasource new file mode 100644 index 00000000..82795167 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetOffsetTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetOriginTabRecordIIR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetOriginTabRecordIIR.datasource new file mode 100644 index 00000000..86f619a7 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetOriginTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetProcVarDoubleR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetProcVarDoubleR.datasource new file mode 100644 index 00000000..46c05157 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetProcVarDoubleR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetProcVarWordR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetProcVarWordR.datasource new file mode 100644 index 00000000..0d80f3bb --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetProcVarWordR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetProcessModeR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetProcessModeR.datasource new file mode 100644 index 00000000..cfbb27f7 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetProcessModeR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetServoParR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetServoParR.datasource new file mode 100644 index 00000000..cb5b64f8 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetServoParR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetSpeedRateOverR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetSpeedRateOverR.datasource new file mode 100644 index 00000000..825118d3 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetSpeedRateOverR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetToolTabRecordIIR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetToolTabRecordIIR.datasource new file mode 100644 index 00000000..c6f6a332 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetToolTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetUserTabRecordIIR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetUserTabRecordIIR.datasource new file mode 100644 index 00000000..4763b3f2 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetUserTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetVarJOGR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetVarJOGR.datasource new file mode 100644 index 00000000..161609b0 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetVarJOGR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetVarRCMR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetVarRCMR.datasource new file mode 100644 index 00000000..c9f6538d --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetVarRCMR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetVarUASR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetVarUASR.datasource new file mode 100644 index 00000000..f4d06025 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SetVarUASR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SkipPProgBlockR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SkipPProgBlockR.datasource new file mode 100644 index 00000000..3a6c1665 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SkipPProgBlockR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SndProcInpDataR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SndProcInpDataR.datasource new file mode 100644 index 00000000..307ec90d --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SndProcInpDataR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SyncroCycleR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SyncroCycleR.datasource new file mode 100644 index 00000000..8b7d9f4c --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.SyncroCycleR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.UnLockTableIIR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.UnLockTableIIR.datasource new file mode 100644 index 00000000..da8ec342 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.UnLockTableIIR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteRemapDefinitionsR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteRemapDefinitionsR.datasource new file mode 100644 index 00000000..f97364ea --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteRemapDefinitionsR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteVarDoubleR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteVarDoubleR.datasource new file mode 100644 index 00000000..46ed79a9 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteVarDoubleR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteVarTextR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteVarTextR.datasource new file mode 100644 index 00000000..d49288be --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteVarTextR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteVarWordBitR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteVarWordBitR.datasource new file mode 100644 index 00000000..0044aae1 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteVarWordBitR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteVarWordR.datasource b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteVarWordR.datasource new file mode 100644 index 00000000..059fb302 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/CMSCncLib.OPENcontrol.WriteVarWordR.datasource @@ -0,0 +1,10 @@ + + + + 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/CncLib/Service References/OPENcontrol/OPENcontrol.wsdl b/CncLib/Service References/OPENcontrol/OPENcontrol.wsdl new file mode 100644 index 00000000..2e6478a2 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/OPENcontrol.wsdl @@ -0,0 +1,5895 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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/CncLib/Service References/OPENcontrol/Reference.svcmap b/CncLib/Service References/OPENcontrol/Reference.svcmap new file mode 100644 index 00000000..e5397487 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/Reference.svcmap @@ -0,0 +1,30 @@ + + + + false + true + + false + false + false + + + true + Auto + true + true + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/CncLib/Service References/OPENcontrol/Reference.vb b/CncLib/Service References/OPENcontrol/Reference.vb new file mode 100644 index 00000000..fb321eb7 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/Reference.vb @@ -0,0 +1,29126 @@ +'------------------------------------------------------------------------------ +' +' 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/CncLib/Service References/OPENcontrol/configuration.svcinfo b/CncLib/Service References/OPENcontrol/configuration.svcinfo new file mode 100644 index 00000000..198883d1 --- /dev/null +++ b/CncLib/Service References/OPENcontrol/configuration.svcinfo @@ -0,0 +1,10 @@ + + + + + + + + + + \ No newline at end of file diff --git a/CncLib/Service References/OPENcontrol/configuration91.svcinfo b/CncLib/Service References/OPENcontrol/configuration91.svcinfo new file mode 100644 index 00000000..0a06217d --- /dev/null +++ b/CncLib/Service References/OPENcontrol/configuration91.svcinfo @@ -0,0 +1,201 @@ + + + + + + + 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/CncLib/app.config b/CncLib/app.config new file mode 100644 index 00000000..ae1f778a --- /dev/null +++ b/CncLib/app.config @@ -0,0 +1,33 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/IOB-UT/BinaryFormatter.cs b/IOB-UT/BinaryFormatter.cs new file mode 100644 index 00000000..9ab1f0ab --- /dev/null +++ b/IOB-UT/BinaryFormatter.cs @@ -0,0 +1,136 @@ +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-UT/IOB-UT.csproj b/IOB-UT/IOB-UT.csproj new file mode 100644 index 00000000..90aa78c4 --- /dev/null +++ b/IOB-UT/IOB-UT.csproj @@ -0,0 +1,63 @@ + + + + + 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-UT/IniFile.cs b/IOB-UT/IniFile.cs new file mode 100644 index 00000000..f6a2e2d5 --- /dev/null +++ b/IOB-UT/IniFile.cs @@ -0,0 +1,247 @@ +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-UT/NLog.config b/IOB-UT/NLog.config new file mode 100644 index 00000000..7a0f3aa1 --- /dev/null +++ b/IOB-UT/NLog.config @@ -0,0 +1,41 @@ + + + + + + + + + + + + + + + + + + + + diff --git a/IOB-UT/NLog.xsd b/IOB-UT/NLog.xsd new file mode 100644 index 00000000..4740d805 --- /dev/null +++ b/IOB-UT/NLog.xsd @@ -0,0 +1,3103 @@ + + + + + + + + + + + + + + + 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-UT/Properties/AssemblyInfo.cs b/IOB-UT/Properties/AssemblyInfo.cs new file mode 100644 index 00000000..742e7bb2 --- /dev/null +++ b/IOB-UT/Properties/AssemblyInfo.cs @@ -0,0 +1,36 @@ +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-UT/baseUtils.cs b/IOB-UT/baseUtils.cs new file mode 100644 index 00000000..28bf3001 --- /dev/null +++ b/IOB-UT/baseUtils.cs @@ -0,0 +1,990 @@ +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-UT/packages.config b/IOB-UT/packages.config new file mode 100644 index 00000000..bbf6b99b --- /dev/null +++ b/IOB-UT/packages.config @@ -0,0 +1,6 @@ + + + + + + \ No newline at end of file diff --git a/IOB-WIN.sln b/IOB-WIN.sln new file mode 100644 index 00000000..a44133b3 --- /dev/null +++ b/IOB-WIN.sln @@ -0,0 +1,82 @@ + +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/App.config b/IOB-WIN/App.config new file mode 100644 index 00000000..4f7c4fc9 --- /dev/null +++ b/IOB-WIN/App.config @@ -0,0 +1,75 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/IOB-WIN/DATA/CONF/IOB.ini b/IOB-WIN/DATA/CONF/IOB.ini new file mode 100644 index 00000000..6a1eeae5 --- /dev/null +++ b/IOB-WIN/DATA/CONF/IOB.ini @@ -0,0 +1,37 @@ +;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/DATA/DAT/PersistData.dat b/IOB-WIN/DATA/DAT/PersistData.dat new file mode 100644 index 00000000..5f282702 --- /dev/null +++ b/IOB-WIN/DATA/DAT/PersistData.dat @@ -0,0 +1 @@ + \ No newline at end of file diff --git a/IOB-WIN/DATA/DAT/SimData.dat b/IOB-WIN/DATA/DAT/SimData.dat new file mode 100644 index 00000000..c59e4823 --- /dev/null +++ b/IOB-WIN/DATA/DAT/SimData.dat @@ -0,0 +1,959 @@ +;------------------------------------------------------------------------------------ +; 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.csproj b/IOB-WIN/IOB-WIN.csproj new file mode 100644 index 00000000..7103cf45 --- /dev/null +++ b/IOB-WIN/IOB-WIN.csproj @@ -0,0 +1,154 @@ + + + + + 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/IobConfiguration.cs b/IOB-WIN/IobConfiguration.cs new file mode 100644 index 00000000..f62272e6 --- /dev/null +++ b/IOB-WIN/IobConfiguration.cs @@ -0,0 +1,120 @@ +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/IobDemo.cs b/IOB-WIN/IobDemo.cs new file mode 100644 index 00000000..9efe492e --- /dev/null +++ b/IOB-WIN/IobDemo.cs @@ -0,0 +1,21 @@ +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/IobFanuc.cs b/IOB-WIN/IobFanuc.cs new file mode 100644 index 00000000..e08eec8a --- /dev/null +++ b/IOB-WIN/IobFanuc.cs @@ -0,0 +1,255 @@ +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/IobGeneric.cs b/IOB-WIN/IobGeneric.cs new file mode 100644 index 00000000..61dd85ee --- /dev/null +++ b/IOB-WIN/IobGeneric.cs @@ -0,0 +1,1202 @@ +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/IobSiemens.cs b/IOB-WIN/IobSiemens.cs new file mode 100644 index 00000000..2118a493 --- /dev/null +++ b/IOB-WIN/IobSiemens.cs @@ -0,0 +1,21 @@ +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/MainForm.Designer.cs b/IOB-WIN/MainForm.Designer.cs new file mode 100644 index 00000000..cb40f0a4 --- /dev/null +++ b/IOB-WIN/MainForm.Designer.cs @@ -0,0 +1,657 @@ +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/MainForm.cs b/IOB-WIN/MainForm.cs new file mode 100644 index 00000000..5d751285 --- /dev/null +++ b/IOB-WIN/MainForm.cs @@ -0,0 +1,946 @@ +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/MainForm.resx b/IOB-WIN/MainForm.resx new file mode 100644 index 00000000..1f548d1a --- /dev/null +++ b/IOB-WIN/MainForm.resx @@ -0,0 +1,138 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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/NLog.config b/IOB-WIN/NLog.config new file mode 100644 index 00000000..43a9f064 --- /dev/null +++ b/IOB-WIN/NLog.config @@ -0,0 +1,54 @@ + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/IOB-WIN/NLog.xsd b/IOB-WIN/NLog.xsd new file mode 100644 index 00000000..4740d805 --- /dev/null +++ b/IOB-WIN/NLog.xsd @@ -0,0 +1,3103 @@ + + + + + + + + + + + + + + + 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/Program.cs b/IOB-WIN/Program.cs new file mode 100644 index 00000000..fffacbee --- /dev/null +++ b/IOB-WIN/Program.cs @@ -0,0 +1,25 @@ +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/Properties/AssemblyInfo.cs b/IOB-WIN/Properties/AssemblyInfo.cs new file mode 100644 index 00000000..41b87dec --- /dev/null +++ b/IOB-WIN/Properties/AssemblyInfo.cs @@ -0,0 +1,22 @@ +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/Properties/Resources.Designer.cs b/IOB-WIN/Properties/Resources.Designer.cs new file mode 100644 index 00000000..97de66d0 --- /dev/null +++ b/IOB-WIN/Properties/Resources.Designer.cs @@ -0,0 +1,71 @@ +//------------------------------------------------------------------------------ +// +// 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/Properties/Resources.resx b/IOB-WIN/Properties/Resources.resx new file mode 100644 index 00000000..af7dbebb --- /dev/null +++ b/IOB-WIN/Properties/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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/Properties/Settings.Designer.cs b/IOB-WIN/Properties/Settings.Designer.cs new file mode 100644 index 00000000..e5eef23d --- /dev/null +++ b/IOB-WIN/Properties/Settings.Designer.cs @@ -0,0 +1,30 @@ +//------------------------------------------------------------------------------ +// +// 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/Properties/Settings.settings b/IOB-WIN/Properties/Settings.settings new file mode 100644 index 00000000..39645652 --- /dev/null +++ b/IOB-WIN/Properties/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/IOB-WIN/Readme/ToDo.txt b/IOB-WIN/Readme/ToDo.txt new file mode 100644 index 00000000..efe3d820 --- /dev/null +++ b/IOB-WIN/Readme/ToDo.txt @@ -0,0 +1,17 @@ +------------------------------------- +- 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/Resources/SteamWare.ico b/IOB-WIN/Resources/SteamWare.ico new file mode 100644 index 00000000..70ccadaf Binary files /dev/null and b/IOB-WIN/Resources/SteamWare.ico differ diff --git a/IOB-WIN/dump/build.bat b/IOB-WIN/dump/build.bat new file mode 100644 index 00000000..afc9d957 --- /dev/null +++ b/IOB-WIN/dump/build.bat @@ -0,0 +1 @@ +cl dump.c ws2_32.lib \ No newline at end of file diff --git a/IOB-WIN/dump/dump.c b/IOB-WIN/dump/dump.c new file mode 100644 index 00000000..cad2cef3 --- /dev/null +++ b/IOB-WIN/dump/dump.c @@ -0,0 +1,184 @@ +#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/dump/dump.exe b/IOB-WIN/dump/dump.exe new file mode 100644 index 00000000..caa249c9 Binary files /dev/null and b/IOB-WIN/dump/dump.exe differ diff --git a/IOB-WIN/logs/.placeholder.txt b/IOB-WIN/logs/.placeholder.txt new file mode 100644 index 00000000..5f282702 --- /dev/null +++ b/IOB-WIN/logs/.placeholder.txt @@ -0,0 +1 @@ + \ No newline at end of file diff --git a/IOB-WIN/packages.config b/IOB-WIN/packages.config new file mode 100644 index 00000000..9210810b --- /dev/null +++ b/IOB-WIN/packages.config @@ -0,0 +1,7 @@ + + + + + + + \ No newline at end of file diff --git a/IOB-WIN/postBuildTgt.bat b/IOB-WIN/postBuildTgt.bat new file mode 100644 index 00000000..4db8914d --- /dev/null +++ b/IOB-WIN/postBuildTgt.bat @@ -0,0 +1,77 @@ +@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/setupTgt.bat b/IOB-WIN/setupTgt.bat new file mode 100644 index 00000000..3bf5e83d --- /dev/null +++ b/IOB-WIN/setupTgt.bat @@ -0,0 +1,84 @@ +@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/utils.cs b/IOB-WIN/utils.cs new file mode 100644 index 00000000..e85eb817 --- /dev/null +++ b/IOB-WIN/utils.cs @@ -0,0 +1,108 @@ +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/VersGen/App.config b/VersGen/App.config new file mode 100644 index 00000000..88fa4027 --- /dev/null +++ b/VersGen/App.config @@ -0,0 +1,6 @@ + + + + + + \ No newline at end of file diff --git a/VersGen/Properties/AssemblyInfo.cs b/VersGen/Properties/AssemblyInfo.cs new file mode 100644 index 00000000..15292d5e --- /dev/null +++ b/VersGen/Properties/AssemblyInfo.cs @@ -0,0 +1,32 @@ +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/VersGen/VersGen.cs b/VersGen/VersGen.cs new file mode 100644 index 00000000..35dbdd2a --- /dev/null +++ b/VersGen/VersGen.cs @@ -0,0 +1,11 @@ +// +// 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/VersGen/VersGen.csproj b/VersGen/VersGen.csproj new file mode 100644 index 00000000..830d81fd --- /dev/null +++ b/VersGen/VersGen.csproj @@ -0,0 +1,77 @@ + + + + + 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/VersGen/VersGen.tt b/VersGen/VersGen.tt new file mode 100644 index 00000000..7b6b652e --- /dev/null +++ b/VersGen/VersGen.tt @@ -0,0 +1,12 @@ +<#@ 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