diff --git a/MaterialeSetup/OSAI/CNC.Runtime.vb b/MaterialeSetup/OSAI/CNC.Runtime.vb new file mode 100644 index 0000000..478a5f7 --- /dev/null +++ b/MaterialeSetup/OSAI/CNC.Runtime.vb @@ -0,0 +1,66 @@ +Imports CMSControl.App.Runtime +Imports CMSControl.CNC + +Namespace CNC + + Public Class Runtime + Public Shared NC As CMSControl.CNC.CNC + + Public Shared Sub CreateNC() + + '************ Istanzio l'oggetto NC ***************** + Try + Log.WI("TRY crating NC CNC.NC", "TypeNC=" & Config.Settings.Settings.TypeNC.ToString, CLog.Lev.Principal) + Select Case Config.Settings.Settings.TypeNC + Case NC_DEMO + NC = New DEMO + Case NC_FANUC + If Not Config.Settings.Settings.Hssb Then 'Ethernet + NC = New FANUC(0, Config.Settings.Settings.IpFanuc, Config.Settings.Settings.PortIpFanuc, Config.Settings.Settings.CncScreenHssb) + Else 'Hssb + NC = New FANUC(1) + End If + Case NC_OSAI + If Config.Settings.Settings.OsaiCommType = 1 Then 'SOAP + NC = New OSAI_OPEN(Config.Settings.Settings.IpOsai) + Else 'DCOM + Dim DotNet As Boolean + If OSAI.GetWinnbi(DotNet) Then + If DotNet Then + NC = New OSAI(Config.Settings.Settings.NcName) + Else + NC = New OSAIVB6(Config.Settings.Settings.NcName) + End If + Else + Log.WE("Error on GetWinnbi or WINNBI are not installed", "Install Osai WINNBI before run this software", True) + End If + End If + + Case NC_SIEMENS +#If SIEMENS Then + Try + NC = New SIEMENS + Catch ex As CmsNcException + 'NC.frmMain_ref.ExitApp() + 'frmMain.ExitApp() + End + End Try +#End If + Case NC_BECKHOFF + NC = New BECKHOFF + + Case Else + NC = New DEMO + End Select + Log.WI("OK crating NC CNC.NC", , CLog.Lev.Principal) + Catch ex As Exception + 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/MaterialeSetup/OSAI/CNC.Runtime_ALL.vb b/MaterialeSetup/OSAI/CNC.Runtime_ALL.vb new file mode 100644 index 0000000..478a5f7 --- /dev/null +++ b/MaterialeSetup/OSAI/CNC.Runtime_ALL.vb @@ -0,0 +1,66 @@ +Imports CMSControl.App.Runtime +Imports CMSControl.CNC + +Namespace CNC + + Public Class Runtime + Public Shared NC As CMSControl.CNC.CNC + + Public Shared Sub CreateNC() + + '************ Istanzio l'oggetto NC ***************** + Try + Log.WI("TRY crating NC CNC.NC", "TypeNC=" & Config.Settings.Settings.TypeNC.ToString, CLog.Lev.Principal) + Select Case Config.Settings.Settings.TypeNC + Case NC_DEMO + NC = New DEMO + Case NC_FANUC + If Not Config.Settings.Settings.Hssb Then 'Ethernet + NC = New FANUC(0, Config.Settings.Settings.IpFanuc, Config.Settings.Settings.PortIpFanuc, Config.Settings.Settings.CncScreenHssb) + Else 'Hssb + NC = New FANUC(1) + End If + Case NC_OSAI + If Config.Settings.Settings.OsaiCommType = 1 Then 'SOAP + NC = New OSAI_OPEN(Config.Settings.Settings.IpOsai) + Else 'DCOM + Dim DotNet As Boolean + If OSAI.GetWinnbi(DotNet) Then + If DotNet Then + NC = New OSAI(Config.Settings.Settings.NcName) + Else + NC = New OSAIVB6(Config.Settings.Settings.NcName) + End If + Else + Log.WE("Error on GetWinnbi or WINNBI are not installed", "Install Osai WINNBI before run this software", True) + End If + End If + + Case NC_SIEMENS +#If SIEMENS Then + Try + NC = New SIEMENS + Catch ex As CmsNcException + 'NC.frmMain_ref.ExitApp() + 'frmMain.ExitApp() + End + End Try +#End If + Case NC_BECKHOFF + NC = New BECKHOFF + + Case Else + NC = New DEMO + End Select + Log.WI("OK crating NC CNC.NC", , CLog.Lev.Principal) + Catch ex As Exception + 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/MaterialeSetup/OSAI/CNC.Runtime_fanuc.vb b/MaterialeSetup/OSAI/CNC.Runtime_fanuc.vb new file mode 100644 index 0000000..4567571 --- /dev/null +++ b/MaterialeSetup/OSAI/CNC.Runtime_fanuc.vb @@ -0,0 +1,47 @@ +Imports CMSCncLib.App.Runtime +Imports CMSCncLib.CNC +Imports CMSCncLib.Tools + +Namespace CNC + + Public Class Runtime + Public Shared NC As CMSCncLib.CNC.CNC + + + Public Shared Sub CreateNC(ipFanucTgt As String) + + + '************ Istanzio l'oggetto NC ***************** + Try + 'CMSCncLib.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 + + ' SIMULATORE + ' IP LOOPBACK: 192.168.211.5/255.255.255.0 + 'ipFanuc = "192.168.211.5" + ' PRODUZIONE + ' IP ETH: 192.168.139.201/255.255.255.0 + 'ipFanuc = "192.168.139.1" + + ' imposto IP da chiamata + ipFanuc = ipFanucTgt + + + portIpFanuc = "8193" + CncScreenHssb = "0" + NC = New FANUC(0, ipFanuc, portIpFanuc, CncScreenHssb) + + 'CMSCncLib.App.Runtime.Log.WI("OK crating NC CNC.NC", , CLog.Lev.Principal) + Catch ex As Exception + 'CMSCncLib.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/MaterialeSetup/OSAI/CndexLinkDotNet.dll b/MaterialeSetup/OSAI/CndexLinkDotNet.dll new file mode 100644 index 0000000..2ab44b8 Binary files /dev/null and b/MaterialeSetup/OSAI/CndexLinkDotNet.dll differ diff --git a/MaterialeSetup/OSAI/Config.Options.vb b/MaterialeSetup/OSAI/Config.Options.vb new file mode 100644 index 0000000..8561dd5 --- /dev/null +++ b/MaterialeSetup/OSAI/Config.Options.vb @@ -0,0 +1,324 @@ +Imports System.ComponentModel +Imports System.IO +Imports CMSControl.App.Runtime + +Imports System.Security + +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 _QsMonitor_Enabled As Boolean + ''' Opzione QsMonitor + Public ReadOnly Property QsMonitor_Enabled() As Boolean + Get + Return Me._QsMonitor_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_AttrezzaggioDaFile_Path As String + ''' Opzione Percorso Attrezzaggio Da File + Public ReadOnly Property ToolTable_AttrezzaggioDaFile_Path() As String + Get + Return Me._ToolTable_AttrezzaggioDaFile_Path + 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_GeometryManagement As Control.ToolTable.GeometryManagement + ''' Tipo di gestione dati dimensioni utensili + Public ReadOnly Property ToolTable_GeometryManagement() As Control.ToolTable.GeometryManagement + Get + Return Me._ToolTable_GeometryManagement + 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() + + ' Gestione QsMonitor (in funzione dell'opzione QsMonitor_Enabled) + Control.QsMonitor.GestioneQsMonitor() + 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_AttrezzaggioDaFile_Path = Ini.GetString("OPTIONS", "TOOLTABLE_ATTREZZAGGIODAFILE_PATH", "") + 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) + Me._QsMonitor_Enabled = Ini.GetBoolean("OPTIONS", "QSMONITOR_ENABLED", 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 + 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/MaterialeSetup/OSAI/DCom/CNC.OSAI.vb b/MaterialeSetup/OSAI/DCom/CNC.OSAI.vb new file mode 100644 index 0000000..78a47c2 --- /dev/null +++ b/MaterialeSetup/OSAI/DCom/CNC.OSAI.vb @@ -0,0 +1,1022 @@ +Imports CndexLinkDotNet +Imports Microsoft.Win32 +Imports CMSControl.App.Runtime +Imports CMSControl.Config.Settings + +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) + +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 + + 'Definisco l'area della Cnc Window + SetCncWindowSize() + + '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 + + 'apro una sessione col CN + 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 CmsNcException(szReturn) + Else + 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 CmsNcException(szReturn) + Else + 'verifico che il sistema si trovi in una fase operativa "stabile" + 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 CMSKMG o PLC", MsgBoxStyle.Exclamation + MsgBoxStyle.RetryCancel) + Case MsgBoxResult.Retry : TimeStart = Now + Case MsgBoxResult.Cancel : Exit Do + End Select + End If + 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 + Log.WI("OK Connect CNC.OSAI", "Connected=" & _bConnected, CLog.Lev.Secondary) + Else + _bConnected = False + Log.WI("OK Connect CNC.OSAI but PHASE NOT OK", "Phase=" & pPhase & " Connected=" & _bConnected, CLog.Lev.Secondary) + Throw New CmsNcException("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 CmsNcException(szReturn) + Else + _bConnected = False + bRet = True + End If + + End Sub + + Public Overrides Function SetCncWindowSize() As Boolean + Dim CncWindowSizeNew As Size + + Select Case Config.Settings.Settings.OpPanel_ScreenSize 'Screen.PrimaryScreen.Bounds.Size + Case New Size(800, 600) '10" + CncWindowSizeNew = New System.Drawing.Size(640, 480) + Case New Size(1024, 768) '15" + CncWindowSizeNew = New System.Drawing.Size(773, 600) '(800, 600) 'per visualizzare senza barra almeno 3 teste + Case New Size(2048, 768) '15" doppio monitor + CncWindowSizeNew = New System.Drawing.Size(800, 600) + Case New Size(1280, 800) '15,6" widescreen + CncWindowSizeNew = New System.Drawing.Size(800, 544) + Case New Size(1280, 1024) '17" + CncWindowSizeNew = New System.Drawing.Size(990, 750) '(1024, 768) 'per visualizzare senza barra almeno 3 teste + Case New Size(1920, 1080) 'FullHD + CncWindowSizeNew = New System.Drawing.Size(1370, 770) + Case Else + CncWindowSizeNew = New System.Drawing.Size(800, 600) + End Select + If _CncWindowSize <> CncWindowSizeNew Then + _CncWindowSize = CncWindowSizeNew + Return True + Else + Return False + End If + End Function + + Public Overrides Sub RunCnc() + Dim szProgramFilesDir, szPath As String + Dim key As RegistryKey + Dim myProcess As System.Diagnostics.Process + + If Not FindCncWindow() Then + key = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion") + szProgramFilesDir = key.GetValue("ProgramFilesDir") + szPath = szProgramFilesDir & "\OSAI\WinNBI\ProVideo.exe" + + myProcess = System.Diagnostics.Process.Start(szPath) + End If + End Sub + + Public Overrides Sub CloseCnc() + If FindCncWindow() Then + _CncWindowProcess.Kill() + End If + End Sub + + Public Overrides Function FindCncWindow() As Boolean + _CncWindowProcess = FindProcess("ProVideo") + Return _CncWindowProcess IsNot Nothing + End Function + + Public Overrides Function CncIsIconic() As Boolean + If _CncWindowProcess IsNot Nothing Then + Return ProcessIsIconic(_CncWindowProcess.MainWindowHandle) + End If + End Function + + Public Overrides Function CncIsZoomed() As Boolean + If _CncWindowProcess IsNot Nothing Then + Return ProcessIsZoomed(_CncWindowProcess.MainWindowHandle) + End If + End Function + + Public Overrides Sub MinimizeCnc() + MinimizeWindow("ProVideo") + End Sub + + Public Overrides Sub NormalizeCnc() + Try + MakeExternalWindowBorderless(FindProcess("ProVideo").MainWindowHandle) + Catch ex As Exception + End Try + ShowNormalWindow("ProVideo") + MoveWindow("ProVideo", _CncWindowPosition) + End Sub + + Public Overrides Sub SetCncFocus() + SetWindowFocus("ProVideo") + End Sub + + Public Overrides Sub MoveCnc() + MoveWindow("ProVideo", CncWindowPosition, "OSAI ProcessController") + ResizeWindow("ProVideo", Me.CncWindowSize, "OSAI ProcessController") + End Sub + + Public Overrides Function GetCncWindowId() As Long + _CncWindowProcess = FindProcess("ProVideo") + If _CncWindowProcess IsNot Nothing Then + Return _CncWindowProcess.Id + Else + Return -1 + End If + End Function + + ''' + ''' 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 + 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 + 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 + 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 + 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 + 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 + 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 + 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 + 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 CmsNcException + ' Me.CncException(ex.Message) + 'End Try + + End If + End Sub + + + ''' + ''' Verifica se è installata la WINNBI e se è una versione compatibile con .NET + ''' + ''' Versione compatibile con framework .NET + Shared Function GetWinnbi(Optional ByRef DotNet As Boolean = False) As Boolean + + Dim DotNetMinVersion As New System.Version("3.1.1") + Dim readValue() As String + Dim Ver As System.Version + Dim key As RegistryKey + + 'leggo le versioni installate + key = Registry.LocalMachine.OpenSubKey("SOFTWARE\OSAI\WinNBI") + readValue = key.GetSubKeyNames + 'verifico che ci sia al massimo una versione installata + If readValue.Count > 1 Then + MessageBox.Show("Risultano installate più versioni di WinNBI." & vbNewLine & _ + "Verificare le chiavi in HKEY_LOCAL_MACHINE\SOFTWARE\OSAI\WinNBI", _ + "Error on GetWinnbi", MessageBoxButtons.OK, MessageBoxIcon.Error) + End If + + 'La precisione di Osai nel rilasciare le versioni !!! + If readValue(0) = "3.03" Then readValue(0) = "3.0.3" + If readValue(0) = "3.04" Then readValue(0) = "3.0.4" + If readValue(0) = "3.05" Then readValue(0) = "3.0.5" + + For Each szVersion As String In readValue + Ver = New System.Version(szVersion) + 'Log.WI("GetWinnbi VersionInstalled=" & szVersion, , CLog.Lev.Principal) + + 'se versione compatibile con framework .NET + If Ver >= DotNetMinVersion Then + DotNet = True + End If + + 'se entro almeno una volta ho trovato almeno una versione installata + GetWinnbi = True + Next + + End Function + + + ''' + ''' 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 CmsNcException(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 CmsNcException(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 CmsNcException(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 CmsNcException(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 CmsNcException(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 CmsNcException(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 CmsNcException(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 CmsNcException(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 CmsNcException(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 CmsNcException(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 CmsNcException(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 CmsNcException(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 CmsNcException(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 CmsNcException(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 CmsNcException("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 CmsNcException("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 CmsNcException("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 CmsNcException("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 + + 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 + + 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 CmsNcException("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 CmsNcException("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 + Dim szReturn As String = "" + Dim sAxisTable As Cndex.AXIS_TABLE + Dim i, j As Integer + + For i = 1 To 32 + sAxisTable = New Cndex.AXIS_TABLE + nReturn = Cndex.GetAxisTabRecord_C(_UserSession, i, sAxisTable, _ErrClass, _ErrNum) + If O_CheckRetError(nReturn, _ErrClass, _ErrNum, "O_GetAxisTab GetAxisTabRecord_C CNC.OSAI", szReturn) Then + Throw New CmsNcException("ERR O_GetAxisTab GetAxisTabRecord_C CNC.OSAI") + Return False + End If + 'Codice dell’ambiente proprietario dell’asse + If (sAxisTable.ax_owner = (&H6000& + (ProcessId * &H100&))) Then + 'scarto gli assi slave e l'eventuale asse Spindle quando ho un inverter analogico + If (sAxisTable.ax_name < Asc("a") Or sAxisTable.ax_name > Asc("z")) And sAxisTable.ax_name <> Asc("S") Then + AxisTable(j) = Chr(sAxisTable.ax_name) + AxisIdTable(j) = i + j += 1 + End If + End If + Next i + + 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 + + + End Class + +End Namespace diff --git a/MaterialeSetup/OSAI/MTConnect_AreeMemoria.xlsx b/MaterialeSetup/OSAI/MTConnect_AreeMemoria.xlsx new file mode 100644 index 0000000..b1ded7e Binary files /dev/null and b/MaterialeSetup/OSAI/MTConnect_AreeMemoria.xlsx differ diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.AxesRefR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.AxesRefR.datasource new file mode 100644 index 0000000..6587d12 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.AxesRefR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.AxesRefR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.BootModeR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.BootModeR.datasource new file mode 100644 index 0000000..4356c47 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.BootModeR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.BootModeR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.BootPhaseEnquiryR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.BootPhaseEnquiryR.datasource new file mode 100644 index 0000000..1009ba8 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.BootPhaseEnquiryR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.BootPhaseEnquiryR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.BootRebootR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.BootRebootR.datasource new file mode 100644 index 0000000..bfe0cda --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.BootRebootR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.BootRebootR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.BootShutDownR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.BootShutDownR.datasource new file mode 100644 index 0000000..bfc1d96 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.BootShutDownR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.BootShutDownR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.CheckHistoryR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.CheckHistoryR.datasource new file mode 100644 index 0000000..5b72adb --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.CheckHistoryR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.CheckHistoryR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.CycleR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.CycleR.datasource new file mode 100644 index 0000000..63b94a5 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.CycleR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.CycleR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.DncDataR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.DncDataR.datasource new file mode 100644 index 0000000..e6165c4 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.DncDataR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.DncDataR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.DncEofR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.DncEofR.datasource new file mode 100644 index 0000000..6ea76d2 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.DncEofR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.DncEofR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.DncInitR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.DncInitR.datasource new file mode 100644 index 0000000..033ecec --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.DncInitR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.DncInitR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.DncStopR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.DncStopR.datasource new file mode 100644 index 0000000..16157f5 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.DncStopR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.DncStopR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.EseExR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.EseExR.datasource new file mode 100644 index 0000000..92e3909 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.EseExR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.EseExR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.EseR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.EseR.datasource new file mode 100644 index 0000000..766e50d --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.EseR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.EseR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ExeR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ExeR.datasource new file mode 100644 index 0000000..440d4f0 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ExeR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ExeR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetActivePartProgramR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetActivePartProgramR.datasource new file mode 100644 index 0000000..81e7b62 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetActivePartProgramR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetActivePartProgramR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetAvailableCustomEventsR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetAvailableCustomEventsR.datasource new file mode 100644 index 0000000..bbdbf13 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetAvailableCustomEventsR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetAvailableCustomEventsR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetAxOriginNumR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetAxOriginNumR.datasource new file mode 100644 index 0000000..93999ee --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetAxOriginNumR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetAxOriginNumR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetAxesInfo3R.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetAxesInfo3R.datasource new file mode 100644 index 0000000..04421f2 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetAxesInfo3R.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetAxesInfo3R, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetAxesPositionR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetAxesPositionR.datasource new file mode 100644 index 0000000..fdb048f --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetAxesPositionR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetAxesPositionR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetBinaryFileR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetBinaryFileR.datasource new file mode 100644 index 0000000..cdc717c --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetBinaryFileR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetBinaryFileR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetBlkNumR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetBlkNumR.datasource new file mode 100644 index 0000000..d3c93ee --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetBlkNumR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetBlkNumR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetCNCRegKeyR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetCNCRegKeyR.datasource new file mode 100644 index 0000000..80cdc00 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetCNCRegKeyR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetCNCRegKeyR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetCodeNumberR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetCodeNumberR.datasource new file mode 100644 index 0000000..50cbd03 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetCodeNumberR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetCodeNumberR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetDateTimeR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetDateTimeR.datasource new file mode 100644 index 0000000..cd02767 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetDateTimeR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetDateTimeR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetFileR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetFileR.datasource new file mode 100644 index 0000000..08152a5 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetFileR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetFileR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetGCodeR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetGCodeR.datasource new file mode 100644 index 0000000..ee9b44c --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetGCodeR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetGCodeR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetHWKeyR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetHWKeyR.datasource new file mode 100644 index 0000000..91c681b --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetHWKeyR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetHWKeyR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetMCodeR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetMCodeR.datasource new file mode 100644 index 0000000..b6d2a2a --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetMCodeR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetMCodeR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetMarkerInfoR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetMarkerInfoR.datasource new file mode 100644 index 0000000..a1d7283 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetMarkerInfoR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetMarkerInfoR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetNcInfo1R.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetNcInfo1R.datasource new file mode 100644 index 0000000..b640c0d --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetNcInfo1R.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetNcInfo1R, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetNcInfo2R.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetNcInfo2R.datasource new file mode 100644 index 0000000..3fc48ea --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetNcInfo2R.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetNcInfo2R, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetOffsetTabRecordIIR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetOffsetTabRecordIIR.datasource new file mode 100644 index 0000000..51a56e7 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetOffsetTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetOffsetTabRecordIIR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetOptionsR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetOptionsR.datasource new file mode 100644 index 0000000..c886096 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetOptionsR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetOptionsR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetOriginTabRecordIIR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetOriginTabRecordIIR.datasource new file mode 100644 index 0000000..1bd393f --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetOriginTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetOriginTabRecordIIR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetPTechSizesR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetPTechSizesR.datasource new file mode 100644 index 0000000..c731f34 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetPTechSizesR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetPTechSizesR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetPartProgramLinesR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetPartProgramLinesR.datasource new file mode 100644 index 0000000..57bc2bd --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetPartProgramLinesR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetPartProgramLinesR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcInInputR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcInInputR.datasource new file mode 100644 index 0000000..69737c7 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcInInputR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetProcInInputR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcVarDoubleR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcVarDoubleR.datasource new file mode 100644 index 0000000..c03d3ed --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcVarDoubleR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetProcVarDoubleR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcVarWordR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcVarWordR.datasource new file mode 100644 index 0000000..a53934c --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcVarWordR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetProcVarWordR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcessConfNumR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcessConfNumR.datasource new file mode 100644 index 0000000..9ee109c --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcessConfNumR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetProcessConfNumR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcessStatusR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcessStatusR.datasource new file mode 100644 index 0000000..0f17eda --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcessStatusR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetProcessStatusR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetSelectedProcessR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetSelectedProcessR.datasource new file mode 100644 index 0000000..240bd9b --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetSelectedProcessR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetSelectedProcessR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetSerialNumberR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetSerialNumberR.datasource new file mode 100644 index 0000000..c582962 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetSerialNumberR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetSerialNumberR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetServoParR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetServoParR.datasource new file mode 100644 index 0000000..42765ac --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetServoParR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetServoParR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetSysTickR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetSysTickR.datasource new file mode 100644 index 0000000..a7cb924 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetSysTickR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetSysTickR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetToolNamesR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetToolNamesR.datasource new file mode 100644 index 0000000..68dc039 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetToolNamesR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetToolNamesR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetToolTabRecordIIR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetToolTabRecordIIR.datasource new file mode 100644 index 0000000..3896c4b --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetToolTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetToolTabRecordIIR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetUserTabRecordIIR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetUserTabRecordIIR.datasource new file mode 100644 index 0000000..1a03c6b --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetUserTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetUserTabRecordIIR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetVarJOGR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetVarJOGR.datasource new file mode 100644 index 0000000..5085992 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetVarJOGR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetVarJOGR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetVarRCMR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetVarRCMR.datasource new file mode 100644 index 0000000..2499865 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetVarRCMR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetVarRCMR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.HoldR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.HoldR.datasource new file mode 100644 index 0000000..cac276f --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.HoldR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.HoldR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LoadPTechR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LoadPTechR.datasource new file mode 100644 index 0000000..155e5e0 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LoadPTechR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LoadPTechR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LockTableIIR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LockTableIIR.datasource new file mode 100644 index 0000000..787beef --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LockTableIIR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LockTableIIR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSAddDriveR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSAddDriveR.datasource new file mode 100644 index 0000000..89b79d2 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSAddDriveR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSAddDriveR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSChangeFileAttribR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSChangeFileAttribR.datasource new file mode 100644 index 0000000..538fd63 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSChangeFileAttribR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSChangeFileAttribR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSCloseFileR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSCloseFileR.datasource new file mode 100644 index 0000000..9dd2780 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSCloseFileR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSCloseFileR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSCopyFileR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSCopyFileR.datasource new file mode 100644 index 0000000..780cc02 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSCopyFileR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSCopyFileR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSCreateDirR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSCreateDirR.datasource new file mode 100644 index 0000000..e4e6425 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSCreateDirR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSCreateDirR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSCreateFileR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSCreateFileR.datasource new file mode 100644 index 0000000..b958d82 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSCreateFileR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSCreateFileR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSFindCloseR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSFindCloseR.datasource new file mode 100644 index 0000000..41da7a3 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSFindCloseR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSFindCloseR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSFindFirstR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSFindFirstR.datasource new file mode 100644 index 0000000..2ac350b --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSFindFirstR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSFindFirstR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSFindNextR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSFindNextR.datasource new file mode 100644 index 0000000..dee83da --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSFindNextR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSFindNextR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetDriveListR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetDriveListR.datasource new file mode 100644 index 0000000..eb4f4d5 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetDriveListR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSGetDriveListR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetDrivePathR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetDrivePathR.datasource new file mode 100644 index 0000000..6388fc7 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetDrivePathR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSGetDrivePathR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetFileAttribR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetFileAttribR.datasource new file mode 100644 index 0000000..6ddf49f --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetFileAttribR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSGetFileAttribR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetFileSizeR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetFileSizeR.datasource new file mode 100644 index 0000000..5535027 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetFileSizeR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSGetFileSizeR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetHiddenDriveListR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetHiddenDriveListR.datasource new file mode 100644 index 0000000..b7912c6 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetHiddenDriveListR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSGetHiddenDriveListR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetInfoR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetInfoR.datasource new file mode 100644 index 0000000..41530ba --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetInfoR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSGetInfoR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetNumDriveR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetNumDriveR.datasource new file mode 100644 index 0000000..b725fbc --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetNumDriveR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSGetNumDriveR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetSecurityLevelR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetSecurityLevelR.datasource new file mode 100644 index 0000000..1b1dc5e --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetSecurityLevelR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSGetSecurityLevelR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSLongFileNamesR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSLongFileNamesR.datasource new file mode 100644 index 0000000..93eca91 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSLongFileNamesR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSLongFileNamesR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSOpenFileR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSOpenFileR.datasource new file mode 100644 index 0000000..35c5772 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSOpenFileR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSOpenFileR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSReadRecordR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSReadRecordR.datasource new file mode 100644 index 0000000..3d8c6ff --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSReadRecordR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSReadRecordR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSReloadDriveListR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSReloadDriveListR.datasource new file mode 100644 index 0000000..5fb96c1 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSReloadDriveListR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSReloadDriveListR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSRemoveDirR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSRemoveDirR.datasource new file mode 100644 index 0000000..2202631 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSRemoveDirR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSRemoveDirR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSRemoveDriveR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSRemoveDriveR.datasource new file mode 100644 index 0000000..51c55a2 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSRemoveDriveR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSRemoveDriveR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSRemoveFileR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSRemoveFileR.datasource new file mode 100644 index 0000000..c404128 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSRemoveFileR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSRemoveFileR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSRenameR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSRenameR.datasource new file mode 100644 index 0000000..3747949 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSRenameR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSRenameR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSSetFileAttribR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSSetFileAttribR.datasource new file mode 100644 index 0000000..2c35ced --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSSetFileAttribR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSSetFileAttribR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSSetSecurityLevelR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSSetSecurityLevelR.datasource new file mode 100644 index 0000000..ae491b8 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSSetSecurityLevelR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSSetSecurityLevelR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSWriteRecordR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSWriteRecordR.datasource new file mode 100644 index 0000000..06b62a6 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSWriteRecordR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSWriteRecordR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ManagePartProgramR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ManagePartProgramR.datasource new file mode 100644 index 0000000..89094db --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ManagePartProgramR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ManagePartProgramR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonAddVariableR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonAddVariableR.datasource new file mode 100644 index 0000000..39b4abf --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonAddVariableR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.MonAddVariableR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonCloseChannelR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonCloseChannelR.datasource new file mode 100644 index 0000000..cafea3e --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonCloseChannelR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.MonCloseChannelR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonDeleteVariableR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonDeleteVariableR.datasource new file mode 100644 index 0000000..0acd460 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonDeleteVariableR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.MonDeleteVariableR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonGetVariableR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonGetVariableR.datasource new file mode 100644 index 0000000..a3d27e3 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonGetVariableR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.MonGetVariableR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonOpenChannelR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonOpenChannelR.datasource new file mode 100644 index 0000000..d57a437 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonOpenChannelR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.MonOpenChannelR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonStartSamplingR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonStartSamplingR.datasource new file mode 100644 index 0000000..0d16250 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonStartSamplingR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.MonStartSamplingR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonStopSamplingR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonStopSamplingR.datasource new file mode 100644 index 0000000..a64ba36 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonStopSamplingR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.MonStopSamplingR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.PutBinaryFileR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.PutBinaryFileR.datasource new file mode 100644 index 0000000..efae36a --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.PutBinaryFileR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.PutBinaryFileR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.PutFileR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.PutFileR.datasource new file mode 100644 index 0000000..a85f5e4 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.PutFileR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.PutFileR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadCurrentAnomalyMsgR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadCurrentAnomalyMsgR.datasource new file mode 100644 index 0000000..460c6b0 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadCurrentAnomalyMsgR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ReadCurrentAnomalyMsgR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadCurrentEmergMsgR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadCurrentEmergMsgR.datasource new file mode 100644 index 0000000..eeb2551 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadCurrentEmergMsgR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ReadCurrentEmergMsgR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadCurrentErrorMsgR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadCurrentErrorMsgR.datasource new file mode 100644 index 0000000..1d3fae0 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadCurrentErrorMsgR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ReadCurrentErrorMsgR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadErrMsgR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadErrMsgR.datasource new file mode 100644 index 0000000..963f81b --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadErrMsgR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ReadErrMsgR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadHistoryAnomalyMsgR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadHistoryAnomalyMsgR.datasource new file mode 100644 index 0000000..80be01c --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadHistoryAnomalyMsgR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ReadHistoryAnomalyMsgR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadHistoryEmergMsgR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadHistoryEmergMsgR.datasource new file mode 100644 index 0000000..fd50182 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadHistoryEmergMsgR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ReadHistoryEmergMsgR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadHistoryErrorMsgR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadHistoryErrorMsgR.datasource new file mode 100644 index 0000000..c3a688f --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadHistoryErrorMsgR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ReadHistoryErrorMsgR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadHistoryLogMsgR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadHistoryLogMsgR.datasource new file mode 100644 index 0000000..180f8a8 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadHistoryLogMsgR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ReadHistoryLogMsgR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadPartProgramMsgR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadPartProgramMsgR.datasource new file mode 100644 index 0000000..502a8ed --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadPartProgramMsgR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ReadPartProgramMsgR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadRemapDefinitionsR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadRemapDefinitionsR.datasource new file mode 100644 index 0000000..303b164 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadRemapDefinitionsR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ReadRemapDefinitionsR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadVarDoubleR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadVarDoubleR.datasource new file mode 100644 index 0000000..946e3c9 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadVarDoubleR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ReadVarDoubleR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadVarTextR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadVarTextR.datasource new file mode 100644 index 0000000..684646f --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadVarTextR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ReadVarTextR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadVarWordR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadVarWordR.datasource new file mode 100644 index 0000000..7551f6a --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadVarWordR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ReadVarWordR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadWarningMsgR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadWarningMsgR.datasource new file mode 100644 index 0000000..f1319d4 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadWarningMsgR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ReadWarningMsgR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ResetR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ResetR.datasource new file mode 100644 index 0000000..9752c83 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ResetR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ResetR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ResetSingleTableIIR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ResetSingleTableIIR.datasource new file mode 100644 index 0000000..2f8843b --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ResetSingleTableIIR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ResetSingleTableIIR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.RestoreBackupMemoryR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.RestoreBackupMemoryR.datasource new file mode 100644 index 0000000..4747d46 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.RestoreBackupMemoryR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.RestoreBackupMemoryR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.RestoreSingleTableR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.RestoreSingleTableR.datasource new file mode 100644 index 0000000..b73f4f9 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.RestoreSingleTableR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.RestoreSingleTableR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SaveBackupMemoryR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SaveBackupMemoryR.datasource new file mode 100644 index 0000000..6d6c8bf --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SaveBackupMemoryR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SaveBackupMemoryR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SaveSingleTableR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SaveSingleTableR.datasource new file mode 100644 index 0000000..43e5070 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SaveSingleTableR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SaveSingleTableR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SaveTablesR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SaveTablesR.datasource new file mode 100644 index 0000000..d3276a5 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SaveTablesR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SaveTablesR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SelectPartProgramFromDriveR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SelectPartProgramFromDriveR.datasource new file mode 100644 index 0000000..952e0c2 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SelectPartProgramFromDriveR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SelectPartProgramFromDriveR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SelectPartProgramR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SelectPartProgramR.datasource new file mode 100644 index 0000000..bdaab2c --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SelectPartProgramR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SelectPartProgramR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SelectProcAxisR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SelectProcAxisR.datasource new file mode 100644 index 0000000..5e5e3aa --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SelectProcAxisR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SelectProcAxisR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SelectProcessR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SelectProcessR.datasource new file mode 100644 index 0000000..2791c94 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SelectProcessR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SelectProcessR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetDateTimeR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetDateTimeR.datasource new file mode 100644 index 0000000..548caf3 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetDateTimeR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetDateTimeR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetFeedManOverR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetFeedManOverR.datasource new file mode 100644 index 0000000..203d53e --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetFeedManOverR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetFeedManOverR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetFeedRapidOverR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetFeedRapidOverR.datasource new file mode 100644 index 0000000..df28385 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetFeedRapidOverR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetFeedRapidOverR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetFeedRateOverR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetFeedRateOverR.datasource new file mode 100644 index 0000000..0f9e51a --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetFeedRateOverR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetFeedRateOverR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetIpAddressR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetIpAddressR.datasource new file mode 100644 index 0000000..236696b --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetIpAddressR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetIpAddressR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetManMovDirectionR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetManMovDirectionR.datasource new file mode 100644 index 0000000..aea35d4 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetManMovDirectionR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetManMovDirectionR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetMdiStringR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetMdiStringR.datasource new file mode 100644 index 0000000..c17eeef --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetMdiStringR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetMdiStringR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetOffsetTabRecordIIR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetOffsetTabRecordIIR.datasource new file mode 100644 index 0000000..af4f476 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetOffsetTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetOffsetTabRecordIIR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetOriginTabRecordIIR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetOriginTabRecordIIR.datasource new file mode 100644 index 0000000..3231eec --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetOriginTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetOriginTabRecordIIR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetProcVarDoubleR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetProcVarDoubleR.datasource new file mode 100644 index 0000000..ee658f0 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetProcVarDoubleR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetProcVarDoubleR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetProcVarWordR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetProcVarWordR.datasource new file mode 100644 index 0000000..44d35a5 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetProcVarWordR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetProcVarWordR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetProcessModeR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetProcessModeR.datasource new file mode 100644 index 0000000..4abf73d --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetProcessModeR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetProcessModeR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetServoParR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetServoParR.datasource new file mode 100644 index 0000000..e2b22b7 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetServoParR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetServoParR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetSpeedRateOverR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetSpeedRateOverR.datasource new file mode 100644 index 0000000..c0a5df6 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetSpeedRateOverR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetSpeedRateOverR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetToolTabRecordIIR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetToolTabRecordIIR.datasource new file mode 100644 index 0000000..c421897 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetToolTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetToolTabRecordIIR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetUserTabRecordIIR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetUserTabRecordIIR.datasource new file mode 100644 index 0000000..793dba6 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetUserTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetUserTabRecordIIR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetVarJOGR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetVarJOGR.datasource new file mode 100644 index 0000000..625c1d7 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetVarJOGR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetVarJOGR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetVarRCMR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetVarRCMR.datasource new file mode 100644 index 0000000..c4d944b --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetVarRCMR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetVarRCMR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetVarUASR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetVarUASR.datasource new file mode 100644 index 0000000..a3d7bc1 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetVarUASR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetVarUASR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SkipPProgBlockR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SkipPProgBlockR.datasource new file mode 100644 index 0000000..a7a8c9c --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SkipPProgBlockR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SkipPProgBlockR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SndProcInpDataR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SndProcInpDataR.datasource new file mode 100644 index 0000000..0ab16f7 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SndProcInpDataR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SndProcInpDataR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SyncroCycleR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SyncroCycleR.datasource new file mode 100644 index 0000000..b6cd89e --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SyncroCycleR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SyncroCycleR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.UnLockTableIIR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.UnLockTableIIR.datasource new file mode 100644 index 0000000..56bc456 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.UnLockTableIIR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.UnLockTableIIR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteRemapDefinitionsR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteRemapDefinitionsR.datasource new file mode 100644 index 0000000..7057171 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteRemapDefinitionsR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.WriteRemapDefinitionsR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteVarDoubleR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteVarDoubleR.datasource new file mode 100644 index 0000000..5ed16dd --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteVarDoubleR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.WriteVarDoubleR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteVarTextR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteVarTextR.datasource new file mode 100644 index 0000000..3903802 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteVarTextR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.WriteVarTextR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteVarWordBitR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteVarWordBitR.datasource new file mode 100644 index 0000000..df1fafb --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteVarWordBitR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.WriteVarWordBitR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteVarWordR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteVarWordR.datasource new file mode 100644 index 0000000..66fe247 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteVarWordR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.WriteVarWordR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/OPENcontrol.wsdl b/MaterialeSetup/OSAI/OPENcontrol/OPENcontrol.wsdl new file mode 100644 index 0000000..ebcf6e0 --- /dev/null +++ b/MaterialeSetup/OSAI/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/MaterialeSetup/OSAI/OPENcontrol/Reference.svcmap b/MaterialeSetup/OSAI/OPENcontrol/Reference.svcmap new file mode 100644 index 0000000..7e67cce --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/Reference.svcmap @@ -0,0 +1,29 @@ + + + + false + true + + false + false + false + + + true + Auto + true + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/Reference.vb b/MaterialeSetup/OSAI/OPENcontrol/Reference.vb new file mode 100644 index 0000000..c1a429c --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/Reference.vb @@ -0,0 +1,28838 @@ +'------------------------------------------------------------------------------ +' +' Il codice è stato generato da uno strumento. +' Versione runtime:2.0.50727.5477 +' +' 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/MaterialeSetup/OSAI/OPENcontrol/configuration.svcinfo b/MaterialeSetup/OSAI/OPENcontrol/configuration.svcinfo new file mode 100644 index 0000000..2d8c602 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/configuration.svcinfo @@ -0,0 +1,10 @@ + + + + + + + + + + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/configuration91.svcinfo b/MaterialeSetup/OSAI/OPENcontrol/configuration91.svcinfo new file mode 100644 index 0000000..3919c44 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/configuration91.svcinfo @@ -0,0 +1,195 @@ + + + + + + + OPENcontrol + + + 00:01:00 + + + 00:01:00 + + + 00:10:00 + + + 00:01:00 + + + False + + + False + + + StrongWildcard + + + 65536 + + + 524288 + + + 65536 + + + Text + + + + + + System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement + + + 32 + + + 8192 + + + 16384 + + + 4096 + + + 16384 + + + System.ServiceModel.Configuration.BasicHttpSecurityElement + + + None + + + System.ServiceModel.Configuration.HttpTransportSecurityElement + + + None + + + None + + + System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement + + + Never + + + TransportSelected + + + (Insieme) + + + + + + System.ServiceModel.Configuration.BasicHttpMessageSecurityElement + + + UserName + + + Basic256 + + + System.Text.UTF8Encoding + + + Buffered + + + True + + + + + + + + + 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/MaterialeSetup/OSAI/Reference.vb b/MaterialeSetup/OSAI/Reference.vb new file mode 100644 index 0000000..c1a429c --- /dev/null +++ b/MaterialeSetup/OSAI/Reference.vb @@ -0,0 +1,28838 @@ +'------------------------------------------------------------------------------ +' +' Il codice è stato generato da uno strumento. +' Versione runtime:2.0.50727.5477 +' +' 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/MaterialeSetup/OSAI/SIMULATORE_192.168.157.2.wsdl.xml b/MaterialeSetup/OSAI/SIMULATORE_192.168.157.2.wsdl.xml new file mode 100644 index 0000000..b2b4b5a --- /dev/null +++ b/MaterialeSetup/OSAI/SIMULATORE_192.168.157.2.wsdl.xml @@ -0,0 +1,8995 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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__ReadNamedVarBool + + + + + Service definition of function ns__ReadNamedVarByte + + + + + Service definition of function ns__ReadNamedVarShort + + + + + Service definition of function ns__ReadNamedVarWord + + + + + Service definition of function ns__ReadNamedVarLong + + + + + Service definition of function ns__ReadNamedVarDword + + + + + Service definition of function ns__ReadNamedVarDouble + + + + + Service definition of function ns__ReadNamedVarString + + + + + Service definition of function ns__WriteNamedVarBool + + + + + Service definition of function ns__WriteNamedVarByte + + + + + Service definition of function ns__WriteNamedVarShort + + + + + Service definition of function ns__WriteNamedVarWord + + + + + Service definition of function ns__WriteNamedVarLong + + + + + Service definition of function ns__WriteNamedVarDword + + + + + Service definition of function ns__WriteNamedVarDouble + + + + + Service definition of function ns__WriteNamedVarString + + + + + 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__GetMagazineTabRecordII + + + + + Service definition of function ns__SetMagazineTabRecordII + + + + + Service definition of function ns__GetPocketTabRecordII + + + + + Service definition of function ns__SetPocketTabRecordII + + + + + 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__ToolSearch + + + + + Service definition of function ns__ToolSearchLife + + + + + Service definition of function ns__ToolSearchDir + + + + + Service definition of function ns__ToolSearchLifeDir + + + + + Service definition of function ns__ToolSameFamily + + + + + Service definition of function ns__ToolLoad + + + + + Service definition of function ns__ToolUnload + + + + + Service definition of function ns__PocketSearch + + + + + Service definition of function ns__PocketClosest + + + + + Service definition of function ns__PocketNearest + + + + + Service definition of function ns__ToolLife + + + + + Service definition of function ns__LoadTableFromFile + + + + + Service definition of function ns__MagConfigurePockets + + + + + 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__GetVarCYCTIME + + + + + Service definition of function ns__SetVarCYCTIME + + + + + 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__GetActivePartProgramFullPath + + + + + 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__LogFSOpenFile + + + + + Service definition of function ns__LogFSCloseFile + + + + + Service definition of function ns__GetSysTick + + + + + Service definition of function ns__GetProcessConfNum + + + + + 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__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__GetSecurityData + + + + + Service definition of function ns__SetSecurityData + + + + + Service definition of function ns__SetIpAddress + + + + + Service definition of function ns__GetProcInInput + + + + + Service definition of function ns__SndProcInpData + + + + + Service definition of function ns__GetPartProgramLinesEx + + + + + Service definition of function ns__SetMdiStringEx + + + + + Service definition of function ns__GetExpireData + + + + + Service definition of function ns__GetRemainingTime + + + + + Service definition of function ns__GenerateUserKey + + + + + Service definition of function ns__WriteActivationKey + + + + + Service definition of function ns__GetAvailableCustomEvents + + + + + 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__MonGetVariableS + + + + + Service definition of function ns__MonGetDryRun + + + + + Service definition of function ns__MonGetMov + + + + + Service definition of function ns__GetDriveBasicInfo + + + + + Service definition of function ns__ReadStatistics + + + + + Service definition of function ns__ReadStatisticsBaseFrequency + + + + + Service definition of function ns__GetActiveAmp + + + + + Service definition of function ns__SetActiveAmp + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + OPENcontrol Web Services Definition + + + + + + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/SOAP/CNC.OSAI_SOAP.vb b/MaterialeSetup/OSAI/SOAP/CNC.OSAI_SOAP.vb new file mode 100644 index 0000000..6e6d253 --- /dev/null +++ b/MaterialeSetup/OSAI/SOAP/CNC.OSAI_SOAP.vb @@ -0,0 +1,997 @@ +Imports CndexLinkDotNet +Imports Microsoft.Win32 +Imports CMSControl.App.Runtime +Imports CMSControl.Config.Settings + +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) + +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 + + 'Definisco l'area della Cnc Window + SetCncWindowSize() + + '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 CmsNcException(ex.Message) + Catch ex As System.ServiceModel.CommunicationException + _bConnected = False + Throw New CmsNcException(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 CmsNcException(szReturn) + Else + 'verifico che il sistema si trovi in una fase operativa "stabile" + Log.WI("OK BootPhaseEnquiry CNC.OSAI_OPEN", "Phase=" & BootPhaseEnquiryR.Phase, CLog.Lev.Secondary) + If BootPhaseEnquiryR.Phase = 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.ToolManager + 'Matricola + usValue(0) = 0 'non esiste mappatura elsmangaer e toolmanager in OPENcontrol + MsgBox("Non esiste implementazione con questa mappatura su OSAI OPENcontrol", MsgBoxStyle.Critical) + End + Case MemoryMapping.Default, _ + MemoryMapping.ToolTable + 'Matricola + nReturn = O_RW_Word(R, MemTypeWord.MW_CODE, 3403, usValue) + End Select + + 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 + Log.WI("OK Connect CNC.OSAI_OPEN 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 + Log.WI("OK Connect CNC.OSAI_OPEN", "Connected=" & _bConnected, CLog.Lev.Secondary) + Else + _bConnected = False + Log.WI("OK Connect CNC.OSAI_OPEN but PHASE NOT OK", "Phase=" & BootPhaseEnquiryR.Phase & " Connected=" & _bConnected, CLog.Lev.Secondary) + Throw New CmsNcException("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 CmsNcException + ' 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 CmsNcException(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 CmsNcException(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 CmsNcException(ex.Message) + Return False + Catch ex As System.TimeoutException + Throw New CmsNcException(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 CmsNcException(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 CmsNcException(ex.Message) + Return False + Catch ex As System.TimeoutException + Throw New CmsNcException(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 CmsNcException(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 CmsNcException(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 CmsNcException(ex.Message) + Return False + Catch ex As System.TimeoutException + Throw New CmsNcException(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 CmsNcException(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 CmsNcException(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 CmsNcException(ex.Message) + Return False + Catch ex As System.TimeoutException + Throw New CmsNcException(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 CmsNcException(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 CmsNcException(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 CmsNcException(ex.Message) + Return False + Catch ex As System.TimeoutException + Throw New CmsNcException(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 CmsNcException(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 CmsNcException(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 CmsNcException(ex.Message) + Return False + Catch ex As System.TimeoutException + Throw New CmsNcException(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 CmsNcException(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 CmsNcException(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 CmsNcException(ex.Message) + Return False + Catch ex As System.TimeoutException + Throw New CmsNcException(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 CmsNcException(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 CmsNcException(szReturn) + Return False + End If + Value = myReadVarTextR.Text + End If + Catch ex As System.ServiceModel.CommunicationException + If nRetry < MAXRET Then GoTo Retry + Throw New CmsNcException(ex.Message) + Return False + Catch ex As System.TimeoutException + Throw New CmsNcException(ex.Message) + Return False + End Try + 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 CmsNcException(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 CmsNcException(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 CmsNcException(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 CmsNcException(ex.Message) + Return False + End Try + + + + '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 CmsNcException("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 CmsNcException("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 CmsNcException("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 CmsNcException("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 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 CmsNcException(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 CmsNcException(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 CmsNcException(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 CmsNcException(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 CmsNcException(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 CmsNcException(szReturn) + Return False + End If + + Line = myGetPartProgramLinesR.PPLine2 + Return True + Catch ex As System.ServiceModel.CommunicationException + If nRetry < MAXRET Then GoTo Retry + Throw New CmsNcException(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 CmsNcException(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 CmsNcException(ex.Message) + Return False + End Try + End Function + + + End Class + +End Namespace