diff --git a/CVCncLib/ApplicationEvents.vb b/CVCncLib/ApplicationEvents.vb new file mode 100644 index 00000000..5f282702 --- /dev/null +++ b/CVCncLib/ApplicationEvents.vb @@ -0,0 +1 @@ + \ No newline at end of file diff --git a/CVCncLib/CVCncLib.vbproj b/CVCncLib/CVCncLib.vbproj new file mode 100644 index 00000000..c012923e --- /dev/null +++ b/CVCncLib/CVCncLib.vbproj @@ -0,0 +1,788 @@ + + + + Debug + AnyCPU + 9.0.30729 + 2.0 + {DC6B309E-F8E9-4BA2-A621-4F617C072533} + WinExe + testSam.My.MyApplication + testSam + testSam + 512 + WindowsForms + v4.0 + On + Binary + Off + On + arstcomm.ico + My Project\app.manifest + publish\ + true + Disk + false + Foreground + 7 + Days + false + false + true + 0 + 1.0.0.%2a + false + false + true + + + + + 3.5 + Client + + + true + full + true + true + .\ + testSam.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + x86 + + + pdbonly + false + true + true + .\ + testSam.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + + + true + true + true + .\ + testSam.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + full + x86 + MinimumRecommendedRules.ruleset + + + true + bin\x86\Release\ + testSam.xml + true + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + pdbonly + x86 + MinimumRecommendedRules.ruleset + + + + .\CndexLinkDotNet.dll + + + + + + + + + + + + + + 3.5 + + + 3.5 + + + 3.5 + + + + + + + + + + + + + + + + + + Form + + + FrmMain.vb + Form + + + + + + + + + + + + + + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + True + True + Reference.svcmap + + + True + True + Reference.map + + + + + FrmMain.vb + Designer + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + Designer + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + Designer + + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + + Reference.map + + + Reference.map + + + Reference.map + + + MSDiscoCodeGenerator + Reference.vb + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + + + False + .NET Framework Client Profile + false + + + False + .NET Framework 2.0 %28x86%29 + false + + + False + .NET Framework 3.0 %28x86%29 + false + + + False + .NET Framework 3.5 + false + + + False + .NET Framework 3.5 SP1 + true + + + False + Windows Installer 3.1 + true + + + + + + WCF Proxy Generator + Reference.vb + Designer + + + + + + + + + + + + + + + + Dynamic + Web References\WebReference\ + http://192.168.0.1:8080/%3fwsdl + + + + + MySettings + d_prod_WebReference_OPENcontrol + + + + + \ No newline at end of file diff --git a/CVCncLib/Config/testSam.INI b/CVCncLib/Config/testSam.INI new file mode 100644 index 00000000..628938a2 --- /dev/null +++ b/CVCncLib/Config/testSam.INI @@ -0,0 +1,107 @@ + +[General] + +Program path =M:\Cnc\DDF\doo2\Skinned.ddf +allowed ext = .ddf +temp path = c:\door_pro\temp +w7 = true + +[Debug] + +'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +debug = false + + +verbose = true +test_nc = false + +[Log] +enabled = true +Log file = c:\door_pro\temp\log + +[NC] +No WinNBI = false +name = 192.168.157.2 +NC state = 29 +Prog1 ok = 350 +Prog2 ok = 351 + +OpenControl= true + +program_to_send = 1 + +;;;;default_path = c:\Users\carlo\Documents\Projects\vs2008\door_pro\door_pro\temp + +;;default_path = PROGRA1\\ + +;;default_path = UPP\UPP\PROGRA1 + +default_path = C:\door_pro\temp + +ODD_name = P1000 +EVEN_name = P2000 + +[BarCode] +fields = 1 +MASK = 111111111111111xxxxxx +PreProcessing = "=" + + +[SerialBarCodeReader] +enabled = false +Port = 1 +Settings=9600,None,8,1 + +[UsbBarCodeReader] +enabled = true + +[Table] +enabled = false +file = c:\door_pro\table.dat + + +[Direct] +enabled = false +pre = C:\door_pro\programs\ +post = .cnc + +[Select] +enabled = true +p_arguments = " 2" +c_arguments = " 2" + +L var 1 = 916 +L var 2 = 919 + +L value 1 on = 1 +L value 1 off = 0 +L value 2 on = 2 +L value 2 off = 2 + +timeout = 600 + +NC probe file path = m:\Cnc\DDF\ +NC probe file ext = dat + +fixed probe file = true +NC_probe_file = UPP\PROGRA1\data.prb +read DDF file = true +prop1 = properties: +prop2 = skinned + + +[CAM] +enabled = false +program = "c:\Program Files (x86)\Egaltech\EgtCAM5\EgtCAM5R32.exe" +datapath = "m:\cnc\ddf" +dataext = ".ddf" +arguments = " 2" +return_file_ext = txt +probe_file_ext = prb + + +[Key] + +Customer=CARLO +regkey =0292-9BE9-0369-D384 +regkey2=CD20-3DD6-006D-0383 diff --git a/CVCncLib/FrmMain.Designer.vb b/CVCncLib/FrmMain.Designer.vb new file mode 100644 index 00000000..a550c775 --- /dev/null +++ b/CVCncLib/FrmMain.Designer.vb @@ -0,0 +1,426 @@ + +Partial Class FrmMain + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmMain)) + Me.LblConnected = New System.Windows.Forms.Label() + Me.BtnExit = New System.Windows.Forms.Button() + Me.Tmr_Main = New System.Windows.Forms.Timer(Me.components) + Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog() + Me.BtnSim0 = New System.Windows.Forms.Button() + Me.BtnSim1 = New System.Windows.Forms.Button() + Me.BtnSim2 = New System.Windows.Forms.Button() + Me.BtnSim3 = New System.Windows.Forms.Button() + Me.BtnSim4 = New System.Windows.Forms.Button() + Me.BtnSim5 = New System.Windows.Forms.Button() + Me.LblSimPrgSent1 = New System.Windows.Forms.Label() + Me.LblSimPrgSent2 = New System.Windows.Forms.Label() + Me.LblNcStatus = New System.Windows.Forms.Label() + Me.LblCurrentProgram = New System.Windows.Forms.Label() + Me.LblProgramName = New System.Windows.Forms.Label() + Me.LblMachineStatus = New System.Windows.Forms.Label() + Me.LblMachState = New System.Windows.Forms.Label() + Me.BtnReadOldOsai = New System.Windows.Forms.Button() + Me.LblReadOldOsai = New System.Windows.Forms.Label() + Me.BtnWrite1OldOsai = New System.Windows.Forms.Button() + Me.BtnWrite2OldOsai = New System.Windows.Forms.Button() + Me.BtnWrite3OldOsai = New System.Windows.Forms.Button() + Me.BtnWrite4OldOsai = New System.Windows.Forms.Button() + Me.BtnWrite5OldOsai = New System.Windows.Forms.Button() + Me.Btn_test_file = New System.Windows.Forms.Button() + Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() + Me.Lbl_sw_phase = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.LblMapoIOB = New System.Windows.Forms.Label() + Me.SuspendLayout() + ' + 'LblConnected + ' + Me.LblConnected.AllowDrop = True + Me.LblConnected.AutoSize = True + Me.LblConnected.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LblConnected.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblConnected.Location = New System.Drawing.Point(4, 355) + Me.LblConnected.Name = "LblConnected" + Me.LblConnected.Size = New System.Drawing.Size(37, 15) + Me.LblConnected.TabIndex = 8 + Me.LblConnected.Text = " " + Me.LblConnected.Visible = False + ' + 'BtnExit + ' + Me.BtnExit.Location = New System.Drawing.Point(4, 400) + Me.BtnExit.Name = "BtnExit" + Me.BtnExit.Size = New System.Drawing.Size(11, 14) + Me.BtnExit.TabIndex = 5 + Me.BtnExit.Text = "Exit" + Me.BtnExit.UseVisualStyleBackColor = True + Me.BtnExit.Visible = False + ' + 'Tmr_Main + ' + Me.Tmr_Main.Interval = 1000 + ' + 'BtnSim0 + ' + Me.BtnSim0.Location = New System.Drawing.Point(6, 447) + Me.BtnSim0.Name = "BtnSim0" + Me.BtnSim0.Size = New System.Drawing.Size(18, 20) + Me.BtnSim0.TabIndex = 13 + Me.BtnSim0.Text = "0" + Me.BtnSim0.UseVisualStyleBackColor = True + Me.BtnSim0.Visible = False + ' + 'BtnSim1 + ' + Me.BtnSim1.Location = New System.Drawing.Point(26, 447) + Me.BtnSim1.Name = "BtnSim1" + Me.BtnSim1.Size = New System.Drawing.Size(18, 20) + Me.BtnSim1.TabIndex = 14 + Me.BtnSim1.Text = "1" + Me.BtnSim1.UseVisualStyleBackColor = True + Me.BtnSim1.Visible = False + ' + 'BtnSim2 + ' + Me.BtnSim2.Location = New System.Drawing.Point(46, 447) + Me.BtnSim2.Name = "BtnSim2" + Me.BtnSim2.Size = New System.Drawing.Size(18, 20) + Me.BtnSim2.TabIndex = 15 + Me.BtnSim2.Text = "2" + Me.BtnSim2.UseVisualStyleBackColor = True + Me.BtnSim2.Visible = False + ' + 'BtnSim3 + ' + Me.BtnSim3.Location = New System.Drawing.Point(66, 447) + Me.BtnSim3.Name = "BtnSim3" + Me.BtnSim3.Size = New System.Drawing.Size(18, 20) + Me.BtnSim3.TabIndex = 16 + Me.BtnSim3.Text = "3" + Me.BtnSim3.UseVisualStyleBackColor = True + Me.BtnSim3.Visible = False + ' + 'BtnSim4 + ' + Me.BtnSim4.Location = New System.Drawing.Point(86, 447) + Me.BtnSim4.Name = "BtnSim4" + Me.BtnSim4.Size = New System.Drawing.Size(18, 20) + Me.BtnSim4.TabIndex = 17 + Me.BtnSim4.Text = "4" + Me.BtnSim4.UseVisualStyleBackColor = True + Me.BtnSim4.Visible = False + ' + 'BtnSim5 + ' + Me.BtnSim5.Location = New System.Drawing.Point(106, 447) + Me.BtnSim5.Name = "BtnSim5" + Me.BtnSim5.Size = New System.Drawing.Size(18, 20) + Me.BtnSim5.TabIndex = 18 + Me.BtnSim5.Text = "5" + Me.BtnSim5.UseVisualStyleBackColor = True + Me.BtnSim5.UseWaitCursor = True + Me.BtnSim5.Visible = False + ' + 'LblSimPrgSent1 + ' + Me.LblSimPrgSent1.AllowDrop = True + Me.LblSimPrgSent1.AutoSize = True + Me.LblSimPrgSent1.BackColor = System.Drawing.Color.Blue + Me.LblSimPrgSent1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LblSimPrgSent1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblSimPrgSent1.Location = New System.Drawing.Point(130, 452) + Me.LblSimPrgSent1.Name = "LblSimPrgSent1" + Me.LblSimPrgSent1.Size = New System.Drawing.Size(16, 15) + Me.LblSimPrgSent1.TabIndex = 14 + Me.LblSimPrgSent1.Text = "1" + Me.LblSimPrgSent1.Visible = False + ' + 'LblSimPrgSent2 + ' + Me.LblSimPrgSent2.AllowDrop = True + Me.LblSimPrgSent2.AutoSize = True + Me.LblSimPrgSent2.BackColor = System.Drawing.Color.Blue + Me.LblSimPrgSent2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LblSimPrgSent2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblSimPrgSent2.Location = New System.Drawing.Point(152, 451) + Me.LblSimPrgSent2.Name = "LblSimPrgSent2" + Me.LblSimPrgSent2.Size = New System.Drawing.Size(16, 15) + Me.LblSimPrgSent2.TabIndex = 19 + Me.LblSimPrgSent2.Text = "2" + Me.LblSimPrgSent2.Visible = False + ' + 'LblNcStatus + ' + Me.LblNcStatus.AllowDrop = True + Me.LblNcStatus.AutoSize = True + Me.LblNcStatus.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblNcStatus.Location = New System.Drawing.Point(250, 328) + Me.LblNcStatus.Name = "LblNcStatus" + Me.LblNcStatus.Size = New System.Drawing.Size(35, 13) + Me.LblNcStatus.TabIndex = 26 + Me.LblNcStatus.Text = " " + Me.LblNcStatus.Visible = False + ' + 'LblCurrentProgram + ' + Me.LblCurrentProgram.AllowDrop = True + Me.LblCurrentProgram.AutoSize = True + Me.LblCurrentProgram.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblCurrentProgram.Location = New System.Drawing.Point(4, 300) + Me.LblCurrentProgram.Name = "LblCurrentProgram" + Me.LblCurrentProgram.Size = New System.Drawing.Size(155, 16) + Me.LblCurrentProgram.TabIndex = 12 + Me.LblCurrentProgram.Text = "Currently machining : " + Me.LblCurrentProgram.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.LblCurrentProgram.Visible = False + ' + 'LblProgramName + ' + Me.LblProgramName.AllowDrop = True + Me.LblProgramName.AutoSize = True + Me.LblProgramName.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblProgramName.Location = New System.Drawing.Point(166, 300) + Me.LblProgramName.Name = "LblProgramName" + Me.LblProgramName.Size = New System.Drawing.Size(53, 16) + Me.LblProgramName.TabIndex = 13 + Me.LblProgramName.Text = "---------" + Me.LblProgramName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.LblProgramName.Visible = False + ' + 'LblMachineStatus + ' + Me.LblMachineStatus.AllowDrop = True + Me.LblMachineStatus.AutoSize = True + Me.LblMachineStatus.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblMachineStatus.Location = New System.Drawing.Point(4, 326) + Me.LblMachineStatus.Name = "LblMachineStatus" + Me.LblMachineStatus.Size = New System.Drawing.Size(125, 16) + Me.LblMachineStatus.TabIndex = 14 + Me.LblMachineStatus.Text = "Machine Status : " + Me.LblMachineStatus.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.LblMachineStatus.Visible = False + ' + 'LblMachState + ' + Me.LblMachState.AllowDrop = True + Me.LblMachState.AutoSize = True + Me.LblMachState.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblMachState.Location = New System.Drawing.Point(166, 326) + Me.LblMachState.Name = "LblMachState" + Me.LblMachState.Size = New System.Drawing.Size(53, 16) + Me.LblMachState.TabIndex = 15 + Me.LblMachState.Text = "---------" + Me.LblMachState.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.LblMachState.Visible = False + ' + 'BtnReadOldOsai + ' + Me.BtnReadOldOsai.Location = New System.Drawing.Point(173, 446) + Me.BtnReadOldOsai.Name = "BtnReadOldOsai" + Me.BtnReadOldOsai.Size = New System.Drawing.Size(71, 20) + Me.BtnReadOldOsai.TabIndex = 32 + Me.BtnReadOldOsai.Text = "Read var 251" + Me.BtnReadOldOsai.UseVisualStyleBackColor = True + Me.BtnReadOldOsai.Visible = False + ' + 'LblReadOldOsai + ' + Me.LblReadOldOsai.AllowDrop = True + Me.LblReadOldOsai.AutoSize = True + Me.LblReadOldOsai.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.LblReadOldOsai.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblReadOldOsai.Location = New System.Drawing.Point(250, 450) + Me.LblReadOldOsai.Name = "LblReadOldOsai" + Me.LblReadOldOsai.Size = New System.Drawing.Size(44, 15) + Me.LblReadOldOsai.TabIndex = 33 + Me.LblReadOldOsai.Text = "12345" + Me.LblReadOldOsai.Visible = False + ' + 'BtnWrite1OldOsai + ' + Me.BtnWrite1OldOsai.Location = New System.Drawing.Point(8, 421) + Me.BtnWrite1OldOsai.Name = "BtnWrite1OldOsai" + Me.BtnWrite1OldOsai.Size = New System.Drawing.Size(38, 20) + Me.BtnWrite1OldOsai.TabIndex = 34 + Me.BtnWrite1OldOsai.Text = "Write1 " + Me.BtnWrite1OldOsai.UseVisualStyleBackColor = True + Me.BtnWrite1OldOsai.Visible = False + ' + 'BtnWrite2OldOsai + ' + Me.BtnWrite2OldOsai.Location = New System.Drawing.Point(41, 421) + Me.BtnWrite2OldOsai.Name = "BtnWrite2OldOsai" + Me.BtnWrite2OldOsai.Size = New System.Drawing.Size(38, 20) + Me.BtnWrite2OldOsai.TabIndex = 35 + Me.BtnWrite2OldOsai.Text = "Write2" + Me.BtnWrite2OldOsai.UseVisualStyleBackColor = True + Me.BtnWrite2OldOsai.Visible = False + ' + 'BtnWrite3OldOsai + ' + Me.BtnWrite3OldOsai.Location = New System.Drawing.Point(74, 421) + Me.BtnWrite3OldOsai.Name = "BtnWrite3OldOsai" + Me.BtnWrite3OldOsai.Size = New System.Drawing.Size(38, 20) + Me.BtnWrite3OldOsai.TabIndex = 36 + Me.BtnWrite3OldOsai.Text = "Write3" + Me.BtnWrite3OldOsai.UseVisualStyleBackColor = True + Me.BtnWrite3OldOsai.Visible = False + ' + 'BtnWrite4OldOsai + ' + Me.BtnWrite4OldOsai.Location = New System.Drawing.Point(108, 420) + Me.BtnWrite4OldOsai.Name = "BtnWrite4OldOsai" + Me.BtnWrite4OldOsai.Size = New System.Drawing.Size(38, 20) + Me.BtnWrite4OldOsai.TabIndex = 37 + Me.BtnWrite4OldOsai.Text = "Write4" + Me.BtnWrite4OldOsai.UseVisualStyleBackColor = True + Me.BtnWrite4OldOsai.Visible = False + ' + 'BtnWrite5OldOsai + ' + Me.BtnWrite5OldOsai.Location = New System.Drawing.Point(140, 421) + Me.BtnWrite5OldOsai.Name = "BtnWrite5OldOsai" + Me.BtnWrite5OldOsai.Size = New System.Drawing.Size(38, 20) + Me.BtnWrite5OldOsai.TabIndex = 38 + Me.BtnWrite5OldOsai.Text = "Write5" + Me.BtnWrite5OldOsai.UseVisualStyleBackColor = True + Me.BtnWrite5OldOsai.Visible = False + ' + 'Btn_test_file + ' + Me.Btn_test_file.Location = New System.Drawing.Point(188, 420) + Me.Btn_test_file.Name = "Btn_test_file" + Me.Btn_test_file.Size = New System.Drawing.Size(56, 20) + Me.Btn_test_file.TabIndex = 39 + Me.Btn_test_file.Text = "send file" + Me.Btn_test_file.UseVisualStyleBackColor = True + Me.Btn_test_file.Visible = False + ' + 'OpenFileDialog1 + ' + Me.OpenFileDialog1.FileName = "OpenFileDialog1" + ' + 'Lbl_sw_phase + ' + Me.Lbl_sw_phase.AllowDrop = True + Me.Lbl_sw_phase.AutoSize = True + Me.Lbl_sw_phase.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Lbl_sw_phase.Location = New System.Drawing.Point(92, 355) + Me.Lbl_sw_phase.Name = "Lbl_sw_phase" + Me.Lbl_sw_phase.Size = New System.Drawing.Size(35, 13) + Me.Lbl_sw_phase.TabIndex = 44 + Me.Lbl_sw_phase.Text = " " + Me.Lbl_sw_phase.Visible = False + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.ForeColor = System.Drawing.SystemColors.Highlight + Me.Label1.Location = New System.Drawing.Point(6, 29) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(127, 15) + Me.Label1.TabIndex = 45 + Me.Label1.Text = "BITMAP IOB MAPO" + ' + 'LblMapoIOB + ' + Me.LblMapoIOB.AutoSize = True + Me.LblMapoIOB.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblMapoIOB.ForeColor = System.Drawing.SystemColors.Highlight + Me.LblMapoIOB.Location = New System.Drawing.Point(12, 54) + Me.LblMapoIOB.Name = "LblMapoIOB" + Me.LblMapoIOB.Size = New System.Drawing.Size(19, 15) + Me.LblMapoIOB.TabIndex = 46 + Me.LblMapoIOB.Text = "..." + ' + 'FrmMain + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(302, 476) + Me.Controls.Add(Me.LblMapoIOB) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.Lbl_sw_phase) + Me.Controls.Add(Me.Btn_test_file) + Me.Controls.Add(Me.BtnWrite5OldOsai) + Me.Controls.Add(Me.BtnWrite4OldOsai) + Me.Controls.Add(Me.BtnWrite3OldOsai) + Me.Controls.Add(Me.BtnWrite2OldOsai) + Me.Controls.Add(Me.BtnWrite1OldOsai) + Me.Controls.Add(Me.LblReadOldOsai) + Me.Controls.Add(Me.BtnReadOldOsai) + Me.Controls.Add(Me.LblMachState) + Me.Controls.Add(Me.LblNcStatus) + Me.Controls.Add(Me.LblMachineStatus) + Me.Controls.Add(Me.LblProgramName) + Me.Controls.Add(Me.LblCurrentProgram) + Me.Controls.Add(Me.LblConnected) + Me.Controls.Add(Me.LblSimPrgSent2) + Me.Controls.Add(Me.LblSimPrgSent1) + Me.Controls.Add(Me.BtnSim5) + Me.Controls.Add(Me.BtnSim4) + Me.Controls.Add(Me.BtnSim3) + Me.Controls.Add(Me.BtnSim2) + Me.Controls.Add(Me.BtnSim1) + Me.Controls.Add(Me.BtnSim0) + Me.Controls.Add(Me.BtnExit) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "FrmMain" + Me.Text = "Door Pro" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents BtnExit As System.Windows.Forms.Button + Friend WithEvents LblConnected As System.Windows.Forms.Label + Friend WithEvents Tmr_Main As System.Windows.Forms.Timer + Friend WithEvents FolderBrowserDialog1 As System.Windows.Forms.FolderBrowserDialog + Friend WithEvents BtnSim0 As System.Windows.Forms.Button + Friend WithEvents BtnSim1 As System.Windows.Forms.Button + Friend WithEvents BtnSim2 As System.Windows.Forms.Button + Friend WithEvents BtnSim3 As System.Windows.Forms.Button + Friend WithEvents BtnSim4 As System.Windows.Forms.Button + Friend WithEvents BtnSim5 As System.Windows.Forms.Button + Friend WithEvents LblSimPrgSent1 As System.Windows.Forms.Label + Friend WithEvents LblSimPrgSent2 As System.Windows.Forms.Label + Friend WithEvents LblNcStatus As System.Windows.Forms.Label + Friend WithEvents LblCurrentProgram As System.Windows.Forms.Label + Friend WithEvents LblProgramName As System.Windows.Forms.Label + Friend WithEvents LblMachineStatus As System.Windows.Forms.Label + Friend WithEvents LblMachState As System.Windows.Forms.Label + Friend WithEvents BtnReadOldOsai As Button + Friend WithEvents LblReadOldOsai As Label + Friend WithEvents BtnWrite1OldOsai As Button + Friend WithEvents BtnWrite2OldOsai As Button + Friend WithEvents BtnWrite3OldOsai As Button + Friend WithEvents BtnWrite4OldOsai As Button + Friend WithEvents BtnWrite5OldOsai As Button + Friend WithEvents Btn_test_file As Button + Friend WithEvents OpenFileDialog1 As OpenFileDialog + Friend WithEvents Lbl_sw_phase As Label + Friend WithEvents Label1 As Label + Friend WithEvents LblMapoIOB As Label +End Class diff --git a/CVCncLib/FrmMain.resx b/CVCncLib/FrmMain.resx new file mode 100644 index 00000000..4c5975c8 --- /dev/null +++ b/CVCncLib/FrmMain.resx @@ -0,0 +1,150 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 121, 17 + + + 226, 17 + + + 397, 17 + + + 72 + + + + + AAABAAEAICAQAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAICAgAAAAP8AAP8AAAD//wD/AAAA/wD/AP// + AAD///8A/////4iIiIj//////////////4gAAAAIiP////////////gAERiAAAiP//////////+AERE4 + gxAAj//////////4ARF3u7uzAIj/////////gBF3u7u7u3AI////////+AEfu7u7O7u3CP////////AR + +7uzu7u7uwj///////+AH7u7u7u7O7sIj///////AXu7u7uzu7u/MI///////wF7u7u7i7uz/zCP//// + //8Lu7u7uLODP/+wiIj/////C7u7u4s4+P//cAEYj/////C7u7uzj4iP//MAAYj////wu7u7uPiIi//7 + u7GI/////wu7u7v4iLs/9zu7D/////8Lu7u7v4uz+P8wAA//////8Au7u7u7P4iPCI/////////wC7u7 + u/iIAQCP//////////AAALu/gRgQiP////////////8Lu7CBgQj/////////////8Lu7CBgAj/////// + //////C7+wCBEI//////////////AAD/ARgI//////////////////CBGI//////////////////ARCI + //////////////////ARCIj/////////////////ARCIj/////////////////AQAAD///////////// + ////AAAA//////////////////AAAP//////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQ== + + + \ No newline at end of file diff --git a/CVCncLib/FrmMain.vb b/CVCncLib/FrmMain.vb new file mode 100644 index 00000000..b6ff588f --- /dev/null +++ b/CVCncLib/FrmMain.vb @@ -0,0 +1,367 @@ +Imports System +Imports System.IO +Imports System.Collections +Imports Microsoft.VisualBasic + +Public Class FrmMain + + + Public Const VERSION_ID = "1" + + Public b_timer_busy As Boolean + Public n_simulated_index As Integer = 0 + + Public sz_usb_barcode_string As String + + + Dim b_exit_busy As Boolean = False + + + Public Sub New() + + ' This call is required by the Windows Form Designer. + InitializeComponent() + + End Sub + + Private Sub My_initialize() Handles Me.Load + + Call CheckForExistingInstance() + + Me.Show() + + ' read ini file & init global variables + Call IniRead.Ini_read() + + ' read messages + Call Message.init() + + ' init logger on file + Call Log.init(IniRead.szLogFileName) + + Call Log.write("-----------START PROGRAM test Sam -------------------") + + + ' init modules + Call Init_Modules() + + ' Init NC connection + Call M_cn_connection.StartConnection() + + ' check NC connection reading a ver and waiting + Call M_cn_connection.CheckConnection() + + ' timer enable + Call Timer_enable() + + End Sub + +#Region " Closing...." + + Private Sub Dispose_form(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Disposed + + Call Terminate_properly() + + End Sub + + Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing + + Call Terminate_properly() + + End Sub 'Form1_Closing + + Sub Terminate_properly() + + If Not b_exit_busy Then + + b_exit_busy = True + + Timer_disable() + + System.Threading.Thread.Sleep(SLEEP_TIME) + + If (Not IniRead.b_debug) Then + + If Not (CnOsai Is Nothing) Then + CnOsai.CloseSession() + End If + + End If + + + Application.Exit() + + End If ' busy + + End Sub + +#End Region + +#Region " Buttons" + + + + Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click + + Call Terminate_properly() + + End Sub + + + + + + +#End Region + +#Region " Init routines" + + Private Sub Init_Modules() + + Call M_state_machine.init() + + Call M_aspect.init() + + End Sub + + Public Sub CheckForExistingInstance() + '~~> Get number of processes of you program + If Process.GetProcessesByName(Process.GetCurrentProcess.ProcessName).Length > 1 Then + MessageBox.Show("Another copy of this program is already running", + "More than 1 copy not allowed", MessageBoxButtons.OK, + MessageBoxIcon.Exclamation) + + Application.Exit() + End If + End Sub + +#End Region + +#Region " Timer" + + ' ------------------------------------------------------------------------------- + ' ---- Enable Timer + ' ------------------------------------------------------------------------------- + Private Sub Timer_enable() + + ' set timer interval + Tmr_Main.Interval = IniRead.lTimerInterval + + ' Enable Timer + Tmr_Main.Enabled = True + + End Sub + + ' ------------------------------------------------------------------------------- + ' ---- DisAble timer + ' ------------------------------------------------------------------------------- + Private Sub Timer_disable() + + Tmr_Main.Enabled = False + + End Sub + + '_____________________________________________________________________________ + + ' ------------------------------------------------------------------------------- + ' ---- Tick timer d,... ------ + ' ------------------------------------------------------------------------------- + Private Sub Tmr_Main_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tmr_Main.Tick + + If Not b_timer_busy Then + + b_timer_busy = True + Tmr_Main.Enabled = False + + Call M_state_machine.go() + + + b_timer_busy = False + Tmr_Main.Enabled = True + End If + + End Sub + +#End Region + +#Region " Simulation " + + Private Sub BtnSim0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSim0.Click + n_simulated_index = 0 + Call gray_them_all() + BtnSim0.BackColor = Color.LightCoral + End Sub + Private Sub BtnSim1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSim1.Click + n_simulated_index = 1 + Call gray_them_all() + BtnSim1.BackColor = Color.LightCoral + End Sub + Private Sub BtnSim2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSim2.Click + n_simulated_index = 2 + Call gray_them_all() + BtnSim2.BackColor = Color.LightCoral + End Sub + Private Sub BtnSim3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSim3.Click + n_simulated_index = 3 + Call gray_them_all() + BtnSim3.BackColor = Color.LightCoral + End Sub + Private Sub BtnSim4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSim4.Click + n_simulated_index = 4 + Call gray_them_all() + BtnSim4.BackColor = Color.LightCoral + End Sub + Private Sub BtnSim5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSim5.Click + n_simulated_index = 5 + Call gray_them_all() + BtnSim5.BackColor = Color.LightCoral + End Sub + + Private Sub gray_them_all() + BtnSim0.BackColor = Color.LightGray + BtnSim1.BackColor = Color.LightGray + BtnSim2.BackColor = Color.LightGray + BtnSim3.BackColor = Color.LightGray + BtnSim4.BackColor = Color.LightGray + BtnSim5.BackColor = Color.LightGray + End Sub + + Private Sub LblSimPrgSent1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LblSimPrgSent1.Click + LblSimPrgSent1.BackColor = Color.Azure + End Sub + Private Sub LblSimPrgSent2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LblSimPrgSent2.Click + LblSimPrgSent2.BackColor = Color.Azure + End Sub + + Private Sub BtnReadOldOsai_Click(sender As Object, e As EventArgs) Handles BtnReadOldOsai.Click + Dim Var_tmp As ComCNOsai.stVAR + + Var_tmp.nAddress = IniRead.nVar_NC_state + Var_tmp.nBit = 0 ' solo x evitare warning ... + Var_tmp.nNumCn = 1 ' solo x evitare warning ... + Var_tmp.szVarName = "" ' solo x evitare warning ... + + + LblReadOldOsai.Text = CnOsai.ReadShortVar(Var_tmp).ToString + + End Sub + + Private Sub BtnWrite1OldOsai_Click(sender As Object, e As EventArgs) Handles BtnWrite1OldOsai.Click + Dim Var_tmp As ComCNOsai.stVAR + + Var_tmp.nAddress = IniRead.nVar_NC_state + Var_tmp.nBit = 0 ' solo x evitare warning ... + Var_tmp.nNumCn = 1 ' solo x evitare warning ... + Var_tmp.szVarName = "" ' solo x evitare warning ... + + CnOsai.WriteShortVar(Var_tmp, 1) + + End Sub + Private Sub BtnWrite2OldOsai_Click(sender As Object, e As EventArgs) Handles BtnWrite2OldOsai.Click + Dim Var_tmp As ComCNOsai.stVAR + + Var_tmp.nAddress = IniRead.nVar_NC_state + Var_tmp.nBit = 0 ' solo x evitare warning ... + Var_tmp.nNumCn = 1 ' solo x evitare warning ... + Var_tmp.szVarName = "" ' solo x evitare warning ... + + CnOsai.WriteShortVar(Var_tmp, 2) + End Sub + Private Sub BtnWrite3OldOsai_Click(sender As Object, e As EventArgs) Handles BtnWrite3OldOsai.Click + Dim Var_tmp As ComCNOsai.stVAR + + Var_tmp.nAddress = IniRead.nVar_NC_state + Var_tmp.nBit = 0 ' solo x evitare warning ... + Var_tmp.nNumCn = 1 ' solo x evitare warning ... + Var_tmp.szVarName = "" ' solo x evitare warning ... + + CnOsai.WriteShortVar(Var_tmp, 3) + End Sub + Private Sub BtnWrite4OldOsai_Click(sender As Object, e As EventArgs) Handles BtnWrite4OldOsai.Click + Dim Var_tmp As ComCNOsai.stVAR + + Var_tmp.nAddress = IniRead.nVar_NC_state + Var_tmp.nBit = 0 ' solo x evitare warning ... + Var_tmp.nNumCn = 1 ' solo x evitare warning ... + Var_tmp.szVarName = "" ' solo x evitare warning ... + + CnOsai.WriteShortVar(Var_tmp, 4) + End Sub + Private Sub BtnWrite5OldOsai_Click(sender As Object, e As EventArgs) Handles BtnWrite5OldOsai.Click + Dim Var_tmp As ComCNOsai.stVAR + + Var_tmp.nAddress = IniRead.nVar_NC_state + Var_tmp.nBit = 0 ' solo x evitare warning ... + Var_tmp.nNumCn = 1 ' solo x evitare warning ... + Var_tmp.szVarName = "" ' solo x evitare warning ... + + CnOsai.WriteShortVar(Var_tmp, 5) + End Sub + + Private Sub Btn_test_file_Click(sender As Object, e As EventArgs) Handles Btn_test_file.Click + + Dim sz_geppo_filename As String = IniRead.sz_temporary_path & "\geppo.cn" + Dim sz_NC_program_name As String + + If (IniRead.b_send_file) Then + + sz_geppo_filename = Ask_file() + sz_NC_program_name = Path.GetFileNameWithoutExtension(sz_geppo_filename) + sz_NC_program_name = IniRead.szDefaultPathNC & "\" & sz_NC_program_name + my_f_____copy_file_to_nc(sz_geppo_filename, sz_NC_program_name) + + Else + + ' crea un filettino e lo manda + Dim Writer As New StreamWriter(sz_geppo_filename) ' Opens stream and begins writing + + Writer.WriteLine("; ") + Writer.WriteLine("; Ciao Mamma !") + Writer.WriteLine("; ") + Writer.WriteLine("; saluti da Geppo") + Writer.WriteLine("G00") + Writer.WriteLine("M00") + + Writer.Close() + + Call CnOsai.CopyFileToNC("", sz_geppo_filename, "GEPPO") + + System.IO.File.Delete(sz_geppo_filename) ' sempre per non far nulla .... + + End If + + + End Sub + + Function Ask_file() As String + + Dim sz_filename As String = "" + + Try + With OpenFileDialog1 + + If .ShowDialog() = Windows.Forms.DialogResult.OK Then + + sz_filename = .FileName + End If + + End With + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, Me.Text) + End Try + + Return sz_filename + + End Function + +#End Region + + + + + + + +End Class + + diff --git a/CVCncLib/Messages/testSam.msg b/CVCncLib/Messages/testSam.msg new file mode 100644 index 00000000..0e952f6e --- /dev/null +++ b/CVCncLib/Messages/testSam.msg @@ -0,0 +1,131 @@ +(0) - Message file !!!! +Impossible to find the ' +(2) +(3) +(4) +(5) +(6) +(7) + connecting to +(9) +Nc connection +NOT CONNECTED +NC connect ok +CANNOT CONNECT (2) +(14) +(15) +(16) +(17) +(18) +(19) +d_prod - composing programs +Exit +Clear +Start ! +STOP ! +Select DDF File +No Probing - +Basic Probing - +Advanced Probing - +(29) +(30) +(31) +(32) +waiting for end probing +Program queue +Job List +Currently machining : +Machine Status : +Next program : +processing +sending +selecting +creating probing path +Creating +Copying probe data +waiting machine to get ready...... +Not Ready +Ready +end machining +machining +(50) +(51) +(52) +(53) +(54) +(55) +(56) +(57) +(58) +(59) +missing code +code + not found in table +file +file not found +Clear program queue +Are you sure ? +removing program : + not found +Program : +(70) +(71) +(72) +Problem activating MAINAUTO program +Please stop the running program !! +Problem copying +program +Please deactivate the running program !! +(78) +(79) +(80) +(81) +(82) +(83) +(84) +(85) +(86) +(87) +(88) +(89) +Ok +Cancel +(92) +(93) +(94) +(95) +(96) +(97) +(98) +(99) +(100) +(101) +(102) +(103) +(104) +(105) +(106) +(107) +(108) +(109) +(110) +(111) +(112) +(113) +(114) +(115) +(116) +Yes +No +(119) +(120) +(121) +(122) +(123) +(124) +(125) +(126) +(127) +(128) +(129) + diff --git a/CVCncLib/Modules/CndexLinkUserVB6.vb b/CVCncLib/Modules/CndexLinkUserVB6.vb new file mode 100644 index 00000000..cc852aaf --- /dev/null +++ b/CVCncLib/Modules/CndexLinkUserVB6.vb @@ -0,0 +1,717 @@ +Option Strict Off +Option Explicit On + +Module CndexLinkUserVB6 + ' OSAI S.p.A. Barone Canavese (Torino) Italy + ' + ' file: CndexLinkUser.BAS + ' version: 3.0 + ' + ' + ' Errors management + ' + ' The DLL CndexLink uses the return code of the function and two double words + ' for the error management. The double words are the class of the error and + ' the error code. + ' The return code of the functions is always a boolean. True means that the + ' function has been executed without error, False means error during function + ' execution. + ' When the return code is False the parameters ErrClass and ErrNum report the + ' codes related to the error + ' + ' The errors has been organized using classes to avoid error codes overlap + ' Each class identify a level in the hierarchy of the modules used to + ' communicate with the CNC + ' For the error classes and error codes error definition please refer to the + ' Cndex server interface documentation. + ' The following codes could be not updated to last Cndex server version. + ' + ' + ' The classes are the following: + ' + ' COM Class (class 1) + ' The errors belonging to this class are generated by the COM interface + ' that is used to carry out the calls to Cndex server. + ' + ' CNDEX SERVER Class (class 2) + ' The errors belonging to this class can be generated either by the preliminary + ' checks done by Cndex server on the called functions parameters or by internal + ' errors of the server. + ' + ' NETBIOS Class (class 3) + ' The errors belonging to this class depend by anomalies or errors during + ' data exchange between Cndex server and the managed CNC connected through + ' local network. + ' + ' CNC Class (class 4) + ' The errors belonging to this class are generated by the elaboration of the + ' commads by the CNC connected to Cndex. + ' + ' CNDEX INTERFACE Class (class 10) + ' The errors belonging to this class are generated by CndexInterface DLL that + ' is used to interface Cndex server. + ' + ' + ' Error codes for COM classe (class 1) + ' + ' Questo e ' un elenco degli errori COM piu' comuni + ' + ' CO_E_SERVER_EXEC_FAILURE 0x80080005 + ' Su Windows 95/98 il server non puo' essere lanciato automaticamente ma bisogna + ' metterlo in esecuzione manualmente, ricordando che quando non c'e' piu' nessuna + ' applicazione attiva il server viene terminato automaticamente. + ' + ' RPC_S_SERVER_UNAVAILABLE 0x800706ba + ' · assicurarsi che nel registry il valore del parametro sia Y + ' · aggiungere o attivare il protocollo TCP/IP nella configurazione di rete + ' + ' E_ACCESSDENIED 0x80070005 + ' Su Windows NT/2000 lanciare l'utility dcomcnfg.exe e selezionare + ' o nella sezione identity dell'applicazione cndex, + ' ed nella sezione di launch permission + ' + ' REGDB_E_CLASSNOTREG 0x80040154 + ' Il server Cndex non e' stato registrato nel registry di Windows. Registrarlo con + ' questo comando da eseguire in un DOS shell : cndex.exe /regserver + ' + ' CO_S_NOTALLINTERFACES 0x00080012 + ' La DLL proxy del server Cndex non e' stata registrata nel registry di Windows. + ' Registrarla con questo comando da eseguire in un DOS shell : regsvr32 cndexps.dll + ' + ' + ' + ' Error codes for CNDEX SERVER classe (class 2) + ' + ' 1 No memory for dynamic memory allocation + ' 2 Error creating syncronization events + ' 3 Session aborted. It can not be used anymore. + ' 4 Session not opened + ' 5 It is not possible to allocate a network channel + ' 6 It has been activated a function for an unexisting CNC process. + ' 7 Broadcasting command aborted + ' 8 User output buffer too small + ' 9 Session already opened + ' 10 Broadcasting list not valid + ' 11 Realtime command aborted + ' 12 The function is already active + ' 13 The function is not active yet + ' 14 Reciving thread terminated + ' 15 Time-out. No answer (after an establish time) to the command sent to CNC. + ' 16 The software release of the connected CNC is not compatible with the Cndex server protocol + ' 17 The given session identifier is not valid + ' 18 It is not possible to create the real-time thread + ' 19 No network session channels available anymore + ' 20 Error loading CNC symbols + ' 23 It is not possible to create an instance of the session object + ' 24 It is not possible to create the broadcasting thread + ' 25 The function can not be executed during this phase of the CNC boot + ' 26 Wrong parameter + ' 27 Buffer not valid + ' 29 The UserSession parameter is not valid (there is not a correspondig session) + ' 31 The UserSession parameter is either not valid or the corrisponding session has + ' automatically been closed by Cndex server. + ' + ' + ' Error codes for NETBIOS class (class 3) + ' + ' 0x0001 Illegal buffer length + ' 0x0003 Illegal command + ' 0x0005 Command timed out + ' 0x0006 Message incomplete, issue another command + ' 0x0007 Illegal buffer address + ' 0x0008 Session number out of range + ' 0x0009 No resource available + ' 0x000a Session closed + ' 0x000b Command cancelled + ' 0x000d Duplicate name + ' 0x000e Name table full + ' 0x000f No deletions, name has active sessions + ' 0x0011 Local session table full + ' 0x0012 Remote session table full + ' 0x0013 Illegal name number + ' 0x0014 No callname + ' 0x0015 Cannot put * in NCB_NAME + ' 0x0016 Name in use on remote adapter + ' 0x0017 Name deleted + ' 0x0018 Session ended abnormally + ' 0x0019 Name conflict detected + ' 0x0021 Interface busy, IRET before retrying + ' 0x0022 Too many commands outstanding, retry later + ' 0x0023 Ncb_lana_num field invalid + ' 0x0024 Command completed while cancel occurring + ' 0x0026 Command not valid to cancel + ' 0x0030 Name defined by anther local process + ' 0x0034 Environment undefined. RESET required + ' 0x0035 Required OS resources exhausted + ' 0x0036 Max number of applications exceeded + ' 0x0037 No saps available for netbios + ' 0x0038 Requested resources are not available + ' 0x0039 Invalid ncb address or length > segment + ' 0x003B Invalid NCB DDID + ' 0x003C Lock of user area failed + ' 0x003f NETBIOS not loaded + ' 0x0040 System error + ' + ' + ' + ' Error codes for CNC class (class 4) + ' + ' For the error codes related to this class please refer to + ' "MINI-DNC ETHERNET Functions Library" and "USER MANUAL" of the + ' 10/Series CNC + ' + ' + ' + ' Error codes for CNDEX INTERFACE class (class 10) + ' + ' 1 ERR_SERVER_ALREADY_CREATED CNDEX server already created + ' 2 ERR_CREATING_SERVER_OBJECT Error creating CNDEX server + ' 3 ERR_SERVER_NOT_CREATED CNDEX server never created or already released + ' 4 ERR_INVALID_PARAMETER Invalid value for one or more parameters + ' 5 ERR_OPTION_NOT_ENABLED The COMMUNICATION option is not enabled for connected CNC + + Public Const ON_ As Short = 1 + Public Const OFF_ As Short = 0 + + 'Boot phase + Public Const EMERG_SWITCH_PHASE As Short = 1 + Public Const HW_BOOT_PHASE As Short = 2 + Public Const SW_BOOT_PHASE As Short = 3 + Public Const SYSTEM_UP_PHASE As Short = 4 + Public Const SERVER_MODE_PHASE As Short = 5 + Public Const REMOTE_SETUP_PHASE As Short = 6 + + ' Classes of the Process Variables + Public Const E_VAR_CLASS As Short = 1 + Public Const SN_VAR_CLASS As Short = 2 + Public Const SC_VAR_CLASS As Short = 255 + + ' 10 Series modes + Public Const MDI As Short = 1 + 'UPGRADE_NOTE: AUTO è stato aggiornato a AUTO_Renamed. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"' + Public Const AUTO_Renamed As Short = 2 + Public Const SEMI As Short = 3 + Public Const MANJOG As Short = 4 + Public Const INCJOG As Short = 5 + Public Const PROFILE As Short = 6 + Public Const HOME As Short = 7 + + ' 10 Series Status + Public Const IDLE_ As Short = 1 + Public Const CYCLE_ As Short = 2 + Public Const HOLDA_ As Short = 3 + Public Const RUNH_ As Short = 4 + Public Const HRUN_ As Short = 5 + Public Const ERRO_ As Short = 6 + Public Const WAIT_ As Short = 7 + Public Const RESET_ As Short = 8 + Public Const EMERG_ As Short = 9 + Public Const INPUT_ As Short = 10 + + ' 10 Series SubStatus + Public Const MAS As Short = 6 + Public Const MBR As Short = 4 + + Public Const NUM_ELEM_SEL_AXI As Short = 9 + + ' Axes Position type selector + Public Const PROGPOS As Short = 1 ' Programmed positions + Public Const IntPos As Short = 2 ' Interpolated positions + Public Const TRANSDPOS As Short = 3 ' Transducer Position + Public Const ERRPOS As Short = 4 ' Following Errors + + Public Const MAIN_PROGR_NAME_LEN As Short = 55 + + ' Logic variables identifier + ' boolean variables + Public Const I_CODE As Short = 0 + Public Const O_CODE As Short = 1 + Public Const M_CODE As Short = 2 + Public Const G_CODE As Short = 3 + Public Const S_CODE As Short = 4 + Public Const P_CODE As Short = 7 + Public Const U_CODE As Short = 8 + ' WORD variables + Public Const MW_CODE As Short = 20 + Public Const GW_CODE As Short = 21 + Public Const SW_CODE As Short = 22 + Public Const PW_CODE As Short = 62 + Public Const UW_CODE As Short = 63 + 'DOUBLE variables + Public Const MD_CODE As Short = 40 + Public Const GD_CODE As Short = 41 + Public Const PD_CODE As Short = 43 + Public Const UD_CODE As Short = 44 + + + ' Tables identifiers + Public Const AXIS_TABLE_ID As Short = 1 ' AXIS TABLE identifier + Public Const TOOL_TABLE_ID As Short = 2 ' TOOL TABLE identifier + Public Const OFFSET_TABLE_ID As Short = 3 ' OFFSET TABLE identifier + Public Const USER_TABLE_ID As Short = 4 ' USER TABLE identifier + + + ' Logical directory identifiers + Public Const PPDIR_PROGRAM As Short = 0 ' PROGRAM directory + Public Const PPDIR_USER As Short = 1 ' USER directory + Public Const PPDIR_SYSTEM As Short = 2 ' SYSTEM directory + Public Const PPDIR_OEM As Short = 3 ' OEM directory + + + Structure GETINTDATA + Dim AxisName As Byte + Dim Mode As Byte + Dim Position As Double + Dim TotalOffset As Double + End Structure + + + Structure PROCDATA + Dim Mode As Short + Dim status As Short + Dim substatus As Short + End Structure + + + Structure GetInfo1Data + Dim status As Byte ' process status + Dim substatus As Byte ' process substatus + Dim mode_select As Byte ' selected mode + Dim jog_dir As Byte ' 1 = negative 0 = positive + Dim speed_ov As Short ' speed override + Dim feed_ov As Short ' feed override + Dim rap_feed_ov As Short ' rapid feed override + Dim man_feed_ov As Short ' manual feed override + Dim jog_incr As Double ' incremental jog value + Dim num_ax_sel As Byte ' number of selected axes + Dim ax_sel() As Byte 'array of selected axes + Dim actual_tool As Double ' actual active tool number + Dim progr_tool As Double ' programmed tool number + Dim actual_tool_off As Short ' actual tool offset number + Dim progr_tool_off As Short ' programmed tool offset number + Dim real_speed As Double ' real spindle feed + Dim progr_speed As Double ' programmed spindle feed + Dim progr_feed As Double ' programmed feed + Dim rapid_feed As Double ' rapid feed + Dim real_feed As Double ' real feed + Dim feed_mis_unit As Short ' misure unit of feed + 'UPGRADE_WARNING: La dimensione della stringa di lunghezza fissa deve essere contenuta nel buffer. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="3C1E4426-0B80-443E-B943-0627CD55D48B"' + Public main_progr_name() As Char ' active main part program name + Dim dry_run As Byte ' 1 = dry run modality active + Dim rapid_override As Byte ' 1 = rapid ovverride enable + Dim disable_slashed_blk As Byte ' 1 = slashed block disable + Dim optional_stop As Byte ' 1 = M00 stop enable + Dim force_rapid_feed As Byte ' 1 = rapid feed forced + Dim auto_jog_ret As Byte ' 1 = automatic jog return mode + Dim block_retrace As Byte ' 1 = multi block retrace active + Dim last_nc_error As Short ' last NC error. 0 = no error + Dim free() As Byte ' free + + 'UPGRADE_TODO: "Initialize" deve essere chiamato per inizializzare istanze di questa struttura. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="B4BFF9E0-8631-45CF-910E-62AB3970F27B"' + Public Sub Initialize() + ReDim ax_sel(NUM_ELEM_SEL_AXI) + ReDim free(22) + End Sub + End Structure + + + Structure GetInfo2Data + Dim StatusWord As Short + Dim Urp As Double + Dim ActTool As Double + Dim ActOffset As Short + Dim ProgTool As Double + Dim ProgOffset As Short + Dim M_Status As Short + Dim M_Value() As Short + Dim Ax1Name As Byte + Dim Ax1Offset As Double + Dim Ax2Name As Byte + Dim Ax2Offset As Double + Dim Radius As Double + + 'UPGRADE_TODO: "Initialize" deve essere chiamato per inizializzare istanze di questa struttura. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="B4BFF9E0-8631-45CF-910E-62AB3970F27B"' + Public Sub Initialize() + ReDim M_Value(15) + End Sub + End Structure + + + Structure GETBLKNUMDATA + Dim ppActNum As Short + Dim MainActBlk As Integer + Dim Sbr1ActBlk As Integer + Dim Sbr2ActBlk As Integer + Dim Sbr3ActBlk As Integer + Dim Sbr4ActBlk As Integer + End Structure + + + ' Axis Table Descriptor + Structure AXIS_TABLE + Dim owner As Short ' ambient owner + Dim name As Short ' ascii axis name + Dim orig As Double ' actual origin + Dim free1 As Double ' FREE FIELD + Dim ofg92 As Double ' offset G92 + Dim toff As Double ' actual tool offset + Dim free2 As Double ' FREE FIELD + Dim Offset As Double ' axis total offset + Dim orig1 As Double ' origin 1 + Dim orig2 As Double ' origin 2 + Dim orig3 As Double ' origin 3 + Dim orig4 As Double ' origin 4 + Dim orig5 As Double ' origin 5 + Dim orig6 As Double ' origin 6 + Dim orig7 As Double ' origin 7 + Dim orig8 As Double ' origin 8 + Dim orig9 As Double ' origin 9 + Dim orig10 As Double ' origin 10 + Dim reserved1 As Short ' reserved + Dim reserved2 As Short ' reserved + End Structure + + + ' Tool table descriptor + Structure TOOL_TABLE + Dim Tcode As Double ' tool code + Dim pocket As Short ' pocket position + Dim tfamcol As Short ' random family + Dim tclass As Short ' tool class + Dim tstatus As Short ' status word + Dim tcntrl As Short ' control word + Dim maxtime As Double ' start life + Dim remtime As Double ' actual life + Dim tuser1 As Double ' user parameter 1 + Dim tuser2 As Double ' user parameter 2 + Dim tuser3 As Double ' user parameter 3 + Dim tuser4 As Double ' user parameter 4 + Dim tolfnr As Short ' offset number + End Structure + + + ' Offset table descriptor + Structure OFFSET_TABLE + Dim tactl1 As Double ' actual tool lenght 1 + Dim tcmaxl1 As Double ' max change lenght 1 + Dim tcactl1 As Double ' actual change lenght 1 + Dim tactl2 As Double ' actual tool lenght 2 + Dim tcmaxl2 As Double ' max change lenght 2 + Dim tcactl2 As Double ' actual change lenght 2 + Dim tdiameter As Double ' diameter (ex radius) + Dim tcacdiam As Double ' diameter wear (ex tangle) + Dim torient As Short ' orientation + End Structure + + + ' User table descriptor + Structure USER_TABLE + Dim user1 As Double ' user variable 1 + Dim User2 As Double ' user variable 2 + Dim user3 As Double ' user variable 3 + Dim user4 As Double ' user variable 4 + End Structure + + + Structure ERR_MSG + 'UPGRADE_WARNING: La dimensione della stringa di lunghezza fissa deve essere contenuta nel buffer. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="3C1E4426-0B80-443E-B943-0627CD55D48B"' + Public Msg1() As Char + 'UPGRADE_WARNING: La dimensione della stringa di lunghezza fissa deve essere contenuta nel buffer. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="3C1E4426-0B80-443E-B943-0627CD55D48B"' + 'UPGRADE_NOTE: MSG2 è stato aggiornato a MSG2_Renamed. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"' + Public MSG2_Renamed() As Char + 'UPGRADE_WARNING: La dimensione della stringa di lunghezza fissa deve essere contenuta nel buffer. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="3C1E4426-0B80-443E-B943-0627CD55D48B"' + 'UPGRADE_NOTE: MSG3 è stato aggiornato a MSG3_Renamed. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"' + Public MSG3_Renamed() As Char + 'UPGRADE_WARNING: La dimensione della stringa di lunghezza fissa deve essere contenuta nel buffer. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="3C1E4426-0B80-443E-B943-0627CD55D48B"' + Public Msg4() As Char + End Structure + + + Structure PLVARDESC + Dim Code As Short + Dim Index As Short + Dim Bit As Short + End Structure + + + Structure EMCY_TYPE + Dim usEmcyErrCode As Short + Dim usEmcyErrorReg As Byte + Dim SpecErrField As Integer + Dim reserved As Byte + End Structure + + ''''''' CNDEX SERVER FUNCTIONS PROTOTYPES ''''''' + + Declare Function ConnectServer_C Lib "CndexLink.DLL" (ByVal ServerAddress As String, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function ReleaseServer_C Lib "CndexLink.DLL" (ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + + ''''''' NET SESSION FUNCTIONS PROTOTYPES ''''''' + + Declare Function OpenSession_C Lib "CndexLink.DLL" (ByVal RemoteName As String, ByRef UserSession As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function CloseSession_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + + Declare Function IsSessionOpened_C Lib "CndexLink.DLL" (ByVal UserSession As Short) As Short + + + ''''''' CNC BOOT FUNCTIONS PROTOTYPES ''''''' + + Declare Function BootPhaseEnquiry_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByRef Phase As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + + Declare Function BootReboot_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + + Declare Function BootShutDown_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + + Declare Function BootMode_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal Mode As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + + + ''''''' GENERAL FUNCTIONS PROTOTYPES ''''''' + + Declare Function GetCodeNumber_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal CodeNumber As String, ByVal SwVersion As String, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + + 'UPGRADE_NOTE: Second è stato aggiornato a Second_Renamed. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"' + 'UPGRADE_NOTE: Minute è stato aggiornato a Minute_Renamed. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"' + 'UPGRADE_NOTE: Hour è stato aggiornato a Hour_Renamed. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"' + 'UPGRADE_NOTE: Day è stato aggiornato a Day_Renamed. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"' + 'UPGRADE_NOTE: Month è stato aggiornato a Month_Renamed. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"' + 'UPGRADE_NOTE: Year è stato aggiornato a Year_Renamed. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"' + Declare Function GetDateTime_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByRef Year_Renamed As Short, ByRef Month_Renamed As Short, ByRef Day_Renamed As Short, ByRef Hour_Renamed As Short, ByRef Minute_Renamed As Short, ByRef Second_Renamed As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + + 'UPGRADE_NOTE: Second è stato aggiornato a Second_Renamed. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"' + 'UPGRADE_NOTE: Minute è stato aggiornato a Minute_Renamed. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"' + 'UPGRADE_NOTE: Hour è stato aggiornato a Hour_Renamed. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"' + 'UPGRADE_NOTE: Day è stato aggiornato a Day_Renamed. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"' + 'UPGRADE_NOTE: Month è stato aggiornato a Month_Renamed. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"' + 'UPGRADE_NOTE: Year è stato aggiornato a Year_Renamed. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"' + Declare Function SetDateTime_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal Year_Renamed As Short, ByVal Month_Renamed As Short, ByVal Day_Renamed As Short, ByVal Hour_Renamed As Short, ByVal Minute_Renamed As Short, ByVal Second_Renamed As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + + Declare Function PPInsertName_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal LogicalName As String, ByVal LogicalExt As String, ByVal LogicalDir As Short, ByVal PhysicalName As String, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function PPDeleteName_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal LogicalName As String, ByVal LogicalExt As String, ByVal LogicalDir As Short, ByRef NumberOfFilesDeleted As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function PPGetLogicalName_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal PhysicalName As String, ByVal LogicalName As String, ByVal LogicalExt As String, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function PPGetPhysicalName_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal LogicalName As String, ByVal LogicalExt As String, ByVal LogicalDir As Short, ByVal PhysicalName As String, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function PPGetLogicalDir_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal LogicalName As String, ByVal LogicalExt As String, ByRef LogicalDir As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function PPUpdate_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal LogicalName As String, ByVal LogicalExt As String, ByVal LogicalDir As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + + + ''''''' PROCESS FUNCTIONS PROTOTYPES ''''''' + + Declare Function Cycle_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByVal Cmd As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function SyncroCycle_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function Reset_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function Hold_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByVal Cmd As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function SetFeedManOver_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByVal FeedManOver As Short, ByVal Direction As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function SetFeedRateOver_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByVal FeedRateOver As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function SetFeedRapidOver_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByVal FeedRapidOver As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function SetSpeedRateOver_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByVal SpeedRateOver As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function SetManMovDirection_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByVal Direction As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function SetMdiString_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByVal MdiString As String, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function SetProcessMode_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByVal Mode As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function SelectProcess_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function GetSelectedProcess_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByRef ProcNum As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function SelectProcAxis_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByVal AxisName As Byte, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function SelectPartProgram_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByVal PartProgramName As String, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + 'UPGRADE_WARNING: La struttura GETINTDATA potrebbe richiedere attributi di marshalling da passare come argomento a questa istruzione Declare. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="C429C3A5-5D47-4CD9-8F51-74A1616405DC"' + Declare Function GetAxesPosition_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByVal AxisName As Byte, ByVal Selector As Short, ByRef NumAxis As Short, ByRef IntPos As GETINTDATA, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + 'UPGRADE_WARNING: La struttura GetInfo1Data potrebbe richiedere attributi di marshalling da passare come argomento a questa istruzione Declare. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="C429C3A5-5D47-4CD9-8F51-74A1616405DC"' + Declare Function GetNcInfo1_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByRef GetInfo1Data As GetInfo1Data, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + 'UPGRADE_WARNING: La struttura GetInfo2Data potrebbe richiedere attributi di marshalling da passare come argomento a questa istruzione Declare. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="C429C3A5-5D47-4CD9-8F51-74A1616405DC"' + Declare Function GetNcInfo2_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByRef GetInfo2Data As GetInfo2Data, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + 'UPGRADE_WARNING: La struttura PROCDATA potrebbe richiedere attributi di marshalling da passare come argomento a questa istruzione Declare. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="C429C3A5-5D47-4CD9-8F51-74A1616405DC"' + Declare Function GetProcessStatus_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByRef NewMode As PROCDATA, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + 'UPGRADE_WARNING: La struttura GETBLKNUMDATA potrebbe richiedere attributi di marshalling da passare come argomento a questa istruzione Declare. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="C429C3A5-5D47-4CD9-8F51-74A1616405DC"' + Declare Function GetBlkNum_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByRef BlkNum As GETBLKNUMDATA, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function AxesRef_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByVal NumAx As Short, ByRef AxisName As Byte, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function GetVarE_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByVal Index As Short, ByRef Num As Short, ByRef Values As Double, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function GetVarSN_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByVal Index As Short, ByRef Num As Short, ByRef Values As Double, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function GetVarSC_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByVal Index As Short, ByRef Num As Short, ByVal text As String, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function GetVarJOG_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByRef Value As Double, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function GetVarRCM_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByRef Value As Byte, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function SetVarE_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByVal Index As Short, ByVal Num As Short, ByRef Values As Double, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function SetVarSN_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByVal Index As Short, ByVal Num As Short, ByRef Value As Double, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function SetVarSC_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByVal Index As Short, ByVal Num As Short, ByVal text As String, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function SetVarJOG_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByVal Value As Double, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function SetVarUAS_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByVal Mode As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function SetVarRCM_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByVal Mode As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + 'UPGRADE_WARNING: La struttura ERR_MSG potrebbe richiedere attributi di marshalling da passare come argomento a questa istruzione Declare. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="C429C3A5-5D47-4CD9-8F51-74A1616405DC"' + Declare Function ReadErrMsg_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByRef SysErrMsg As ERR_MSG, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function ReadPartProgramMsg_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByVal PartProgramMsg As String, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function GetGCode_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByRef GCode As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function GetMCode_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByRef MCode As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function SkipPProgBlock_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByVal NumOfBlocks As Integer, ByVal Direction As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function Ese_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByVal BlockNum As Integer, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + + + + ''''''' PLC FUNCTIONS PROTOTYPES ''''''' + + 'UPGRADE_WARNING: La struttura PLVARDESC potrebbe richiedere attributi di marshalling da passare come argomento a questa istruzione Declare. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="C429C3A5-5D47-4CD9-8F51-74A1616405DC"' + Declare Function GetPLVarWord_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal NumVar As Short, ByRef VarDesc As PLVARDESC, ByRef Values As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + Declare Function GetPLVarWord_M_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal NumVar As Short, ByRef VarDesc As PLVARDESC, ByRef Values() As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + 'UPGRADE_WARNING: La struttura PLVARDESC potrebbe richiedere attributi di marshalling da passare come argomento a questa istruzione Declare. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="C429C3A5-5D47-4CD9-8F51-74A1616405DC"' + Declare Function SetPLVarWord_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal NumVar As Short, ByRef VarDesc As PLVARDESC, ByRef Values As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + 'UPGRADE_WARNING: La struttura PLVARDESC potrebbe richiedere attributi di marshalling da passare come argomento a questa istruzione Declare. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="C429C3A5-5D47-4CD9-8F51-74A1616405DC"' + Declare Function GetPLVarDouble_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal NumVar As Short, ByRef VarDesc As PLVARDESC, ByRef Values As Double, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + 'UPGRADE_WARNING: La struttura PLVARDESC potrebbe richiedere attributi di marshalling da passare come argomento a questa istruzione Declare. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="C429C3A5-5D47-4CD9-8F51-74A1616405DC"' + Declare Function SetPLVarDouble_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal NumVar As Short, ByRef VarDesc As PLVARDESC, ByRef Values As Double, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function GetPLVarAscii_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal Index As Short, ByVal Value As String, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function SetPLVarAscii_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal Index As Short, ByRef Value As String, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function GetPLStreamWord_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal NumVar As Short, ByVal Code As Short, ByVal StartIndex As Short, ByRef Values As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function GetPLStreamDouble_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal NumVar As Short, ByVal Code As Short, ByVal StartIndex As Short, ByRef Values As Double, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function SetPLStreamWord_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal NumVar As Short, ByVal Code As Short, ByVal StartIndex As Short, ByRef Values As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function SetPLStreamDouble_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal NumVar As Short, ByVal Code As Short, ByVal StartIndex As Short, ByRef Values As Double, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function ReadWarningMsg_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal WarningMsg As String, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function CANReadSDO_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal DevNum As Short, ByVal idNode As Byte, ByVal Index As Short, ByVal subIndex As Byte, ByVal timeout As Short, ByVal Sync As Byte, ByRef data As Byte, ByRef DataLen As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function CANWriteSDO_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal DevNum As Short, ByVal idNode As Byte, ByVal Index As Short, ByVal subIndex As Byte, ByVal timeout As Short, ByVal Sync As Byte, ByRef data As Byte, ByRef DataLen As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function CANNMT_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal DevNum As Short, ByVal idNode As Byte, ByVal Cmd As Short, ByVal timeout As Short, ByVal Sync As Byte, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + + Declare Function CANSync_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal DevNum As Short, ByVal timeout As Short, ByVal Sync As Byte, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + + Declare Function CANInit_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal DevNum As Short, ByVal TickNr As Short, ByVal Inp1 As Short, ByVal Inp2 As Short, ByVal Out1 As Short, ByVal Out2 As Short, ByVal OffsDiagn As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + + 'UPGRADE_WARNING: La struttura EMCY_TYPE potrebbe richiedere attributi di marshalling da passare come argomento a questa istruzione Declare. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="C429C3A5-5D47-4CD9-8F51-74A1616405DC"' + Declare Function CANGetEmergency_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal DevNum As Short, ByVal idNode As Byte, ByVal timeout As Short, ByVal Sync As Byte, ByRef NodeStatus As Short, ByRef AddInfo As Short, ByRef ProfNum As Short, ByRef NodeStateNG As Short, ByRef ActualErr As Short, ByRef EmcyLen As Short, ByRef EmcyData As EMCY_TYPE, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + + Declare Function CANBoard_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal DevNum As Short, ByVal Cmd As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + + Declare Function CANConsoleCfg_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal DevNum As Short, ByVal idNode As Byte, ByVal InpOffs As Short, ByVal OutOffs As Short, ByVal timeout As Short, ByVal Sync As Byte, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + + + ''''''' TABLES RELATED FUNCTIONS PROTOTYPES ''''''' + + 'UPGRADE_WARNING: La struttura AXIS_TABLE potrebbe richiedere attributi di marshalling da passare come argomento a questa istruzione Declare. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="C429C3A5-5D47-4CD9-8F51-74A1616405DC"' + Declare Function GetAxisTabRecord_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal RecordNum As Short, ByRef Record As AXIS_TABLE, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + 'UPGRADE_WARNING: La struttura TOOL_TABLE potrebbe richiedere attributi di marshalling da passare come argomento a questa istruzione Declare. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="C429C3A5-5D47-4CD9-8F51-74A1616405DC"' + Declare Function GetToolTabRecord_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal RecordNum As Short, ByRef Record As TOOL_TABLE, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + 'UPGRADE_WARNING: La struttura OFFSET_TABLE potrebbe richiedere attributi di marshalling da passare come argomento a questa istruzione Declare. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="C429C3A5-5D47-4CD9-8F51-74A1616405DC"' + Declare Function GetOffsetTabRecord_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal RecordNum As Short, ByRef Record As OFFSET_TABLE, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + 'UPGRADE_WARNING: La struttura USER_TABLE potrebbe richiedere attributi di marshalling da passare come argomento a questa istruzione Declare. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="C429C3A5-5D47-4CD9-8F51-74A1616405DC"' + Declare Function GetUserTabRecord_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal RecordNum As Short, ByRef Record As USER_TABLE, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function GetTabFieldDouble_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal TableNum As Short, ByVal RecordNum As Short, ByVal FieldNum As Short, ByRef Value As Double, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function GetTabFieldShort_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal TableNum As Short, ByVal RecordNum As Short, ByVal FieldNum As Short, ByRef Value As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + 'UPGRADE_WARNING: La struttura AXIS_TABLE potrebbe richiedere attributi di marshalling da passare come argomento a questa istruzione Declare. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="C429C3A5-5D47-4CD9-8F51-74A1616405DC"' + Declare Function SetAxisTabRecord_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal RecordNum As Short, ByRef Record As AXIS_TABLE, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + 'UPGRADE_WARNING: La struttura TOOL_TABLE potrebbe richiedere attributi di marshalling da passare come argomento a questa istruzione Declare. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="C429C3A5-5D47-4CD9-8F51-74A1616405DC"' + Declare Function SetToolTabRecord_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal RecordNum As Short, ByRef Record As TOOL_TABLE, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + 'UPGRADE_WARNING: La struttura OFFSET_TABLE potrebbe richiedere attributi di marshalling da passare come argomento a questa istruzione Declare. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="C429C3A5-5D47-4CD9-8F51-74A1616405DC"' + Declare Function SetOffsetTabRecord_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal RecordNum As Short, ByRef Record As OFFSET_TABLE, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + 'UPGRADE_WARNING: La struttura USER_TABLE potrebbe richiedere attributi di marshalling da passare come argomento a questa istruzione Declare. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="C429C3A5-5D47-4CD9-8F51-74A1616405DC"' + Declare Function SetUserTabRecord_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal RecordNum As Short, ByRef RecordBuff As USER_TABLE, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function SetTabFieldDouble_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal TableNum As Short, ByVal RecordNum As Short, ByVal FieldNum As Short, ByVal Value As Double, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function SetTabFieldShort_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal TableNum As Short, ByVal RecordNum As Short, ByVal FieldNum As Short, ByVal Value As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function SetTabSem_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal TableNum As Short, ByVal SemStatus As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function TabSemInfo_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByRef SemStatus As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function TabSearchDouble_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal TabNum As Short, ByVal FieldNum As Short, ByVal StartIndex As Short, ByVal StopIndex As Short, ByVal Value As Double, ByRef MatchIndex As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function TabSearchShort_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal TabNum As Short, ByVal FieldNum As Short, ByVal StartIndex As Short, ByVal StopIndex As Short, ByVal Value As Short, ByVal Mask As Short, ByRef MatchIndex As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + + + ''''''' O.S. FUNCTIONS PROTOTYPES ''''''' + + 'UPGRADE_ISSUE: La dichiarazione di un parametro 'As Any' non è supportata. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="FAE78A8D-8978-4FD4-8208-5B7324A8F795"' + Declare Function GRead_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal MemId As Short, ByVal Offset As Short, ByVal Length As Short, ByRef Buffer As Object, ByRef BufferLength As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + 'UPGRADE_ISSUE: La dichiarazione di un parametro 'As Any' non è supportata. Fare clic per ulteriori informazioni: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="FAE78A8D-8978-4FD4-8208-5B7324A8F795"' + Declare Function GWrite_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal MemId As Short, ByVal Offset As Short, ByVal Length As Short, ByRef Buffer As Object, ByRef BufferLength As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + + + ''''''' ACTIVE PART PROGRAM DOWNLOAD FUNCTIONS PROTOTYPES ''''''' + + Declare Function DncInit_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByVal PathName As String, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function DncData_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByVal data As String, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function DncEof_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + + Declare Function DncStop_C Lib "CndexLink.DLL" (ByVal UserSession As Short, ByVal ProcNum As Short, ByRef ErrClass As Integer, ByRef ErrNum As Integer) As Short + +End Module diff --git a/CVCncLib/Modules/ComCNOsai.vb b/CVCncLib/Modules/ComCNOsai.vb new file mode 100644 index 00000000..c3db93e5 --- /dev/null +++ b/CVCncLib/Modules/ComCNOsai.vb @@ -0,0 +1,1893 @@ +' +' libreria : VBlib +' file : ComCNOsai +' +' funzioni : connessione con CN OSAI come classe v1.1 +' +' copyright 2008-2017 C.Viviani +' +Imports Microsoft.Win32 + +Public Class ComCNOsai + +#Region "STRUCT CN" + + ' ---------------------------------------------------------------------------- + ' Struttura dati utilizzata per gestione lettura e scrittura variabili su CN + ' ---------------------------------------------------------------------------- + Public Structure stVAR + + Dim szVarName As String + Dim nAddress As Integer + Dim nBit As Integer + Dim nNumCn As Integer + + End Structure +#End Region + +#Region "VARIABILI ISTANZA" + + + ' ----------------------- + ' Dichiarazione costanti + ' ----------------------- + Public Const ERRORVALUE = -9999 ' valore assegnato alla variabile in caso di errore durante la lettura + + ' funzione boot enquiry : BootPhaseEnquiry_C + + Public Const EMERG_SWITCH_PHASE As Short = 1 + Public Const HW_BOOT_PHASE As Short = 2 + Public Const SW_BOOT_PHASE As Short = 3 + Public Const SYSTEM_UP_PHASE As Short = 4 + Public Const SERVER_MODE_PHASE As Short = 5 + Public Const REMOTE_SETUP_PHASE As Short = 6 + Public Const SERVICE_MODE_PHASE As Short = 7 + Public Const AX_PARAM_VERIFY_PHASE As Short = 8 + + ' error codes + Public Const AB_NO_ERROR = &H0 + Public Const AB_INIT_ERROR = &H101 + Public Const AB_CHANNEL_NOT_OPENED = &H102 + Public Const AB_WRONG_SESSION_NUMBER = &H103 + Public Const AB_TOO_MANY_OPENED_SESSION = &H104 + Public Const AB_REMOTE_CNC_ERROR = &H105 + Public Const AB_NAME_TOO_LONG = &H106 + Public Const AB_COMMAND_IN_EXECUTION = &H107 + Public Const AB_CHANNELS_BUSY = &H108 + Public Const AB_WRONG_PROCESS_NUMBER = &H109 + Public Const AB_WRONG_SELECT_MODE = &H10A + Public Const AB_PARAM_OUT_OF_RANGE = &H10B + Public Const AB_CALLBACK_MUST_BE_NULL = &H10C + Public Const AB_WRONG_SYNC_CODE = &H10D + Public Const AB_BUFFER_SIZE_ERROR = &H10E + ' netbios error codes + Public Const AB_NETB_NETWORK_ERROR = &H200 + Public Const AB_NETB_DUP_LOCAL_NAME = &H201 + Public Const AB_NETB_NAME_TABLE_FULL = &H202 + Public Const AB_NETB_LOCAL_SESS_TAB_FULL = &H203 + Public Const AB_NETB_NO_BODY_LISTENING = &H204 + Public Const AB_NETB_NO_ASW_FROM_REMOTE = &H205 + Public Const AB_NETB_NAME_USED_ON_REMOTE = &H206 + Public Const AB_NETB_NAME_DELETED = &H207 + Public Const AB_NETB_NAME_CONFLICT = &H208 + Public Const AB_NETB_INCOMPAT_REMOTE_DEV = &H209 + Public Const AB_NETB_TIMEOUT = &H20A + Public Const AB_NETB_SESSION_ERR = &H20B ' Session closed + + Public Const AB_USER_ERROR = &H300 + + Public Const NO_WAIT_CNC_ANSWER = 1 + Public Const WAIT_CNC_ANSWER = 2 + + Public Const ON_ = 1 + Public Const OFF_ = 0 + + ' 10 Series modes + Public Const MDI = 1 + Public Const AUTO = 2 + Public Const SEMI = 3 + Public Const MANJOG = 4 + Public Const INCJOG = 5 + Public Const PROFILE = 6 + Public Const HOME = 7 + + ' 10 Series Status + Public Const IDLE_ As Byte = 1 + Public Const CYCLE_ As Byte = 2 + Public Const HOLDA_ As Byte = 3 + Public Const RUNH_ As Byte = 4 + Public Const HRUN_ As Byte = 5 + Public Const ERRO_ As Byte = 6 + Public Const WAIT_ As Byte = 7 + Public Const RESET_ As Byte = 8 + Public Const EMERG_ As Byte = 9 + Public Const INPUT_ As Byte = 10 + + ' 10 Series SubStatus + Public Const MAS = 6 + Public Const MBR = 4 + + + Public Const NUM_ELEM_SEL_AXI = 9 + + ' Axes Position type selector + Public Const PROGPOS = 1 ' Programmed positions + Public Const INTPOS = 2 ' Interpolated positions + Public Const TRANSDPOS = 3 ' Transducer Position + Public Const ERRPOS = 4 ' Following Errors + + Public Const MAIN_PROGR_NAME_LEN = 55 + + Protected Const ERRORE_OSAI = 0 + + ' --------------------- + ' Variabili di Istanza + ' --------------------- + + Protected mConnected As Boolean ' Indica se il Cn è connesso o meno + Protected mSessionOpened As Short ' Indica il numero di sessione aperta + Protected mNomeCN As String ' Indica il nome del cn da aprire + Protected mDebug As Boolean ' Indica se la connessione è debug o meno + Protected mVersion As Short ' indica la versione del Cn + + + Protected mErrClass As Long ' Indice della classe d'errore + Protected mErrNum As Long ' Indice della classe d'errore + + Protected mErrMsg As String ' Stringa per gestione messaggi errore + Protected mCommunicationError as Boolean ' Boolean che indica se è avvenuto un errore di comunicazione + + Private Server As New CndexLinkDotNet.Cndex() ' Istanza del server per comunicazione con CN + +#End Region + +#Region "COSTRUTTORE" + + '------------------------- + ' Definizione Costruttore + '------------------------- + Public Sub New(ByVal szCN As String, ByVal bIsDebug As Boolean, Optional ByVal sVersion As Short = 2) + + ' Inizializzazione variabili + Connected = False + SessionOpened = -1 + ErrClass = 0 + ErrNum = 0 + ErrMsg = "" + + ' Set variabili da parametri + NomeCn = szCN + Debug = bIsDebug + Version = sVersion + End Sub + +#End Region + +#Region "PROPRIETA" + + ' ---------------------------------- + ' Indica se il CN è connesso o meno + ' ---------------------------------- + Public Property Connected() As Boolean + Get + Return mConnected + End Get + Set(ByVal value As Boolean) + mConnected = value + End Set + + End Property + + ' ----------------------------- + ' Indice della classe d'errore + ' ----------------------------- + Public Property ErrClass() As Long + Get + Return mErrClass + End Get + Set(ByVal value As Long) + mErrClass = value + End Set + End Property + + ' --------------------------- + ' Indice del numero d'errore + ' --------------------------- + Public Property ErrNum() As Long + Get + Return mErrNum + End Get + Set(ByVal value As Long) + mErrNum = value + End Set + End Property + + ' --------------------------------------- + ' Indica il numero della sessione aperta + ' --------------------------------------- + Public Property SessionOpened() As Short + Get + Return mSessionOpened + End Get + Set(ByVal value As Short) + mSessionOpened = value + End Set + End Property + + ' --------------------------------- + ' Indica la stringa di connessione + ' --------------------------------- + Public Property NomeCn() As String + Get + Return mNomeCN + End Get + Set(ByVal value As String) + mNomeCN = value + End Set + End Property + + ' -------------------------------- + ' Indica se la connesione è Debug + ' -------------------------------- + Public Property Debug() As Boolean + Get + Return mDebug + End Get + Set(ByVal value As Boolean) + mDebug = value + End Set + End Property + + ' -------------------------------- + ' Indica la versione Osai + ' 1 = Prima di versione WinNbi 3.0 (Gasper,Nasi,ABB etc) + ' 2 = Versione WinNbi > 3.0 con OS XP + ' 3 = Versione WinNbi > 3.0 con OS 7 + ' 4 = Open Control + ' -------------------------------- + Public Property Version() As Short + Get + Return mVersion + End Get + Set(ByVal value As Short) + mVersion = value + End Set + End Property + ' -------------------------------- + ' Stringa per gestione errori + ' -------------------------------- + Public Property ErrMsg() As String + Get + Return mErrMsg + End Get + Set(ByVal value As String) + mErrMsg = value + End Set + End Property + + ' ------------------------------------------------------------ + ' Boolean che indica se c'è stato un errore di comunicazione + ' ------------------------------------------------------------ + Public Property Communication() As Boolean + Get + Return mCommunicationError + End Get + Set(ByVal value As Boolean) + mCommunicationError = value + End Set + End Property + +#End Region + +#Region "METODI - Open/close connection" + + '------------------------------ + ' Lettura messaggio DIS + '------------------------------ + Public Overridable Function ReadDisMsg(Optional ByVal nProcess As Integer = 1, Optional ByVal nMac As Integer = 1) As String + + Dim szResult As String = "" ' Stringa risultato + + Dim n_ret_state As Short + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + n_ret_state = Server.ReadPartProgramMsg_C(SessionOpened, nProcess, szResult, ErrClass, ErrNum) + + If (n_ret_state = ERRORE_OSAI) Then + + ErrMsg = "Error on reading DIS Messages " & vbCrLf & what_happened() + 'MsgBox(ErrMsg) + Return CShort(ERRORVALUE).ToString ' In uscita setto variabile a ERRORVALUE errore + + Else + ' return con il valore letto + Return szResult + + End If + End If + + Return szResult + End Function + + + ' ------------------------------ + ' Apertura sessione con CN Osai + ' ------------------------------ + Public Overridable Function OpenSession() As Boolean + + Dim nSession As Short = 0 + + Select Case Debug + + Case False ' Se non sono in Debug = 0 + + nSession = Server.OpenSession_C(NomeCn, SessionOpened, ErrClass, ErrNum) ' Apro la sessione + + If (nSession <> ERRORE_OSAI) Then + Connected = True ' Setto connesso = true + Else + Connected = False ' Setto connesso = false + ErrMsg = "Error on open session" & vbCrLf & what_happened() + End If + + + Case True ' Se sono in Debug = 1 + + Connected = True ' Connessione sempre OK + + End Select + + Return Connected + + End Function + + ' ------------------------------ + ' Chiusura sessione con CN Osai + ' ------------------------------ + Public Overridable Function CloseSession() As Boolean + + Dim nSession As Short + Dim bOk As Boolean + + Select Case Debug + + Case False ' Se non sono in Debug = 0 + + nSession = Server.CloseSession_C(SessionOpened, ErrClass, ErrNum) ' Chiudo la sessione + + If (nSession <> ERRORE_OSAI) Then + bOk = True + Else + ErrMsg = "Error on closing session" & vbCrLf & what_happened() + bOk = False + End If + + Case True ' Se sono in Debug = 1 + + bOk = True + + End Select + + Connected = False + + Return bOk + + End Function + + ' ------------------------------ + ' Verifica che il CN sia running + ' ------------------------------ + Public Overridable Function Is_NC_running() As Boolean + + Dim n_ret_state As Short + Dim n_boot_Phase As Short + + n_ret_state = Server.BootPhaseEnquiry_C(SessionOpened, n_boot_Phase, ErrClass, ErrNum) + + If (n_ret_state = ERRORE_OSAI) Then + ErrMsg = "Error on BootPhaseEnquiry_C" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum) + Return False + Exit Function + End If + + If n_boot_Phase <> SYSTEM_UP_PHASE Then + Return False + Else + Return (True) + End If + + End Function + + ' ------------------------------ + ' START PartProgram + ' ------------------------------ + Public Overridable Function StartPP() As Boolean + + Dim n_ret_state As Short + Dim bOk As Boolean + + Select Case Debug + + Case False ' Se non sono in Debug = 0 + + n_ret_state = Server.Cycle_C(SessionOpened, 1, 1, ErrClass, ErrNum) ' Chiudo la sessione + + If (n_ret_state = ERRORE_OSAI) Then + + ErrMsg = "Error on Cycle_C" & vbCrLf & vbCrLf & what_happened() + bOk = False + Else + bOk = True + End If + + Case True ' Se sono in Debug = 1 + + bOk = True + + End Select + + Return bOk + + End Function + +#End Region + +#Region "METODI - NC copy post Vista ...." + + '------------------------------ + ' Copia file da Pc a Cn post Vista .... ritorna zero in caso di errore. + '------------------------------ + Public Overridable Function CopyFileToNC(ByVal sz_logical_drive As String, + ByVal sz_source_filename As String, + ByVal sz_dest_filename As String) As Short + + Dim n_ret_state As Short + + Select Case Debug + + Case False ' Se non sono in Debug = 0 + + n_ret_state = Server.LogFSTransferFileW_C(sz_logical_drive, sz_source_filename, NomeCn, sz_dest_filename, ErrClass, ErrNum) + + If (n_ret_state > 0) Then ' ritorna zero in caso di errore. + Else + ErrMsg = "Error on CopyFileToNC" & vbCrLf & what_happened() + MsgBox(ErrMsg) + + End If + + Case True ' Se sono in Debug = 1 + + n_ret_state = 1 ' Connessione sempre OK + + End Select + + Return n_ret_state + + End Function + + '------------------------------ + ' Copia file da Cn a PC post Vista .... + '------------------------------ + Public Overridable Function CopyFileFromNc(ByVal sz_logical_drive As String, + ByVal sz_source_filename As String, + ByVal sz_dest_filename As String) As Short + + Dim n_ret_state As Short + + Select Case Debug + + Case False ' Se non sono in Debug = 0 + + + n_ret_state = Server.LogFSTransferFileW_C(NomeCn, sz_source_filename, sz_logical_drive, sz_dest_filename, ErrClass, ErrNum) + + If (n_ret_state > 0) Then + Else + ErrMsg = "Error on CopyFileFromNc" & vbCrLf & what_happened() + MsgBox(ErrMsg) + + End If + + + Case True ' Se sono in Debug = 1 + + n_ret_state = 1 ' Connessione sempre OK + + End Select + + Return n_ret_state + + End Function + + '------------------------------ + ' Delete file su Cn post Vista .... + '------------------------------ + Public Overridable Function DeleteFileOnNC(ByVal sz_pathname As String, ByVal sz_filename As String) As Short + + Dim n_ret_state As Short + + Dim n_hidden_drives As Long + Dim n_user_drives As Long + Dim n As Short + Dim sz_drive_name As String + Dim sz_drive_path As String + + Select Case Debug + + Case False ' Se non sono in Debug = 0 + + n_ret_state = Server.LogFSGetNumDrive_C(SessionOpened, n_hidden_drives, n_user_drives, ErrClass, ErrNum) + + sz_drive_name = "" + sz_drive_path = "" + n = 0 + + 'n_ret_state = Server.LogFSGetDriveList_C(SessionOpened, sz_drive_name, n, ErrClass, ErrNum) + + 'n_ret_state = Server.LogFSSetSecurityLevel_C(SessionOpened, "OEM", CndexLinkDotNet.Cndex.SECURITY_LEVEL_C.SECURITY_LEV_OEM_ADMIN_C, n, ErrClass, ErrNum) + + 'n_ret_state = Server.LogFSGetDrivePath_C(SessionOpened, sz_drive_name, sz_drive_path, CndexLinkDotNet.Cndex.SECURITY_LEVEL_C.SECURITY_LEV_OEM_ADMIN_C, ErrClass, ErrNum) + + n_ret_state = Server.LogFSRemoveFile_C(SessionOpened, sz_pathname, sz_filename, ErrClass, ErrNum) + + If (n_ret_state > 0) Then + Else + ErrMsg = "Error on DeleteFileOnNC" & vbCrLf & what_happened() + MsgBox(ErrMsg) + + End If + + Case True ' Se sono in Debug = 1 + + n_ret_state = 1 ' Connessione sempre OK + + End Select + + Return n_ret_state + + End Function + +#End Region + +#Region "METODI - Lettura/scrittura variabili CN" + + '------------------------------ + ' Lettura variabile Bool su Cn + '------------------------------ + Public Overridable Function ReadBoolVar(ByVal szVar As stVAR, Optional ByVal nProcess As Integer = 1) As Short + + Dim nValues(0) As Short ' Array (lo vuole la libreria Osai) che conterrà il valore letto + Dim nComOk As Short ' Se 1 lettura OK Se 0 lettura KO + Dim nNumVarToBeReaded As Integer = 1 ' Numero di variabili da leggere (fisso a 1) + + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nValues(0) = 0 + + nComOk = Server.ReadVarWord_C(SessionOpened, CndexLinkDotNet.Cndex.GW_CODE, nProcess, szVar.nAddress, nNumVarToBeReaded, nValues, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = "Error on reading bool variable" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum) + Return CShort(ERRORVALUE) ' In uscita setto variabile a ERRORVALUE errore + + Else + + If ((nValues(0) And (2 ^ szVar.nBit)) <> 0) Then ' Maschera per controllare solo il bit che mi interessa + nValues(0) = 1 + Else + nValues(0) = 0 + End If + + ' return con il valore letto + Return nValues(0) + + End If + + + Else ' gestione se debug + + ' ritorno valore fittzio + Return 1 + + End If + + End Function + + ' ------------------------------- + ' Scrittura variabile Bool su Cn + '--------------------------------- + Public Overridable Function WriteBoolVar(ByVal szVar As stVAR, ByVal nValue As Short, Optional ByVal nProcess As Integer = 1) As Boolean + + Dim nComOk As Short ' Se 1 scrittura OK Se 0 lettura KO + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nComOk = Server.WriteVarWordBit_C(SessionOpened, CndexLinkDotNet.Cndex.GW_CODE, nProcess, szVar.nAddress, szVar.nBit, nValue, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = "Error on writing bool variable" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum) + Return False ' In uscita setto variabile a ERRORVALUE errore + + Else + + Return True + + End If + + ' se sono in debug + Else + + Return True + + End If ' Endif gestione macchina collegata + + End Function + + '------------------------------ + ' Lettura variabile Short su Cn + '------------------------------ + Public Overridable Function ReadShortVar(ByVal szVar As stVAR, Optional ByVal nProcess As Integer = 1) As Short + + Dim nValues(0) As Short ' Array (lo vuole la libreria Osai) che conterrà il valore letto + Dim nComOk As Short ' Se 1 lettura OK Se 0 lettura KO + Dim nNumVarToBeReaded As Integer = 1 ' Numero di variabili da leggere (fisso a 1) + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nValues(0) = 0 + + nComOk = Server.ReadVarWord_C(SessionOpened, CndexLinkDotNet.Cndex.GW_CODE, nProcess, szVar.nAddress, nNumVarToBeReaded, nValues, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = "Error on ReadVarWord_C" & vbCrLf & what_happened() + Return CShort(ERRORVALUE) ' In uscita setto variabile a ERRORVALUE errore + + Else + + ' return con il valore letto + Return nValues(0) + + End If + + Else ' gestione se debug + + ' ritorno true + Return 1 + + End If + + End Function + + ' ------------------------------- + ' Scrittura variabile Short su Cn + '--------------------------------- + Public Overridable Function WriteShortVar(ByVal szVar As stVAR, ByVal nValue As Short, Optional ByVal nProcess As Integer = 1) As Boolean + + Dim nComOk As Short ' Se 1 scritt. OK Se 0 lettura KO + Dim nValues(0) As Short ' Array (lo vuole la libreria Osai) che conterrà il valore letto + Dim nNumVarToBeWrited As Integer = 1 ' Numero di variabili da leggere (fisso a 1) + + + nValues(0) = nValue + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nComOk = Server.WriteVarWord_C(SessionOpened, CndexLinkDotNet.Cndex.GW_CODE, nProcess, szVar.nAddress, nNumVarToBeWrited, nValues, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = "Error on writing short variable" & vbCrLf & what_happened() + Return False ' In uscita setto variabile a ERRORVALUE errore + + Else + + Return True + + End If + + ' se sono in debug + Else + + Return True + + End If ' Endif gestione macchina collegata + + End Function + + '-------------------------------- + ' Lettura variabile G Double su Cn + '-------------------------------- + Public Overridable Function ReadDoubleVar(ByVal szVar As stVAR, Optional ByVal nProcess As Integer = 1) As Double + + Dim nValues(0) As Double ' Array (lo vuole la libreria Osai) che conterrà il valore letto + Dim nComOk As Short ' Se 1 lettura OK Se 0 lettura KO + Dim nNumVarToBeReaded As Integer = 1 ' Numero di variabili da leggere (fisso a 1) + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nValues(0) = 0 + + nComOk = Server.ReadVarDouble_C(SessionOpened, CndexLinkDotNet.Cndex.GD_CODE, nProcess, szVar.nAddress, nNumVarToBeReaded, nValues, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = "Error on reading double variable" & vbCrLf & what_happened() + Return CDbl(ERRORVALUE) ' In uscita setto variabile a ERRORVALUE errore + + Else + + ' return con il valore letto + Return nValues(0) + + End If + + + Else ' gestione se debug + + ' ritorno true + Return 1.0 + + End If + + End Function + + ' --------------------------------- + ' Scrittura variabile G Double su Cn + '---------------------------------- + Public Overridable Function WriteDoubleVar(ByVal szVar As stVAR, ByVal nValue As Double, Optional ByVal nProcess As Integer = 1) As Boolean + + Dim nComOk As Short ' Se 1 scritt. OK Se 0 lettura KO + Dim nValues(0) As Double ' Array (lo vuole la libreria Osai) che conterrà il valore letto + Dim nNumVarToBeWrited As Integer = 1 ' Numero di variabili da leggere (fisso a 1) + + + nValues(0) = nValue + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nComOk = Server.WriteVarDouble_C(SessionOpened, CndexLinkDotNet.Cndex.GD_CODE, nProcess, szVar.nAddress, nNumVarToBeWrited, nValues, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = "Error on writing double variable" & vbCrLf & what_happened() + Return False ' In uscita setto variabile a ERRORVALUE errore + + Else + + Return True + + End If + + ' se sono in debug + Else + + Return True + + End If ' Endif gestione macchina collegata + + End Function + + '----------------------------------- + ' Lettura variabile E (Double) su Cn + '----------------------------------- + Public Overridable Function ReadVarE(ByVal szVar As stVAR, Optional ByVal nProcess As Integer = 1) As Double + + Dim nValues(0) As Double ' Array (lo vuole la libreria Osai) che conterrà il valore letto + Dim nComOk As Short ' Se 1 lettura OK Se 0 lettura KO + Dim nNumVarToBeReaded As Integer = 1 ' Numero di variabili da leggere (fisso a 1) + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nValues(0) = 0 + + nComOk = Server.ReadVarDouble_C(SessionOpened, CndexLinkDotNet.Cndex.E_CODE, nProcess, szVar.nAddress, nNumVarToBeReaded, nValues, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = "Error on reading double variable" & vbCrLf & what_happened() + Return CDbl(ERRORVALUE) ' In uscita setto variabile a ERRORVALUE errore + + Else + + ' return con il valore letto + Return nValues(0) + + End If + + + Else ' gestione se debug + + ' ritorno valore fittizio + Return 1.0 + + End If + + End Function + + ' --------------------------------- + ' Scrittura variabile E (Double) su Cn + '---------------------------------- + Public Overridable Function WriteVarE(ByVal szVar As stVAR, ByVal nValue As Double, Optional ByVal nProcess As Integer = 1) As Boolean + + Dim nComOk As Short ' Se 1 scr. OK ; Se 0 scrittura KO + Dim nValues(0) As Double ' Array (lo vuole la libreria Osai) che conterrà il valore letto + Dim nNumVarToBeWrited As Integer = 1 ' Numero di variabili da leggere (fisso a 1) + + + nValues(0) = nValue + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nComOk = Server.WriteVarDouble_C(SessionOpened, CndexLinkDotNet.Cndex.E_CODE, nProcess, szVar.nAddress, nNumVarToBeWrited, nValues, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = "Error on writing double variable" & vbCrLf & what_happened() + Return False ' In uscita setto variabile a ERRORVALUE errore + + Else + + Return True + + End If + + ' se sono in debug + Else + + Return True + + End If ' Endif gestione macchina collegata + + End Function + + '----------------------------------- + ' Lettura variabile L (Double) su Cn + '----------------------------------- + Public Overridable Function ReadVarL(ByVal szVar As stVAR, Optional ByVal nProcess As Integer = 1) As Double + + ' sulla serie 10 per leggere una variabile L occorre leggere un record della USER TABLE + + Dim nComOk As Short ' Se 1 lettura OK ; Se 0 lettura KO + + Dim UserRecord As CndexLinkDotNet.Cndex.USER_TABLE = Nothing + Dim nRecNumber As Short ' da 1 a 100 + Dim nRecIndex As Short ' da 1 a 4 all interno del record + Dim value As Double + + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nRecNumber = (szVar.nAddress / 4) + 1 + nRecIndex = (szVar.nAddress Mod 4) + 1 + + nComOk = Server.GetUserTabRecord_C(SessionOpened, nRecNumber, UserRecord, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = "Error on reading L variable" & vbCrLf & what_happened() + Return -99999.99 ' In uscita setto variabile a ERRORVALUE errore + + Else + Select Case nRecIndex + Case 1 + value = UserRecord.user1 + Case 2 + value = UserRecord.user2 + Case 3 + value = UserRecord.user3 + Case 4 + value = UserRecord.user4 + + End Select + + Return value + + End If + + ' se sono in debug + Else + + Return 0.0 + + End If ' + + + End Function + + ' --------------------------------- + ' Scrittura variabile L (Double) su Cn + '---------------------------------- + Public Overridable Function WriteVarL(ByVal szVar As stVAR, ByVal nValue As Double, Optional ByVal nProcess As Integer = 1) As Boolean + + ' sulla serie 10 per scrivere una variabile L occorre leggere un record della USER TABLE, sostituire il valore e riscrivere il record + + Dim nComOk As Short ' Se 1 lettura OK ; Se 0 lettura KO + + Dim UserRecord As CndexLinkDotNet.Cndex.USER_TABLE = Nothing + Dim nRecNumber As Short ' da 1 a 100 + Dim nRecIndex As Short ' da 1 a 4 all interno del record + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nRecNumber = (szVar.nAddress / 4) + 1 + nRecIndex = (szVar.nAddress Mod 4) + 1 + + nComOk = Server.GetUserTabRecord_C(SessionOpened, nRecNumber, UserRecord, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = "Error on read L variable" & vbCrLf & what_happened() + Return False ' In uscita setto variabile a ERRORVALUE errore + + Else + Select Case nRecIndex + Case 1 + UserRecord.user1 = nValue + Case 2 + UserRecord.user2 = nValue + Case 3 + UserRecord.user3 = nValue + Case 4 + UserRecord.user4 = nValue + + End Select + + nComOk = Server.SetUserTabRecord_C(SessionOpened, nRecNumber, UserRecord, ErrClass, ErrNum) + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = "Error on writing L variable" & vbCrLf & what_happened() + Return False ' In uscita setto variabile a ERRORVALUE errore + + Else + Return True + End If + + End If + + Else ' se sono in debug + Return True + End If ' + + End Function + + '-------------------------------- + ' Lettura variabile SC su Cn + '-------------------------------- + Public Overridable Function ReadSCVar(ByVal nIndex As Integer, ByVal nNumChar As Integer, Optional ByVal nProcess As Integer = 1) As String + + Dim szValue As String = "" + Dim nComOk As Short ' Se 1 lettura OK Se 0 lettura KO + Dim szText As String = "" + + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nComOk = Server.ReadVarText_C(SessionOpened, CndexLinkDotNet.Cndex.SC_CODE, nProcess, nIndex, nNumChar, szValue, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = "Error on reading SC variable" & vbCrLf & what_happened() + Return "" ' In uscita setto variabile a ERRORVALUE errore + + Else + + ' return con il valore letto + Return szValue + + End If + + + Else ' gestione se debug + + ' ritorno true + Return "SC VAR - DEBUG" + + End If + + + End Function + + ' --------------------------------- + ' Scrittura variabile SC su Cn + '---------------------------------- + Public Overridable Function WriteSCVar(ByVal nIndex As Integer, ByVal nNumChar As Integer, ByVal szText As String, Optional ByVal nProcess As Integer = 1) As Boolean + + Dim nComOk As Short ' Se 1 scritt. OK Se 0 lettura KO + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nComOk = Server.WriteVarText_C(SessionOpened, CndexLinkDotNet.Cndex.SC_CODE, nProcess, nIndex, nNumChar, szText, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = "Error on writing SC variable" & vbCrLf & what_happened() + Return False ' In uscita setto variabile a ERRORVALUE errore + + Else + + Return True + + End If + + ' se sono in debug + Else + + Return True + + End If ' Endif gestione macchina collegata + + End Function + + '-------------------------------- + ' Lettura variabile MW ( word ) su Cn + '-------------------------------- + Public Overridable Function ReadVarMW(ByVal szVar As stVAR, Optional ByVal nProcess As Integer = 1) As UShort + + Dim nValues(0) As Short ' Array (lo vuole la libreria Osai) che conterrà  il valore letto + Dim nComOk As Short ' Se 1 scr. OK Se 0 lettura KO + Dim nNumVarToRead As Short = 1 ' Numero di variabili da leggere (fisso a 1) + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nValues(0) = 0 + + nComOk = Server.ReadVarWord_C(SessionOpened, CndexLinkDotNet.Cndex.MW_CODE, nProcess, szVar.nAddress, nNumVarToRead, nValues, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = "Error on reading MW variable" & vbCrLf & what_happened() + Return (9999) ' In uscita setto variabile a ERRORVALUE errore + + Else + + ' return con il valore letto + Return nValues(0) + + End If + + + Else ' gestione se debug + + ' ritorno true + Return 1 + + End If + + End Function + + '-------------------------------- + ' Lettura multi variabile MW su Cn + '-------------------------------- + Public Overridable Function ReadMultipleVarMW(ByVal nAddress As Integer, ByRef nValues() As Short, ByVal nNumVarToRead As Short, Optional ByVal nProcess As Integer = 1) As Boolean + + Dim nComOk As Short ' Se 1 scr. OK Se 0 lettura KO + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nValues(0) = 0 + + nComOk = Server.ReadVarWord_C(SessionOpened, CndexLinkDotNet.Cndex.MW_CODE, nProcess, nAddress, nNumVarToRead, nValues, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = "Error on reading multiple MW variable" & vbCrLf & what_happened() + Return False ' In uscita setto variabile a ERRORVALUE errore + + Else + Return True + End If + + Else ' gestione se debug + Return True + End If + + End Function + + +#End Region + +#Region "METODI - Info da CN e varie" + + ' --------------------------------- + ' Lettura Warning Msg + '---------------------------------- + Public Overridable Function ReadWarning(ByRef szText As String) As Boolean + + Dim nComOk As Short ' Se 1 lettura OK Se 0 lettura KO + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nComOk = Server.ReadWarningMsg_C(SessionOpened, szText, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = "Error on reading Warning Messages" & vbCrLf & what_happened() + Return False ' In uscita setto variabile a ERRORVALUE errore + + Else + + Return True + + End If + + ' se sono in debug + Else + + Return True + + End If ' Endif gestione macchina collegata + + End Function + + ' --------------------------------- + ' Lettura programma corrente + '---------------------------------- + Public Overridable Function GetActiveProgram(ByVal nProcess As Integer) As String + Dim szMainPrg As String = "" + Dim szSubProgram As String = "" + Dim nComOk As Short ' Se 1 lettura OK Se 0 lettura KO + + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nComOk = Server.GetActivePartProgram_C(SessionOpened, nProcess, 1, szMainPrg, szSubProgram, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = "Error on GetActivePartProgram_C" & vbCrLf & what_happened() + Return "Error" ' In uscita setto variabile a ERRORVALUE errore + + Else + + szMainPrg = Replace(szMainPrg, vbNullChar, "") ' Pulisco i caratteri farlocchi ... + Return szMainPrg + + End If + + ' se sono in debug + Else + + Return "OK" + + End If ' Endif gestione macchina collegata + + End Function + + ' --------------------------------------------------------------- + ' Ritorna True se lo stato del CN è IDLE + '---------------------------------------------------------------- + Public Overridable Function IsResetStatus(Optional ByVal nProcess As Integer = 1) As Boolean + Dim RetVal As Short + Dim ncInfo As New CndexLinkDotNet.Cndex.GETINFO1DATA + + RetVal = Server.GetNcInfo1_C(SessionOpened, nProcess, ncInfo, ErrClass, ErrNum) + + If RetVal > 0 Then + + If ncInfo.mode_select = 0 Then + Return True + Else + Return False + End If + + Else + 'MsgBox("Error in IsResetStatus" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum)) + Return 0 + End If + + End Function + + ' --------------------------------- + ' Lettura info CN 1 + '---------------------------------- + Public Overridable Function NcInfo1(ByRef ncInfo As CndexLinkDotNet.Cndex.GETINFO1DATA, Optional ByVal nProcess As Integer = 1) As Boolean + + Dim nComOk As Short ' Se 1 lettura OK Se 0 lettura KO + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nComOk = Server.GetNcInfo1_C(SessionOpened, nProcess, ncInfo, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = "Error on reading NcInfo1" & vbCrLf & what_happened() + Return False ' In uscita setto variabile a ERRORVALUE errore + + Else + + Return True + + End If + + ' se sono in debug + Else + + Return True + + End If ' Endif gestione macchina collegata + + End Function + + ' --------------------------------- + ' Lettura info CN 2 + '---------------------------------- + Public Overridable Function NcInfo2(ByRef ncInfo As CndexLinkDotNet.Cndex.GETINFO2DATA, Optional ByVal nProcess As Integer = 1) As Boolean + + Dim nComOk As Short ' Se 1 lettura OK Se 0 lettura KO + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nComOk = Server.GetNcInfo2_C(SessionOpened, nProcess, ncInfo, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = "Error on reading NcInfo2" & vbCrLf & what_happened() + Return False ' In uscita setto variabile a ERRORVALUE errore + + Else + + Return True + + End If + + ' se sono in debug + Else + + Return True + + End If ' Endif gestione macchina collegata + + End Function + + '------------------------------ + ' Lettura process stato info Cn + '------------------------------ + ' + ' ha causato molto dispiacere il fatto che se uso la Server.GetProcessStatus_C con winnbi < 3.1.1 + ' dà una UNRESOLVED a run time della GetProcessStatus_C8 ( notare l' "8" finale ) nella CNDEXLINK.DLL + ' + ' soluzione : con Win Nbi recenti, uso Server.GetProcessStatus_C ; con Winnbi vecchi, faccio override + ' di questa funzione USANDO LA STRUTTURA NUOVA CndexLinkDotNet.Cndex.PROCDATA ( altrimenti non è possibile + ' fare override; ma poi uso una variabile locale tipo vecchio ( PROCDATA ) e in caso di esito positivo, + ' copio i dati risultanti. + ' + ' Attenzione : si ha lo stesso problema anche con la Server.GetNcInfo1_C ma curiosamente non con le funzioni + ' di lettura scrittura variabili CN .... boh !! + Public Overridable Function NcProcessStatus(ByRef ncInfo As CndexLinkDotNet.Cndex.PROCDATA, Optional ByVal nProcess As Integer = 1) As Boolean + + Dim nComOk As Short ' Se 1 lettura OK Se 0 lettura KO + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nComOk = Server.GetProcessStatus_C(SessionOpened, nProcess, ncInfo, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = "Error on GetProcessStatus_C" & vbCrLf & what_happened() + Return False ' In uscita setto variabile a ERRORVALUE errore + + Else + + Return True + + End If + + ' se sono in debug + Else + + Return True + + End If ' Endif gestione macchina collegata + + End Function + + ' --------------------------------- + ' Lettura dati assi + '---------------------------------- + Public Overridable Function GetAxesValue(ByRef AxesData() As CndexLinkDotNet.Cndex.GETINTDATA, ByVal AsciiNameAxe As Byte, ByVal nTypeCoord As Integer, Optional ByVal nProcess As Integer = 1) As Boolean + + Dim nComOk As Short ' Se 1 lettura OK Se 0 lettura KO + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nComOk = Server.GetAxesPosition_C(SessionOpened, nProcess, AsciiNameAxe, nTypeCoord, 1, AxesData, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = "Error on reading Axes Data" & vbCrLf & what_happened() + Return False ' In uscita setto variabile a ERRORVALUE errore + + Else + + Return True + + End If + + ' se sono in debug + Else + + Return True + + End If ' Endif gestione macchina collegata + + End Function + + ' ------------------------------------------------- + ' Lettura stato macchina su processo passato per parametro + '-------------------------------------------------- + Public Overridable Function GetMachineStatus(Optional ByVal nProcess As Integer = 1) As Byte + Dim RetVal As Short + Dim ncInfo As New CndexLinkDotNet.Cndex.GETINFO1DATA + ' se macchina collegata e non in debug + + If (Not (Debug)) Then + + RetVal = Server.GetNcInfo1_C(SessionOpened, nProcess, ncInfo, ErrClass, ErrNum) + If RetVal > 0 Then + Return ncInfo.status + + Else + ErrMsg = "Error on reading Machine Status" & vbCrLf & what_happened() + Return 0 + End If + ' se sono in debug + Else + Return True + End If + End Function + + ' ------------------------------------------------- + ' Lettura modalità  macchina su processo passato per parametro + '-------------------------------------------------- + Public Overridable Function GetModeSelected(Optional ByVal nProcess As Integer = 1) As Byte + Dim RetVal As Short + Dim ncInfo As New CndexLinkDotNet.Cndex.GETINFO1DATA + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + RetVal = Server.GetNcInfo1_C(SessionOpened, nProcess, ncInfo, ErrClass, ErrNum) + If RetVal > 0 Then + Return ncInfo.mode_select + + Else + ErrMsg = "Error on reading Machine Mode" & vbCrLf & what_happened() + Return 0 + End If + ' se sono in debug + Else + Return True + End If + End Function + + ' --------------------------------- + ' CN in modalità  AUTO + '---------------------------------- + Public Overridable Function SetAutoMode(Optional ByVal nProcess As Integer = 1) As Boolean + + Dim nComOk As Short ' Se 1 OK ; Se 0 KO + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nComOk = Server.SetProcessMode_C(SessionOpened, nProcess, 2, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = "Error on SetAutoMode" & vbCrLf & what_happened() + Return False ' In uscita setto variabile a ERRORVALUE errore + + Else + + Return True + + End If + + ' se sono in debug + Else + Return True + End If ' Endif gestione macchina collegata + + End Function + + ' --------------------------------- + ' Seleziona part program da rendere attivo + '---------------------------------- + Public Overridable Function ActivateProgramOnNC(ByRef szNamePrg As String, Optional ByVal nProcess As Integer = 1) As Boolean + + ' returns TRUE if activate OK + + Dim nComOk As Short + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nComOk = Server.SelectPartProgram_C(SessionOpened, nProcess, szNamePrg, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = Message.msg(112) & szNamePrg & vbCrLf & what_happened() + Return False ' In uscita setto variabile a ERRORVALUE errore + + Else + + Return True + + End If + + ' se sono in debug + Else + Return True + End If ' Endif gestione macchina collegata + + End Function + + Public Overridable Function ActivatePP(ByVal szPartPrg As String, Optional ByVal nProcess As UShort = 1) As Short + Return ActivateProgramOnNC(szPartPrg, nProcess) + End Function + + ' --------------------------------- + ' Setta modalità CN Edit, Auto, MDI, .... + '---------------------------------- + Public Overridable Function SetMode(ByVal nMode As Short, Optional ByVal nProcess As Integer = 1) As Boolean + + Dim nComOk As Short ' Se 1 lettura OK Se 0 lettura KO + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nComOk = Server.SetProcessMode_C(SessionOpened, nProcess, nMode, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = Message.msg(119) & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum) + Return False ' In uscita setto variabile a ERRORVALUE errore + + Else + + Return True + + End If + + ' se sono in debug + Else + + Return True + + End If ' Endif gestione macchina collegata + + End Function + + ' --------------------------------- + ' Stringa MDI da eseguire + '---------------------------------- + Public Overridable Function SetMdiString(ByRef szString As String, Optional ByVal nProcess As Integer = 1) As Boolean + + Dim nComOk As Short ' Se 1 lettura OK Se 0 lettura KO + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nComOk = Server.SetMdiString_C(SessionOpened, nProcess, szString, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = Message.msg(120) & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum) + Return False ' In uscita setto variabile a ERRORVALUE errore + + Else + + Return True + + End If + + ' se sono in debug + Else + + Return True + + End If ' Endif gestione macchina collegata + + End Function + +#End Region + +#Region " funzione nuove per open series, qui vuote" + + + + Public Overridable Function GetActualTool(Optional ByVal nProcess As Integer = 1) As Double + Return 0 + End Function + + Public Overridable Function GetActualCorr(Optional ByVal nProcess As Integer = 1) As UShort + Return 0 + End Function + + Public Overridable Function GetFeedOverride(Optional ByVal nProcess As Integer = 1) As UShort + Return 0 + End Function + + Public Overridable Function GetRapidOverride(Optional ByVal nProcess As Integer = 1) As UShort + Return 0 + End Function + + Public Overridable Function GetSpeedOverride(Optional ByVal nProcess As Integer = 1) As UShort + Return 0 + End Function + + Public Overridable Function GetProgrammedRapid(Optional ByVal nProcess As Integer = 1) As Double + Return 0.0 + End Function + + Public Overridable Function GetProgrammedFeed(Optional ByVal nProcess As Integer = 1) As Double + Return 0.0 + End Function + + Public Overridable Function GetProgrammedSpeed(Optional ByVal nProcess As Integer = 1) As Double + Return 0.0 + End Function + + Public Overridable Function GetActualFeed(Optional ByVal nProcess As Integer = 1) As Double + Return 0.0 + End Function + + Public Overridable Function GetActualSpeed(Optional ByVal nProcess As Integer = 1) As Double + Return 0.0 + End Function + + Public Overridable Function GetActualToolLen(ByVal nRecord As UInteger) As Double + + Dim n_ret As Short + Dim pRecordBuff As CndexLinkDotNet.Cndex.OFFSET_TABLE + + If (Not (Debug)) Then + + n_ret = Server.GetOffsetTabRecord_C(SessionOpened, nRecord, pRecordBuff, ErrClass, ErrNum) + + If (n_ret = ERRORE_OSAI) Then + ErrMsg = Message.msg(120) & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum) + Return -999998.999 ' In uscita setto variabile a ERRORVALUE errore + Else + Return pRecordBuff.tactl1 + End If + Else ' se sono in debug + Return 10.0 + End If ' Endif gestione macchina collegata + + End Function + + Public Overridable Function GetActualToolDiam(ByVal nRecord As UInteger) As Double + + Dim n_ret As Short + Dim pRecordBuff As CndexLinkDotNet.Cndex.OFFSET_TABLE + + If (Not (Debug)) Then + + n_ret = Server.GetOffsetTabRecord_C(SessionOpened, nRecord, pRecordBuff, ErrClass, ErrNum) + + If (n_ret = ERRORE_OSAI) Then + ErrMsg = Message.msg(120) & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum) + Return -999997.999 ' In uscita setto variabile a ERRORVALUE errore + Else + Return pRecordBuff.tdiameter + End If + Else ' se sono in debug + Return 20.0 + End If ' Endif gestione macchina collegata + + End Function + + Public Overridable Function GetActualToolDiam2(ByVal nRecord As UInteger) As Double + + Dim n_ret As Short + Dim pRecordBuff As CndexLinkDotNet.Cndex.OFFSET_TABLE + + If (Not (Debug)) Then + + n_ret = Server.GetOffsetTabRecord_C(SessionOpened, nRecord, pRecordBuff, ErrClass, ErrNum) + + If (n_ret = ERRORE_OSAI) Then + ErrMsg = Message.msg(120) & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum) + Return -999997.999 ' In uscita setto variabile a ERRORVALUE errore + Else + Return pRecordBuff.tcacdiam + + End If + Else ' se sono in debug + Return 20.0 + End If ' Endif gestione macchina collegata + + End Function + + Public Overridable Function PutFile(ByRef szPathFile As String, ByVal szTargetPath As String, ByRef nErrClass As UInteger, ByRef nErrNum As UInteger, ByRef FileSize As Integer) As Integer + Return 0 + End Function + + Public Overridable Function ReadPPLines(ByVal nProcess As Integer, ByRef EightLines() As String, ByRef nErrClass As UInteger, ByRef nErrNum As UInteger) As Boolean + Return True + End Function + +#End Region + +#Region "Controllo win Nbi" + + ''' + ''' 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 + Dim b_ret As Boolean + + b_ret = False + + Try + + '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("more versions of WinNBI found." & vbNewLine & + "Please ckeck keys in HKEY_LOCAL_MACHINE\SOFTWARE\OSAI\WinNBI", + "Error on GetWinnbi", MessageBoxButtons.OK, MessageBoxIcon.Error) + End If + + 'MsgBox("readValue(0) = " & readValue(0) & vbCrLf & "readValue.Count = " & readValue.Count.ToString) + + ' in XP la 4.0.1 mi ritorna 3.2 ....errore di lunghezza + + If readValue(0).Length < 4 Then + readValue(0) = readValue(0) & "0" + End If + + 'La precisione di Osai nel rilasciare le versioni !! + ' If readValue(0) = "3.05" Then readValue(0) = "3.0.5" + ' If readValue(0) = "3.03" Then readValue(0) = "3.0.3" + + If (readValue(0).Substring(0, 3) = "3.0") And (readValue(0).Substring(3, 1) <> ".") Then + readValue(0) = Replace(readValue(0), "3.0", "3.0.") + End If + + + For Each szVersion As String In readValue + Ver = New System.Version(szVersion) + + '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 + b_ret = True + + Next + + + 'DotNet = False '!! + + Catch e As Exception + + If Not b_force_S10WLK32 Then + MsgBox("Unable to get WinNbi version... " & e.ToString, MsgBoxStyle.Critical, "error in GetWinnbi") + End If + + b_ret = False + + + End Try + + Return b_ret + + End Function + + ''' + ''' restituisce la versione installata di WINNBI + ''' + Shared Function GetWinnbi_version() As String + + Dim readValue() As String + Dim key As RegistryKey + + Try + 'leggo le versioni installate + key = Registry.LocalMachine.OpenSubKey("SOFTWARE\OSAI\WinNBI") + readValue = key.GetSubKeyNames + + 'La precisione di Osai nel rilasciare le versioni !! + If readValue(0) = "3.05" Then readValue(0) = "3.0.5" + If readValue(0) = "3.03" Then readValue(0) = "3.0.3" + Return readValue(0) + + Catch e As Exception + MsgBox("Unable to get WinNbi version... " & e.ToString, "error in GetWinnbi_version") + + Return "0.9.99" + + End Try + + + + + End Function + +#End Region + +#Region "Explain what happened" + + ' Error codes for NETBIOS class (class 3) + ' + ' 0x0001 Illegal buffer length + ' 0x0003 Illegal command + ' 0x0005 Command timed out + ' 0x0006 Message incomplete, issue another command + ' 0x0007 Illegal buffer address + ' 0x0008 Session number out of range + ' 0x0009 No resource available + ' 0x000a Session closed + ' 0x000b Command cancelled + ' 0x000d Duplicate name + ' 0x000e Name table full + ' 0x000f No deletions, name has active sessions + ' 0x0011 Local session table full + ' 0x0012 Remote session table full + ' 0x0013 Illegal name number + ' 0x0014 No callname + ' 0x0015 Cannot put * in NCB_NAME + ' 0x0016 Name in use on remote adapter + ' 0x0017 Name deleted + ' 0x0018 Session ended abnormally + ' 0x0019 Name conflict detected + ' 0x0021 Interface busy, IRET before retrying + ' 0x0022 Too many commands outstanding, retry later + ' 0x0023 Ncb_lana_num field invalid + ' 0x0024 Command completed while cancel occurring + ' 0x0026 Command not valid to cancel + ' 0x0030 Name defined by anther local process + ' 0x0034 Environment undefined. RESET required + ' 0x0035 Required OS resources exhausted + ' 0x0036 Max number of applications exceeded + ' 0x0037 No saps available for netbios + ' 0x0038 Requested resources are not available + ' 0x0039 Invalid ncb address or length > segment + ' 0x003B Invalid NCB DDID + ' 0x003C Lock of user area failed + ' 0x003f NETBIOS not loaded + ' 0x0040 System error + + Const NETBIOS_class As Integer = 3 + + Const No_callname_err As Integer = 20 ' 0x0014 No callname + + Const CNC_Error_class As Integer = 4 + + Const CL4_Syntax_error As Integer = 1 + Const CL4_Format_error As Integer = 8 + Const CL4_Undefined_symbol As Integer = 9 + Const CL4_Duplicated_label As Integer = 53 + Const CL4_Label_too_long As Integer = 55 + Const CL4_Sub_Table_overflow As Integer = 56 + Const CL4_Label_Table_overflow As Integer = 57 + Const CL4_Part_program_handling_error As Integer = 65 + Const CL4_Part_program_not_found As Integer = 66 + + Const CNDEX_INTERFACE_class As Integer = 10 + + Const ERR_SERVER_ALREADY_CREATED As Integer = 1 ' CNDEX server already created + Const ERR_CREATING_SERVER_OBJECT As Integer = 2 ' Error creating CNDEX server + Const ERR_SERVER_NOT_CREATED As Integer = 3 ' CNDEX server never created or already released + Const ERR_INVALID_PARAMETER As Integer = 4 ' Invalid value for one or more parameters + Const ERR_OPTION_NOT_ENABLED As Integer = 5 ' The COMMUNICATION option is not enabled for connected CNC + + + Function what_happened() As String + Dim sz_return As String + + sz_return = "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum) + + Select Case ErrClass + + Case NETBIOS_class ' --------------------------- class3 - NETBIOS ----------------- + + Select Case ErrNum + Case No_callname_err + sz_return = "Please verify connection ( cable etc. )" & vbCrLf & vbCrLf & "( No call name - Class 3 err 0x14 )" + + End Select + + Case CNC_Error_class ' --------------------------- class4 - CNC_Error ----------------- + + Select Case ErrNum + Case CL4_Syntax_error + sz_return = "Syntax error" & vbCrLf & vbCrLf & "( Class 4 err 1 )" + + Case CL4_Format_error + sz_return = "Format error" & vbCrLf & vbCrLf & "( Class 4 err 8 )" + + Case CL4_Undefined_symbol + sz_return = "Undefined symbol" & vbCrLf & vbCrLf & "( Class 4 err 9 )" + + Case CL4_Duplicated_label + sz_return = "Duplicated label" & vbCrLf & vbCrLf & "( Class 4 err 53 )" + + Case CL4_Label_too_long + sz_return = "Label too long" & vbCrLf & vbCrLf & "( Class 4 err 55 )" + + Case CL4_Sub_Table_overflow + sz_return = "Subroutine Table overflow" & vbCrLf & vbCrLf & "( Class 4 err 56 )" + + Case CL4_Label_Table_overflow + sz_return = "Label Table overflow" & vbCrLf & vbCrLf & "( Class 4 err 57 )" + + Case CL4_Part_program_handling_error + sz_return = "Part_program_handling_error" & vbCrLf & vbCrLf & "( Class 4 err 65 )" + + Case CL4_Part_program_not_found + sz_return = "Part_program_not_found" & vbCrLf & vbCrLf & "( Class 4 err 66 )" + + End Select ' class4 - CNC_Error + + + + Case CNDEX_INTERFACE_class ' --------------------------- class 10 - CNDEX_INTERFACE ----------------- + + Select Case ErrNum + Case ERR_SERVER_ALREADY_CREATED + sz_return = "CNDEX server already created ( Class 10 err 1 )" + + Case ERR_CREATING_SERVER_OBJECT + sz_return = "Error creating CNDEX server ( Class 10 err 2 )" + + Case ERR_SERVER_NOT_CREATED + sz_return = "CNDEX server never created or already released ( Class 10 err 3 )" + + Case ERR_INVALID_PARAMETER + sz_return = "Invalid value for one or more parameters ( Class 10 err 4 )" + + Case ERR_OPTION_NOT_ENABLED + sz_return = vbCrLf & "The 'A06 CndexLink communication' option is not enabled on connected CNC ( Class 10 err 5 )" + End Select + + End Select + + + Return sz_return + + End Function + +#End Region + +End Class + diff --git a/CVCncLib/Modules/ComCNOsaiVB6.vb b/CVCncLib/Modules/ComCNOsaiVB6.vb new file mode 100644 index 00000000..d6f57e44 --- /dev/null +++ b/CVCncLib/Modules/ComCNOsaiVB6.vb @@ -0,0 +1,377 @@ +' +' libreria : VBlib +' file : ComCNOsaiVB6 +' +' funzioni : connessione con CN OSAI come classe - override metodi per vecchie versioni WinNbi +' +' copyright 2008-2016 C.Viviani +' +Imports Microsoft.Win32 + +Public Class ComCNOSAIVB6 + + Inherits ComCNOsai + + Public Sub New(ByRef szRemoteName As String, ByRef b_debug As Boolean) + + MyBase.New(szRemoteName, b_debug) + + End Sub + + Public Overrides Function OpenSession() As Boolean + + Dim nReturn As Short + + 'mi connetto al server Cndex + nReturn = ConnectServer_C("", mErrClass, mErrNum) + + If nReturn = ERRORE_OSAI Then + Connected = False + ErrMsg = "Error on ConnectServer_C" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum) + Else + 'apro una sessione col CN + Connected = True + nReturn = OpenSession_C(NomeCn, SessionOpened, mErrClass, mErrNum) + + If nReturn = ERRORE_OSAI Then + Connected = False + ErrMsg = "Error on OpenSession_C" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum) + End If + End If + + Return Connected + + End Function + + Public Overrides Function CloseSession() As Boolean + Dim nReturn As Short + Dim bOk As Boolean + + bOk = True + + 'chiudo la sessione + nReturn = CloseSession_C(SessionOpened, mErrClass, mErrNum) + If nReturn = ERRORE_OSAI Then + ErrMsg = "Error on CloseSession_C" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum) + Connected = False + bOk = False + Else + Connected = False + End If + + 'rilascio il server Cndex + nReturn = ReleaseServer_C(mErrClass, mErrNum) + If nReturn = ERRORE_OSAI Then + ErrMsg = "Error on ReleaseServer_C" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum) + Connected = False + bOk = False + Else + Connected = False + End If + + Return bOk + + End Function + + '------------------------------ + ' Lettura variabile Short su Cn + '------------------------------ + Public Overrides Function ReadShortVar(ByVal szVar As stVAR, Optional ByVal nProcess As Integer = 1) As Short + + Dim nValues As Short + Dim pVar As PLVARDESC + Dim nComOk As Short ' Se 1 lettura OK Se 0 lettura KO + Dim nNumVarToBeReaded As Integer = 1 ' Numero di variabili da leggere (fisso a 1) + + pVar.Code = CndexLinkUserVB6.GW_CODE + pVar.Index = szVar.nAddress + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nComOk = GetPLVarWord_C(SessionOpened, nNumVarToBeReaded, pVar, nValues, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = "Error on GetPLVarWord_C" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum) + Return CShort(ERRORVALUE) ' In uscita setto variabile a ERRORVALUE errore + + Else + + ' return con il valore letto + Return nValues + + End If + + + Else ' gestione se debug + + ' ritorno true + Return 1 + + End If + + End Function + + '-------------------------------- + ' Lettura multi variabile MW su Cn + '-------------------------------- + Public Overrides Function ReadMultipleVarMW(ByVal nAddress As Integer, ByRef nValues() As Short, ByVal nNumVarToRead As Short, Optional ByVal nProcess As Integer = 1) As Boolean + + Dim pVar As PLVARDESC + Dim nComOk As Short ' Se 1 lettura OK Se 0 lettura KO + + pVar.Code = CndexLinkUserVB6.MW_CODE + pVar.Index = nAddress + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nComOk = GetPLVarWord_M_C(SessionOpened, nNumVarToRead, pVar, nValues, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = "Error on GetPLVarWord_M_C" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum) + Return False + + Else + + ' return con il valore letto + Return True + + End If + + + Else ' gestione se debug + + ' ritorno true + Return True + + End If + + End Function + + ' ------------------------------- + ' Scrittura variabile Short su Cn + '--------------------------------- + Public Overrides Function WriteShortVar(ByVal szVar As stVAR, ByVal nValue As Short, Optional ByVal nProcess As Integer = 1) As Boolean + + Dim pVar As PLVARDESC + Dim nComOk As Short ' Se 1 scritt. OK Se 0 lettura KO + Dim nNumVarToBeWrited As Integer = 1 ' Numero di variabili da leggere (fisso a 1) + + If (Not (Debug)) Then ' Se macchina collegata + + pVar.Bit = szVar.nBit + pVar.Code = CndexLinkUserVB6.GW_CODE + pVar.Index = szVar.nAddress + nComOk = SetPLVarWord_C(SessionOpened, nNumVarToBeWrited, pVar, nValue, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = "Error on SetPLVarWord_C" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum) + Return False + + Else + + Return True + + End If + + Else ' gestione in debug + + Return True + + End If + + + End Function + + '-------------------------------- + ' Lettura variabile SC su Cn + '-------------------------------- + Public Overrides Function ReadSCVar(ByVal nIndex As Integer, ByVal nNumChar As Integer, Optional ByVal nProcess As Integer = 1) As String + + Dim szValue As String = " " + Dim nComOk As Short ' Se 1 lettura OK Se 0 lettura KO + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nComOk = GetVarSC_C(SessionOpened, nProcess, nIndex, nNumChar, szValue, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + ErrMsg = "Error on reading SC variable" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum) + Return "" ' In uscita setto variabile a ERRORVALUE errore + Else + ' return con il valore letto + Return szValue + End If + + + Else ' gestione se debug + + ' ritorno true + Return "SC VAR - DEBUG" + + End If + + + End Function + + ' --------------------------------- + ' Scrittura variabile SC su Cn + '---------------------------------- + Public Overrides Function WriteSCVar(ByVal nIndex As Integer, ByVal nNumChar As Integer, ByVal szText As String, Optional ByVal nProcess As Integer = 1) As Boolean + + Dim nComOk As Short ' Se 1 scrittura OK Se 0 scrittura KO + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nComOk = SetVarSC_C(SessionOpened, nProcess, nIndex, nNumChar, szText, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = "Error on writing SC variable" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum) + Return False ' In uscita setto variabile a ERRORVALUE errore + + Else + + Return True + + End If + + ' se sono in debug + Else + + Return True + + End If ' Endif gestione macchina collegata + + End Function + + '------------------------------ + ' Lettura variabile E su Cn + '------------------------------ + Public Overrides Function ReadVarE(ByVal szVar As stVAR, Optional ByVal nProcess As Integer = 1) As Double + + Dim dValues As Double + Dim pVar As PLVARDESC + Dim nComOk As Short ' Se 1 lettura OK Se 0 lettura KO + Dim nNumVarToBeReaded As Integer = 1 ' Numero di variabili da leggere (fisso a 1) + + pVar.Code = CndexLinkUserVB6.GW_CODE + pVar.Index = szVar.nAddress + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nComOk = GetVarE_C(SessionOpened, nProcess, szVar.nAddress, nNumVarToBeReaded, dValues, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = "Error on GetVarE_C" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum) + Return CShort(ERRORVALUE) ' In uscita setto variabile a ERRORVALUE errore + + Else + + ' return con il valore letto + Return dValues + + End If + + + Else ' gestione se debug + + ' ritorno true + Return 1 + + End If + + End Function + + + '------------------------------ + ' Lettura process stato info Cn + '------------------------------ + ' + ' ha causato molto dispiacere il fatto che se uso la Server.GetProcessStatus_C con winnbi < 3.1.1 + ' dà una UNRESOLVED a run time della GetProcessStatus_C8 ( notare l' "8" finale ) nella CNDEXLINK.DLL + ' + ' soluzione : con Win Nbi recenti, uso Server.GetProcessStatus_C ; con Winnbi vecchi, faccio override + ' di questa funzione USANDO LA STRUTTURA NUOVA CndexLinkDotNet.Cndex.PROCDATA ( altrimenti non è possibile + ' fare override; uso una variabile locale tipo vecchio ( PROCDATA ) e in caso di esito positivo, + ' copio i dati risultanti. + ' + ' Attenzione : si ha lo stesso problema anche con la Server.GetNcInfo1_C ma curiosamente non con le funzioni + ' di lettura scrittura variabili CN .... boh !! + + Public Overrides Function NcProcessStatus(ByRef ncInfo As CndexLinkDotNet.Cndex.PROCDATA, Optional ByVal nProcess As Integer = 1) As Boolean + + Dim nComOk As Short ' Se 1 lettura OK Se 0 lettura KO + Dim geppodata As PROCDATA ' trucco sporchissimo : la versione dotnet richiede un altro tipo di dati... + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + nComOk = GetProcessStatus_C(SessionOpened, nProcess, geppodata, ErrClass, ErrNum) + + If (nComOk = ERRORE_OSAI) Then + + ErrMsg = "Error on GetProcessStatus_C" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum) + Return False ' In uscita setto variabile a ERRORVALUE errore + + Else + ncInfo.Status = geppodata.status + ncInfo.SubStatus = geppodata.substatus + + Return True + + End If + + ' se sono in debug + Else + + Return True + + End If ' Endif gestione macchina collegata + + End Function + + ' ------------------------------------------------- + ' Lettura stato macchina su processo passato per parametro + '-------------------------------------------------- + Public Overrides Function GetMachineStatus(Optional ByVal nProcess As Integer = 1) As Byte + ' + ' se non andasse, usare NcProcessStatus e prendere solo lo stato...... + + Dim RetVal As Short + + Dim geppodata As PROCDATA ' trucco sporchissimo : la versione dotnet richiede un altro tipo di dati... + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + RetVal = GetProcessStatus_C(SessionOpened, nProcess, geppodata, ErrClass, ErrNum) + + If RetVal > 0 Then + Return Convert.ToByte(geppodata.status) + + Else + ErrMsg = "Error on GetMachineStatus" & vbCrLf & what_happened() + Return 255 + + End If + ' se sono in debug + Else + Return True + End If + + + End Function + + + +End Class + diff --git a/CVCncLib/Modules/ComCnOsaiOpen_Series.vb b/CVCncLib/Modules/ComCnOsaiOpen_Series.vb new file mode 100644 index 00000000..9c94cac3 --- /dev/null +++ b/CVCncLib/Modules/ComCnOsaiOpen_Series.vb @@ -0,0 +1,1253 @@ +' +' libreria : VBlib +' file : ComCNOsaiOpen_Series.vb +' +' funzioni : connessione con CN OSAI open come classe - override metodi per nuovo CN +' +' copyright 2008-2016 C.Viviani +' +Imports System.Collections +Imports System.Collections.Generic +Imports System.Data +Imports System.Diagnostics +Imports System.Runtime.InteropServices + +Public Class Open_Series + Inherits ComCNOsai + + Dim OsaiServer As OpenControl.OPENcontrolPortTypeClient + + Public Const L_CODE As Integer = 145 + + Private Const NO_ERROR As UShort = 1 + + Private PhaseCN As Integer + Private ProcessCN As Integer + +#Region "COSTRUTTORE" + + Public Sub New(ByVal szAddress As String, ByVal bIsDebug As Boolean, Optional ByVal sVersion As Short = 2) + + MyBase.New(szAddress, bIsDebug, sVersion) + + End Sub + + +#End Region + +#Region "METODI" + + +#Region "METODI - Open/close connection" + + ' ------------------------------ + ' Apertura sessione con CN Osai + ' ------------------------------ + ' Public Overrides Function OpenSession(ByVal szNomeCn As String) As ULong + Public Overrides Function OpenSession() As Boolean + + Connected = False + + + OsaiServer = New OpenControl.OPENcontrolPortTypeClient("OPENcontrol", "http://" & NomeCn & ":8080") + + If OsaiServer.State = ServiceModel.CommunicationState.Created Then + Try + O_BootPhaseEnquiry(PhaseCN, ErrClass, ErrNum) + + Catch ex As Exception + MsgBox("Controllo non connesso !!!" & vbCrLf & ex.Message) '!!!!!!!!!!!!!!!!!!!!!!!!!! + End Try + ' Lettura processo CN + If PhaseCN = SYSTEM_UP_PHASE Then + Connected = True + Else + MsgBox("Boot phase " & ErrNum) + End If + + End If + + Return Connected + + + End Function + + Private Function O_BootPhaseEnquiry(ByRef Phase As Integer, ByRef nErrClass As UShort, ByRef nErrNum As UShort) As Integer + Dim oBootPhaseInquiry As New OpenControl.BootPhaseEnquiry + Dim retBootPhaseInquiry As OpenControl.BootPhaseEnquiryR + + retBootPhaseInquiry = OsaiServer.BootPhaseEnquiry(oBootPhaseInquiry) + + nErrClass = retBootPhaseInquiry.ErrClass + nErrNum = retBootPhaseInquiry.ErrNum + Phase = retBootPhaseInquiry.Phase + + O_BootPhaseEnquiry = retBootPhaseInquiry.retval + + End Function + + Public Overrides Function CloseSession() As Boolean + + + End Function + + +#End Region + +#Region "METODI - Lettura/scrittura variabili CN" + + '------------------------------ + ' Lettura / scittura variabili SC su Cn + '------------------------------ + Public Overrides Function ReadSCVar(ByVal nIndex As Integer, ByVal nNumChar As Integer, Optional ByVal nProcess As Integer = 1) As String + + Dim InputStruct As New OpenControl.ReadVarText + Dim RetVal As OpenControl.ReadVarTextR + + If (Not (Debug)) Then ' se macchina collegata e non in debug + + InputStruct.Code = CndexLinkDotNet.Cndex.SC_CODE ' 50 + InputStruct.Index = nIndex + InputStruct.Size = nNumChar + InputStruct.Process = nProcess + + RetVal = OsaiServer.ReadVarText(InputStruct) + If (RetVal.retval > 0) Then + Return RetVal.Text + Else + ErrClass = RetVal.ErrClass + ErrNum = RetVal.ErrNum + ErrMsg = "Error on reading string variable" & vbCrLf & what_happened() + Return "?????????????????????" + End If + ' se sono in debug + Else + Return "OK" + End If ' Endif gestione macchina collegata + + End Function + + Public Overrides Function WriteSCVar(ByVal nIndex As Integer, ByVal nNumChar As Integer, ByVal szText As String, Optional ByVal nProcess As Integer = 1) As Boolean + + Dim InputStruct As New OpenControl.WriteVarText + Dim RetVal As OpenControl.WriteVarTextR + + + If (Not (Debug)) Then ' se macchina collegata e non in debug + + InputStruct.Code = CndexLinkDotNet.Cndex.SC_CODE ' 50 + InputStruct.Index = nIndex + InputStruct.Len = nNumChar + InputStruct.Process = nProcess + InputStruct.Text = szText + + RetVal = OsaiServer.WriteVarText(InputStruct) + + If (RetVal.retval > 0) Then + Return True + Else + ErrClass = RetVal.ErrClass + ErrNum = RetVal.ErrNum + ErrMsg = "Error on writing string variable" & vbCrLf & what_happened() + Return False + End If + ' se sono in debug + Else + Return True + End If ' Endif gestione macchina collegata + + End Function + + '------------------------------ + ' Lettura variabile Bool su Cn + '------------------------------ + Public Overrides Function ReadBoolVar(ByVal szVar As stVAR, Optional ByVal nProcess As Integer = 1) As Short + Dim InputStruct As New OpenControl.ReadVarWord + Dim RetVal As OpenControl.ReadVarWordR + Dim nValues(0) As Short ' Array (lo vuole la libreria Osai) che conterrà il valore letto + + InputStruct.NumVar = 1 + InputStruct.Process = nProcess + InputStruct.Code = CndexLinkDotNet.Cndex.GW_CODE ' 21 + InputStruct.Index = szVar.nAddress + + RetVal = OsaiServer.ReadVarWord(InputStruct) + If (RetVal.retval > 0) Then + nValues(0) = RetVal.Value(0) + If ((nValues(0) And (2 ^ szVar.nBit)) <> 0) Then ' Maschera per controllare solo il bit che mi interessa + nValues(0) = 1 + Else + nValues(0) = 0 + End If + + ' return con il valore letto + Return nValues(0) + + Else + 'MsgBox("Error on reading bool variable" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum)) + Return CShort(ERRORVALUE) ' In uscita setto variabile a ERRORVALUE errore + + End If + + End Function + + '------------------------------ + ' Lettura variabile G Short su Cn + '------------------------------ + Public Overrides Function ReadShortVar(ByVal szVar As stVAR, Optional ByVal nProcess As Integer = 1) As Short + Dim nValue(0) As Short + + Dim nNumVar As UShort = 1 + Dim nIndex As UShort = 1 + Dim sValue() As UShort = {} + Dim InputStruct As New OpenControl.ReadVarWord + Dim RetVal As OpenControl.ReadVarWordR + + InputStruct.Code = CndexLinkDotNet.Cndex.GW_CODE ' 21 + InputStruct.Index = szVar.nAddress + InputStruct.NumVar = 1 + InputStruct.Process = nProcess + + RetVal = OsaiServer.ReadVarWord(InputStruct) + If (RetVal.retval > 0) Then + Return UShortToShort(RetVal.Value(0)) + Else + 'MsgBox("Error on reading Short variable" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum)) + Return CShort(ERRORVALUE) ' In uscita setto variabile a ERRORVALUE errore + End If + + End Function + + '------------------------------ + ' Lettura variabile G Double su Cn + '------------------------------ + Public Overrides Function ReadDoubleVar(ByVal szVar As stVAR, Optional ByVal nProcess As Integer = 1) As Double + 'Dim nValue(0) As Short + + Dim nNumVar As UShort = 1 + Dim nIndex As UShort = 1 + Dim dResult As Double = 0.0 + Dim InputStruct As New OpenControl.ReadVarDouble + Dim RetVal As OpenControl.ReadVarDoubleR + + InputStruct.Code = CndexLinkDotNet.Cndex.GD_CODE ' 41 + InputStruct.Index = szVar.nAddress + InputStruct.NumVar = 1 + InputStruct.Process = nProcess + + RetVal = OsaiServer.ReadVarDouble(InputStruct) + If (RetVal.retval > 0) Then + dResult = RetVal.Value(0) + Return dResult + Else + 'MsgBox("Error on reading Short variable" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum)) + Return CShort(ERRORVALUE) ' In uscita setto variabile a ERRORVALUE errore + End If + + End Function + + '------------------------------ + ' Lettura variabile E ( double ) su Cn + '------------------------------ + Public Overrides Function ReadVarE(ByVal szVar As stVAR, Optional ByVal nProcess As Integer = 1) As Double + + Dim nValue(0) As Short + Dim nNumVar As UShort = 1 + Dim InputStruct As New OpenControl.ReadVarDouble + Dim RetVal As OpenControl.ReadVarDoubleR + + InputStruct.Code = CndexLinkDotNet.Cndex.E_CODE ' 46 + + InputStruct.Index = szVar.nAddress + InputStruct.NumVar = 1 + InputStruct.Process = nProcess + + RetVal = OsaiServer.ReadVarDouble(InputStruct) + If (RetVal.retval > 0) Then + Return RetVal.Value(0) + Else + 'MsgBox("Error on reading E variable" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum)) + Return CDbl(ERRORVALUE) ' In uscita setto variabile a ERRORVALUE errore + End If + + End Function + + '------------------------------ + ' Lettura variabile L ( double ) su Cn + '------------------------------ + Public Overrides Function ReadVarL(ByVal szVar As stVAR, Optional ByVal nProcess As Integer = 1) As Double + + Dim nValue(0) As Short + Dim nNumVar As UShort = 1 + Dim InputStruct As New OpenControl.ReadVarDouble + Dim RetVal As OpenControl.ReadVarDoubleR + + InputStruct.Code = L_CODE ' 145 + + InputStruct.Index = szVar.nAddress + InputStruct.NumVar = 1 + InputStruct.Process = nProcess + + RetVal = OsaiServer.ReadVarDouble(InputStruct) + If (RetVal.retval > 0) Then + Return RetVal.Value(0) + Else + 'MsgBox("Error on reading L variable" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum)) + Return CDbl(ERRORVALUE) ' In uscita setto variabile a ERRORVALUE errore + End If + + End Function + + '------------------------------ + ' Lettura variabile MW su Cn + '------------------------------ + Public Overrides Function ReadVarMW(ByVal szVar As stVAR, Optional ByVal nProcess As Integer = 1) As UShort + + Dim nNumVar As UShort = 1 + Dim InputStruct As New OpenControl.ReadVarWord + Dim RetVal As OpenControl.ReadVarWordR + + InputStruct.Code = CndexLinkDotNet.Cndex.MW_CODE ' 20 + InputStruct.Index = szVar.nAddress + InputStruct.NumVar = 1 + InputStruct.Process = nProcess + + RetVal = OsaiServer.ReadVarWord(InputStruct) + If (RetVal.retval > 0) Then + + Return (RetVal.Value(0)) + Else + 'MsgBox("Error on reading MW variable" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum)) + Return CUShort(-ERRORVALUE) ' In uscita setto variabile a ERRORVALUE errore + End If + + End Function + + ' ------------------------------- + ' Scrittura variabile bool su Cn + '--------------------------------- + Public Overrides Function WriteBoolVar(ByVal szVar As stVAR, ByVal nValue As Short, Optional ByVal nProcess As Integer = 1) As Boolean + + Dim nValues(0) As Short ' Array (lo vuole la libreria Osai) che conterrà il valore letto + Dim nNumVarToBeWrited As Integer = 1 ' Numero di variabili da leggere (fisso a 1) + Dim nResult As Integer = -1 + Dim InputStruct As New OpenControl.WriteVarWordBit + Dim RetVal As OpenControl.WriteVarWordBitR + + nValues(0) = nValue + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + InputStruct.Code = CndexLinkDotNet.Cndex.GW_CODE ' 21 + InputStruct.Process = nProcess + InputStruct.Index = szVar.nAddress + InputStruct.BitIndex = szVar.nBit + InputStruct.BitValue = nValue + RetVal = OsaiServer.WriteVarWordBit(InputStruct) + + If (RetVal.retval <= 0) Then + ErrClass = RetVal.ErrClass + ErrNum = RetVal.ErrNum + ErrMsg = "Error on writing bool variable" & vbCrLf & what_happened() + Return False ' + Else + Return True + End If + + ' se sono in debug + Else + Return True + End If ' Endif gestione macchina collegata + + End Function + + ' ------------------------------- + ' Scrittura variabile G Short su Cn + '--------------------------------- + Public Overrides Function WriteShortVar(ByVal szVar As stVAR, ByVal nValue As Short, Optional ByVal nProcess As Integer = 1) As Boolean + + Dim nValues(0) As Short ' Array (lo vuole la libreria Osai) che conterrà il valore letto + Dim nNumVarToBeWrited As Integer = 1 ' Numero di variabili da leggere (fisso a 1) + Dim nResult As Integer = -1 + Dim InputStruct As New OpenControl.WriteVarWord + Dim RetVal As OpenControl.WriteVarWordR + + nValues(0) = nValue + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + InputStruct.Code = CndexLinkDotNet.Cndex.GW_CODE ' 21 + InputStruct.NumVar = 1 + InputStruct.Process = nProcess + InputStruct.Index = szVar.nAddress + ReDim InputStruct.Value(0) + InputStruct.Value(0) = ShortToUShort(nValues(0)) + + RetVal = OsaiServer.WriteVarWord(InputStruct) + + If (RetVal.retval <= 0) Then + ErrClass = RetVal.ErrClass + ErrNum = RetVal.ErrNum + ErrMsg = "Error on writing short variable" & vbCrLf & what_happened() + Return False ' In uscita setto variabile a ERRORVALUE errore + Else + + Return True + + End If + + ' se sono in debug + Else + + Return True + + End If ' Endif gestione macchina collegata + + End Function + + ' ------------------------------- + ' Scrittura variabile G Double su Cn + '--------------------------------- + Public Overrides Function WriteDoubleVar(ByVal szVar As stVAR, ByVal dValue As Double, Optional ByVal nProcess As Integer = 1) As Boolean + + Dim dValues(0) As Double ' Array (lo vuole la libreria Osai) che conterrà il valore letto + Dim nNumVarToBeWrited As Integer = 1 ' Numero di variabili da leggere (fisso a 1) + Dim nResult As Integer = -1 + Dim InputStruct As New OpenControl.WriteVarWord + Dim RetVal As OpenControl.WriteVarWordR + + dValues(0) = dValue + + ' se macchina collegata e non in debug + If (Not (Debug)) Then + + InputStruct.Code = CndexLinkDotNet.Cndex.GD_CODE ' 41 + InputStruct.NumVar = 1 + InputStruct.Process = nProcess + InputStruct.Index = szVar.nAddress + ReDim InputStruct.Value(0) + InputStruct.Value(0) = dValues(0) + + RetVal = OsaiServer.WriteVarWord(InputStruct) + + If (RetVal.retval <= 0) Then + ErrClass = RetVal.ErrClass + ErrNum = RetVal.ErrNum + ErrMsg = "Error on writing G DoubleVar " & vbCrLf & what_happened() + Return False ' In uscita setto variabile a ERRORVALUE errore + Else + + Return True + + End If + + ' se sono in debug + Else + + Return True + + End If ' Endif gestione macchina collegata + + End Function + + ' ------------------------------- + ' Scrittura variabile E su Cn + '--------------------------------- + Public Overrides Function WriteVarE(ByVal szVar As stVAR, ByVal nValue As Double, Optional ByVal nProcess As Integer = 1) As Boolean + + Dim nValues(0) As Double ' Array (lo vuole la libreria Osai) che conterrà il valore letto + Dim nNumVarToBeWrited As Integer = 1 ' Numero di variabili da leggere (fisso a 1) + Dim nResult As Integer = -1 + Dim InputStruct As New OpenControl.WriteVarDouble + Dim RetVal As OpenControl.WriteVarDoubleR + + nValues(0) = nValue + + If (Not (Debug)) Then ' se macchina collegata e non in debug + + InputStruct.Code = CndexLinkDotNet.Cndex.E_CODE ' 46 + InputStruct.NumVar = 1 + InputStruct.Process = nProcess + InputStruct.Index = szVar.nAddress + ReDim InputStruct.Value(0) + InputStruct.Value(0) = nValues(0) + + RetVal = OsaiServer.WriteVarDouble(InputStruct) + + If (RetVal.retval <= 0) Then + ErrClass = RetVal.ErrClass + ErrNum = RetVal.ErrNum + ErrMsg = "Error on writing Write E DoubleVar variable" & vbCrLf & what_happened() + Return False ' In uscita setto variabile a ERRORVALUE errore + Else + Return True + End If + + ' se sono in debug + Else + Return True + End If ' Endif gestione macchina collegata + + End Function + ' ------------------------------- + ' Scrittura variabile L su Cn + '--------------------------------- + Public Overrides Function WriteVarL(ByVal szVar As stVAR, ByVal nValue As Double, Optional ByVal nProcess As Integer = 1) As Boolean + + Dim nValues(0) As Double ' Array (lo vuole la libreria Osai) che conterrà il valore letto + Dim nNumVarToBeWrited As Integer = 1 ' Numero di variabili da leggere (fisso a 1) + Dim nResult As Integer = -1 + Dim InputStruct As New OpenControl.WriteVarDouble + Dim RetVal As OpenControl.WriteVarDoubleR + + nValues(0) = nValue + + If (Not (Debug)) Then ' se macchina collegata e non in debug + + InputStruct.Code = L_CODE ' 145 + InputStruct.NumVar = 1 + InputStruct.Process = nProcess + InputStruct.Index = szVar.nAddress + ReDim InputStruct.Value(0) + InputStruct.Value(0) = nValues(0) + + RetVal = OsaiServer.WriteVarDouble(InputStruct) + + If (RetVal.retval <= 0) Then + ErrClass = RetVal.ErrClass + ErrNum = RetVal.ErrNum + ErrMsg = "Error on writing Write L DoubleVar variable" & vbCrLf & what_happened() + Return False ' In uscita setto variabile a ERRORVALUE errore + Else + Return True + End If + + ' se sono in debug + Else + Return True + End If ' Endif gestione macchina collegata + + End Function + +#End Region + +#Region "METODI - Modo CN / PP" + + ' --------------------------------------------------------------- + ' Attivazione del modo Auto + '---------------------------------------------------------------- + Public Overrides Function SetAutoMode(Optional ByVal nProcess As Integer = 1) As Boolean + Dim RetVal As New OpenControl.SetProcessModeR + Dim Mode As New OpenControl.SetProcessMode + + Mode.Mode = 2 + Mode.ProcNum = nProcess + + RetVal = OsaiServer.SetProcessMode(Mode) + If RetVal.retval > 0 Then + Return RetVal.retval + + Else + 'MsgBox("Error on activating Auto mode " & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum)) + Return RetVal.retval + End If + End Function + + ' --------------------------------------------------------------- + ' Lettura modalità selezionata su processo passato per parametro + '---------------------------------------------------------------- + Public Overrides Function GetModeSelected(Optional ByVal nProcess As Integer = 1) As Byte + Dim InputStruct As New OpenControl.GetNcInfo1 + Dim RetVal As OpenControl.GetNcInfo1R + + InputStruct.ProcNum = nProcess + RetVal = OsaiServer.GetNcInfo1(InputStruct) + + If RetVal.retval > 0 Then + Return RetVal.GetInfo.modeselect + + Else + 'MsgBox("Error on reading Mode Selected" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum)) + Return 0 + End If + + End Function + + ' --------------------------------------------------------------- + ' Attivazione del pp passato per parametro + '---------------------------------------------------------------- + Public Overrides Function ActivatePP(ByVal szPartPrg As String, Optional ByVal nProcess As UShort = 1) As Short + Dim RetVal As New OpenControl.SelectPartProgramFromDriveR + Dim InputStruct As New OpenControl.SelectPartProgramFromDrive + + InputStruct.PPName = szPartPrg + InputStruct.ProcNum = nProcess + + RetVal = OsaiServer.SelectPartProgramFromDrive(InputStruct) + If RetVal.retval > 0 Then ' > 0 ok + Return RetVal.retval + + Else ' = 0 errore + mErrMsg = "Error on activating part-program " + mErrClass = RetVal.ErrClass + mErrNum = RetVal.ErrNum + Return RetVal.retval + + End If + End Function + + ' --------------------------------- + ' Lettura Programma corrente + '---------------------------------- + Public Function GetActivePP(ByVal nProcess As Integer) As String + Dim InputStruct As New OpenControl.GetActivePartProgram + Dim RetVal As OpenControl.GetActivePartProgramR + + InputStruct.ProcNum = nProcess + RetVal = OsaiServer.GetActivePartProgram(InputStruct) + + If RetVal.retval > 0 Then + Return RetVal.Main + + Else + mErrMsg = "Error on reading Active Program " + mErrClass = RetVal.ErrClass + mErrNum = RetVal.ErrNum + Return CShort(ERRORVALUE) ' In uscita setto variabile a ERRORVALUE errore + End If + + End Function + + ' --------------------------------------------------------------- + ' Lettura informazioni CN + '---------------------------------------------------------------- + Public Function NcInfo1Open(ByRef ncInfo As OpenControl.GetNcInfo1R, Optional ByVal nProcess As Integer = 1) As OpenControl.GetNcInfo1R + Dim InputStruct As New OpenControl.GetNcInfo1 + Dim RetVal As OpenControl.GetNcInfo1R + + InputStruct.ProcNum = nProcess + RetVal = OsaiServer.GetNcInfo1(InputStruct) + + If RetVal.retval > 0 Then + Return RetVal + + Else + mErrMsg = "Error on reading NcInfo " + mErrClass = RetVal.ErrClass + mErrNum = RetVal.ErrNum + Return RetVal + End If + End Function + + ' --------------------------------- + ' Lettura info CN 1 + '---------------------------------- + Public Overrides Function NcInfo1(ByRef ncInfo As CndexLinkDotNet.Cndex.GETINFO1DATA, Optional ByVal nProcess As Integer = 1) As Boolean + + Dim InputStruct As New OpenControl.GetNcInfo1 + Dim RetVal As OpenControl.GetNcInfo1R + + + InputStruct.ProcNum = nProcess + RetVal = OsaiServer.GetNcInfo1(InputStruct) + + If RetVal.retval > 0 Then + + ' ncInfo = RetVal.GetInfo + ' Assegno 1:1 variabili... + + ncInfo.actual_tool = RetVal.GetInfo.actualtool + ncInfo.actual_tool_off = RetVal.GetInfo.actualtooloff + ncInfo.auto_jog_ret = RetVal.GetInfo.autojogret + ncInfo.ax_sel = RetVal.GetInfo.axsel + + ncInfo.block_retrace = RetVal.GetInfo.blockretrace + + ncInfo.disable_slashed_blk = RetVal.GetInfo.disableslashedblk + ncInfo.dry_run = RetVal.GetInfo.dryrun + + ncInfo.feed_mis_unit = RetVal.GetInfo.feedmisunit + ncInfo.feed_ov = RetVal.GetInfo.feedov + ncInfo.force_rapid_feed = RetVal.GetInfo.forcerapidfeed + + ncInfo.jog_dir = RetVal.GetInfo.jogdir + ncInfo.jog_incr = RetVal.GetInfo.jogincr + + ncInfo.last_nc_error = RetVal.GetInfo.lastncerror + + ncInfo.main_progr_name = System.Text.Encoding.ASCII.GetBytes(RetVal.GetInfo.mainprogrname) + + ncInfo.man_feed_ov = RetVal.GetInfo.manfeedov + ncInfo.mode_select = RetVal.GetInfo.modeselect + + ncInfo.num_ax_sel = RetVal.GetInfo.numaxsel + + ncInfo.optional_stop = RetVal.GetInfo.optionalstop + + ncInfo.progr_feed = RetVal.GetInfo.progrfeed + ncInfo.progr_speed = RetVal.GetInfo.progrspeed + ncInfo.progr_tool = RetVal.GetInfo.progrtool + ncInfo.progr_tool_off = RetVal.GetInfo.progrtooloff + + ncInfo.rapid_feed = RetVal.GetInfo.rapidfeed + ncInfo.rapid_override = RetVal.GetInfo.rapidoverride + ncInfo.rap_feed_ov = RetVal.GetInfo.rapfeedov + ncInfo.real_feed = RetVal.GetInfo.realfeed + ncInfo.real_speed = RetVal.GetInfo.realspeed + + ncInfo.speed_ov = RetVal.GetInfo.speedov + ncInfo.status = RetVal.GetInfo.status + ncInfo.substatus = RetVal.GetInfo.substatus + + Return True + + Else + mErrMsg = "Error on reading NcInfo " + mErrClass = RetVal.ErrClass + mErrNum = RetVal.ErrNum + Return False + End If + + End Function + + + + + + + + + + ' --------------------------------------------------------------- + ' Ritorna True se lo stato del CN è IDLE + '---------------------------------------------------------------- + Public Overrides Function IsResetStatus(Optional ByVal nProcess As Integer = 1) As Boolean + Dim InputStruct As New OpenControl.GetNcInfo1 + Dim RetVal As OpenControl.GetNcInfo1R + + InputStruct.ProcNum = nProcess + RetVal = OsaiServer.GetNcInfo1(InputStruct) + + If RetVal.retval > 0 Then + + If RetVal.GetInfo.modeselect = 0 Then + Return True + Else + Return False + End If + + Else + mErrMsg = "Error in IsResetStatus" + mErrClass = RetVal.ErrClass + mErrNum = RetVal.ErrNum + + Return False + End If + + End Function + + ' ------------------------------------------------- + ' Lettura stato macchina su processo passato per parametro + '-------------------------------------------------- + Public Overrides Function GetMachineStatus(Optional ByVal nProcess As Integer = 1) As Byte + Dim InputStruct As New OpenControl.GetNcInfo1 + Dim RetVal As OpenControl.GetNcInfo1R + + InputStruct.ProcNum = nProcess + RetVal = OsaiServer.GetNcInfo1(InputStruct) + If RetVal.retval > 0 Then + Return RetVal.GetInfo.status + + Else + mErrMsg = "Error on reading Machine Status" + mErrClass = RetVal.ErrClass + mErrNum = RetVal.ErrNum + Return 0 + End If + + End Function + + +#End Region + +#Region "METODI - Utensili / correttori" + + ' --------------------------------------------------------------- + ' Lettura utensile corrente su processo passato per parametro + '---------------------------------------------------------------- + Public Overrides Function GetActualTool(Optional ByVal nProcess As Integer = 1) As Double + Dim InputStruct As New OpenControl.GetNcInfo1 + Dim RetVal As OpenControl.GetNcInfo1R + + InputStruct.ProcNum = nProcess + RetVal = OsaiServer.GetNcInfo1(InputStruct) + + If RetVal.retval > 0 Then + Return RetVal.GetInfo.progrtool + + Else + 'MsgBox("Error on reading Mode Selected" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum)) + Return 0 + End If + + End Function + + ' --------------------------------------------------------------- + ' Lettura correttore corrente su processo passato per parametro + '---------------------------------------------------------------- + Public Overrides Function GetActualCorr(Optional ByVal nProcess As Integer = 1) As UShort + Dim InputStruct As New OpenControl.GetNcInfo1 + Dim RetVal As OpenControl.GetNcInfo1R + + InputStruct.ProcNum = nProcess + RetVal = OsaiServer.GetNcInfo1(InputStruct) + + If RetVal.retval > 0 Then + Return RetVal.GetInfo.actualtooloff + + Else + 'MsgBox("Error on reading Mode Selected" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum)) + Return 0 + End If + + End Function + + ' --------------------------------------------------------------- + ' Lettura lunghezza correttore corrente su processo passato per parametro + '---------------------------------------------------------------- + Public Overrides Function GetActualToolLen(ByVal nRecord As UInteger) As Double + Dim InputStruct As New OpenControl.GetOffsetTabRecordII + Dim RetVal As OpenControl.GetOffsetTabRecordIIR + Dim Len() As OpenControl.OFFSETVALII + + InputStruct.RecordNum = nRecord + RetVal = OsaiServer.GetOffsetTabRecordII(InputStruct) + + If RetVal.retval > 0 Then + Len = RetVal.RecordBuff.LenVal + Return Len(0).ValOrig + + Else + 'MsgBox("Error on reading actual tool length" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum)) + Return 0 + End If + + End Function + + ' --------------------------------------------------------------- + ' Lettura Diametro correttore corrente su processo passato per parametro + '---------------------------------------------------------------- + Public Overrides Function GetActualToolDiam(ByVal nRecord As UInteger) As Double + Dim InputStruct As New OpenControl.GetOffsetTabRecordII + Dim RetVal As OpenControl.GetOffsetTabRecordIIR + Dim Len() As OpenControl.OFFSETVALII + + InputStruct.RecordNum = nRecord + RetVal = OsaiServer.GetOffsetTabRecordII(InputStruct) + + If RetVal.retval > 0 Then + Len = RetVal.RecordBuff.DiaVal + Return Len(0).ValOrig + + Else + 'MsgBox("Error on reading actual tool diameter" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum)) + Return 0 + End If + + End Function + ' --------------------------------------------------------------- + ' Lettura Diametro correttore corrente 2 su processo passato per parametro + '---------------------------------------------------------------- + Public Overrides Function GetActualToolDiam2(ByVal nRecord As UInteger) As Double + Dim InputStruct As New OpenControl.GetOffsetTabRecordII + Dim RetVal As OpenControl.GetOffsetTabRecordIIR + Dim Len() As OpenControl.OFFSETVALII + + InputStruct.RecordNum = nRecord + RetVal = OsaiServer.GetOffsetTabRecordII(InputStruct) + + If RetVal.retval > 0 Then + Len = RetVal.RecordBuff.DiaVal + + Return Len(0).ActChangeVal + + Else + 'MsgBox("Error on reading actual tool diameter2" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum)) + Return 0 + End If + + End Function + +#End Region + +#Region "METODI - Feed / Speed" + + ' --------------------------------------------------------------- + ' Lettura Feed Override su processo passato per parametro + '---------------------------------------------------------------- + Public Overrides Function GetFeedOverride(Optional ByVal nProcess As Integer = 1) As UShort + Dim InputStruct As New OpenControl.GetNcInfo1 + Dim RetVal As OpenControl.GetNcInfo1R + + InputStruct.ProcNum = nProcess + RetVal = OsaiServer.GetNcInfo1(InputStruct) + + If RetVal.retval > 0 Then + Return RetVal.GetInfo.feedov / 100 + + Else + ' MsgBox("Error on reading Feed Override" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum)) + Return 0 + End If + + End Function + + ' --------------------------------------------------------------- + ' Lettura Rapid Override su processo passato per parametro + '---------------------------------------------------------------- + Public Overrides Function GetRapidOverride(Optional ByVal nProcess As Integer = 1) As UShort + Dim InputStruct As New OpenControl.GetNcInfo1 + Dim RetVal As OpenControl.GetNcInfo1R + + InputStruct.ProcNum = nProcess + RetVal = OsaiServer.GetNcInfo1(InputStruct) + + If RetVal.retval > 0 Then + Return RetVal.GetInfo.rapfeedov / 100 + + Else + 'MsgBox("Error on reading Rapid Override" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum)) + Return 0 + End If + + End Function + + ' --------------------------------------------------------------- + ' Lettura Speed Override su processo passato per parametro + '---------------------------------------------------------------- + Public Overrides Function GetSpeedOverride(Optional ByVal nProcess As Integer = 1) As UShort + Dim InputStruct As New OpenControl.GetNcInfo1 + Dim RetVal As OpenControl.GetNcInfo1R + + InputStruct.ProcNum = nProcess + RetVal = OsaiServer.GetNcInfo1(InputStruct) + + If RetVal.retval > 0 Then + Return RetVal.GetInfo.speedov / 100 + + Else + 'MsgBox("Error on reading Speed Override" & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum)) + Return 0 + End If + End Function + + ' --------------------------------------------------------------- + ' Lettura velocità rapido programmata su processo passato per parametro + '---------------------------------------------------------------- + Public Overrides Function GetProgrammedRapid(Optional ByVal nProcess As Integer = 1) As Double + Dim InputStruct As New OpenControl.GetNcInfo1 + Dim RetVal As OpenControl.GetNcInfo1R + + InputStruct.ProcNum = nProcess + RetVal = OsaiServer.GetNcInfo1(InputStruct) + + If RetVal.retval > 0 Then + Return RetVal.GetInfo.rapidfeed + + Else + 'MsgBox("Error on reading Programmed Rapid " & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum)) + Return 0 + End If + End Function + + ' --------------------------------------------------------------- + ' Lettura Feed programmata su processo passato per parametro + '---------------------------------------------------------------- + Public Overrides Function GetProgrammedFeed(Optional ByVal nProcess As Integer = 1) As Double + Dim InputStruct As New OpenControl.GetNcInfo1 + Dim RetVal As OpenControl.GetNcInfo1R + + InputStruct.ProcNum = nProcess + RetVal = OsaiServer.GetNcInfo1(InputStruct) + + If RetVal.retval > 0 Then + Return RetVal.GetInfo.progrfeed + + Else + 'MsgBox("Error on reading Programmed Feed " & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum)) + Return 0 + End If + End Function + + ' --------------------------------------------------------------- + ' Lettura Speed programmata su processo passato per parametro + '---------------------------------------------------------------- + Public Overrides Function GetProgrammedSpeed(Optional ByVal nProcess As Integer = 1) As Double + Dim InputStruct As New OpenControl.GetNcInfo1 + Dim RetVal As OpenControl.GetNcInfo1R + + InputStruct.ProcNum = nProcess + RetVal = OsaiServer.GetNcInfo1(InputStruct) + + If RetVal.retval > 0 Then + Return RetVal.GetInfo.progrspeed + + Else + 'MsgBox("Error on reading Programmed Feed " & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum)) + Return ErrMsg + End If + End Function + + ' --------------------------------------------------------------- + ' Lettura Feed reale su processo passato per parametro + '---------------------------------------------------------------- + Public Overrides Function GetActualFeed(Optional ByVal nProcess As Integer = 1) As Double + Dim InputStruct As New OpenControl.GetNcInfo1 + Dim RetVal As OpenControl.GetNcInfo1R + + InputStruct.ProcNum = nProcess + RetVal = OsaiServer.GetNcInfo1(InputStruct) + + If RetVal.retval > 0 Then + Return RetVal.GetInfo.realfeed + + Else + 'MsgBox("Error on reading Actual Feed " & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum)) + Return 0 + End If + End Function + + ' --------------------------------------------------------------- + ' Lettura Speed reale su processo passato per parametro + '---------------------------------------------------------------- + Public Overrides Function GetActualSpeed(Optional ByVal nProcess As Integer = 1) As Double + Dim InputStruct As New OpenControl.GetNcInfo1 + Dim RetVal As OpenControl.GetNcInfo1R + + InputStruct.ProcNum = nProcess + RetVal = OsaiServer.GetNcInfo1(InputStruct) + + If RetVal.retval > 0 Then + Return RetVal.GetInfo.realspeed + + Else + 'MsgBox("Error on reading Actual Speed " & vbCrLf & "Class: " & Str(ErrClass) & " Number: 0x" & Hex(ErrNum)) + Return 0 + End If + End Function + +#End Region + +#Region "METODI - copia files" + + Public Overrides Function CopyFileToNC(ByVal sz_logical_drive As String, + ByVal sz_source_filename As String, + ByVal sz_dest_filename As String) As Short + + Return PutFile(sz_source_filename, "PROGRAMS" & "\\" & sz_dest_filename, ErrClass, ErrNum, 0) + + End Function + + + 'utilizzabile per la copia di file verso cnc + + Public Overrides Function PutFile(ByRef szPathFile As String, ByVal szTargetPath As String, ByRef nErrClass As UInteger, ByRef nErrNum As UInteger, ByRef FileSize As Integer) As Integer + Dim oPutFile As New OpenControl.PutFile + Dim retPutFile As New OpenControl.PutFileR + Dim szData As String + + oPutFile.PathName = szTargetPath + + szData = "" + + 'apro il file in szPathFile + szData = My.Computer.FileSystem.ReadAllText(szPathFile, System.Text.Encoding.UTF8) + + oPutFile.Data = szData + oPutFile.Size = FileSize + + 'calcolo la dimensione in byte e la metto in oPutFile.Size + oPutFile.Size = szData.Length + + retPutFile = OsaiServer.PutFile(oPutFile) + + nErrClass = retPutFile.ErrClass + nErrNum = retPutFile.ErrNum + + PutFile = retPutFile.retval + + + End Function + +#End Region + + ' ---------------------------------------------------------------------------------------------------------------------------- + ' Lettura Errori CN + ' ---------------------------------------------------------------------------------------------------------------------------- + 'Public Function ReadCurrentErrorMsg(ByVal nProcess As Integer, ByRef MessaggioErr() As String, ByRef nErrClass As UInteger, ByRef nErrNum As UInteger) As Integer + + ' Dim oReadCurrentErrorMsg As New OpenControl.ReadCurrentErrorMsg + ' Dim retReadCurrentErrorMsg As New OpenControl.ReadCurrentErrorMsgR + + ' oReadCurrentErrorMsg.Process = nProcess + ' retReadCurrentErrorMsg = OsaiServer.ReadCurrentErrorMsg(oReadCurrentErrorMsg) + ' 'SOAP function call + ' Dim datoErr As New CndexLinkDotNet.Cndex.MSG_ERROR + + ' Try + ' datoErr.BootID = CUInt(retReadCurrentErrorMsg.Data.BootID) + ' datoErr.UnIdSeq = CUInt(retReadCurrentErrorMsg.Data.UnIdSeq) + ' datoErr.Code_Err = CUInt(retReadCurrentErrorMsg.Data.CodeErr) + ' datoErr.Comando = CByte(retReadCurrentErrorMsg.Data.Comando) + ' datoErr.FormatTxt = retReadCurrentErrorMsg.Data.FormatTxt + ' datoErr.Process = retReadCurrentErrorMsg.Data.Process + ' datoErr.SubCom = CByte(retReadCurrentErrorMsg.Data.SubCom) + + ' Dim text2 As MESSAGE_TEXT + ' text2.Line1 = "" + ' text2.Line2 = "" + ' text2.Line3 = "" + ' text2.Line4 = "" + + ' 'Invoke native function TranslateErrorMsg() in library OSAI_ErrorMgr.dll + ' TranslateErrorMsg(datoErr, text2) + + ' ReDim MessaggioErr(4) + + ' 'Display error message text + ' MessaggioErr(1) = text2.Line1 + ' MessaggioErr(2) = text2.Line2 + ' MessaggioErr(3) = text2.Line3 + ' MessaggioErr(4) = text2.Line4 + ' Catch ex As Exception + + ' Return 0 + ' 'Dim text2 As MESSAGE_TEXT + ' 'text2.Line1 = "" + ' 'text2.Line2 = "" + ' 'text2.Line3 = "" + ' 'text2.Line4 = "" + + ' ''Invoke native function TranslateErrorMsg() in library OSAI_ErrorMgr.dll + ' 'TranslateErrorMsg(datoErr, text2) + + ' 'ReDim MessaggioErr(4) + + ' ''Display error message text + ' 'MessaggioErr(1) = text2.Line1 + ' 'MessaggioErr(2) = text2.Line2 + ' 'MessaggioErr(3) = text2.Line3 + ' 'MessaggioErr(4) = text2.Line4 + ' End Try + + + ' ReadCurrentErrorMsg = retReadCurrentErrorMsg.retval + + 'End Function + + '------------------------------ + ' Lettura messaggio DIS + '------------------------------ + + Public Overrides Function ReadDisMsg(Optional ByVal nProcess As Integer = 1, Optional ByVal nMac As Integer = 1) As String + Dim InputStruct As New OpenControl.ReadPartProgramMsg + Dim RetVal As OpenControl.ReadPartProgramMsgR + + InputStruct.ProcNum = nProcess + RetVal = OsaiServer.ReadPartProgramMsg(InputStruct) + + If RetVal.retval > 0 Then + Return RetVal.PartProgramMsg + + Else + mErrMsg = "Error on reading DIS messages" + mErrClass = RetVal.ErrClass + mErrNum = RetVal.ErrNum + Return "" + End If + + End Function + + ' ------------------------------------------------- + ' Lettura Linee programma corrente + '-------------------------------------------------- + Public Overrides Function ReadPPLines(ByVal nProcess As Integer, ByRef EightLines() As String, ByRef nErrClass As UInteger, ByRef nErrNum As UInteger) As Boolean + Dim InputStruct As New OpenControl.GetPartProgramLines + Dim RetVal As OpenControl.GetPartProgramLinesR + + InputStruct.ProcNum = nProcess + RetVal = OsaiServer.GetPartProgramLines(InputStruct) + + If RetVal.retval > 0 Then + EightLines(0) = RetVal.PPLine1 + EightLines(1) = RetVal.PPLine2 + EightLines(2) = RetVal.PPLine3 + EightLines(3) = RetVal.PPLine4 + EightLines(4) = RetVal.PPLine5 + EightLines(5) = RetVal.PPLine6 + EightLines(6) = RetVal.PPLine7 + EightLines(7) = RetVal.PPLine8 + + Return True + + Else + mErrMsg = "Error on reading PP Lines" + mErrClass = RetVal.ErrClass + mErrNum = RetVal.ErrNum + + Return False + End If + End Function + +#Region "METODI - funz. aux ( short <> ushort), ..." + + ' ---------------------------------------- + ' Trasforma un Unsigned Short in un Short + ' ---------------------------------------- + Public Function UShortToShort(ByVal usValue As UShort) As Short + Dim dValue As Double + Dim numBit As Byte + + 'numero bit tipo di dato (short -> 16 bit, integer -> 32 bit, long -> 64bit) + numBit = 16 + + If usValue > (2 ^ (numBit - 1) - 1) Then + dValue = CDbl(usValue) + dValue = dValue - CDbl(2 ^ numBit) + UShortToShort = CShort(dValue) + Else + UShortToShort = CShort(usValue) + End If + + Return UShortToShort + End Function + + ' ---------------------------------------- + ' Trasforma uno Short in un UnisignedShort + ' ---------------------------------------- + Public Function ShortToUShort(ByVal sValue As Short) As UShort + Dim dValue As Double + Dim numBit As Byte + + 'numero bit tipo di dato (short -> 16 bit, integer -> 32 bit, long -> 64bit) + numBit = 16 + + If sValue < 0 Then + dValue = CDbl(sValue) + dValue = dValue + CDbl(2 ^ numBit) + ShortToUShort = CUShort(dValue) + Else + ShortToUShort = CUShort(sValue) + End If + + Return ShortToUShort + + End Function + +#End Region + +#End Region + +End Class \ No newline at end of file diff --git a/CVCncLib/Modules/IniRead.vb b/CVCncLib/Modules/IniRead.vb new file mode 100644 index 00000000..fa2d7375 --- /dev/null +++ b/CVCncLib/Modules/IniRead.vb @@ -0,0 +1,464 @@ +Public Module IniRead + + Public Const OVERWRITE As Boolean = True + Public Const APPEND As Boolean = True + Public Const DO_NOT_APPEND As Boolean = False + + Public sz_ini_file_name As String + + Public sz_program_path As String + Public sz_temporary_path As String + Public sz_allowed_extension As String + + Public b_debug As Boolean + Public b_verbose As Boolean + Public b_test_nc As Boolean + Public b_send_file As Boolean + + Public b_log_enabled As Boolean + Public szLogFileName As String + + Public b_win7 As Boolean + + Public b_open_control As Boolean + Public b_force_S10WLK32 As Boolean + Public b_no_WinNBI As Boolean + + Public szNameNC As String + Public nVar_NC_state As Integer ' @STATUS_PRG PLC var number ( GW ) : Nc program state + + Public nVar_prg_1_ok As Integer + Public nVar_prg_2_ok As Integer + + Public sz_ODD_program_name As String + Public sz_EVEN_program_name As String + + Public sz_AUTO_program_name As String + + Public n_program_to_send As Short + + Public szDefaultNameNC As String + Public szDefaultPathNC As String + + Public lTimerInterval As Long + + Public b_SerialBarCodeReader_enabled As Boolean + Public n_SerialBarCodeReader_comm_port As Int16 + Public sz_SerialBarCodeReader_settings As String + + Public b_UsbBarCodeReader_enabled As String + + Public b_BarCodeInput_enabled As Boolean + + Public b_FileInputMode_enabled As Boolean + Public sz_FileInputName As String + + + Public n_num_barcode_fields As Short + Public sz_barcode_mask As String + Public sz_barcode_preprocessing As String + + Public b_Table_enabled As Boolean + Public sz_table_filename As String + Public b_reload_table As Boolean + + Public b_ext_program_enabled As Boolean + Public sz_ext_program_filename As String + Public sz_ext_return_filename As String + Public sz_ext_temp_filename As String + + Public b_CAM_program_enabled As Boolean + Public sz_CAM_program_exefilename As String + Public sz_CAM_data_path As String + Public sz_CAM_data_ext As String + Public sz_CAM_arguments As String + Public sz_CAM_return_ext As String + Public sz_CAM_Probe_ext As String + + Public b_direct_mode_enabled As Boolean + Public sz_direct_prefix As String + Public sz_direct_suffix As String + + Public b_select_mode_enabled As Boolean + Public sz_probe_arguments As String + Public sz_cn_arguments As String + + Public n_L_var_1 As Int16 + Public n_L_var_2 As Int16 + + Public n_L_value_1_on As Int16 + Public n_L_value_1_off As Int16 + Public n_L_value_2_on As Int16 + Public n_L_value_2_off As Int16 + Public n_timeout As Int16 + + Public sz_nc_probe_path As String + Public sz_nc_probe_ext As String + Public b_fixed_probe_file As Boolean + Public sz_nc_fixed_probe_file As String + Public b_read_DDF_file As Boolean + Public sz_property_1 As String + Public sz_property_2 As String + + Public b_toolcomp_update As Boolean + Public n_toolcomp_number As Int16 + Public sz_toolcomp_file As String + Public sz_toolcomp_command As String + +#Region "registration" + + 'Questo campo e' il campo di referenza serve a creare la relativa KEy di sblocco + Public developerKey As String + + 'Richiede solo numeri interi + Public regTry As Integer + + 'Flag per identificare la registrazione del programma + Public pRegistered As Boolean + + Public PC_serial_number As Long + Public sPC_serial_number As String + Public SW_version As String + Public registered_key As String + Public registered_key2 As String + Public registered_key3 As String + Public registered_customer As String + +#End Region + +#Region "example of INI file" + + ' file door_pro.ini + '[General] + + + 'Program path = c:\Users\carlo\Documents\Projects\vs2008\door_pro\door_pro\programs + 'allowed ext = .anc .TXT + 'temp path = c:\Users\carlo\Documents\Projects\vs2008\door_pro\door_pro\temp + ' + 'w7 = true + 'timer = 1000 + + '[Debug] + 'debug = true + 'verbose = false + + '[Log] + 'enabled = true + 'Log file = c:\Users\carlo\Documents\Projects\vs2008\door_pro\door_pro\temp\log + + '[NC] + 'name = NC9000 + 'NC state = 230 + 'Prog1 ok = 232 + 'Prog2 ok = 233 + + 'default_name = MAIN + 'default_path = Y:\UPP\ + + 'ODD_name = 1000 + 'EVEN_name = 2000 + 'AUTO_name = UPP\MAINAUTO + 'program_to_send = 4 + + '[BarCode] + 'fields = 1 + 'MASK = xx11111xxx223333xx44xxxxxx + 'PreProcessing = "1-2" + + '[SerialBarCodeReader] + 'enabled = true + 'Port = 4 + 'Settings=9600,n,8,1 + + '[UsbBarCodeReader] + 'enabled = false + + '[Table] + 'enabled = true + 'file = c:\pro_d\pro_d\prg\worklist.aut + + '[CAM] + 'enabled = true + 'program = C:\abc\ww.exe + 'datapath + 'arguments + 'return_file_ext = txt + + '[Direct] + 'enabled = true + 'pre = C:\door_pro\programs\ + 'post = .cnc + + '[Key] + ' regkey = 12345 + ' regkey2 = 2345 + ' regkey3 = 2345 + ' customer = qwe + +#End Region + + Sub Ini_read() + + sz_ini_file_name = Application.StartupPath & "\config\" & Application.ProductName & ".ini" + + Dim ini As New IniReader(sz_ini_file_name) + + ini.Section = "General" '----------------------------------------------------- + + sz_program_path = clear_ending_bar(ini.ReadString("Program path")) + sz_temporary_path = clear_ending_bar(ini.ReadString("temp path")) + sz_allowed_extension = clear_starting_point(ini.ReadString("allowed ext").ToLower) + + lTimerInterval = ini.ReadLong("timer", 1000) + + b_win7 = ini.ReadBoolean("w7", False) + + ini.Section = "Debug" '----------------------------------------------------- + + b_debug = ini.ReadBoolean("debug", False) + b_verbose = ini.ReadBoolean("verbose", False) + b_test_nc = ini.ReadBoolean("test_nc", False) + + b_send_file = ini.ReadBoolean("send_file", False) + + ini.Section = "Log" '----------------------------------------------------- + + b_log_enabled = ini.ReadBoolean("enabled", False) + szLogFileName = ini.ReadString("Log file") + + ini.Section = "NC" '----------------------------------------------------- + + + b_open_control = ini.ReadBoolean("OpenControl", False) + b_force_S10WLK32 = ini.ReadBoolean("S10WLK32", False) + b_no_WinNBI = ini.ReadBoolean("No WinNBI", False) + + szNameNC = ini.ReadString("name") + nVar_NC_state = ini.ReadInteger("NC state") + nVar_prg_1_ok = ini.ReadInteger("Prog1 ok") + nVar_prg_2_ok = ini.ReadInteger("Prog2 ok") + + szDefaultNameNC = ini.ReadString("default_name") + szDefaultPathNC = clear_ending_bar(ini.ReadString("default_path")) + + sz_ODD_program_name = ini.ReadString("ODD_name") + sz_EVEN_program_name = ini.ReadString("EVEN_name") + + n_program_to_send = ini.ReadInteger("program_to_send", 1) + + ini.Section = "BarCode" '----------------------------------------------------- + + '[BarCode] + 'fields = 1 + 'MASK = xx11111xxx223333xx44xxxxxx + 'PreProcessing = "1-2" + + n_num_barcode_fields = ini.ReadInteger("fields", 1) + sz_barcode_mask = ini.ReadString(ini.Section, "MASK", "11111111") + sz_barcode_preprocessing = ini.ReadString(ini.Section, "PreProcessing", "=") + + ini.Section = "SerialBarCodeReader" '----------------------------------------------------- + + '[SerialBarCodeReader] + 'enabled = true + 'Port = 4 + 'Settings=9600,n,8,1 + + b_SerialBarCodeReader_enabled = ini.ReadBoolean("enabled", False) + n_SerialBarCodeReader_comm_port = ini.ReadInteger("Port", 1) + sz_SerialBarCodeReader_settings = ini.ReadString(ini.Section, "Settings", "9600,None,8,1") + + ini.Section = "UsbBarCodeReader" '----------------------------------------------------- + + '[UsbBarCodeReader] + 'enabled = true + + b_UsbBarCodeReader_enabled = ini.ReadBoolean("enabled", False) + + If b_UsbBarCodeReader_enabled And b_SerialBarCodeReader_enabled Then + Log.write_and_messagebox(" Both USB and serial bar code reader enabled - please disable one ... ", 34) + End + End If + + b_BarCodeInput_enabled = b_UsbBarCodeReader_enabled Or b_SerialBarCodeReader_enabled + + + ini.Section = "FileInput" '----------------------------------------------------- + + '[FileInput] + 'enabled = true + 'InputFile = C:\input\data.txt + + b_FileInputMode_enabled = ini.ReadBoolean("enabled", False) + sz_FileInputName = ini.ReadString(ini.Section, "InputFile", "") + + If b_BarCodeInput_enabled And b_FileInputMode_enabled Then + Log.write_and_messagebox(" Both file input and bar code mode enabled - please disable one ... ", 35) + End + End If + + If (Not b_BarCodeInput_enabled) And (Not b_FileInputMode_enabled) Then + Log.write_and_messagebox(" No file input mode nor bar code mode enabled - please enable one ... ", 36) + End + End If + + ini.Section = "Table" '----------------------------------------------------- + + '[Table] + 'enabled = true + 'file = c:\pro_d\pro_d\prg\worklist.aut + + b_Table_enabled = ini.ReadBoolean("enabled", False) + sz_table_filename = ini.ReadString("file") + b_reload_table = ini.ReadBoolean("reload", False) + + ini.Section = "EXT" '----------------------------------------------------- + + '[EXT] + 'enabled = true + 'program = C:\abc\ww.exe + 'return_file = c:\pro_d\pro_d\prg\worklist.aut + + b_ext_program_enabled = ini.ReadBoolean("enabled", False) + sz_ext_program_filename = ini.ReadString("program") + sz_ext_return_filename = ini.ReadString("return_file") + sz_ext_temp_filename = ini.ReadString("temp_file") + + ini.Section = "CAM" '----------------------------------------------------- + + '[CAM] + 'enabled = true + 'program = C:\abc\ww.exe + 'datapath + 'arguments + 'return_file_ext = c:\pro_d\pro_d\prg\worklist.aut + + b_CAM_program_enabled = ini.ReadBoolean("enabled", False) + sz_CAM_program_exefilename = ini.ReadString("program") + + sz_CAM_data_path = (ini.ReadString("datapath")) + sz_CAM_data_path = sz_CAM_data_path.Replace("""", "") + sz_CAM_data_path = clear_ending_bar(sz_CAM_data_path) + + sz_CAM_data_ext = clear_starting_point(ini.ReadString("dataext")) + + sz_CAM_arguments = ini.ReadString("arguments") + sz_CAM_return_ext = clear_starting_point(ini.ReadString("return_file_ext")) + sz_CAM_Probe_ext = clear_starting_point(ini.ReadString("probe_file_ext")) + + ini.Section = "Direct" '----------------------------------------------------- + + '[Direct] + 'enabled = true + 'pre = C:\abc\ww\ + 'post = .cnc + + b_direct_mode_enabled = ini.ReadBoolean("enabled", False) + sz_direct_prefix = ini.ReadString("pre") + sz_direct_suffix = ini.ReadString("post") + + ini.Section = "Select" '----------------------------------------------------- + + '[Select] + 'enabled = true + 'p_arguments = " 3" + 'c_arguments = " 4" + 'L var 1 = 916 + 'L var 2 = 919 + 'L value 1 on = 1 + 'L value 1 off = 0 + 'L value 2 on = 2 + 'L value 2 off = 2 + 'timeout = 300 + ' NC probe file path = m: \Cnc\DDF\ + ' NC probe file ext = dat + ' fixed probe file = true + ' NC_probe_file = UPP\PROGRA1\Data.prb + ' read file = true + ' prop1 = properties: + ' prop2 = skinned + + b_select_mode_enabled = ini.ReadBoolean("enabled", False) + sz_probe_arguments = ini.ReadString("p_arguments") + sz_cn_arguments = ini.ReadString("c_arguments") + + n_L_var_1 = ini.ReadInteger("L var 1") + n_L_var_2 = ini.ReadInteger("L var 2") + + n_L_value_1_on = ini.ReadInteger("L value 1 on") + n_L_value_1_off = ini.ReadInteger("L value 1 off") + n_L_value_2_on = ini.ReadInteger("L value 2 on") + n_L_value_2_off = ini.ReadInteger("L value 2 off") + n_timeout = ini.ReadInteger("timeout") + + sz_nc_probe_path = ini.ReadString("NC probe file path") + sz_nc_probe_path = clear_ending_bar(sz_nc_probe_path) + + sz_nc_probe_ext = clear_starting_point(ini.ReadString("NC probe file ext")) + + b_fixed_probe_file = ini.ReadBoolean("fixed probe file", False) + sz_nc_fixed_probe_file = Trim(ini.ReadString("NC_probe_file")) + + b_read_DDF_file = ini.ReadBoolean("read DDF file", False) + + sz_property_1 = Trim(ini.ReadString("prop1")) + sz_property_2 = Trim(ini.ReadString("prop2")) + + + '----------- check that only one method is enabled + + Dim n_methods As Short = 0 + + If b_Table_enabled Then n_methods = n_methods + 1 + If b_ext_program_enabled Then n_methods = n_methods + 1 + If b_CAM_program_enabled Then n_methods = n_methods + 1 + If b_direct_mode_enabled Then n_methods = n_methods + 1 + If b_select_mode_enabled Then n_methods = n_methods + 1 + + If n_methods > 1 Then + Log.write_and_messagebox(" Too many input modes enabled .. - please enable only one ... ", 38) + End + End If + + If n_methods < 1 Then + Log.write_and_messagebox(" No input mode enabled ( CAM / Table / external / direct /.. - please enable one ... ", 40) + End + End If + + ini.Section = "Key" '----------------------------------------------------- + + ' [Key] + ' regkey = 12345 + ' regkey2 = 2345 + ' customer = qwe + + registered_key = UCase$(ini.ReadString("regkey")) + registered_key2 = UCase$(ini.ReadString("regkey2")) + registered_key3 = UCase$(ini.ReadString("regkey3")) + + registered_customer = ini.ReadString("Customer") + + End Sub + Sub write_customer(ByVal sz_customer As String) + + Dim ini As New IniReader(sz_ini_file_name) + + ini.Write("Key", "Customer", sz_customer) + + End Sub + + Sub write_Program_path(ByVal sz_data_file_name As String) + + Dim ini As New IniReader(sz_ini_file_name) + + ini.Write("General", "Program path", sz_data_file_name) + + End Sub + +#Region "fuffa" + + +#End Region + +End Module diff --git a/CVCncLib/Modules/IniReader.vb b/CVCncLib/Modules/IniReader.vb new file mode 100644 index 00000000..e053c6e1 --- /dev/null +++ b/CVCncLib/Modules/IniReader.vb @@ -0,0 +1,454 @@ +' +' IniReader class + +Imports System +Imports System.Text +Imports System.Collections +Imports System.Runtime.InteropServices +Imports Microsoft.VisualBasic + + + ''' + ''' The INIReader class can read keys from and write keys to an INI file. + ''' + ''' + ''' This class uses several Win32 API functions to read from and write to INI files. It will not work on Linux or FreeBSD. + ''' + + Public Class IniReader + + ''' + ''' The GetPrivateProfileInt function retrieves an integer associated with a key in the specified section of an initialization file. + ''' + ''' Pointer to a null-terminated string specifying the name of the section in the initialization file. + ''' Pointer to the null-terminated string specifying the name of the key whose value is to be retrieved. This value is in the form of a string; the GetPrivateProfileInt function converts the string into an integer and returns the integer. + ''' Specifies the default value to return if the key name cannot be found in the initialization file. + ''' Pointer to a null-terminated string that specifies the name of the initialization file. If this parameter does not contain a full path to the file, the system searches for the file in the Windows directory. + ''' The return value is the integer equivalent of the string following the specified key name in the specified initialization file. If the key is not found, the return value is the specified default value. If the value of the key is less than zero, the return value is zero. + + Private Declare Ansi Function GetPrivateProfileInt Lib "kernel32.dll" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer + + ''' + ''' The WritePrivateProfileString function copies a string into the specified section of an initialization file. + ''' + ''' Pointer to a null-terminated string containing the name of the section to which the string will be copied. If the section does not exist, it is created. The name of the section is case-independent; the string can be any combination of uppercase and lowercase letters. + ''' Pointer to the null-terminated string containing the name of the key to be associated with a string. If the key does not exist in the specified section, it is created. If this parameter is NULL, the entire section, including all entries within the section, is deleted. + ''' Pointer to a null-terminated string to be written to the file. If this parameter is NULL, the key pointed to by the lpKeyName parameter is deleted. + ''' Pointer to a null-terminated string that specifies the name of the initialization file. + ''' If the function successfully copies the string to the initialization file, the return value is nonzero; if the function fails, or if it flushes the cached version of the most recently accessed initialization file, the return value is zero. + + Private Declare Ansi Function WritePrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer + + ''' + ''' The GetPrivateProfileString function retrieves a string from the specified section in an initialization file. + ''' + ''' Pointer to a null-terminated string that specifies the name of the section containing the key name. If this parameter is NULL, the GetPrivateProfileString function copies all section names in the file to the supplied buffer. + ''' Pointer to the null-terminated string specifying the name of the key whose associated string is to be retrieved. If this parameter is NULL, all key names in the section specified by the lpAppName parameter are copied to the buffer specified by the lpReturnedString parameter. + ''' Pointer to a null-terminated default string. If the lpKeyName key cannot be found in the initialization file, GetPrivateProfileString copies the default string to the lpReturnedString buffer. This parameter cannot be NULL.
Avoid specifying a default string with trailing blank characters. The function inserts a null character in the lpReturnedString buffer to strip any trailing blanks.
+ ''' Pointer to the buffer that receives the retrieved string. + ''' Specifies the size, in TCHARs, of the buffer pointed to by the lpReturnedString parameter. + ''' Pointer to a null-terminated string that specifies the name of the initialization file. If this parameter does not contain a full path to the file, the system searches for the file in the Windows directory. + ''' The return value is the number of characters copied to the buffer, not including the terminating null character. + + Private Declare Ansi Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As StringBuilder, ByVal nSize As Integer, ByVal lpFileName As String) As Integer + + ''' + ''' The GetPrivateProfileSectionNames function retrieves the names of all sections in an initialization file. + ''' + ''' Pointer to a buffer that receives the section names associated with the named file. The buffer is filled with one or more null-terminated strings; the last string is followed by a second null character. + ''' Specifies the size, in TCHARs, of the buffer pointed to by the lpszReturnBuffer parameter. + ''' Pointer to a null-terminated string that specifies the name of the initialization file. If this parameter is NULL, the function searches the Win.ini file. If this parameter does not contain a full path to the file, the system searches for the file in the Windows directory. + ''' The return value specifies the number of characters copied to the specified buffer, not including the terminating null character. If the buffer is not large enough to contain all the section names associated with the specified initialization file, the return value is equal to the length specified by nSize minus two. + + Private Declare Ansi Function GetPrivateProfileSectionNames Lib "kernel32" Alias "GetPrivateProfileSectionNamesA" (ByVal lpszReturnBuffer() As Byte, ByVal nSize As Integer, ByVal lpFileName As String) As Integer + + ''' + ''' The WritePrivateProfileSection function replaces the keys and values for the specified section in an initialization file. + ''' + ''' Pointer to a null-terminated string specifying the name of the section in which data is written. This section name is typically the name of the calling application. + ''' Pointer to a buffer containing the new key names and associated values that are to be written to the named section. + ''' Pointer to a null-terminated string containing the name of the initialization file. If this parameter does not contain a full path for the file, the function searches the Windows directory for the file. If the file does not exist and lpFileName does not contain a full path, the function creates the file in the Windows directory. The function does not create a file if lpFileName contains the full path and file name of a file that does not exist. + ''' If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero.
 + + Private Declare Ansi Function WritePrivateProfileSection Lib "kernel32.dll" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer + + ''' Constructs a new IniReader instance. + ''' Specifies the full path to the INI file (the file doesn't have to exist). + + Public Sub New(ByVal file As String) + Filename = file + End Sub + + ''' Gets or sets the full path to the INI file. + ''' A String representing the full path to the INI file. + ''' + + Public Property Filename() As String + Get + Return m_Filename + End Get + Set(ByVal Value As String) + m_Filename = Value + End Set + End Property + + ''' Gets or sets the section you're working in. (aka 'the active section') + ''' A String representing the section you're working in. + ''' + + Public Property Section() As String + Get + Return m_Section + End Get + Set(ByVal Value As String) + m_Section = Value + End Set + End Property + + ''' Reads an Integer from the specified key of the specified section. + ''' The section to search in. + ''' The key from which to return the value. + ''' The value to return if the specified key isn't found. + ''' Returns the value of the specified section/key pair, or returns the default value if the specified section/key pair isn't found in the INI file. + + Public Function ReadInteger(ByVal section As String, ByVal key As String, ByVal defVal As Integer) As Integer + Return GetPrivateProfileInt(section, key, defVal, Filename) + End Function + + ''' Reads an Integer from the specified key of the specified section. + ''' The section to search in. + ''' The key from which to return the value. + ''' Returns the value of the specified section/key pair, or returns 0 if the specified section/key pair isn't found in the INI file. + + Public Function ReadInteger(ByVal section As String, ByVal key As String) As Integer + Return ReadInteger(section, key, 0) + End Function + + ''' Reads an Integer from the specified key of the active section. + ''' The key from which to return the value. + ''' The section to search in. + ''' Returns the value of the specified Key, or returns the default value if the specified Key isn't found in the active section of the INI file. + + Public Function ReadInteger(ByVal key As String, ByVal defVal As Integer) As Integer + Return ReadInteger(Section, key, defVal) + End Function + + ''' Reads an Integer from the specified key of the active section. + ''' The key from which to return the value. + ''' Returns the value of the specified key, or returns 0 if the specified key isn't found in the active section of the INI file. + + Public Function ReadInteger(ByVal key As String) As Integer + Return ReadInteger(key, 0) + End Function + + ''' Reads a String from the specified key of the specified section. + ''' The section to search in. + ''' The key from which to return the value. + ''' The value to return if the specified key isn't found. + ''' Returns the value of the specified section/key pair, or returns the default value if the specified section/key pair isn't found in the INI file. + + Public Function ReadString(ByVal section As String, ByVal key As String, ByVal defVal As String) As String + Dim sb As New StringBuilder(MAX_ENTRY) + Dim Ret As Integer = GetPrivateProfileString(section, key, defVal, sb, MAX_ENTRY, Filename) + Return sb.ToString() + End Function + + ''' Reads a String from the specified key of the specified section. + ''' The section to search in. + ''' The key from which to return the value. + ''' Returns the value of the specified section/key pair, or returns an empty String if the specified section/key pair isn't found in the INI file. + + Public Function ReadString(ByVal section As String, ByVal key As String) As String + Return ReadString(section, key, "") + End Function + + ''' Reads a String from the specified key of the active section. + ''' The key from which to return the value. + ''' Returns the value of the specified key, or returns an empty String if the specified key isn't found in the active section of the INI file. + + Public Function ReadString(ByVal key As String) As String + Return ReadString(Section, key) + End Function + + ''' Reads a Long from the specified key of the specified section. + ''' The section to search in. + ''' The key from which to return the value. + ''' The value to return if the specified key isn't found. + ''' Returns the value of the specified section/key pair, or returns the default value if the specified section/key pair isn't found in the INI file. + + Public Function ReadLong(ByVal section As String, ByVal key As String, ByVal defVal As Long) As Long + Return Long.Parse(ReadString(section, key, defVal.ToString())) + End Function + + ''' Reads a Long from the specified key of the specified section. + ''' The section to search in. + ''' The key from which to return the value. + ''' Returns the value of the specified section/key pair, or returns 0 if the specified section/key pair isn't found in the INI file. + + Public Function ReadLong(ByVal section As String, ByVal key As String) As Long + Return ReadLong(section, key, 0) + End Function + + ''' Reads a Long from the specified key of the active section. + ''' The key from which to return the value. + ''' The section to search in. + ''' Returns the value of the specified key, or returns the default value if the specified key isn't found in the active section of the INI file. + + Public Function ReadLong(ByVal key As String, ByVal defVal As Long) As Long + Return ReadLong(Section, key, defVal) + End Function + + ''' Reads a Long from the specified key of the active section. + ''' The key from which to return the value. + ''' Returns the value of the specified Key, or returns 0 if the specified Key isn't found in the active section of the INI file. + + Public Function ReadLong(ByVal key As String) As Long + Return ReadLong(key, 0) + End Function + + ''' Reads a Byte array from the specified key of the specified section. + ''' The section to search in. + ''' The key from which to return the value. + ''' Returns the value of the specified section/key pair, or returns null (Nothing in VB.NET) if the specified section/key pair isn't found in the INI file. + + Public Function ReadByteArray(ByVal section As String, ByVal key As String) As Byte() + Try + Return Convert.FromBase64String(ReadString(section, key)) + Catch + End Try + Return Nothing + End Function + + ''' Reads a Byte array from the specified key of the active section. + ''' The key from which to return the value. + ''' Returns the value of the specified key, or returns null (Nothing in VB.NET) if the specified key pair isn't found in the active section of the INI file. + + Public Function ReadByteArray(ByVal key As String) As Byte() + Return ReadByteArray(Section, key) + End Function + + ''' Reads a Boolean from the specified key of the specified section. + ''' The section to search in. + ''' The key from which to return the value. + ''' The value to return if the specified key isn't found. + ''' Returns the value of the specified section/key pair, or returns the default value if the specified section/key pair isn't found in the INI file. + + Public Function ReadBoolean(ByVal section As String, ByVal key As String, ByVal defVal As Boolean) As Boolean + + Dim b_ret As Boolean = False + + Try + b_ret = Boolean.Parse(ReadString(section, key, defVal.ToString())) + Catch + b_ret = False + End Try + Return b_ret + End Function + + ''' Reads a Boolean from the specified key of the specified section. + ''' The section to search in. + ''' The key from which to return the value. + ''' Returns the value of the specified section/key pair, or returns false if the specified section/key pair isn't found in the INI file. + + Public Function ReadBoolean(ByVal section As String, ByVal key As String) As Boolean + Return ReadBoolean(section, key, False) + End Function + + ''' Reads a Boolean from the specified key of the specified section. + ''' The key from which to return the value. + ''' The value to return if the specified key isn't found. + ''' Returns the value of the specified key pair, or returns the default value if the specified key isn't found in the active section of the INI file. + + Public Function ReadBoolean(ByVal key As String, ByVal defVal As Boolean) As Boolean + Return ReadBoolean(Section, key, defVal) + End Function + + ''' Reads a Boolean from the specified key of the specified section. + ''' The key from which to return the value. + ''' Returns the value of the specified key, or returns false if the specified key isn't found in the active section of the INI file. + + Public Function ReadBoolean(ByVal key As String) As Boolean + Return ReadBoolean(Section, key) + End Function + + ''' Writes an Integer to the specified key in the specified section. + ''' The section to write in. + ''' The key to write to. + ''' The value to write. + ''' Returns true if the function succeeds, false otherwise. + + Public Function Write(ByVal section As String, ByVal key As String, ByVal value As Integer) As Boolean + Return Write(section, key, value.ToString()) + End Function + + ''' Writes an Integer to the specified key in the active section. + ''' The key to write to. + ''' The value to write. + ''' Returns true if the function succeeds, false otherwise. + + Public Function Write(ByVal key As String, ByVal value As Integer) As Boolean + Return Write(Section, key, value) + End Function + + ''' Writes a String to the specified key in the specified section. + ''' Specifies the section to write in. + ''' Specifies the key to write to. + ''' Specifies the value to write. + ''' Returns true if the function succeeds, false otherwise. + + Public Function Write(ByVal section As String, ByVal key As String, ByVal value As String) As Boolean + Return (WritePrivateProfileString(section, key, value, Filename) <> 0) + End Function + + ''' Writes a String to the specified key in the active section. + ''' The key to write to. + ''' The value to write. + ''' Returns true if the function succeeds, false otherwise. + + Public Function Write(ByVal key As String, ByVal value As String) As Boolean + Return Write(Section, key, value) + End Function + + ''' Writes a Long to the specified key in the specified section. + ''' The section to write in. + ''' The key to write to. + ''' The value to write. + ''' Returns true if the function succeeds, false otherwise. + + Public Function Write(ByVal section As String, ByVal key As String, ByVal value As Long) As Boolean + Return Write(section, key, value.ToString()) + End Function + + ''' Writes a Long to the specified key in the active section. + ''' The key to write to. + ''' The value to write. + ''' Returns true if the function succeeds, false otherwise. + + Public Function Write(ByVal key As String, ByVal value As Long) As Boolean + Return Write(Section, key, value) + End Function + + ''' Writes a Byte array to the specified key in the specified section. + ''' The section to write in. + ''' The key to write to. + ''' The value to write. + ''' Returns true if the function succeeds, false otherwise. + + Public Function Write(ByVal section As String, ByVal key As String, ByVal value() As Byte) As Boolean + If value Is Nothing Then + Return Write(section, key, CType(Nothing, String)) + Else + Return Write(section, key, value, 0, value.Length) + End If + End Function + + ''' Writes a Byte array to the specified key in the active section. + ''' The key to write to. + ''' The value to write. + ''' Returns true if the function succeeds, false otherwise. + + Public Function Write(ByVal key As String, ByVal value() As Byte) As Boolean + Return Write(Section, key, value) + End Function + + ''' Writes a Byte array to the specified key in the specified section. + ''' The section to write in. + ''' The key to write to. + ''' The value to write. + ''' An offset in value. + ''' The number of elements of value to convert. + ''' Returns true if the function succeeds, false otherwise. + + Public Function Write(ByVal section As String, ByVal key As String, ByVal value() As Byte, ByVal offset As Integer, ByVal length As Integer) As Boolean + If value Is Nothing Then + Return Write(section, key, CType(Nothing, String)) + Else + Return Write(section, key, Convert.ToBase64String(value, offset, length)) + End If + End Function + + ''' Writes a Boolean to the specified key in the specified section. + ''' The section to write in. + ''' The key to write to. + ''' The value to write. + ''' Returns true if the function succeeds, false otherwise. + + Public Function Write(ByVal section As String, ByVal key As String, ByVal value As Boolean) As Boolean + Return Write(section, key, value.ToString()) + End Function + + ''' Writes a Boolean to the specified key in the active section. + ''' The key to write to. + ''' The value to write. + ''' Returns true if the function succeeds, false otherwise. + + Public Function Write(ByVal key As String, ByVal value As Boolean) As Boolean + Return Write(Section, key, value) + End Function + + ''' Deletes a key from the specified section. + ''' The section to delete from. + ''' The key to delete. + ''' Returns true if the function succeeds, false otherwise. + + Public Function DeleteKey(ByVal section As String, ByVal key As String) As Boolean + Return (WritePrivateProfileString(section, key, Nothing, Filename) <> 0) + End Function + + ''' Deletes a key from the active section. + ''' The key to delete. + ''' Returns true if the function succeeds, false otherwise. + ''' + + Public Function DeleteKey(ByVal key As String) As Boolean + Return (WritePrivateProfileString(Section, key, Nothing, Filename) <> 0) + End Function + + ''' Deletes a section from an INI file. + ''' The section to delete. + ''' Returns true if the function succeeds, false otherwise. + + Public Function DeleteSection(ByVal section As String) As Boolean + Return WritePrivateProfileSection(section, Nothing, Filename) <> 0 + End Function + + ''' + ''' Retrieves a list of all available sections in the INI file. + ''' + ''' + ''' Returns an ArrayList with all available sections. + ''' + + Public Function GetSectionNames() As ArrayList + Try + Dim buffer(MAX_ENTRY) As Byte + GetPrivateProfileSectionNames(buffer, MAX_ENTRY, Filename) + Dim parts() As String = Encoding.ASCII.GetString(buffer).Trim(ControlChars.NullChar).Split(ControlChars.NullChar) + Return New ArrayList(parts) + Catch + End Try + Return Nothing + End Function + + 'Private variables and constants + + ''' + ''' Holds the full path to the INI file. + ''' + + Private m_Filename As String + + ''' + ''' Holds the active section name + ''' + + Private m_Section As String + + ''' + ''' The maximum number of bytes in a section buffer. + ''' + + Private Const MAX_ENTRY As Integer = 32768 + + End Class + diff --git a/CVCncLib/Modules/L_File_aux.vb b/CVCncLib/Modules/L_File_aux.vb new file mode 100644 index 00000000..b9ad03cc --- /dev/null +++ b/CVCncLib/Modules/L_File_aux.vb @@ -0,0 +1,60 @@ +' +' libreria : VBlib +' file : L_File_aux +' +' funzioni : routines aux sui nomi file +' +' copyright 2008-2015 C.Viviani +' +Module L_File_aux + + Function clear_ending_bar(ByVal a As String) As String ' clear the eventual ending "\" in a directory name + a = Trim(a) + If (Right$(a, 1) = "\") Then + a = Left$(a, Len(a) - 1) + End If + clear_ending_bar = a + End Function + + Function add_ending_bar (ByVal s As String) As String + If Len(s) > 0 Then + If Right$(s, 1) <> "\" Then + add_ending_bar = s + "\" + Else + add_ending_bar = s + End If + Else + add_ending_bar = "\" + End If + End Function + + Function clear_starting_point(ByVal a As String) As String ' clear the eventual starting "." in a file ext + a = Trim(a) + If (Left$(a, 1) = ".") Then + a = Right$(a, Len(a) - 1) + End If + clear_starting_point = a + End Function + + Function true_false_from_yes_no(ByVal a As String) As Boolean + a = UCase$(a) + true_false_from_yes_no = False + If InStr(a, "Y") Then true_false_from_yes_no = True + If InStr(a, "S") Then true_false_from_yes_no = True + End Function + + Function clear_starting_forward_bar(ByVal a As String) As String ' clear the eventual initial "/" + a = Trim(a) + If (Left$(a, 1) = "/") Then + a = Right$(a, Len(a) - 1) + End If + clear_starting_forward_bar = a + End Function + + Function trim_to_n_char(ByVal a As String, ByVal n As Integer) As String + a = Trim(a) + If Len(a) > n Then a = Left$(a, n) + trim_to_n_char = a + End Function + +End Module diff --git a/CVCncLib/Modules/Log.vb b/CVCncLib/Modules/Log.vb new file mode 100644 index 00000000..a0c61844 --- /dev/null +++ b/CVCncLib/Modules/Log.vb @@ -0,0 +1,47 @@ +' +' libreria : VBlib +' file : Log.vb +' +' funzioni : gestione log file +' +' copyright 2008-2017 C.Viviani +' +Imports System.IO +Imports Microsoft.VisualBasic + +Public Module Log + + Const MAX_LOG_FILE As Long = 1000000 + + Dim fs As FileStream + Dim szInternalFilename As String + + Public Sub init(ByVal szLogFileName As String) + + + + End Sub + + Sub finish() + + End Sub + + Sub write(ByRef sz_arg As String) + + + + End Sub + + Sub write_and_messagebox(ByRef sz_arg As String, n_error As Integer) + + + End Sub + + Private Sub ll_write(ByRef sz_arg As String) + + + + End Sub + +End Module + diff --git a/CVCncLib/Modules/M_aspect.vb b/CVCncLib/Modules/M_aspect.vb new file mode 100644 index 00000000..584ac863 --- /dev/null +++ b/CVCncLib/Modules/M_aspect.vb @@ -0,0 +1,126 @@ +Module M_aspect + + Const BUTTON_TOP As Integer = 380 + Const BUTTON_WIDTH As Integer = 75 + Const BUTTON_HEIGHT As Integer = 40 + + Sub init() + With FrmMain + + ' -------------- positions ---------------- + + Call Button_init() + + ' -------------- clear labels ---------------- + + .LblProgramName.Text = "---------" + + ' ------------ messages ------------------------- + + + .LblCurrentProgram.Text = Message.msg(36) ' Currently machining : + .LblMachineStatus.Text = Message.msg(37) ' Machine Status : + ' .LblNextProgram.Text = Message.msg(38) ' Next program : + + + Call button_text() + + ' -------------- visibilities ------------------ + + Call button_visibility() + + .LblConnected.Visible = True + .LblProgramName.Visible = True + + .LblMachineStatus.Visible = True + .LblMachState.Visible = True + + + .LblCurrentProgram.Visible = True + .LblNcStatus.Visible = True + + If (IniRead.b_BarCodeInput_enabled Or IniRead.b_FileInputMode_enabled) And pRegistered Then + + ' Call M_serial_barcode.set_textbox(.TxtBarCode) + End If + + + + + ' -------------- size ------------------------- + + ' -------------- simulation ------------------ + + If IniRead.b_debug Then ' simulation stuff + + .BtnSim0.Visible = True + .BtnSim1.Visible = True + .BtnSim2.Visible = True + .BtnSim3.Visible = True + .BtnSim4.Visible = True + .BtnSim5.Visible = True + .LblSimPrgSent1.Visible = True + .LblSimPrgSent2.Visible = True + + End If + + ' ---------------- old osai + + If (IniRead.b_force_S10WLK32 And IniRead.b_verbose) Or (IniRead.b_test_nc) Then + .BtnReadOldOsai.Visible = True + .BtnWrite1OldOsai.Visible = True + .BtnWrite2OldOsai.Visible = True + .BtnWrite3OldOsai.Visible = True + .BtnWrite4OldOsai.Visible = True + .BtnWrite5OldOsai.Visible = True + .LblReadOldOsai.Visible = True + + .BtnReadOldOsai.Text = "R var " & IniRead.nVar_NC_state.ToString + .BtnWrite1OldOsai.Text = "W1" + .BtnWrite2OldOsai.Text = "W2" + .BtnWrite3OldOsai.Text = "W3" + .BtnWrite4OldOsai.Text = "W4" + .BtnWrite5OldOsai.Text = "W5" + End If + + + If (IniRead.b_win7 And IniRead.b_test_nc) Or (IniRead.b_send_file) Then + .Btn_test_file.Visible = True + End If + + End With + + End Sub + + Private Sub Button_init() + + With FrmMain + + + .BtnExit.Top = BUTTON_TOP + .BtnExit.Width = BUTTON_WIDTH + .BtnExit.Height = BUTTON_HEIGHT + .BtnExit.Left = 220 + + + End With + End Sub + + Private Sub button_visibility() + With FrmMain + .BtnExit.Visible = True + + End With + + End Sub + + Private Sub button_text() + With FrmMain + + .BtnExit.Text = Message.msg(21) ' Exit + End With + + End Sub + + +End Module diff --git a/CVCncLib/Modules/M_cn_connection.vb b/CVCncLib/Modules/M_cn_connection.vb new file mode 100644 index 00000000..4dc4e8f6 --- /dev/null +++ b/CVCncLib/Modules/M_cn_connection.vb @@ -0,0 +1,458 @@ +Imports System.IO + +Module M_cn_connection + +#Region "ENUM States and Local Constants" + +#End Region + +#Region "Global Constants" + + Public Const SLEEP_TIME As Integer = 150 ' attesa connessione CN + Public Const MAX_RETRY As Integer = 10 ' numero tentativi connessione CN + +#End Region + +#Region "Global Vars" + + ' oggetto Serie per connessione PC / CN + Public CnOsai As ComCNOsai + +#End Region + +#Region "local vars " + + Private b_first_time As Boolean + + Private nret As Int16 + + ' Private send_mode As e_send_mode = e_send_mode.SM_SIMPLE + + Private b_even As Boolean = False + + Private n_prev_Value_NC_running As Byte + Private sz_NC_Program_Name As String + + ' Private Start_time As DateTime + ' Private Stop_time As DateTime + + +#End Region + + + ' --------------------------------------------------------- + ' ---- Procedura per inizializzare connessione con CN ----- + ' --------------------------------------------------------- + ' --------------------------------------------------------- + Sub StartConnection() + + Dim szCmdLink As String = "" + Dim b_DotNet As Boolean + Dim b_ok As Boolean = False + + FrmMain.Show() + + ' se non in debug + If (Not IniRead.b_debug) Then + + FrmMain.LblConnected.Visible = True ' !! + FrmMain.LblConnected.Text = "Step 1....." ' !! + + If IniRead.b_verbose Then + Log.write(FrmMain.LblConnected.Text & " " & IniRead.szNameNC) + FrmMain.LblConnected.Text = Message.msg(8) & IniRead.szNameNC + ' MsgBox(Message.msg(8) & IniRead.szNameNC) ' connecting to + End If + + ' istanzio l'oggetto CN + + + If IniRead.b_force_S10WLK32 Or IniRead.b_open_control Or IniRead.b_no_WinNBI Then + b_ok = True + Else + b_ok = ComCNOsai.GetWinnbi(b_DotNet) + End If + + If b_ok Then + + If IniRead.b_open_control Then ' osai serie open ? + CnOsai = New Open_Series(IniRead.szNameNC, IniRead.b_debug) + Else + + If IniRead.b_force_S10WLK32 Then ' vecchissimi cn serie 10 non winnbi ? + 'CnOsai = New ComCNOSAI_S10WLK32(IniRead.szNameNC, False) + Else + If IniRead.b_no_WinNBI Then ' forzo versione non .NET + CnOsai = New ComCNOSAIVB6(IniRead.szNameNC, False) + Else + If b_DotNet Then ' win nbi con .Net + CnOsai = New ComCNOsai(IniRead.szNameNC, False) + Else + CnOsai = New ComCNOSAIVB6(IniRead.szNameNC, False) + End If ' win nbi con .Net + + End If ' forzo versione non .NET + End If ' vecchissimi cn serie 10 non winnbi + End If ' osai serie open + + If IniRead.b_verbose And Not IniRead.b_force_S10WLK32 And Not IniRead.b_open_control And Not IniRead.b_no_WinNBI Then + FrmMain.LblConnected.Text = "Win nbi v." & ComCNOsai.GetWinnbi_version() & "New : " & b_DotNet.ToString + Log.write("Win nbi v." & ComCNOsai.GetWinnbi_version() & "New : " & b_DotNet.ToString) + + ' MsgBox(ComCNOsai.GetWinnbi_version() & vbCrLf & "Nuova : " & b_DotNet.ToString, , "Win nbi version") + End If + + + b_ok = CnOsai.OpenSession() + + FrmMain.LblConnected.Visible = True + + ' connessione non ok + If (CnOsai.Connected = False) Then + + FrmMain.LblConnected.Text = Message.msg(11) ' "NOT CONNECTED" + FrmMain.LblConnected.ForeColor = Color.Red + MsgBox(CnOsai.ErrMsg, MsgBoxStyle.Critical, Message.msg(10)) ' Nc connection + Log.write(" Error connecting " & IniRead.szNameNC & " " & CnOsai.ErrMsg) + Else + + FrmMain.LblConnected.Text = Message.msg(12) ' "NC connect ok " + FrmMain.LblConnected.ForeColor = Color.Blue + + If IniRead.b_open_control Then ' if open control + Else + + Do While Not CnOsai.Is_NC_running + + System.Threading.Thread.Sleep(SLEEP_TIME) + + Loop + End If ' if open control + + End If ' connessione non ok + + Log.write(FrmMain.LblConnected.Text) + + Else + MsgBox("Missing Win NBI", MsgBoxStyle.Critical, "Missing Win NBI") ' Nc connection + + End If + + + Else ' se in debug + + FrmMain.LblConnected.Text = "DEBUG" + FrmMain.LblConnected.ForeColor = Color.Orange + + End If + + End Sub + + Sub CheckConnection() + + ' un po' di letture per vedere se funziona + + Dim b_timeout As Boolean = False + Dim n_retry As Integer + Dim n_temp As Integer + Dim Var_tmp As ComCNOsai.stVAR + + + + ' ' effetuo net use di sicurezza per evitare che il collegamento non sia stato ancora avvenuto + ' szCmdLink = "net use " & Ini.DiskCn & " \\" & IniRead.szNameNc & "\PROGRA1" + ' Shell(szCmdLink) + ' System.Threading.Thread.Sleep(100) + + + n_retry = 0 + + + Var_tmp.nAddress = nVar_NC_state + Var_tmp.nBit = 0 ' solo x evitare warning ... + Var_tmp.nNumCn = 1 ' solo x evitare warning ... + Var_tmp.szVarName = "" ' solo x evitare warning ... + + If (Not IniRead.b_debug) Then + + System.Threading.Thread.Sleep(SLEEP_TIME) + + If IniRead.b_verbose Then Log.write(" Check NC connection 1") ' + + If IniRead.b_force_S10WLK32 Then ' vecchissimi cn serie 10 non winnbi ? + + If IniRead.b_verbose Then Log.write("b_force_S10WLK32") ' + + Else + + b_timeout = True + + Do While n_retry < MAX_RETRY + + System.Threading.Thread.Sleep(SLEEP_TIME) + + Try + + n_temp = CnOsai.ReadShortVar(Var_tmp) + + Catch ex As Exception + + MsgBox(ex.Message,, "check connection ") + + End Try + + + If n_temp <> ComCNOsai.ERRORVALUE Then + b_timeout = False + Exit Do + + End If + n_retry = n_retry + 1 + + If IniRead.b_verbose Then Log.write(" Check NC connection 2 : " & FrmMain.LblConnected.Text) + + + If Not (CnOsai Is Nothing) Then + CnOsai.CloseSession() + End If + + FrmMain.LblConnected.Text = Str(n_retry) + If IniRead.b_verbose Then Log.write(" Check NC connection 3 : " & FrmMain.LblConnected.Text) + + + System.Threading.Thread.Sleep(SLEEP_TIME) + CnOsai.OpenSession() + + If CnOsai.Connected Then + Else + FrmMain.LblConnected.Text = Str(n_retry) & " -- " & CnOsai.ErrMsg + If IniRead.b_verbose Then Log.write(" Check NC connection 4 ( bad ) : " & FrmMain.LblConnected.Text) + + End If + + Loop + End If + + + If b_timeout Then + + FrmMain.LblConnected.Text = Message.msg(13) ' " CANNOT CONNECT (2)" + FrmMain.LblConnected.ForeColor = Color.OrangeRed + MsgBox(CnOsai.ErrMsg, MsgBoxStyle.Critical, Message.msg(13)) ' CANNOT CONNECT (2) + Log.write(Message.msg(13) & " - " & CnOsai.ErrMsg) + + End + + Else + + ' Imposto Label Connected con il nome del Channel utilizzato + FrmMain.LblConnected.Text = FrmMain.LblConnected.Text + " (" + IniRead.szNameNC + ")" + FrmMain.LblConnected.ForeColor = Color.DarkGreen + + Log.write(FrmMain.LblConnected.Text) + + End If + + + + End If + + End Sub + ' ------------------------------------------------------------------------------- + ' ---- interfaccia con simulazione della scrittura variabili CN ----------------- + ' ------------------------------------------------------------------------------- + Sub Write_NC_var(ByVal n_var As Integer, ByVal n_value As Integer) + + Dim Var_tmp As ComCNOsai.stVAR + + If Not IniRead.b_debug Then ' effettiva scrittura su CN + + Var_tmp.nAddress = n_var + Var_tmp.nBit = 0 ' solo x evitare warning ... + Var_tmp.nNumCn = 1 ' solo x evitare warning ... + Var_tmp.szVarName = "" ' solo x evitare warning ... + + Call CnOsai.WriteShortVar(Var_tmp, n_value) + + Else ' simulation + If n_var = IniRead.nVar_prg_1_ok Then + + If n_value = 0 Then + FrmMain.LblSimPrgSent1.BackColor = Color.Azure + Else + FrmMain.LblSimPrgSent1.BackColor = Color.LawnGreen + End If + End If + + If n_var = IniRead.nVar_prg_2_ok Then + If n_value = 0 Then + FrmMain.LblSimPrgSent2.BackColor = Color.Azure + Else + FrmMain.LblSimPrgSent2.BackColor = Color.LawnGreen + End If + End If + End If + + End Sub + ' ------------------------------------------------------------------------------- + ' ---- interfaccia con simulazione della lettura variabili CN ------------------- + ' ------------------------------------------------------------------------------- + Function Read_Nc_var(ByVal n_var As Integer) As Short + + Dim Var_tmp As ComCNOsai.stVAR + + Dim n_temp As Short + + If Not IniRead.b_debug Then ' effettiva lettura da CN + + Var_tmp.nAddress = n_var + Var_tmp.nBit = 0 ' solo x evitare warning ... + Var_tmp.nNumCn = 1 ' solo x evitare warning ... + Var_tmp.szVarName = "" ' solo x evitare warning ... + + n_temp = CnOsai.ReadShortVar(Var_tmp) + + Else ' simulation + n_temp = FrmMain.n_simulated_index ' read the state of the buttons .... + End If + + Return n_temp + + End Function + + Sub Write_NC_L_var(ByVal n_var As Integer, ByVal d_value As Double) + + Dim Var_tmp As ComCNOsai.stVAR + + If Not IniRead.b_debug Then ' effettiva scrittura su CN + + Var_tmp.nAddress = n_var + Var_tmp.nBit = 0 ' solo x evitare warning ... + Var_tmp.nNumCn = 1 ' solo x evitare warning ... + Var_tmp.szVarName = "" ' solo x evitare warning ... + + Call CnOsai.WriteVarL(Var_tmp, d_value) + + Else ' simulation + End If + + End Sub + + Function Read_Nc_L_var(ByVal n_var) As Double + + Dim Var_tmp As ComCNOsai.stVAR + + Dim d_temp As Double + + If Not IniRead.b_debug Then ' effettiva lettura da CN + + Var_tmp.nAddress = n_var + Var_tmp.nBit = 0 ' solo x evitare warning ... + Var_tmp.nNumCn = 1 ' solo x evitare warning ... + Var_tmp.szVarName = "" ' solo x evitare warning ... + + d_temp = CnOsai.ReadVarL(Var_tmp) + + Else ' simulation + d_temp = 0.1234 + End If + + Return d_temp + + End Function + + ' ------------------------------------------------------------------------------- + ' ---- Controlla se CN è in RUN ------------------------------------------------- + ' ------------------------------------------------------------------------------- + Function Check_NC_running() As Boolean + + Dim info1 As CndexLinkDotNet.Cndex.GETINFO1DATA + Dim ProcStat As CndexLinkDotNet.Cndex.PROCDATA + + Dim n_NC_status As Byte + ' Dim n_NC_status_bis As Byte + + + info1.rap_feed_ov = 0 ' per placare i warning ma non sembra funzionare.... + + Check_NC_running = True + + ' If (CnOsai.NcInfo1(info1)) Then + ' n_NC_status = info1.status + + If (CnOsai.NcProcessStatus(ProcStat)) Then + + + n_NC_status = ProcStat.Status + + Select Case n_NC_status + + Case ComCNOsai.EMERG_ + Check_NC_running = False + + Case ComCNOsai.ERRO_ + Check_NC_running = False + + Case ComCNOsai.RESET_ + Check_NC_running = False + + Case ComCNOsai.IDLE_ + Check_NC_running = False + + Case ComCNOsai.CYCLE_ + Check_NC_running = True + + Case ComCNOsai.HOLDA_ + Case ComCNOsai.RUNH_ + Case ComCNOsai.HRUN_ + + + End Select + + End If + + Return Check_NC_running + + End Function + + ' ------------------------------------------------------------------------------- + ' ---- Get NC status ------------------------------------------------- + ' ------------------------------------------------------------------------------- + Function Get_NC_status(ByRef n_NC_sub_status As Short) As Short + + Dim info1 As CndexLinkDotNet.Cndex.GETINFO1DATA + Dim ProcStat As CndexLinkDotNet.Cndex.PROCDATA + + Dim n_NC_status As Short + + info1.rap_feed_ov = 0 ' per placare i warning ma non sembra funzionare.... + + + If (CnOsai.NcProcessStatus(ProcStat)) Then + n_NC_status = ProcStat.Status + n_NC_sub_status = ProcStat.SubStatus + Else + MsgBox(CnOsai.ErrMsg) + End If + + Return n_NC_status + + End Function + + + + + Function CN_error_class() As Long + + Return CnOsai.ErrClass + + End Function + + Function CN_error_num() As Long + + Return CnOsai.ErrNum + + End Function + + +End Module diff --git a/CVCncLib/Modules/M_machine.vb b/CVCncLib/Modules/M_machine.vb new file mode 100644 index 00000000..deb429e1 --- /dev/null +++ b/CVCncLib/Modules/M_machine.vb @@ -0,0 +1,21 @@ +Module M_machine + + Sub get_machine_state() + + machine_state = Read_Nc_var(IniRead.nVar_NC_state) + + End Sub + + Sub set_var_prg_1_ok(ByVal state As Integer) + + Write_NC_var(IniRead.nVar_prg_1_ok, state) + + End Sub + + Sub set_var_prg_2_ok(ByVal state As Integer) + + Write_NC_var(IniRead.nVar_prg_2_ok, state) + + End Sub + +End Module diff --git a/CVCncLib/Modules/M_state_machine.vb b/CVCncLib/Modules/M_state_machine.vb new file mode 100644 index 00000000..b3b63636 --- /dev/null +++ b/CVCncLib/Modules/M_state_machine.vb @@ -0,0 +1,375 @@ +Imports System.IO + +Module M_state_machine + + +#Region "Global Constants" + + Public Const ODD As Integer = 1 + Public Const EVEN As Integer = 0 ' was 2 , changed to 0 for zero based arrays + + Public Const ERR_RET As Short = 0 + Public Const OK_RET As Short = 1 + +#End Region + +#Region "ENUM States" + + Public Enum mach_state_Type + T_RESET = 0 + T_READY = 1 + T_MACHINING_1 = 2 + T_END_MACHINING_1 = 3 + T_MACHINING_2 = 4 + T_END_MACHINING_2 = 5 + T_BAD_PART = 8 + End Enum + +#End Region + +#Region "Global Vars" + + Public machine_state As mach_state_Type + Public sim_machine_state As mach_state_Type + + Public b_restarting As Boolean + Public sz_start_datetime(2) As String + + Public b_running As Boolean + Public sz_next_program As String + +#End Region + +#Region "local variables " + + Private prev_machine_state As mach_state_Type + Private entry_state As Boolean + Private b_check_new_program As Boolean + + + + Private b_machining_odd_prog As Boolean + + Private sz_dest As String + Private sz_source As String + Private sz_source_s(10) As String + + +#End Region + + Sub init() + + b_running = True + + machine_state = mach_state_Type.T_RESET + prev_machine_state = mach_state_Type.T_RESET + + b_restarting = False + + entry_state = True + + b_check_new_program = False + + ' set the fist machining to be ODD + Call set_b_machining_odd_prog(True) + + + + End Sub + ' + ' the real main state machine + ' + Sub go() + + 'If Not b_running Then Exit Sub + + '' Call Display_machine_data() + + 'Call M_machine.get_machine_state() + + 'If entry_state Then FrmMain.LblMachState.Text = Message.msg(45) ' waiting machine to get ready...... + + + Dim ncInfo As CndexLinkDotNet.Cndex.GETINFO1DATA + ncInfo = Nothing + + + Dim machineStatus As Byte + Dim modeSelected As Byte + + ' modi/stati vedere CncOSAI riga 85 + + machineStatus = CnOsai.GetMachineStatus() + modeSelected = CnOsai.GetModeSelected() + + + ' valore bitmap dello statup IOB + Dim status As Short = 0 + + ' power on + If CnOsai.Connected Then + status += 1 + End If + + ' RUN mode + If (machineStatus = ComCNOsai.CYCLE_ And modeSelected = ComCNOsai.AUTO) Then + status += 2 + End If + + ' Allarme + If (machineStatus = ComCNOsai.ERRO_) Then + status += 8 + End If + + ' Manuale + If (modeSelected <> ComCNOsai.AUTO) Then + status += 16 + End If + + ' Allarme + If (machineStatus = ComCNOsai.EMERG_) Then + status += 32 + End If + + + ' compongo i bit di status... + Dim IobBitmap As String + IobBitmap = "--------------" + vbCrLf + IobBitmap += "Bitmap IOB:" + vbCrLf + IobBitmap += status.ToString() + vbCrLf + IobBitmap += "--------------" + vbCrLf + vbCrLf + + ' per leggere variabili dichiaro la struttura + Dim temp As ComCNOsai.stVAR + temp.nAddress = nVar_NC_state ' da conf che vale 352 da + temp.nBit = 0 + temp.nNumCn = 1 + temp.szVarName = "" + + Dim risultato As Short + risultato = CnOsai.ReadShortVar(temp) + + IobBitmap += vbCrLf + IobBitmap += "Variabile " + nVar_NC_state.ToString() + ": " + risultato.ToString() + + + FrmMain.LblMapoIOB.Text = IobBitmap + + + + 'CnOsai.NcInfo1(ncInfo) + + FrmMain.LblMachState.Text = "Status:" + machineStatus.ToString() + " / Mode: " + modeSelected.ToString() + + '' wait for state 0 or 1 at beginning + + 'If entry_state And (machine_state = mach_state_Type.T_MACHINING_1) Then Exit Sub + 'If entry_state And (machine_state = mach_state_Type.T_MACHINING_2) Then Exit Sub + 'If entry_state And (machine_state = mach_state_Type.T_END_MACHINING_1) Then Exit Sub + 'If entry_state And (machine_state = mach_state_Type.T_END_MACHINING_2) Then Exit Sub + + 'entry_state = False + + 'Select Case machine_state + + ' ' _______________________ T_RESET STATE ____________________ + + ' Case mach_state_Type.T_RESET + ' FrmMain.LblMachState.Text = Message.msg(46) ' Not Ready + + ' '_______________________ T_READY STATE ____________________ + + ' Case mach_state_Type.T_READY + ' FrmMain.LblMachState.Text = Message.msg(47) ' Ready + ' FrmMain.LblProgramName.Text = "------" + + ' If prev_machine_state <> mach_state_Type.T_READY Then ' state change ?? + ' b_check_new_program = True ' enable 1 run only after state change + ' End If ' cambio di stato + + ' If b_check_new_program Then ' + ' If get_next_item_no_qty() Then + ' Call start_machining() + ' b_check_new_program = False + ' End If + ' End If ' controllo programmi disponibili abilitato + + ' '_______________________ T_MACHINING_1 STATE ____________________ + + ' Case mach_state_Type.T_MACHINING_1 + + ' FrmMain.LblMachState.Text = Message.msg(49) ' machining + + ' If prev_machine_state <> mach_state_Type.T_MACHINING_1 Then ' state change ?? + + ' If prev_machine_state = mach_state_Type.T_MACHINING_2 Then ' skipped end machining 2 ?? + + + ' End If ' skipped end machining 2 + + ' b_check_new_program = True ' enable 1 run only after state change + + ' ' save start time + + ' sz_start_datetime(ODD) = Now.ToString + ' Debug.Print(" Start time " & sz_start_datetime(ODD) & " odd/even " & Str(ODD)) + ' Call Log.write("Start time" & sz_start_datetime(ODD) & " odd/even " & Str(ODD)) + + ' ' here change in queue display drawing if any + ' ' here change in drawing if any + ' ' Call M_wmf.picture_send(True) + + + + ' End If ' state change + + ' Call check_and_start() + + ' '_______________________ T_END_MACHINING_1 STATE ____________________ + + ' Case mach_state_Type.T_END_MACHINING_1 + + ' FrmMain.LblMachState.Text = Message.msg(48) ' end machining + ' FrmMain.LblProgramName.Text = "------" + + ' If prev_machine_state <> mach_state_Type.T_END_MACHINING_1 Then ' state change ?? + + ' ' here change in drawing if any + + ' End If ' state change + + ' Call check_and_start() + + ' '_______________________ T_MACHINING_2 STATE ____________________ + + ' Case mach_state_Type.T_MACHINING_2 + + ' FrmMain.LblMachState.Text = Message.msg(49) ' machining + + ' If prev_machine_state <> mach_state_Type.T_MACHINING_2 Then ' state change ?? + + ' If prev_machine_state = mach_state_Type.T_MACHINING_1 Then ' skipped end machining 1 ?? + + + ' End If ' skipped end machining 1 + + ' b_check_new_program = True ' enable 1 run only after state change + + ' ' save start time + + ' sz_start_datetime(EVEN) = Now.ToString + ' Debug.Print(" Start time " & sz_start_datetime(EVEN) & " odd/even " & Str(EVEN)) + ' Call Log.write("Start time" & sz_start_datetime(EVEN) & " odd/even " & Str(EVEN)) + + ' ' here change in queue display drawing if any + ' ' here change in drawing if any + ' ' Call M_wmf.picture_send(False) + + + ' End If ' state change + + ' Call check_and_start() + + ' '_______________________ T_END_MACHINING_2 STATE ____________________ + + ' Case mach_state_Type.T_END_MACHINING_2 + + ' FrmMain.LblMachState.Text = Message.msg(48) ' end machining + ' FrmMain.LblProgramName.Text = "------" + + ' If prev_machine_state <> mach_state_Type.T_END_MACHINING_2 Then ' state change ?? + + ' ' here change in drawing if any + + ' End If ' state change + + ' Call check_and_start() + + ' '__________________________________________ + + 'End Select + + 'prev_machine_state = machine_state + + End Sub + + ' returns the next item from the queue ( if any ) + + Private Function get_next_item_no_qty() As Boolean + + Dim b_ret As Boolean = False + + + + Return b_ret + + End Function + + Private Sub check_and_start() + + If b_check_new_program Then ' available programs check enabled ?? + If get_next_item_no_qty() Then + Call start_machining() + b_check_new_program = False + End If + End If ' available programs check enabled + + End Sub + + ' some serious processing here .... + + Private Sub start_machining() + + End Sub + + Private Sub crea_programma() + + + End Sub + + Private Sub set_dest_program_name() + + + + End Sub + + Private Sub set_b_machining_odd_prog(ByVal b As Boolean) + + + End Sub + + '------------------------------------------------------------- + '------------------------------------------------------------- + +#Region "my funny valentine" + ' + ' ritorna 1 ( OK_RET ) se ok ; 0 ( ERR_RET ) se in errore + ' + Function my_f_____copy_file_to_nc(ByVal sz_Pc_file_name As String, ByVal sz_Nc_file_name As String) As Short + + + + End Function + + Sub my_f_____File_Delete(ByVal sz_to_delete As String) + + End Sub + + ' + ' ritorna 1 ( OK_RET ) se ok ; 0 ( ERR_RET ) se in errore + ' + Function my_f_____copy_file_from_nc(ByVal sz_Nc_file_name As String, ByVal sz_Pc_file_name As String) As Short + + + End Function + + + +#End Region + + Private Sub Display_machine_data() + + + End Sub + +End Module diff --git a/CVCncLib/Modules/Message.vb b/CVCncLib/Modules/Message.vb new file mode 100644 index 00000000..08abc60e --- /dev/null +++ b/CVCncLib/Modules/Message.vb @@ -0,0 +1,36 @@ +' +' libreria : VBlib +' file : Message +' +' funzioni : gestione messaggi +' +' copyright 2008-2015 C.Viviani +' +Imports System +Imports System.IO +Imports System.IO.File + +Public Module Message + + Public msg() As String + + Sub init() + + Dim sz_filename As String + + sz_filename = Application.StartupPath & "\messages\" & Application.ProductName & ".msg" + + If File.Exists(sz_filename) Then ' + Try + msg = System.IO.File.ReadAllLines(sz_filename) + Catch e As Exception + MsgBox(e.Message, MsgBoxStyle.Critical, "Error !") + End + End Try + Else + MsgBox(" Missing message file :" & vbCrLf & sz_filename, MsgBoxStyle.Critical, "Error 3 :") + End + End If + End Sub + +End Module diff --git a/CVCncLib/My Project/Application.Designer.vb b/CVCncLib/My Project/Application.Designer.vb new file mode 100644 index 00000000..2086b57e --- /dev/null +++ b/CVCncLib/My Project/Application.Designer.vb @@ -0,0 +1,38 @@ +'------------------------------------------------------------------------------ +' +' Il codice è stato generato da uno strumento. +' Versione runtime:4.0.30319.42000 +' +' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se +' il codice viene rigenerato. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + 'NOTA: il file è generato automaticamente e non può essere modificato direttamente. Per apportare modifiche + ' o se vengono rilevati errori di compilazione nel file, passare a Progettazione progetti + ' (aprire le proprietà del progetto o fare doppio clic sul nodo Progetto in + ' Esplora soluzioni) e apportare le modifiche nella scheda Applicazione. + ' + Partial Friend Class MyApplication + + _ + Public Sub New() + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) + Me.IsSingleInstance = false + Me.EnableVisualStyles = true + Me.SaveMySettingsOnExit = true + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses + End Sub + + _ + Protected Overrides Sub OnCreateMainForm() + Me.MainForm = Global.testSam.FrmMain + End Sub + End Class +End Namespace diff --git a/CVCncLib/My Project/Application.myapp b/CVCncLib/My Project/Application.myapp new file mode 100644 index 00000000..8f84d6b0 --- /dev/null +++ b/CVCncLib/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + true + FrmMain + false + 0 + true + 0 + true + \ No newline at end of file diff --git a/CVCncLib/My Project/AssemblyInfo.vb b/CVCncLib/My Project/AssemblyInfo.vb new file mode 100644 index 00000000..3a0ff5bb --- /dev/null +++ b/CVCncLib/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' General Information about an assembly is controlled through the following +' set of attributes. Change these attribute values to modify the information +' associated with an assembly. + +' Review the values of the assembly attributes + + + + + + + + + + +'The following GUID is for the ID of the typelib if this project is exposed to COM + + +' Version information for an assembly consists of the following four values: +' +' Major Version +' Minor Version +' Build Number +' Revision +' +' You can specify all the values or you can default the Build and Revision Numbers +' by using the '*' as shown below: +' + + + diff --git a/CVCncLib/My Project/Resources.Designer.vb b/CVCncLib/My Project/Resources.Designer.vb new file mode 100644 index 00000000..e7db4b4d --- /dev/null +++ b/CVCncLib/My Project/Resources.Designer.vb @@ -0,0 +1,63 @@ +'------------------------------------------------------------------------------ +' +' Il codice è stato generato da uno strumento. +' Versione runtime:4.0.30319.42000 +' +' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se +' il codice viene rigenerato. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'Questa classe è stata generata automaticamente dalla classe StronglyTypedResourceBuilder. + 'tramite uno strumento quale ResGen o Visual Studio. + 'Per aggiungere o rimuovere un membro, modificare il file con estensione ResX ed eseguire nuovamente ResGen + 'con l'opzione /str oppure ricompilare il progetto VS. + ''' + ''' Classe di risorse fortemente tipizzata per la ricerca di stringhe localizzate e così via. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Restituisce l'istanza di ResourceManager nella cache utilizzata da questa classe. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("testSam.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Esegue l'override della proprietà CurrentUICulture del thread corrente per tutte le + ''' ricerche di risorse eseguite utilizzando questa classe di risorse fortemente tipizzata. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/CVCncLib/My Project/Resources.resx b/CVCncLib/My Project/Resources.resx new file mode 100644 index 00000000..af7dbebb --- /dev/null +++ b/CVCncLib/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/CVCncLib/My Project/Settings.Designer.vb b/CVCncLib/My Project/Settings.Designer.vb new file mode 100644 index 00000000..fb4c174b --- /dev/null +++ b/CVCncLib/My Project/Settings.Designer.vb @@ -0,0 +1,93 @@ +'------------------------------------------------------------------------------ +' +' Il codice è stato generato da uno strumento. +' Versione runtime:4.0.30319.42000 +' +' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se +' il codice viene rigenerato. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) + +#Region "Funzionalità di salvataggio automatico My.Settings" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + + _ + Public ReadOnly Property door_pro_WebReference_OPENcontrol() As String + Get + Return CType(Me("door_pro_WebReference_OPENcontrol"),String) + End Get + End Property + + _ + Public ReadOnly Property d_prod_WebReference_OPENcontrol() As String + Get + Return CType(Me("d_prod_WebReference_OPENcontrol"),String) + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.testSam.My.MySettings + Get + Return Global.testSam.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/CVCncLib/My Project/Settings.settings b/CVCncLib/My Project/Settings.settings new file mode 100644 index 00000000..631b5669 --- /dev/null +++ b/CVCncLib/My Project/Settings.settings @@ -0,0 +1,12 @@ + + + + + + http://192.168.20.2:8080 + + + http://192.168.20.2:8080 + + + \ No newline at end of file diff --git a/CVCncLib/My Project/app.manifest b/CVCncLib/My Project/app.manifest new file mode 100644 index 00000000..4c249cd2 --- /dev/null +++ b/CVCncLib/My Project/app.manifest @@ -0,0 +1,22 @@ + + + + + + + + + + + + diff --git a/CVCncLib/Service References/OPENcontrol.wsdl b/CVCncLib/Service References/OPENcontrol.wsdl new file mode 100644 index 00000000..1a05dbcb --- /dev/null +++ b/CVCncLib/Service References/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/CVCncLib/Service References/OpenControl/OPENcontrol.wsdl b/CVCncLib/Service References/OpenControl/OPENcontrol.wsdl new file mode 100644 index 00000000..478497aa --- /dev/null +++ b/CVCncLib/Service References/OpenControl/OPENcontrol.wsdl @@ -0,0 +1,5895 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Service definition of function ns__BootPhaseEnquiry + + + + + Service definition of function ns__BootReboot + + + + + Service definition of function ns__BootShutDown + + + + + Service definition of function ns__BootMode + + + + + Service definition of function ns__GetHWKey + + + + + Service definition of function ns__ReadVarWord + + + + + Service definition of function ns__ReadVarDouble + + + + + Service definition of function ns__WriteVarWord + + + + + Service definition of function ns__WriteVarWordBit + + + + + Service definition of function ns__WriteVarDouble + + + + + Service definition of function ns__ReadVarText + + + + + Service definition of function ns__WriteVarText + + + + + Service definition of function ns__ReadWarningMsg + + + + + Service definition of function ns__ResetSingleTableII + + + + + Service definition of function ns__LockTableII + + + + + Service definition of function ns__UnLockTableII + + + + + Service definition of function ns__GetOriginTabRecordII + + + + + Service definition of function ns__SetOriginTabRecordII + + + + + Service definition of function ns__GetToolTabRecordII + + + + + Service definition of function ns__SetToolTabRecordII + + + + + Service definition of function ns__GetOffsetTabRecordII + + + + + Service definition of function ns__SetOffsetTabRecordII + + + + + Service definition of function ns__GetUserTabRecordII + + + + + Service definition of function ns__SetUserTabRecordII + + + + + Service definition of function ns__SaveTables + + + + + Service definition of function ns__RestoreSingleTable + + + + + Service definition of function ns__SaveSingleTable + + + + + Service definition of function ns__SaveBackupMemory + + + + + Service definition of function ns__RestoreBackupMemory + + + + + Service definition of function ns__Cycle + + + + + Service definition of function ns__SyncroCycle + + + + + Service definition of function ns__Reset + + + + + Service definition of function ns__Hold + + + + + Service definition of function ns__SetFeedManOver + + + + + Service definition of function ns__SetFeedRateOver + + + + + Service definition of function ns__SetFeedRapidOver + + + + + Service definition of function ns__SetSpeedRateOver + + + + + Service definition of function ns__SetManMovDirection + + + + + Service definition of function ns__GetVarJOG + + + + + Service definition of function ns__SetVarJOG + + + + + Service definition of function ns__SetVarUAS + + + + + Service definition of function ns__GetVarRCM + + + + + Service definition of function ns__SetVarRCM + + + + + Service definition of function ns__GetProcVarWord + + + + + Service definition of function ns__SetProcVarWord + + + + + Service definition of function ns__GetProcVarDouble + + + + + Service definition of function ns__SetProcVarDouble + + + + + Service definition of function ns__SetMdiString + + + + + Service definition of function ns__SetProcessMode + + + + + Service definition of function ns__SelectProcess + + + + + Service definition of function ns__GetSelectedProcess + + + + + Service definition of function ns__SelectProcAxis + + + + + Service definition of function ns__SelectPartProgram + + + + + Service definition of function ns__SelectPartProgramFromDrive + + + + + Service definition of function ns__GetActivePartProgram + + + + + Service definition of function ns__GetPartProgramLines + + + + + Service definition of function ns__GetAxOriginNum + + + + + Service definition of function ns__GetAxesPosition + + + + + Service definition of function ns__GetNcInfo1 + + + + + Service definition of function ns__GetNcInfo2 + + + + + Service definition of function ns__GetToolNames + + + + + Service definition of function ns__GetProcessStatus + + + + + Service definition of function ns__GetBlkNum + + + + + Service definition of function ns__ReadErrMsg + + + + + Service definition of function ns__ReadPartProgramMsg + + + + + Service definition of function ns__GetGCode + + + + + Service definition of function ns__GetMCode + + + + + Service definition of function ns__SkipPProgBlock + + + + + Service definition of function ns__Ese + + + + + Service definition of function ns__EseEx + + + + + Service definition of function ns__Exe + + + + + Service definition of function ns__AxesRef + + + + + Service definition of function ns__DncInit + + + + + Service definition of function ns__DncData + + + + + Service definition of function ns__DncEof + + + + + Service definition of function ns__DncStop + + + + + Service definition of function ns__GetAxesInfo3 + + + + + Service definition of function ns__GetCodeNumber + + + + + Service definition of function ns__GetOptions + + + + + Service definition of function ns__GetDateTime + + + + + Service definition of function ns__SetDateTime + + + + + Service definition of function ns__GetSerialNumber + + + + + Service definition of function ns__PutFile + + + + + Service definition of function ns__GetFile + + + + + Service definition of function ns__PutBinaryFile + + + + + Service definition of function ns__GetBinaryFile + + + + + Service definition of function ns__LogFSSetSecurityLevel + + + + + Service definition of function ns__LogFSGetSecurityLevel + + + + + Service definition of function ns__LogFSLongFileNames + + + + + Service definition of function ns__LogFSGetNumDrive + + + + + Service definition of function ns__LogFSGetDriveList + + + + + Service definition of function ns__LogFSGetHiddenDriveList + + + + + Service definition of function ns__LogFSGetDrivePath + + + + + Service definition of function ns__LogFSAddDrive + + + + + Service definition of function ns__LogFSRemoveDrive + + + + + Service definition of function ns__LogFSReloadDriveList + + + + + Service definition of function ns__LogFSCreateDir + + + + + Service definition of function ns__LogFSCreateFile + + + + + Service definition of function ns__LogFSGetFileSize + + + + + Service definition of function ns__LogFSGetFileAttrib + + + + + Service definition of function ns__LogFSSetFileAttrib + + + + + Service definition of function ns__LogFSChangeFileAttrib + + + + + Service definition of function ns__LogFSFindFirst + + + + + Service definition of function ns__LogFSFindNext + + + + + Service definition of function ns__LogFSFindClose + + + + + Service definition of function ns__LogFSRemoveFile + + + + + Service definition of function ns__LogFSRemoveDir + + + + + Service definition of function ns__LogFSRename + + + + + Service definition of function ns__LogFSCopyFile + + + + + Service definition of function ns__LogFSGetInfo + + + + + Service definition of function ns__GetAvailableCustomEvents + + + + + Service definition of function ns__GetSysTick + + + + + Service definition of function ns__GetProcessConfNum + + + + + Service definition of function ns__MonOpenChannel + + + + + Service definition of function ns__MonCloseChannel + + + + + Service definition of function ns__MonAddVariable + + + + + Service definition of function ns__MonDeleteVariable + + + + + Service definition of function ns__MonStartSampling + + + + + Service definition of function ns__MonStopSampling + + + + + Service definition of function ns__MonGetVariable + + + + + Service definition of function ns__CheckHistory + + + + + Service definition of function ns__ReadHistoryEmergMsg + + + + + Service definition of function ns__ReadHistoryErrorMsg + + + + + Service definition of function ns__ReadHistoryLogMsg + + + + + Service definition of function ns__ReadHistoryAnomalyMsg + + + + + Service definition of function ns__ReadCurrentErrorMsg + + + + + Service definition of function ns__ReadCurrentEmergMsg + + + + + Service definition of function ns__ReadCurrentAnomalyMsg + + + + + Service definition of function ns__GetPTechSizes + + + + + Service definition of function ns__LoadPTech + + + + + Service definition of function ns__GetMarkerInfo + + + + + Service definition of function ns__ManagePartProgram + + + + + Service definition of function ns__LogFSOpenFile + + + + + Service definition of function ns__LogFSCloseFile + + + + + Service definition of function ns__LogFSWriteRecord + + + + + Service definition of function ns__LogFSReadRecord + + + + + Service definition of function ns__ReadRemapDefinitions + + + + + Service definition of function ns__WriteRemapDefinitions + + + + + Service definition of function ns__GetServoPar + + + + + Service definition of function ns__SetServoPar + + + + + Service definition of function ns__GetCNCRegKey + + + + + Service definition of function ns__SetIpAddress + + + + + Service definition of function ns__GetProcInInput + + + + + Service definition of function ns__SndProcInpData + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + OPENcontrol Web Services Definition + + + + + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/Reference.svcmap b/CVCncLib/Service References/OpenControl/Reference.svcmap new file mode 100644 index 00000000..73204471 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/Reference.svcmap @@ -0,0 +1,30 @@ + + + + false + true + + false + false + false + + + true + Auto + true + true + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/Reference.vb b/CVCncLib/Service References/OpenControl/Reference.vb new file mode 100644 index 00000000..e642a24e --- /dev/null +++ b/CVCncLib/Service References/OpenControl/Reference.vb @@ -0,0 +1,29126 @@ +'------------------------------------------------------------------------------ +' +' Il codice è stato generato da uno strumento. +' Versione runtime:4.0.30319.42000 +' +' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se +' il codice viene rigenerato. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace OpenControl + + _ + Public Interface OPENcontrolPortType + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione BootPhaseEnquiry non è RPC né incapsulata da documenti. + _ + Function BootPhaseEnquiry(ByVal request As OpenControl.BootPhaseEnquiryRequest) As OpenControl.BootPhaseEnquiryResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione BootReboot non è RPC né incapsulata da documenti. + _ + Function BootReboot(ByVal request As OpenControl.BootRebootRequest) As OpenControl.BootRebootResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione BootShutDown non è RPC né incapsulata da documenti. + _ + Function BootShutDown(ByVal request As OpenControl.BootShutDownRequest) As OpenControl.BootShutDownResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione BootMode non è RPC né incapsulata da documenti. + _ + Function BootMode(ByVal request As OpenControl.BootModeRequest) As OpenControl.BootModeResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetHWKey non è RPC né incapsulata da documenti. + _ + Function GetHWKey(ByVal request As OpenControl.GetHWKeyRequest) As OpenControl.GetHWKeyResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadVarWord non è RPC né incapsulata da documenti. + _ + Function ReadVarWord(ByVal request As OpenControl.ReadVarWordRequest) As OpenControl.ReadVarWordResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadVarDouble non è RPC né incapsulata da documenti. + _ + Function ReadVarDouble(ByVal request As OpenControl.ReadVarDoubleRequest) As OpenControl.ReadVarDoubleResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione WriteVarWord non è RPC né incapsulata da documenti. + _ + Function WriteVarWord(ByVal request As OpenControl.WriteVarWordRequest) As OpenControl.WriteVarWordResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione WriteVarWordBit non è RPC né incapsulata da documenti. + _ + Function WriteVarWordBit(ByVal request As OpenControl.WriteVarWordBitRequest) As OpenControl.WriteVarWordBitResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione WriteVarDouble non è RPC né incapsulata da documenti. + _ + Function WriteVarDouble(ByVal request As OpenControl.WriteVarDoubleRequest) As OpenControl.WriteVarDoubleResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadVarText non è RPC né incapsulata da documenti. + _ + Function ReadVarText(ByVal request As OpenControl.ReadVarTextRequest) As OpenControl.ReadVarTextResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione WriteVarText non è RPC né incapsulata da documenti. + _ + Function WriteVarText(ByVal request As OpenControl.WriteVarTextRequest) As OpenControl.WriteVarTextResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadWarningMsg non è RPC né incapsulata da documenti. + _ + Function ReadWarningMsg(ByVal request As OpenControl.ReadWarningMsgRequest) As OpenControl.ReadWarningMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ResetSingleTableII non è RPC né incapsulata da documenti. + _ + Function ResetSingleTableII(ByVal request As OpenControl.ResetSingleTableIIRequest) As OpenControl.ResetSingleTableIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LockTableII non è RPC né incapsulata da documenti. + _ + Function LockTableII(ByVal request As OpenControl.LockTableIIRequest) As OpenControl.LockTableIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione UnLockTableII non è RPC né incapsulata da documenti. + _ + Function UnLockTableII(ByVal request As OpenControl.UnLockTableIIRequest) As OpenControl.UnLockTableIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetOriginTabRecordII non è RPC né incapsulata da documenti. + _ + Function GetOriginTabRecordII(ByVal request As OpenControl.GetOriginTabRecordIIRequest) As OpenControl.GetOriginTabRecordIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetOriginTabRecordII non è RPC né incapsulata da documenti. + _ + Function SetOriginTabRecordII(ByVal request As OpenControl.SetOriginTabRecordIIRequest) As OpenControl.SetOriginTabRecordIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetToolTabRecordII non è RPC né incapsulata da documenti. + _ + Function GetToolTabRecordII(ByVal request As OpenControl.GetToolTabRecordIIRequest) As OpenControl.GetToolTabRecordIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetToolTabRecordII non è RPC né incapsulata da documenti. + _ + Function SetToolTabRecordII(ByVal request As OpenControl.SetToolTabRecordIIRequest) As OpenControl.SetToolTabRecordIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetOffsetTabRecordII non è RPC né incapsulata da documenti. + _ + Function GetOffsetTabRecordII(ByVal request As OpenControl.GetOffsetTabRecordIIRequest) As OpenControl.GetOffsetTabRecordIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetOffsetTabRecordII non è RPC né incapsulata da documenti. + _ + Function SetOffsetTabRecordII(ByVal request As OpenControl.SetOffsetTabRecordIIRequest) As OpenControl.SetOffsetTabRecordIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetUserTabRecordII non è RPC né incapsulata da documenti. + _ + Function GetUserTabRecordII(ByVal request As OpenControl.GetUserTabRecordIIRequest) As OpenControl.GetUserTabRecordIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetUserTabRecordII non è RPC né incapsulata da documenti. + _ + Function SetUserTabRecordII(ByVal request As OpenControl.SetUserTabRecordIIRequest) As OpenControl.SetUserTabRecordIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SaveTables non è RPC né incapsulata da documenti. + _ + Function SaveTables(ByVal request As OpenControl.SaveTablesRequest) As OpenControl.SaveTablesResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione RestoreSingleTable non è RPC né incapsulata da documenti. + _ + Function RestoreSingleTable(ByVal request As OpenControl.RestoreSingleTableRequest) As OpenControl.RestoreSingleTableResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SaveSingleTable non è RPC né incapsulata da documenti. + _ + Function SaveSingleTable(ByVal request As OpenControl.SaveSingleTableRequest) As OpenControl.SaveSingleTableResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SaveBackupMemory non è RPC né incapsulata da documenti. + _ + Function SaveBackupMemory(ByVal request As OpenControl.SaveBackupMemoryRequest) As OpenControl.SaveBackupMemoryResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione RestoreBackupMemory non è RPC né incapsulata da documenti. + _ + Function RestoreBackupMemory(ByVal request As OpenControl.RestoreBackupMemoryRequest) As OpenControl.RestoreBackupMemoryResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione Cycle non è RPC né incapsulata da documenti. + _ + Function Cycle(ByVal request As OpenControl.CycleRequest) As OpenControl.CycleResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SyncroCycle non è RPC né incapsulata da documenti. + _ + Function SyncroCycle(ByVal request As OpenControl.SyncroCycleRequest) As OpenControl.SyncroCycleResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione Reset non è RPC né incapsulata da documenti. + _ + Function Reset(ByVal request As OpenControl.ResetRequest) As OpenControl.ResetResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione Hold non è RPC né incapsulata da documenti. + _ + Function Hold(ByVal request As OpenControl.HoldRequest) As OpenControl.HoldResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetFeedManOver non è RPC né incapsulata da documenti. + _ + Function SetFeedManOver(ByVal request As OpenControl.SetFeedManOverRequest) As OpenControl.SetFeedManOverResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetFeedRateOver non è RPC né incapsulata da documenti. + _ + Function SetFeedRateOver(ByVal request As OpenControl.SetFeedRateOverRequest) As OpenControl.SetFeedRateOverResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetFeedRapidOver non è RPC né incapsulata da documenti. + _ + Function SetFeedRapidOver(ByVal request As OpenControl.SetFeedRapidOverRequest) As OpenControl.SetFeedRapidOverResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetSpeedRateOver non è RPC né incapsulata da documenti. + _ + Function SetSpeedRateOver(ByVal request As OpenControl.SetSpeedRateOverRequest) As OpenControl.SetSpeedRateOverResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetManMovDirection non è RPC né incapsulata da documenti. + _ + Function SetManMovDirection(ByVal request As OpenControl.SetManMovDirectionRequest) As OpenControl.SetManMovDirectionResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetVarJOG non è RPC né incapsulata da documenti. + _ + Function GetVarJOG(ByVal request As OpenControl.GetVarJOGRequest) As OpenControl.GetVarJOGResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetVarJOG non è RPC né incapsulata da documenti. + _ + Function SetVarJOG(ByVal request As OpenControl.SetVarJOGRequest) As OpenControl.SetVarJOGResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetVarUAS non è RPC né incapsulata da documenti. + _ + Function SetVarUAS(ByVal request As OpenControl.SetVarUASRequest) As OpenControl.SetVarUASResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetVarRCM non è RPC né incapsulata da documenti. + _ + Function GetVarRCM(ByVal request As OpenControl.GetVarRCMRequest) As OpenControl.GetVarRCMResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetVarRCM non è RPC né incapsulata da documenti. + _ + Function SetVarRCM(ByVal request As OpenControl.SetVarRCMRequest) As OpenControl.SetVarRCMResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetProcVarWord non è RPC né incapsulata da documenti. + _ + Function GetProcVarWord(ByVal request As OpenControl.GetProcVarWordRequest) As OpenControl.GetProcVarWordResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetProcVarWord non è RPC né incapsulata da documenti. + _ + Function SetProcVarWord(ByVal request As OpenControl.SetProcVarWordRequest) As OpenControl.SetProcVarWordResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetProcVarDouble non è RPC né incapsulata da documenti. + _ + Function GetProcVarDouble(ByVal request As OpenControl.GetProcVarDoubleRequest) As OpenControl.GetProcVarDoubleResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetProcVarDouble non è RPC né incapsulata da documenti. + _ + Function SetProcVarDouble(ByVal request As OpenControl.SetProcVarDoubleRequest) As OpenControl.SetProcVarDoubleResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetMdiString non è RPC né incapsulata da documenti. + _ + Function SetMdiString(ByVal request As OpenControl.SetMdiStringRequest) As OpenControl.SetMdiStringResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetProcessMode non è RPC né incapsulata da documenti. + _ + Function SetProcessMode(ByVal request As OpenControl.SetProcessModeRequest) As OpenControl.SetProcessModeResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SelectProcess non è RPC né incapsulata da documenti. + _ + Function SelectProcess(ByVal request As OpenControl.SelectProcessRequest) As OpenControl.SelectProcessResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetSelectedProcess non è RPC né incapsulata da documenti. + _ + Function GetSelectedProcess(ByVal request As OpenControl.GetSelectedProcessRequest) As OpenControl.GetSelectedProcessResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SelectProcAxis non è RPC né incapsulata da documenti. + _ + Function SelectProcAxis(ByVal request As OpenControl.SelectProcAxisRequest) As OpenControl.SelectProcAxisResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SelectPartProgram non è RPC né incapsulata da documenti. + _ + Function SelectPartProgram(ByVal request As OpenControl.SelectPartProgramRequest) As OpenControl.SelectPartProgramResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SelectPartProgramFromDrive non è RPC né incapsulata da documenti. + _ + Function SelectPartProgramFromDrive(ByVal request As OpenControl.SelectPartProgramFromDriveRequest) As OpenControl.SelectPartProgramFromDriveResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetActivePartProgram non è RPC né incapsulata da documenti. + _ + Function GetActivePartProgram(ByVal request As OpenControl.GetActivePartProgramRequest) As OpenControl.GetActivePartProgramResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetPartProgramLines non è RPC né incapsulata da documenti. + _ + Function GetPartProgramLines(ByVal request As OpenControl.GetPartProgramLinesRequest) As OpenControl.GetPartProgramLinesResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetAxOriginNum non è RPC né incapsulata da documenti. + _ + Function GetAxOriginNum(ByVal request As OpenControl.GetAxOriginNumRequest) As OpenControl.GetAxOriginNumResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetAxesPosition non è RPC né incapsulata da documenti. + _ + Function GetAxesPosition(ByVal request As OpenControl.GetAxesPositionRequest) As OpenControl.GetAxesPositionResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetNcInfo1 non è RPC né incapsulata da documenti. + _ + Function GetNcInfo1(ByVal request As OpenControl.GetNcInfo1Request) As OpenControl.GetNcInfo1Response + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetNcInfo2 non è RPC né incapsulata da documenti. + _ + Function GetNcInfo2(ByVal request As OpenControl.GetNcInfo2Request) As OpenControl.GetNcInfo2Response + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetToolNames non è RPC né incapsulata da documenti. + _ + Function GetToolNames(ByVal request As OpenControl.GetToolNamesRequest) As OpenControl.GetToolNamesResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetProcessStatus non è RPC né incapsulata da documenti. + _ + Function GetProcessStatus(ByVal request As OpenControl.GetProcessStatusRequest) As OpenControl.GetProcessStatusResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetBlkNum non è RPC né incapsulata da documenti. + _ + Function GetBlkNum(ByVal request As OpenControl.GetBlkNumRequest) As OpenControl.GetBlkNumResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadErrMsg non è RPC né incapsulata da documenti. + _ + Function ReadErrMsg(ByVal request As OpenControl.ReadErrMsgRequest) As OpenControl.ReadErrMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadPartProgramMsg non è RPC né incapsulata da documenti. + _ + Function ReadPartProgramMsg(ByVal request As OpenControl.ReadPartProgramMsgRequest) As OpenControl.ReadPartProgramMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetGCode non è RPC né incapsulata da documenti. + _ + Function GetGCode(ByVal request As OpenControl.GetGCodeRequest) As OpenControl.GetGCodeResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetMCode non è RPC né incapsulata da documenti. + _ + Function GetMCode(ByVal request As OpenControl.GetMCodeRequest) As OpenControl.GetMCodeResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SkipPProgBlock non è RPC né incapsulata da documenti. + _ + Function SkipPProgBlock(ByVal request As OpenControl.SkipPProgBlockRequest) As OpenControl.SkipPProgBlockResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione Ese non è RPC né incapsulata da documenti. + _ + Function Ese(ByVal request As OpenControl.EseRequest) As OpenControl.EseResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione EseEx non è RPC né incapsulata da documenti. + _ + Function EseEx(ByVal request As OpenControl.EseExRequest) As OpenControl.EseExResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione Exe non è RPC né incapsulata da documenti. + _ + Function Exe(ByVal request As OpenControl.ExeRequest) As OpenControl.ExeResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione AxesRef non è RPC né incapsulata da documenti. + _ + Function AxesRef(ByVal request As OpenControl.AxesRefRequest) As OpenControl.AxesRefResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione DncInit non è RPC né incapsulata da documenti. + _ + Function DncInit(ByVal request As OpenControl.DncInitRequest) As OpenControl.DncInitResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione DncData non è RPC né incapsulata da documenti. + _ + Function DncData(ByVal request As OpenControl.DncDataRequest) As OpenControl.DncDataResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione DncEof non è RPC né incapsulata da documenti. + _ + Function DncEof(ByVal request As OpenControl.DncEofRequest) As OpenControl.DncEofResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione DncStop non è RPC né incapsulata da documenti. + _ + Function DncStop(ByVal request As OpenControl.DncStopRequest) As OpenControl.DncStopResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetAxesInfo3 non è RPC né incapsulata da documenti. + _ + Function GetAxesInfo3(ByVal request As OpenControl.GetAxesInfo3Request) As OpenControl.GetAxesInfo3Response + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetCodeNumber non è RPC né incapsulata da documenti. + _ + Function GetCodeNumber(ByVal request As OpenControl.GetCodeNumberRequest) As OpenControl.GetCodeNumberResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetOptions non è RPC né incapsulata da documenti. + _ + Function GetOptions(ByVal request As OpenControl.GetOptionsRequest) As OpenControl.GetOptionsResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetDateTime non è RPC né incapsulata da documenti. + _ + Function GetDateTime(ByVal request As OpenControl.GetDateTimeRequest) As OpenControl.GetDateTimeResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetDateTime non è RPC né incapsulata da documenti. + _ + Function SetDateTime(ByVal request As OpenControl.SetDateTimeRequest) As OpenControl.SetDateTimeResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetSerialNumber non è RPC né incapsulata da documenti. + _ + Function GetSerialNumber(ByVal request As OpenControl.GetSerialNumberRequest) As OpenControl.GetSerialNumberResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione PutFile non è RPC né incapsulata da documenti. + _ + Function PutFile(ByVal request As OpenControl.PutFileRequest) As OpenControl.PutFileResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetFile non è RPC né incapsulata da documenti. + _ + Function GetFile(ByVal request As OpenControl.GetFileRequest) As OpenControl.GetFileResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione PutBinaryFile non è RPC né incapsulata da documenti. + _ + Function PutBinaryFile(ByVal request As OpenControl.PutBinaryFileRequest) As OpenControl.PutBinaryFileResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetBinaryFile non è RPC né incapsulata da documenti. + _ + Function GetBinaryFile(ByVal request As OpenControl.GetBinaryFileRequest) As OpenControl.GetBinaryFileResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSSetSecurityLevel non è RPC né incapsulata da documenti. + _ + Function LogFSSetSecurityLevel(ByVal request As OpenControl.LogFSSetSecurityLevelRequest) As OpenControl.LogFSSetSecurityLevelResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetSecurityLevel non è RPC né incapsulata da documenti. + _ + Function LogFSGetSecurityLevel(ByVal request As OpenControl.LogFSGetSecurityLevelRequest) As OpenControl.LogFSGetSecurityLevelResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSLongFileNames non è RPC né incapsulata da documenti. + _ + Function LogFSLongFileNames(ByVal request As OpenControl.LogFSLongFileNamesRequest) As OpenControl.LogFSLongFileNamesResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetNumDrive non è RPC né incapsulata da documenti. + _ + Function LogFSGetNumDrive(ByVal request As OpenControl.LogFSGetNumDriveRequest) As OpenControl.LogFSGetNumDriveResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetDriveList non è RPC né incapsulata da documenti. + _ + Function LogFSGetDriveList(ByVal request As OpenControl.LogFSGetDriveListRequest) As OpenControl.LogFSGetDriveListResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetHiddenDriveList non è RPC né incapsulata da documenti. + _ + Function LogFSGetHiddenDriveList(ByVal request As OpenControl.LogFSGetHiddenDriveListRequest) As OpenControl.LogFSGetHiddenDriveListResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetDrivePath non è RPC né incapsulata da documenti. + _ + Function LogFSGetDrivePath(ByVal request As OpenControl.LogFSGetDrivePathRequest) As OpenControl.LogFSGetDrivePathResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSAddDrive non è RPC né incapsulata da documenti. + _ + Function LogFSAddDrive(ByVal request As OpenControl.LogFSAddDriveRequest) As OpenControl.LogFSAddDriveResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSRemoveDrive non è RPC né incapsulata da documenti. + _ + Function LogFSRemoveDrive(ByVal request As OpenControl.LogFSRemoveDriveRequest) As OpenControl.LogFSRemoveDriveResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSReloadDriveList non è RPC né incapsulata da documenti. + _ + Function LogFSReloadDriveList(ByVal request As OpenControl.LogFSReloadDriveListRequest) As OpenControl.LogFSReloadDriveListResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSCreateDir non è RPC né incapsulata da documenti. + _ + Function LogFSCreateDir(ByVal request As OpenControl.LogFSCreateDirRequest) As OpenControl.LogFSCreateDirResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSCreateFile non è RPC né incapsulata da documenti. + _ + Function LogFSCreateFile(ByVal request As OpenControl.LogFSCreateFileRequest) As OpenControl.LogFSCreateFileResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetFileSize non è RPC né incapsulata da documenti. + _ + Function LogFSGetFileSize(ByVal request As OpenControl.LogFSGetFileSizeRequest) As OpenControl.LogFSGetFileSizeResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetFileAttrib non è RPC né incapsulata da documenti. + _ + Function LogFSGetFileAttrib(ByVal request As OpenControl.LogFSGetFileAttribRequest) As OpenControl.LogFSGetFileAttribResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSSetFileAttrib non è RPC né incapsulata da documenti. + _ + Function LogFSSetFileAttrib(ByVal request As OpenControl.LogFSSetFileAttribRequest) As OpenControl.LogFSSetFileAttribResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSChangeFileAttrib non è RPC né incapsulata da documenti. + _ + Function LogFSChangeFileAttrib(ByVal request As OpenControl.LogFSChangeFileAttribRequest) As OpenControl.LogFSChangeFileAttribResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSFindFirst non è RPC né incapsulata da documenti. + _ + Function LogFSFindFirst(ByVal request As OpenControl.LogFSFindFirstRequest) As OpenControl.LogFSFindFirstResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSFindNext non è RPC né incapsulata da documenti. + _ + Function LogFSFindNext(ByVal request As OpenControl.LogFSFindNextRequest) As OpenControl.LogFSFindNextResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSFindClose non è RPC né incapsulata da documenti. + _ + Function LogFSFindClose(ByVal request As OpenControl.LogFSFindCloseRequest) As OpenControl.LogFSFindCloseResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSRemoveFile non è RPC né incapsulata da documenti. + _ + Function LogFSRemoveFile(ByVal request As OpenControl.LogFSRemoveFileRequest) As OpenControl.LogFSRemoveFileResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSRemoveDir non è RPC né incapsulata da documenti. + _ + Function LogFSRemoveDir(ByVal request As OpenControl.LogFSRemoveDirRequest) As OpenControl.LogFSRemoveDirResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSRename non è RPC né incapsulata da documenti. + _ + Function LogFSRename(ByVal request As OpenControl.LogFSRenameRequest) As OpenControl.LogFSRenameResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSCopyFile non è RPC né incapsulata da documenti. + _ + Function LogFSCopyFile(ByVal request As OpenControl.LogFSCopyFileRequest) As OpenControl.LogFSCopyFileResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetInfo non è RPC né incapsulata da documenti. + _ + Function LogFSGetInfo(ByVal request As OpenControl.LogFSGetInfoRequest) As OpenControl.LogFSGetInfoResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetAvailableCustomEvents non è RPC né incapsulata da documenti. + _ + Function GetAvailableCustomEvents(ByVal request As OpenControl.GetAvailableCustomEventsRequest) As OpenControl.GetAvailableCustomEventsResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetSysTick non è RPC né incapsulata da documenti. + _ + Function GetSysTick(ByVal request As OpenControl.GetSysTickRequest) As OpenControl.GetSysTickResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetProcessConfNum non è RPC né incapsulata da documenti. + _ + Function GetProcessConfNum(ByVal request As OpenControl.GetProcessConfNumRequest) As OpenControl.GetProcessConfNumResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonOpenChannel non è RPC né incapsulata da documenti. + _ + Function MonOpenChannel(ByVal request As OpenControl.MonOpenChannelRequest) As OpenControl.MonOpenChannelResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonCloseChannel non è RPC né incapsulata da documenti. + _ + Function MonCloseChannel(ByVal request As OpenControl.MonCloseChannelRequest) As OpenControl.MonCloseChannelResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonAddVariable non è RPC né incapsulata da documenti. + _ + Function MonAddVariable(ByVal request As OpenControl.MonAddVariableRequest) As OpenControl.MonAddVariableResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonDeleteVariable non è RPC né incapsulata da documenti. + _ + Function MonDeleteVariable(ByVal request As OpenControl.MonDeleteVariableRequest) As OpenControl.MonDeleteVariableResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonStartSampling non è RPC né incapsulata da documenti. + _ + Function MonStartSampling(ByVal request As OpenControl.MonStartSamplingRequest) As OpenControl.MonStartSamplingResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonStopSampling non è RPC né incapsulata da documenti. + _ + Function MonStopSampling(ByVal request As OpenControl.MonStopSamplingRequest) As OpenControl.MonStopSamplingResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonGetVariable non è RPC né incapsulata da documenti. + _ + Function MonGetVariable(ByVal request As OpenControl.MonGetVariableRequest) As OpenControl.MonGetVariableResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione CheckHistory non è RPC né incapsulata da documenti. + _ + Function CheckHistory(ByVal request As OpenControl.CheckHistoryRequest) As OpenControl.CheckHistoryResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadHistoryEmergMsg non è RPC né incapsulata da documenti. + _ + Function ReadHistoryEmergMsg(ByVal request As OpenControl.ReadHistoryEmergMsgRequest) As OpenControl.ReadHistoryEmergMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadHistoryErrorMsg non è RPC né incapsulata da documenti. + _ + Function ReadHistoryErrorMsg(ByVal request As OpenControl.ReadHistoryErrorMsgRequest) As OpenControl.ReadHistoryErrorMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadHistoryLogMsg non è RPC né incapsulata da documenti. + _ + Function ReadHistoryLogMsg(ByVal request As OpenControl.ReadHistoryLogMsgRequest) As OpenControl.ReadHistoryLogMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadHistoryAnomalyMsg non è RPC né incapsulata da documenti. + _ + Function ReadHistoryAnomalyMsg(ByVal request As OpenControl.ReadHistoryAnomalyMsgRequest) As OpenControl.ReadHistoryAnomalyMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadCurrentErrorMsg non è RPC né incapsulata da documenti. + _ + Function ReadCurrentErrorMsg(ByVal request As OpenControl.ReadCurrentErrorMsgRequest) As OpenControl.ReadCurrentErrorMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadCurrentEmergMsg non è RPC né incapsulata da documenti. + _ + Function ReadCurrentEmergMsg(ByVal request As OpenControl.ReadCurrentEmergMsgRequest) As OpenControl.ReadCurrentEmergMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadCurrentAnomalyMsg non è RPC né incapsulata da documenti. + _ + Function ReadCurrentAnomalyMsg(ByVal request As OpenControl.ReadCurrentAnomalyMsgRequest) As OpenControl.ReadCurrentAnomalyMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetPTechSizes non è RPC né incapsulata da documenti. + _ + Function GetPTechSizes(ByVal request As OpenControl.GetPTechSizesRequest) As OpenControl.GetPTechSizesResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LoadPTech non è RPC né incapsulata da documenti. + _ + Function LoadPTech(ByVal request As OpenControl.LoadPTechRequest) As OpenControl.LoadPTechResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetMarkerInfo non è RPC né incapsulata da documenti. + _ + Function GetMarkerInfo(ByVal request As OpenControl.GetMarkerInfoRequest) As OpenControl.GetMarkerInfoResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ManagePartProgram non è RPC né incapsulata da documenti. + _ + Function ManagePartProgram(ByVal request As OpenControl.ManagePartProgramRequest) As OpenControl.ManagePartProgramResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSOpenFile non è RPC né incapsulata da documenti. + _ + Function LogFSOpenFile(ByVal request As OpenControl.LogFSOpenFileRequest) As OpenControl.LogFSOpenFileResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSCloseFile non è RPC né incapsulata da documenti. + _ + Function LogFSCloseFile(ByVal request As OpenControl.LogFSCloseFileRequest) As OpenControl.LogFSCloseFileResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSWriteRecord non è RPC né incapsulata da documenti. + _ + Function LogFSWriteRecord(ByVal request As OpenControl.LogFSWriteRecordRequest) As OpenControl.LogFSWriteRecordResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSReadRecord non è RPC né incapsulata da documenti. + _ + Function LogFSReadRecord(ByVal request As OpenControl.LogFSReadRecordRequest) As OpenControl.LogFSReadRecordResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadRemapDefinitions non è RPC né incapsulata da documenti. + _ + Function ReadRemapDefinitions(ByVal request As OpenControl.ReadRemapDefinitionsRequest) As OpenControl.ReadRemapDefinitionsResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione WriteRemapDefinitions non è RPC né incapsulata da documenti. + _ + Function WriteRemapDefinitions(ByVal request As OpenControl.WriteRemapDefinitionsRequest) As OpenControl.WriteRemapDefinitionsResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetServoPar non è RPC né incapsulata da documenti. + _ + Function GetServoPar(ByVal request As OpenControl.GetServoParRequest) As OpenControl.GetServoParResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetServoPar non è RPC né incapsulata da documenti. + _ + Function SetServoPar(ByVal request As OpenControl.SetServoParRequest) As OpenControl.SetServoParResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetCNCRegKey non è RPC né incapsulata da documenti. + _ + Function GetCNCRegKey(ByVal request As OpenControl.GetCNCRegKeyRequest) As OpenControl.GetCNCRegKeyResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetIpAddress non è RPC né incapsulata da documenti. + _ + Function SetIpAddress(ByVal request As OpenControl.SetIpAddressRequest) As OpenControl.SetIpAddressResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetProcInInput non è RPC né incapsulata da documenti. + _ + Function GetProcInInput(ByVal request As OpenControl.GetProcInInputRequest) As OpenControl.GetProcInInputResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SndProcInpData non è RPC né incapsulata da documenti. + _ + Function SndProcInpData(ByVal request As OpenControl.SndProcInpDataRequest) As OpenControl.SndProcInpDataResponse + End Interface + + ''' + _ + Partial Public Class BootPhaseEnquiry + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class DEFRAME + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private rowField As UShort + + Private colField As UShort + + Private lenField As UShort + + Private textField() As Byte + + ''' + _ + Public Property row() As UShort + Get + Return Me.rowField + End Get + Set + Me.rowField = value + Me.RaisePropertyChanged("row") + End Set + End Property + + ''' + _ + Public Property col() As UShort + Get + Return Me.colField + End Get + Set + Me.colField = value + Me.RaisePropertyChanged("col") + End Set + End Property + + ''' + _ + Public Property len() As UShort + Get + Return Me.lenField + End Get + Set + Me.lenField = value + Me.RaisePropertyChanged("len") + End Set + End Property + + ''' + _ + Public Property text() As Byte() + Get + Return Me.textField + End Get + Set + Me.textField = value + Me.RaisePropertyChanged("text") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class DEFIELDCONTROL + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private strmatchField() As Byte + + Private rangebyteField() As Byte + + Private rangeintField() As Short + + Private rangelongField() As Long + + Private rangeuintField() As UShort + + Private rangeulongField() As ULong + + Private rangefloatField() As Double + + Private rangedoubleField() As Double + + ''' + _ + Public Property strmatch() As Byte() + Get + Return Me.strmatchField + End Get + Set + Me.strmatchField = value + Me.RaisePropertyChanged("strmatch") + End Set + End Property + + ''' + _ + Public Property rangebyte() As Byte() + Get + Return Me.rangebyteField + End Get + Set + Me.rangebyteField = value + Me.RaisePropertyChanged("rangebyte") + End Set + End Property + + ''' + _ + Public Property rangeint() As Short() + Get + Return Me.rangeintField + End Get + Set + Me.rangeintField = value + Me.RaisePropertyChanged("rangeint") + End Set + End Property + + ''' + _ + Public Property rangelong() As Long() + Get + Return Me.rangelongField + End Get + Set + Me.rangelongField = value + Me.RaisePropertyChanged("rangelong") + End Set + End Property + + ''' + _ + Public Property rangeuint() As UShort() + Get + Return Me.rangeuintField + End Get + Set + Me.rangeuintField = value + Me.RaisePropertyChanged("rangeuint") + End Set + End Property + + ''' + _ + Public Property rangeulong() As ULong() + Get + Return Me.rangeulongField + End Get + Set + Me.rangeulongField = value + Me.RaisePropertyChanged("rangeulong") + End Set + End Property + + ''' + _ + Public Property rangefloat() As Double() + Get + Return Me.rangefloatField + End Get + Set + Me.rangefloatField = value + Me.RaisePropertyChanged("rangefloat") + End Set + End Property + + ''' + _ + Public Property rangedouble() As Double() + Get + Return Me.rangedoubleField + End Get + Set + Me.rangedoubleField = value + Me.RaisePropertyChanged("rangedouble") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class DEFIELDCHECK + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private convField As Byte + + Private valueField As DEFIELDCONTROL + + ''' + _ + Public Property conv() As Byte + Get + Return Me.convField + End Get + Set + Me.convField = value + Me.RaisePropertyChanged("conv") + End Set + End Property + + ''' + _ + Public Property value() As DEFIELDCONTROL + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("value") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class DEFIELD + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private rowField As UShort + + Private colField As UShort + + Private typeField As Byte + + Private myIdField As Byte + + Private sizeField As UShort + + Private disSizeField As UShort + + Private checkField As DEFIELDCHECK + + ''' + _ + Public Property row() As UShort + Get + Return Me.rowField + End Get + Set + Me.rowField = value + Me.RaisePropertyChanged("row") + End Set + End Property + + ''' + _ + Public Property col() As UShort + Get + Return Me.colField + End Get + Set + Me.colField = value + Me.RaisePropertyChanged("col") + End Set + End Property + + ''' + _ + Public Property type() As Byte + Get + Return Me.typeField + End Get + Set + Me.typeField = value + Me.RaisePropertyChanged("type") + End Set + End Property + + ''' + _ + Public Property myId() As Byte + Get + Return Me.myIdField + End Get + Set + Me.myIdField = value + Me.RaisePropertyChanged("myId") + End Set + End Property + + ''' + _ + Public Property size() As UShort + Get + Return Me.sizeField + End Get + Set + Me.sizeField = value + Me.RaisePropertyChanged("size") + End Set + End Property + + ''' + _ + Public Property disSize() As UShort + Get + Return Me.disSizeField + End Get + Set + Me.disSizeField = value + Me.RaisePropertyChanged("disSize") + End Set + End Property + + ''' + _ + Public Property check() As DEFIELDCHECK + Get + Return Me.checkField + End Get + Set + Me.checkField = value + Me.RaisePropertyChanged("check") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class DEKEY + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private abortField() As Byte + + Private confirm1Field() As Byte + + Private confirm2Field() As Byte + + Private confirm3Field() As Byte + + Private resetField() As Byte + + Private incresField() As Byte + + ''' + _ + Public Property abort() As Byte() + Get + Return Me.abortField + End Get + Set + Me.abortField = value + Me.RaisePropertyChanged("abort") + End Set + End Property + + ''' + _ + Public Property confirm1() As Byte() + Get + Return Me.confirm1Field + End Get + Set + Me.confirm1Field = value + Me.RaisePropertyChanged("confirm1") + End Set + End Property + + ''' + _ + Public Property confirm2() As Byte() + Get + Return Me.confirm2Field + End Get + Set + Me.confirm2Field = value + Me.RaisePropertyChanged("confirm2") + End Set + End Property + + ''' + _ + Public Property confirm3() As Byte() + Get + Return Me.confirm3Field + End Get + Set + Me.confirm3Field = value + Me.RaisePropertyChanged("confirm3") + End Set + End Property + + ''' + _ + Public Property reset() As Byte() + Get + Return Me.resetField + End Get + Set + Me.resetField = value + Me.RaisePropertyChanged("reset") + End Set + End Property + + ''' + _ + Public Property incres() As Byte() + Get + Return Me.incresField + End Get + Set + Me.incresField = value + Me.RaisePropertyChanged("incres") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class USERINPTAB + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private myIdField As Short + + Private iniRowField As Byte + + Private iniColField As Byte + + Private totRowField As Byte + + Private totColField As Byte + + Private myTypeField As Byte + + Private helpField() As Byte + + Private totFrameField As Byte + + Private totFieldField As Byte + + Private keyField As DEKEY + + Private fldField() As DEFIELD + + Private frmField() As DEFRAME + + Private strDef1Field() As Byte + + Private strDef2Field() As Byte + + Private strDef3Field() As Byte + + Private strDef4Field() As Byte + + Private strDef5Field() As Byte + + Private strDef6Field() As Byte + + Private strDef7Field() As Byte + + Private strDef8Field() As Byte + + Private decolorField() As ULong + + ''' + _ + Public Property myId() As Short + Get + Return Me.myIdField + End Get + Set + Me.myIdField = value + Me.RaisePropertyChanged("myId") + End Set + End Property + + ''' + _ + Public Property iniRow() As Byte + Get + Return Me.iniRowField + End Get + Set + Me.iniRowField = value + Me.RaisePropertyChanged("iniRow") + End Set + End Property + + ''' + _ + Public Property iniCol() As Byte + Get + Return Me.iniColField + End Get + Set + Me.iniColField = value + Me.RaisePropertyChanged("iniCol") + End Set + End Property + + ''' + _ + Public Property totRow() As Byte + Get + Return Me.totRowField + End Get + Set + Me.totRowField = value + Me.RaisePropertyChanged("totRow") + End Set + End Property + + ''' + _ + Public Property totCol() As Byte + Get + Return Me.totColField + End Get + Set + Me.totColField = value + Me.RaisePropertyChanged("totCol") + End Set + End Property + + ''' + _ + Public Property myType() As Byte + Get + Return Me.myTypeField + End Get + Set + Me.myTypeField = value + Me.RaisePropertyChanged("myType") + End Set + End Property + + ''' + _ + Public Property help() As Byte() + Get + Return Me.helpField + End Get + Set + Me.helpField = value + Me.RaisePropertyChanged("help") + End Set + End Property + + ''' + _ + Public Property totFrame() As Byte + Get + Return Me.totFrameField + End Get + Set + Me.totFrameField = value + Me.RaisePropertyChanged("totFrame") + End Set + End Property + + ''' + _ + Public Property totField() As Byte + Get + Return Me.totFieldField + End Get + Set + Me.totFieldField = value + Me.RaisePropertyChanged("totField") + End Set + End Property + + ''' + _ + Public Property key() As DEKEY + Get + Return Me.keyField + End Get + Set + Me.keyField = value + Me.RaisePropertyChanged("key") + End Set + End Property + + ''' + _ + Public Property fld() As DEFIELD() + Get + Return Me.fldField + End Get + Set + Me.fldField = value + Me.RaisePropertyChanged("fld") + End Set + End Property + + ''' + _ + Public Property frm() As DEFRAME() + Get + Return Me.frmField + End Get + Set + Me.frmField = value + Me.RaisePropertyChanged("frm") + End Set + End Property + + ''' + _ + Public Property strDef1() As Byte() + Get + Return Me.strDef1Field + End Get + Set + Me.strDef1Field = value + Me.RaisePropertyChanged("strDef1") + End Set + End Property + + ''' + _ + Public Property strDef2() As Byte() + Get + Return Me.strDef2Field + End Get + Set + Me.strDef2Field = value + Me.RaisePropertyChanged("strDef2") + End Set + End Property + + ''' + _ + Public Property strDef3() As Byte() + Get + Return Me.strDef3Field + End Get + Set + Me.strDef3Field = value + Me.RaisePropertyChanged("strDef3") + End Set + End Property + + ''' + _ + Public Property strDef4() As Byte() + Get + Return Me.strDef4Field + End Get + Set + Me.strDef4Field = value + Me.RaisePropertyChanged("strDef4") + End Set + End Property + + ''' + _ + Public Property strDef5() As Byte() + Get + Return Me.strDef5Field + End Get + Set + Me.strDef5Field = value + Me.RaisePropertyChanged("strDef5") + End Set + End Property + + ''' + _ + Public Property strDef6() As Byte() + Get + Return Me.strDef6Field + End Get + Set + Me.strDef6Field = value + Me.RaisePropertyChanged("strDef6") + End Set + End Property + + ''' + _ + Public Property strDef7() As Byte() + Get + Return Me.strDef7Field + End Get + Set + Me.strDef7Field = value + Me.RaisePropertyChanged("strDef7") + End Set + End Property + + ''' + _ + Public Property strDef8() As Byte() + Get + Return Me.strDef8Field + End Get + Set + Me.strDef8Field = value + Me.RaisePropertyChanged("strDef8") + End Set + End Property + + ''' + _ + Public Property decolor() As ULong() + Get + Return Me.decolorField + End Get + Set + Me.decolorField = value + Me.RaisePropertyChanged("decolor") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class INPUTINFO + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private processField As UShort + + Private isInInputField As Byte + + Private dataField As USERINPTAB + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property isInInput() As Byte + Get + Return Me.isInInputField + End Get + Set + Me.isInInputField = value + Me.RaisePropertyChanged("isInInput") + End Set + End Property + + ''' + _ + Public Property Data() As USERINPTAB + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class REMAPDEF + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private varTypeField As Byte + + Private physAddrField As UShort + + Private physBitField As Byte + + Private logicAddrField As UShort + + Private logicBitField As Byte + + Private modeField As Byte + + Private riseTimeField As UInteger + + Private fallTimeField As UInteger + + Private valueField As UInteger + + Private iOMsgIdField As UInteger + + Private iOClassField As Byte + + Private currPhysValueField As UInteger + + Private currLogicValueField As UInteger + + ''' + _ + Public Property VarType() As Byte + Get + Return Me.varTypeField + End Get + Set + Me.varTypeField = value + Me.RaisePropertyChanged("VarType") + End Set + End Property + + ''' + _ + Public Property PhysAddr() As UShort + Get + Return Me.physAddrField + End Get + Set + Me.physAddrField = value + Me.RaisePropertyChanged("PhysAddr") + End Set + End Property + + ''' + _ + Public Property PhysBit() As Byte + Get + Return Me.physBitField + End Get + Set + Me.physBitField = value + Me.RaisePropertyChanged("PhysBit") + End Set + End Property + + ''' + _ + Public Property LogicAddr() As UShort + Get + Return Me.logicAddrField + End Get + Set + Me.logicAddrField = value + Me.RaisePropertyChanged("LogicAddr") + End Set + End Property + + ''' + _ + Public Property LogicBit() As Byte + Get + Return Me.logicBitField + End Get + Set + Me.logicBitField = value + Me.RaisePropertyChanged("LogicBit") + End Set + End Property + + ''' + _ + Public Property Mode() As Byte + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + ''' + _ + Public Property RiseTime() As UInteger + Get + Return Me.riseTimeField + End Get + Set + Me.riseTimeField = value + Me.RaisePropertyChanged("RiseTime") + End Set + End Property + + ''' + _ + Public Property FallTime() As UInteger + Get + Return Me.fallTimeField + End Get + Set + Me.fallTimeField = value + Me.RaisePropertyChanged("FallTime") + End Set + End Property + + ''' + _ + Public Property Value() As UInteger + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + ''' + _ + Public Property IOMsgId() As UInteger + Get + Return Me.iOMsgIdField + End Get + Set + Me.iOMsgIdField = value + Me.RaisePropertyChanged("IOMsgId") + End Set + End Property + + ''' + _ + Public Property IOClass() As Byte + Get + Return Me.iOClassField + End Get + Set + Me.iOClassField = value + Me.RaisePropertyChanged("IOClass") + End Set + End Property + + ''' + _ + Public Property CurrPhysValue() As UInteger + Get + Return Me.currPhysValueField + End Get + Set + Me.currPhysValueField = value + Me.RaisePropertyChanged("CurrPhysValue") + End Set + End Property + + ''' + _ + Public Property CurrLogicValue() As UInteger + Get + Return Me.currLogicValueField + End Get + Set + Me.currLogicValueField = value + Me.RaisePropertyChanged("CurrLogicValue") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MARKERINFO + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private numberField As Short + + Private lineNumField() As UInteger + + Private numBlksField() As UInteger + + Private markerNameField()() As Byte + + Private pPnameField()() As Byte + + Private breakValField As UInteger + + ''' + _ + Public Property Number() As Short + Get + Return Me.numberField + End Get + Set + Me.numberField = value + Me.RaisePropertyChanged("Number") + End Set + End Property + + ''' + _ + Public Property LineNum() As UInteger() + Get + Return Me.lineNumField + End Get + Set + Me.lineNumField = value + Me.RaisePropertyChanged("LineNum") + End Set + End Property + + ''' + _ + Public Property NumBlks() As UInteger() + Get + Return Me.numBlksField + End Get + Set + Me.numBlksField = value + Me.RaisePropertyChanged("NumBlks") + End Set + End Property + + ''' + _ + Public Property MarkerName() As Byte()() + Get + Return Me.markerNameField + End Get + Set + Me.markerNameField = value + Me.RaisePropertyChanged("MarkerName") + End Set + End Property + + ''' + _ + Public Property PPname() As Byte()() + Get + Return Me.pPnameField + End Get + Set + Me.pPnameField = value + Me.RaisePropertyChanged("PPname") + End Set + End Property + + ''' + _ + Public Property breakVal() As UInteger + Get + Return Me.breakValField + End Get + Set + Me.breakValField = value + Me.RaisePropertyChanged("breakVal") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MSGANOMALY + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private bootIDField As UInteger + + Private systemTimeField As SYSTEMTIMECNDEX + + Private unIdSeqField As UInteger + + Private codeErrField As UInteger + + Private lineaField As UInteger + + Private formatTxtField() As Byte + + ''' + _ + Public Property BootID() As UInteger + Get + Return Me.bootIDField + End Get + Set + Me.bootIDField = value + Me.RaisePropertyChanged("BootID") + End Set + End Property + + ''' + _ + Public Property SystemTime() As SYSTEMTIMECNDEX + Get + Return Me.systemTimeField + End Get + Set + Me.systemTimeField = value + Me.RaisePropertyChanged("SystemTime") + End Set + End Property + + ''' + _ + Public Property UnIdSeq() As UInteger + Get + Return Me.unIdSeqField + End Get + Set + Me.unIdSeqField = value + Me.RaisePropertyChanged("UnIdSeq") + End Set + End Property + + ''' + _ + Public Property CodeErr() As UInteger + Get + Return Me.codeErrField + End Get + Set + Me.codeErrField = value + Me.RaisePropertyChanged("CodeErr") + End Set + End Property + + ''' + _ + Public Property Linea() As UInteger + Get + Return Me.lineaField + End Get + Set + Me.lineaField = value + Me.RaisePropertyChanged("Linea") + End Set + End Property + + ''' + _ + Public Property FormatTxt() As Byte() + Get + Return Me.formatTxtField + End Get + Set + Me.formatTxtField = value + Me.RaisePropertyChanged("FormatTxt") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SYSTEMTIMECNDEX + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private wYearField As UShort + + Private wMonthField As UShort + + Private wDayOfWeekField As UShort + + Private wDayField As UShort + + Private wHourField As UShort + + Private wMinuteField As UShort + + Private wSecondField As UShort + + Private wMillisecondsField As UShort + + ''' + _ + Public Property wYear() As UShort + Get + Return Me.wYearField + End Get + Set + Me.wYearField = value + Me.RaisePropertyChanged("wYear") + End Set + End Property + + ''' + _ + Public Property wMonth() As UShort + Get + Return Me.wMonthField + End Get + Set + Me.wMonthField = value + Me.RaisePropertyChanged("wMonth") + End Set + End Property + + ''' + _ + Public Property wDayOfWeek() As UShort + Get + Return Me.wDayOfWeekField + End Get + Set + Me.wDayOfWeekField = value + Me.RaisePropertyChanged("wDayOfWeek") + End Set + End Property + + ''' + _ + Public Property wDay() As UShort + Get + Return Me.wDayField + End Get + Set + Me.wDayField = value + Me.RaisePropertyChanged("wDay") + End Set + End Property + + ''' + _ + Public Property wHour() As UShort + Get + Return Me.wHourField + End Get + Set + Me.wHourField = value + Me.RaisePropertyChanged("wHour") + End Set + End Property + + ''' + _ + Public Property wMinute() As UShort + Get + Return Me.wMinuteField + End Get + Set + Me.wMinuteField = value + Me.RaisePropertyChanged("wMinute") + End Set + End Property + + ''' + _ + Public Property wSecond() As UShort + Get + Return Me.wSecondField + End Get + Set + Me.wSecondField = value + Me.RaisePropertyChanged("wSecond") + End Set + End Property + + ''' + _ + Public Property wMilliseconds() As UShort + Get + Return Me.wMillisecondsField + End Get + Set + Me.wMillisecondsField = value + Me.RaisePropertyChanged("wMilliseconds") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MSGLOGS + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private bootIDField As UInteger + + Private systemTimeField As SYSTEMTIMECNDEX + + Private unIdSeqField As UInteger + + Private codeLogField As UInteger + + Private errinfoField As UInteger + + Private formatTxtField() As Byte + + ''' + _ + Public Property BootID() As UInteger + Get + Return Me.bootIDField + End Get + Set + Me.bootIDField = value + Me.RaisePropertyChanged("BootID") + End Set + End Property + + ''' + _ + Public Property SystemTime() As SYSTEMTIMECNDEX + Get + Return Me.systemTimeField + End Get + Set + Me.systemTimeField = value + Me.RaisePropertyChanged("SystemTime") + End Set + End Property + + ''' + _ + Public Property UnIdSeq() As UInteger + Get + Return Me.unIdSeqField + End Get + Set + Me.unIdSeqField = value + Me.RaisePropertyChanged("UnIdSeq") + End Set + End Property + + ''' + _ + Public Property CodeLog() As UInteger + Get + Return Me.codeLogField + End Get + Set + Me.codeLogField = value + Me.RaisePropertyChanged("CodeLog") + End Set + End Property + + ''' + _ + Public Property Errinfo() As UInteger + Get + Return Me.errinfoField + End Get + Set + Me.errinfoField = value + Me.RaisePropertyChanged("Errinfo") + End Set + End Property + + ''' + _ + Public Property FormatTxt() As Byte() + Get + Return Me.formatTxtField + End Get + Set + Me.formatTxtField = value + Me.RaisePropertyChanged("FormatTxt") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MSGERROR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private bootIDField As UInteger + + Private systemTimeField As SYSTEMTIMECNDEX + + Private unIdSeqField As UInteger + + Private codeErrField As UInteger + + Private processField As Short + + Private comandoField As SByte + + Private subComField As SByte + + Private formatTxtField() As Byte + + ''' + _ + Public Property BootID() As UInteger + Get + Return Me.bootIDField + End Get + Set + Me.bootIDField = value + Me.RaisePropertyChanged("BootID") + End Set + End Property + + ''' + _ + Public Property SystemTime() As SYSTEMTIMECNDEX + Get + Return Me.systemTimeField + End Get + Set + Me.systemTimeField = value + Me.RaisePropertyChanged("SystemTime") + End Set + End Property + + ''' + _ + Public Property UnIdSeq() As UInteger + Get + Return Me.unIdSeqField + End Get + Set + Me.unIdSeqField = value + Me.RaisePropertyChanged("UnIdSeq") + End Set + End Property + + ''' + _ + Public Property CodeErr() As UInteger + Get + Return Me.codeErrField + End Get + Set + Me.codeErrField = value + Me.RaisePropertyChanged("CodeErr") + End Set + End Property + + ''' + _ + Public Property Process() As Short + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Comando() As SByte + Get + Return Me.comandoField + End Get + Set + Me.comandoField = value + Me.RaisePropertyChanged("Comando") + End Set + End Property + + ''' + _ + Public Property SubCom() As SByte + Get + Return Me.subComField + End Get + Set + Me.subComField = value + Me.RaisePropertyChanged("SubCom") + End Set + End Property + + ''' + _ + Public Property FormatTxt() As Byte() + Get + Return Me.formatTxtField + End Get + Set + Me.formatTxtField = value + Me.RaisePropertyChanged("FormatTxt") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MSGEMERGENCY + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private bootIDField As UInteger + + Private systemTimeField As SYSTEMTIMECNDEX + + Private unIdSeqField As UInteger + + Private codeErrField As UInteger + + Private processField As Short + + Private procErrField As Short + + Private formatTxtField() As Byte + + ''' + _ + Public Property BootID() As UInteger + Get + Return Me.bootIDField + End Get + Set + Me.bootIDField = value + Me.RaisePropertyChanged("BootID") + End Set + End Property + + ''' + _ + Public Property SystemTime() As SYSTEMTIMECNDEX + Get + Return Me.systemTimeField + End Get + Set + Me.systemTimeField = value + Me.RaisePropertyChanged("SystemTime") + End Set + End Property + + ''' + _ + Public Property UnIdSeq() As UInteger + Get + Return Me.unIdSeqField + End Get + Set + Me.unIdSeqField = value + Me.RaisePropertyChanged("UnIdSeq") + End Set + End Property + + ''' + _ + Public Property CodeErr() As UInteger + Get + Return Me.codeErrField + End Get + Set + Me.codeErrField = value + Me.RaisePropertyChanged("CodeErr") + End Set + End Property + + ''' + _ + Public Property Process() As Short + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property ProcErr() As Short + Get + Return Me.procErrField + End Get + Set + Me.procErrField = value + Me.RaisePropertyChanged("ProcErr") + End Set + End Property + + ''' + _ + Public Property FormatTxt() As Byte() + Get + Return Me.formatTxtField + End Get + Set + Me.formatTxtField = value + Me.RaisePropertyChanged("FormatTxt") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MONVARDESCR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private classField As UShort + + Private subClassField As UShort + + Private deviceIDField As UShort + + Private codeField As UShort + + Private addressField As UShort + + Private signalField As UShort + + Private samplingPeriodField As Double + + ''' + _ + Public Property [Class]() As UShort + Get + Return Me.classField + End Get + Set + Me.classField = value + Me.RaisePropertyChanged("Class") + End Set + End Property + + ''' + _ + Public Property SubClass() As UShort + Get + Return Me.subClassField + End Get + Set + Me.subClassField = value + Me.RaisePropertyChanged("SubClass") + End Set + End Property + + ''' + _ + Public Property DeviceID() As UShort + Get + Return Me.deviceIDField + End Get + Set + Me.deviceIDField = value + Me.RaisePropertyChanged("DeviceID") + End Set + End Property + + ''' + _ + Public Property Code() As UShort + Get + Return Me.codeField + End Get + Set + Me.codeField = value + Me.RaisePropertyChanged("Code") + End Set + End Property + + ''' + _ + Public Property Address() As UShort + Get + Return Me.addressField + End Get + Set + Me.addressField = value + Me.RaisePropertyChanged("Address") + End Set + End Property + + ''' + _ + Public Property Signal() As UShort + Get + Return Me.signalField + End Get + Set + Me.signalField = value + Me.RaisePropertyChanged("Signal") + End Set + End Property + + ''' + _ + Public Property SamplingPeriod() As Double + Get + Return Me.samplingPeriodField + End Get + Set + Me.samplingPeriodField = value + Me.RaisePropertyChanged("SamplingPeriod") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MONCUSTOMEVENTINFO + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private idField As UShort + + Private typeField As UShort + + Private nameField As String + + ''' + _ + Public Property ID() As UShort + Get + Return Me.idField + End Get + Set + Me.idField = value + Me.RaisePropertyChanged("ID") + End Set + End Property + + ''' + _ + Public Property Type() As UShort + Get + Return Me.typeField + End Get + Set + Me.typeField = value + Me.RaisePropertyChanged("Type") + End Set + End Property + + ''' + _ + Public Property Name() As String + Get + Return Me.nameField + End Get + Set + Me.nameField = value + Me.RaisePropertyChanged("Name") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class FILEFINDDATA + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private fileAttributesField As UInteger + + Private lowDateCreationTimeField As UInteger + + Private highDateCreationTimeField As UInteger + + Private lowDateLastAccessTimeField As UInteger + + Private highDateLastAccessTimeField As UInteger + + Private lowDateLastWriteTimeField As UInteger + + Private highDateLastWriteTimeField As UInteger + + Private fileSizeHighField As UInteger + + Private fileSizeLowField As UInteger + + Private fileNameField As String + + ''' + _ + Public Property FileAttributes() As UInteger + Get + Return Me.fileAttributesField + End Get + Set + Me.fileAttributesField = value + Me.RaisePropertyChanged("FileAttributes") + End Set + End Property + + ''' + _ + Public Property LowDateCreationTime() As UInteger + Get + Return Me.lowDateCreationTimeField + End Get + Set + Me.lowDateCreationTimeField = value + Me.RaisePropertyChanged("LowDateCreationTime") + End Set + End Property + + ''' + _ + Public Property HighDateCreationTime() As UInteger + Get + Return Me.highDateCreationTimeField + End Get + Set + Me.highDateCreationTimeField = value + Me.RaisePropertyChanged("HighDateCreationTime") + End Set + End Property + + ''' + _ + Public Property LowDateLastAccessTime() As UInteger + Get + Return Me.lowDateLastAccessTimeField + End Get + Set + Me.lowDateLastAccessTimeField = value + Me.RaisePropertyChanged("LowDateLastAccessTime") + End Set + End Property + + ''' + _ + Public Property HighDateLastAccessTime() As UInteger + Get + Return Me.highDateLastAccessTimeField + End Get + Set + Me.highDateLastAccessTimeField = value + Me.RaisePropertyChanged("HighDateLastAccessTime") + End Set + End Property + + ''' + _ + Public Property LowDateLastWriteTime() As UInteger + Get + Return Me.lowDateLastWriteTimeField + End Get + Set + Me.lowDateLastWriteTimeField = value + Me.RaisePropertyChanged("LowDateLastWriteTime") + End Set + End Property + + ''' + _ + Public Property HighDateLastWriteTime() As UInteger + Get + Return Me.highDateLastWriteTimeField + End Get + Set + Me.highDateLastWriteTimeField = value + Me.RaisePropertyChanged("HighDateLastWriteTime") + End Set + End Property + + ''' + _ + Public Property FileSizeHigh() As UInteger + Get + Return Me.fileSizeHighField + End Get + Set + Me.fileSizeHighField = value + Me.RaisePropertyChanged("FileSizeHigh") + End Set + End Property + + ''' + _ + Public Property FileSizeLow() As UInteger + Get + Return Me.fileSizeLowField + End Get + Set + Me.fileSizeLowField = value + Me.RaisePropertyChanged("FileSizeLow") + End Set + End Property + + ''' + _ + Public Property FileName() As String + Get + Return Me.fileNameField + End Get + Set + Me.fileNameField = value + Me.RaisePropertyChanged("FileName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ERRMSG + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private msg1Field As String + + Private msg2Field As String + + Private msg3Field As String + + Private msg4Field As String + + ''' + _ + Public Property Msg1() As String + Get + Return Me.msg1Field + End Get + Set + Me.msg1Field = value + Me.RaisePropertyChanged("Msg1") + End Set + End Property + + ''' + _ + Public Property Msg2() As String + Get + Return Me.msg2Field + End Get + Set + Me.msg2Field = value + Me.RaisePropertyChanged("Msg2") + End Set + End Property + + ''' + _ + Public Property Msg3() As String + Get + Return Me.msg3Field + End Get + Set + Me.msg3Field = value + Me.RaisePropertyChanged("Msg3") + End Set + End Property + + ''' + _ + Public Property Msg4() As String + Get + Return Me.msg4Field + End Get + Set + Me.msg4Field = value + Me.RaisePropertyChanged("Msg4") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GETBLKNUMDATA + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private ppActNumField As UShort + + Private mainActBlkField As UInteger + + Private sbr1ActBlkField As UInteger + + Private sbr2ActBlkField As UInteger + + Private sbr3ActBlkField As UInteger + + Private sbr4ActBlkField As UInteger + + ''' + _ + Public Property ppActNum() As UShort + Get + Return Me.ppActNumField + End Get + Set + Me.ppActNumField = value + Me.RaisePropertyChanged("ppActNum") + End Set + End Property + + ''' + _ + Public Property MainActBlk() As UInteger + Get + Return Me.mainActBlkField + End Get + Set + Me.mainActBlkField = value + Me.RaisePropertyChanged("MainActBlk") + End Set + End Property + + ''' + _ + Public Property Sbr1ActBlk() As UInteger + Get + Return Me.sbr1ActBlkField + End Get + Set + Me.sbr1ActBlkField = value + Me.RaisePropertyChanged("Sbr1ActBlk") + End Set + End Property + + ''' + _ + Public Property Sbr2ActBlk() As UInteger + Get + Return Me.sbr2ActBlkField + End Get + Set + Me.sbr2ActBlkField = value + Me.RaisePropertyChanged("Sbr2ActBlk") + End Set + End Property + + ''' + _ + Public Property Sbr3ActBlk() As UInteger + Get + Return Me.sbr3ActBlkField + End Get + Set + Me.sbr3ActBlkField = value + Me.RaisePropertyChanged("Sbr3ActBlk") + End Set + End Property + + ''' + _ + Public Property Sbr4ActBlk() As UInteger + Get + Return Me.sbr4ActBlkField + End Get + Set + Me.sbr4ActBlkField = value + Me.RaisePropertyChanged("Sbr4ActBlk") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class PROCDATA + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private modeField As UShort + + Private statusField As UShort + + Private subStatusField As UShort + + ''' + _ + Public Property Mode() As UShort + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + ''' + _ + Public Property Status() As UShort + Get + Return Me.statusField + End Get + Set + Me.statusField = value + Me.RaisePropertyChanged("Status") + End Set + End Property + + ''' + _ + Public Property SubStatus() As UShort + Get + Return Me.subStatusField + End Get + Set + Me.subStatusField = value + Me.RaisePropertyChanged("SubStatus") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GETINFO2DATA + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private statusWordField As UShort + + Private urpField As Double + + Private actToolField As Double + + Private actOffsetField As UShort + + Private progToolField As Double + + Private progOffsetField As UShort + + Private mStatusField As UShort + + Private mValueField() As UShort + + Private ax1NameField As Byte + + Private ax1OffsetField As Double + + Private ax2NameField As Byte + + Private ax2OffsetField As Double + + Private radiusField As Double + + ''' + _ + Public Property StatusWord() As UShort + Get + Return Me.statusWordField + End Get + Set + Me.statusWordField = value + Me.RaisePropertyChanged("StatusWord") + End Set + End Property + + ''' + _ + Public Property Urp() As Double + Get + Return Me.urpField + End Get + Set + Me.urpField = value + Me.RaisePropertyChanged("Urp") + End Set + End Property + + ''' + _ + Public Property ActTool() As Double + Get + Return Me.actToolField + End Get + Set + Me.actToolField = value + Me.RaisePropertyChanged("ActTool") + End Set + End Property + + ''' + _ + Public Property ActOffset() As UShort + Get + Return Me.actOffsetField + End Get + Set + Me.actOffsetField = value + Me.RaisePropertyChanged("ActOffset") + End Set + End Property + + ''' + _ + Public Property ProgTool() As Double + Get + Return Me.progToolField + End Get + Set + Me.progToolField = value + Me.RaisePropertyChanged("ProgTool") + End Set + End Property + + ''' + _ + Public Property ProgOffset() As UShort + Get + Return Me.progOffsetField + End Get + Set + Me.progOffsetField = value + Me.RaisePropertyChanged("ProgOffset") + End Set + End Property + + ''' + _ + Public Property MStatus() As UShort + Get + Return Me.mStatusField + End Get + Set + Me.mStatusField = value + Me.RaisePropertyChanged("MStatus") + End Set + End Property + + ''' + _ + Public Property MValue() As UShort() + Get + Return Me.mValueField + End Get + Set + Me.mValueField = value + Me.RaisePropertyChanged("MValue") + End Set + End Property + + ''' + _ + Public Property Ax1Name() As Byte + Get + Return Me.ax1NameField + End Get + Set + Me.ax1NameField = value + Me.RaisePropertyChanged("Ax1Name") + End Set + End Property + + ''' + _ + Public Property Ax1Offset() As Double + Get + Return Me.ax1OffsetField + End Get + Set + Me.ax1OffsetField = value + Me.RaisePropertyChanged("Ax1Offset") + End Set + End Property + + ''' + _ + Public Property Ax2Name() As Byte + Get + Return Me.ax2NameField + End Get + Set + Me.ax2NameField = value + Me.RaisePropertyChanged("Ax2Name") + End Set + End Property + + ''' + _ + Public Property Ax2Offset() As Double + Get + Return Me.ax2OffsetField + End Get + Set + Me.ax2OffsetField = value + Me.RaisePropertyChanged("Ax2Offset") + End Set + End Property + + ''' + _ + Public Property Radius() As Double + Get + Return Me.radiusField + End Get + Set + Me.radiusField = value + Me.RaisePropertyChanged("Radius") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GETINFO1DATA + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private statusField As Byte + + Private substatusField As Byte + + Private modeselectField As Byte + + Private jogdirField As Byte + + Private speedovField As UShort + + Private feedovField As UShort + + Private rapfeedovField As UShort + + Private manfeedovField As UShort + + Private jogincrField As Double + + Private numaxselField As Byte + + Private axselField() As Byte + + Private actualtoolField As Double + + Private progrtoolField As Double + + Private actualtooloffField As UShort + + Private progrtooloffField As UShort + + Private realspeedField As Double + + Private progrspeedField As Double + + Private progrfeedField As Double + + Private rapidfeedField As Double + + Private realfeedField As Double + + Private feedmisunitField As UShort + + Private mainprogrnameField As String + + Private dryrunField As Byte + + Private rapidoverrideField As Byte + + Private disableslashedblkField As Byte + + Private optionalstopField As Byte + + Private forcerapidfeedField As Byte + + Private autojogretField As Byte + + Private blockretraceField As Byte + + Private lastncerrorField As UShort + + Private freeField As String + + ''' + _ + Public Property status() As Byte + Get + Return Me.statusField + End Get + Set + Me.statusField = value + Me.RaisePropertyChanged("status") + End Set + End Property + + ''' + _ + Public Property substatus() As Byte + Get + Return Me.substatusField + End Get + Set + Me.substatusField = value + Me.RaisePropertyChanged("substatus") + End Set + End Property + + ''' + _ + Public Property modeselect() As Byte + Get + Return Me.modeselectField + End Get + Set + Me.modeselectField = value + Me.RaisePropertyChanged("modeselect") + End Set + End Property + + ''' + _ + Public Property jogdir() As Byte + Get + Return Me.jogdirField + End Get + Set + Me.jogdirField = value + Me.RaisePropertyChanged("jogdir") + End Set + End Property + + ''' + _ + Public Property speedov() As UShort + Get + Return Me.speedovField + End Get + Set + Me.speedovField = value + Me.RaisePropertyChanged("speedov") + End Set + End Property + + ''' + _ + Public Property feedov() As UShort + Get + Return Me.feedovField + End Get + Set + Me.feedovField = value + Me.RaisePropertyChanged("feedov") + End Set + End Property + + ''' + _ + Public Property rapfeedov() As UShort + Get + Return Me.rapfeedovField + End Get + Set + Me.rapfeedovField = value + Me.RaisePropertyChanged("rapfeedov") + End Set + End Property + + ''' + _ + Public Property manfeedov() As UShort + Get + Return Me.manfeedovField + End Get + Set + Me.manfeedovField = value + Me.RaisePropertyChanged("manfeedov") + End Set + End Property + + ''' + _ + Public Property jogincr() As Double + Get + Return Me.jogincrField + End Get + Set + Me.jogincrField = value + Me.RaisePropertyChanged("jogincr") + End Set + End Property + + ''' + _ + Public Property numaxsel() As Byte + Get + Return Me.numaxselField + End Get + Set + Me.numaxselField = value + Me.RaisePropertyChanged("numaxsel") + End Set + End Property + + ''' + _ + Public Property axsel() As Byte() + Get + Return Me.axselField + End Get + Set + Me.axselField = value + Me.RaisePropertyChanged("axsel") + End Set + End Property + + ''' + _ + Public Property actualtool() As Double + Get + Return Me.actualtoolField + End Get + Set + Me.actualtoolField = value + Me.RaisePropertyChanged("actualtool") + End Set + End Property + + ''' + _ + Public Property progrtool() As Double + Get + Return Me.progrtoolField + End Get + Set + Me.progrtoolField = value + Me.RaisePropertyChanged("progrtool") + End Set + End Property + + ''' + _ + Public Property actualtooloff() As UShort + Get + Return Me.actualtooloffField + End Get + Set + Me.actualtooloffField = value + Me.RaisePropertyChanged("actualtooloff") + End Set + End Property + + ''' + _ + Public Property progrtooloff() As UShort + Get + Return Me.progrtooloffField + End Get + Set + Me.progrtooloffField = value + Me.RaisePropertyChanged("progrtooloff") + End Set + End Property + + ''' + _ + Public Property realspeed() As Double + Get + Return Me.realspeedField + End Get + Set + Me.realspeedField = value + Me.RaisePropertyChanged("realspeed") + End Set + End Property + + ''' + _ + Public Property progrspeed() As Double + Get + Return Me.progrspeedField + End Get + Set + Me.progrspeedField = value + Me.RaisePropertyChanged("progrspeed") + End Set + End Property + + ''' + _ + Public Property progrfeed() As Double + Get + Return Me.progrfeedField + End Get + Set + Me.progrfeedField = value + Me.RaisePropertyChanged("progrfeed") + End Set + End Property + + ''' + _ + Public Property rapidfeed() As Double + Get + Return Me.rapidfeedField + End Get + Set + Me.rapidfeedField = value + Me.RaisePropertyChanged("rapidfeed") + End Set + End Property + + ''' + _ + Public Property realfeed() As Double + Get + Return Me.realfeedField + End Get + Set + Me.realfeedField = value + Me.RaisePropertyChanged("realfeed") + End Set + End Property + + ''' + _ + Public Property feedmisunit() As UShort + Get + Return Me.feedmisunitField + End Get + Set + Me.feedmisunitField = value + Me.RaisePropertyChanged("feedmisunit") + End Set + End Property + + ''' + _ + Public Property mainprogrname() As String + Get + Return Me.mainprogrnameField + End Get + Set + Me.mainprogrnameField = value + Me.RaisePropertyChanged("mainprogrname") + End Set + End Property + + ''' + _ + Public Property dryrun() As Byte + Get + Return Me.dryrunField + End Get + Set + Me.dryrunField = value + Me.RaisePropertyChanged("dryrun") + End Set + End Property + + ''' + _ + Public Property rapidoverride() As Byte + Get + Return Me.rapidoverrideField + End Get + Set + Me.rapidoverrideField = value + Me.RaisePropertyChanged("rapidoverride") + End Set + End Property + + ''' + _ + Public Property disableslashedblk() As Byte + Get + Return Me.disableslashedblkField + End Get + Set + Me.disableslashedblkField = value + Me.RaisePropertyChanged("disableslashedblk") + End Set + End Property + + ''' + _ + Public Property optionalstop() As Byte + Get + Return Me.optionalstopField + End Get + Set + Me.optionalstopField = value + Me.RaisePropertyChanged("optionalstop") + End Set + End Property + + ''' + _ + Public Property forcerapidfeed() As Byte + Get + Return Me.forcerapidfeedField + End Get + Set + Me.forcerapidfeedField = value + Me.RaisePropertyChanged("forcerapidfeed") + End Set + End Property + + ''' + _ + Public Property autojogret() As Byte + Get + Return Me.autojogretField + End Get + Set + Me.autojogretField = value + Me.RaisePropertyChanged("autojogret") + End Set + End Property + + ''' + _ + Public Property blockretrace() As Byte + Get + Return Me.blockretraceField + End Get + Set + Me.blockretraceField = value + Me.RaisePropertyChanged("blockretrace") + End Set + End Property + + ''' + _ + Public Property lastncerror() As UShort + Get + Return Me.lastncerrorField + End Get + Set + Me.lastncerrorField = value + Me.RaisePropertyChanged("lastncerror") + End Set + End Property + + ''' + _ + Public Property free() As String + Get + Return Me.freeField + End Get + Set + Me.freeField = value + Me.RaisePropertyChanged("free") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GETINTDATA + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private axisNameField As Byte + + Private modeField As Byte + + Private positionField As Double + + Private totalOffsetField As Double + + ''' + _ + Public Property AxisName() As Byte + Get + Return Me.axisNameField + End Get + Set + Me.axisNameField = value + Me.RaisePropertyChanged("AxisName") + End Set + End Property + + ''' + _ + Public Property mode() As Byte + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("mode") + End Set + End Property + + ''' + _ + Public Property position() As Double + Get + Return Me.positionField + End Get + Set + Me.positionField = value + Me.RaisePropertyChanged("position") + End Set + End Property + + ''' + _ + Public Property TotalOffset() As Double + Get + Return Me.totalOffsetField + End Get + Set + Me.totalOffsetField = value + Me.RaisePropertyChanged("TotalOffset") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class AXORIGNUM + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private axisNameField As Byte + + Private originNumberField As Byte + + Private originFlagField As UShort + + ''' + _ + Public Property AxisName() As Byte + Get + Return Me.axisNameField + End Get + Set + Me.axisNameField = value + Me.RaisePropertyChanged("AxisName") + End Set + End Property + + ''' + _ + Public Property OriginNumber() As Byte + Get + Return Me.originNumberField + End Get + Set + Me.originNumberField = value + Me.RaisePropertyChanged("OriginNumber") + End Set + End Property + + ''' + _ + Public Property OriginFlag() As UShort + Get + Return Me.originFlagField + End Get + Set + Me.originFlagField = value + Me.RaisePropertyChanged("OriginFlag") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class USERTABLEII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private userValField() As Double + + ''' + _ + Public Property UserVal() As Double() + Get + Return Me.userValField + End Get + Set + Me.userValField = value + Me.RaisePropertyChanged("UserVal") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class OFFSETVALII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private valOrigField As Double + + Private maxChangeValField As Double + + Private actChangeValField As Double + + ''' + _ + Public Property ValOrig() As Double + Get + Return Me.valOrigField + End Get + Set + Me.valOrigField = value + Me.RaisePropertyChanged("ValOrig") + End Set + End Property + + ''' + _ + Public Property MaxChangeVal() As Double + Get + Return Me.maxChangeValField + End Get + Set + Me.maxChangeValField = value + Me.RaisePropertyChanged("MaxChangeVal") + End Set + End Property + + ''' + _ + Public Property ActChangeVal() As Double + Get + Return Me.actChangeValField + End Get + Set + Me.actChangeValField = value + Me.RaisePropertyChanged("ActChangeVal") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class OFFSETTABLEII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private lenValField() As OFFSETVALII + + Private diaValField() As OFFSETVALII + + Private orientField As UShort + + Private externTypeField As UShort + + Private externIndField As UShort + + Private duserField() As Double + + Private suserField() As Short + + Private descrField() As UShort + + ''' + _ + Public Property LenVal() As OFFSETVALII() + Get + Return Me.lenValField + End Get + Set + Me.lenValField = value + Me.RaisePropertyChanged("LenVal") + End Set + End Property + + ''' + _ + Public Property DiaVal() As OFFSETVALII() + Get + Return Me.diaValField + End Get + Set + Me.diaValField = value + Me.RaisePropertyChanged("DiaVal") + End Set + End Property + + ''' + _ + Public Property Orient() As UShort + Get + Return Me.orientField + End Get + Set + Me.orientField = value + Me.RaisePropertyChanged("Orient") + End Set + End Property + + ''' + _ + Public Property ExternType() As UShort + Get + Return Me.externTypeField + End Get + Set + Me.externTypeField = value + Me.RaisePropertyChanged("ExternType") + End Set + End Property + + ''' + _ + Public Property ExternInd() As UShort + Get + Return Me.externIndField + End Get + Set + Me.externIndField = value + Me.RaisePropertyChanged("ExternInd") + End Set + End Property + + ''' + _ + Public Property Duser() As Double() + Get + Return Me.duserField + End Get + Set + Me.duserField = value + Me.RaisePropertyChanged("Duser") + End Set + End Property + + ''' + _ + Public Property Suser() As Short() + Get + Return Me.suserField + End Get + Set + Me.suserField = value + Me.RaisePropertyChanged("Suser") + End Set + End Property + + ''' + _ + Public Property Descr() As UShort() + Get + Return Me.descrField + End Get + Set + Me.descrField = value + Me.RaisePropertyChanged("Descr") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class TOOLTABLEII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private toolNameField As String + + Private statusField As UShort + + Private lifeTypeField As UShort + + Private maxLifeField As Double + + Private remLifeField As Double + + Private offsNumField As UShort + + Private externTypeField As UShort + + Private externIndField As UShort + + Private duserField() As Double + + Private suserField() As Short + + Private descrField() As UShort + + ''' + _ + Public Property ToolName() As String + Get + Return Me.toolNameField + End Get + Set + Me.toolNameField = value + Me.RaisePropertyChanged("ToolName") + End Set + End Property + + ''' + _ + Public Property Status() As UShort + Get + Return Me.statusField + End Get + Set + Me.statusField = value + Me.RaisePropertyChanged("Status") + End Set + End Property + + ''' + _ + Public Property LifeType() As UShort + Get + Return Me.lifeTypeField + End Get + Set + Me.lifeTypeField = value + Me.RaisePropertyChanged("LifeType") + End Set + End Property + + ''' + _ + Public Property MaxLife() As Double + Get + Return Me.maxLifeField + End Get + Set + Me.maxLifeField = value + Me.RaisePropertyChanged("MaxLife") + End Set + End Property + + ''' + _ + Public Property RemLife() As Double + Get + Return Me.remLifeField + End Get + Set + Me.remLifeField = value + Me.RaisePropertyChanged("RemLife") + End Set + End Property + + ''' + _ + Public Property OffsNum() As UShort + Get + Return Me.offsNumField + End Get + Set + Me.offsNumField = value + Me.RaisePropertyChanged("OffsNum") + End Set + End Property + + ''' + _ + Public Property ExternType() As UShort + Get + Return Me.externTypeField + End Get + Set + Me.externTypeField = value + Me.RaisePropertyChanged("ExternType") + End Set + End Property + + ''' + _ + Public Property ExternInd() As UShort + Get + Return Me.externIndField + End Get + Set + Me.externIndField = value + Me.RaisePropertyChanged("ExternInd") + End Set + End Property + + ''' + _ + Public Property Duser() As Double() + Get + Return Me.duserField + End Get + Set + Me.duserField = value + Me.RaisePropertyChanged("Duser") + End Set + End Property + + ''' + _ + Public Property Suser() As Short() + Get + Return Me.suserField + End Get + Set + Me.suserField = value + Me.RaisePropertyChanged("Suser") + End Set + End Property + + ''' + _ + Public Property Descr() As UShort() + Get + Return Me.descrField + End Get + Set + Me.descrField = value + Me.RaisePropertyChanged("Descr") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ORIGINTABLEII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private axisValField() As Double + + Private externTypeField As UShort + + Private externIndField As UShort + + Private descrField() As UShort + + ''' + _ + Public Property AxisVal() As Double() + Get + Return Me.axisValField + End Get + Set + Me.axisValField = value + Me.RaisePropertyChanged("AxisVal") + End Set + End Property + + ''' + _ + Public Property ExternType() As UShort + Get + Return Me.externTypeField + End Get + Set + Me.externTypeField = value + Me.RaisePropertyChanged("ExternType") + End Set + End Property + + ''' + _ + Public Property ExternInd() As UShort + Get + Return Me.externIndField + End Get + Set + Me.externIndField = value + Me.RaisePropertyChanged("ExternInd") + End Set + End Property + + ''' + _ + Public Property Descr() As UShort() + Get + Return Me.descrField + End Get + Set + Me.descrField = value + Me.RaisePropertyChanged("Descr") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class BootPhaseEnquiryR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private phaseField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Phase() As UShort + Get + Return Me.phaseField + End Get + Set + Me.phaseField = value + Me.RaisePropertyChanged("Phase") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class BootPhaseEnquiryRequest + + _ + Public BootPhaseEnquiry As OpenControl.BootPhaseEnquiry + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal BootPhaseEnquiry As OpenControl.BootPhaseEnquiry) + MyBase.New + Me.BootPhaseEnquiry = BootPhaseEnquiry + End Sub + End Class + + _ + Partial Public Class BootPhaseEnquiryResponse + + _ + Public BootPhaseEnquiryR As OpenControl.BootPhaseEnquiryR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal BootPhaseEnquiryR As OpenControl.BootPhaseEnquiryR) + MyBase.New + Me.BootPhaseEnquiryR = BootPhaseEnquiryR + End Sub + End Class + + ''' + _ + Partial Public Class BootReboot + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class BootRebootR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class BootRebootRequest + + _ + Public BootReboot As OpenControl.BootReboot + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal BootReboot As OpenControl.BootReboot) + MyBase.New + Me.BootReboot = BootReboot + End Sub + End Class + + _ + Partial Public Class BootRebootResponse + + _ + Public BootRebootR As OpenControl.BootRebootR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal BootRebootR As OpenControl.BootRebootR) + MyBase.New + Me.BootRebootR = BootRebootR + End Sub + End Class + + ''' + _ + Partial Public Class BootShutDown + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class BootShutDownR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class BootShutDownRequest + + _ + Public BootShutDown As OpenControl.BootShutDown + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal BootShutDown As OpenControl.BootShutDown) + MyBase.New + Me.BootShutDown = BootShutDown + End Sub + End Class + + _ + Partial Public Class BootShutDownResponse + + _ + Public BootShutDownR As OpenControl.BootShutDownR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal BootShutDownR As OpenControl.BootShutDownR) + MyBase.New + Me.BootShutDownR = BootShutDownR + End Sub + End Class + + ''' + _ + Partial Public Class BootMode + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private modeField As UShort + + ''' + _ + Public Property Mode() As UShort + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class BootModeR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class BootModeRequest + + _ + Public BootMode As OpenControl.BootMode + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal BootMode As OpenControl.BootMode) + MyBase.New + Me.BootMode = BootMode + End Sub + End Class + + _ + Partial Public Class BootModeResponse + + _ + Public BootModeR As OpenControl.BootModeR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal BootModeR As OpenControl.BootModeR) + MyBase.New + Me.BootModeR = BootModeR + End Sub + End Class + + ''' + _ + Partial Public Class GetHWKey + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetHWKeyR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private hwKeyField() As Byte + + Private securLevelField() As Byte + + Private releaseField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property HwKey() As Byte() + Get + Return Me.hwKeyField + End Get + Set + Me.hwKeyField = value + Me.RaisePropertyChanged("HwKey") + End Set + End Property + + ''' + _ + Public Property SecurLevel() As Byte() + Get + Return Me.securLevelField + End Get + Set + Me.securLevelField = value + Me.RaisePropertyChanged("SecurLevel") + End Set + End Property + + ''' + _ + Public Property Release() As String + Get + Return Me.releaseField + End Get + Set + Me.releaseField = value + Me.RaisePropertyChanged("Release") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetHWKeyRequest + + _ + Public GetHWKey As OpenControl.GetHWKey + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetHWKey As OpenControl.GetHWKey) + MyBase.New + Me.GetHWKey = GetHWKey + End Sub + End Class + + _ + Partial Public Class GetHWKeyResponse + + _ + Public GetHWKeyR As OpenControl.GetHWKeyR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetHWKeyR As OpenControl.GetHWKeyR) + MyBase.New + Me.GetHWKeyR = GetHWKeyR + End Sub + End Class + + ''' + _ + Partial Public Class ReadVarWord + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private codeField As UShort + + Private processField As UShort + + Private indexField As UShort + + Private numVarField As UShort + + ''' + _ + Public Property Code() As UShort + Get + Return Me.codeField + End Get + Set + Me.codeField = value + Me.RaisePropertyChanged("Code") + End Set + End Property + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Index() As UShort + Get + Return Me.indexField + End Get + Set + Me.indexField = value + Me.RaisePropertyChanged("Index") + End Set + End Property + + ''' + _ + Public Property NumVar() As UShort + Get + Return Me.numVarField + End Get + Set + Me.numVarField = value + Me.RaisePropertyChanged("NumVar") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadVarWordR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private valueField() As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Value() As UShort() + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadVarWordRequest + + _ + Public ReadVarWord As OpenControl.ReadVarWord + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadVarWord As OpenControl.ReadVarWord) + MyBase.New + Me.ReadVarWord = ReadVarWord + End Sub + End Class + + _ + Partial Public Class ReadVarWordResponse + + _ + Public ReadVarWordR As OpenControl.ReadVarWordR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadVarWordR As OpenControl.ReadVarWordR) + MyBase.New + Me.ReadVarWordR = ReadVarWordR + End Sub + End Class + + ''' + _ + Partial Public Class ReadVarDouble + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private codeField As UShort + + Private processField As UShort + + Private indexField As UShort + + Private numVarField As UShort + + ''' + _ + Public Property Code() As UShort + Get + Return Me.codeField + End Get + Set + Me.codeField = value + Me.RaisePropertyChanged("Code") + End Set + End Property + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Index() As UShort + Get + Return Me.indexField + End Get + Set + Me.indexField = value + Me.RaisePropertyChanged("Index") + End Set + End Property + + ''' + _ + Public Property NumVar() As UShort + Get + Return Me.numVarField + End Get + Set + Me.numVarField = value + Me.RaisePropertyChanged("NumVar") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadVarDoubleR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private valueField() As Double + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Value() As Double() + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadVarDoubleRequest + + _ + Public ReadVarDouble As OpenControl.ReadVarDouble + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadVarDouble As OpenControl.ReadVarDouble) + MyBase.New + Me.ReadVarDouble = ReadVarDouble + End Sub + End Class + + _ + Partial Public Class ReadVarDoubleResponse + + _ + Public ReadVarDoubleR As OpenControl.ReadVarDoubleR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadVarDoubleR As OpenControl.ReadVarDoubleR) + MyBase.New + Me.ReadVarDoubleR = ReadVarDoubleR + End Sub + End Class + + ''' + _ + Partial Public Class WriteVarWord + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private codeField As UShort + + Private processField As UShort + + Private indexField As UShort + + Private numVarField As UShort + + Private valueField() As UShort + + ''' + _ + Public Property Code() As UShort + Get + Return Me.codeField + End Get + Set + Me.codeField = value + Me.RaisePropertyChanged("Code") + End Set + End Property + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Index() As UShort + Get + Return Me.indexField + End Get + Set + Me.indexField = value + Me.RaisePropertyChanged("Index") + End Set + End Property + + ''' + _ + Public Property NumVar() As UShort + Get + Return Me.numVarField + End Get + Set + Me.numVarField = value + Me.RaisePropertyChanged("NumVar") + End Set + End Property + + ''' + _ + Public Property Value() As UShort() + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class WriteVarWordR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class WriteVarWordRequest + + _ + Public WriteVarWord As OpenControl.WriteVarWord + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteVarWord As OpenControl.WriteVarWord) + MyBase.New + Me.WriteVarWord = WriteVarWord + End Sub + End Class + + _ + Partial Public Class WriteVarWordResponse + + _ + Public WriteVarWordR As OpenControl.WriteVarWordR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteVarWordR As OpenControl.WriteVarWordR) + MyBase.New + Me.WriteVarWordR = WriteVarWordR + End Sub + End Class + + ''' + _ + Partial Public Class WriteVarWordBit + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private codeField As UShort + + Private processField As UShort + + Private indexField As UShort + + Private bitIndexField As UShort + + Private bitValueField As UShort + + ''' + _ + Public Property Code() As UShort + Get + Return Me.codeField + End Get + Set + Me.codeField = value + Me.RaisePropertyChanged("Code") + End Set + End Property + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Index() As UShort + Get + Return Me.indexField + End Get + Set + Me.indexField = value + Me.RaisePropertyChanged("Index") + End Set + End Property + + ''' + _ + Public Property BitIndex() As UShort + Get + Return Me.bitIndexField + End Get + Set + Me.bitIndexField = value + Me.RaisePropertyChanged("BitIndex") + End Set + End Property + + ''' + _ + Public Property BitValue() As UShort + Get + Return Me.bitValueField + End Get + Set + Me.bitValueField = value + Me.RaisePropertyChanged("BitValue") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class WriteVarWordBitR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class WriteVarWordBitRequest + + _ + Public WriteVarWordBit As OpenControl.WriteVarWordBit + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteVarWordBit As OpenControl.WriteVarWordBit) + MyBase.New + Me.WriteVarWordBit = WriteVarWordBit + End Sub + End Class + + _ + Partial Public Class WriteVarWordBitResponse + + _ + Public WriteVarWordBitR As OpenControl.WriteVarWordBitR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteVarWordBitR As OpenControl.WriteVarWordBitR) + MyBase.New + Me.WriteVarWordBitR = WriteVarWordBitR + End Sub + End Class + + ''' + _ + Partial Public Class WriteVarDouble + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private codeField As UShort + + Private processField As UShort + + Private indexField As UShort + + Private numVarField As UShort + + Private valueField() As Double + + ''' + _ + Public Property Code() As UShort + Get + Return Me.codeField + End Get + Set + Me.codeField = value + Me.RaisePropertyChanged("Code") + End Set + End Property + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Index() As UShort + Get + Return Me.indexField + End Get + Set + Me.indexField = value + Me.RaisePropertyChanged("Index") + End Set + End Property + + ''' + _ + Public Property NumVar() As UShort + Get + Return Me.numVarField + End Get + Set + Me.numVarField = value + Me.RaisePropertyChanged("NumVar") + End Set + End Property + + ''' + _ + Public Property Value() As Double() + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class WriteVarDoubleR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class WriteVarDoubleRequest + + _ + Public WriteVarDouble As OpenControl.WriteVarDouble + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteVarDouble As OpenControl.WriteVarDouble) + MyBase.New + Me.WriteVarDouble = WriteVarDouble + End Sub + End Class + + _ + Partial Public Class WriteVarDoubleResponse + + _ + Public WriteVarDoubleR As OpenControl.WriteVarDoubleR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteVarDoubleR As OpenControl.WriteVarDoubleR) + MyBase.New + Me.WriteVarDoubleR = WriteVarDoubleR + End Sub + End Class + + ''' + _ + Partial Public Class ReadVarText + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private codeField As UShort + + Private processField As UShort + + Private indexField As UShort + + Private sizeField As UShort + + ''' + _ + Public Property Code() As UShort + Get + Return Me.codeField + End Get + Set + Me.codeField = value + Me.RaisePropertyChanged("Code") + End Set + End Property + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Index() As UShort + Get + Return Me.indexField + End Get + Set + Me.indexField = value + Me.RaisePropertyChanged("Index") + End Set + End Property + + ''' + _ + Public Property Size() As UShort + Get + Return Me.sizeField + End Get + Set + Me.sizeField = value + Me.RaisePropertyChanged("Size") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadVarTextR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private textField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Text() As String + Get + Return Me.textField + End Get + Set + Me.textField = value + Me.RaisePropertyChanged("Text") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadVarTextRequest + + _ + Public ReadVarText As OpenControl.ReadVarText + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadVarText As OpenControl.ReadVarText) + MyBase.New + Me.ReadVarText = ReadVarText + End Sub + End Class + + _ + Partial Public Class ReadVarTextResponse + + _ + Public ReadVarTextR As OpenControl.ReadVarTextR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadVarTextR As OpenControl.ReadVarTextR) + MyBase.New + Me.ReadVarTextR = ReadVarTextR + End Sub + End Class + + ''' + _ + Partial Public Class WriteVarText + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private codeField As UShort + + Private processField As UShort + + Private indexField As UShort + + Private lenField As UShort + + Private textField As String + + ''' + _ + Public Property Code() As UShort + Get + Return Me.codeField + End Get + Set + Me.codeField = value + Me.RaisePropertyChanged("Code") + End Set + End Property + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Index() As UShort + Get + Return Me.indexField + End Get + Set + Me.indexField = value + Me.RaisePropertyChanged("Index") + End Set + End Property + + ''' + _ + Public Property Len() As UShort + Get + Return Me.lenField + End Get + Set + Me.lenField = value + Me.RaisePropertyChanged("Len") + End Set + End Property + + ''' + _ + Public Property Text() As String + Get + Return Me.textField + End Get + Set + Me.textField = value + Me.RaisePropertyChanged("Text") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class WriteVarTextR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class WriteVarTextRequest + + _ + Public WriteVarText As OpenControl.WriteVarText + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteVarText As OpenControl.WriteVarText) + MyBase.New + Me.WriteVarText = WriteVarText + End Sub + End Class + + _ + Partial Public Class WriteVarTextResponse + + _ + Public WriteVarTextR As OpenControl.WriteVarTextR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteVarTextR As OpenControl.WriteVarTextR) + MyBase.New + Me.WriteVarTextR = WriteVarTextR + End Sub + End Class + + ''' + _ + Partial Public Class ReadWarningMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadWarningMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private warningMsgField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property WarningMsg() As String + Get + Return Me.warningMsgField + End Get + Set + Me.warningMsgField = value + Me.RaisePropertyChanged("WarningMsg") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadWarningMsgRequest + + _ + Public ReadWarningMsg As OpenControl.ReadWarningMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadWarningMsg As OpenControl.ReadWarningMsg) + MyBase.New + Me.ReadWarningMsg = ReadWarningMsg + End Sub + End Class + + _ + Partial Public Class ReadWarningMsgResponse + + _ + Public ReadWarningMsgR As OpenControl.ReadWarningMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadWarningMsgR As OpenControl.ReadWarningMsgR) + MyBase.New + Me.ReadWarningMsgR = ReadWarningMsgR + End Sub + End Class + + ''' + _ + Partial Public Class ResetSingleTableII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private tableNumField As UShort + + ''' + _ + Public Property TableNum() As UShort + Get + Return Me.tableNumField + End Get + Set + Me.tableNumField = value + Me.RaisePropertyChanged("TableNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ResetSingleTableIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ResetSingleTableIIRequest + + _ + Public ResetSingleTableII As OpenControl.ResetSingleTableII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ResetSingleTableII As OpenControl.ResetSingleTableII) + MyBase.New + Me.ResetSingleTableII = ResetSingleTableII + End Sub + End Class + + _ + Partial Public Class ResetSingleTableIIResponse + + _ + Public ResetSingleTableIIR As OpenControl.ResetSingleTableIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ResetSingleTableIIR As OpenControl.ResetSingleTableIIR) + MyBase.New + Me.ResetSingleTableIIR = ResetSingleTableIIR + End Sub + End Class + + ''' + _ + Partial Public Class LockTableII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private tableNumField As UShort + + ''' + _ + Public Property TableNum() As UShort + Get + Return Me.tableNumField + End Get + Set + Me.tableNumField = value + Me.RaisePropertyChanged("TableNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LockTableIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LockTableIIRequest + + _ + Public LockTableII As OpenControl.LockTableII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LockTableII As OpenControl.LockTableII) + MyBase.New + Me.LockTableII = LockTableII + End Sub + End Class + + _ + Partial Public Class LockTableIIResponse + + _ + Public LockTableIIR As OpenControl.LockTableIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LockTableIIR As OpenControl.LockTableIIR) + MyBase.New + Me.LockTableIIR = LockTableIIR + End Sub + End Class + + ''' + _ + Partial Public Class UnLockTableII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private tableNumField As UShort + + ''' + _ + Public Property TableNum() As UShort + Get + Return Me.tableNumField + End Get + Set + Me.tableNumField = value + Me.RaisePropertyChanged("TableNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class UnLockTableIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class UnLockTableIIRequest + + _ + Public UnLockTableII As OpenControl.UnLockTableII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal UnLockTableII As OpenControl.UnLockTableII) + MyBase.New + Me.UnLockTableII = UnLockTableII + End Sub + End Class + + _ + Partial Public Class UnLockTableIIResponse + + _ + Public UnLockTableIIR As OpenControl.UnLockTableIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal UnLockTableIIR As OpenControl.UnLockTableIIR) + MyBase.New + Me.UnLockTableIIR = UnLockTableIIR + End Sub + End Class + + ''' + _ + Partial Public Class GetOriginTabRecordII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private recordNumField As UInteger + + ''' + _ + Public Property RecordNum() As UInteger + Get + Return Me.recordNumField + End Get + Set + Me.recordNumField = value + Me.RaisePropertyChanged("RecordNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetOriginTabRecordIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private recordBuffField As ORIGINTABLEII + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property RecordBuff() As ORIGINTABLEII + Get + Return Me.recordBuffField + End Get + Set + Me.recordBuffField = value + Me.RaisePropertyChanged("RecordBuff") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetOriginTabRecordIIRequest + + _ + Public GetOriginTabRecordII As OpenControl.GetOriginTabRecordII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetOriginTabRecordII As OpenControl.GetOriginTabRecordII) + MyBase.New + Me.GetOriginTabRecordII = GetOriginTabRecordII + End Sub + End Class + + _ + Partial Public Class GetOriginTabRecordIIResponse + + _ + Public GetOriginTabRecordIIR As OpenControl.GetOriginTabRecordIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetOriginTabRecordIIR As OpenControl.GetOriginTabRecordIIR) + MyBase.New + Me.GetOriginTabRecordIIR = GetOriginTabRecordIIR + End Sub + End Class + + ''' + _ + Partial Public Class SetOriginTabRecordII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private recordNumField As UInteger + + Private recordBuffField As ORIGINTABLEII + + ''' + _ + Public Property RecordNum() As UInteger + Get + Return Me.recordNumField + End Get + Set + Me.recordNumField = value + Me.RaisePropertyChanged("RecordNum") + End Set + End Property + + ''' + _ + Public Property RecordBuff() As ORIGINTABLEII + Get + Return Me.recordBuffField + End Get + Set + Me.recordBuffField = value + Me.RaisePropertyChanged("RecordBuff") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetOriginTabRecordIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetOriginTabRecordIIRequest + + _ + Public SetOriginTabRecordII As OpenControl.SetOriginTabRecordII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetOriginTabRecordII As OpenControl.SetOriginTabRecordII) + MyBase.New + Me.SetOriginTabRecordII = SetOriginTabRecordII + End Sub + End Class + + _ + Partial Public Class SetOriginTabRecordIIResponse + + _ + Public SetOriginTabRecordIIR As OpenControl.SetOriginTabRecordIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetOriginTabRecordIIR As OpenControl.SetOriginTabRecordIIR) + MyBase.New + Me.SetOriginTabRecordIIR = SetOriginTabRecordIIR + End Sub + End Class + + ''' + _ + Partial Public Class GetToolTabRecordII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private recordNumField As UInteger + + ''' + _ + Public Property RecordNum() As UInteger + Get + Return Me.recordNumField + End Get + Set + Me.recordNumField = value + Me.RaisePropertyChanged("RecordNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetToolTabRecordIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private recordBuffField As TOOLTABLEII + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property RecordBuff() As TOOLTABLEII + Get + Return Me.recordBuffField + End Get + Set + Me.recordBuffField = value + Me.RaisePropertyChanged("RecordBuff") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetToolTabRecordIIRequest + + _ + Public GetToolTabRecordII As OpenControl.GetToolTabRecordII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetToolTabRecordII As OpenControl.GetToolTabRecordII) + MyBase.New + Me.GetToolTabRecordII = GetToolTabRecordII + End Sub + End Class + + _ + Partial Public Class GetToolTabRecordIIResponse + + _ + Public GetToolTabRecordIIR As OpenControl.GetToolTabRecordIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetToolTabRecordIIR As OpenControl.GetToolTabRecordIIR) + MyBase.New + Me.GetToolTabRecordIIR = GetToolTabRecordIIR + End Sub + End Class + + ''' + _ + Partial Public Class SetToolTabRecordII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private recordNumField As UInteger + + Private recordBuffField As TOOLTABLEII + + ''' + _ + Public Property RecordNum() As UInteger + Get + Return Me.recordNumField + End Get + Set + Me.recordNumField = value + Me.RaisePropertyChanged("RecordNum") + End Set + End Property + + ''' + _ + Public Property RecordBuff() As TOOLTABLEII + Get + Return Me.recordBuffField + End Get + Set + Me.recordBuffField = value + Me.RaisePropertyChanged("RecordBuff") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetToolTabRecordIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetToolTabRecordIIRequest + + _ + Public SetToolTabRecordII As OpenControl.SetToolTabRecordII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetToolTabRecordII As OpenControl.SetToolTabRecordII) + MyBase.New + Me.SetToolTabRecordII = SetToolTabRecordII + End Sub + End Class + + _ + Partial Public Class SetToolTabRecordIIResponse + + _ + Public SetToolTabRecordIIR As OpenControl.SetToolTabRecordIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetToolTabRecordIIR As OpenControl.SetToolTabRecordIIR) + MyBase.New + Me.SetToolTabRecordIIR = SetToolTabRecordIIR + End Sub + End Class + + ''' + _ + Partial Public Class GetOffsetTabRecordII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private recordNumField As UInteger + + ''' + _ + Public Property RecordNum() As UInteger + Get + Return Me.recordNumField + End Get + Set + Me.recordNumField = value + Me.RaisePropertyChanged("RecordNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetOffsetTabRecordIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private recordBuffField As OFFSETTABLEII + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property RecordBuff() As OFFSETTABLEII + Get + Return Me.recordBuffField + End Get + Set + Me.recordBuffField = value + Me.RaisePropertyChanged("RecordBuff") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetOffsetTabRecordIIRequest + + _ + Public GetOffsetTabRecordII As OpenControl.GetOffsetTabRecordII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetOffsetTabRecordII As OpenControl.GetOffsetTabRecordII) + MyBase.New + Me.GetOffsetTabRecordII = GetOffsetTabRecordII + End Sub + End Class + + _ + Partial Public Class GetOffsetTabRecordIIResponse + + _ + Public GetOffsetTabRecordIIR As OpenControl.GetOffsetTabRecordIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetOffsetTabRecordIIR As OpenControl.GetOffsetTabRecordIIR) + MyBase.New + Me.GetOffsetTabRecordIIR = GetOffsetTabRecordIIR + End Sub + End Class + + ''' + _ + Partial Public Class SetOffsetTabRecordII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private recordNumField As UInteger + + Private recordBuffField As OFFSETTABLEII + + ''' + _ + Public Property RecordNum() As UInteger + Get + Return Me.recordNumField + End Get + Set + Me.recordNumField = value + Me.RaisePropertyChanged("RecordNum") + End Set + End Property + + ''' + _ + Public Property RecordBuff() As OFFSETTABLEII + Get + Return Me.recordBuffField + End Get + Set + Me.recordBuffField = value + Me.RaisePropertyChanged("RecordBuff") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetOffsetTabRecordIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetOffsetTabRecordIIRequest + + _ + Public SetOffsetTabRecordII As OpenControl.SetOffsetTabRecordII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetOffsetTabRecordII As OpenControl.SetOffsetTabRecordII) + MyBase.New + Me.SetOffsetTabRecordII = SetOffsetTabRecordII + End Sub + End Class + + _ + Partial Public Class SetOffsetTabRecordIIResponse + + _ + Public SetOffsetTabRecordIIR As OpenControl.SetOffsetTabRecordIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetOffsetTabRecordIIR As OpenControl.SetOffsetTabRecordIIR) + MyBase.New + Me.SetOffsetTabRecordIIR = SetOffsetTabRecordIIR + End Sub + End Class + + ''' + _ + Partial Public Class GetUserTabRecordII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private recordNumField As UInteger + + ''' + _ + Public Property RecordNum() As UInteger + Get + Return Me.recordNumField + End Get + Set + Me.recordNumField = value + Me.RaisePropertyChanged("RecordNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetUserTabRecordIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private recordBuffField As USERTABLEII + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property RecordBuff() As USERTABLEII + Get + Return Me.recordBuffField + End Get + Set + Me.recordBuffField = value + Me.RaisePropertyChanged("RecordBuff") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetUserTabRecordIIRequest + + _ + Public GetUserTabRecordII As OpenControl.GetUserTabRecordII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetUserTabRecordII As OpenControl.GetUserTabRecordII) + MyBase.New + Me.GetUserTabRecordII = GetUserTabRecordII + End Sub + End Class + + _ + Partial Public Class GetUserTabRecordIIResponse + + _ + Public GetUserTabRecordIIR As OpenControl.GetUserTabRecordIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetUserTabRecordIIR As OpenControl.GetUserTabRecordIIR) + MyBase.New + Me.GetUserTabRecordIIR = GetUserTabRecordIIR + End Sub + End Class + + ''' + _ + Partial Public Class SetUserTabRecordII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private recordNumField As UInteger + + Private recordBuffField As USERTABLEII + + ''' + _ + Public Property RecordNum() As UInteger + Get + Return Me.recordNumField + End Get + Set + Me.recordNumField = value + Me.RaisePropertyChanged("RecordNum") + End Set + End Property + + ''' + _ + Public Property RecordBuff() As USERTABLEII + Get + Return Me.recordBuffField + End Get + Set + Me.recordBuffField = value + Me.RaisePropertyChanged("RecordBuff") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetUserTabRecordIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetUserTabRecordIIRequest + + _ + Public SetUserTabRecordII As OpenControl.SetUserTabRecordII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetUserTabRecordII As OpenControl.SetUserTabRecordII) + MyBase.New + Me.SetUserTabRecordII = SetUserTabRecordII + End Sub + End Class + + _ + Partial Public Class SetUserTabRecordIIResponse + + _ + Public SetUserTabRecordIIR As OpenControl.SetUserTabRecordIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetUserTabRecordIIR As OpenControl.SetUserTabRecordIIR) + MyBase.New + Me.SetUserTabRecordIIR = SetUserTabRecordIIR + End Sub + End Class + + ''' + _ + Partial Public Class SaveTables + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private localDirField As String + + ''' + _ + Public Property LocalDir() As String + Get + Return Me.localDirField + End Get + Set + Me.localDirField = value + Me.RaisePropertyChanged("LocalDir") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SaveTablesR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SaveTablesRequest + + _ + Public SaveTables As OpenControl.SaveTables + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SaveTables As OpenControl.SaveTables) + MyBase.New + Me.SaveTables = SaveTables + End Sub + End Class + + _ + Partial Public Class SaveTablesResponse + + _ + Public SaveTablesR As OpenControl.SaveTablesR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SaveTablesR As OpenControl.SaveTablesR) + MyBase.New + Me.SaveTablesR = SaveTablesR + End Sub + End Class + + ''' + _ + Partial Public Class RestoreSingleTable + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private localDirField As String + + Private tableTypeField As TABLETYPEII + + ''' + _ + Public Property LocalDir() As String + Get + Return Me.localDirField + End Get + Set + Me.localDirField = value + Me.RaisePropertyChanged("LocalDir") + End Set + End Property + + ''' + _ + Public Property TableType() As TABLETYPEII + Get + Return Me.tableTypeField + End Get + Set + Me.tableTypeField = value + Me.RaisePropertyChanged("TableType") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Public Enum TABLETYPEII + + ''' + _ + TabTypeTools + + ''' + _ + TabTypeOffsets + + ''' + _ + TabTypeOrigins + + ''' + _ + TabTypeUser + End Enum + + ''' + _ + Partial Public Class RestoreSingleTableR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class RestoreSingleTableRequest + + _ + Public RestoreSingleTable As OpenControl.RestoreSingleTable + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal RestoreSingleTable As OpenControl.RestoreSingleTable) + MyBase.New + Me.RestoreSingleTable = RestoreSingleTable + End Sub + End Class + + _ + Partial Public Class RestoreSingleTableResponse + + _ + Public RestoreSingleTableR As OpenControl.RestoreSingleTableR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal RestoreSingleTableR As OpenControl.RestoreSingleTableR) + MyBase.New + Me.RestoreSingleTableR = RestoreSingleTableR + End Sub + End Class + + ''' + _ + Partial Public Class SaveSingleTable + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private localDirField As String + + Private tableTypeField As TABLETYPEII + + ''' + _ + Public Property LocalDir() As String + Get + Return Me.localDirField + End Get + Set + Me.localDirField = value + Me.RaisePropertyChanged("LocalDir") + End Set + End Property + + ''' + _ + Public Property TableType() As TABLETYPEII + Get + Return Me.tableTypeField + End Get + Set + Me.tableTypeField = value + Me.RaisePropertyChanged("TableType") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SaveSingleTableR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SaveSingleTableRequest + + _ + Public SaveSingleTable As OpenControl.SaveSingleTable + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SaveSingleTable As OpenControl.SaveSingleTable) + MyBase.New + Me.SaveSingleTable = SaveSingleTable + End Sub + End Class + + _ + Partial Public Class SaveSingleTableResponse + + _ + Public SaveSingleTableR As OpenControl.SaveSingleTableR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SaveSingleTableR As OpenControl.SaveSingleTableR) + MyBase.New + Me.SaveSingleTableR = SaveSingleTableR + End Sub + End Class + + ''' + _ + Partial Public Class SaveBackupMemory + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private fileNameField As String + + ''' + _ + Public Property FileName() As String + Get + Return Me.fileNameField + End Get + Set + Me.fileNameField = value + Me.RaisePropertyChanged("FileName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SaveBackupMemoryR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SaveBackupMemoryRequest + + _ + Public SaveBackupMemory As OpenControl.SaveBackupMemory + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SaveBackupMemory As OpenControl.SaveBackupMemory) + MyBase.New + Me.SaveBackupMemory = SaveBackupMemory + End Sub + End Class + + _ + Partial Public Class SaveBackupMemoryResponse + + _ + Public SaveBackupMemoryR As OpenControl.SaveBackupMemoryR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SaveBackupMemoryR As OpenControl.SaveBackupMemoryR) + MyBase.New + Me.SaveBackupMemoryR = SaveBackupMemoryR + End Sub + End Class + + ''' + _ + Partial Public Class RestoreBackupMemory + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private fileNameField As String + + Private restoreMaskField As UInteger + + ''' + _ + Public Property FileName() As String + Get + Return Me.fileNameField + End Get + Set + Me.fileNameField = value + Me.RaisePropertyChanged("FileName") + End Set + End Property + + ''' + _ + Public Property RestoreMask() As UInteger + Get + Return Me.restoreMaskField + End Get + Set + Me.restoreMaskField = value + Me.RaisePropertyChanged("RestoreMask") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class RestoreBackupMemoryR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class RestoreBackupMemoryRequest + + _ + Public RestoreBackupMemory As OpenControl.RestoreBackupMemory + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal RestoreBackupMemory As OpenControl.RestoreBackupMemory) + MyBase.New + Me.RestoreBackupMemory = RestoreBackupMemory + End Sub + End Class + + _ + Partial Public Class RestoreBackupMemoryResponse + + _ + Public RestoreBackupMemoryR As OpenControl.RestoreBackupMemoryR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal RestoreBackupMemoryR As OpenControl.RestoreBackupMemoryR) + MyBase.New + Me.RestoreBackupMemoryR = RestoreBackupMemoryR + End Sub + End Class + + ''' + _ + Partial Public Class Cycle + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private cmdField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Cmd() As UShort + Get + Return Me.cmdField + End Get + Set + Me.cmdField = value + Me.RaisePropertyChanged("Cmd") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class CycleR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class CycleRequest + + _ + Public Cycle As OpenControl.Cycle + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal Cycle As OpenControl.Cycle) + MyBase.New + Me.Cycle = Cycle + End Sub + End Class + + _ + Partial Public Class CycleResponse + + _ + Public CycleR As OpenControl.CycleR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal CycleR As OpenControl.CycleR) + MyBase.New + Me.CycleR = CycleR + End Sub + End Class + + ''' + _ + Partial Public Class SyncroCycle + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SyncroCycleR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SyncroCycleRequest + + _ + Public SyncroCycle As OpenControl.SyncroCycle + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SyncroCycle As OpenControl.SyncroCycle) + MyBase.New + Me.SyncroCycle = SyncroCycle + End Sub + End Class + + _ + Partial Public Class SyncroCycleResponse + + _ + Public SyncroCycleR As OpenControl.SyncroCycleR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SyncroCycleR As OpenControl.SyncroCycleR) + MyBase.New + Me.SyncroCycleR = SyncroCycleR + End Sub + End Class + + ''' + _ + Partial Public Class Reset + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ResetR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ResetRequest + + _ + Public Reset As OpenControl.Reset + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal Reset As OpenControl.Reset) + MyBase.New + Me.Reset = Reset + End Sub + End Class + + _ + Partial Public Class ResetResponse + + _ + Public ResetR As OpenControl.ResetR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ResetR As OpenControl.ResetR) + MyBase.New + Me.ResetR = ResetR + End Sub + End Class + + ''' + _ + Partial Public Class Hold + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private cmdField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Cmd() As UShort + Get + Return Me.cmdField + End Get + Set + Me.cmdField = value + Me.RaisePropertyChanged("Cmd") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class HoldR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class HoldRequest + + _ + Public Hold As OpenControl.Hold + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal Hold As OpenControl.Hold) + MyBase.New + Me.Hold = Hold + End Sub + End Class + + _ + Partial Public Class HoldResponse + + _ + Public HoldR As OpenControl.HoldR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal HoldR As OpenControl.HoldR) + MyBase.New + Me.HoldR = HoldR + End Sub + End Class + + ''' + _ + Partial Public Class SetFeedManOver + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private feedManOverField As UShort + + Private directionField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property FeedManOver() As UShort + Get + Return Me.feedManOverField + End Get + Set + Me.feedManOverField = value + Me.RaisePropertyChanged("FeedManOver") + End Set + End Property + + ''' + _ + Public Property Direction() As UShort + Get + Return Me.directionField + End Get + Set + Me.directionField = value + Me.RaisePropertyChanged("Direction") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetFeedManOverR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetFeedManOverRequest + + _ + Public SetFeedManOver As OpenControl.SetFeedManOver + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetFeedManOver As OpenControl.SetFeedManOver) + MyBase.New + Me.SetFeedManOver = SetFeedManOver + End Sub + End Class + + _ + Partial Public Class SetFeedManOverResponse + + _ + Public SetFeedManOverR As OpenControl.SetFeedManOverR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetFeedManOverR As OpenControl.SetFeedManOverR) + MyBase.New + Me.SetFeedManOverR = SetFeedManOverR + End Sub + End Class + + ''' + _ + Partial Public Class SetFeedRateOver + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private feedRateOverField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property FeedRateOver() As UShort + Get + Return Me.feedRateOverField + End Get + Set + Me.feedRateOverField = value + Me.RaisePropertyChanged("FeedRateOver") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetFeedRateOverR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetFeedRateOverRequest + + _ + Public SetFeedRateOver As OpenControl.SetFeedRateOver + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetFeedRateOver As OpenControl.SetFeedRateOver) + MyBase.New + Me.SetFeedRateOver = SetFeedRateOver + End Sub + End Class + + _ + Partial Public Class SetFeedRateOverResponse + + _ + Public SetFeedRateOverR As OpenControl.SetFeedRateOverR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetFeedRateOverR As OpenControl.SetFeedRateOverR) + MyBase.New + Me.SetFeedRateOverR = SetFeedRateOverR + End Sub + End Class + + ''' + _ + Partial Public Class SetFeedRapidOver + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private feedRapidOverField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property FeedRapidOver() As UShort + Get + Return Me.feedRapidOverField + End Get + Set + Me.feedRapidOverField = value + Me.RaisePropertyChanged("FeedRapidOver") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetFeedRapidOverR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetFeedRapidOverRequest + + _ + Public SetFeedRapidOver As OpenControl.SetFeedRapidOver + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetFeedRapidOver As OpenControl.SetFeedRapidOver) + MyBase.New + Me.SetFeedRapidOver = SetFeedRapidOver + End Sub + End Class + + _ + Partial Public Class SetFeedRapidOverResponse + + _ + Public SetFeedRapidOverR As OpenControl.SetFeedRapidOverR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetFeedRapidOverR As OpenControl.SetFeedRapidOverR) + MyBase.New + Me.SetFeedRapidOverR = SetFeedRapidOverR + End Sub + End Class + + ''' + _ + Partial Public Class SetSpeedRateOver + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private speedRateOverField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property SpeedRateOver() As UShort + Get + Return Me.speedRateOverField + End Get + Set + Me.speedRateOverField = value + Me.RaisePropertyChanged("SpeedRateOver") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetSpeedRateOverR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetSpeedRateOverRequest + + _ + Public SetSpeedRateOver As OpenControl.SetSpeedRateOver + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetSpeedRateOver As OpenControl.SetSpeedRateOver) + MyBase.New + Me.SetSpeedRateOver = SetSpeedRateOver + End Sub + End Class + + _ + Partial Public Class SetSpeedRateOverResponse + + _ + Public SetSpeedRateOverR As OpenControl.SetSpeedRateOverR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetSpeedRateOverR As OpenControl.SetSpeedRateOverR) + MyBase.New + Me.SetSpeedRateOverR = SetSpeedRateOverR + End Sub + End Class + + ''' + _ + Partial Public Class SetManMovDirection + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private directionField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Direction() As UShort + Get + Return Me.directionField + End Get + Set + Me.directionField = value + Me.RaisePropertyChanged("Direction") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetManMovDirectionR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetManMovDirectionRequest + + _ + Public SetManMovDirection As OpenControl.SetManMovDirection + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetManMovDirection As OpenControl.SetManMovDirection) + MyBase.New + Me.SetManMovDirection = SetManMovDirection + End Sub + End Class + + _ + Partial Public Class SetManMovDirectionResponse + + _ + Public SetManMovDirectionR As OpenControl.SetManMovDirectionR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetManMovDirectionR As OpenControl.SetManMovDirectionR) + MyBase.New + Me.SetManMovDirectionR = SetManMovDirectionR + End Sub + End Class + + ''' + _ + Partial Public Class GetVarJOG + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetVarJOGR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private valueField As Double + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Value() As Double + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetVarJOGRequest + + _ + Public GetVarJOG As OpenControl.GetVarJOG + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetVarJOG As OpenControl.GetVarJOG) + MyBase.New + Me.GetVarJOG = GetVarJOG + End Sub + End Class + + _ + Partial Public Class GetVarJOGResponse + + _ + Public GetVarJOGR As OpenControl.GetVarJOGR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetVarJOGR As OpenControl.GetVarJOGR) + MyBase.New + Me.GetVarJOGR = GetVarJOGR + End Sub + End Class + + ''' + _ + Partial Public Class SetVarJOG + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private valueField As Double + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Value() As Double + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetVarJOGR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetVarJOGRequest + + _ + Public SetVarJOG As OpenControl.SetVarJOG + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetVarJOG As OpenControl.SetVarJOG) + MyBase.New + Me.SetVarJOG = SetVarJOG + End Sub + End Class + + _ + Partial Public Class SetVarJOGResponse + + _ + Public SetVarJOGR As OpenControl.SetVarJOGR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetVarJOGR As OpenControl.SetVarJOGR) + MyBase.New + Me.SetVarJOGR = SetVarJOGR + End Sub + End Class + + ''' + _ + Partial Public Class SetVarUAS + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private modeField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Mode() As UShort + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetVarUASR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetVarUASRequest + + _ + Public SetVarUAS As OpenControl.SetVarUAS + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetVarUAS As OpenControl.SetVarUAS) + MyBase.New + Me.SetVarUAS = SetVarUAS + End Sub + End Class + + _ + Partial Public Class SetVarUASResponse + + _ + Public SetVarUASR As OpenControl.SetVarUASR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetVarUASR As OpenControl.SetVarUASR) + MyBase.New + Me.SetVarUASR = SetVarUASR + End Sub + End Class + + ''' + _ + Partial Public Class GetVarRCM + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetVarRCMR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private valueField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Value() As UShort + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetVarRCMRequest + + _ + Public GetVarRCM As OpenControl.GetVarRCM + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetVarRCM As OpenControl.GetVarRCM) + MyBase.New + Me.GetVarRCM = GetVarRCM + End Sub + End Class + + _ + Partial Public Class GetVarRCMResponse + + _ + Public GetVarRCMR As OpenControl.GetVarRCMR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetVarRCMR As OpenControl.GetVarRCMR) + MyBase.New + Me.GetVarRCMR = GetVarRCMR + End Sub + End Class + + ''' + _ + Partial Public Class SetVarRCM + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private modeField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Mode() As UShort + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetVarRCMR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetVarRCMRequest + + _ + Public SetVarRCM As OpenControl.SetVarRCM + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetVarRCM As OpenControl.SetVarRCM) + MyBase.New + Me.SetVarRCM = SetVarRCM + End Sub + End Class + + _ + Partial Public Class SetVarRCMResponse + + _ + Public SetVarRCMR As OpenControl.SetVarRCMR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetVarRCMR As OpenControl.SetVarRCMR) + MyBase.New + Me.SetVarRCMR = SetVarRCMR + End Sub + End Class + + ''' + _ + Partial Public Class GetProcVarWord + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private varTypeField As PROCWORDVARTYPE + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property VarType() As PROCWORDVARTYPE + Get + Return Me.varTypeField + End Get + Set + Me.varTypeField = value + Me.RaisePropertyChanged("VarType") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Public Enum PROCWORDVARTYPE + + ''' + _ + PROCWORDVARRCM + + ''' + _ + PROCWORDVARARM + + ''' + _ + PROCWORDVARDPS + + ''' + _ + PROCWORDVARRAP + + ''' + _ + PROCWORDVARTRP + + ''' + _ + PROCWORDVARVFF + + ''' + _ + PROCWORDVARUVR + + ''' + _ + PROCWORDVARDLA + + ''' + _ + PROCWORDVARMBR + + ''' + _ + PROCWORDVARURL + + ''' + _ + PROCWORDVARDSB + + ''' + _ + PROCWORDVARUSO + + ''' + _ + PROCWORDVARERR + + ''' + _ + PROCWORDVARHMP + + ''' + _ + PROCWORDVARUAS + + ''' + _ + PROCWORDVARMBA + + ''' + _ + PROCWORDVARREM + End Enum + + ''' + _ + Partial Public Class GetProcVarWordR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private valueField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Value() As UShort + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetProcVarWordRequest + + _ + Public GetProcVarWord As OpenControl.GetProcVarWord + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcVarWord As OpenControl.GetProcVarWord) + MyBase.New + Me.GetProcVarWord = GetProcVarWord + End Sub + End Class + + _ + Partial Public Class GetProcVarWordResponse + + _ + Public GetProcVarWordR As OpenControl.GetProcVarWordR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcVarWordR As OpenControl.GetProcVarWordR) + MyBase.New + Me.GetProcVarWordR = GetProcVarWordR + End Sub + End Class + + ''' + _ + Partial Public Class SetProcVarWord + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private varTypeField As PROCWORDVARTYPE + + Private valueField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property VarType() As PROCWORDVARTYPE + Get + Return Me.varTypeField + End Get + Set + Me.varTypeField = value + Me.RaisePropertyChanged("VarType") + End Set + End Property + + ''' + _ + Public Property Value() As UShort + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetProcVarWordR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetProcVarWordRequest + + _ + Public SetProcVarWord As OpenControl.SetProcVarWord + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetProcVarWord As OpenControl.SetProcVarWord) + MyBase.New + Me.SetProcVarWord = SetProcVarWord + End Sub + End Class + + _ + Partial Public Class SetProcVarWordResponse + + _ + Public SetProcVarWordR As OpenControl.SetProcVarWordR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetProcVarWordR As OpenControl.SetProcVarWordR) + MyBase.New + Me.SetProcVarWordR = SetProcVarWordR + End Sub + End Class + + ''' + _ + Partial Public Class GetProcVarDouble + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private varTypeField As PROCDOUBLEVARTYPE + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property VarType() As PROCDOUBLEVARTYPE + Get + Return Me.varTypeField + End Get + Set + Me.varTypeField = value + Me.RaisePropertyChanged("VarType") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Public Enum PROCDOUBLEVARTYPE + + ''' + _ + PROCDOUBLEVARURP + + ''' + _ + PROCDOUBLEVARDWT + + ''' + _ + PROCDOUBLEVARJOG + + ''' + _ + PROCDOUBLEVARMDA + + ''' + _ + PROCDOUBLEVARMSA + + ''' + _ + PROCDOUBLEVARSSL + + ''' + _ + PROCDOUBLEVARVEF + + ''' + _ + PROCDOUBLEVARUPO + + ''' + _ + PROCDOUBLEVARUPA + + ''' + _ + PROCDOUBLEVARCET + + ''' + _ + PROCDOUBLEVARFCT + + ''' + _ + PROCDOUBLEVARMBRLEN + + ''' + _ + PROCDOUBLEVARMBRTHR + End Enum + + ''' + _ + Partial Public Class GetProcVarDoubleR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private valueField As Double + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Value() As Double + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetProcVarDoubleRequest + + _ + Public GetProcVarDouble As OpenControl.GetProcVarDouble + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcVarDouble As OpenControl.GetProcVarDouble) + MyBase.New + Me.GetProcVarDouble = GetProcVarDouble + End Sub + End Class + + _ + Partial Public Class GetProcVarDoubleResponse + + _ + Public GetProcVarDoubleR As OpenControl.GetProcVarDoubleR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcVarDoubleR As OpenControl.GetProcVarDoubleR) + MyBase.New + Me.GetProcVarDoubleR = GetProcVarDoubleR + End Sub + End Class + + ''' + _ + Partial Public Class SetProcVarDouble + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private varTypeField As PROCDOUBLEVARTYPE + + Private valueField As Double + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property VarType() As PROCDOUBLEVARTYPE + Get + Return Me.varTypeField + End Get + Set + Me.varTypeField = value + Me.RaisePropertyChanged("VarType") + End Set + End Property + + ''' + _ + Public Property Value() As Double + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetProcVarDoubleR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetProcVarDoubleRequest + + _ + Public SetProcVarDouble As OpenControl.SetProcVarDouble + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetProcVarDouble As OpenControl.SetProcVarDouble) + MyBase.New + Me.SetProcVarDouble = SetProcVarDouble + End Sub + End Class + + _ + Partial Public Class SetProcVarDoubleResponse + + _ + Public SetProcVarDoubleR As OpenControl.SetProcVarDoubleR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetProcVarDoubleR As OpenControl.SetProcVarDoubleR) + MyBase.New + Me.SetProcVarDoubleR = SetProcVarDoubleR + End Sub + End Class + + ''' + _ + Partial Public Class SetMdiString + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private mdiStringField As String + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property MdiString() As String + Get + Return Me.mdiStringField + End Get + Set + Me.mdiStringField = value + Me.RaisePropertyChanged("MdiString") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetMdiStringR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetMdiStringRequest + + _ + Public SetMdiString As OpenControl.SetMdiString + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetMdiString As OpenControl.SetMdiString) + MyBase.New + Me.SetMdiString = SetMdiString + End Sub + End Class + + _ + Partial Public Class SetMdiStringResponse + + _ + Public SetMdiStringR As OpenControl.SetMdiStringR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetMdiStringR As OpenControl.SetMdiStringR) + MyBase.New + Me.SetMdiStringR = SetMdiStringR + End Sub + End Class + + ''' + _ + Partial Public Class SetProcessMode + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private modeField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Mode() As UShort + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetProcessModeR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetProcessModeRequest + + _ + Public SetProcessMode As OpenControl.SetProcessMode + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetProcessMode As OpenControl.SetProcessMode) + MyBase.New + Me.SetProcessMode = SetProcessMode + End Sub + End Class + + _ + Partial Public Class SetProcessModeResponse + + _ + Public SetProcessModeR As OpenControl.SetProcessModeR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetProcessModeR As OpenControl.SetProcessModeR) + MyBase.New + Me.SetProcessModeR = SetProcessModeR + End Sub + End Class + + ''' + _ + Partial Public Class SelectProcess + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SelectProcessR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SelectProcessRequest + + _ + Public SelectProcess As OpenControl.SelectProcess + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SelectProcess As OpenControl.SelectProcess) + MyBase.New + Me.SelectProcess = SelectProcess + End Sub + End Class + + _ + Partial Public Class SelectProcessResponse + + _ + Public SelectProcessR As OpenControl.SelectProcessR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SelectProcessR As OpenControl.SelectProcessR) + MyBase.New + Me.SelectProcessR = SelectProcessR + End Sub + End Class + + ''' + _ + Partial Public Class GetSelectedProcess + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetSelectedProcessR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private procNumField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetSelectedProcessRequest + + _ + Public GetSelectedProcess As OpenControl.GetSelectedProcess + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetSelectedProcess As OpenControl.GetSelectedProcess) + MyBase.New + Me.GetSelectedProcess = GetSelectedProcess + End Sub + End Class + + _ + Partial Public Class GetSelectedProcessResponse + + _ + Public GetSelectedProcessR As OpenControl.GetSelectedProcessR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetSelectedProcessR As OpenControl.GetSelectedProcessR) + MyBase.New + Me.GetSelectedProcessR = GetSelectedProcessR + End Sub + End Class + + ''' + _ + Partial Public Class SelectProcAxis + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private axisNameField As Byte + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property AxisName() As Byte + Get + Return Me.axisNameField + End Get + Set + Me.axisNameField = value + Me.RaisePropertyChanged("AxisName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SelectProcAxisR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SelectProcAxisRequest + + _ + Public SelectProcAxis As OpenControl.SelectProcAxis + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SelectProcAxis As OpenControl.SelectProcAxis) + MyBase.New + Me.SelectProcAxis = SelectProcAxis + End Sub + End Class + + _ + Partial Public Class SelectProcAxisResponse + + _ + Public SelectProcAxisR As OpenControl.SelectProcAxisR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SelectProcAxisR As OpenControl.SelectProcAxisR) + MyBase.New + Me.SelectProcAxisR = SelectProcAxisR + End Sub + End Class + + ''' + _ + Partial Public Class SelectPartProgram + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private pPNameField As String + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property PPName() As String + Get + Return Me.pPNameField + End Get + Set + Me.pPNameField = value + Me.RaisePropertyChanged("PPName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SelectPartProgramR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SelectPartProgramRequest + + _ + Public SelectPartProgram As OpenControl.SelectPartProgram + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SelectPartProgram As OpenControl.SelectPartProgram) + MyBase.New + Me.SelectPartProgram = SelectPartProgram + End Sub + End Class + + _ + Partial Public Class SelectPartProgramResponse + + _ + Public SelectPartProgramR As OpenControl.SelectPartProgramR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SelectPartProgramR As OpenControl.SelectPartProgramR) + MyBase.New + Me.SelectPartProgramR = SelectPartProgramR + End Sub + End Class + + ''' + _ + Partial Public Class SelectPartProgramFromDrive + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private pPNameField As String + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property PPName() As String + Get + Return Me.pPNameField + End Get + Set + Me.pPNameField = value + Me.RaisePropertyChanged("PPName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SelectPartProgramFromDriveR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SelectPartProgramFromDriveRequest + + _ + Public SelectPartProgramFromDrive As OpenControl.SelectPartProgramFromDrive + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SelectPartProgramFromDrive As OpenControl.SelectPartProgramFromDrive) + MyBase.New + Me.SelectPartProgramFromDrive = SelectPartProgramFromDrive + End Sub + End Class + + _ + Partial Public Class SelectPartProgramFromDriveResponse + + _ + Public SelectPartProgramFromDriveR As OpenControl.SelectPartProgramFromDriveR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SelectPartProgramFromDriveR As OpenControl.SelectPartProgramFromDriveR) + MyBase.New + Me.SelectPartProgramFromDriveR = SelectPartProgramFromDriveR + End Sub + End Class + + ''' + _ + Partial Public Class GetActivePartProgram + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetActivePartProgramR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private levelField As UShort + + Private mainField As String + + Private subField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Level() As UShort + Get + Return Me.levelField + End Get + Set + Me.levelField = value + Me.RaisePropertyChanged("Level") + End Set + End Property + + ''' + _ + Public Property Main() As String + Get + Return Me.mainField + End Get + Set + Me.mainField = value + Me.RaisePropertyChanged("Main") + End Set + End Property + + ''' + _ + Public Property [Sub]() As String + Get + Return Me.subField + End Get + Set + Me.subField = value + Me.RaisePropertyChanged("Sub") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetActivePartProgramRequest + + _ + Public GetActivePartProgram As OpenControl.GetActivePartProgram + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetActivePartProgram As OpenControl.GetActivePartProgram) + MyBase.New + Me.GetActivePartProgram = GetActivePartProgram + End Sub + End Class + + _ + Partial Public Class GetActivePartProgramResponse + + _ + Public GetActivePartProgramR As OpenControl.GetActivePartProgramR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetActivePartProgramR As OpenControl.GetActivePartProgramR) + MyBase.New + Me.GetActivePartProgramR = GetActivePartProgramR + End Sub + End Class + + ''' + _ + Partial Public Class GetPartProgramLines + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetPartProgramLinesR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private pPLine1Field As String + + Private pPLine2Field As String + + Private pPLine3Field As String + + Private pPLine4Field As String + + Private pPLine5Field As String + + Private pPLine6Field As String + + Private pPLine7Field As String + + Private pPLine8Field As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property PPLine1() As String + Get + Return Me.pPLine1Field + End Get + Set + Me.pPLine1Field = value + Me.RaisePropertyChanged("PPLine1") + End Set + End Property + + ''' + _ + Public Property PPLine2() As String + Get + Return Me.pPLine2Field + End Get + Set + Me.pPLine2Field = value + Me.RaisePropertyChanged("PPLine2") + End Set + End Property + + ''' + _ + Public Property PPLine3() As String + Get + Return Me.pPLine3Field + End Get + Set + Me.pPLine3Field = value + Me.RaisePropertyChanged("PPLine3") + End Set + End Property + + ''' + _ + Public Property PPLine4() As String + Get + Return Me.pPLine4Field + End Get + Set + Me.pPLine4Field = value + Me.RaisePropertyChanged("PPLine4") + End Set + End Property + + ''' + _ + Public Property PPLine5() As String + Get + Return Me.pPLine5Field + End Get + Set + Me.pPLine5Field = value + Me.RaisePropertyChanged("PPLine5") + End Set + End Property + + ''' + _ + Public Property PPLine6() As String + Get + Return Me.pPLine6Field + End Get + Set + Me.pPLine6Field = value + Me.RaisePropertyChanged("PPLine6") + End Set + End Property + + ''' + _ + Public Property PPLine7() As String + Get + Return Me.pPLine7Field + End Get + Set + Me.pPLine7Field = value + Me.RaisePropertyChanged("PPLine7") + End Set + End Property + + ''' + _ + Public Property PPLine8() As String + Get + Return Me.pPLine8Field + End Get + Set + Me.pPLine8Field = value + Me.RaisePropertyChanged("PPLine8") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetPartProgramLinesRequest + + _ + Public GetPartProgramLines As OpenControl.GetPartProgramLines + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetPartProgramLines As OpenControl.GetPartProgramLines) + MyBase.New + Me.GetPartProgramLines = GetPartProgramLines + End Sub + End Class + + _ + Partial Public Class GetPartProgramLinesResponse + + _ + Public GetPartProgramLinesR As OpenControl.GetPartProgramLinesR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetPartProgramLinesR As OpenControl.GetPartProgramLinesR) + MyBase.New + Me.GetPartProgramLinesR = GetPartProgramLinesR + End Sub + End Class + + ''' + _ + Partial Public Class GetAxOriginNum + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private axesNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property AxesNum() As UShort + Get + Return Me.axesNumField + End Get + Set + Me.axesNumField = value + Me.RaisePropertyChanged("AxesNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetAxOriginNumR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private axesNumField As UShort + + Private axOriginNumField() As AXORIGNUM + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property AxesNum() As UShort + Get + Return Me.axesNumField + End Get + Set + Me.axesNumField = value + Me.RaisePropertyChanged("AxesNum") + End Set + End Property + + ''' + _ + Public Property AxOriginNum() As AXORIGNUM() + Get + Return Me.axOriginNumField + End Get + Set + Me.axOriginNumField = value + Me.RaisePropertyChanged("AxOriginNum") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetAxOriginNumRequest + + _ + Public GetAxOriginNum As OpenControl.GetAxOriginNum + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetAxOriginNum As OpenControl.GetAxOriginNum) + MyBase.New + Me.GetAxOriginNum = GetAxOriginNum + End Sub + End Class + + _ + Partial Public Class GetAxOriginNumResponse + + _ + Public GetAxOriginNumR As OpenControl.GetAxOriginNumR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetAxOriginNumR As OpenControl.GetAxOriginNumR) + MyBase.New + Me.GetAxOriginNumR = GetAxOriginNumR + End Sub + End Class + + ''' + _ + Partial Public Class GetAxesPosition + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private axisNameField As Byte + + Private selectField As UShort + + Private numAxisField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property AxisName() As Byte + Get + Return Me.axisNameField + End Get + Set + Me.axisNameField = value + Me.RaisePropertyChanged("AxisName") + End Set + End Property + + ''' + _ + Public Property [Select]() As UShort + Get + Return Me.selectField + End Get + Set + Me.selectField = value + Me.RaisePropertyChanged("Select") + End Set + End Property + + ''' + _ + Public Property NumAxis() As UShort + Get + Return Me.numAxisField + End Get + Set + Me.numAxisField = value + Me.RaisePropertyChanged("NumAxis") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetAxesPositionR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private numAxisField As UShort + + Private intPosField() As GETINTDATA + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property NumAxis() As UShort + Get + Return Me.numAxisField + End Get + Set + Me.numAxisField = value + Me.RaisePropertyChanged("NumAxis") + End Set + End Property + + ''' + _ + Public Property IntPos() As GETINTDATA() + Get + Return Me.intPosField + End Get + Set + Me.intPosField = value + Me.RaisePropertyChanged("IntPos") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetAxesPositionRequest + + _ + Public GetAxesPosition As OpenControl.GetAxesPosition + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetAxesPosition As OpenControl.GetAxesPosition) + MyBase.New + Me.GetAxesPosition = GetAxesPosition + End Sub + End Class + + _ + Partial Public Class GetAxesPositionResponse + + _ + Public GetAxesPositionR As OpenControl.GetAxesPositionR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetAxesPositionR As OpenControl.GetAxesPositionR) + MyBase.New + Me.GetAxesPositionR = GetAxesPositionR + End Sub + End Class + + ''' + _ + Partial Public Class GetNcInfo1 + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetNcInfo1R + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private getInfoField As GETINFO1DATA + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property GetInfo() As GETINFO1DATA + Get + Return Me.getInfoField + End Get + Set + Me.getInfoField = value + Me.RaisePropertyChanged("GetInfo") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetNcInfo1Request + + _ + Public GetNcInfo1 As OpenControl.GetNcInfo1 + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetNcInfo1 As OpenControl.GetNcInfo1) + MyBase.New + Me.GetNcInfo1 = GetNcInfo1 + End Sub + End Class + + _ + Partial Public Class GetNcInfo1Response + + _ + Public GetNcInfo1R As OpenControl.GetNcInfo1R + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetNcInfo1R As OpenControl.GetNcInfo1R) + MyBase.New + Me.GetNcInfo1R = GetNcInfo1R + End Sub + End Class + + ''' + _ + Partial Public Class GetNcInfo2 + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetNcInfo2R + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private getInfoField As GETINFO2DATA + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property GetInfo() As GETINFO2DATA + Get + Return Me.getInfoField + End Get + Set + Me.getInfoField = value + Me.RaisePropertyChanged("GetInfo") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetNcInfo2Request + + _ + Public GetNcInfo2 As OpenControl.GetNcInfo2 + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetNcInfo2 As OpenControl.GetNcInfo2) + MyBase.New + Me.GetNcInfo2 = GetNcInfo2 + End Sub + End Class + + _ + Partial Public Class GetNcInfo2Response + + _ + Public GetNcInfo2R As OpenControl.GetNcInfo2R + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetNcInfo2R As OpenControl.GetNcInfo2R) + MyBase.New + Me.GetNcInfo2R = GetNcInfo2R + End Sub + End Class + + ''' + _ + Partial Public Class GetToolNames + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetToolNamesR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private toolField As String + + Private progToolField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Tool() As String + Get + Return Me.toolField + End Get + Set + Me.toolField = value + Me.RaisePropertyChanged("Tool") + End Set + End Property + + ''' + _ + Public Property ProgTool() As String + Get + Return Me.progToolField + End Get + Set + Me.progToolField = value + Me.RaisePropertyChanged("ProgTool") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetToolNamesRequest + + _ + Public GetToolNames As OpenControl.GetToolNames + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetToolNames As OpenControl.GetToolNames) + MyBase.New + Me.GetToolNames = GetToolNames + End Sub + End Class + + _ + Partial Public Class GetToolNamesResponse + + _ + Public GetToolNamesR As OpenControl.GetToolNamesR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetToolNamesR As OpenControl.GetToolNamesR) + MyBase.New + Me.GetToolNamesR = GetToolNamesR + End Sub + End Class + + ''' + _ + Partial Public Class GetProcessStatus + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetProcessStatusR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private procStatField As PROCDATA + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ProcStat() As PROCDATA + Get + Return Me.procStatField + End Get + Set + Me.procStatField = value + Me.RaisePropertyChanged("ProcStat") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetProcessStatusRequest + + _ + Public GetProcessStatus As OpenControl.GetProcessStatus + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcessStatus As OpenControl.GetProcessStatus) + MyBase.New + Me.GetProcessStatus = GetProcessStatus + End Sub + End Class + + _ + Partial Public Class GetProcessStatusResponse + + _ + Public GetProcessStatusR As OpenControl.GetProcessStatusR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcessStatusR As OpenControl.GetProcessStatusR) + MyBase.New + Me.GetProcessStatusR = GetProcessStatusR + End Sub + End Class + + ''' + _ + Partial Public Class GetBlkNum + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetBlkNumR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private getBlkNumField As GETBLKNUMDATA + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property GetBlkNum() As GETBLKNUMDATA + Get + Return Me.getBlkNumField + End Get + Set + Me.getBlkNumField = value + Me.RaisePropertyChanged("GetBlkNum") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetBlkNumRequest + + _ + Public GetBlkNum As OpenControl.GetBlkNum + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetBlkNum As OpenControl.GetBlkNum) + MyBase.New + Me.GetBlkNum = GetBlkNum + End Sub + End Class + + _ + Partial Public Class GetBlkNumResponse + + _ + Public GetBlkNumR As OpenControl.GetBlkNumR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetBlkNumR As OpenControl.GetBlkNumR) + MyBase.New + Me.GetBlkNumR = GetBlkNumR + End Sub + End Class + + ''' + _ + Partial Public Class ReadErrMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadErrMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private sysErrMsgField As ERRMSG + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property SysErrMsg() As ERRMSG + Get + Return Me.sysErrMsgField + End Get + Set + Me.sysErrMsgField = value + Me.RaisePropertyChanged("SysErrMsg") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadErrMsgRequest + + _ + Public ReadErrMsg As OpenControl.ReadErrMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadErrMsg As OpenControl.ReadErrMsg) + MyBase.New + Me.ReadErrMsg = ReadErrMsg + End Sub + End Class + + _ + Partial Public Class ReadErrMsgResponse + + _ + Public ReadErrMsgR As OpenControl.ReadErrMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadErrMsgR As OpenControl.ReadErrMsgR) + MyBase.New + Me.ReadErrMsgR = ReadErrMsgR + End Sub + End Class + + ''' + _ + Partial Public Class ReadPartProgramMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadPartProgramMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private partProgramMsgField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property PartProgramMsg() As String + Get + Return Me.partProgramMsgField + End Get + Set + Me.partProgramMsgField = value + Me.RaisePropertyChanged("PartProgramMsg") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadPartProgramMsgRequest + + _ + Public ReadPartProgramMsg As OpenControl.ReadPartProgramMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadPartProgramMsg As OpenControl.ReadPartProgramMsg) + MyBase.New + Me.ReadPartProgramMsg = ReadPartProgramMsg + End Sub + End Class + + _ + Partial Public Class ReadPartProgramMsgResponse + + _ + Public ReadPartProgramMsgR As OpenControl.ReadPartProgramMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadPartProgramMsgR As OpenControl.ReadPartProgramMsgR) + MyBase.New + Me.ReadPartProgramMsgR = ReadPartProgramMsgR + End Sub + End Class + + ''' + _ + Partial Public Class GetGCode + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetGCodeR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private gCodeField() As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property GCode() As UShort() + Get + Return Me.gCodeField + End Get + Set + Me.gCodeField = value + Me.RaisePropertyChanged("GCode") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetGCodeRequest + + _ + Public GetGCode As OpenControl.GetGCode + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetGCode As OpenControl.GetGCode) + MyBase.New + Me.GetGCode = GetGCode + End Sub + End Class + + _ + Partial Public Class GetGCodeResponse + + _ + Public GetGCodeR As OpenControl.GetGCodeR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetGCodeR As OpenControl.GetGCodeR) + MyBase.New + Me.GetGCodeR = GetGCodeR + End Sub + End Class + + ''' + _ + Partial Public Class GetMCode + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetMCodeR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private mCodeField() As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property MCode() As UShort() + Get + Return Me.mCodeField + End Get + Set + Me.mCodeField = value + Me.RaisePropertyChanged("MCode") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetMCodeRequest + + _ + Public GetMCode As OpenControl.GetMCode + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetMCode As OpenControl.GetMCode) + MyBase.New + Me.GetMCode = GetMCode + End Sub + End Class + + _ + Partial Public Class GetMCodeResponse + + _ + Public GetMCodeR As OpenControl.GetMCodeR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetMCodeR As OpenControl.GetMCodeR) + MyBase.New + Me.GetMCodeR = GetMCodeR + End Sub + End Class + + ''' + _ + Partial Public Class SkipPProgBlock + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private numOfBlocksField As UInteger + + Private directionField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property NumOfBlocks() As UInteger + Get + Return Me.numOfBlocksField + End Get + Set + Me.numOfBlocksField = value + Me.RaisePropertyChanged("NumOfBlocks") + End Set + End Property + + ''' + _ + Public Property Direction() As UShort + Get + Return Me.directionField + End Get + Set + Me.directionField = value + Me.RaisePropertyChanged("Direction") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SkipPProgBlockR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SkipPProgBlockRequest + + _ + Public SkipPProgBlock As OpenControl.SkipPProgBlock + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SkipPProgBlock As OpenControl.SkipPProgBlock) + MyBase.New + Me.SkipPProgBlock = SkipPProgBlock + End Sub + End Class + + _ + Partial Public Class SkipPProgBlockResponse + + _ + Public SkipPProgBlockR As OpenControl.SkipPProgBlockR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SkipPProgBlockR As OpenControl.SkipPProgBlockR) + MyBase.New + Me.SkipPProgBlockR = SkipPProgBlockR + End Sub + End Class + + ''' + _ + Partial Public Class Ese + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private blockNumField As UInteger + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property BlockNum() As UInteger + Get + Return Me.blockNumField + End Get + Set + Me.blockNumField = value + Me.RaisePropertyChanged("BlockNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class EseR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class EseRequest + + _ + Public Ese As OpenControl.Ese + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal Ese As OpenControl.Ese) + MyBase.New + Me.Ese = Ese + End Sub + End Class + + _ + Partial Public Class EseResponse + + _ + Public EseR As OpenControl.EseR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal EseR As OpenControl.EseR) + MyBase.New + Me.EseR = EseR + End Sub + End Class + + ''' + _ + Partial Public Class EseEx + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private modeField As RCMTOMODE + + Private maskField As UInteger + + Private blockNumField As UInteger + + Private lineNumField As UInteger + + Private brkValField As UInteger + + Private labelField As String + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Mode() As RCMTOMODE + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + ''' + _ + Public Property Mask() As UInteger + Get + Return Me.maskField + End Get + Set + Me.maskField = value + Me.RaisePropertyChanged("Mask") + End Set + End Property + + ''' + _ + Public Property BlockNum() As UInteger + Get + Return Me.blockNumField + End Get + Set + Me.blockNumField = value + Me.RaisePropertyChanged("BlockNum") + End Set + End Property + + ''' + _ + Public Property LineNum() As UInteger + Get + Return Me.lineNumField + End Get + Set + Me.lineNumField = value + Me.RaisePropertyChanged("LineNum") + End Set + End Property + + ''' + _ + Public Property BrkVal() As UInteger + Get + Return Me.brkValField + End Get + Set + Me.brkValField = value + Me.RaisePropertyChanged("BrkVal") + End Set + End Property + + ''' + _ + Public Property Label() As String + Get + Return Me.labelField + End Get + Set + Me.labelField = value + Me.RaisePropertyChanged("Label") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Public Enum RCMTOMODE + + ''' + _ + RCMTOTO + + ''' + _ + RCMTONEXT + End Enum + + ''' + _ + Partial Public Class EseExR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class EseExRequest + + _ + Public EseEx As OpenControl.EseEx + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal EseEx As OpenControl.EseEx) + MyBase.New + Me.EseEx = EseEx + End Sub + End Class + + _ + Partial Public Class EseExResponse + + _ + Public EseExR As OpenControl.EseExR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal EseExR As OpenControl.EseExR) + MyBase.New + Me.EseExR = EseExR + End Sub + End Class + + ''' + _ + Partial Public Class Exe + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private funcField As UShort + + Private modeField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Func() As UShort + Get + Return Me.funcField + End Get + Set + Me.funcField = value + Me.RaisePropertyChanged("Func") + End Set + End Property + + ''' + _ + Public Property Mode() As UShort + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ExeR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ExeRequest + + _ + Public Exe As OpenControl.Exe + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal Exe As OpenControl.Exe) + MyBase.New + Me.Exe = Exe + End Sub + End Class + + _ + Partial Public Class ExeResponse + + _ + Public ExeR As OpenControl.ExeR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ExeR As OpenControl.ExeR) + MyBase.New + Me.ExeR = ExeR + End Sub + End Class + + ''' + _ + Partial Public Class AxesRef + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private numAxField As UShort + + Private axisNameField As String + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property NumAx() As UShort + Get + Return Me.numAxField + End Get + Set + Me.numAxField = value + Me.RaisePropertyChanged("NumAx") + End Set + End Property + + ''' + _ + Public Property AxisName() As String + Get + Return Me.axisNameField + End Get + Set + Me.axisNameField = value + Me.RaisePropertyChanged("AxisName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class AxesRefR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class AxesRefRequest + + _ + Public AxesRef As OpenControl.AxesRef + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal AxesRef As OpenControl.AxesRef) + MyBase.New + Me.AxesRef = AxesRef + End Sub + End Class + + _ + Partial Public Class AxesRefResponse + + _ + Public AxesRefR As OpenControl.AxesRefR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal AxesRefR As OpenControl.AxesRefR) + MyBase.New + Me.AxesRefR = AxesRefR + End Sub + End Class + + ''' + _ + Partial Public Class DncInit + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private pathNameField As String + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class DncInitR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class DncInitRequest + + _ + Public DncInit As OpenControl.DncInit + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal DncInit As OpenControl.DncInit) + MyBase.New + Me.DncInit = DncInit + End Sub + End Class + + _ + Partial Public Class DncInitResponse + + _ + Public DncInitR As OpenControl.DncInitR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal DncInitR As OpenControl.DncInitR) + MyBase.New + Me.DncInitR = DncInitR + End Sub + End Class + + ''' + _ + Partial Public Class DncData + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private dataField As String + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Data() As String + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class DncDataR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class DncDataRequest + + _ + Public DncData As OpenControl.DncData + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal DncData As OpenControl.DncData) + MyBase.New + Me.DncData = DncData + End Sub + End Class + + _ + Partial Public Class DncDataResponse + + _ + Public DncDataR As OpenControl.DncDataR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal DncDataR As OpenControl.DncDataR) + MyBase.New + Me.DncDataR = DncDataR + End Sub + End Class + + ''' + _ + Partial Public Class DncEof + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class DncEofR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class DncEofRequest + + _ + Public DncEof As OpenControl.DncEof + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal DncEof As OpenControl.DncEof) + MyBase.New + Me.DncEof = DncEof + End Sub + End Class + + _ + Partial Public Class DncEofResponse + + _ + Public DncEofR As OpenControl.DncEofR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal DncEofR As OpenControl.DncEofR) + MyBase.New + Me.DncEofR = DncEofR + End Sub + End Class + + ''' + _ + Partial Public Class DncStop + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class DncStopR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class DncStopRequest + + _ + Public DncStop As OpenControl.DncStop + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal DncStop As OpenControl.DncStop) + MyBase.New + Me.DncStop = DncStop + End Sub + End Class + + _ + Partial Public Class DncStopResponse + + _ + Public DncStopR As OpenControl.DncStopR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal DncStopR As OpenControl.DncStopR) + MyBase.New + Me.DncStopR = DncStopR + End Sub + End Class + + ''' + _ + Partial Public Class GetAxesInfo3 + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private axisIdField As UShort + + Private axesNumField As UShort + + ''' + _ + Public Property AxisId() As UShort + Get + Return Me.axisIdField + End Get + Set + Me.axisIdField = value + Me.RaisePropertyChanged("AxisId") + End Set + End Property + + ''' + _ + Public Property AxesNum() As UShort + Get + Return Me.axesNumField + End Get + Set + Me.axesNumField = value + Me.RaisePropertyChanged("AxesNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetAxesInfo3R + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private axesNumField As UShort + + Private axOwnerListField() As UShort + + Private axNameListField() As Byte + + Private axTypeField() As UShort + + Private axInterfaceField() As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property AxesNum() As UShort + Get + Return Me.axesNumField + End Get + Set + Me.axesNumField = value + Me.RaisePropertyChanged("AxesNum") + End Set + End Property + + ''' + _ + Public Property AxOwnerList() As UShort() + Get + Return Me.axOwnerListField + End Get + Set + Me.axOwnerListField = value + Me.RaisePropertyChanged("AxOwnerList") + End Set + End Property + + ''' + _ + Public Property AxNameList() As Byte() + Get + Return Me.axNameListField + End Get + Set + Me.axNameListField = value + Me.RaisePropertyChanged("AxNameList") + End Set + End Property + + ''' + _ + Public Property AxType() As UShort() + Get + Return Me.axTypeField + End Get + Set + Me.axTypeField = value + Me.RaisePropertyChanged("AxType") + End Set + End Property + + ''' + _ + Public Property AxInterface() As UShort() + Get + Return Me.axInterfaceField + End Get + Set + Me.axInterfaceField = value + Me.RaisePropertyChanged("AxInterface") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetAxesInfo3Request + + _ + Public GetAxesInfo3 As OpenControl.GetAxesInfo3 + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetAxesInfo3 As OpenControl.GetAxesInfo3) + MyBase.New + Me.GetAxesInfo3 = GetAxesInfo3 + End Sub + End Class + + _ + Partial Public Class GetAxesInfo3Response + + _ + Public GetAxesInfo3R As OpenControl.GetAxesInfo3R + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetAxesInfo3R As OpenControl.GetAxesInfo3R) + MyBase.New + Me.GetAxesInfo3R = GetAxesInfo3R + End Sub + End Class + + ''' + _ + Partial Public Class GetCodeNumber + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetCodeNumberR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private codeNumberField As String + + Private swVersionField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property CodeNumber() As String + Get + Return Me.codeNumberField + End Get + Set + Me.codeNumberField = value + Me.RaisePropertyChanged("CodeNumber") + End Set + End Property + + ''' + _ + Public Property SwVersion() As String + Get + Return Me.swVersionField + End Get + Set + Me.swVersionField = value + Me.RaisePropertyChanged("SwVersion") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetCodeNumberRequest + + _ + Public GetCodeNumber As OpenControl.GetCodeNumber + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCodeNumber As OpenControl.GetCodeNumber) + MyBase.New + Me.GetCodeNumber = GetCodeNumber + End Sub + End Class + + _ + Partial Public Class GetCodeNumberResponse + + _ + Public GetCodeNumberR As OpenControl.GetCodeNumberR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCodeNumberR As OpenControl.GetCodeNumberR) + MyBase.New + Me.GetCodeNumberR = GetCodeNumberR + End Sub + End Class + + ''' + _ + Partial Public Class GetOptions + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetOptionsR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private optionField() As Byte + + Private securLevelField() As Byte + + Private swVersionField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property [Option]() As Byte() + Get + Return Me.optionField + End Get + Set + Me.optionField = value + Me.RaisePropertyChanged("Option") + End Set + End Property + + ''' + _ + Public Property SecurLevel() As Byte() + Get + Return Me.securLevelField + End Get + Set + Me.securLevelField = value + Me.RaisePropertyChanged("SecurLevel") + End Set + End Property + + ''' + _ + Public Property SwVersion() As String + Get + Return Me.swVersionField + End Get + Set + Me.swVersionField = value + Me.RaisePropertyChanged("SwVersion") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetOptionsRequest + + _ + Public GetOptions As OpenControl.GetOptions + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetOptions As OpenControl.GetOptions) + MyBase.New + Me.GetOptions = GetOptions + End Sub + End Class + + _ + Partial Public Class GetOptionsResponse + + _ + Public GetOptionsR As OpenControl.GetOptionsR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetOptionsR As OpenControl.GetOptionsR) + MyBase.New + Me.GetOptionsR = GetOptionsR + End Sub + End Class + + ''' + _ + Partial Public Class GetDateTime + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetDateTimeR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private yearField As UShort + + Private monthField As UShort + + Private dayField As UShort + + Private hourField As UShort + + Private minuteField As UShort + + Private secondField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Year() As UShort + Get + Return Me.yearField + End Get + Set + Me.yearField = value + Me.RaisePropertyChanged("Year") + End Set + End Property + + ''' + _ + Public Property Month() As UShort + Get + Return Me.monthField + End Get + Set + Me.monthField = value + Me.RaisePropertyChanged("Month") + End Set + End Property + + ''' + _ + Public Property Day() As UShort + Get + Return Me.dayField + End Get + Set + Me.dayField = value + Me.RaisePropertyChanged("Day") + End Set + End Property + + ''' + _ + Public Property Hour() As UShort + Get + Return Me.hourField + End Get + Set + Me.hourField = value + Me.RaisePropertyChanged("Hour") + End Set + End Property + + ''' + _ + Public Property Minute() As UShort + Get + Return Me.minuteField + End Get + Set + Me.minuteField = value + Me.RaisePropertyChanged("Minute") + End Set + End Property + + ''' + _ + Public Property Second() As UShort + Get + Return Me.secondField + End Get + Set + Me.secondField = value + Me.RaisePropertyChanged("Second") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetDateTimeRequest + + _ + Public GetDateTime As OpenControl.GetDateTime + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetDateTime As OpenControl.GetDateTime) + MyBase.New + Me.GetDateTime = GetDateTime + End Sub + End Class + + _ + Partial Public Class GetDateTimeResponse + + _ + Public GetDateTimeR As OpenControl.GetDateTimeR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetDateTimeR As OpenControl.GetDateTimeR) + MyBase.New + Me.GetDateTimeR = GetDateTimeR + End Sub + End Class + + ''' + _ + Partial Public Class SetDateTime + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private yearField As UShort + + Private monthField As UShort + + Private dayField As UShort + + Private hourField As UShort + + Private minuteField As UShort + + Private secondField As UShort + + ''' + _ + Public Property Year() As UShort + Get + Return Me.yearField + End Get + Set + Me.yearField = value + Me.RaisePropertyChanged("Year") + End Set + End Property + + ''' + _ + Public Property Month() As UShort + Get + Return Me.monthField + End Get + Set + Me.monthField = value + Me.RaisePropertyChanged("Month") + End Set + End Property + + ''' + _ + Public Property Day() As UShort + Get + Return Me.dayField + End Get + Set + Me.dayField = value + Me.RaisePropertyChanged("Day") + End Set + End Property + + ''' + _ + Public Property Hour() As UShort + Get + Return Me.hourField + End Get + Set + Me.hourField = value + Me.RaisePropertyChanged("Hour") + End Set + End Property + + ''' + _ + Public Property Minute() As UShort + Get + Return Me.minuteField + End Get + Set + Me.minuteField = value + Me.RaisePropertyChanged("Minute") + End Set + End Property + + ''' + _ + Public Property Second() As UShort + Get + Return Me.secondField + End Get + Set + Me.secondField = value + Me.RaisePropertyChanged("Second") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetDateTimeR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetDateTimeRequest + + _ + Public SetDateTime As OpenControl.SetDateTime + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetDateTime As OpenControl.SetDateTime) + MyBase.New + Me.SetDateTime = SetDateTime + End Sub + End Class + + _ + Partial Public Class SetDateTimeResponse + + _ + Public SetDateTimeR As OpenControl.SetDateTimeR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetDateTimeR As OpenControl.SetDateTimeR) + MyBase.New + Me.SetDateTimeR = SetDateTimeR + End Sub + End Class + + ''' + _ + Partial Public Class GetSerialNumber + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetSerialNumberR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private serialNumberField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property SerialNumber() As String + Get + Return Me.serialNumberField + End Get + Set + Me.serialNumberField = value + Me.RaisePropertyChanged("SerialNumber") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetSerialNumberRequest + + _ + Public GetSerialNumber As OpenControl.GetSerialNumber + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetSerialNumber As OpenControl.GetSerialNumber) + MyBase.New + Me.GetSerialNumber = GetSerialNumber + End Sub + End Class + + _ + Partial Public Class GetSerialNumberResponse + + _ + Public GetSerialNumberR As OpenControl.GetSerialNumberR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetSerialNumberR As OpenControl.GetSerialNumberR) + MyBase.New + Me.GetSerialNumberR = GetSerialNumberR + End Sub + End Class + + ''' + _ + Partial Public Class PutFile + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private dataField As String + + Private sizeField As UInteger + + Private pathNameField As String + + ''' + _ + Public Property Data() As String + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property Size() As UInteger + Get + Return Me.sizeField + End Get + Set + Me.sizeField = value + Me.RaisePropertyChanged("Size") + End Set + End Property + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class PutFileR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class PutFileRequest + + _ + Public PutFile As OpenControl.PutFile + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal PutFile As OpenControl.PutFile) + MyBase.New + Me.PutFile = PutFile + End Sub + End Class + + _ + Partial Public Class PutFileResponse + + _ + Public PutFileR As OpenControl.PutFileR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal PutFileR As OpenControl.PutFileR) + MyBase.New + Me.PutFileR = PutFileR + End Sub + End Class + + ''' + _ + Partial Public Class GetFile + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + Private sizeField As UInteger + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property Size() As UInteger + Get + Return Me.sizeField + End Get + Set + Me.sizeField = value + Me.RaisePropertyChanged("Size") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetFileR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private sizeField As UInteger + + Private dataField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Size() As UInteger + Get + Return Me.sizeField + End Get + Set + Me.sizeField = value + Me.RaisePropertyChanged("Size") + End Set + End Property + + ''' + _ + Public Property Data() As String + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetFileRequest + + _ + Public GetFile As OpenControl.GetFile + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetFile As OpenControl.GetFile) + MyBase.New + Me.GetFile = GetFile + End Sub + End Class + + _ + Partial Public Class GetFileResponse + + _ + Public GetFileR As OpenControl.GetFileR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetFileR As OpenControl.GetFileR) + MyBase.New + Me.GetFileR = GetFileR + End Sub + End Class + + ''' + _ + Partial Public Class PutBinaryFile + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private dataField() As Byte + + Private pathNameField As String + + ''' + _ + Public Property Data() As Byte() + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class PutBinaryFileR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class PutBinaryFileRequest + + _ + Public PutBinaryFile As OpenControl.PutBinaryFile + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal PutBinaryFile As OpenControl.PutBinaryFile) + MyBase.New + Me.PutBinaryFile = PutBinaryFile + End Sub + End Class + + _ + Partial Public Class PutBinaryFileResponse + + _ + Public PutBinaryFileR As OpenControl.PutBinaryFileR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal PutBinaryFileR As OpenControl.PutBinaryFileR) + MyBase.New + Me.PutBinaryFileR = PutBinaryFileR + End Sub + End Class + + ''' + _ + Partial Public Class GetBinaryFile + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + Private sizeField As UInteger + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property Size() As UInteger + Get + Return Me.sizeField + End Get + Set + Me.sizeField = value + Me.RaisePropertyChanged("Size") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetBinaryFileR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private dataField() As Byte + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Data() As Byte() + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetBinaryFileRequest + + _ + Public GetBinaryFile As OpenControl.GetBinaryFile + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetBinaryFile As OpenControl.GetBinaryFile) + MyBase.New + Me.GetBinaryFile = GetBinaryFile + End Sub + End Class + + _ + Partial Public Class GetBinaryFileResponse + + _ + Public GetBinaryFileR As OpenControl.GetBinaryFileR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetBinaryFileR As OpenControl.GetBinaryFileR) + MyBase.New + Me.GetBinaryFileR = GetBinaryFileR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSSetSecurityLevel + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private passwordField As String + + Private securityLevelField As SECURITYLEVEL + + ''' + _ + Public Property Password() As String + Get + Return Me.passwordField + End Get + Set + Me.passwordField = value + Me.RaisePropertyChanged("Password") + End Set + End Property + + ''' + _ + Public Property SecurityLevel() As SECURITYLEVEL + Get + Return Me.securityLevelField + End Get + Set + Me.securityLevelField = value + Me.RaisePropertyChanged("SecurityLevel") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Public Enum SECURITYLEVEL + + ''' + _ + SECURITYLEVELADMIN + + ''' + _ + SECURITYLEVELSERVICE + + ''' + _ + SECURITYLEVELOEMADMIN + + ''' + _ + SECURITYLEVELOEMSERVICE + + ''' + _ + SECURITYLEVELUSERADMIN + + ''' + _ + SECURITYLEVELUSERSERVICE + End Enum + + ''' + _ + Partial Public Class LogFSSetSecurityLevelR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private oldSecurityLevelField As SECURITYLEVEL + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property OldSecurityLevel() As SECURITYLEVEL + Get + Return Me.oldSecurityLevelField + End Get + Set + Me.oldSecurityLevelField = value + Me.RaisePropertyChanged("OldSecurityLevel") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSSetSecurityLevelRequest + + _ + Public LogFSSetSecurityLevel As OpenControl.LogFSSetSecurityLevel + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSSetSecurityLevel As OpenControl.LogFSSetSecurityLevel) + MyBase.New + Me.LogFSSetSecurityLevel = LogFSSetSecurityLevel + End Sub + End Class + + _ + Partial Public Class LogFSSetSecurityLevelResponse + + _ + Public LogFSSetSecurityLevelR As OpenControl.LogFSSetSecurityLevelR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSSetSecurityLevelR As OpenControl.LogFSSetSecurityLevelR) + MyBase.New + Me.LogFSSetSecurityLevelR = LogFSSetSecurityLevelR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetSecurityLevel + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetSecurityLevelR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private securityLevelField As SECURITYLEVEL + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property SecurityLevel() As SECURITYLEVEL + Get + Return Me.securityLevelField + End Get + Set + Me.securityLevelField = value + Me.RaisePropertyChanged("SecurityLevel") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSGetSecurityLevelRequest + + _ + Public LogFSGetSecurityLevel As OpenControl.LogFSGetSecurityLevel + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetSecurityLevel As OpenControl.LogFSGetSecurityLevel) + MyBase.New + Me.LogFSGetSecurityLevel = LogFSGetSecurityLevel + End Sub + End Class + + _ + Partial Public Class LogFSGetSecurityLevelResponse + + _ + Public LogFSGetSecurityLevelR As OpenControl.LogFSGetSecurityLevelR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetSecurityLevelR As OpenControl.LogFSGetSecurityLevelR) + MyBase.New + Me.LogFSGetSecurityLevelR = LogFSGetSecurityLevelR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSLongFileNames + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSLongFileNamesR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private useLongFileNamesField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property UseLongFileNames() As UShort + Get + Return Me.useLongFileNamesField + End Get + Set + Me.useLongFileNamesField = value + Me.RaisePropertyChanged("UseLongFileNames") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSLongFileNamesRequest + + _ + Public LogFSLongFileNames As OpenControl.LogFSLongFileNames + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSLongFileNames As OpenControl.LogFSLongFileNames) + MyBase.New + Me.LogFSLongFileNames = LogFSLongFileNames + End Sub + End Class + + _ + Partial Public Class LogFSLongFileNamesResponse + + _ + Public LogFSLongFileNamesR As OpenControl.LogFSLongFileNamesR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSLongFileNamesR As OpenControl.LogFSLongFileNamesR) + MyBase.New + Me.LogFSLongFileNamesR = LogFSLongFileNamesR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetNumDrive + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetNumDriveR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private numHiddenDriveField As UShort + + Private numUserDriveField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property NumHiddenDrive() As UShort + Get + Return Me.numHiddenDriveField + End Get + Set + Me.numHiddenDriveField = value + Me.RaisePropertyChanged("NumHiddenDrive") + End Set + End Property + + ''' + _ + Public Property NumUserDrive() As UShort + Get + Return Me.numUserDriveField + End Get + Set + Me.numUserDriveField = value + Me.RaisePropertyChanged("NumUserDrive") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSGetNumDriveRequest + + _ + Public LogFSGetNumDrive As OpenControl.LogFSGetNumDrive + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetNumDrive As OpenControl.LogFSGetNumDrive) + MyBase.New + Me.LogFSGetNumDrive = LogFSGetNumDrive + End Sub + End Class + + _ + Partial Public Class LogFSGetNumDriveResponse + + _ + Public LogFSGetNumDriveR As OpenControl.LogFSGetNumDriveR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetNumDriveR As OpenControl.LogFSGetNumDriveR) + MyBase.New + Me.LogFSGetNumDriveR = LogFSGetNumDriveR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetDriveList + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private indexField As UShort + + ''' + _ + Public Property Index() As UShort + Get + Return Me.indexField + End Get + Set + Me.indexField = value + Me.RaisePropertyChanged("Index") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetDriveListR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private driveNameField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property DriveName() As String + Get + Return Me.driveNameField + End Get + Set + Me.driveNameField = value + Me.RaisePropertyChanged("DriveName") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSGetDriveListRequest + + _ + Public LogFSGetDriveList As OpenControl.LogFSGetDriveList + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetDriveList As OpenControl.LogFSGetDriveList) + MyBase.New + Me.LogFSGetDriveList = LogFSGetDriveList + End Sub + End Class + + _ + Partial Public Class LogFSGetDriveListResponse + + _ + Public LogFSGetDriveListR As OpenControl.LogFSGetDriveListR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetDriveListR As OpenControl.LogFSGetDriveListR) + MyBase.New + Me.LogFSGetDriveListR = LogFSGetDriveListR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetHiddenDriveList + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private indexField As UShort + + ''' + _ + Public Property Index() As UShort + Get + Return Me.indexField + End Get + Set + Me.indexField = value + Me.RaisePropertyChanged("Index") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetHiddenDriveListR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private driveNameField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property DriveName() As String + Get + Return Me.driveNameField + End Get + Set + Me.driveNameField = value + Me.RaisePropertyChanged("DriveName") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSGetHiddenDriveListRequest + + _ + Public LogFSGetHiddenDriveList As OpenControl.LogFSGetHiddenDriveList + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetHiddenDriveList As OpenControl.LogFSGetHiddenDriveList) + MyBase.New + Me.LogFSGetHiddenDriveList = LogFSGetHiddenDriveList + End Sub + End Class + + _ + Partial Public Class LogFSGetHiddenDriveListResponse + + _ + Public LogFSGetHiddenDriveListR As OpenControl.LogFSGetHiddenDriveListR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetHiddenDriveListR As OpenControl.LogFSGetHiddenDriveListR) + MyBase.New + Me.LogFSGetHiddenDriveListR = LogFSGetHiddenDriveListR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetDrivePath + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private driveNameField As String + + Private securityLevelField As SECURITYLEVEL + + ''' + _ + Public Property DriveName() As String + Get + Return Me.driveNameField + End Get + Set + Me.driveNameField = value + Me.RaisePropertyChanged("DriveName") + End Set + End Property + + ''' + _ + Public Property SecurityLevel() As SECURITYLEVEL + Get + Return Me.securityLevelField + End Get + Set + Me.securityLevelField = value + Me.RaisePropertyChanged("SecurityLevel") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetDrivePathR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private drivePathField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property DrivePath() As String + Get + Return Me.drivePathField + End Get + Set + Me.drivePathField = value + Me.RaisePropertyChanged("DrivePath") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSGetDrivePathRequest + + _ + Public LogFSGetDrivePath As OpenControl.LogFSGetDrivePath + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetDrivePath As OpenControl.LogFSGetDrivePath) + MyBase.New + Me.LogFSGetDrivePath = LogFSGetDrivePath + End Sub + End Class + + _ + Partial Public Class LogFSGetDrivePathResponse + + _ + Public LogFSGetDrivePathR As OpenControl.LogFSGetDrivePathR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetDrivePathR As OpenControl.LogFSGetDrivePathR) + MyBase.New + Me.LogFSGetDrivePathR = LogFSGetDrivePathR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSAddDrive + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private driveNameField As String + + Private pathNameField As String + + Private temporaryField As Boolean + + Private securityLevelField As SECURITYLEVEL + + ''' + _ + Public Property DriveName() As String + Get + Return Me.driveNameField + End Get + Set + Me.driveNameField = value + Me.RaisePropertyChanged("DriveName") + End Set + End Property + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property Temporary() As Boolean + Get + Return Me.temporaryField + End Get + Set + Me.temporaryField = value + Me.RaisePropertyChanged("Temporary") + End Set + End Property + + ''' + _ + Public Property SecurityLevel() As SECURITYLEVEL + Get + Return Me.securityLevelField + End Get + Set + Me.securityLevelField = value + Me.RaisePropertyChanged("SecurityLevel") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSAddDriveR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSAddDriveRequest + + _ + Public LogFSAddDrive As OpenControl.LogFSAddDrive + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSAddDrive As OpenControl.LogFSAddDrive) + MyBase.New + Me.LogFSAddDrive = LogFSAddDrive + End Sub + End Class + + _ + Partial Public Class LogFSAddDriveResponse + + _ + Public LogFSAddDriveR As OpenControl.LogFSAddDriveR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSAddDriveR As OpenControl.LogFSAddDriveR) + MyBase.New + Me.LogFSAddDriveR = LogFSAddDriveR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSRemoveDrive + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private driveNameField As String + + Private securityLevelField As SECURITYLEVEL + + ''' + _ + Public Property DriveName() As String + Get + Return Me.driveNameField + End Get + Set + Me.driveNameField = value + Me.RaisePropertyChanged("DriveName") + End Set + End Property + + ''' + _ + Public Property SecurityLevel() As SECURITYLEVEL + Get + Return Me.securityLevelField + End Get + Set + Me.securityLevelField = value + Me.RaisePropertyChanged("SecurityLevel") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSRemoveDriveR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSRemoveDriveRequest + + _ + Public LogFSRemoveDrive As OpenControl.LogFSRemoveDrive + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSRemoveDrive As OpenControl.LogFSRemoveDrive) + MyBase.New + Me.LogFSRemoveDrive = LogFSRemoveDrive + End Sub + End Class + + _ + Partial Public Class LogFSRemoveDriveResponse + + _ + Public LogFSRemoveDriveR As OpenControl.LogFSRemoveDriveR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSRemoveDriveR As OpenControl.LogFSRemoveDriveR) + MyBase.New + Me.LogFSRemoveDriveR = LogFSRemoveDriveR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSReloadDriveList + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSReloadDriveListR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSReloadDriveListRequest + + _ + Public LogFSReloadDriveList As OpenControl.LogFSReloadDriveList + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSReloadDriveList As OpenControl.LogFSReloadDriveList) + MyBase.New + Me.LogFSReloadDriveList = LogFSReloadDriveList + End Sub + End Class + + _ + Partial Public Class LogFSReloadDriveListResponse + + _ + Public LogFSReloadDriveListR As OpenControl.LogFSReloadDriveListR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSReloadDriveListR As OpenControl.LogFSReloadDriveListR) + MyBase.New + Me.LogFSReloadDriveListR = LogFSReloadDriveListR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSCreateDir + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSCreateDirR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSCreateDirRequest + + _ + Public LogFSCreateDir As OpenControl.LogFSCreateDir + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSCreateDir As OpenControl.LogFSCreateDir) + MyBase.New + Me.LogFSCreateDir = LogFSCreateDir + End Sub + End Class + + _ + Partial Public Class LogFSCreateDirResponse + + _ + Public LogFSCreateDirR As OpenControl.LogFSCreateDirR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSCreateDirR As OpenControl.LogFSCreateDirR) + MyBase.New + Me.LogFSCreateDirR = LogFSCreateDirR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSCreateFile + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSCreateFileR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSCreateFileRequest + + _ + Public LogFSCreateFile As OpenControl.LogFSCreateFile + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSCreateFile As OpenControl.LogFSCreateFile) + MyBase.New + Me.LogFSCreateFile = LogFSCreateFile + End Sub + End Class + + _ + Partial Public Class LogFSCreateFileResponse + + _ + Public LogFSCreateFileR As OpenControl.LogFSCreateFileR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSCreateFileR As OpenControl.LogFSCreateFileR) + MyBase.New + Me.LogFSCreateFileR = LogFSCreateFileR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetFileSize + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetFileSizeR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private sizeField As UInteger + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Size() As UInteger + Get + Return Me.sizeField + End Get + Set + Me.sizeField = value + Me.RaisePropertyChanged("Size") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSGetFileSizeRequest + + _ + Public LogFSGetFileSize As OpenControl.LogFSGetFileSize + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetFileSize As OpenControl.LogFSGetFileSize) + MyBase.New + Me.LogFSGetFileSize = LogFSGetFileSize + End Sub + End Class + + _ + Partial Public Class LogFSGetFileSizeResponse + + _ + Public LogFSGetFileSizeR As OpenControl.LogFSGetFileSizeR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetFileSizeR As OpenControl.LogFSGetFileSizeR) + MyBase.New + Me.LogFSGetFileSizeR = LogFSGetFileSizeR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetFileAttrib + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetFileAttribR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private attribField As UInteger + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Attrib() As UInteger + Get + Return Me.attribField + End Get + Set + Me.attribField = value + Me.RaisePropertyChanged("Attrib") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSGetFileAttribRequest + + _ + Public LogFSGetFileAttrib As OpenControl.LogFSGetFileAttrib + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetFileAttrib As OpenControl.LogFSGetFileAttrib) + MyBase.New + Me.LogFSGetFileAttrib = LogFSGetFileAttrib + End Sub + End Class + + _ + Partial Public Class LogFSGetFileAttribResponse + + _ + Public LogFSGetFileAttribR As OpenControl.LogFSGetFileAttribR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetFileAttribR As OpenControl.LogFSGetFileAttribR) + MyBase.New + Me.LogFSGetFileAttribR = LogFSGetFileAttribR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSSetFileAttrib + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + Private attribField As UInteger + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property Attrib() As UInteger + Get + Return Me.attribField + End Get + Set + Me.attribField = value + Me.RaisePropertyChanged("Attrib") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSSetFileAttribR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSSetFileAttribRequest + + _ + Public LogFSSetFileAttrib As OpenControl.LogFSSetFileAttrib + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSSetFileAttrib As OpenControl.LogFSSetFileAttrib) + MyBase.New + Me.LogFSSetFileAttrib = LogFSSetFileAttrib + End Sub + End Class + + _ + Partial Public Class LogFSSetFileAttribResponse + + _ + Public LogFSSetFileAttribR As OpenControl.LogFSSetFileAttribR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSSetFileAttribR As OpenControl.LogFSSetFileAttribR) + MyBase.New + Me.LogFSSetFileAttribR = LogFSSetFileAttribR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSChangeFileAttrib + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + Private addField As UInteger + + Private removeField As UInteger + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property Add() As UInteger + Get + Return Me.addField + End Get + Set + Me.addField = value + Me.RaisePropertyChanged("Add") + End Set + End Property + + ''' + _ + Public Property Remove() As UInteger + Get + Return Me.removeField + End Get + Set + Me.removeField = value + Me.RaisePropertyChanged("Remove") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSChangeFileAttribR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSChangeFileAttribRequest + + _ + Public LogFSChangeFileAttrib As OpenControl.LogFSChangeFileAttrib + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSChangeFileAttrib As OpenControl.LogFSChangeFileAttrib) + MyBase.New + Me.LogFSChangeFileAttrib = LogFSChangeFileAttrib + End Sub + End Class + + _ + Partial Public Class LogFSChangeFileAttribResponse + + _ + Public LogFSChangeFileAttribR As OpenControl.LogFSChangeFileAttribR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSChangeFileAttribR As OpenControl.LogFSChangeFileAttribR) + MyBase.New + Me.LogFSChangeFileAttribR = LogFSChangeFileAttribR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSFindFirst + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private fileNameField As String + + ''' + _ + Public Property FileName() As String + Get + Return Me.fileNameField + End Get + Set + Me.fileNameField = value + Me.RaisePropertyChanged("FileName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSFindFirstR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private findDataField As FILEFINDDATA + + Private finderField As UInteger + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property FindData() As FILEFINDDATA + Get + Return Me.findDataField + End Get + Set + Me.findDataField = value + Me.RaisePropertyChanged("FindData") + End Set + End Property + + ''' + _ + Public Property Finder() As UInteger + Get + Return Me.finderField + End Get + Set + Me.finderField = value + Me.RaisePropertyChanged("Finder") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSFindFirstRequest + + _ + Public LogFSFindFirst As OpenControl.LogFSFindFirst + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSFindFirst As OpenControl.LogFSFindFirst) + MyBase.New + Me.LogFSFindFirst = LogFSFindFirst + End Sub + End Class + + _ + Partial Public Class LogFSFindFirstResponse + + _ + Public LogFSFindFirstR As OpenControl.LogFSFindFirstR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSFindFirstR As OpenControl.LogFSFindFirstR) + MyBase.New + Me.LogFSFindFirstR = LogFSFindFirstR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSFindNext + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private finderField As UInteger + + ''' + _ + Public Property Finder() As UInteger + Get + Return Me.finderField + End Get + Set + Me.finderField = value + Me.RaisePropertyChanged("Finder") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSFindNextR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private findDataField As FILEFINDDATA + + Private foundField As Boolean + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property FindData() As FILEFINDDATA + Get + Return Me.findDataField + End Get + Set + Me.findDataField = value + Me.RaisePropertyChanged("FindData") + End Set + End Property + + ''' + _ + Public Property Found() As Boolean + Get + Return Me.foundField + End Get + Set + Me.foundField = value + Me.RaisePropertyChanged("Found") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSFindNextRequest + + _ + Public LogFSFindNext As OpenControl.LogFSFindNext + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSFindNext As OpenControl.LogFSFindNext) + MyBase.New + Me.LogFSFindNext = LogFSFindNext + End Sub + End Class + + _ + Partial Public Class LogFSFindNextResponse + + _ + Public LogFSFindNextR As OpenControl.LogFSFindNextR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSFindNextR As OpenControl.LogFSFindNextR) + MyBase.New + Me.LogFSFindNextR = LogFSFindNextR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSFindClose + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private finderField As UInteger + + ''' + _ + Public Property Finder() As UInteger + Get + Return Me.finderField + End Get + Set + Me.finderField = value + Me.RaisePropertyChanged("Finder") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSFindCloseR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSFindCloseRequest + + _ + Public LogFSFindClose As OpenControl.LogFSFindClose + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSFindClose As OpenControl.LogFSFindClose) + MyBase.New + Me.LogFSFindClose = LogFSFindClose + End Sub + End Class + + _ + Partial Public Class LogFSFindCloseResponse + + _ + Public LogFSFindCloseR As OpenControl.LogFSFindCloseR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSFindCloseR As OpenControl.LogFSFindCloseR) + MyBase.New + Me.LogFSFindCloseR = LogFSFindCloseR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSRemoveFile + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + Private fileNameField As String + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property FileName() As String + Get + Return Me.fileNameField + End Get + Set + Me.fileNameField = value + Me.RaisePropertyChanged("FileName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSRemoveFileR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSRemoveFileRequest + + _ + Public LogFSRemoveFile As OpenControl.LogFSRemoveFile + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSRemoveFile As OpenControl.LogFSRemoveFile) + MyBase.New + Me.LogFSRemoveFile = LogFSRemoveFile + End Sub + End Class + + _ + Partial Public Class LogFSRemoveFileResponse + + _ + Public LogFSRemoveFileR As OpenControl.LogFSRemoveFileR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSRemoveFileR As OpenControl.LogFSRemoveFileR) + MyBase.New + Me.LogFSRemoveFileR = LogFSRemoveFileR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSRemoveDir + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSRemoveDirR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSRemoveDirRequest + + _ + Public LogFSRemoveDir As OpenControl.LogFSRemoveDir + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSRemoveDir As OpenControl.LogFSRemoveDir) + MyBase.New + Me.LogFSRemoveDir = LogFSRemoveDir + End Sub + End Class + + _ + Partial Public Class LogFSRemoveDirResponse + + _ + Public LogFSRemoveDirR As OpenControl.LogFSRemoveDirR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSRemoveDirR As OpenControl.LogFSRemoveDirR) + MyBase.New + Me.LogFSRemoveDirR = LogFSRemoveDirR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSRename + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + Private newPathNameField As String + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property NewPathName() As String + Get + Return Me.newPathNameField + End Get + Set + Me.newPathNameField = value + Me.RaisePropertyChanged("NewPathName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSRenameR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSRenameRequest + + _ + Public LogFSRename As OpenControl.LogFSRename + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSRename As OpenControl.LogFSRename) + MyBase.New + Me.LogFSRename = LogFSRename + End Sub + End Class + + _ + Partial Public Class LogFSRenameResponse + + _ + Public LogFSRenameR As OpenControl.LogFSRenameR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSRenameR As OpenControl.LogFSRenameR) + MyBase.New + Me.LogFSRenameR = LogFSRenameR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSCopyFile + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + Private newPathNameField As String + + Private failIfExistsField As Boolean + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property NewPathName() As String + Get + Return Me.newPathNameField + End Get + Set + Me.newPathNameField = value + Me.RaisePropertyChanged("NewPathName") + End Set + End Property + + ''' + _ + Public Property FailIfExists() As Boolean + Get + Return Me.failIfExistsField + End Get + Set + Me.failIfExistsField = value + Me.RaisePropertyChanged("FailIfExists") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSCopyFileR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSCopyFileRequest + + _ + Public LogFSCopyFile As OpenControl.LogFSCopyFile + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSCopyFile As OpenControl.LogFSCopyFile) + MyBase.New + Me.LogFSCopyFile = LogFSCopyFile + End Sub + End Class + + _ + Partial Public Class LogFSCopyFileResponse + + _ + Public LogFSCopyFileR As OpenControl.LogFSCopyFileR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSCopyFileR As OpenControl.LogFSCopyFileR) + MyBase.New + Me.LogFSCopyFileR = LogFSCopyFileR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetInfo + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + Private selectorField As UInteger + + Private itemCounterField As UShort + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property Selector() As UInteger + Get + Return Me.selectorField + End Get + Set + Me.selectorField = value + Me.RaisePropertyChanged("Selector") + End Set + End Property + + ''' + _ + Public Property ItemCounter() As UShort + Get + Return Me.itemCounterField + End Get + Set + Me.itemCounterField = value + Me.RaisePropertyChanged("ItemCounter") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetInfoR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private bufferField() As UInteger + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Buffer() As UInteger() + Get + Return Me.bufferField + End Get + Set + Me.bufferField = value + Me.RaisePropertyChanged("Buffer") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSGetInfoRequest + + _ + Public LogFSGetInfo As OpenControl.LogFSGetInfo + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetInfo As OpenControl.LogFSGetInfo) + MyBase.New + Me.LogFSGetInfo = LogFSGetInfo + End Sub + End Class + + _ + Partial Public Class LogFSGetInfoResponse + + _ + Public LogFSGetInfoR As OpenControl.LogFSGetInfoR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetInfoR As OpenControl.LogFSGetInfoR) + MyBase.New + Me.LogFSGetInfoR = LogFSGetInfoR + End Sub + End Class + + ''' + _ + Partial Public Class GetAvailableCustomEvents + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private maxEventsField As UShort + + ''' + _ + Public Property MaxEvents() As UShort + Get + Return Me.maxEventsField + End Get + Set + Me.maxEventsField = value + Me.RaisePropertyChanged("MaxEvents") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetAvailableCustomEventsR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private numEventsField As UShort + + Private eventDataField() As MONCUSTOMEVENTINFO + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property NumEvents() As UShort + Get + Return Me.numEventsField + End Get + Set + Me.numEventsField = value + Me.RaisePropertyChanged("NumEvents") + End Set + End Property + + ''' + _ + Public Property EventData() As MONCUSTOMEVENTINFO() + Get + Return Me.eventDataField + End Get + Set + Me.eventDataField = value + Me.RaisePropertyChanged("EventData") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetAvailableCustomEventsRequest + + _ + Public GetAvailableCustomEvents As OpenControl.GetAvailableCustomEvents + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetAvailableCustomEvents As OpenControl.GetAvailableCustomEvents) + MyBase.New + Me.GetAvailableCustomEvents = GetAvailableCustomEvents + End Sub + End Class + + _ + Partial Public Class GetAvailableCustomEventsResponse + + _ + Public GetAvailableCustomEventsR As OpenControl.GetAvailableCustomEventsR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetAvailableCustomEventsR As OpenControl.GetAvailableCustomEventsR) + MyBase.New + Me.GetAvailableCustomEventsR = GetAvailableCustomEventsR + End Sub + End Class + + ''' + _ + Partial Public Class GetSysTick + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetSysTickR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private sysTickField As Double + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property SysTick() As Double + Get + Return Me.sysTickField + End Get + Set + Me.sysTickField = value + Me.RaisePropertyChanged("SysTick") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetSysTickRequest + + _ + Public GetSysTick As OpenControl.GetSysTick + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetSysTick As OpenControl.GetSysTick) + MyBase.New + Me.GetSysTick = GetSysTick + End Sub + End Class + + _ + Partial Public Class GetSysTickResponse + + _ + Public GetSysTickR As OpenControl.GetSysTickR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetSysTickR As OpenControl.GetSysTickR) + MyBase.New + Me.GetSysTickR = GetSysTickR + End Sub + End Class + + ''' + _ + Partial Public Class GetProcessConfNum + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetProcessConfNumR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private processConfNumField As Byte + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ProcessConfNum() As Byte + Get + Return Me.processConfNumField + End Get + Set + Me.processConfNumField = value + Me.RaisePropertyChanged("ProcessConfNum") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetProcessConfNumRequest + + _ + Public GetProcessConfNum As OpenControl.GetProcessConfNum + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcessConfNum As OpenControl.GetProcessConfNum) + MyBase.New + Me.GetProcessConfNum = GetProcessConfNum + End Sub + End Class + + _ + Partial Public Class GetProcessConfNumResponse + + _ + Public GetProcessConfNumR As OpenControl.GetProcessConfNumR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcessConfNumR As OpenControl.GetProcessConfNumR) + MyBase.New + Me.GetProcessConfNumR = GetProcessConfNumR + End Sub + End Class + + ''' + _ + Partial Public Class MonOpenChannel + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private synchronizedField As Boolean + + ''' + _ + Public Property Synchronized() As Boolean + Get + Return Me.synchronizedField + End Get + Set + Me.synchronizedField = value + Me.RaisePropertyChanged("Synchronized") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MonOpenChannelR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private channelIDField As UInteger + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ChannelID() As UInteger + Get + Return Me.channelIDField + End Get + Set + Me.channelIDField = value + Me.RaisePropertyChanged("ChannelID") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class MonOpenChannelRequest + + _ + Public MonOpenChannel As OpenControl.MonOpenChannel + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonOpenChannel As OpenControl.MonOpenChannel) + MyBase.New + Me.MonOpenChannel = MonOpenChannel + End Sub + End Class + + _ + Partial Public Class MonOpenChannelResponse + + _ + Public MonOpenChannelR As OpenControl.MonOpenChannelR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonOpenChannelR As OpenControl.MonOpenChannelR) + MyBase.New + Me.MonOpenChannelR = MonOpenChannelR + End Sub + End Class + + ''' + _ + Partial Public Class MonCloseChannel + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private channelIDField As UInteger + + ''' + _ + Public Property ChannelID() As UInteger + Get + Return Me.channelIDField + End Get + Set + Me.channelIDField = value + Me.RaisePropertyChanged("ChannelID") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MonCloseChannelR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class MonCloseChannelRequest + + _ + Public MonCloseChannel As OpenControl.MonCloseChannel + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonCloseChannel As OpenControl.MonCloseChannel) + MyBase.New + Me.MonCloseChannel = MonCloseChannel + End Sub + End Class + + _ + Partial Public Class MonCloseChannelResponse + + _ + Public MonCloseChannelR As OpenControl.MonCloseChannelR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonCloseChannelR As OpenControl.MonCloseChannelR) + MyBase.New + Me.MonCloseChannelR = MonCloseChannelR + End Sub + End Class + + ''' + _ + Partial Public Class MonAddVariable + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private channelIDField As UInteger + + Private varDescrField As MONVARDESCR + + ''' + _ + Public Property ChannelID() As UInteger + Get + Return Me.channelIDField + End Get + Set + Me.channelIDField = value + Me.RaisePropertyChanged("ChannelID") + End Set + End Property + + ''' + _ + Public Property VarDescr() As MONVARDESCR + Get + Return Me.varDescrField + End Get + Set + Me.varDescrField = value + Me.RaisePropertyChanged("VarDescr") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MonAddVariableR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private variableIDField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property VariableID() As UShort + Get + Return Me.variableIDField + End Get + Set + Me.variableIDField = value + Me.RaisePropertyChanged("VariableID") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class MonAddVariableRequest + + _ + Public MonAddVariable As OpenControl.MonAddVariable + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonAddVariable As OpenControl.MonAddVariable) + MyBase.New + Me.MonAddVariable = MonAddVariable + End Sub + End Class + + _ + Partial Public Class MonAddVariableResponse + + _ + Public MonAddVariableR As OpenControl.MonAddVariableR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonAddVariableR As OpenControl.MonAddVariableR) + MyBase.New + Me.MonAddVariableR = MonAddVariableR + End Sub + End Class + + ''' + _ + Partial Public Class MonDeleteVariable + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private channelIDField As UInteger + + Private variableIDField As UShort + + ''' + _ + Public Property ChannelID() As UInteger + Get + Return Me.channelIDField + End Get + Set + Me.channelIDField = value + Me.RaisePropertyChanged("ChannelID") + End Set + End Property + + ''' + _ + Public Property VariableID() As UShort + Get + Return Me.variableIDField + End Get + Set + Me.variableIDField = value + Me.RaisePropertyChanged("VariableID") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MonDeleteVariableR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class MonDeleteVariableRequest + + _ + Public MonDeleteVariable As OpenControl.MonDeleteVariable + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonDeleteVariable As OpenControl.MonDeleteVariable) + MyBase.New + Me.MonDeleteVariable = MonDeleteVariable + End Sub + End Class + + _ + Partial Public Class MonDeleteVariableResponse + + _ + Public MonDeleteVariableR As OpenControl.MonDeleteVariableR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonDeleteVariableR As OpenControl.MonDeleteVariableR) + MyBase.New + Me.MonDeleteVariableR = MonDeleteVariableR + End Sub + End Class + + ''' + _ + Partial Public Class MonStartSampling + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private channelIDField As UInteger + + ''' + _ + Public Property ChannelID() As UInteger + Get + Return Me.channelIDField + End Get + Set + Me.channelIDField = value + Me.RaisePropertyChanged("ChannelID") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MonStartSamplingR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class MonStartSamplingRequest + + _ + Public MonStartSampling As OpenControl.MonStartSampling + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonStartSampling As OpenControl.MonStartSampling) + MyBase.New + Me.MonStartSampling = MonStartSampling + End Sub + End Class + + _ + Partial Public Class MonStartSamplingResponse + + _ + Public MonStartSamplingR As OpenControl.MonStartSamplingR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonStartSamplingR As OpenControl.MonStartSamplingR) + MyBase.New + Me.MonStartSamplingR = MonStartSamplingR + End Sub + End Class + + ''' + _ + Partial Public Class MonStopSampling + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private channelIDField As UInteger + + ''' + _ + Public Property ChannelID() As UInteger + Get + Return Me.channelIDField + End Get + Set + Me.channelIDField = value + Me.RaisePropertyChanged("ChannelID") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MonStopSamplingR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class MonStopSamplingRequest + + _ + Public MonStopSampling As OpenControl.MonStopSampling + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonStopSampling As OpenControl.MonStopSampling) + MyBase.New + Me.MonStopSampling = MonStopSampling + End Sub + End Class + + _ + Partial Public Class MonStopSamplingResponse + + _ + Public MonStopSamplingR As OpenControl.MonStopSamplingR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonStopSamplingR As OpenControl.MonStopSamplingR) + MyBase.New + Me.MonStopSamplingR = MonStopSamplingR + End Sub + End Class + + ''' + _ + Partial Public Class MonGetVariable + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private channelIDField As UInteger + + Private variableIDField As UShort + + Private maxSamplesField As UShort + + ''' + _ + Public Property ChannelID() As UInteger + Get + Return Me.channelIDField + End Get + Set + Me.channelIDField = value + Me.RaisePropertyChanged("ChannelID") + End Set + End Property + + ''' + _ + Public Property VariableID() As UShort + Get + Return Me.variableIDField + End Get + Set + Me.variableIDField = value + Me.RaisePropertyChanged("VariableID") + End Set + End Property + + ''' + _ + Public Property MaxSamples() As UShort + Get + Return Me.maxSamplesField + End Get + Set + Me.maxSamplesField = value + Me.RaisePropertyChanged("MaxSamples") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MonGetVariableR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private numSampleReadField As UShort + + Private dataBufferField() As Double + + Private timeBufferField() As Long + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property NumSampleRead() As UShort + Get + Return Me.numSampleReadField + End Get + Set + Me.numSampleReadField = value + Me.RaisePropertyChanged("NumSampleRead") + End Set + End Property + + ''' + _ + Public Property DataBuffer() As Double() + Get + Return Me.dataBufferField + End Get + Set + Me.dataBufferField = value + Me.RaisePropertyChanged("DataBuffer") + End Set + End Property + + ''' + _ + Public Property TimeBuffer() As Long() + Get + Return Me.timeBufferField + End Get + Set + Me.timeBufferField = value + Me.RaisePropertyChanged("TimeBuffer") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class MonGetVariableRequest + + _ + Public MonGetVariable As OpenControl.MonGetVariable + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonGetVariable As OpenControl.MonGetVariable) + MyBase.New + Me.MonGetVariable = MonGetVariable + End Sub + End Class + + _ + Partial Public Class MonGetVariableResponse + + _ + Public MonGetVariableR As OpenControl.MonGetVariableR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonGetVariableR As OpenControl.MonGetVariableR) + MyBase.New + Me.MonGetVariableR = MonGetVariableR + End Sub + End Class + + ''' + _ + Partial Public Class CheckHistory + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class CheckHistoryR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private thisBootMsgCounterField() As UInteger + + Private allBootMsgCounterField() As UInteger + + Private thisBootIDField() As UInteger + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ThisBootMsgCounter() As UInteger() + Get + Return Me.thisBootMsgCounterField + End Get + Set + Me.thisBootMsgCounterField = value + Me.RaisePropertyChanged("ThisBootMsgCounter") + End Set + End Property + + ''' + _ + Public Property AllBootMsgCounter() As UInteger() + Get + Return Me.allBootMsgCounterField + End Get + Set + Me.allBootMsgCounterField = value + Me.RaisePropertyChanged("AllBootMsgCounter") + End Set + End Property + + ''' + _ + Public Property ThisBootID() As UInteger() + Get + Return Me.thisBootIDField + End Get + Set + Me.thisBootIDField = value + Me.RaisePropertyChanged("ThisBootID") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class CheckHistoryRequest + + _ + Public CheckHistory As OpenControl.CheckHistory + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal CheckHistory As OpenControl.CheckHistory) + MyBase.New + Me.CheckHistory = CheckHistory + End Sub + End Class + + _ + Partial Public Class CheckHistoryResponse + + _ + Public CheckHistoryR As OpenControl.CheckHistoryR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal CheckHistoryR As OpenControl.CheckHistoryR) + MyBase.New + Me.CheckHistoryR = CheckHistoryR + End Sub + End Class + + ''' + _ + Partial Public Class ReadHistoryEmergMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private readModeField As Integer + + Private recNumField As UInteger + + ''' + _ + Public Property ReadMode() As Integer + Get + Return Me.readModeField + End Get + Set + Me.readModeField = value + Me.RaisePropertyChanged("ReadMode") + End Set + End Property + + ''' + _ + Public Property RecNum() As UInteger + Get + Return Me.recNumField + End Get + Set + Me.recNumField = value + Me.RaisePropertyChanged("RecNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadHistoryEmergMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private dataField As MSGEMERGENCY + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Data() As MSGEMERGENCY + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadHistoryEmergMsgRequest + + _ + Public ReadHistoryEmergMsg As OpenControl.ReadHistoryEmergMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadHistoryEmergMsg As OpenControl.ReadHistoryEmergMsg) + MyBase.New + Me.ReadHistoryEmergMsg = ReadHistoryEmergMsg + End Sub + End Class + + _ + Partial Public Class ReadHistoryEmergMsgResponse + + _ + Public ReadHistoryEmergMsgR As OpenControl.ReadHistoryEmergMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadHistoryEmergMsgR As OpenControl.ReadHistoryEmergMsgR) + MyBase.New + Me.ReadHistoryEmergMsgR = ReadHistoryEmergMsgR + End Sub + End Class + + ''' + _ + Partial Public Class ReadHistoryErrorMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private readModeField As Integer + + Private recNumField As UInteger + + ''' + _ + Public Property ReadMode() As Integer + Get + Return Me.readModeField + End Get + Set + Me.readModeField = value + Me.RaisePropertyChanged("ReadMode") + End Set + End Property + + ''' + _ + Public Property RecNum() As UInteger + Get + Return Me.recNumField + End Get + Set + Me.recNumField = value + Me.RaisePropertyChanged("RecNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadHistoryErrorMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private dataField As MSGERROR + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Data() As MSGERROR + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadHistoryErrorMsgRequest + + _ + Public ReadHistoryErrorMsg As OpenControl.ReadHistoryErrorMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadHistoryErrorMsg As OpenControl.ReadHistoryErrorMsg) + MyBase.New + Me.ReadHistoryErrorMsg = ReadHistoryErrorMsg + End Sub + End Class + + _ + Partial Public Class ReadHistoryErrorMsgResponse + + _ + Public ReadHistoryErrorMsgR As OpenControl.ReadHistoryErrorMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadHistoryErrorMsgR As OpenControl.ReadHistoryErrorMsgR) + MyBase.New + Me.ReadHistoryErrorMsgR = ReadHistoryErrorMsgR + End Sub + End Class + + ''' + _ + Partial Public Class ReadHistoryLogMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private noHistoryField As Integer + + Private readModeField As Integer + + Private recNumField As UInteger + + ''' + _ + Public Property NoHistory() As Integer + Get + Return Me.noHistoryField + End Get + Set + Me.noHistoryField = value + Me.RaisePropertyChanged("NoHistory") + End Set + End Property + + ''' + _ + Public Property ReadMode() As Integer + Get + Return Me.readModeField + End Get + Set + Me.readModeField = value + Me.RaisePropertyChanged("ReadMode") + End Set + End Property + + ''' + _ + Public Property RecNum() As UInteger + Get + Return Me.recNumField + End Get + Set + Me.recNumField = value + Me.RaisePropertyChanged("RecNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadHistoryLogMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private dataField As MSGLOGS + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Data() As MSGLOGS + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadHistoryLogMsgRequest + + _ + Public ReadHistoryLogMsg As OpenControl.ReadHistoryLogMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadHistoryLogMsg As OpenControl.ReadHistoryLogMsg) + MyBase.New + Me.ReadHistoryLogMsg = ReadHistoryLogMsg + End Sub + End Class + + _ + Partial Public Class ReadHistoryLogMsgResponse + + _ + Public ReadHistoryLogMsgR As OpenControl.ReadHistoryLogMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadHistoryLogMsgR As OpenControl.ReadHistoryLogMsgR) + MyBase.New + Me.ReadHistoryLogMsgR = ReadHistoryLogMsgR + End Sub + End Class + + ''' + _ + Partial Public Class ReadHistoryAnomalyMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private readModeField As Integer + + Private recNumField As UInteger + + ''' + _ + Public Property ReadMode() As Integer + Get + Return Me.readModeField + End Get + Set + Me.readModeField = value + Me.RaisePropertyChanged("ReadMode") + End Set + End Property + + ''' + _ + Public Property RecNum() As UInteger + Get + Return Me.recNumField + End Get + Set + Me.recNumField = value + Me.RaisePropertyChanged("RecNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadHistoryAnomalyMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private dataField As MSGANOMALY + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Data() As MSGANOMALY + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadHistoryAnomalyMsgRequest + + _ + Public ReadHistoryAnomalyMsg As OpenControl.ReadHistoryAnomalyMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadHistoryAnomalyMsg As OpenControl.ReadHistoryAnomalyMsg) + MyBase.New + Me.ReadHistoryAnomalyMsg = ReadHistoryAnomalyMsg + End Sub + End Class + + _ + Partial Public Class ReadHistoryAnomalyMsgResponse + + _ + Public ReadHistoryAnomalyMsgR As OpenControl.ReadHistoryAnomalyMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadHistoryAnomalyMsgR As OpenControl.ReadHistoryAnomalyMsgR) + MyBase.New + Me.ReadHistoryAnomalyMsgR = ReadHistoryAnomalyMsgR + End Sub + End Class + + ''' + _ + Partial Public Class ReadCurrentErrorMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private processField As UShort + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadCurrentErrorMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private dataField As MSGERROR + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Data() As MSGERROR + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadCurrentErrorMsgRequest + + _ + Public ReadCurrentErrorMsg As OpenControl.ReadCurrentErrorMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadCurrentErrorMsg As OpenControl.ReadCurrentErrorMsg) + MyBase.New + Me.ReadCurrentErrorMsg = ReadCurrentErrorMsg + End Sub + End Class + + _ + Partial Public Class ReadCurrentErrorMsgResponse + + _ + Public ReadCurrentErrorMsgR As OpenControl.ReadCurrentErrorMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadCurrentErrorMsgR As OpenControl.ReadCurrentErrorMsgR) + MyBase.New + Me.ReadCurrentErrorMsgR = ReadCurrentErrorMsgR + End Sub + End Class + + ''' + _ + Partial Public Class ReadCurrentEmergMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private processField As UShort + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadCurrentEmergMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private dataField As MSGEMERGENCY + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Data() As MSGEMERGENCY + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadCurrentEmergMsgRequest + + _ + Public ReadCurrentEmergMsg As OpenControl.ReadCurrentEmergMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadCurrentEmergMsg As OpenControl.ReadCurrentEmergMsg) + MyBase.New + Me.ReadCurrentEmergMsg = ReadCurrentEmergMsg + End Sub + End Class + + _ + Partial Public Class ReadCurrentEmergMsgResponse + + _ + Public ReadCurrentEmergMsgR As OpenControl.ReadCurrentEmergMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadCurrentEmergMsgR As OpenControl.ReadCurrentEmergMsgR) + MyBase.New + Me.ReadCurrentEmergMsgR = ReadCurrentEmergMsgR + End Sub + End Class + + ''' + _ + Partial Public Class ReadCurrentAnomalyMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadCurrentAnomalyMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private dataField As MSGANOMALY + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Data() As MSGANOMALY + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadCurrentAnomalyMsgRequest + + _ + Public ReadCurrentAnomalyMsg As OpenControl.ReadCurrentAnomalyMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadCurrentAnomalyMsg As OpenControl.ReadCurrentAnomalyMsg) + MyBase.New + Me.ReadCurrentAnomalyMsg = ReadCurrentAnomalyMsg + End Sub + End Class + + _ + Partial Public Class ReadCurrentAnomalyMsgResponse + + _ + Public ReadCurrentAnomalyMsgR As OpenControl.ReadCurrentAnomalyMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadCurrentAnomalyMsgR As OpenControl.ReadCurrentAnomalyMsgR) + MyBase.New + Me.ReadCurrentAnomalyMsgR = ReadCurrentAnomalyMsgR + End Sub + End Class + + ''' + _ + Partial Public Class GetPTechSizes + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private processField As UShort + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetPTechSizesR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private ind1Field As UShort + + Private ind2Field As UShort + + Private ind3Field As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Ind1() As UShort + Get + Return Me.ind1Field + End Get + Set + Me.ind1Field = value + Me.RaisePropertyChanged("Ind1") + End Set + End Property + + ''' + _ + Public Property Ind2() As UShort + Get + Return Me.ind2Field + End Get + Set + Me.ind2Field = value + Me.RaisePropertyChanged("Ind2") + End Set + End Property + + ''' + _ + Public Property Ind3() As UShort + Get + Return Me.ind3Field + End Get + Set + Me.ind3Field = value + Me.RaisePropertyChanged("Ind3") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetPTechSizesRequest + + _ + Public GetPTechSizes As OpenControl.GetPTechSizes + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetPTechSizes As OpenControl.GetPTechSizes) + MyBase.New + Me.GetPTechSizes = GetPTechSizes + End Sub + End Class + + _ + Partial Public Class GetPTechSizesResponse + + _ + Public GetPTechSizesR As OpenControl.GetPTechSizesR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetPTechSizesR As OpenControl.GetPTechSizesR) + MyBase.New + Me.GetPTechSizesR = GetPTechSizesR + End Sub + End Class + + ''' + _ + Partial Public Class LoadPTech + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private processField As UShort + + Private pPPathNameField As String + + Private writeModeField As UShort + + Private sheetField As UShort + + Private lineField As UShort + + Private columnField As UShort + + Private numVarField As UShort + + Private dataField() As Double + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property PPPathName() As String + Get + Return Me.pPPathNameField + End Get + Set + Me.pPPathNameField = value + Me.RaisePropertyChanged("PPPathName") + End Set + End Property + + ''' + _ + Public Property WriteMode() As UShort + Get + Return Me.writeModeField + End Get + Set + Me.writeModeField = value + Me.RaisePropertyChanged("WriteMode") + End Set + End Property + + ''' + _ + Public Property Sheet() As UShort + Get + Return Me.sheetField + End Get + Set + Me.sheetField = value + Me.RaisePropertyChanged("Sheet") + End Set + End Property + + ''' + _ + Public Property Line() As UShort + Get + Return Me.lineField + End Get + Set + Me.lineField = value + Me.RaisePropertyChanged("Line") + End Set + End Property + + ''' + _ + Public Property Column() As UShort + Get + Return Me.columnField + End Get + Set + Me.columnField = value + Me.RaisePropertyChanged("Column") + End Set + End Property + + ''' + _ + Public Property NumVar() As UShort + Get + Return Me.numVarField + End Get + Set + Me.numVarField = value + Me.RaisePropertyChanged("NumVar") + End Set + End Property + + ''' + _ + Public Property Data() As Double() + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LoadPTechR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LoadPTechRequest + + _ + Public LoadPTech As OpenControl.LoadPTech + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LoadPTech As OpenControl.LoadPTech) + MyBase.New + Me.LoadPTech = LoadPTech + End Sub + End Class + + _ + Partial Public Class LoadPTechResponse + + _ + Public LoadPTechR As OpenControl.LoadPTechR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LoadPTechR As OpenControl.LoadPTechR) + MyBase.New + Me.LoadPTechR = LoadPTechR + End Sub + End Class + + ''' + _ + Partial Public Class GetMarkerInfo + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private processField As UShort + + Private requestField As Byte + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Request() As Byte + Get + Return Me.requestField + End Get + Set + Me.requestField = value + Me.RaisePropertyChanged("Request") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetMarkerInfoR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private markerInfoField As MARKERINFO + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property MarkerInfo() As MARKERINFO + Get + Return Me.markerInfoField + End Get + Set + Me.markerInfoField = value + Me.RaisePropertyChanged("MarkerInfo") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetMarkerInfoRequest + + _ + Public GetMarkerInfo As OpenControl.GetMarkerInfo + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetMarkerInfo As OpenControl.GetMarkerInfo) + MyBase.New + Me.GetMarkerInfo = GetMarkerInfo + End Sub + End Class + + _ + Partial Public Class GetMarkerInfoResponse + + _ + Public GetMarkerInfoR As OpenControl.GetMarkerInfoR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetMarkerInfoR As OpenControl.GetMarkerInfoR) + MyBase.New + Me.GetMarkerInfoR = GetMarkerInfoR + End Sub + End Class + + ''' + _ + Partial Public Class ManagePartProgram + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private processField As UShort + + Private modeField As UShort + + Private pPPathField As String + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Mode() As UShort + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + ''' + _ + Public Property PPPath() As String + Get + Return Me.pPPathField + End Get + Set + Me.pPPathField = value + Me.RaisePropertyChanged("PPPath") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ManagePartProgramR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errStringField() As Byte + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrString() As Byte() + Get + Return Me.errStringField + End Get + Set + Me.errStringField = value + Me.RaisePropertyChanged("ErrString") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ManagePartProgramRequest + + _ + Public ManagePartProgram As OpenControl.ManagePartProgram + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ManagePartProgram As OpenControl.ManagePartProgram) + MyBase.New + Me.ManagePartProgram = ManagePartProgram + End Sub + End Class + + _ + Partial Public Class ManagePartProgramResponse + + _ + Public ManagePartProgramR As OpenControl.ManagePartProgramR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ManagePartProgramR As OpenControl.ManagePartProgramR) + MyBase.New + Me.ManagePartProgramR = ManagePartProgramR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSOpenFile + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + Private writeModeField As Boolean + + Private dOSDateLastWriteField As UShort + + Private dOSTimeLastWriteField As UShort + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property WriteMode() As Boolean + Get + Return Me.writeModeField + End Get + Set + Me.writeModeField = value + Me.RaisePropertyChanged("WriteMode") + End Set + End Property + + ''' + _ + Public Property DOSDateLastWrite() As UShort + Get + Return Me.dOSDateLastWriteField + End Get + Set + Me.dOSDateLastWriteField = value + Me.RaisePropertyChanged("DOSDateLastWrite") + End Set + End Property + + ''' + _ + Public Property DOSTimeLastWrite() As UShort + Get + Return Me.dOSTimeLastWriteField + End Get + Set + Me.dOSTimeLastWriteField = value + Me.RaisePropertyChanged("DOSTimeLastWrite") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSOpenFileR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private fileIDField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property FileID() As UShort + Get + Return Me.fileIDField + End Get + Set + Me.fileIDField = value + Me.RaisePropertyChanged("FileID") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSOpenFileRequest + + _ + Public LogFSOpenFile As OpenControl.LogFSOpenFile + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSOpenFile As OpenControl.LogFSOpenFile) + MyBase.New + Me.LogFSOpenFile = LogFSOpenFile + End Sub + End Class + + _ + Partial Public Class LogFSOpenFileResponse + + _ + Public LogFSOpenFileR As OpenControl.LogFSOpenFileR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSOpenFileR As OpenControl.LogFSOpenFileR) + MyBase.New + Me.LogFSOpenFileR = LogFSOpenFileR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSCloseFile + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private fileIDField As UShort + + Private transactionField As UShort + + ''' + _ + Public Property FileID() As UShort + Get + Return Me.fileIDField + End Get + Set + Me.fileIDField = value + Me.RaisePropertyChanged("FileID") + End Set + End Property + + ''' + _ + Public Property Transaction() As UShort + Get + Return Me.transactionField + End Get + Set + Me.transactionField = value + Me.RaisePropertyChanged("Transaction") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSCloseFileR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private fileIDField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property FileID() As UShort + Get + Return Me.fileIDField + End Get + Set + Me.fileIDField = value + Me.RaisePropertyChanged("FileID") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSCloseFileRequest + + _ + Public LogFSCloseFile As OpenControl.LogFSCloseFile + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSCloseFile As OpenControl.LogFSCloseFile) + MyBase.New + Me.LogFSCloseFile = LogFSCloseFile + End Sub + End Class + + _ + Partial Public Class LogFSCloseFileResponse + + _ + Public LogFSCloseFileR As OpenControl.LogFSCloseFileR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSCloseFileR As OpenControl.LogFSCloseFileR) + MyBase.New + Me.LogFSCloseFileR = LogFSCloseFileR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSWriteRecord + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private fileIDField As UShort + + Private transactionField As UShort + + Private recordLenField As UInteger + + Private recordField() As Byte + + ''' + _ + Public Property FileID() As UShort + Get + Return Me.fileIDField + End Get + Set + Me.fileIDField = value + Me.RaisePropertyChanged("FileID") + End Set + End Property + + ''' + _ + Public Property Transaction() As UShort + Get + Return Me.transactionField + End Get + Set + Me.transactionField = value + Me.RaisePropertyChanged("Transaction") + End Set + End Property + + ''' + _ + Public Property RecordLen() As UInteger + Get + Return Me.recordLenField + End Get + Set + Me.recordLenField = value + Me.RaisePropertyChanged("RecordLen") + End Set + End Property + + ''' + _ + Public Property Record() As Byte() + Get + Return Me.recordField + End Get + Set + Me.recordField = value + Me.RaisePropertyChanged("Record") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSWriteRecordR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSWriteRecordRequest + + _ + Public LogFSWriteRecord As OpenControl.LogFSWriteRecord + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSWriteRecord As OpenControl.LogFSWriteRecord) + MyBase.New + Me.LogFSWriteRecord = LogFSWriteRecord + End Sub + End Class + + _ + Partial Public Class LogFSWriteRecordResponse + + _ + Public LogFSWriteRecordR As OpenControl.LogFSWriteRecordR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSWriteRecordR As OpenControl.LogFSWriteRecordR) + MyBase.New + Me.LogFSWriteRecordR = LogFSWriteRecordR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSReadRecord + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private fileIDField As UShort + + Private transactionField As UShort + + Private recordLenField As UInteger + + ''' + _ + Public Property FileID() As UShort + Get + Return Me.fileIDField + End Get + Set + Me.fileIDField = value + Me.RaisePropertyChanged("FileID") + End Set + End Property + + ''' + _ + Public Property Transaction() As UShort + Get + Return Me.transactionField + End Get + Set + Me.transactionField = value + Me.RaisePropertyChanged("Transaction") + End Set + End Property + + ''' + _ + Public Property RecordLen() As UInteger + Get + Return Me.recordLenField + End Get + Set + Me.recordLenField = value + Me.RaisePropertyChanged("RecordLen") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSReadRecordR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private dataSizeField As UInteger + + Private recordField() As Byte + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property DataSize() As UInteger + Get + Return Me.dataSizeField + End Get + Set + Me.dataSizeField = value + Me.RaisePropertyChanged("DataSize") + End Set + End Property + + ''' + _ + Public Property Record() As Byte() + Get + Return Me.recordField + End Get + Set + Me.recordField = value + Me.RaisePropertyChanged("Record") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSReadRecordRequest + + _ + Public LogFSReadRecord As OpenControl.LogFSReadRecord + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSReadRecord As OpenControl.LogFSReadRecord) + MyBase.New + Me.LogFSReadRecord = LogFSReadRecord + End Sub + End Class + + _ + Partial Public Class LogFSReadRecordResponse + + _ + Public LogFSReadRecordR As OpenControl.LogFSReadRecordR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSReadRecordR As OpenControl.LogFSReadRecordR) + MyBase.New + Me.LogFSReadRecordR = LogFSReadRecordR + End Sub + End Class + + ''' + _ + Partial Public Class ReadRemapDefinitions + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private arraySizeField As Integer + + Private typeField As Integer + + ''' + _ + Public Property ArraySize() As Integer + Get + Return Me.arraySizeField + End Get + Set + Me.arraySizeField = value + Me.RaisePropertyChanged("ArraySize") + End Set + End Property + + ''' + _ + Public Property Type() As Integer + Get + Return Me.typeField + End Get + Set + Me.typeField = value + Me.RaisePropertyChanged("Type") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadRemapDefinitionsR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private arrayField() As REMAPDEF + + Private definitionsCntField As Integer + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Array() As REMAPDEF() + Get + Return Me.arrayField + End Get + Set + Me.arrayField = value + Me.RaisePropertyChanged("Array") + End Set + End Property + + ''' + _ + Public Property DefinitionsCnt() As Integer + Get + Return Me.definitionsCntField + End Get + Set + Me.definitionsCntField = value + Me.RaisePropertyChanged("DefinitionsCnt") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadRemapDefinitionsRequest + + _ + Public ReadRemapDefinitions As OpenControl.ReadRemapDefinitions + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadRemapDefinitions As OpenControl.ReadRemapDefinitions) + MyBase.New + Me.ReadRemapDefinitions = ReadRemapDefinitions + End Sub + End Class + + _ + Partial Public Class ReadRemapDefinitionsResponse + + _ + Public ReadRemapDefinitionsR As OpenControl.ReadRemapDefinitionsR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadRemapDefinitionsR As OpenControl.ReadRemapDefinitionsR) + MyBase.New + Me.ReadRemapDefinitionsR = ReadRemapDefinitionsR + End Sub + End Class + + ''' + _ + Partial Public Class WriteRemapDefinitions + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private arraySizeField As Integer + + Private arrayField() As REMAPDEF + + Private typeField As Integer + + Private modeField As Integer + + ''' + _ + Public Property ArraySize() As Integer + Get + Return Me.arraySizeField + End Get + Set + Me.arraySizeField = value + Me.RaisePropertyChanged("ArraySize") + End Set + End Property + + ''' + _ + Public Property Array() As REMAPDEF() + Get + Return Me.arrayField + End Get + Set + Me.arrayField = value + Me.RaisePropertyChanged("Array") + End Set + End Property + + ''' + _ + Public Property Type() As Integer + Get + Return Me.typeField + End Get + Set + Me.typeField = value + Me.RaisePropertyChanged("Type") + End Set + End Property + + ''' + _ + Public Property Mode() As Integer + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class WriteRemapDefinitionsR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class WriteRemapDefinitionsRequest + + _ + Public WriteRemapDefinitions As OpenControl.WriteRemapDefinitions + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteRemapDefinitions As OpenControl.WriteRemapDefinitions) + MyBase.New + Me.WriteRemapDefinitions = WriteRemapDefinitions + End Sub + End Class + + _ + Partial Public Class WriteRemapDefinitionsResponse + + _ + Public WriteRemapDefinitionsR As OpenControl.WriteRemapDefinitionsR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteRemapDefinitionsR As OpenControl.WriteRemapDefinitionsR) + MyBase.New + Me.WriteRemapDefinitionsR = WriteRemapDefinitionsR + End Sub + End Class + + ''' + _ + Partial Public Class GetServoPar + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private axisIdField As UShort + + Private parIdField As UShort + + ''' + _ + Public Property AxisId() As UShort + Get + Return Me.axisIdField + End Get + Set + Me.axisIdField = value + Me.RaisePropertyChanged("AxisId") + End Set + End Property + + ''' + _ + Public Property ParId() As UShort + Get + Return Me.parIdField + End Get + Set + Me.parIdField = value + Me.RaisePropertyChanged("ParId") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetServoParR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private valueField As Double + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Value() As Double + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetServoParRequest + + _ + Public GetServoPar As OpenControl.GetServoPar + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetServoPar As OpenControl.GetServoPar) + MyBase.New + Me.GetServoPar = GetServoPar + End Sub + End Class + + _ + Partial Public Class GetServoParResponse + + _ + Public GetServoParR As OpenControl.GetServoParR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetServoParR As OpenControl.GetServoParR) + MyBase.New + Me.GetServoParR = GetServoParR + End Sub + End Class + + ''' + _ + Partial Public Class SetServoPar + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private axisIdField As UShort + + Private parIdField As UShort + + Private valueField As Double + + ''' + _ + Public Property AxisId() As UShort + Get + Return Me.axisIdField + End Get + Set + Me.axisIdField = value + Me.RaisePropertyChanged("AxisId") + End Set + End Property + + ''' + _ + Public Property ParId() As UShort + Get + Return Me.parIdField + End Get + Set + Me.parIdField = value + Me.RaisePropertyChanged("ParId") + End Set + End Property + + ''' + _ + Public Property Value() As Double + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetServoParR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetServoParRequest + + _ + Public SetServoPar As OpenControl.SetServoPar + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetServoPar As OpenControl.SetServoPar) + MyBase.New + Me.SetServoPar = SetServoPar + End Sub + End Class + + _ + Partial Public Class SetServoParResponse + + _ + Public SetServoParR As OpenControl.SetServoParR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetServoParR As OpenControl.SetServoParR) + MyBase.New + Me.SetServoParR = SetServoParR + End Sub + End Class + + ''' + _ + Partial Public Class GetCNCRegKey + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private keyField As String + + Private subKeyField As String + + Private valueLenField As Integer + + ''' + _ + Public Property Key() As String + Get + Return Me.keyField + End Get + Set + Me.keyField = value + Me.RaisePropertyChanged("Key") + End Set + End Property + + ''' + _ + Public Property SubKey() As String + Get + Return Me.subKeyField + End Get + Set + Me.subKeyField = value + Me.RaisePropertyChanged("SubKey") + End Set + End Property + + ''' + _ + Public Property ValueLen() As Integer + Get + Return Me.valueLenField + End Get + Set + Me.valueLenField = value + Me.RaisePropertyChanged("ValueLen") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetCNCRegKeyR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private valueLenField As Integer + + Private valueField() As Byte + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ValueLen() As Integer + Get + Return Me.valueLenField + End Get + Set + Me.valueLenField = value + Me.RaisePropertyChanged("ValueLen") + End Set + End Property + + ''' + _ + Public Property Value() As Byte() + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetCNCRegKeyRequest + + _ + Public GetCNCRegKey As OpenControl.GetCNCRegKey + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCNCRegKey As OpenControl.GetCNCRegKey) + MyBase.New + Me.GetCNCRegKey = GetCNCRegKey + End Sub + End Class + + _ + Partial Public Class GetCNCRegKeyResponse + + _ + Public GetCNCRegKeyR As OpenControl.GetCNCRegKeyR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCNCRegKeyR As OpenControl.GetCNCRegKeyR) + MyBase.New + Me.GetCNCRegKeyR = GetCNCRegKeyR + End Sub + End Class + + ''' + _ + Partial Public Class SetIpAddress + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private ipAddressField As String + + Private subNetMaskField As String + + Private defaultGatewayField As String + + Private dnsField As String + + Private winsField As String + + Private netField As String + + ''' + _ + Public Property IpAddress() As String + Get + Return Me.ipAddressField + End Get + Set + Me.ipAddressField = value + Me.RaisePropertyChanged("IpAddress") + End Set + End Property + + ''' + _ + Public Property SubNetMask() As String + Get + Return Me.subNetMaskField + End Get + Set + Me.subNetMaskField = value + Me.RaisePropertyChanged("SubNetMask") + End Set + End Property + + ''' + _ + Public Property DefaultGateway() As String + Get + Return Me.defaultGatewayField + End Get + Set + Me.defaultGatewayField = value + Me.RaisePropertyChanged("DefaultGateway") + End Set + End Property + + ''' + _ + Public Property Dns() As String + Get + Return Me.dnsField + End Get + Set + Me.dnsField = value + Me.RaisePropertyChanged("Dns") + End Set + End Property + + ''' + _ + Public Property Wins() As String + Get + Return Me.winsField + End Get + Set + Me.winsField = value + Me.RaisePropertyChanged("Wins") + End Set + End Property + + ''' + _ + Public Property Net() As String + Get + Return Me.netField + End Get + Set + Me.netField = value + Me.RaisePropertyChanged("Net") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetIpAddressR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetIpAddressRequest + + _ + Public SetIpAddress As OpenControl.SetIpAddress + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetIpAddress As OpenControl.SetIpAddress) + MyBase.New + Me.SetIpAddress = SetIpAddress + End Sub + End Class + + _ + Partial Public Class SetIpAddressResponse + + _ + Public SetIpAddressR As OpenControl.SetIpAddressR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetIpAddressR As OpenControl.SetIpAddressR) + MyBase.New + Me.SetIpAddressR = SetIpAddressR + End Sub + End Class + + ''' + _ + Partial Public Class GetProcInInput + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private processField As UShort + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetProcInInputR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private procInfoField As INPUTINFO + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ProcInfo() As INPUTINFO + Get + Return Me.procInfoField + End Get + Set + Me.procInfoField = value + Me.RaisePropertyChanged("ProcInfo") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetProcInInputRequest + + _ + Public GetProcInInput As OpenControl.GetProcInInput + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcInInput As OpenControl.GetProcInInput) + MyBase.New + Me.GetProcInInput = GetProcInInput + End Sub + End Class + + _ + Partial Public Class GetProcInInputResponse + + _ + Public GetProcInInputR As OpenControl.GetProcInInputR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcInInputR As OpenControl.GetProcInInputR) + MyBase.New + Me.GetProcInInputR = GetProcInInputR + End Sub + End Class + + ''' + _ + Partial Public Class SndProcInpData + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private processField As UShort + + Private keyPressedField As UShort + + Private numDataField As UShort + + Private arDataField() As Byte + + Private arSizeField As UShort + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property keyPressed() As UShort + Get + Return Me.keyPressedField + End Get + Set + Me.keyPressedField = value + Me.RaisePropertyChanged("keyPressed") + End Set + End Property + + ''' + _ + Public Property numData() As UShort + Get + Return Me.numDataField + End Get + Set + Me.numDataField = value + Me.RaisePropertyChanged("numData") + End Set + End Property + + ''' + _ + Public Property arData() As Byte() + Get + Return Me.arDataField + End Get + Set + Me.arDataField = value + Me.RaisePropertyChanged("arData") + End Set + End Property + + ''' + _ + Public Property arSize() As UShort + Get + Return Me.arSizeField + End Get + Set + Me.arSizeField = value + Me.RaisePropertyChanged("arSize") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SndProcInpDataR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SndProcInpDataRequest + + _ + Public SndProcInpData As OpenControl.SndProcInpData + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SndProcInpData As OpenControl.SndProcInpData) + MyBase.New + Me.SndProcInpData = SndProcInpData + End Sub + End Class + + _ + Partial Public Class SndProcInpDataResponse + + _ + Public SndProcInpDataR As OpenControl.SndProcInpDataR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SndProcInpDataR As OpenControl.SndProcInpDataR) + MyBase.New + Me.SndProcInpDataR = SndProcInpDataR + End Sub + End Class + + _ + Public Interface OPENcontrolPortTypeChannel + Inherits OpenControl.OPENcontrolPortType, System.ServiceModel.IClientChannel + End Interface + + _ + Partial Public Class OPENcontrolPortTypeClient + Inherits System.ServiceModel.ClientBase(Of OpenControl.OPENcontrolPortType) + Implements OpenControl.OPENcontrolPortType + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal endpointConfigurationName As String) + MyBase.New(endpointConfigurationName) + End Sub + + Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As String) + MyBase.New(endpointConfigurationName, remoteAddress) + End Sub + + Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As System.ServiceModel.EndpointAddress) + MyBase.New(endpointConfigurationName, remoteAddress) + End Sub + + Public Sub New(ByVal binding As System.ServiceModel.Channels.Binding, ByVal remoteAddress As System.ServiceModel.EndpointAddress) + MyBase.New(binding, remoteAddress) + End Sub + + _ + Function OpenControl_OPENcontrolPortType_BootPhaseEnquiry(ByVal request As OpenControl.BootPhaseEnquiryRequest) As OpenControl.BootPhaseEnquiryResponse Implements OpenControl.OPENcontrolPortType.BootPhaseEnquiry + Return MyBase.Channel.BootPhaseEnquiry(request) + End Function + + Public Function BootPhaseEnquiry(ByVal BootPhaseEnquiry1 As OpenControl.BootPhaseEnquiry) As OpenControl.BootPhaseEnquiryR + Dim inValue As OpenControl.BootPhaseEnquiryRequest = New OpenControl.BootPhaseEnquiryRequest() + inValue.BootPhaseEnquiry = BootPhaseEnquiry1 + Dim retVal As OpenControl.BootPhaseEnquiryResponse = CType(Me,OpenControl.OPENcontrolPortType).BootPhaseEnquiry(inValue) + Return retVal.BootPhaseEnquiryR + End Function + + _ + Function OpenControl_OPENcontrolPortType_BootReboot(ByVal request As OpenControl.BootRebootRequest) As OpenControl.BootRebootResponse Implements OpenControl.OPENcontrolPortType.BootReboot + Return MyBase.Channel.BootReboot(request) + End Function + + Public Function BootReboot(ByVal BootReboot1 As OpenControl.BootReboot) As OpenControl.BootRebootR + Dim inValue As OpenControl.BootRebootRequest = New OpenControl.BootRebootRequest() + inValue.BootReboot = BootReboot1 + Dim retVal As OpenControl.BootRebootResponse = CType(Me,OpenControl.OPENcontrolPortType).BootReboot(inValue) + Return retVal.BootRebootR + End Function + + _ + Function OpenControl_OPENcontrolPortType_BootShutDown(ByVal request As OpenControl.BootShutDownRequest) As OpenControl.BootShutDownResponse Implements OpenControl.OPENcontrolPortType.BootShutDown + Return MyBase.Channel.BootShutDown(request) + End Function + + Public Function BootShutDown(ByVal BootShutDown1 As OpenControl.BootShutDown) As OpenControl.BootShutDownR + Dim inValue As OpenControl.BootShutDownRequest = New OpenControl.BootShutDownRequest() + inValue.BootShutDown = BootShutDown1 + Dim retVal As OpenControl.BootShutDownResponse = CType(Me,OpenControl.OPENcontrolPortType).BootShutDown(inValue) + Return retVal.BootShutDownR + End Function + + _ + Function OpenControl_OPENcontrolPortType_BootMode(ByVal request As OpenControl.BootModeRequest) As OpenControl.BootModeResponse Implements OpenControl.OPENcontrolPortType.BootMode + Return MyBase.Channel.BootMode(request) + End Function + + Public Function BootMode(ByVal BootMode1 As OpenControl.BootMode) As OpenControl.BootModeR + Dim inValue As OpenControl.BootModeRequest = New OpenControl.BootModeRequest() + inValue.BootMode = BootMode1 + Dim retVal As OpenControl.BootModeResponse = CType(Me,OpenControl.OPENcontrolPortType).BootMode(inValue) + Return retVal.BootModeR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetHWKey(ByVal request As OpenControl.GetHWKeyRequest) As OpenControl.GetHWKeyResponse Implements OpenControl.OPENcontrolPortType.GetHWKey + Return MyBase.Channel.GetHWKey(request) + End Function + + Public Function GetHWKey(ByVal GetHWKey1 As OpenControl.GetHWKey) As OpenControl.GetHWKeyR + Dim inValue As OpenControl.GetHWKeyRequest = New OpenControl.GetHWKeyRequest() + inValue.GetHWKey = GetHWKey1 + Dim retVal As OpenControl.GetHWKeyResponse = CType(Me,OpenControl.OPENcontrolPortType).GetHWKey(inValue) + Return retVal.GetHWKeyR + End Function + + _ + Function OpenControl_OPENcontrolPortType_ReadVarWord(ByVal request As OpenControl.ReadVarWordRequest) As OpenControl.ReadVarWordResponse Implements OpenControl.OPENcontrolPortType.ReadVarWord + Return MyBase.Channel.ReadVarWord(request) + End Function + + Public Function ReadVarWord(ByVal ReadVarWord1 As OpenControl.ReadVarWord) As OpenControl.ReadVarWordR + Dim inValue As OpenControl.ReadVarWordRequest = New OpenControl.ReadVarWordRequest() + inValue.ReadVarWord = ReadVarWord1 + Dim retVal As OpenControl.ReadVarWordResponse = CType(Me,OpenControl.OPENcontrolPortType).ReadVarWord(inValue) + Return retVal.ReadVarWordR + End Function + + _ + Function OpenControl_OPENcontrolPortType_ReadVarDouble(ByVal request As OpenControl.ReadVarDoubleRequest) As OpenControl.ReadVarDoubleResponse Implements OpenControl.OPENcontrolPortType.ReadVarDouble + Return MyBase.Channel.ReadVarDouble(request) + End Function + + Public Function ReadVarDouble(ByVal ReadVarDouble1 As OpenControl.ReadVarDouble) As OpenControl.ReadVarDoubleR + Dim inValue As OpenControl.ReadVarDoubleRequest = New OpenControl.ReadVarDoubleRequest() + inValue.ReadVarDouble = ReadVarDouble1 + Dim retVal As OpenControl.ReadVarDoubleResponse = CType(Me,OpenControl.OPENcontrolPortType).ReadVarDouble(inValue) + Return retVal.ReadVarDoubleR + End Function + + _ + Function OpenControl_OPENcontrolPortType_WriteVarWord(ByVal request As OpenControl.WriteVarWordRequest) As OpenControl.WriteVarWordResponse Implements OpenControl.OPENcontrolPortType.WriteVarWord + Return MyBase.Channel.WriteVarWord(request) + End Function + + Public Function WriteVarWord(ByVal WriteVarWord1 As OpenControl.WriteVarWord) As OpenControl.WriteVarWordR + Dim inValue As OpenControl.WriteVarWordRequest = New OpenControl.WriteVarWordRequest() + inValue.WriteVarWord = WriteVarWord1 + Dim retVal As OpenControl.WriteVarWordResponse = CType(Me,OpenControl.OPENcontrolPortType).WriteVarWord(inValue) + Return retVal.WriteVarWordR + End Function + + _ + Function OpenControl_OPENcontrolPortType_WriteVarWordBit(ByVal request As OpenControl.WriteVarWordBitRequest) As OpenControl.WriteVarWordBitResponse Implements OpenControl.OPENcontrolPortType.WriteVarWordBit + Return MyBase.Channel.WriteVarWordBit(request) + End Function + + Public Function WriteVarWordBit(ByVal WriteVarWordBit1 As OpenControl.WriteVarWordBit) As OpenControl.WriteVarWordBitR + Dim inValue As OpenControl.WriteVarWordBitRequest = New OpenControl.WriteVarWordBitRequest() + inValue.WriteVarWordBit = WriteVarWordBit1 + Dim retVal As OpenControl.WriteVarWordBitResponse = CType(Me,OpenControl.OPENcontrolPortType).WriteVarWordBit(inValue) + Return retVal.WriteVarWordBitR + End Function + + _ + Function OpenControl_OPENcontrolPortType_WriteVarDouble(ByVal request As OpenControl.WriteVarDoubleRequest) As OpenControl.WriteVarDoubleResponse Implements OpenControl.OPENcontrolPortType.WriteVarDouble + Return MyBase.Channel.WriteVarDouble(request) + End Function + + Public Function WriteVarDouble(ByVal WriteVarDouble1 As OpenControl.WriteVarDouble) As OpenControl.WriteVarDoubleR + Dim inValue As OpenControl.WriteVarDoubleRequest = New OpenControl.WriteVarDoubleRequest() + inValue.WriteVarDouble = WriteVarDouble1 + Dim retVal As OpenControl.WriteVarDoubleResponse = CType(Me,OpenControl.OPENcontrolPortType).WriteVarDouble(inValue) + Return retVal.WriteVarDoubleR + End Function + + _ + Function OpenControl_OPENcontrolPortType_ReadVarText(ByVal request As OpenControl.ReadVarTextRequest) As OpenControl.ReadVarTextResponse Implements OpenControl.OPENcontrolPortType.ReadVarText + Return MyBase.Channel.ReadVarText(request) + End Function + + Public Function ReadVarText(ByVal ReadVarText1 As OpenControl.ReadVarText) As OpenControl.ReadVarTextR + Dim inValue As OpenControl.ReadVarTextRequest = New OpenControl.ReadVarTextRequest() + inValue.ReadVarText = ReadVarText1 + Dim retVal As OpenControl.ReadVarTextResponse = CType(Me,OpenControl.OPENcontrolPortType).ReadVarText(inValue) + Return retVal.ReadVarTextR + End Function + + _ + Function OpenControl_OPENcontrolPortType_WriteVarText(ByVal request As OpenControl.WriteVarTextRequest) As OpenControl.WriteVarTextResponse Implements OpenControl.OPENcontrolPortType.WriteVarText + Return MyBase.Channel.WriteVarText(request) + End Function + + Public Function WriteVarText(ByVal WriteVarText1 As OpenControl.WriteVarText) As OpenControl.WriteVarTextR + Dim inValue As OpenControl.WriteVarTextRequest = New OpenControl.WriteVarTextRequest() + inValue.WriteVarText = WriteVarText1 + Dim retVal As OpenControl.WriteVarTextResponse = CType(Me,OpenControl.OPENcontrolPortType).WriteVarText(inValue) + Return retVal.WriteVarTextR + End Function + + _ + Function OpenControl_OPENcontrolPortType_ReadWarningMsg(ByVal request As OpenControl.ReadWarningMsgRequest) As OpenControl.ReadWarningMsgResponse Implements OpenControl.OPENcontrolPortType.ReadWarningMsg + Return MyBase.Channel.ReadWarningMsg(request) + End Function + + Public Function ReadWarningMsg(ByVal ReadWarningMsg1 As OpenControl.ReadWarningMsg) As OpenControl.ReadWarningMsgR + Dim inValue As OpenControl.ReadWarningMsgRequest = New OpenControl.ReadWarningMsgRequest() + inValue.ReadWarningMsg = ReadWarningMsg1 + Dim retVal As OpenControl.ReadWarningMsgResponse = CType(Me,OpenControl.OPENcontrolPortType).ReadWarningMsg(inValue) + Return retVal.ReadWarningMsgR + End Function + + _ + Function OpenControl_OPENcontrolPortType_ResetSingleTableII(ByVal request As OpenControl.ResetSingleTableIIRequest) As OpenControl.ResetSingleTableIIResponse Implements OpenControl.OPENcontrolPortType.ResetSingleTableII + Return MyBase.Channel.ResetSingleTableII(request) + End Function + + Public Function ResetSingleTableII(ByVal ResetSingleTableII1 As OpenControl.ResetSingleTableII) As OpenControl.ResetSingleTableIIR + Dim inValue As OpenControl.ResetSingleTableIIRequest = New OpenControl.ResetSingleTableIIRequest() + inValue.ResetSingleTableII = ResetSingleTableII1 + Dim retVal As OpenControl.ResetSingleTableIIResponse = CType(Me,OpenControl.OPENcontrolPortType).ResetSingleTableII(inValue) + Return retVal.ResetSingleTableIIR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LockTableII(ByVal request As OpenControl.LockTableIIRequest) As OpenControl.LockTableIIResponse Implements OpenControl.OPENcontrolPortType.LockTableII + Return MyBase.Channel.LockTableII(request) + End Function + + Public Function LockTableII(ByVal LockTableII1 As OpenControl.LockTableII) As OpenControl.LockTableIIR + Dim inValue As OpenControl.LockTableIIRequest = New OpenControl.LockTableIIRequest() + inValue.LockTableII = LockTableII1 + Dim retVal As OpenControl.LockTableIIResponse = CType(Me,OpenControl.OPENcontrolPortType).LockTableII(inValue) + Return retVal.LockTableIIR + End Function + + _ + Function OpenControl_OPENcontrolPortType_UnLockTableII(ByVal request As OpenControl.UnLockTableIIRequest) As OpenControl.UnLockTableIIResponse Implements OpenControl.OPENcontrolPortType.UnLockTableII + Return MyBase.Channel.UnLockTableII(request) + End Function + + Public Function UnLockTableII(ByVal UnLockTableII1 As OpenControl.UnLockTableII) As OpenControl.UnLockTableIIR + Dim inValue As OpenControl.UnLockTableIIRequest = New OpenControl.UnLockTableIIRequest() + inValue.UnLockTableII = UnLockTableII1 + Dim retVal As OpenControl.UnLockTableIIResponse = CType(Me,OpenControl.OPENcontrolPortType).UnLockTableII(inValue) + Return retVal.UnLockTableIIR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetOriginTabRecordII(ByVal request As OpenControl.GetOriginTabRecordIIRequest) As OpenControl.GetOriginTabRecordIIResponse Implements OpenControl.OPENcontrolPortType.GetOriginTabRecordII + Return MyBase.Channel.GetOriginTabRecordII(request) + End Function + + Public Function GetOriginTabRecordII(ByVal GetOriginTabRecordII1 As OpenControl.GetOriginTabRecordII) As OpenControl.GetOriginTabRecordIIR + Dim inValue As OpenControl.GetOriginTabRecordIIRequest = New OpenControl.GetOriginTabRecordIIRequest() + inValue.GetOriginTabRecordII = GetOriginTabRecordII1 + Dim retVal As OpenControl.GetOriginTabRecordIIResponse = CType(Me,OpenControl.OPENcontrolPortType).GetOriginTabRecordII(inValue) + Return retVal.GetOriginTabRecordIIR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SetOriginTabRecordII(ByVal request As OpenControl.SetOriginTabRecordIIRequest) As OpenControl.SetOriginTabRecordIIResponse Implements OpenControl.OPENcontrolPortType.SetOriginTabRecordII + Return MyBase.Channel.SetOriginTabRecordII(request) + End Function + + Public Function SetOriginTabRecordII(ByVal SetOriginTabRecordII1 As OpenControl.SetOriginTabRecordII) As OpenControl.SetOriginTabRecordIIR + Dim inValue As OpenControl.SetOriginTabRecordIIRequest = New OpenControl.SetOriginTabRecordIIRequest() + inValue.SetOriginTabRecordII = SetOriginTabRecordII1 + Dim retVal As OpenControl.SetOriginTabRecordIIResponse = CType(Me,OpenControl.OPENcontrolPortType).SetOriginTabRecordII(inValue) + Return retVal.SetOriginTabRecordIIR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetToolTabRecordII(ByVal request As OpenControl.GetToolTabRecordIIRequest) As OpenControl.GetToolTabRecordIIResponse Implements OpenControl.OPENcontrolPortType.GetToolTabRecordII + Return MyBase.Channel.GetToolTabRecordII(request) + End Function + + Public Function GetToolTabRecordII(ByVal GetToolTabRecordII1 As OpenControl.GetToolTabRecordII) As OpenControl.GetToolTabRecordIIR + Dim inValue As OpenControl.GetToolTabRecordIIRequest = New OpenControl.GetToolTabRecordIIRequest() + inValue.GetToolTabRecordII = GetToolTabRecordII1 + Dim retVal As OpenControl.GetToolTabRecordIIResponse = CType(Me,OpenControl.OPENcontrolPortType).GetToolTabRecordII(inValue) + Return retVal.GetToolTabRecordIIR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SetToolTabRecordII(ByVal request As OpenControl.SetToolTabRecordIIRequest) As OpenControl.SetToolTabRecordIIResponse Implements OpenControl.OPENcontrolPortType.SetToolTabRecordII + Return MyBase.Channel.SetToolTabRecordII(request) + End Function + + Public Function SetToolTabRecordII(ByVal SetToolTabRecordII1 As OpenControl.SetToolTabRecordII) As OpenControl.SetToolTabRecordIIR + Dim inValue As OpenControl.SetToolTabRecordIIRequest = New OpenControl.SetToolTabRecordIIRequest() + inValue.SetToolTabRecordII = SetToolTabRecordII1 + Dim retVal As OpenControl.SetToolTabRecordIIResponse = CType(Me,OpenControl.OPENcontrolPortType).SetToolTabRecordII(inValue) + Return retVal.SetToolTabRecordIIR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetOffsetTabRecordII(ByVal request As OpenControl.GetOffsetTabRecordIIRequest) As OpenControl.GetOffsetTabRecordIIResponse Implements OpenControl.OPENcontrolPortType.GetOffsetTabRecordII + Return MyBase.Channel.GetOffsetTabRecordII(request) + End Function + + Public Function GetOffsetTabRecordII(ByVal GetOffsetTabRecordII1 As OpenControl.GetOffsetTabRecordII) As OpenControl.GetOffsetTabRecordIIR + Dim inValue As OpenControl.GetOffsetTabRecordIIRequest = New OpenControl.GetOffsetTabRecordIIRequest() + inValue.GetOffsetTabRecordII = GetOffsetTabRecordII1 + Dim retVal As OpenControl.GetOffsetTabRecordIIResponse = CType(Me,OpenControl.OPENcontrolPortType).GetOffsetTabRecordII(inValue) + Return retVal.GetOffsetTabRecordIIR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SetOffsetTabRecordII(ByVal request As OpenControl.SetOffsetTabRecordIIRequest) As OpenControl.SetOffsetTabRecordIIResponse Implements OpenControl.OPENcontrolPortType.SetOffsetTabRecordII + Return MyBase.Channel.SetOffsetTabRecordII(request) + End Function + + Public Function SetOffsetTabRecordII(ByVal SetOffsetTabRecordII1 As OpenControl.SetOffsetTabRecordII) As OpenControl.SetOffsetTabRecordIIR + Dim inValue As OpenControl.SetOffsetTabRecordIIRequest = New OpenControl.SetOffsetTabRecordIIRequest() + inValue.SetOffsetTabRecordII = SetOffsetTabRecordII1 + Dim retVal As OpenControl.SetOffsetTabRecordIIResponse = CType(Me,OpenControl.OPENcontrolPortType).SetOffsetTabRecordII(inValue) + Return retVal.SetOffsetTabRecordIIR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetUserTabRecordII(ByVal request As OpenControl.GetUserTabRecordIIRequest) As OpenControl.GetUserTabRecordIIResponse Implements OpenControl.OPENcontrolPortType.GetUserTabRecordII + Return MyBase.Channel.GetUserTabRecordII(request) + End Function + + Public Function GetUserTabRecordII(ByVal GetUserTabRecordII1 As OpenControl.GetUserTabRecordII) As OpenControl.GetUserTabRecordIIR + Dim inValue As OpenControl.GetUserTabRecordIIRequest = New OpenControl.GetUserTabRecordIIRequest() + inValue.GetUserTabRecordII = GetUserTabRecordII1 + Dim retVal As OpenControl.GetUserTabRecordIIResponse = CType(Me,OpenControl.OPENcontrolPortType).GetUserTabRecordII(inValue) + Return retVal.GetUserTabRecordIIR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SetUserTabRecordII(ByVal request As OpenControl.SetUserTabRecordIIRequest) As OpenControl.SetUserTabRecordIIResponse Implements OpenControl.OPENcontrolPortType.SetUserTabRecordII + Return MyBase.Channel.SetUserTabRecordII(request) + End Function + + Public Function SetUserTabRecordII(ByVal SetUserTabRecordII1 As OpenControl.SetUserTabRecordII) As OpenControl.SetUserTabRecordIIR + Dim inValue As OpenControl.SetUserTabRecordIIRequest = New OpenControl.SetUserTabRecordIIRequest() + inValue.SetUserTabRecordII = SetUserTabRecordII1 + Dim retVal As OpenControl.SetUserTabRecordIIResponse = CType(Me,OpenControl.OPENcontrolPortType).SetUserTabRecordII(inValue) + Return retVal.SetUserTabRecordIIR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SaveTables(ByVal request As OpenControl.SaveTablesRequest) As OpenControl.SaveTablesResponse Implements OpenControl.OPENcontrolPortType.SaveTables + Return MyBase.Channel.SaveTables(request) + End Function + + Public Function SaveTables(ByVal SaveTables1 As OpenControl.SaveTables) As OpenControl.SaveTablesR + Dim inValue As OpenControl.SaveTablesRequest = New OpenControl.SaveTablesRequest() + inValue.SaveTables = SaveTables1 + Dim retVal As OpenControl.SaveTablesResponse = CType(Me,OpenControl.OPENcontrolPortType).SaveTables(inValue) + Return retVal.SaveTablesR + End Function + + _ + Function OpenControl_OPENcontrolPortType_RestoreSingleTable(ByVal request As OpenControl.RestoreSingleTableRequest) As OpenControl.RestoreSingleTableResponse Implements OpenControl.OPENcontrolPortType.RestoreSingleTable + Return MyBase.Channel.RestoreSingleTable(request) + End Function + + Public Function RestoreSingleTable(ByVal RestoreSingleTable1 As OpenControl.RestoreSingleTable) As OpenControl.RestoreSingleTableR + Dim inValue As OpenControl.RestoreSingleTableRequest = New OpenControl.RestoreSingleTableRequest() + inValue.RestoreSingleTable = RestoreSingleTable1 + Dim retVal As OpenControl.RestoreSingleTableResponse = CType(Me,OpenControl.OPENcontrolPortType).RestoreSingleTable(inValue) + Return retVal.RestoreSingleTableR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SaveSingleTable(ByVal request As OpenControl.SaveSingleTableRequest) As OpenControl.SaveSingleTableResponse Implements OpenControl.OPENcontrolPortType.SaveSingleTable + Return MyBase.Channel.SaveSingleTable(request) + End Function + + Public Function SaveSingleTable(ByVal SaveSingleTable1 As OpenControl.SaveSingleTable) As OpenControl.SaveSingleTableR + Dim inValue As OpenControl.SaveSingleTableRequest = New OpenControl.SaveSingleTableRequest() + inValue.SaveSingleTable = SaveSingleTable1 + Dim retVal As OpenControl.SaveSingleTableResponse = CType(Me,OpenControl.OPENcontrolPortType).SaveSingleTable(inValue) + Return retVal.SaveSingleTableR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SaveBackupMemory(ByVal request As OpenControl.SaveBackupMemoryRequest) As OpenControl.SaveBackupMemoryResponse Implements OpenControl.OPENcontrolPortType.SaveBackupMemory + Return MyBase.Channel.SaveBackupMemory(request) + End Function + + Public Function SaveBackupMemory(ByVal SaveBackupMemory1 As OpenControl.SaveBackupMemory) As OpenControl.SaveBackupMemoryR + Dim inValue As OpenControl.SaveBackupMemoryRequest = New OpenControl.SaveBackupMemoryRequest() + inValue.SaveBackupMemory = SaveBackupMemory1 + Dim retVal As OpenControl.SaveBackupMemoryResponse = CType(Me,OpenControl.OPENcontrolPortType).SaveBackupMemory(inValue) + Return retVal.SaveBackupMemoryR + End Function + + _ + Function OpenControl_OPENcontrolPortType_RestoreBackupMemory(ByVal request As OpenControl.RestoreBackupMemoryRequest) As OpenControl.RestoreBackupMemoryResponse Implements OpenControl.OPENcontrolPortType.RestoreBackupMemory + Return MyBase.Channel.RestoreBackupMemory(request) + End Function + + Public Function RestoreBackupMemory(ByVal RestoreBackupMemory1 As OpenControl.RestoreBackupMemory) As OpenControl.RestoreBackupMemoryR + Dim inValue As OpenControl.RestoreBackupMemoryRequest = New OpenControl.RestoreBackupMemoryRequest() + inValue.RestoreBackupMemory = RestoreBackupMemory1 + Dim retVal As OpenControl.RestoreBackupMemoryResponse = CType(Me,OpenControl.OPENcontrolPortType).RestoreBackupMemory(inValue) + Return retVal.RestoreBackupMemoryR + End Function + + _ + Function OpenControl_OPENcontrolPortType_Cycle(ByVal request As OpenControl.CycleRequest) As OpenControl.CycleResponse Implements OpenControl.OPENcontrolPortType.Cycle + Return MyBase.Channel.Cycle(request) + End Function + + Public Function Cycle(ByVal Cycle1 As OpenControl.Cycle) As OpenControl.CycleR + Dim inValue As OpenControl.CycleRequest = New OpenControl.CycleRequest() + inValue.Cycle = Cycle1 + Dim retVal As OpenControl.CycleResponse = CType(Me,OpenControl.OPENcontrolPortType).Cycle(inValue) + Return retVal.CycleR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SyncroCycle(ByVal request As OpenControl.SyncroCycleRequest) As OpenControl.SyncroCycleResponse Implements OpenControl.OPENcontrolPortType.SyncroCycle + Return MyBase.Channel.SyncroCycle(request) + End Function + + Public Function SyncroCycle(ByVal SyncroCycle1 As OpenControl.SyncroCycle) As OpenControl.SyncroCycleR + Dim inValue As OpenControl.SyncroCycleRequest = New OpenControl.SyncroCycleRequest() + inValue.SyncroCycle = SyncroCycle1 + Dim retVal As OpenControl.SyncroCycleResponse = CType(Me,OpenControl.OPENcontrolPortType).SyncroCycle(inValue) + Return retVal.SyncroCycleR + End Function + + _ + Function OpenControl_OPENcontrolPortType_Reset(ByVal request As OpenControl.ResetRequest) As OpenControl.ResetResponse Implements OpenControl.OPENcontrolPortType.Reset + Return MyBase.Channel.Reset(request) + End Function + + Public Function Reset(ByVal Reset1 As OpenControl.Reset) As OpenControl.ResetR + Dim inValue As OpenControl.ResetRequest = New OpenControl.ResetRequest() + inValue.Reset = Reset1 + Dim retVal As OpenControl.ResetResponse = CType(Me,OpenControl.OPENcontrolPortType).Reset(inValue) + Return retVal.ResetR + End Function + + _ + Function OpenControl_OPENcontrolPortType_Hold(ByVal request As OpenControl.HoldRequest) As OpenControl.HoldResponse Implements OpenControl.OPENcontrolPortType.Hold + Return MyBase.Channel.Hold(request) + End Function + + Public Function Hold(ByVal Hold1 As OpenControl.Hold) As OpenControl.HoldR + Dim inValue As OpenControl.HoldRequest = New OpenControl.HoldRequest() + inValue.Hold = Hold1 + Dim retVal As OpenControl.HoldResponse = CType(Me,OpenControl.OPENcontrolPortType).Hold(inValue) + Return retVal.HoldR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SetFeedManOver(ByVal request As OpenControl.SetFeedManOverRequest) As OpenControl.SetFeedManOverResponse Implements OpenControl.OPENcontrolPortType.SetFeedManOver + Return MyBase.Channel.SetFeedManOver(request) + End Function + + Public Function SetFeedManOver(ByVal SetFeedManOver1 As OpenControl.SetFeedManOver) As OpenControl.SetFeedManOverR + Dim inValue As OpenControl.SetFeedManOverRequest = New OpenControl.SetFeedManOverRequest() + inValue.SetFeedManOver = SetFeedManOver1 + Dim retVal As OpenControl.SetFeedManOverResponse = CType(Me,OpenControl.OPENcontrolPortType).SetFeedManOver(inValue) + Return retVal.SetFeedManOverR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SetFeedRateOver(ByVal request As OpenControl.SetFeedRateOverRequest) As OpenControl.SetFeedRateOverResponse Implements OpenControl.OPENcontrolPortType.SetFeedRateOver + Return MyBase.Channel.SetFeedRateOver(request) + End Function + + Public Function SetFeedRateOver(ByVal SetFeedRateOver1 As OpenControl.SetFeedRateOver) As OpenControl.SetFeedRateOverR + Dim inValue As OpenControl.SetFeedRateOverRequest = New OpenControl.SetFeedRateOverRequest() + inValue.SetFeedRateOver = SetFeedRateOver1 + Dim retVal As OpenControl.SetFeedRateOverResponse = CType(Me,OpenControl.OPENcontrolPortType).SetFeedRateOver(inValue) + Return retVal.SetFeedRateOverR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SetFeedRapidOver(ByVal request As OpenControl.SetFeedRapidOverRequest) As OpenControl.SetFeedRapidOverResponse Implements OpenControl.OPENcontrolPortType.SetFeedRapidOver + Return MyBase.Channel.SetFeedRapidOver(request) + End Function + + Public Function SetFeedRapidOver(ByVal SetFeedRapidOver1 As OpenControl.SetFeedRapidOver) As OpenControl.SetFeedRapidOverR + Dim inValue As OpenControl.SetFeedRapidOverRequest = New OpenControl.SetFeedRapidOverRequest() + inValue.SetFeedRapidOver = SetFeedRapidOver1 + Dim retVal As OpenControl.SetFeedRapidOverResponse = CType(Me,OpenControl.OPENcontrolPortType).SetFeedRapidOver(inValue) + Return retVal.SetFeedRapidOverR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SetSpeedRateOver(ByVal request As OpenControl.SetSpeedRateOverRequest) As OpenControl.SetSpeedRateOverResponse Implements OpenControl.OPENcontrolPortType.SetSpeedRateOver + Return MyBase.Channel.SetSpeedRateOver(request) + End Function + + Public Function SetSpeedRateOver(ByVal SetSpeedRateOver1 As OpenControl.SetSpeedRateOver) As OpenControl.SetSpeedRateOverR + Dim inValue As OpenControl.SetSpeedRateOverRequest = New OpenControl.SetSpeedRateOverRequest() + inValue.SetSpeedRateOver = SetSpeedRateOver1 + Dim retVal As OpenControl.SetSpeedRateOverResponse = CType(Me,OpenControl.OPENcontrolPortType).SetSpeedRateOver(inValue) + Return retVal.SetSpeedRateOverR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SetManMovDirection(ByVal request As OpenControl.SetManMovDirectionRequest) As OpenControl.SetManMovDirectionResponse Implements OpenControl.OPENcontrolPortType.SetManMovDirection + Return MyBase.Channel.SetManMovDirection(request) + End Function + + Public Function SetManMovDirection(ByVal SetManMovDirection1 As OpenControl.SetManMovDirection) As OpenControl.SetManMovDirectionR + Dim inValue As OpenControl.SetManMovDirectionRequest = New OpenControl.SetManMovDirectionRequest() + inValue.SetManMovDirection = SetManMovDirection1 + Dim retVal As OpenControl.SetManMovDirectionResponse = CType(Me,OpenControl.OPENcontrolPortType).SetManMovDirection(inValue) + Return retVal.SetManMovDirectionR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetVarJOG(ByVal request As OpenControl.GetVarJOGRequest) As OpenControl.GetVarJOGResponse Implements OpenControl.OPENcontrolPortType.GetVarJOG + Return MyBase.Channel.GetVarJOG(request) + End Function + + Public Function GetVarJOG(ByVal GetVarJOG1 As OpenControl.GetVarJOG) As OpenControl.GetVarJOGR + Dim inValue As OpenControl.GetVarJOGRequest = New OpenControl.GetVarJOGRequest() + inValue.GetVarJOG = GetVarJOG1 + Dim retVal As OpenControl.GetVarJOGResponse = CType(Me,OpenControl.OPENcontrolPortType).GetVarJOG(inValue) + Return retVal.GetVarJOGR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SetVarJOG(ByVal request As OpenControl.SetVarJOGRequest) As OpenControl.SetVarJOGResponse Implements OpenControl.OPENcontrolPortType.SetVarJOG + Return MyBase.Channel.SetVarJOG(request) + End Function + + Public Function SetVarJOG(ByVal SetVarJOG1 As OpenControl.SetVarJOG) As OpenControl.SetVarJOGR + Dim inValue As OpenControl.SetVarJOGRequest = New OpenControl.SetVarJOGRequest() + inValue.SetVarJOG = SetVarJOG1 + Dim retVal As OpenControl.SetVarJOGResponse = CType(Me,OpenControl.OPENcontrolPortType).SetVarJOG(inValue) + Return retVal.SetVarJOGR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SetVarUAS(ByVal request As OpenControl.SetVarUASRequest) As OpenControl.SetVarUASResponse Implements OpenControl.OPENcontrolPortType.SetVarUAS + Return MyBase.Channel.SetVarUAS(request) + End Function + + Public Function SetVarUAS(ByVal SetVarUAS1 As OpenControl.SetVarUAS) As OpenControl.SetVarUASR + Dim inValue As OpenControl.SetVarUASRequest = New OpenControl.SetVarUASRequest() + inValue.SetVarUAS = SetVarUAS1 + Dim retVal As OpenControl.SetVarUASResponse = CType(Me,OpenControl.OPENcontrolPortType).SetVarUAS(inValue) + Return retVal.SetVarUASR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetVarRCM(ByVal request As OpenControl.GetVarRCMRequest) As OpenControl.GetVarRCMResponse Implements OpenControl.OPENcontrolPortType.GetVarRCM + Return MyBase.Channel.GetVarRCM(request) + End Function + + Public Function GetVarRCM(ByVal GetVarRCM1 As OpenControl.GetVarRCM) As OpenControl.GetVarRCMR + Dim inValue As OpenControl.GetVarRCMRequest = New OpenControl.GetVarRCMRequest() + inValue.GetVarRCM = GetVarRCM1 + Dim retVal As OpenControl.GetVarRCMResponse = CType(Me,OpenControl.OPENcontrolPortType).GetVarRCM(inValue) + Return retVal.GetVarRCMR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SetVarRCM(ByVal request As OpenControl.SetVarRCMRequest) As OpenControl.SetVarRCMResponse Implements OpenControl.OPENcontrolPortType.SetVarRCM + Return MyBase.Channel.SetVarRCM(request) + End Function + + Public Function SetVarRCM(ByVal SetVarRCM1 As OpenControl.SetVarRCM) As OpenControl.SetVarRCMR + Dim inValue As OpenControl.SetVarRCMRequest = New OpenControl.SetVarRCMRequest() + inValue.SetVarRCM = SetVarRCM1 + Dim retVal As OpenControl.SetVarRCMResponse = CType(Me,OpenControl.OPENcontrolPortType).SetVarRCM(inValue) + Return retVal.SetVarRCMR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetProcVarWord(ByVal request As OpenControl.GetProcVarWordRequest) As OpenControl.GetProcVarWordResponse Implements OpenControl.OPENcontrolPortType.GetProcVarWord + Return MyBase.Channel.GetProcVarWord(request) + End Function + + Public Function GetProcVarWord(ByVal GetProcVarWord1 As OpenControl.GetProcVarWord) As OpenControl.GetProcVarWordR + Dim inValue As OpenControl.GetProcVarWordRequest = New OpenControl.GetProcVarWordRequest() + inValue.GetProcVarWord = GetProcVarWord1 + Dim retVal As OpenControl.GetProcVarWordResponse = CType(Me,OpenControl.OPENcontrolPortType).GetProcVarWord(inValue) + Return retVal.GetProcVarWordR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SetProcVarWord(ByVal request As OpenControl.SetProcVarWordRequest) As OpenControl.SetProcVarWordResponse Implements OpenControl.OPENcontrolPortType.SetProcVarWord + Return MyBase.Channel.SetProcVarWord(request) + End Function + + Public Function SetProcVarWord(ByVal SetProcVarWord1 As OpenControl.SetProcVarWord) As OpenControl.SetProcVarWordR + Dim inValue As OpenControl.SetProcVarWordRequest = New OpenControl.SetProcVarWordRequest() + inValue.SetProcVarWord = SetProcVarWord1 + Dim retVal As OpenControl.SetProcVarWordResponse = CType(Me,OpenControl.OPENcontrolPortType).SetProcVarWord(inValue) + Return retVal.SetProcVarWordR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetProcVarDouble(ByVal request As OpenControl.GetProcVarDoubleRequest) As OpenControl.GetProcVarDoubleResponse Implements OpenControl.OPENcontrolPortType.GetProcVarDouble + Return MyBase.Channel.GetProcVarDouble(request) + End Function + + Public Function GetProcVarDouble(ByVal GetProcVarDouble1 As OpenControl.GetProcVarDouble) As OpenControl.GetProcVarDoubleR + Dim inValue As OpenControl.GetProcVarDoubleRequest = New OpenControl.GetProcVarDoubleRequest() + inValue.GetProcVarDouble = GetProcVarDouble1 + Dim retVal As OpenControl.GetProcVarDoubleResponse = CType(Me,OpenControl.OPENcontrolPortType).GetProcVarDouble(inValue) + Return retVal.GetProcVarDoubleR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SetProcVarDouble(ByVal request As OpenControl.SetProcVarDoubleRequest) As OpenControl.SetProcVarDoubleResponse Implements OpenControl.OPENcontrolPortType.SetProcVarDouble + Return MyBase.Channel.SetProcVarDouble(request) + End Function + + Public Function SetProcVarDouble(ByVal SetProcVarDouble1 As OpenControl.SetProcVarDouble) As OpenControl.SetProcVarDoubleR + Dim inValue As OpenControl.SetProcVarDoubleRequest = New OpenControl.SetProcVarDoubleRequest() + inValue.SetProcVarDouble = SetProcVarDouble1 + Dim retVal As OpenControl.SetProcVarDoubleResponse = CType(Me,OpenControl.OPENcontrolPortType).SetProcVarDouble(inValue) + Return retVal.SetProcVarDoubleR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SetMdiString(ByVal request As OpenControl.SetMdiStringRequest) As OpenControl.SetMdiStringResponse Implements OpenControl.OPENcontrolPortType.SetMdiString + Return MyBase.Channel.SetMdiString(request) + End Function + + Public Function SetMdiString(ByVal SetMdiString1 As OpenControl.SetMdiString) As OpenControl.SetMdiStringR + Dim inValue As OpenControl.SetMdiStringRequest = New OpenControl.SetMdiStringRequest() + inValue.SetMdiString = SetMdiString1 + Dim retVal As OpenControl.SetMdiStringResponse = CType(Me,OpenControl.OPENcontrolPortType).SetMdiString(inValue) + Return retVal.SetMdiStringR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SetProcessMode(ByVal request As OpenControl.SetProcessModeRequest) As OpenControl.SetProcessModeResponse Implements OpenControl.OPENcontrolPortType.SetProcessMode + Return MyBase.Channel.SetProcessMode(request) + End Function + + Public Function SetProcessMode(ByVal SetProcessMode1 As OpenControl.SetProcessMode) As OpenControl.SetProcessModeR + Dim inValue As OpenControl.SetProcessModeRequest = New OpenControl.SetProcessModeRequest() + inValue.SetProcessMode = SetProcessMode1 + Dim retVal As OpenControl.SetProcessModeResponse = CType(Me,OpenControl.OPENcontrolPortType).SetProcessMode(inValue) + Return retVal.SetProcessModeR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SelectProcess(ByVal request As OpenControl.SelectProcessRequest) As OpenControl.SelectProcessResponse Implements OpenControl.OPENcontrolPortType.SelectProcess + Return MyBase.Channel.SelectProcess(request) + End Function + + Public Function SelectProcess(ByVal SelectProcess1 As OpenControl.SelectProcess) As OpenControl.SelectProcessR + Dim inValue As OpenControl.SelectProcessRequest = New OpenControl.SelectProcessRequest() + inValue.SelectProcess = SelectProcess1 + Dim retVal As OpenControl.SelectProcessResponse = CType(Me,OpenControl.OPENcontrolPortType).SelectProcess(inValue) + Return retVal.SelectProcessR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetSelectedProcess(ByVal request As OpenControl.GetSelectedProcessRequest) As OpenControl.GetSelectedProcessResponse Implements OpenControl.OPENcontrolPortType.GetSelectedProcess + Return MyBase.Channel.GetSelectedProcess(request) + End Function + + Public Function GetSelectedProcess(ByVal GetSelectedProcess1 As OpenControl.GetSelectedProcess) As OpenControl.GetSelectedProcessR + Dim inValue As OpenControl.GetSelectedProcessRequest = New OpenControl.GetSelectedProcessRequest() + inValue.GetSelectedProcess = GetSelectedProcess1 + Dim retVal As OpenControl.GetSelectedProcessResponse = CType(Me,OpenControl.OPENcontrolPortType).GetSelectedProcess(inValue) + Return retVal.GetSelectedProcessR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SelectProcAxis(ByVal request As OpenControl.SelectProcAxisRequest) As OpenControl.SelectProcAxisResponse Implements OpenControl.OPENcontrolPortType.SelectProcAxis + Return MyBase.Channel.SelectProcAxis(request) + End Function + + Public Function SelectProcAxis(ByVal SelectProcAxis1 As OpenControl.SelectProcAxis) As OpenControl.SelectProcAxisR + Dim inValue As OpenControl.SelectProcAxisRequest = New OpenControl.SelectProcAxisRequest() + inValue.SelectProcAxis = SelectProcAxis1 + Dim retVal As OpenControl.SelectProcAxisResponse = CType(Me,OpenControl.OPENcontrolPortType).SelectProcAxis(inValue) + Return retVal.SelectProcAxisR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SelectPartProgram(ByVal request As OpenControl.SelectPartProgramRequest) As OpenControl.SelectPartProgramResponse Implements OpenControl.OPENcontrolPortType.SelectPartProgram + Return MyBase.Channel.SelectPartProgram(request) + End Function + + Public Function SelectPartProgram(ByVal SelectPartProgram1 As OpenControl.SelectPartProgram) As OpenControl.SelectPartProgramR + Dim inValue As OpenControl.SelectPartProgramRequest = New OpenControl.SelectPartProgramRequest() + inValue.SelectPartProgram = SelectPartProgram1 + Dim retVal As OpenControl.SelectPartProgramResponse = CType(Me,OpenControl.OPENcontrolPortType).SelectPartProgram(inValue) + Return retVal.SelectPartProgramR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SelectPartProgramFromDrive(ByVal request As OpenControl.SelectPartProgramFromDriveRequest) As OpenControl.SelectPartProgramFromDriveResponse Implements OpenControl.OPENcontrolPortType.SelectPartProgramFromDrive + Return MyBase.Channel.SelectPartProgramFromDrive(request) + End Function + + Public Function SelectPartProgramFromDrive(ByVal SelectPartProgramFromDrive1 As OpenControl.SelectPartProgramFromDrive) As OpenControl.SelectPartProgramFromDriveR + Dim inValue As OpenControl.SelectPartProgramFromDriveRequest = New OpenControl.SelectPartProgramFromDriveRequest() + inValue.SelectPartProgramFromDrive = SelectPartProgramFromDrive1 + Dim retVal As OpenControl.SelectPartProgramFromDriveResponse = CType(Me,OpenControl.OPENcontrolPortType).SelectPartProgramFromDrive(inValue) + Return retVal.SelectPartProgramFromDriveR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetActivePartProgram(ByVal request As OpenControl.GetActivePartProgramRequest) As OpenControl.GetActivePartProgramResponse Implements OpenControl.OPENcontrolPortType.GetActivePartProgram + Return MyBase.Channel.GetActivePartProgram(request) + End Function + + Public Function GetActivePartProgram(ByVal GetActivePartProgram1 As OpenControl.GetActivePartProgram) As OpenControl.GetActivePartProgramR + Dim inValue As OpenControl.GetActivePartProgramRequest = New OpenControl.GetActivePartProgramRequest() + inValue.GetActivePartProgram = GetActivePartProgram1 + Dim retVal As OpenControl.GetActivePartProgramResponse = CType(Me,OpenControl.OPENcontrolPortType).GetActivePartProgram(inValue) + Return retVal.GetActivePartProgramR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetPartProgramLines(ByVal request As OpenControl.GetPartProgramLinesRequest) As OpenControl.GetPartProgramLinesResponse Implements OpenControl.OPENcontrolPortType.GetPartProgramLines + Return MyBase.Channel.GetPartProgramLines(request) + End Function + + Public Function GetPartProgramLines(ByVal GetPartProgramLines1 As OpenControl.GetPartProgramLines) As OpenControl.GetPartProgramLinesR + Dim inValue As OpenControl.GetPartProgramLinesRequest = New OpenControl.GetPartProgramLinesRequest() + inValue.GetPartProgramLines = GetPartProgramLines1 + Dim retVal As OpenControl.GetPartProgramLinesResponse = CType(Me,OpenControl.OPENcontrolPortType).GetPartProgramLines(inValue) + Return retVal.GetPartProgramLinesR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetAxOriginNum(ByVal request As OpenControl.GetAxOriginNumRequest) As OpenControl.GetAxOriginNumResponse Implements OpenControl.OPENcontrolPortType.GetAxOriginNum + Return MyBase.Channel.GetAxOriginNum(request) + End Function + + Public Function GetAxOriginNum(ByVal GetAxOriginNum1 As OpenControl.GetAxOriginNum) As OpenControl.GetAxOriginNumR + Dim inValue As OpenControl.GetAxOriginNumRequest = New OpenControl.GetAxOriginNumRequest() + inValue.GetAxOriginNum = GetAxOriginNum1 + Dim retVal As OpenControl.GetAxOriginNumResponse = CType(Me,OpenControl.OPENcontrolPortType).GetAxOriginNum(inValue) + Return retVal.GetAxOriginNumR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetAxesPosition(ByVal request As OpenControl.GetAxesPositionRequest) As OpenControl.GetAxesPositionResponse Implements OpenControl.OPENcontrolPortType.GetAxesPosition + Return MyBase.Channel.GetAxesPosition(request) + End Function + + Public Function GetAxesPosition(ByVal GetAxesPosition1 As OpenControl.GetAxesPosition) As OpenControl.GetAxesPositionR + Dim inValue As OpenControl.GetAxesPositionRequest = New OpenControl.GetAxesPositionRequest() + inValue.GetAxesPosition = GetAxesPosition1 + Dim retVal As OpenControl.GetAxesPositionResponse = CType(Me,OpenControl.OPENcontrolPortType).GetAxesPosition(inValue) + Return retVal.GetAxesPositionR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetNcInfo1(ByVal request As OpenControl.GetNcInfo1Request) As OpenControl.GetNcInfo1Response Implements OpenControl.OPENcontrolPortType.GetNcInfo1 + Return MyBase.Channel.GetNcInfo1(request) + End Function + + Public Function GetNcInfo1(ByVal GetNcInfo11 As OpenControl.GetNcInfo1) As OpenControl.GetNcInfo1R + Dim inValue As OpenControl.GetNcInfo1Request = New OpenControl.GetNcInfo1Request() + inValue.GetNcInfo1 = GetNcInfo11 + Dim retVal As OpenControl.GetNcInfo1Response = CType(Me,OpenControl.OPENcontrolPortType).GetNcInfo1(inValue) + Return retVal.GetNcInfo1R + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetNcInfo2(ByVal request As OpenControl.GetNcInfo2Request) As OpenControl.GetNcInfo2Response Implements OpenControl.OPENcontrolPortType.GetNcInfo2 + Return MyBase.Channel.GetNcInfo2(request) + End Function + + Public Function GetNcInfo2(ByVal GetNcInfo21 As OpenControl.GetNcInfo2) As OpenControl.GetNcInfo2R + Dim inValue As OpenControl.GetNcInfo2Request = New OpenControl.GetNcInfo2Request() + inValue.GetNcInfo2 = GetNcInfo21 + Dim retVal As OpenControl.GetNcInfo2Response = CType(Me,OpenControl.OPENcontrolPortType).GetNcInfo2(inValue) + Return retVal.GetNcInfo2R + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetToolNames(ByVal request As OpenControl.GetToolNamesRequest) As OpenControl.GetToolNamesResponse Implements OpenControl.OPENcontrolPortType.GetToolNames + Return MyBase.Channel.GetToolNames(request) + End Function + + Public Function GetToolNames(ByVal GetToolNames1 As OpenControl.GetToolNames) As OpenControl.GetToolNamesR + Dim inValue As OpenControl.GetToolNamesRequest = New OpenControl.GetToolNamesRequest() + inValue.GetToolNames = GetToolNames1 + Dim retVal As OpenControl.GetToolNamesResponse = CType(Me,OpenControl.OPENcontrolPortType).GetToolNames(inValue) + Return retVal.GetToolNamesR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetProcessStatus(ByVal request As OpenControl.GetProcessStatusRequest) As OpenControl.GetProcessStatusResponse Implements OpenControl.OPENcontrolPortType.GetProcessStatus + Return MyBase.Channel.GetProcessStatus(request) + End Function + + Public Function GetProcessStatus(ByVal GetProcessStatus1 As OpenControl.GetProcessStatus) As OpenControl.GetProcessStatusR + Dim inValue As OpenControl.GetProcessStatusRequest = New OpenControl.GetProcessStatusRequest() + inValue.GetProcessStatus = GetProcessStatus1 + Dim retVal As OpenControl.GetProcessStatusResponse = CType(Me,OpenControl.OPENcontrolPortType).GetProcessStatus(inValue) + Return retVal.GetProcessStatusR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetBlkNum(ByVal request As OpenControl.GetBlkNumRequest) As OpenControl.GetBlkNumResponse Implements OpenControl.OPENcontrolPortType.GetBlkNum + Return MyBase.Channel.GetBlkNum(request) + End Function + + Public Function GetBlkNum(ByVal GetBlkNum1 As OpenControl.GetBlkNum) As OpenControl.GetBlkNumR + Dim inValue As OpenControl.GetBlkNumRequest = New OpenControl.GetBlkNumRequest() + inValue.GetBlkNum = GetBlkNum1 + Dim retVal As OpenControl.GetBlkNumResponse = CType(Me,OpenControl.OPENcontrolPortType).GetBlkNum(inValue) + Return retVal.GetBlkNumR + End Function + + _ + Function OpenControl_OPENcontrolPortType_ReadErrMsg(ByVal request As OpenControl.ReadErrMsgRequest) As OpenControl.ReadErrMsgResponse Implements OpenControl.OPENcontrolPortType.ReadErrMsg + Return MyBase.Channel.ReadErrMsg(request) + End Function + + Public Function ReadErrMsg(ByVal ReadErrMsg1 As OpenControl.ReadErrMsg) As OpenControl.ReadErrMsgR + Dim inValue As OpenControl.ReadErrMsgRequest = New OpenControl.ReadErrMsgRequest() + inValue.ReadErrMsg = ReadErrMsg1 + Dim retVal As OpenControl.ReadErrMsgResponse = CType(Me,OpenControl.OPENcontrolPortType).ReadErrMsg(inValue) + Return retVal.ReadErrMsgR + End Function + + _ + Function OpenControl_OPENcontrolPortType_ReadPartProgramMsg(ByVal request As OpenControl.ReadPartProgramMsgRequest) As OpenControl.ReadPartProgramMsgResponse Implements OpenControl.OPENcontrolPortType.ReadPartProgramMsg + Return MyBase.Channel.ReadPartProgramMsg(request) + End Function + + Public Function ReadPartProgramMsg(ByVal ReadPartProgramMsg1 As OpenControl.ReadPartProgramMsg) As OpenControl.ReadPartProgramMsgR + Dim inValue As OpenControl.ReadPartProgramMsgRequest = New OpenControl.ReadPartProgramMsgRequest() + inValue.ReadPartProgramMsg = ReadPartProgramMsg1 + Dim retVal As OpenControl.ReadPartProgramMsgResponse = CType(Me,OpenControl.OPENcontrolPortType).ReadPartProgramMsg(inValue) + Return retVal.ReadPartProgramMsgR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetGCode(ByVal request As OpenControl.GetGCodeRequest) As OpenControl.GetGCodeResponse Implements OpenControl.OPENcontrolPortType.GetGCode + Return MyBase.Channel.GetGCode(request) + End Function + + Public Function GetGCode(ByVal GetGCode1 As OpenControl.GetGCode) As OpenControl.GetGCodeR + Dim inValue As OpenControl.GetGCodeRequest = New OpenControl.GetGCodeRequest() + inValue.GetGCode = GetGCode1 + Dim retVal As OpenControl.GetGCodeResponse = CType(Me,OpenControl.OPENcontrolPortType).GetGCode(inValue) + Return retVal.GetGCodeR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetMCode(ByVal request As OpenControl.GetMCodeRequest) As OpenControl.GetMCodeResponse Implements OpenControl.OPENcontrolPortType.GetMCode + Return MyBase.Channel.GetMCode(request) + End Function + + Public Function GetMCode(ByVal GetMCode1 As OpenControl.GetMCode) As OpenControl.GetMCodeR + Dim inValue As OpenControl.GetMCodeRequest = New OpenControl.GetMCodeRequest() + inValue.GetMCode = GetMCode1 + Dim retVal As OpenControl.GetMCodeResponse = CType(Me,OpenControl.OPENcontrolPortType).GetMCode(inValue) + Return retVal.GetMCodeR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SkipPProgBlock(ByVal request As OpenControl.SkipPProgBlockRequest) As OpenControl.SkipPProgBlockResponse Implements OpenControl.OPENcontrolPortType.SkipPProgBlock + Return MyBase.Channel.SkipPProgBlock(request) + End Function + + Public Function SkipPProgBlock(ByVal SkipPProgBlock1 As OpenControl.SkipPProgBlock) As OpenControl.SkipPProgBlockR + Dim inValue As OpenControl.SkipPProgBlockRequest = New OpenControl.SkipPProgBlockRequest() + inValue.SkipPProgBlock = SkipPProgBlock1 + Dim retVal As OpenControl.SkipPProgBlockResponse = CType(Me,OpenControl.OPENcontrolPortType).SkipPProgBlock(inValue) + Return retVal.SkipPProgBlockR + End Function + + _ + Function OpenControl_OPENcontrolPortType_Ese(ByVal request As OpenControl.EseRequest) As OpenControl.EseResponse Implements OpenControl.OPENcontrolPortType.Ese + Return MyBase.Channel.Ese(request) + End Function + + Public Function Ese(ByVal Ese1 As OpenControl.Ese) As OpenControl.EseR + Dim inValue As OpenControl.EseRequest = New OpenControl.EseRequest() + inValue.Ese = Ese1 + Dim retVal As OpenControl.EseResponse = CType(Me,OpenControl.OPENcontrolPortType).Ese(inValue) + Return retVal.EseR + End Function + + _ + Function OpenControl_OPENcontrolPortType_EseEx(ByVal request As OpenControl.EseExRequest) As OpenControl.EseExResponse Implements OpenControl.OPENcontrolPortType.EseEx + Return MyBase.Channel.EseEx(request) + End Function + + Public Function EseEx(ByVal EseEx1 As OpenControl.EseEx) As OpenControl.EseExR + Dim inValue As OpenControl.EseExRequest = New OpenControl.EseExRequest() + inValue.EseEx = EseEx1 + Dim retVal As OpenControl.EseExResponse = CType(Me,OpenControl.OPENcontrolPortType).EseEx(inValue) + Return retVal.EseExR + End Function + + _ + Function OpenControl_OPENcontrolPortType_Exe(ByVal request As OpenControl.ExeRequest) As OpenControl.ExeResponse Implements OpenControl.OPENcontrolPortType.Exe + Return MyBase.Channel.Exe(request) + End Function + + Public Function Exe(ByVal Exe1 As OpenControl.Exe) As OpenControl.ExeR + Dim inValue As OpenControl.ExeRequest = New OpenControl.ExeRequest() + inValue.Exe = Exe1 + Dim retVal As OpenControl.ExeResponse = CType(Me,OpenControl.OPENcontrolPortType).Exe(inValue) + Return retVal.ExeR + End Function + + _ + Function OpenControl_OPENcontrolPortType_AxesRef(ByVal request As OpenControl.AxesRefRequest) As OpenControl.AxesRefResponse Implements OpenControl.OPENcontrolPortType.AxesRef + Return MyBase.Channel.AxesRef(request) + End Function + + Public Function AxesRef(ByVal AxesRef1 As OpenControl.AxesRef) As OpenControl.AxesRefR + Dim inValue As OpenControl.AxesRefRequest = New OpenControl.AxesRefRequest() + inValue.AxesRef = AxesRef1 + Dim retVal As OpenControl.AxesRefResponse = CType(Me,OpenControl.OPENcontrolPortType).AxesRef(inValue) + Return retVal.AxesRefR + End Function + + _ + Function OpenControl_OPENcontrolPortType_DncInit(ByVal request As OpenControl.DncInitRequest) As OpenControl.DncInitResponse Implements OpenControl.OPENcontrolPortType.DncInit + Return MyBase.Channel.DncInit(request) + End Function + + Public Function DncInit(ByVal DncInit1 As OpenControl.DncInit) As OpenControl.DncInitR + Dim inValue As OpenControl.DncInitRequest = New OpenControl.DncInitRequest() + inValue.DncInit = DncInit1 + Dim retVal As OpenControl.DncInitResponse = CType(Me,OpenControl.OPENcontrolPortType).DncInit(inValue) + Return retVal.DncInitR + End Function + + _ + Function OpenControl_OPENcontrolPortType_DncData(ByVal request As OpenControl.DncDataRequest) As OpenControl.DncDataResponse Implements OpenControl.OPENcontrolPortType.DncData + Return MyBase.Channel.DncData(request) + End Function + + Public Function DncData(ByVal DncData1 As OpenControl.DncData) As OpenControl.DncDataR + Dim inValue As OpenControl.DncDataRequest = New OpenControl.DncDataRequest() + inValue.DncData = DncData1 + Dim retVal As OpenControl.DncDataResponse = CType(Me,OpenControl.OPENcontrolPortType).DncData(inValue) + Return retVal.DncDataR + End Function + + _ + Function OpenControl_OPENcontrolPortType_DncEof(ByVal request As OpenControl.DncEofRequest) As OpenControl.DncEofResponse Implements OpenControl.OPENcontrolPortType.DncEof + Return MyBase.Channel.DncEof(request) + End Function + + Public Function DncEof(ByVal DncEof1 As OpenControl.DncEof) As OpenControl.DncEofR + Dim inValue As OpenControl.DncEofRequest = New OpenControl.DncEofRequest() + inValue.DncEof = DncEof1 + Dim retVal As OpenControl.DncEofResponse = CType(Me,OpenControl.OPENcontrolPortType).DncEof(inValue) + Return retVal.DncEofR + End Function + + _ + Function OpenControl_OPENcontrolPortType_DncStop(ByVal request As OpenControl.DncStopRequest) As OpenControl.DncStopResponse Implements OpenControl.OPENcontrolPortType.DncStop + Return MyBase.Channel.DncStop(request) + End Function + + Public Function DncStop(ByVal DncStop1 As OpenControl.DncStop) As OpenControl.DncStopR + Dim inValue As OpenControl.DncStopRequest = New OpenControl.DncStopRequest() + inValue.DncStop = DncStop1 + Dim retVal As OpenControl.DncStopResponse = CType(Me,OpenControl.OPENcontrolPortType).DncStop(inValue) + Return retVal.DncStopR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetAxesInfo3(ByVal request As OpenControl.GetAxesInfo3Request) As OpenControl.GetAxesInfo3Response Implements OpenControl.OPENcontrolPortType.GetAxesInfo3 + Return MyBase.Channel.GetAxesInfo3(request) + End Function + + Public Function GetAxesInfo3(ByVal GetAxesInfo31 As OpenControl.GetAxesInfo3) As OpenControl.GetAxesInfo3R + Dim inValue As OpenControl.GetAxesInfo3Request = New OpenControl.GetAxesInfo3Request() + inValue.GetAxesInfo3 = GetAxesInfo31 + Dim retVal As OpenControl.GetAxesInfo3Response = CType(Me,OpenControl.OPENcontrolPortType).GetAxesInfo3(inValue) + Return retVal.GetAxesInfo3R + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetCodeNumber(ByVal request As OpenControl.GetCodeNumberRequest) As OpenControl.GetCodeNumberResponse Implements OpenControl.OPENcontrolPortType.GetCodeNumber + Return MyBase.Channel.GetCodeNumber(request) + End Function + + Public Function GetCodeNumber(ByVal GetCodeNumber1 As OpenControl.GetCodeNumber) As OpenControl.GetCodeNumberR + Dim inValue As OpenControl.GetCodeNumberRequest = New OpenControl.GetCodeNumberRequest() + inValue.GetCodeNumber = GetCodeNumber1 + Dim retVal As OpenControl.GetCodeNumberResponse = CType(Me,OpenControl.OPENcontrolPortType).GetCodeNumber(inValue) + Return retVal.GetCodeNumberR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetOptions(ByVal request As OpenControl.GetOptionsRequest) As OpenControl.GetOptionsResponse Implements OpenControl.OPENcontrolPortType.GetOptions + Return MyBase.Channel.GetOptions(request) + End Function + + Public Function GetOptions(ByVal GetOptions1 As OpenControl.GetOptions) As OpenControl.GetOptionsR + Dim inValue As OpenControl.GetOptionsRequest = New OpenControl.GetOptionsRequest() + inValue.GetOptions = GetOptions1 + Dim retVal As OpenControl.GetOptionsResponse = CType(Me,OpenControl.OPENcontrolPortType).GetOptions(inValue) + Return retVal.GetOptionsR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetDateTime(ByVal request As OpenControl.GetDateTimeRequest) As OpenControl.GetDateTimeResponse Implements OpenControl.OPENcontrolPortType.GetDateTime + Return MyBase.Channel.GetDateTime(request) + End Function + + Public Function GetDateTime(ByVal GetDateTime1 As OpenControl.GetDateTime) As OpenControl.GetDateTimeR + Dim inValue As OpenControl.GetDateTimeRequest = New OpenControl.GetDateTimeRequest() + inValue.GetDateTime = GetDateTime1 + Dim retVal As OpenControl.GetDateTimeResponse = CType(Me,OpenControl.OPENcontrolPortType).GetDateTime(inValue) + Return retVal.GetDateTimeR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SetDateTime(ByVal request As OpenControl.SetDateTimeRequest) As OpenControl.SetDateTimeResponse Implements OpenControl.OPENcontrolPortType.SetDateTime + Return MyBase.Channel.SetDateTime(request) + End Function + + Public Function SetDateTime(ByVal SetDateTime1 As OpenControl.SetDateTime) As OpenControl.SetDateTimeR + Dim inValue As OpenControl.SetDateTimeRequest = New OpenControl.SetDateTimeRequest() + inValue.SetDateTime = SetDateTime1 + Dim retVal As OpenControl.SetDateTimeResponse = CType(Me,OpenControl.OPENcontrolPortType).SetDateTime(inValue) + Return retVal.SetDateTimeR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetSerialNumber(ByVal request As OpenControl.GetSerialNumberRequest) As OpenControl.GetSerialNumberResponse Implements OpenControl.OPENcontrolPortType.GetSerialNumber + Return MyBase.Channel.GetSerialNumber(request) + End Function + + Public Function GetSerialNumber(ByVal GetSerialNumber1 As OpenControl.GetSerialNumber) As OpenControl.GetSerialNumberR + Dim inValue As OpenControl.GetSerialNumberRequest = New OpenControl.GetSerialNumberRequest() + inValue.GetSerialNumber = GetSerialNumber1 + Dim retVal As OpenControl.GetSerialNumberResponse = CType(Me,OpenControl.OPENcontrolPortType).GetSerialNumber(inValue) + Return retVal.GetSerialNumberR + End Function + + _ + Function OpenControl_OPENcontrolPortType_PutFile(ByVal request As OpenControl.PutFileRequest) As OpenControl.PutFileResponse Implements OpenControl.OPENcontrolPortType.PutFile + Return MyBase.Channel.PutFile(request) + End Function + + Public Function PutFile(ByVal PutFile1 As OpenControl.PutFile) As OpenControl.PutFileR + Dim inValue As OpenControl.PutFileRequest = New OpenControl.PutFileRequest() + inValue.PutFile = PutFile1 + Dim retVal As OpenControl.PutFileResponse = CType(Me,OpenControl.OPENcontrolPortType).PutFile(inValue) + Return retVal.PutFileR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetFile(ByVal request As OpenControl.GetFileRequest) As OpenControl.GetFileResponse Implements OpenControl.OPENcontrolPortType.GetFile + Return MyBase.Channel.GetFile(request) + End Function + + Public Function GetFile(ByVal GetFile1 As OpenControl.GetFile) As OpenControl.GetFileR + Dim inValue As OpenControl.GetFileRequest = New OpenControl.GetFileRequest() + inValue.GetFile = GetFile1 + Dim retVal As OpenControl.GetFileResponse = CType(Me,OpenControl.OPENcontrolPortType).GetFile(inValue) + Return retVal.GetFileR + End Function + + _ + Function OpenControl_OPENcontrolPortType_PutBinaryFile(ByVal request As OpenControl.PutBinaryFileRequest) As OpenControl.PutBinaryFileResponse Implements OpenControl.OPENcontrolPortType.PutBinaryFile + Return MyBase.Channel.PutBinaryFile(request) + End Function + + Public Function PutBinaryFile(ByVal PutBinaryFile1 As OpenControl.PutBinaryFile) As OpenControl.PutBinaryFileR + Dim inValue As OpenControl.PutBinaryFileRequest = New OpenControl.PutBinaryFileRequest() + inValue.PutBinaryFile = PutBinaryFile1 + Dim retVal As OpenControl.PutBinaryFileResponse = CType(Me,OpenControl.OPENcontrolPortType).PutBinaryFile(inValue) + Return retVal.PutBinaryFileR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetBinaryFile(ByVal request As OpenControl.GetBinaryFileRequest) As OpenControl.GetBinaryFileResponse Implements OpenControl.OPENcontrolPortType.GetBinaryFile + Return MyBase.Channel.GetBinaryFile(request) + End Function + + Public Function GetBinaryFile(ByVal GetBinaryFile1 As OpenControl.GetBinaryFile) As OpenControl.GetBinaryFileR + Dim inValue As OpenControl.GetBinaryFileRequest = New OpenControl.GetBinaryFileRequest() + inValue.GetBinaryFile = GetBinaryFile1 + Dim retVal As OpenControl.GetBinaryFileResponse = CType(Me,OpenControl.OPENcontrolPortType).GetBinaryFile(inValue) + Return retVal.GetBinaryFileR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LogFSSetSecurityLevel(ByVal request As OpenControl.LogFSSetSecurityLevelRequest) As OpenControl.LogFSSetSecurityLevelResponse Implements OpenControl.OPENcontrolPortType.LogFSSetSecurityLevel + Return MyBase.Channel.LogFSSetSecurityLevel(request) + End Function + + Public Function LogFSSetSecurityLevel(ByVal LogFSSetSecurityLevel1 As OpenControl.LogFSSetSecurityLevel) As OpenControl.LogFSSetSecurityLevelR + Dim inValue As OpenControl.LogFSSetSecurityLevelRequest = New OpenControl.LogFSSetSecurityLevelRequest() + inValue.LogFSSetSecurityLevel = LogFSSetSecurityLevel1 + Dim retVal As OpenControl.LogFSSetSecurityLevelResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSSetSecurityLevel(inValue) + Return retVal.LogFSSetSecurityLevelR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LogFSGetSecurityLevel(ByVal request As OpenControl.LogFSGetSecurityLevelRequest) As OpenControl.LogFSGetSecurityLevelResponse Implements OpenControl.OPENcontrolPortType.LogFSGetSecurityLevel + Return MyBase.Channel.LogFSGetSecurityLevel(request) + End Function + + Public Function LogFSGetSecurityLevel(ByVal LogFSGetSecurityLevel1 As OpenControl.LogFSGetSecurityLevel) As OpenControl.LogFSGetSecurityLevelR + Dim inValue As OpenControl.LogFSGetSecurityLevelRequest = New OpenControl.LogFSGetSecurityLevelRequest() + inValue.LogFSGetSecurityLevel = LogFSGetSecurityLevel1 + Dim retVal As OpenControl.LogFSGetSecurityLevelResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSGetSecurityLevel(inValue) + Return retVal.LogFSGetSecurityLevelR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LogFSLongFileNames(ByVal request As OpenControl.LogFSLongFileNamesRequest) As OpenControl.LogFSLongFileNamesResponse Implements OpenControl.OPENcontrolPortType.LogFSLongFileNames + Return MyBase.Channel.LogFSLongFileNames(request) + End Function + + Public Function LogFSLongFileNames(ByVal LogFSLongFileNames1 As OpenControl.LogFSLongFileNames) As OpenControl.LogFSLongFileNamesR + Dim inValue As OpenControl.LogFSLongFileNamesRequest = New OpenControl.LogFSLongFileNamesRequest() + inValue.LogFSLongFileNames = LogFSLongFileNames1 + Dim retVal As OpenControl.LogFSLongFileNamesResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSLongFileNames(inValue) + Return retVal.LogFSLongFileNamesR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LogFSGetNumDrive(ByVal request As OpenControl.LogFSGetNumDriveRequest) As OpenControl.LogFSGetNumDriveResponse Implements OpenControl.OPENcontrolPortType.LogFSGetNumDrive + Return MyBase.Channel.LogFSGetNumDrive(request) + End Function + + Public Function LogFSGetNumDrive(ByVal LogFSGetNumDrive1 As OpenControl.LogFSGetNumDrive) As OpenControl.LogFSGetNumDriveR + Dim inValue As OpenControl.LogFSGetNumDriveRequest = New OpenControl.LogFSGetNumDriveRequest() + inValue.LogFSGetNumDrive = LogFSGetNumDrive1 + Dim retVal As OpenControl.LogFSGetNumDriveResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSGetNumDrive(inValue) + Return retVal.LogFSGetNumDriveR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LogFSGetDriveList(ByVal request As OpenControl.LogFSGetDriveListRequest) As OpenControl.LogFSGetDriveListResponse Implements OpenControl.OPENcontrolPortType.LogFSGetDriveList + Return MyBase.Channel.LogFSGetDriveList(request) + End Function + + Public Function LogFSGetDriveList(ByVal LogFSGetDriveList1 As OpenControl.LogFSGetDriveList) As OpenControl.LogFSGetDriveListR + Dim inValue As OpenControl.LogFSGetDriveListRequest = New OpenControl.LogFSGetDriveListRequest() + inValue.LogFSGetDriveList = LogFSGetDriveList1 + Dim retVal As OpenControl.LogFSGetDriveListResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSGetDriveList(inValue) + Return retVal.LogFSGetDriveListR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LogFSGetHiddenDriveList(ByVal request As OpenControl.LogFSGetHiddenDriveListRequest) As OpenControl.LogFSGetHiddenDriveListResponse Implements OpenControl.OPENcontrolPortType.LogFSGetHiddenDriveList + Return MyBase.Channel.LogFSGetHiddenDriveList(request) + End Function + + Public Function LogFSGetHiddenDriveList(ByVal LogFSGetHiddenDriveList1 As OpenControl.LogFSGetHiddenDriveList) As OpenControl.LogFSGetHiddenDriveListR + Dim inValue As OpenControl.LogFSGetHiddenDriveListRequest = New OpenControl.LogFSGetHiddenDriveListRequest() + inValue.LogFSGetHiddenDriveList = LogFSGetHiddenDriveList1 + Dim retVal As OpenControl.LogFSGetHiddenDriveListResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSGetHiddenDriveList(inValue) + Return retVal.LogFSGetHiddenDriveListR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LogFSGetDrivePath(ByVal request As OpenControl.LogFSGetDrivePathRequest) As OpenControl.LogFSGetDrivePathResponse Implements OpenControl.OPENcontrolPortType.LogFSGetDrivePath + Return MyBase.Channel.LogFSGetDrivePath(request) + End Function + + Public Function LogFSGetDrivePath(ByVal LogFSGetDrivePath1 As OpenControl.LogFSGetDrivePath) As OpenControl.LogFSGetDrivePathR + Dim inValue As OpenControl.LogFSGetDrivePathRequest = New OpenControl.LogFSGetDrivePathRequest() + inValue.LogFSGetDrivePath = LogFSGetDrivePath1 + Dim retVal As OpenControl.LogFSGetDrivePathResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSGetDrivePath(inValue) + Return retVal.LogFSGetDrivePathR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LogFSAddDrive(ByVal request As OpenControl.LogFSAddDriveRequest) As OpenControl.LogFSAddDriveResponse Implements OpenControl.OPENcontrolPortType.LogFSAddDrive + Return MyBase.Channel.LogFSAddDrive(request) + End Function + + Public Function LogFSAddDrive(ByVal LogFSAddDrive1 As OpenControl.LogFSAddDrive) As OpenControl.LogFSAddDriveR + Dim inValue As OpenControl.LogFSAddDriveRequest = New OpenControl.LogFSAddDriveRequest() + inValue.LogFSAddDrive = LogFSAddDrive1 + Dim retVal As OpenControl.LogFSAddDriveResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSAddDrive(inValue) + Return retVal.LogFSAddDriveR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LogFSRemoveDrive(ByVal request As OpenControl.LogFSRemoveDriveRequest) As OpenControl.LogFSRemoveDriveResponse Implements OpenControl.OPENcontrolPortType.LogFSRemoveDrive + Return MyBase.Channel.LogFSRemoveDrive(request) + End Function + + Public Function LogFSRemoveDrive(ByVal LogFSRemoveDrive1 As OpenControl.LogFSRemoveDrive) As OpenControl.LogFSRemoveDriveR + Dim inValue As OpenControl.LogFSRemoveDriveRequest = New OpenControl.LogFSRemoveDriveRequest() + inValue.LogFSRemoveDrive = LogFSRemoveDrive1 + Dim retVal As OpenControl.LogFSRemoveDriveResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSRemoveDrive(inValue) + Return retVal.LogFSRemoveDriveR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LogFSReloadDriveList(ByVal request As OpenControl.LogFSReloadDriveListRequest) As OpenControl.LogFSReloadDriveListResponse Implements OpenControl.OPENcontrolPortType.LogFSReloadDriveList + Return MyBase.Channel.LogFSReloadDriveList(request) + End Function + + Public Function LogFSReloadDriveList(ByVal LogFSReloadDriveList1 As OpenControl.LogFSReloadDriveList) As OpenControl.LogFSReloadDriveListR + Dim inValue As OpenControl.LogFSReloadDriveListRequest = New OpenControl.LogFSReloadDriveListRequest() + inValue.LogFSReloadDriveList = LogFSReloadDriveList1 + Dim retVal As OpenControl.LogFSReloadDriveListResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSReloadDriveList(inValue) + Return retVal.LogFSReloadDriveListR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LogFSCreateDir(ByVal request As OpenControl.LogFSCreateDirRequest) As OpenControl.LogFSCreateDirResponse Implements OpenControl.OPENcontrolPortType.LogFSCreateDir + Return MyBase.Channel.LogFSCreateDir(request) + End Function + + Public Function LogFSCreateDir(ByVal LogFSCreateDir1 As OpenControl.LogFSCreateDir) As OpenControl.LogFSCreateDirR + Dim inValue As OpenControl.LogFSCreateDirRequest = New OpenControl.LogFSCreateDirRequest() + inValue.LogFSCreateDir = LogFSCreateDir1 + Dim retVal As OpenControl.LogFSCreateDirResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSCreateDir(inValue) + Return retVal.LogFSCreateDirR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LogFSCreateFile(ByVal request As OpenControl.LogFSCreateFileRequest) As OpenControl.LogFSCreateFileResponse Implements OpenControl.OPENcontrolPortType.LogFSCreateFile + Return MyBase.Channel.LogFSCreateFile(request) + End Function + + Public Function LogFSCreateFile(ByVal LogFSCreateFile1 As OpenControl.LogFSCreateFile) As OpenControl.LogFSCreateFileR + Dim inValue As OpenControl.LogFSCreateFileRequest = New OpenControl.LogFSCreateFileRequest() + inValue.LogFSCreateFile = LogFSCreateFile1 + Dim retVal As OpenControl.LogFSCreateFileResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSCreateFile(inValue) + Return retVal.LogFSCreateFileR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LogFSGetFileSize(ByVal request As OpenControl.LogFSGetFileSizeRequest) As OpenControl.LogFSGetFileSizeResponse Implements OpenControl.OPENcontrolPortType.LogFSGetFileSize + Return MyBase.Channel.LogFSGetFileSize(request) + End Function + + Public Function LogFSGetFileSize(ByVal LogFSGetFileSize1 As OpenControl.LogFSGetFileSize) As OpenControl.LogFSGetFileSizeR + Dim inValue As OpenControl.LogFSGetFileSizeRequest = New OpenControl.LogFSGetFileSizeRequest() + inValue.LogFSGetFileSize = LogFSGetFileSize1 + Dim retVal As OpenControl.LogFSGetFileSizeResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSGetFileSize(inValue) + Return retVal.LogFSGetFileSizeR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LogFSGetFileAttrib(ByVal request As OpenControl.LogFSGetFileAttribRequest) As OpenControl.LogFSGetFileAttribResponse Implements OpenControl.OPENcontrolPortType.LogFSGetFileAttrib + Return MyBase.Channel.LogFSGetFileAttrib(request) + End Function + + Public Function LogFSGetFileAttrib(ByVal LogFSGetFileAttrib1 As OpenControl.LogFSGetFileAttrib) As OpenControl.LogFSGetFileAttribR + Dim inValue As OpenControl.LogFSGetFileAttribRequest = New OpenControl.LogFSGetFileAttribRequest() + inValue.LogFSGetFileAttrib = LogFSGetFileAttrib1 + Dim retVal As OpenControl.LogFSGetFileAttribResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSGetFileAttrib(inValue) + Return retVal.LogFSGetFileAttribR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LogFSSetFileAttrib(ByVal request As OpenControl.LogFSSetFileAttribRequest) As OpenControl.LogFSSetFileAttribResponse Implements OpenControl.OPENcontrolPortType.LogFSSetFileAttrib + Return MyBase.Channel.LogFSSetFileAttrib(request) + End Function + + Public Function LogFSSetFileAttrib(ByVal LogFSSetFileAttrib1 As OpenControl.LogFSSetFileAttrib) As OpenControl.LogFSSetFileAttribR + Dim inValue As OpenControl.LogFSSetFileAttribRequest = New OpenControl.LogFSSetFileAttribRequest() + inValue.LogFSSetFileAttrib = LogFSSetFileAttrib1 + Dim retVal As OpenControl.LogFSSetFileAttribResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSSetFileAttrib(inValue) + Return retVal.LogFSSetFileAttribR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LogFSChangeFileAttrib(ByVal request As OpenControl.LogFSChangeFileAttribRequest) As OpenControl.LogFSChangeFileAttribResponse Implements OpenControl.OPENcontrolPortType.LogFSChangeFileAttrib + Return MyBase.Channel.LogFSChangeFileAttrib(request) + End Function + + Public Function LogFSChangeFileAttrib(ByVal LogFSChangeFileAttrib1 As OpenControl.LogFSChangeFileAttrib) As OpenControl.LogFSChangeFileAttribR + Dim inValue As OpenControl.LogFSChangeFileAttribRequest = New OpenControl.LogFSChangeFileAttribRequest() + inValue.LogFSChangeFileAttrib = LogFSChangeFileAttrib1 + Dim retVal As OpenControl.LogFSChangeFileAttribResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSChangeFileAttrib(inValue) + Return retVal.LogFSChangeFileAttribR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LogFSFindFirst(ByVal request As OpenControl.LogFSFindFirstRequest) As OpenControl.LogFSFindFirstResponse Implements OpenControl.OPENcontrolPortType.LogFSFindFirst + Return MyBase.Channel.LogFSFindFirst(request) + End Function + + Public Function LogFSFindFirst(ByVal LogFSFindFirst1 As OpenControl.LogFSFindFirst) As OpenControl.LogFSFindFirstR + Dim inValue As OpenControl.LogFSFindFirstRequest = New OpenControl.LogFSFindFirstRequest() + inValue.LogFSFindFirst = LogFSFindFirst1 + Dim retVal As OpenControl.LogFSFindFirstResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSFindFirst(inValue) + Return retVal.LogFSFindFirstR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LogFSFindNext(ByVal request As OpenControl.LogFSFindNextRequest) As OpenControl.LogFSFindNextResponse Implements OpenControl.OPENcontrolPortType.LogFSFindNext + Return MyBase.Channel.LogFSFindNext(request) + End Function + + Public Function LogFSFindNext(ByVal LogFSFindNext1 As OpenControl.LogFSFindNext) As OpenControl.LogFSFindNextR + Dim inValue As OpenControl.LogFSFindNextRequest = New OpenControl.LogFSFindNextRequest() + inValue.LogFSFindNext = LogFSFindNext1 + Dim retVal As OpenControl.LogFSFindNextResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSFindNext(inValue) + Return retVal.LogFSFindNextR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LogFSFindClose(ByVal request As OpenControl.LogFSFindCloseRequest) As OpenControl.LogFSFindCloseResponse Implements OpenControl.OPENcontrolPortType.LogFSFindClose + Return MyBase.Channel.LogFSFindClose(request) + End Function + + Public Function LogFSFindClose(ByVal LogFSFindClose1 As OpenControl.LogFSFindClose) As OpenControl.LogFSFindCloseR + Dim inValue As OpenControl.LogFSFindCloseRequest = New OpenControl.LogFSFindCloseRequest() + inValue.LogFSFindClose = LogFSFindClose1 + Dim retVal As OpenControl.LogFSFindCloseResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSFindClose(inValue) + Return retVal.LogFSFindCloseR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LogFSRemoveFile(ByVal request As OpenControl.LogFSRemoveFileRequest) As OpenControl.LogFSRemoveFileResponse Implements OpenControl.OPENcontrolPortType.LogFSRemoveFile + Return MyBase.Channel.LogFSRemoveFile(request) + End Function + + Public Function LogFSRemoveFile(ByVal LogFSRemoveFile1 As OpenControl.LogFSRemoveFile) As OpenControl.LogFSRemoveFileR + Dim inValue As OpenControl.LogFSRemoveFileRequest = New OpenControl.LogFSRemoveFileRequest() + inValue.LogFSRemoveFile = LogFSRemoveFile1 + Dim retVal As OpenControl.LogFSRemoveFileResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSRemoveFile(inValue) + Return retVal.LogFSRemoveFileR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LogFSRemoveDir(ByVal request As OpenControl.LogFSRemoveDirRequest) As OpenControl.LogFSRemoveDirResponse Implements OpenControl.OPENcontrolPortType.LogFSRemoveDir + Return MyBase.Channel.LogFSRemoveDir(request) + End Function + + Public Function LogFSRemoveDir(ByVal LogFSRemoveDir1 As OpenControl.LogFSRemoveDir) As OpenControl.LogFSRemoveDirR + Dim inValue As OpenControl.LogFSRemoveDirRequest = New OpenControl.LogFSRemoveDirRequest() + inValue.LogFSRemoveDir = LogFSRemoveDir1 + Dim retVal As OpenControl.LogFSRemoveDirResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSRemoveDir(inValue) + Return retVal.LogFSRemoveDirR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LogFSRename(ByVal request As OpenControl.LogFSRenameRequest) As OpenControl.LogFSRenameResponse Implements OpenControl.OPENcontrolPortType.LogFSRename + Return MyBase.Channel.LogFSRename(request) + End Function + + Public Function LogFSRename(ByVal LogFSRename1 As OpenControl.LogFSRename) As OpenControl.LogFSRenameR + Dim inValue As OpenControl.LogFSRenameRequest = New OpenControl.LogFSRenameRequest() + inValue.LogFSRename = LogFSRename1 + Dim retVal As OpenControl.LogFSRenameResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSRename(inValue) + Return retVal.LogFSRenameR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LogFSCopyFile(ByVal request As OpenControl.LogFSCopyFileRequest) As OpenControl.LogFSCopyFileResponse Implements OpenControl.OPENcontrolPortType.LogFSCopyFile + Return MyBase.Channel.LogFSCopyFile(request) + End Function + + Public Function LogFSCopyFile(ByVal LogFSCopyFile1 As OpenControl.LogFSCopyFile) As OpenControl.LogFSCopyFileR + Dim inValue As OpenControl.LogFSCopyFileRequest = New OpenControl.LogFSCopyFileRequest() + inValue.LogFSCopyFile = LogFSCopyFile1 + Dim retVal As OpenControl.LogFSCopyFileResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSCopyFile(inValue) + Return retVal.LogFSCopyFileR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LogFSGetInfo(ByVal request As OpenControl.LogFSGetInfoRequest) As OpenControl.LogFSGetInfoResponse Implements OpenControl.OPENcontrolPortType.LogFSGetInfo + Return MyBase.Channel.LogFSGetInfo(request) + End Function + + Public Function LogFSGetInfo(ByVal LogFSGetInfo1 As OpenControl.LogFSGetInfo) As OpenControl.LogFSGetInfoR + Dim inValue As OpenControl.LogFSGetInfoRequest = New OpenControl.LogFSGetInfoRequest() + inValue.LogFSGetInfo = LogFSGetInfo1 + Dim retVal As OpenControl.LogFSGetInfoResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSGetInfo(inValue) + Return retVal.LogFSGetInfoR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetAvailableCustomEvents(ByVal request As OpenControl.GetAvailableCustomEventsRequest) As OpenControl.GetAvailableCustomEventsResponse Implements OpenControl.OPENcontrolPortType.GetAvailableCustomEvents + Return MyBase.Channel.GetAvailableCustomEvents(request) + End Function + + Public Function GetAvailableCustomEvents(ByVal GetAvailableCustomEvents1 As OpenControl.GetAvailableCustomEvents) As OpenControl.GetAvailableCustomEventsR + Dim inValue As OpenControl.GetAvailableCustomEventsRequest = New OpenControl.GetAvailableCustomEventsRequest() + inValue.GetAvailableCustomEvents = GetAvailableCustomEvents1 + Dim retVal As OpenControl.GetAvailableCustomEventsResponse = CType(Me,OpenControl.OPENcontrolPortType).GetAvailableCustomEvents(inValue) + Return retVal.GetAvailableCustomEventsR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetSysTick(ByVal request As OpenControl.GetSysTickRequest) As OpenControl.GetSysTickResponse Implements OpenControl.OPENcontrolPortType.GetSysTick + Return MyBase.Channel.GetSysTick(request) + End Function + + Public Function GetSysTick(ByVal GetSysTick1 As OpenControl.GetSysTick) As OpenControl.GetSysTickR + Dim inValue As OpenControl.GetSysTickRequest = New OpenControl.GetSysTickRequest() + inValue.GetSysTick = GetSysTick1 + Dim retVal As OpenControl.GetSysTickResponse = CType(Me,OpenControl.OPENcontrolPortType).GetSysTick(inValue) + Return retVal.GetSysTickR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetProcessConfNum(ByVal request As OpenControl.GetProcessConfNumRequest) As OpenControl.GetProcessConfNumResponse Implements OpenControl.OPENcontrolPortType.GetProcessConfNum + Return MyBase.Channel.GetProcessConfNum(request) + End Function + + Public Function GetProcessConfNum(ByVal GetProcessConfNum1 As OpenControl.GetProcessConfNum) As OpenControl.GetProcessConfNumR + Dim inValue As OpenControl.GetProcessConfNumRequest = New OpenControl.GetProcessConfNumRequest() + inValue.GetProcessConfNum = GetProcessConfNum1 + Dim retVal As OpenControl.GetProcessConfNumResponse = CType(Me,OpenControl.OPENcontrolPortType).GetProcessConfNum(inValue) + Return retVal.GetProcessConfNumR + End Function + + _ + Function OpenControl_OPENcontrolPortType_MonOpenChannel(ByVal request As OpenControl.MonOpenChannelRequest) As OpenControl.MonOpenChannelResponse Implements OpenControl.OPENcontrolPortType.MonOpenChannel + Return MyBase.Channel.MonOpenChannel(request) + End Function + + Public Function MonOpenChannel(ByVal MonOpenChannel1 As OpenControl.MonOpenChannel) As OpenControl.MonOpenChannelR + Dim inValue As OpenControl.MonOpenChannelRequest = New OpenControl.MonOpenChannelRequest() + inValue.MonOpenChannel = MonOpenChannel1 + Dim retVal As OpenControl.MonOpenChannelResponse = CType(Me,OpenControl.OPENcontrolPortType).MonOpenChannel(inValue) + Return retVal.MonOpenChannelR + End Function + + _ + Function OpenControl_OPENcontrolPortType_MonCloseChannel(ByVal request As OpenControl.MonCloseChannelRequest) As OpenControl.MonCloseChannelResponse Implements OpenControl.OPENcontrolPortType.MonCloseChannel + Return MyBase.Channel.MonCloseChannel(request) + End Function + + Public Function MonCloseChannel(ByVal MonCloseChannel1 As OpenControl.MonCloseChannel) As OpenControl.MonCloseChannelR + Dim inValue As OpenControl.MonCloseChannelRequest = New OpenControl.MonCloseChannelRequest() + inValue.MonCloseChannel = MonCloseChannel1 + Dim retVal As OpenControl.MonCloseChannelResponse = CType(Me,OpenControl.OPENcontrolPortType).MonCloseChannel(inValue) + Return retVal.MonCloseChannelR + End Function + + _ + Function OpenControl_OPENcontrolPortType_MonAddVariable(ByVal request As OpenControl.MonAddVariableRequest) As OpenControl.MonAddVariableResponse Implements OpenControl.OPENcontrolPortType.MonAddVariable + Return MyBase.Channel.MonAddVariable(request) + End Function + + Public Function MonAddVariable(ByVal MonAddVariable1 As OpenControl.MonAddVariable) As OpenControl.MonAddVariableR + Dim inValue As OpenControl.MonAddVariableRequest = New OpenControl.MonAddVariableRequest() + inValue.MonAddVariable = MonAddVariable1 + Dim retVal As OpenControl.MonAddVariableResponse = CType(Me,OpenControl.OPENcontrolPortType).MonAddVariable(inValue) + Return retVal.MonAddVariableR + End Function + + _ + Function OpenControl_OPENcontrolPortType_MonDeleteVariable(ByVal request As OpenControl.MonDeleteVariableRequest) As OpenControl.MonDeleteVariableResponse Implements OpenControl.OPENcontrolPortType.MonDeleteVariable + Return MyBase.Channel.MonDeleteVariable(request) + End Function + + Public Function MonDeleteVariable(ByVal MonDeleteVariable1 As OpenControl.MonDeleteVariable) As OpenControl.MonDeleteVariableR + Dim inValue As OpenControl.MonDeleteVariableRequest = New OpenControl.MonDeleteVariableRequest() + inValue.MonDeleteVariable = MonDeleteVariable1 + Dim retVal As OpenControl.MonDeleteVariableResponse = CType(Me,OpenControl.OPENcontrolPortType).MonDeleteVariable(inValue) + Return retVal.MonDeleteVariableR + End Function + + _ + Function OpenControl_OPENcontrolPortType_MonStartSampling(ByVal request As OpenControl.MonStartSamplingRequest) As OpenControl.MonStartSamplingResponse Implements OpenControl.OPENcontrolPortType.MonStartSampling + Return MyBase.Channel.MonStartSampling(request) + End Function + + Public Function MonStartSampling(ByVal MonStartSampling1 As OpenControl.MonStartSampling) As OpenControl.MonStartSamplingR + Dim inValue As OpenControl.MonStartSamplingRequest = New OpenControl.MonStartSamplingRequest() + inValue.MonStartSampling = MonStartSampling1 + Dim retVal As OpenControl.MonStartSamplingResponse = CType(Me,OpenControl.OPENcontrolPortType).MonStartSampling(inValue) + Return retVal.MonStartSamplingR + End Function + + _ + Function OpenControl_OPENcontrolPortType_MonStopSampling(ByVal request As OpenControl.MonStopSamplingRequest) As OpenControl.MonStopSamplingResponse Implements OpenControl.OPENcontrolPortType.MonStopSampling + Return MyBase.Channel.MonStopSampling(request) + End Function + + Public Function MonStopSampling(ByVal MonStopSampling1 As OpenControl.MonStopSampling) As OpenControl.MonStopSamplingR + Dim inValue As OpenControl.MonStopSamplingRequest = New OpenControl.MonStopSamplingRequest() + inValue.MonStopSampling = MonStopSampling1 + Dim retVal As OpenControl.MonStopSamplingResponse = CType(Me,OpenControl.OPENcontrolPortType).MonStopSampling(inValue) + Return retVal.MonStopSamplingR + End Function + + _ + Function OpenControl_OPENcontrolPortType_MonGetVariable(ByVal request As OpenControl.MonGetVariableRequest) As OpenControl.MonGetVariableResponse Implements OpenControl.OPENcontrolPortType.MonGetVariable + Return MyBase.Channel.MonGetVariable(request) + End Function + + Public Function MonGetVariable(ByVal MonGetVariable1 As OpenControl.MonGetVariable) As OpenControl.MonGetVariableR + Dim inValue As OpenControl.MonGetVariableRequest = New OpenControl.MonGetVariableRequest() + inValue.MonGetVariable = MonGetVariable1 + Dim retVal As OpenControl.MonGetVariableResponse = CType(Me,OpenControl.OPENcontrolPortType).MonGetVariable(inValue) + Return retVal.MonGetVariableR + End Function + + _ + Function OpenControl_OPENcontrolPortType_CheckHistory(ByVal request As OpenControl.CheckHistoryRequest) As OpenControl.CheckHistoryResponse Implements OpenControl.OPENcontrolPortType.CheckHistory + Return MyBase.Channel.CheckHistory(request) + End Function + + Public Function CheckHistory(ByVal CheckHistory1 As OpenControl.CheckHistory) As OpenControl.CheckHistoryR + Dim inValue As OpenControl.CheckHistoryRequest = New OpenControl.CheckHistoryRequest() + inValue.CheckHistory = CheckHistory1 + Dim retVal As OpenControl.CheckHistoryResponse = CType(Me,OpenControl.OPENcontrolPortType).CheckHistory(inValue) + Return retVal.CheckHistoryR + End Function + + _ + Function OpenControl_OPENcontrolPortType_ReadHistoryEmergMsg(ByVal request As OpenControl.ReadHistoryEmergMsgRequest) As OpenControl.ReadHistoryEmergMsgResponse Implements OpenControl.OPENcontrolPortType.ReadHistoryEmergMsg + Return MyBase.Channel.ReadHistoryEmergMsg(request) + End Function + + Public Function ReadHistoryEmergMsg(ByVal ReadHistoryEmergMsg1 As OpenControl.ReadHistoryEmergMsg) As OpenControl.ReadHistoryEmergMsgR + Dim inValue As OpenControl.ReadHistoryEmergMsgRequest = New OpenControl.ReadHistoryEmergMsgRequest() + inValue.ReadHistoryEmergMsg = ReadHistoryEmergMsg1 + Dim retVal As OpenControl.ReadHistoryEmergMsgResponse = CType(Me,OpenControl.OPENcontrolPortType).ReadHistoryEmergMsg(inValue) + Return retVal.ReadHistoryEmergMsgR + End Function + + _ + Function OpenControl_OPENcontrolPortType_ReadHistoryErrorMsg(ByVal request As OpenControl.ReadHistoryErrorMsgRequest) As OpenControl.ReadHistoryErrorMsgResponse Implements OpenControl.OPENcontrolPortType.ReadHistoryErrorMsg + Return MyBase.Channel.ReadHistoryErrorMsg(request) + End Function + + Public Function ReadHistoryErrorMsg(ByVal ReadHistoryErrorMsg1 As OpenControl.ReadHistoryErrorMsg) As OpenControl.ReadHistoryErrorMsgR + Dim inValue As OpenControl.ReadHistoryErrorMsgRequest = New OpenControl.ReadHistoryErrorMsgRequest() + inValue.ReadHistoryErrorMsg = ReadHistoryErrorMsg1 + Dim retVal As OpenControl.ReadHistoryErrorMsgResponse = CType(Me,OpenControl.OPENcontrolPortType).ReadHistoryErrorMsg(inValue) + Return retVal.ReadHistoryErrorMsgR + End Function + + _ + Function OpenControl_OPENcontrolPortType_ReadHistoryLogMsg(ByVal request As OpenControl.ReadHistoryLogMsgRequest) As OpenControl.ReadHistoryLogMsgResponse Implements OpenControl.OPENcontrolPortType.ReadHistoryLogMsg + Return MyBase.Channel.ReadHistoryLogMsg(request) + End Function + + Public Function ReadHistoryLogMsg(ByVal ReadHistoryLogMsg1 As OpenControl.ReadHistoryLogMsg) As OpenControl.ReadHistoryLogMsgR + Dim inValue As OpenControl.ReadHistoryLogMsgRequest = New OpenControl.ReadHistoryLogMsgRequest() + inValue.ReadHistoryLogMsg = ReadHistoryLogMsg1 + Dim retVal As OpenControl.ReadHistoryLogMsgResponse = CType(Me,OpenControl.OPENcontrolPortType).ReadHistoryLogMsg(inValue) + Return retVal.ReadHistoryLogMsgR + End Function + + _ + Function OpenControl_OPENcontrolPortType_ReadHistoryAnomalyMsg(ByVal request As OpenControl.ReadHistoryAnomalyMsgRequest) As OpenControl.ReadHistoryAnomalyMsgResponse Implements OpenControl.OPENcontrolPortType.ReadHistoryAnomalyMsg + Return MyBase.Channel.ReadHistoryAnomalyMsg(request) + End Function + + Public Function ReadHistoryAnomalyMsg(ByVal ReadHistoryAnomalyMsg1 As OpenControl.ReadHistoryAnomalyMsg) As OpenControl.ReadHistoryAnomalyMsgR + Dim inValue As OpenControl.ReadHistoryAnomalyMsgRequest = New OpenControl.ReadHistoryAnomalyMsgRequest() + inValue.ReadHistoryAnomalyMsg = ReadHistoryAnomalyMsg1 + Dim retVal As OpenControl.ReadHistoryAnomalyMsgResponse = CType(Me,OpenControl.OPENcontrolPortType).ReadHistoryAnomalyMsg(inValue) + Return retVal.ReadHistoryAnomalyMsgR + End Function + + _ + Function OpenControl_OPENcontrolPortType_ReadCurrentErrorMsg(ByVal request As OpenControl.ReadCurrentErrorMsgRequest) As OpenControl.ReadCurrentErrorMsgResponse Implements OpenControl.OPENcontrolPortType.ReadCurrentErrorMsg + Return MyBase.Channel.ReadCurrentErrorMsg(request) + End Function + + Public Function ReadCurrentErrorMsg(ByVal ReadCurrentErrorMsg1 As OpenControl.ReadCurrentErrorMsg) As OpenControl.ReadCurrentErrorMsgR + Dim inValue As OpenControl.ReadCurrentErrorMsgRequest = New OpenControl.ReadCurrentErrorMsgRequest() + inValue.ReadCurrentErrorMsg = ReadCurrentErrorMsg1 + Dim retVal As OpenControl.ReadCurrentErrorMsgResponse = CType(Me,OpenControl.OPENcontrolPortType).ReadCurrentErrorMsg(inValue) + Return retVal.ReadCurrentErrorMsgR + End Function + + _ + Function OpenControl_OPENcontrolPortType_ReadCurrentEmergMsg(ByVal request As OpenControl.ReadCurrentEmergMsgRequest) As OpenControl.ReadCurrentEmergMsgResponse Implements OpenControl.OPENcontrolPortType.ReadCurrentEmergMsg + Return MyBase.Channel.ReadCurrentEmergMsg(request) + End Function + + Public Function ReadCurrentEmergMsg(ByVal ReadCurrentEmergMsg1 As OpenControl.ReadCurrentEmergMsg) As OpenControl.ReadCurrentEmergMsgR + Dim inValue As OpenControl.ReadCurrentEmergMsgRequest = New OpenControl.ReadCurrentEmergMsgRequest() + inValue.ReadCurrentEmergMsg = ReadCurrentEmergMsg1 + Dim retVal As OpenControl.ReadCurrentEmergMsgResponse = CType(Me,OpenControl.OPENcontrolPortType).ReadCurrentEmergMsg(inValue) + Return retVal.ReadCurrentEmergMsgR + End Function + + _ + Function OpenControl_OPENcontrolPortType_ReadCurrentAnomalyMsg(ByVal request As OpenControl.ReadCurrentAnomalyMsgRequest) As OpenControl.ReadCurrentAnomalyMsgResponse Implements OpenControl.OPENcontrolPortType.ReadCurrentAnomalyMsg + Return MyBase.Channel.ReadCurrentAnomalyMsg(request) + End Function + + Public Function ReadCurrentAnomalyMsg(ByVal ReadCurrentAnomalyMsg1 As OpenControl.ReadCurrentAnomalyMsg) As OpenControl.ReadCurrentAnomalyMsgR + Dim inValue As OpenControl.ReadCurrentAnomalyMsgRequest = New OpenControl.ReadCurrentAnomalyMsgRequest() + inValue.ReadCurrentAnomalyMsg = ReadCurrentAnomalyMsg1 + Dim retVal As OpenControl.ReadCurrentAnomalyMsgResponse = CType(Me,OpenControl.OPENcontrolPortType).ReadCurrentAnomalyMsg(inValue) + Return retVal.ReadCurrentAnomalyMsgR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetPTechSizes(ByVal request As OpenControl.GetPTechSizesRequest) As OpenControl.GetPTechSizesResponse Implements OpenControl.OPENcontrolPortType.GetPTechSizes + Return MyBase.Channel.GetPTechSizes(request) + End Function + + Public Function GetPTechSizes(ByVal GetPTechSizes1 As OpenControl.GetPTechSizes) As OpenControl.GetPTechSizesR + Dim inValue As OpenControl.GetPTechSizesRequest = New OpenControl.GetPTechSizesRequest() + inValue.GetPTechSizes = GetPTechSizes1 + Dim retVal As OpenControl.GetPTechSizesResponse = CType(Me,OpenControl.OPENcontrolPortType).GetPTechSizes(inValue) + Return retVal.GetPTechSizesR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LoadPTech(ByVal request As OpenControl.LoadPTechRequest) As OpenControl.LoadPTechResponse Implements OpenControl.OPENcontrolPortType.LoadPTech + Return MyBase.Channel.LoadPTech(request) + End Function + + Public Function LoadPTech(ByVal LoadPTech1 As OpenControl.LoadPTech) As OpenControl.LoadPTechR + Dim inValue As OpenControl.LoadPTechRequest = New OpenControl.LoadPTechRequest() + inValue.LoadPTech = LoadPTech1 + Dim retVal As OpenControl.LoadPTechResponse = CType(Me,OpenControl.OPENcontrolPortType).LoadPTech(inValue) + Return retVal.LoadPTechR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetMarkerInfo(ByVal request As OpenControl.GetMarkerInfoRequest) As OpenControl.GetMarkerInfoResponse Implements OpenControl.OPENcontrolPortType.GetMarkerInfo + Return MyBase.Channel.GetMarkerInfo(request) + End Function + + Public Function GetMarkerInfo(ByVal GetMarkerInfo1 As OpenControl.GetMarkerInfo) As OpenControl.GetMarkerInfoR + Dim inValue As OpenControl.GetMarkerInfoRequest = New OpenControl.GetMarkerInfoRequest() + inValue.GetMarkerInfo = GetMarkerInfo1 + Dim retVal As OpenControl.GetMarkerInfoResponse = CType(Me,OpenControl.OPENcontrolPortType).GetMarkerInfo(inValue) + Return retVal.GetMarkerInfoR + End Function + + _ + Function OpenControl_OPENcontrolPortType_ManagePartProgram(ByVal request As OpenControl.ManagePartProgramRequest) As OpenControl.ManagePartProgramResponse Implements OpenControl.OPENcontrolPortType.ManagePartProgram + Return MyBase.Channel.ManagePartProgram(request) + End Function + + Public Function ManagePartProgram(ByVal ManagePartProgram1 As OpenControl.ManagePartProgram) As OpenControl.ManagePartProgramR + Dim inValue As OpenControl.ManagePartProgramRequest = New OpenControl.ManagePartProgramRequest() + inValue.ManagePartProgram = ManagePartProgram1 + Dim retVal As OpenControl.ManagePartProgramResponse = CType(Me,OpenControl.OPENcontrolPortType).ManagePartProgram(inValue) + Return retVal.ManagePartProgramR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LogFSOpenFile(ByVal request As OpenControl.LogFSOpenFileRequest) As OpenControl.LogFSOpenFileResponse Implements OpenControl.OPENcontrolPortType.LogFSOpenFile + Return MyBase.Channel.LogFSOpenFile(request) + End Function + + Public Function LogFSOpenFile(ByVal LogFSOpenFile1 As OpenControl.LogFSOpenFile) As OpenControl.LogFSOpenFileR + Dim inValue As OpenControl.LogFSOpenFileRequest = New OpenControl.LogFSOpenFileRequest() + inValue.LogFSOpenFile = LogFSOpenFile1 + Dim retVal As OpenControl.LogFSOpenFileResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSOpenFile(inValue) + Return retVal.LogFSOpenFileR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LogFSCloseFile(ByVal request As OpenControl.LogFSCloseFileRequest) As OpenControl.LogFSCloseFileResponse Implements OpenControl.OPENcontrolPortType.LogFSCloseFile + Return MyBase.Channel.LogFSCloseFile(request) + End Function + + Public Function LogFSCloseFile(ByVal LogFSCloseFile1 As OpenControl.LogFSCloseFile) As OpenControl.LogFSCloseFileR + Dim inValue As OpenControl.LogFSCloseFileRequest = New OpenControl.LogFSCloseFileRequest() + inValue.LogFSCloseFile = LogFSCloseFile1 + Dim retVal As OpenControl.LogFSCloseFileResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSCloseFile(inValue) + Return retVal.LogFSCloseFileR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LogFSWriteRecord(ByVal request As OpenControl.LogFSWriteRecordRequest) As OpenControl.LogFSWriteRecordResponse Implements OpenControl.OPENcontrolPortType.LogFSWriteRecord + Return MyBase.Channel.LogFSWriteRecord(request) + End Function + + Public Function LogFSWriteRecord(ByVal LogFSWriteRecord1 As OpenControl.LogFSWriteRecord) As OpenControl.LogFSWriteRecordR + Dim inValue As OpenControl.LogFSWriteRecordRequest = New OpenControl.LogFSWriteRecordRequest() + inValue.LogFSWriteRecord = LogFSWriteRecord1 + Dim retVal As OpenControl.LogFSWriteRecordResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSWriteRecord(inValue) + Return retVal.LogFSWriteRecordR + End Function + + _ + Function OpenControl_OPENcontrolPortType_LogFSReadRecord(ByVal request As OpenControl.LogFSReadRecordRequest) As OpenControl.LogFSReadRecordResponse Implements OpenControl.OPENcontrolPortType.LogFSReadRecord + Return MyBase.Channel.LogFSReadRecord(request) + End Function + + Public Function LogFSReadRecord(ByVal LogFSReadRecord1 As OpenControl.LogFSReadRecord) As OpenControl.LogFSReadRecordR + Dim inValue As OpenControl.LogFSReadRecordRequest = New OpenControl.LogFSReadRecordRequest() + inValue.LogFSReadRecord = LogFSReadRecord1 + Dim retVal As OpenControl.LogFSReadRecordResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSReadRecord(inValue) + Return retVal.LogFSReadRecordR + End Function + + _ + Function OpenControl_OPENcontrolPortType_ReadRemapDefinitions(ByVal request As OpenControl.ReadRemapDefinitionsRequest) As OpenControl.ReadRemapDefinitionsResponse Implements OpenControl.OPENcontrolPortType.ReadRemapDefinitions + Return MyBase.Channel.ReadRemapDefinitions(request) + End Function + + Public Function ReadRemapDefinitions(ByVal ReadRemapDefinitions1 As OpenControl.ReadRemapDefinitions) As OpenControl.ReadRemapDefinitionsR + Dim inValue As OpenControl.ReadRemapDefinitionsRequest = New OpenControl.ReadRemapDefinitionsRequest() + inValue.ReadRemapDefinitions = ReadRemapDefinitions1 + Dim retVal As OpenControl.ReadRemapDefinitionsResponse = CType(Me,OpenControl.OPENcontrolPortType).ReadRemapDefinitions(inValue) + Return retVal.ReadRemapDefinitionsR + End Function + + _ + Function OpenControl_OPENcontrolPortType_WriteRemapDefinitions(ByVal request As OpenControl.WriteRemapDefinitionsRequest) As OpenControl.WriteRemapDefinitionsResponse Implements OpenControl.OPENcontrolPortType.WriteRemapDefinitions + Return MyBase.Channel.WriteRemapDefinitions(request) + End Function + + Public Function WriteRemapDefinitions(ByVal WriteRemapDefinitions1 As OpenControl.WriteRemapDefinitions) As OpenControl.WriteRemapDefinitionsR + Dim inValue As OpenControl.WriteRemapDefinitionsRequest = New OpenControl.WriteRemapDefinitionsRequest() + inValue.WriteRemapDefinitions = WriteRemapDefinitions1 + Dim retVal As OpenControl.WriteRemapDefinitionsResponse = CType(Me,OpenControl.OPENcontrolPortType).WriteRemapDefinitions(inValue) + Return retVal.WriteRemapDefinitionsR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetServoPar(ByVal request As OpenControl.GetServoParRequest) As OpenControl.GetServoParResponse Implements OpenControl.OPENcontrolPortType.GetServoPar + Return MyBase.Channel.GetServoPar(request) + End Function + + Public Function GetServoPar(ByVal GetServoPar1 As OpenControl.GetServoPar) As OpenControl.GetServoParR + Dim inValue As OpenControl.GetServoParRequest = New OpenControl.GetServoParRequest() + inValue.GetServoPar = GetServoPar1 + Dim retVal As OpenControl.GetServoParResponse = CType(Me,OpenControl.OPENcontrolPortType).GetServoPar(inValue) + Return retVal.GetServoParR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SetServoPar(ByVal request As OpenControl.SetServoParRequest) As OpenControl.SetServoParResponse Implements OpenControl.OPENcontrolPortType.SetServoPar + Return MyBase.Channel.SetServoPar(request) + End Function + + Public Function SetServoPar(ByVal SetServoPar1 As OpenControl.SetServoPar) As OpenControl.SetServoParR + Dim inValue As OpenControl.SetServoParRequest = New OpenControl.SetServoParRequest() + inValue.SetServoPar = SetServoPar1 + Dim retVal As OpenControl.SetServoParResponse = CType(Me,OpenControl.OPENcontrolPortType).SetServoPar(inValue) + Return retVal.SetServoParR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetCNCRegKey(ByVal request As OpenControl.GetCNCRegKeyRequest) As OpenControl.GetCNCRegKeyResponse Implements OpenControl.OPENcontrolPortType.GetCNCRegKey + Return MyBase.Channel.GetCNCRegKey(request) + End Function + + Public Function GetCNCRegKey(ByVal GetCNCRegKey1 As OpenControl.GetCNCRegKey) As OpenControl.GetCNCRegKeyR + Dim inValue As OpenControl.GetCNCRegKeyRequest = New OpenControl.GetCNCRegKeyRequest() + inValue.GetCNCRegKey = GetCNCRegKey1 + Dim retVal As OpenControl.GetCNCRegKeyResponse = CType(Me,OpenControl.OPENcontrolPortType).GetCNCRegKey(inValue) + Return retVal.GetCNCRegKeyR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SetIpAddress(ByVal request As OpenControl.SetIpAddressRequest) As OpenControl.SetIpAddressResponse Implements OpenControl.OPENcontrolPortType.SetIpAddress + Return MyBase.Channel.SetIpAddress(request) + End Function + + Public Function SetIpAddress(ByVal SetIpAddress1 As OpenControl.SetIpAddress) As OpenControl.SetIpAddressR + Dim inValue As OpenControl.SetIpAddressRequest = New OpenControl.SetIpAddressRequest() + inValue.SetIpAddress = SetIpAddress1 + Dim retVal As OpenControl.SetIpAddressResponse = CType(Me,OpenControl.OPENcontrolPortType).SetIpAddress(inValue) + Return retVal.SetIpAddressR + End Function + + _ + Function OpenControl_OPENcontrolPortType_GetProcInInput(ByVal request As OpenControl.GetProcInInputRequest) As OpenControl.GetProcInInputResponse Implements OpenControl.OPENcontrolPortType.GetProcInInput + Return MyBase.Channel.GetProcInInput(request) + End Function + + Public Function GetProcInInput(ByVal GetProcInInput1 As OpenControl.GetProcInInput) As OpenControl.GetProcInInputR + Dim inValue As OpenControl.GetProcInInputRequest = New OpenControl.GetProcInInputRequest() + inValue.GetProcInInput = GetProcInInput1 + Dim retVal As OpenControl.GetProcInInputResponse = CType(Me,OpenControl.OPENcontrolPortType).GetProcInInput(inValue) + Return retVal.GetProcInInputR + End Function + + _ + Function OpenControl_OPENcontrolPortType_SndProcInpData(ByVal request As OpenControl.SndProcInpDataRequest) As OpenControl.SndProcInpDataResponse Implements OpenControl.OPENcontrolPortType.SndProcInpData + Return MyBase.Channel.SndProcInpData(request) + End Function + + Public Function SndProcInpData(ByVal SndProcInpData1 As OpenControl.SndProcInpData) As OpenControl.SndProcInpDataR + Dim inValue As OpenControl.SndProcInpDataRequest = New OpenControl.SndProcInpDataRequest() + inValue.SndProcInpData = SndProcInpData1 + Dim retVal As OpenControl.SndProcInpDataResponse = CType(Me,OpenControl.OPENcontrolPortType).SndProcInpData(inValue) + Return retVal.SndProcInpDataR + End Function + End Class +End Namespace diff --git a/CVCncLib/Service References/OpenControl/configuration.svcinfo b/CVCncLib/Service References/OpenControl/configuration.svcinfo new file mode 100644 index 00000000..d909ea09 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/configuration.svcinfo @@ -0,0 +1,10 @@ + + + + + + + + + + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/configuration91.svcinfo b/CVCncLib/Service References/OpenControl/configuration91.svcinfo new file mode 100644 index 00000000..e0636413 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/configuration91.svcinfo @@ -0,0 +1,201 @@ + + + + + + + OPENcontrol + + + + + + + + + + + + + + + + + + + + + StrongWildcard + + + + + + 65536 + + + + + + + + + System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement + + + 0 + + + 0 + + + 0 + + + 0 + + + 0 + + + System.Text.UTF8Encoding + + + Buffered + + + + + + Text + + + System.ServiceModel.Configuration.BasicHttpSecurityElement + + + None + + + System.ServiceModel.Configuration.HttpTransportSecurityElement + + + None + + + None + + + System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement + + + Never + + + TransportSelected + + + (Raccolta) + + + + + + System.ServiceModel.Configuration.BasicHttpMessageSecurityElement + + + UserName + + + Default + + + + + + + + + http://192.168.20.2:8080 + + + + + + basicHttpBinding + + + OPENcontrol + + + OpenControl.OPENcontrolPortType + + + System.ServiceModel.Configuration.AddressHeaderCollectionElement + + + <Header /> + + + System.ServiceModel.Configuration.IdentityElement + + + System.ServiceModel.Configuration.UserPrincipalNameElement + + + + + + System.ServiceModel.Configuration.ServicePrincipalNameElement + + + + + + System.ServiceModel.Configuration.DnsElement + + + + + + System.ServiceModel.Configuration.RsaElement + + + + + + System.ServiceModel.Configuration.CertificateElement + + + + + + System.ServiceModel.Configuration.CertificateReferenceElement + + + My + + + LocalMachine + + + FindBySubjectDistinguishedName + + + + + + False + + + OPENcontrol + + + + + + + + + + + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.AxesRefR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.AxesRefR.datasource new file mode 100644 index 00000000..ef2624f5 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.AxesRefR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.BootModeR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.BootModeR.datasource new file mode 100644 index 00000000..a3c2cf11 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.BootModeR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.BootPhaseEnquiryR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.BootPhaseEnquiryR.datasource new file mode 100644 index 00000000..75e54092 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.BootPhaseEnquiryR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.BootRebootR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.BootRebootR.datasource new file mode 100644 index 00000000..0ba444b5 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.BootRebootR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.BootShutDownR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.BootShutDownR.datasource new file mode 100644 index 00000000..1937b7c6 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.BootShutDownR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.CheckHistoryR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.CheckHistoryR.datasource new file mode 100644 index 00000000..5d6e6928 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.CheckHistoryR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.CycleR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.CycleR.datasource new file mode 100644 index 00000000..d432022a --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.CycleR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.DncDataR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.DncDataR.datasource new file mode 100644 index 00000000..19a92e15 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.DncDataR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.DncEofR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.DncEofR.datasource new file mode 100644 index 00000000..151f5dca --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.DncEofR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.DncInitR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.DncInitR.datasource new file mode 100644 index 00000000..e100dfd2 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.DncInitR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.DncStopR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.DncStopR.datasource new file mode 100644 index 00000000..820ab07d --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.DncStopR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.EseExR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.EseExR.datasource new file mode 100644 index 00000000..74414266 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.EseExR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.EseR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.EseR.datasource new file mode 100644 index 00000000..e08262a0 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.EseR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ExeR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ExeR.datasource new file mode 100644 index 00000000..512ef567 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ExeR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetActivePartProgramR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetActivePartProgramR.datasource new file mode 100644 index 00000000..d8f21162 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetActivePartProgramR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetAvailableCustomEventsR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetAvailableCustomEventsR.datasource new file mode 100644 index 00000000..ee49b634 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetAvailableCustomEventsR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetAxOriginNumR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetAxOriginNumR.datasource new file mode 100644 index 00000000..71b62f17 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetAxOriginNumR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetAxesInfo3R.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetAxesInfo3R.datasource new file mode 100644 index 00000000..5f1e220a --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetAxesInfo3R.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetAxesPositionR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetAxesPositionR.datasource new file mode 100644 index 00000000..819064d2 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetAxesPositionR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetBinaryFileR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetBinaryFileR.datasource new file mode 100644 index 00000000..0fe6bb40 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetBinaryFileR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetBlkNumR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetBlkNumR.datasource new file mode 100644 index 00000000..baa30612 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetBlkNumR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetCNCRegKeyR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetCNCRegKeyR.datasource new file mode 100644 index 00000000..0bb2175c --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetCNCRegKeyR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetCodeNumberR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetCodeNumberR.datasource new file mode 100644 index 00000000..baf7a38b --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetCodeNumberR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetDateTimeR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetDateTimeR.datasource new file mode 100644 index 00000000..24c641cf --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetDateTimeR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetFileR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetFileR.datasource new file mode 100644 index 00000000..ae2b75a6 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetFileR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetGCodeR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetGCodeR.datasource new file mode 100644 index 00000000..0c875b57 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetGCodeR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetHWKeyR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetHWKeyR.datasource new file mode 100644 index 00000000..6c90e4f8 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetHWKeyR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetMCodeR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetMCodeR.datasource new file mode 100644 index 00000000..3203e130 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetMCodeR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetMarkerInfoR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetMarkerInfoR.datasource new file mode 100644 index 00000000..603f44fa --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetMarkerInfoR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetNcInfo1R.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetNcInfo1R.datasource new file mode 100644 index 00000000..7c069440 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetNcInfo1R.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetNcInfo2R.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetNcInfo2R.datasource new file mode 100644 index 00000000..bda4d4a8 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetNcInfo2R.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetOffsetTabRecordIIR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetOffsetTabRecordIIR.datasource new file mode 100644 index 00000000..4181ce54 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetOffsetTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetOptionsR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetOptionsR.datasource new file mode 100644 index 00000000..6ecb29ad --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetOptionsR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetOriginTabRecordIIR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetOriginTabRecordIIR.datasource new file mode 100644 index 00000000..8d00a745 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetOriginTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetPTechSizesR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetPTechSizesR.datasource new file mode 100644 index 00000000..4e938116 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetPTechSizesR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetPartProgramLinesR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetPartProgramLinesR.datasource new file mode 100644 index 00000000..3c2fdc4c --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetPartProgramLinesR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetProcInInputR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetProcInInputR.datasource new file mode 100644 index 00000000..a1bcf1f8 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetProcInInputR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetProcVarDoubleR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetProcVarDoubleR.datasource new file mode 100644 index 00000000..95012fc5 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetProcVarDoubleR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetProcVarWordR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetProcVarWordR.datasource new file mode 100644 index 00000000..031011d6 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetProcVarWordR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetProcessConfNumR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetProcessConfNumR.datasource new file mode 100644 index 00000000..616f80b3 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetProcessConfNumR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetProcessStatusR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetProcessStatusR.datasource new file mode 100644 index 00000000..c366ec87 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetProcessStatusR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetSelectedProcessR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetSelectedProcessR.datasource new file mode 100644 index 00000000..b09993d0 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetSelectedProcessR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetSerialNumberR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetSerialNumberR.datasource new file mode 100644 index 00000000..905df7d8 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetSerialNumberR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetServoParR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetServoParR.datasource new file mode 100644 index 00000000..1a9d019e --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetServoParR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetSysTickR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetSysTickR.datasource new file mode 100644 index 00000000..fedd8bee --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetSysTickR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetToolNamesR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetToolNamesR.datasource new file mode 100644 index 00000000..abea45ee --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetToolNamesR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetToolTabRecordIIR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetToolTabRecordIIR.datasource new file mode 100644 index 00000000..b20f41c5 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetToolTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetUserTabRecordIIR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetUserTabRecordIIR.datasource new file mode 100644 index 00000000..ecd0e66b --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetUserTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetVarJOGR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetVarJOGR.datasource new file mode 100644 index 00000000..5add65c7 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetVarJOGR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetVarRCMR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetVarRCMR.datasource new file mode 100644 index 00000000..5414542d --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.GetVarRCMR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.HoldR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.HoldR.datasource new file mode 100644 index 00000000..3bd6ec2c --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.HoldR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LoadPTechR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LoadPTechR.datasource new file mode 100644 index 00000000..a2f71c8b --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LoadPTechR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LockTableIIR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LockTableIIR.datasource new file mode 100644 index 00000000..fd8a65f9 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LockTableIIR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSAddDriveR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSAddDriveR.datasource new file mode 100644 index 00000000..ec8cd2af --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSAddDriveR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSChangeFileAttribR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSChangeFileAttribR.datasource new file mode 100644 index 00000000..6cb8260c --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSChangeFileAttribR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSCloseFileR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSCloseFileR.datasource new file mode 100644 index 00000000..1414f3bf --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSCloseFileR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSCopyFileR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSCopyFileR.datasource new file mode 100644 index 00000000..5edcc1d8 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSCopyFileR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSCreateDirR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSCreateDirR.datasource new file mode 100644 index 00000000..d462e51e --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSCreateDirR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSCreateFileR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSCreateFileR.datasource new file mode 100644 index 00000000..3cf1e440 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSCreateFileR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSFindCloseR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSFindCloseR.datasource new file mode 100644 index 00000000..b2ef7bfa --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSFindCloseR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSFindFirstR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSFindFirstR.datasource new file mode 100644 index 00000000..a908cd7e --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSFindFirstR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSFindNextR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSFindNextR.datasource new file mode 100644 index 00000000..34a6cd48 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSFindNextR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSGetDriveListR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSGetDriveListR.datasource new file mode 100644 index 00000000..a8232948 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSGetDriveListR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSGetDrivePathR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSGetDrivePathR.datasource new file mode 100644 index 00000000..b2dd91b8 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSGetDrivePathR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSGetFileAttribR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSGetFileAttribR.datasource new file mode 100644 index 00000000..44a29aad --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSGetFileAttribR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSGetFileSizeR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSGetFileSizeR.datasource new file mode 100644 index 00000000..b04c2e1d --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSGetFileSizeR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSGetHiddenDriveListR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSGetHiddenDriveListR.datasource new file mode 100644 index 00000000..f8f9bc03 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSGetHiddenDriveListR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSGetInfoR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSGetInfoR.datasource new file mode 100644 index 00000000..5e9be6d5 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSGetInfoR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSGetNumDriveR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSGetNumDriveR.datasource new file mode 100644 index 00000000..2e28a6eb --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSGetNumDriveR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSGetSecurityLevelR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSGetSecurityLevelR.datasource new file mode 100644 index 00000000..7c461d6d --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSGetSecurityLevelR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSLongFileNamesR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSLongFileNamesR.datasource new file mode 100644 index 00000000..7dacbf2e --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSLongFileNamesR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSOpenFileR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSOpenFileR.datasource new file mode 100644 index 00000000..382147f0 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSOpenFileR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSReadRecordR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSReadRecordR.datasource new file mode 100644 index 00000000..52ff1021 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSReadRecordR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSReloadDriveListR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSReloadDriveListR.datasource new file mode 100644 index 00000000..39259b94 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSReloadDriveListR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSRemoveDirR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSRemoveDirR.datasource new file mode 100644 index 00000000..37628562 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSRemoveDirR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSRemoveDriveR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSRemoveDriveR.datasource new file mode 100644 index 00000000..bec347ef --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSRemoveDriveR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSRemoveFileR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSRemoveFileR.datasource new file mode 100644 index 00000000..d9d716b2 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSRemoveFileR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSRenameR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSRenameR.datasource new file mode 100644 index 00000000..0cff132d --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSRenameR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSSetFileAttribR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSSetFileAttribR.datasource new file mode 100644 index 00000000..a05a2a04 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSSetFileAttribR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSSetSecurityLevelR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSSetSecurityLevelR.datasource new file mode 100644 index 00000000..b54794de --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSSetSecurityLevelR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSWriteRecordR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSWriteRecordR.datasource new file mode 100644 index 00000000..a07761a5 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.LogFSWriteRecordR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ManagePartProgramR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ManagePartProgramR.datasource new file mode 100644 index 00000000..ba7201ab --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ManagePartProgramR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.MonAddVariableR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.MonAddVariableR.datasource new file mode 100644 index 00000000..efd117f9 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.MonAddVariableR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.MonCloseChannelR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.MonCloseChannelR.datasource new file mode 100644 index 00000000..d08c2735 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.MonCloseChannelR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.MonDeleteVariableR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.MonDeleteVariableR.datasource new file mode 100644 index 00000000..763a967d --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.MonDeleteVariableR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.MonGetVariableR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.MonGetVariableR.datasource new file mode 100644 index 00000000..77e6904b --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.MonGetVariableR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.MonOpenChannelR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.MonOpenChannelR.datasource new file mode 100644 index 00000000..ca6e2a8b --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.MonOpenChannelR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.MonStartSamplingR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.MonStartSamplingR.datasource new file mode 100644 index 00000000..dcb8f61b --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.MonStartSamplingR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.MonStopSamplingR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.MonStopSamplingR.datasource new file mode 100644 index 00000000..4a2ab32a --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.MonStopSamplingR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.PutBinaryFileR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.PutBinaryFileR.datasource new file mode 100644 index 00000000..4a03ce61 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.PutBinaryFileR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.PutFileR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.PutFileR.datasource new file mode 100644 index 00000000..c4da1cd5 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.PutFileR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadCurrentAnomalyMsgR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadCurrentAnomalyMsgR.datasource new file mode 100644 index 00000000..081286a1 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadCurrentAnomalyMsgR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadCurrentEmergMsgR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadCurrentEmergMsgR.datasource new file mode 100644 index 00000000..eed473f7 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadCurrentEmergMsgR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadCurrentErrorMsgR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadCurrentErrorMsgR.datasource new file mode 100644 index 00000000..6909bacf --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadCurrentErrorMsgR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadErrMsgR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadErrMsgR.datasource new file mode 100644 index 00000000..139e36c4 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadErrMsgR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadHistoryAnomalyMsgR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadHistoryAnomalyMsgR.datasource new file mode 100644 index 00000000..6dd6f927 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadHistoryAnomalyMsgR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadHistoryEmergMsgR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadHistoryEmergMsgR.datasource new file mode 100644 index 00000000..82d6d584 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadHistoryEmergMsgR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadHistoryErrorMsgR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadHistoryErrorMsgR.datasource new file mode 100644 index 00000000..eb0c4c73 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadHistoryErrorMsgR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadHistoryLogMsgR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadHistoryLogMsgR.datasource new file mode 100644 index 00000000..ea293bf4 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadHistoryLogMsgR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadPartProgramMsgR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadPartProgramMsgR.datasource new file mode 100644 index 00000000..34c0acc9 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadPartProgramMsgR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadRemapDefinitionsR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadRemapDefinitionsR.datasource new file mode 100644 index 00000000..4209d670 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadRemapDefinitionsR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadVarDoubleR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadVarDoubleR.datasource new file mode 100644 index 00000000..ace215c1 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadVarDoubleR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadVarTextR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadVarTextR.datasource new file mode 100644 index 00000000..d07da095 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadVarTextR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadVarWordR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadVarWordR.datasource new file mode 100644 index 00000000..8ff1b736 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadVarWordR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadWarningMsgR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadWarningMsgR.datasource new file mode 100644 index 00000000..51f57f5f --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ReadWarningMsgR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ResetR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ResetR.datasource new file mode 100644 index 00000000..e80d724a --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ResetR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ResetSingleTableIIR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ResetSingleTableIIR.datasource new file mode 100644 index 00000000..1d08884e --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.ResetSingleTableIIR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.RestoreBackupMemoryR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.RestoreBackupMemoryR.datasource new file mode 100644 index 00000000..6c34b919 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.RestoreBackupMemoryR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.RestoreSingleTableR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.RestoreSingleTableR.datasource new file mode 100644 index 00000000..108ec299 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.RestoreSingleTableR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SaveBackupMemoryR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SaveBackupMemoryR.datasource new file mode 100644 index 00000000..82cdd075 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SaveBackupMemoryR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SaveSingleTableR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SaveSingleTableR.datasource new file mode 100644 index 00000000..3a9445ea --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SaveSingleTableR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SaveTablesR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SaveTablesR.datasource new file mode 100644 index 00000000..63bf9085 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SaveTablesR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SelectPartProgramFromDriveR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SelectPartProgramFromDriveR.datasource new file mode 100644 index 00000000..86af1868 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SelectPartProgramFromDriveR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SelectPartProgramR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SelectPartProgramR.datasource new file mode 100644 index 00000000..4f3bcc4e --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SelectPartProgramR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SelectProcAxisR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SelectProcAxisR.datasource new file mode 100644 index 00000000..c8304ca1 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SelectProcAxisR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SelectProcessR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SelectProcessR.datasource new file mode 100644 index 00000000..a73d04c9 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SelectProcessR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetDateTimeR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetDateTimeR.datasource new file mode 100644 index 00000000..e266b21b --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetDateTimeR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetFeedManOverR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetFeedManOverR.datasource new file mode 100644 index 00000000..b37841e3 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetFeedManOverR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetFeedRapidOverR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetFeedRapidOverR.datasource new file mode 100644 index 00000000..543e6620 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetFeedRapidOverR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetFeedRateOverR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetFeedRateOverR.datasource new file mode 100644 index 00000000..7dca3203 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetFeedRateOverR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetIpAddressR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetIpAddressR.datasource new file mode 100644 index 00000000..1d0c1a7f --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetIpAddressR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetManMovDirectionR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetManMovDirectionR.datasource new file mode 100644 index 00000000..cdb586cd --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetManMovDirectionR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetMdiStringR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetMdiStringR.datasource new file mode 100644 index 00000000..e32f02dd --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetMdiStringR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetOffsetTabRecordIIR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetOffsetTabRecordIIR.datasource new file mode 100644 index 00000000..b33ed803 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetOffsetTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetOriginTabRecordIIR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetOriginTabRecordIIR.datasource new file mode 100644 index 00000000..a95c94d8 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetOriginTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetProcVarDoubleR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetProcVarDoubleR.datasource new file mode 100644 index 00000000..e151551c --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetProcVarDoubleR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetProcVarWordR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetProcVarWordR.datasource new file mode 100644 index 00000000..87401ee8 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetProcVarWordR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetProcessModeR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetProcessModeR.datasource new file mode 100644 index 00000000..8c966b8a --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetProcessModeR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetServoParR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetServoParR.datasource new file mode 100644 index 00000000..17bca387 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetServoParR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetSpeedRateOverR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetSpeedRateOverR.datasource new file mode 100644 index 00000000..287f5881 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetSpeedRateOverR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetToolTabRecordIIR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetToolTabRecordIIR.datasource new file mode 100644 index 00000000..49f7611f --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetToolTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetUserTabRecordIIR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetUserTabRecordIIR.datasource new file mode 100644 index 00000000..5be1fcce --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetUserTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetVarJOGR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetVarJOGR.datasource new file mode 100644 index 00000000..5b882e59 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetVarJOGR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetVarRCMR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetVarRCMR.datasource new file mode 100644 index 00000000..eb034e04 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetVarRCMR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetVarUASR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetVarUASR.datasource new file mode 100644 index 00000000..701e0e34 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SetVarUASR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SkipPProgBlockR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SkipPProgBlockR.datasource new file mode 100644 index 00000000..3211d7aa --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SkipPProgBlockR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SndProcInpDataR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SndProcInpDataR.datasource new file mode 100644 index 00000000..0aac9c79 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SndProcInpDataR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SyncroCycleR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SyncroCycleR.datasource new file mode 100644 index 00000000..b7ff327e --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.SyncroCycleR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.UnLockTableIIR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.UnLockTableIIR.datasource new file mode 100644 index 00000000..2dfd5f1d --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.UnLockTableIIR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.WriteRemapDefinitionsR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.WriteRemapDefinitionsR.datasource new file mode 100644 index 00000000..c43c0e95 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.WriteRemapDefinitionsR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.WriteVarDoubleR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.WriteVarDoubleR.datasource new file mode 100644 index 00000000..fd1580b9 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.WriteVarDoubleR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.WriteVarTextR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.WriteVarTextR.datasource new file mode 100644 index 00000000..a7e060c9 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.WriteVarTextR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.WriteVarWordBitR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.WriteVarWordBitR.datasource new file mode 100644 index 00000000..1f4dd1ac --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.WriteVarWordBitR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.WriteVarWordR.datasource b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.WriteVarWordR.datasource new file mode 100644 index 00000000..941f4554 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/easysuperv.OpenControl.WriteVarWordR.datasource @@ -0,0 +1,10 @@ + + + + easysuperv.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/CVCncLib/Service References/OpenControl/testSam.OpenControl.AxesRefR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.AxesRefR.datasource new file mode 100644 index 00000000..d9032caa --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.AxesRefR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.AxesRefR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.BootModeR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.BootModeR.datasource new file mode 100644 index 00000000..d7a212dc --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.BootModeR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.BootModeR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.BootPhaseEnquiryR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.BootPhaseEnquiryR.datasource new file mode 100644 index 00000000..4fd1f107 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.BootPhaseEnquiryR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.BootPhaseEnquiryR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.BootRebootR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.BootRebootR.datasource new file mode 100644 index 00000000..3c66b6a2 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.BootRebootR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.BootRebootR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.BootShutDownR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.BootShutDownR.datasource new file mode 100644 index 00000000..890c4db8 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.BootShutDownR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.BootShutDownR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.CheckHistoryR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.CheckHistoryR.datasource new file mode 100644 index 00000000..9bc86353 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.CheckHistoryR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.CheckHistoryR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.CycleR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.CycleR.datasource new file mode 100644 index 00000000..3bf5106c --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.CycleR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.CycleR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.DncDataR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.DncDataR.datasource new file mode 100644 index 00000000..7513d93a --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.DncDataR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.DncDataR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.DncEofR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.DncEofR.datasource new file mode 100644 index 00000000..4d374575 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.DncEofR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.DncEofR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.DncInitR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.DncInitR.datasource new file mode 100644 index 00000000..3f020a83 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.DncInitR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.DncInitR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.DncStopR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.DncStopR.datasource new file mode 100644 index 00000000..ee73d7cc --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.DncStopR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.DncStopR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.EseExR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.EseExR.datasource new file mode 100644 index 00000000..6809725d --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.EseExR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.EseExR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.EseR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.EseR.datasource new file mode 100644 index 00000000..9da84bc7 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.EseR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.EseR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.ExeR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ExeR.datasource new file mode 100644 index 00000000..5114dfbe --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ExeR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.ExeR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetActivePartProgramR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetActivePartProgramR.datasource new file mode 100644 index 00000000..1b7d3363 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetActivePartProgramR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetActivePartProgramR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetAvailableCustomEventsR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetAvailableCustomEventsR.datasource new file mode 100644 index 00000000..f6933482 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetAvailableCustomEventsR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetAvailableCustomEventsR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetAxOriginNumR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetAxOriginNumR.datasource new file mode 100644 index 00000000..291c3307 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetAxOriginNumR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetAxOriginNumR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetAxesInfo3R.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetAxesInfo3R.datasource new file mode 100644 index 00000000..ab3d8c51 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetAxesInfo3R.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetAxesInfo3R, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetAxesPositionR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetAxesPositionR.datasource new file mode 100644 index 00000000..75b7554f --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetAxesPositionR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetAxesPositionR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetBinaryFileR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetBinaryFileR.datasource new file mode 100644 index 00000000..3122ce0f --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetBinaryFileR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetBinaryFileR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetBlkNumR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetBlkNumR.datasource new file mode 100644 index 00000000..f6ec0fb6 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetBlkNumR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetBlkNumR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetCNCRegKeyR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetCNCRegKeyR.datasource new file mode 100644 index 00000000..b02cf5b0 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetCNCRegKeyR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetCNCRegKeyR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetCodeNumberR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetCodeNumberR.datasource new file mode 100644 index 00000000..7454a918 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetCodeNumberR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetCodeNumberR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetDateTimeR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetDateTimeR.datasource new file mode 100644 index 00000000..c3555d8a --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetDateTimeR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetDateTimeR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetFileR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetFileR.datasource new file mode 100644 index 00000000..185710b4 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetFileR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetFileR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetGCodeR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetGCodeR.datasource new file mode 100644 index 00000000..af08df4f --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetGCodeR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetGCodeR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetHWKeyR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetHWKeyR.datasource new file mode 100644 index 00000000..e11cb684 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetHWKeyR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetHWKeyR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetMCodeR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetMCodeR.datasource new file mode 100644 index 00000000..9f12d47f --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetMCodeR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetMCodeR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetMarkerInfoR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetMarkerInfoR.datasource new file mode 100644 index 00000000..dc3dc135 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetMarkerInfoR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetMarkerInfoR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetNcInfo1R.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetNcInfo1R.datasource new file mode 100644 index 00000000..590bd529 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetNcInfo1R.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetNcInfo1R, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetNcInfo2R.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetNcInfo2R.datasource new file mode 100644 index 00000000..a3611aee --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetNcInfo2R.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetNcInfo2R, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetOffsetTabRecordIIR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetOffsetTabRecordIIR.datasource new file mode 100644 index 00000000..12bdf7d5 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetOffsetTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetOffsetTabRecordIIR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetOptionsR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetOptionsR.datasource new file mode 100644 index 00000000..a516b109 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetOptionsR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetOptionsR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetOriginTabRecordIIR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetOriginTabRecordIIR.datasource new file mode 100644 index 00000000..1c766b01 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetOriginTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetOriginTabRecordIIR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetPTechSizesR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetPTechSizesR.datasource new file mode 100644 index 00000000..7455dc63 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetPTechSizesR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetPTechSizesR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetPartProgramLinesR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetPartProgramLinesR.datasource new file mode 100644 index 00000000..efa43846 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetPartProgramLinesR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetPartProgramLinesR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetProcInInputR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetProcInInputR.datasource new file mode 100644 index 00000000..9a763e9e --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetProcInInputR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetProcInInputR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetProcVarDoubleR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetProcVarDoubleR.datasource new file mode 100644 index 00000000..900993a8 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetProcVarDoubleR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetProcVarDoubleR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetProcVarWordR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetProcVarWordR.datasource new file mode 100644 index 00000000..bba5f6c6 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetProcVarWordR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetProcVarWordR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetProcessConfNumR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetProcessConfNumR.datasource new file mode 100644 index 00000000..bf8a0092 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetProcessConfNumR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetProcessConfNumR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetProcessStatusR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetProcessStatusR.datasource new file mode 100644 index 00000000..49f4c744 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetProcessStatusR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetProcessStatusR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetSelectedProcessR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetSelectedProcessR.datasource new file mode 100644 index 00000000..8cf97a46 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetSelectedProcessR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetSelectedProcessR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetSerialNumberR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetSerialNumberR.datasource new file mode 100644 index 00000000..92e8f851 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetSerialNumberR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetSerialNumberR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetServoParR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetServoParR.datasource new file mode 100644 index 00000000..e078a81b --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetServoParR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetServoParR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetSysTickR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetSysTickR.datasource new file mode 100644 index 00000000..80125f5b --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetSysTickR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetSysTickR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetToolNamesR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetToolNamesR.datasource new file mode 100644 index 00000000..f2db01c9 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetToolNamesR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetToolNamesR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetToolTabRecordIIR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetToolTabRecordIIR.datasource new file mode 100644 index 00000000..c1f3faad --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetToolTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetToolTabRecordIIR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetUserTabRecordIIR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetUserTabRecordIIR.datasource new file mode 100644 index 00000000..8169843f --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetUserTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetUserTabRecordIIR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetVarJOGR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetVarJOGR.datasource new file mode 100644 index 00000000..01ec3924 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetVarJOGR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetVarJOGR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetVarRCMR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetVarRCMR.datasource new file mode 100644 index 00000000..a1e8ab49 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.GetVarRCMR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.GetVarRCMR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.HoldR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.HoldR.datasource new file mode 100644 index 00000000..d1b3f7c3 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.HoldR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.HoldR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LoadPTechR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LoadPTechR.datasource new file mode 100644 index 00000000..7744c895 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LoadPTechR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LoadPTechR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LockTableIIR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LockTableIIR.datasource new file mode 100644 index 00000000..7b4f7e48 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LockTableIIR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LockTableIIR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSAddDriveR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSAddDriveR.datasource new file mode 100644 index 00000000..3c16cc37 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSAddDriveR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LogFSAddDriveR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSChangeFileAttribR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSChangeFileAttribR.datasource new file mode 100644 index 00000000..eac1e963 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSChangeFileAttribR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LogFSChangeFileAttribR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSCloseFileR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSCloseFileR.datasource new file mode 100644 index 00000000..95d0744b --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSCloseFileR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LogFSCloseFileR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSCopyFileR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSCopyFileR.datasource new file mode 100644 index 00000000..2a7777c7 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSCopyFileR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LogFSCopyFileR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSCreateDirR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSCreateDirR.datasource new file mode 100644 index 00000000..5b008501 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSCreateDirR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LogFSCreateDirR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSCreateFileR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSCreateFileR.datasource new file mode 100644 index 00000000..446f81a1 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSCreateFileR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LogFSCreateFileR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSFindCloseR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSFindCloseR.datasource new file mode 100644 index 00000000..79d20989 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSFindCloseR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LogFSFindCloseR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSFindFirstR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSFindFirstR.datasource new file mode 100644 index 00000000..67041182 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSFindFirstR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LogFSFindFirstR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSFindNextR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSFindNextR.datasource new file mode 100644 index 00000000..379d1e99 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSFindNextR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LogFSFindNextR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSGetDriveListR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSGetDriveListR.datasource new file mode 100644 index 00000000..bb87613b --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSGetDriveListR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LogFSGetDriveListR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSGetDrivePathR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSGetDrivePathR.datasource new file mode 100644 index 00000000..86a765be --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSGetDrivePathR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LogFSGetDrivePathR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSGetFileAttribR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSGetFileAttribR.datasource new file mode 100644 index 00000000..5416aaae --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSGetFileAttribR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LogFSGetFileAttribR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSGetFileSizeR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSGetFileSizeR.datasource new file mode 100644 index 00000000..ac8ca195 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSGetFileSizeR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LogFSGetFileSizeR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSGetHiddenDriveListR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSGetHiddenDriveListR.datasource new file mode 100644 index 00000000..ce6a7f93 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSGetHiddenDriveListR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LogFSGetHiddenDriveListR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSGetInfoR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSGetInfoR.datasource new file mode 100644 index 00000000..0fa1cb36 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSGetInfoR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LogFSGetInfoR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSGetNumDriveR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSGetNumDriveR.datasource new file mode 100644 index 00000000..c312cbb1 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSGetNumDriveR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LogFSGetNumDriveR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSGetSecurityLevelR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSGetSecurityLevelR.datasource new file mode 100644 index 00000000..a30d5584 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSGetSecurityLevelR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LogFSGetSecurityLevelR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSLongFileNamesR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSLongFileNamesR.datasource new file mode 100644 index 00000000..87c2c840 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSLongFileNamesR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LogFSLongFileNamesR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSOpenFileR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSOpenFileR.datasource new file mode 100644 index 00000000..24d33172 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSOpenFileR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LogFSOpenFileR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSReadRecordR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSReadRecordR.datasource new file mode 100644 index 00000000..549b6621 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSReadRecordR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LogFSReadRecordR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSReloadDriveListR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSReloadDriveListR.datasource new file mode 100644 index 00000000..806d2f37 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSReloadDriveListR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LogFSReloadDriveListR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSRemoveDirR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSRemoveDirR.datasource new file mode 100644 index 00000000..0a40668f --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSRemoveDirR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LogFSRemoveDirR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSRemoveDriveR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSRemoveDriveR.datasource new file mode 100644 index 00000000..0633a56f --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSRemoveDriveR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LogFSRemoveDriveR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSRemoveFileR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSRemoveFileR.datasource new file mode 100644 index 00000000..3276d806 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSRemoveFileR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LogFSRemoveFileR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSRenameR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSRenameR.datasource new file mode 100644 index 00000000..45623493 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSRenameR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LogFSRenameR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSSetFileAttribR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSSetFileAttribR.datasource new file mode 100644 index 00000000..37610e43 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSSetFileAttribR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LogFSSetFileAttribR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSSetSecurityLevelR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSSetSecurityLevelR.datasource new file mode 100644 index 00000000..f5c85ebb --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSSetSecurityLevelR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LogFSSetSecurityLevelR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSWriteRecordR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSWriteRecordR.datasource new file mode 100644 index 00000000..27d812d4 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.LogFSWriteRecordR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.LogFSWriteRecordR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.ManagePartProgramR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ManagePartProgramR.datasource new file mode 100644 index 00000000..666d7d5b --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ManagePartProgramR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.ManagePartProgramR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.MonAddVariableR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.MonAddVariableR.datasource new file mode 100644 index 00000000..8672c4ca --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.MonAddVariableR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.MonAddVariableR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.MonCloseChannelR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.MonCloseChannelR.datasource new file mode 100644 index 00000000..7507305d --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.MonCloseChannelR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.MonCloseChannelR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.MonDeleteVariableR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.MonDeleteVariableR.datasource new file mode 100644 index 00000000..5b2011ef --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.MonDeleteVariableR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.MonDeleteVariableR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.MonGetVariableR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.MonGetVariableR.datasource new file mode 100644 index 00000000..c2961bf2 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.MonGetVariableR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.MonGetVariableR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.MonOpenChannelR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.MonOpenChannelR.datasource new file mode 100644 index 00000000..401eaf39 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.MonOpenChannelR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.MonOpenChannelR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.MonStartSamplingR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.MonStartSamplingR.datasource new file mode 100644 index 00000000..40407c16 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.MonStartSamplingR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.MonStartSamplingR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.MonStopSamplingR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.MonStopSamplingR.datasource new file mode 100644 index 00000000..349ef8a8 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.MonStopSamplingR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.MonStopSamplingR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.PutBinaryFileR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.PutBinaryFileR.datasource new file mode 100644 index 00000000..a755b6c0 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.PutBinaryFileR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.PutBinaryFileR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.PutFileR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.PutFileR.datasource new file mode 100644 index 00000000..c81a3517 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.PutFileR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.PutFileR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadCurrentAnomalyMsgR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadCurrentAnomalyMsgR.datasource new file mode 100644 index 00000000..3e2bd8ae --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadCurrentAnomalyMsgR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.ReadCurrentAnomalyMsgR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadCurrentEmergMsgR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadCurrentEmergMsgR.datasource new file mode 100644 index 00000000..f06dda14 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadCurrentEmergMsgR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.ReadCurrentEmergMsgR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadCurrentErrorMsgR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadCurrentErrorMsgR.datasource new file mode 100644 index 00000000..ef7fe014 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadCurrentErrorMsgR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.ReadCurrentErrorMsgR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadErrMsgR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadErrMsgR.datasource new file mode 100644 index 00000000..55c8141c --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadErrMsgR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.ReadErrMsgR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadHistoryAnomalyMsgR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadHistoryAnomalyMsgR.datasource new file mode 100644 index 00000000..77d67303 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadHistoryAnomalyMsgR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.ReadHistoryAnomalyMsgR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadHistoryEmergMsgR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadHistoryEmergMsgR.datasource new file mode 100644 index 00000000..a3713ab5 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadHistoryEmergMsgR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.ReadHistoryEmergMsgR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadHistoryErrorMsgR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadHistoryErrorMsgR.datasource new file mode 100644 index 00000000..fb1553a5 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadHistoryErrorMsgR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.ReadHistoryErrorMsgR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadHistoryLogMsgR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadHistoryLogMsgR.datasource new file mode 100644 index 00000000..5f7482f6 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadHistoryLogMsgR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.ReadHistoryLogMsgR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadPartProgramMsgR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadPartProgramMsgR.datasource new file mode 100644 index 00000000..e4f3ce8b --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadPartProgramMsgR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.ReadPartProgramMsgR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadRemapDefinitionsR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadRemapDefinitionsR.datasource new file mode 100644 index 00000000..fe41b677 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadRemapDefinitionsR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.ReadRemapDefinitionsR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadVarDoubleR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadVarDoubleR.datasource new file mode 100644 index 00000000..8a889f96 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadVarDoubleR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.ReadVarDoubleR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadVarTextR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadVarTextR.datasource new file mode 100644 index 00000000..d12ecc7d --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadVarTextR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.ReadVarTextR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadVarWordR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadVarWordR.datasource new file mode 100644 index 00000000..d07d0e7b --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadVarWordR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.ReadVarWordR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadWarningMsgR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadWarningMsgR.datasource new file mode 100644 index 00000000..a04f2923 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ReadWarningMsgR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.ReadWarningMsgR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.ResetR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ResetR.datasource new file mode 100644 index 00000000..4d4a3462 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ResetR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.ResetR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.ResetSingleTableIIR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ResetSingleTableIIR.datasource new file mode 100644 index 00000000..4cf9f69e --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.ResetSingleTableIIR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.ResetSingleTableIIR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.RestoreBackupMemoryR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.RestoreBackupMemoryR.datasource new file mode 100644 index 00000000..6f7356ae --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.RestoreBackupMemoryR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.RestoreBackupMemoryR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.RestoreSingleTableR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.RestoreSingleTableR.datasource new file mode 100644 index 00000000..1276fc97 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.RestoreSingleTableR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.RestoreSingleTableR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SaveBackupMemoryR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SaveBackupMemoryR.datasource new file mode 100644 index 00000000..65023270 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SaveBackupMemoryR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SaveBackupMemoryR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SaveSingleTableR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SaveSingleTableR.datasource new file mode 100644 index 00000000..515c9e96 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SaveSingleTableR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SaveSingleTableR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SaveTablesR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SaveTablesR.datasource new file mode 100644 index 00000000..ced2912e --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SaveTablesR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SaveTablesR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SelectPartProgramFromDriveR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SelectPartProgramFromDriveR.datasource new file mode 100644 index 00000000..74480865 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SelectPartProgramFromDriveR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SelectPartProgramFromDriveR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SelectPartProgramR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SelectPartProgramR.datasource new file mode 100644 index 00000000..4e16e6c0 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SelectPartProgramR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SelectPartProgramR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SelectProcAxisR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SelectProcAxisR.datasource new file mode 100644 index 00000000..fc7372a3 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SelectProcAxisR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SelectProcAxisR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SelectProcessR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SelectProcessR.datasource new file mode 100644 index 00000000..f9b950da --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SelectProcessR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SelectProcessR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetDateTimeR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetDateTimeR.datasource new file mode 100644 index 00000000..6aede0f8 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetDateTimeR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SetDateTimeR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetFeedManOverR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetFeedManOverR.datasource new file mode 100644 index 00000000..7656bc49 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetFeedManOverR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SetFeedManOverR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetFeedRapidOverR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetFeedRapidOverR.datasource new file mode 100644 index 00000000..57e756ae --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetFeedRapidOverR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SetFeedRapidOverR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetFeedRateOverR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetFeedRateOverR.datasource new file mode 100644 index 00000000..57d6afdc --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetFeedRateOverR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SetFeedRateOverR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetIpAddressR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetIpAddressR.datasource new file mode 100644 index 00000000..a8083fa3 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetIpAddressR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SetIpAddressR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetManMovDirectionR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetManMovDirectionR.datasource new file mode 100644 index 00000000..d4e1d8af --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetManMovDirectionR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SetManMovDirectionR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetMdiStringR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetMdiStringR.datasource new file mode 100644 index 00000000..de25a95e --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetMdiStringR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SetMdiStringR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetOffsetTabRecordIIR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetOffsetTabRecordIIR.datasource new file mode 100644 index 00000000..ad22e9ab --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetOffsetTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SetOffsetTabRecordIIR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetOriginTabRecordIIR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetOriginTabRecordIIR.datasource new file mode 100644 index 00000000..c789af4f --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetOriginTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SetOriginTabRecordIIR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetProcVarDoubleR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetProcVarDoubleR.datasource new file mode 100644 index 00000000..9f45c674 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetProcVarDoubleR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SetProcVarDoubleR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetProcVarWordR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetProcVarWordR.datasource new file mode 100644 index 00000000..11393f94 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetProcVarWordR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SetProcVarWordR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetProcessModeR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetProcessModeR.datasource new file mode 100644 index 00000000..7754b30f --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetProcessModeR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SetProcessModeR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetServoParR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetServoParR.datasource new file mode 100644 index 00000000..262c93e8 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetServoParR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SetServoParR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetSpeedRateOverR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetSpeedRateOverR.datasource new file mode 100644 index 00000000..2f1020f0 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetSpeedRateOverR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SetSpeedRateOverR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetToolTabRecordIIR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetToolTabRecordIIR.datasource new file mode 100644 index 00000000..ee2318e6 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetToolTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SetToolTabRecordIIR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetUserTabRecordIIR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetUserTabRecordIIR.datasource new file mode 100644 index 00000000..4a4e1075 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetUserTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SetUserTabRecordIIR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetVarJOGR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetVarJOGR.datasource new file mode 100644 index 00000000..525d2a76 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetVarJOGR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SetVarJOGR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetVarRCMR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetVarRCMR.datasource new file mode 100644 index 00000000..734482dd --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetVarRCMR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SetVarRCMR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetVarUASR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetVarUASR.datasource new file mode 100644 index 00000000..17f6c644 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SetVarUASR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SetVarUASR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SkipPProgBlockR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SkipPProgBlockR.datasource new file mode 100644 index 00000000..990118a0 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SkipPProgBlockR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SkipPProgBlockR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SndProcInpDataR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SndProcInpDataR.datasource new file mode 100644 index 00000000..44d485de --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SndProcInpDataR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SndProcInpDataR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.SyncroCycleR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SyncroCycleR.datasource new file mode 100644 index 00000000..e4d47da3 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.SyncroCycleR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.SyncroCycleR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.UnLockTableIIR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.UnLockTableIIR.datasource new file mode 100644 index 00000000..5bf13ee4 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.UnLockTableIIR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.UnLockTableIIR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.WriteRemapDefinitionsR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.WriteRemapDefinitionsR.datasource new file mode 100644 index 00000000..ac4e3487 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.WriteRemapDefinitionsR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.WriteRemapDefinitionsR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.WriteVarDoubleR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.WriteVarDoubleR.datasource new file mode 100644 index 00000000..03c7b0b7 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.WriteVarDoubleR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.WriteVarDoubleR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.WriteVarTextR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.WriteVarTextR.datasource new file mode 100644 index 00000000..0483c407 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.WriteVarTextR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.WriteVarTextR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.WriteVarWordBitR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.WriteVarWordBitR.datasource new file mode 100644 index 00000000..2cdc9273 --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.WriteVarWordBitR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.WriteVarWordBitR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Service References/OpenControl/testSam.OpenControl.WriteVarWordR.datasource b/CVCncLib/Service References/OpenControl/testSam.OpenControl.WriteVarWordR.datasource new file mode 100644 index 00000000..7e3197ff --- /dev/null +++ b/CVCncLib/Service References/OpenControl/testSam.OpenControl.WriteVarWordR.datasource @@ -0,0 +1,10 @@ + + + + testSam.OpenControl.WriteVarWordR, Service References.OpenControl.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Web References/WebReference/AXORIGNUM.datasource b/CVCncLib/Web References/WebReference/AXORIGNUM.datasource new file mode 100644 index 00000000..9990ee6b --- /dev/null +++ b/CVCncLib/Web References/WebReference/AXORIGNUM.datasource @@ -0,0 +1,10 @@ + + + + testSam.WebReference.AXORIGNUM, Web References.WebReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Web References/WebReference/DRIVEBASICINFO.datasource b/CVCncLib/Web References/WebReference/DRIVEBASICINFO.datasource new file mode 100644 index 00000000..60780778 --- /dev/null +++ b/CVCncLib/Web References/WebReference/DRIVEBASICINFO.datasource @@ -0,0 +1,10 @@ + + + + testSam.WebReference.DRIVEBASICINFO, Web References.WebReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Web References/WebReference/ERRMSG.datasource b/CVCncLib/Web References/WebReference/ERRMSG.datasource new file mode 100644 index 00000000..be61f12d --- /dev/null +++ b/CVCncLib/Web References/WebReference/ERRMSG.datasource @@ -0,0 +1,10 @@ + + + + testSam.WebReference.ERRMSG, Web References.WebReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Web References/WebReference/FILEFINDDATA.datasource b/CVCncLib/Web References/WebReference/FILEFINDDATA.datasource new file mode 100644 index 00000000..12c85bea --- /dev/null +++ b/CVCncLib/Web References/WebReference/FILEFINDDATA.datasource @@ -0,0 +1,10 @@ + + + + testSam.WebReference.FILEFINDDATA, Web References.WebReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Web References/WebReference/GETBLKNUMDATA.datasource b/CVCncLib/Web References/WebReference/GETBLKNUMDATA.datasource new file mode 100644 index 00000000..080c6a7b --- /dev/null +++ b/CVCncLib/Web References/WebReference/GETBLKNUMDATA.datasource @@ -0,0 +1,10 @@ + + + + testSam.WebReference.GETBLKNUMDATA, Web References.WebReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Web References/WebReference/GETINFO1DATA.datasource b/CVCncLib/Web References/WebReference/GETINFO1DATA.datasource new file mode 100644 index 00000000..9e8881ab --- /dev/null +++ b/CVCncLib/Web References/WebReference/GETINFO1DATA.datasource @@ -0,0 +1,10 @@ + + + + testSam.WebReference.GETINFO1DATA, Web References.WebReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Web References/WebReference/GETINFO2DATA.datasource b/CVCncLib/Web References/WebReference/GETINFO2DATA.datasource new file mode 100644 index 00000000..7ddc972f --- /dev/null +++ b/CVCncLib/Web References/WebReference/GETINFO2DATA.datasource @@ -0,0 +1,10 @@ + + + + testSam.WebReference.GETINFO2DATA, Web References.WebReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Web References/WebReference/GETINTDATA.datasource b/CVCncLib/Web References/WebReference/GETINTDATA.datasource new file mode 100644 index 00000000..29a7e878 --- /dev/null +++ b/CVCncLib/Web References/WebReference/GETINTDATA.datasource @@ -0,0 +1,10 @@ + + + + testSam.WebReference.GETINTDATA, Web References.WebReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Web References/WebReference/INPUTINFO.datasource b/CVCncLib/Web References/WebReference/INPUTINFO.datasource new file mode 100644 index 00000000..50dd9448 --- /dev/null +++ b/CVCncLib/Web References/WebReference/INPUTINFO.datasource @@ -0,0 +1,10 @@ + + + + testSam.WebReference.INPUTINFO, Web References.WebReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Web References/WebReference/MAGAZINETABLEII.datasource b/CVCncLib/Web References/WebReference/MAGAZINETABLEII.datasource new file mode 100644 index 00000000..40b4a645 --- /dev/null +++ b/CVCncLib/Web References/WebReference/MAGAZINETABLEII.datasource @@ -0,0 +1,10 @@ + + + + testSam.WebReference.MAGAZINETABLEII, Web References.WebReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Web References/WebReference/MARKERINFO.datasource b/CVCncLib/Web References/WebReference/MARKERINFO.datasource new file mode 100644 index 00000000..f4514786 --- /dev/null +++ b/CVCncLib/Web References/WebReference/MARKERINFO.datasource @@ -0,0 +1,10 @@ + + + + testSam.WebReference.MARKERINFO, Web References.WebReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Web References/WebReference/MONCUSTOMEVENTINFO.datasource b/CVCncLib/Web References/WebReference/MONCUSTOMEVENTINFO.datasource new file mode 100644 index 00000000..43715c11 --- /dev/null +++ b/CVCncLib/Web References/WebReference/MONCUSTOMEVENTINFO.datasource @@ -0,0 +1,10 @@ + + + + testSam.WebReference.MONCUSTOMEVENTINFO, Web References.WebReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Web References/WebReference/MONDRYRUN.datasource b/CVCncLib/Web References/WebReference/MONDRYRUN.datasource new file mode 100644 index 00000000..012f5a28 --- /dev/null +++ b/CVCncLib/Web References/WebReference/MONDRYRUN.datasource @@ -0,0 +1,10 @@ + + + + testSam.WebReference.MONDRYRUN, Web References.WebReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Web References/WebReference/MONENTEMOVI.datasource b/CVCncLib/Web References/WebReference/MONENTEMOVI.datasource new file mode 100644 index 00000000..c2eaf6d1 --- /dev/null +++ b/CVCncLib/Web References/WebReference/MONENTEMOVI.datasource @@ -0,0 +1,10 @@ + + + + testSam.WebReference.MONENTEMOVI, Web References.WebReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Web References/WebReference/MSGANOMALY.datasource b/CVCncLib/Web References/WebReference/MSGANOMALY.datasource new file mode 100644 index 00000000..d2ab7c90 --- /dev/null +++ b/CVCncLib/Web References/WebReference/MSGANOMALY.datasource @@ -0,0 +1,10 @@ + + + + testSam.WebReference.MSGANOMALY, Web References.WebReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Web References/WebReference/MSGEMERGENCY.datasource b/CVCncLib/Web References/WebReference/MSGEMERGENCY.datasource new file mode 100644 index 00000000..3b9ccb0e --- /dev/null +++ b/CVCncLib/Web References/WebReference/MSGEMERGENCY.datasource @@ -0,0 +1,10 @@ + + + + testSam.WebReference.MSGEMERGENCY, Web References.WebReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Web References/WebReference/MSGERROR.datasource b/CVCncLib/Web References/WebReference/MSGERROR.datasource new file mode 100644 index 00000000..7e196f05 --- /dev/null +++ b/CVCncLib/Web References/WebReference/MSGERROR.datasource @@ -0,0 +1,10 @@ + + + + testSam.WebReference.MSGERROR, Web References.WebReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Web References/WebReference/MSGLOGS.datasource b/CVCncLib/Web References/WebReference/MSGLOGS.datasource new file mode 100644 index 00000000..1ae07e20 --- /dev/null +++ b/CVCncLib/Web References/WebReference/MSGLOGS.datasource @@ -0,0 +1,10 @@ + + + + testSam.WebReference.MSGLOGS, Web References.WebReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Web References/WebReference/OFFSETTABLEII.datasource b/CVCncLib/Web References/WebReference/OFFSETTABLEII.datasource new file mode 100644 index 00000000..84f51d08 --- /dev/null +++ b/CVCncLib/Web References/WebReference/OFFSETTABLEII.datasource @@ -0,0 +1,10 @@ + + + + testSam.WebReference.OFFSETTABLEII, Web References.WebReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Web References/WebReference/OPENcontrol.wsdl b/CVCncLib/Web References/WebReference/OPENcontrol.wsdl new file mode 100644 index 00000000..036e7aa5 --- /dev/null +++ b/CVCncLib/Web References/WebReference/OPENcontrol.wsdl @@ -0,0 +1,8075 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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/CVCncLib/Web References/WebReference/ORIGINTABLEII.datasource b/CVCncLib/Web References/WebReference/ORIGINTABLEII.datasource new file mode 100644 index 00000000..0a112d64 --- /dev/null +++ b/CVCncLib/Web References/WebReference/ORIGINTABLEII.datasource @@ -0,0 +1,10 @@ + + + + testSam.WebReference.ORIGINTABLEII, Web References.WebReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Web References/WebReference/POCKETTABLEII.datasource b/CVCncLib/Web References/WebReference/POCKETTABLEII.datasource new file mode 100644 index 00000000..36ae05d8 --- /dev/null +++ b/CVCncLib/Web References/WebReference/POCKETTABLEII.datasource @@ -0,0 +1,10 @@ + + + + testSam.WebReference.POCKETTABLEII, Web References.WebReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Web References/WebReference/PROCDATA.datasource b/CVCncLib/Web References/WebReference/PROCDATA.datasource new file mode 100644 index 00000000..a3ba0118 --- /dev/null +++ b/CVCncLib/Web References/WebReference/PROCDATA.datasource @@ -0,0 +1,10 @@ + + + + testSam.WebReference.PROCDATA, Web References.WebReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Web References/WebReference/REMAPDEF.datasource b/CVCncLib/Web References/WebReference/REMAPDEF.datasource new file mode 100644 index 00000000..ca186476 --- /dev/null +++ b/CVCncLib/Web References/WebReference/REMAPDEF.datasource @@ -0,0 +1,10 @@ + + + + testSam.WebReference.REMAPDEF, Web References.WebReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Web References/WebReference/Reference.map b/CVCncLib/Web References/WebReference/Reference.map new file mode 100644 index 00000000..81da5499 --- /dev/null +++ b/CVCncLib/Web References/WebReference/Reference.map @@ -0,0 +1,6 @@ + + + + + + \ No newline at end of file diff --git a/CVCncLib/Web References/WebReference/Reference.vb b/CVCncLib/Web References/WebReference/Reference.vb new file mode 100644 index 00000000..bec9e52b --- /dev/null +++ b/CVCncLib/Web References/WebReference/Reference.vb @@ -0,0 +1,20797 @@ +'------------------------------------------------------------------------------ +' +' Il codice è stato generato da uno strumento. +' Versione runtime:4.0.30319.42000 +' +' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se +' il codice viene rigenerato. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + +Imports System +Imports System.ComponentModel +Imports System.Diagnostics +Imports System.Web.Services +Imports System.Web.Services.Protocols +Imports System.Xml.Serialization + +' +'Il codice sorgente è stato generato automaticamente da Microsoft.VSDesigner, versione 4.0.30319.42000. +' +Namespace WebReference + + ''' + _ + Partial Public Class OPENcontrol + Inherits System.Web.Services.Protocols.SoapHttpClientProtocol + + Private BootPhaseEnquiryOperationCompleted As System.Threading.SendOrPostCallback + + Private BootRebootOperationCompleted As System.Threading.SendOrPostCallback + + Private BootShutDownOperationCompleted As System.Threading.SendOrPostCallback + + Private BootModeOperationCompleted As System.Threading.SendOrPostCallback + + Private GetHWKeyOperationCompleted As System.Threading.SendOrPostCallback + + Private ReadVarWordOperationCompleted As System.Threading.SendOrPostCallback + + Private ReadVarDoubleOperationCompleted As System.Threading.SendOrPostCallback + + Private WriteVarWordOperationCompleted As System.Threading.SendOrPostCallback + + Private WriteVarWordBitOperationCompleted As System.Threading.SendOrPostCallback + + Private WriteVarDoubleOperationCompleted As System.Threading.SendOrPostCallback + + Private ReadVarTextOperationCompleted As System.Threading.SendOrPostCallback + + Private WriteVarTextOperationCompleted As System.Threading.SendOrPostCallback + + Private ReadNamedVarBoolOperationCompleted As System.Threading.SendOrPostCallback + + Private ReadNamedVarByteOperationCompleted As System.Threading.SendOrPostCallback + + Private ReadNamedVarShortOperationCompleted As System.Threading.SendOrPostCallback + + Private ReadNamedVarWordOperationCompleted As System.Threading.SendOrPostCallback + + Private ReadNamedVarLongOperationCompleted As System.Threading.SendOrPostCallback + + Private ReadNamedVarDwordOperationCompleted As System.Threading.SendOrPostCallback + + Private ReadNamedVarDoubleOperationCompleted As System.Threading.SendOrPostCallback + + Private ReadNamedVarStringOperationCompleted As System.Threading.SendOrPostCallback + + Private WriteNamedVarBoolOperationCompleted As System.Threading.SendOrPostCallback + + Private WriteNamedVarByteOperationCompleted As System.Threading.SendOrPostCallback + + Private WriteNamedVarShortOperationCompleted As System.Threading.SendOrPostCallback + + Private WriteNamedVarWordOperationCompleted As System.Threading.SendOrPostCallback + + Private WriteNamedVarLongOperationCompleted As System.Threading.SendOrPostCallback + + Private WriteNamedVarDwordOperationCompleted As System.Threading.SendOrPostCallback + + Private WriteNamedVarDoubleOperationCompleted As System.Threading.SendOrPostCallback + + Private WriteNamedVarStringOperationCompleted As System.Threading.SendOrPostCallback + + Private ReadWarningMsgOperationCompleted As System.Threading.SendOrPostCallback + + Private ResetSingleTableIIOperationCompleted As System.Threading.SendOrPostCallback + + Private LockTableIIOperationCompleted As System.Threading.SendOrPostCallback + + Private UnLockTableIIOperationCompleted As System.Threading.SendOrPostCallback + + Private GetOriginTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback + + Private SetOriginTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback + + Private GetToolTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback + + Private SetToolTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback + + Private GetOffsetTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback + + Private SetOffsetTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback + + Private GetUserTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback + + Private SetUserTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback + + Private GetMagazineTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback + + Private SetMagazineTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback + + Private GetPocketTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback + + Private SetPocketTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback + + Private SaveTablesOperationCompleted As System.Threading.SendOrPostCallback + + Private RestoreSingleTableOperationCompleted As System.Threading.SendOrPostCallback + + Private SaveSingleTableOperationCompleted As System.Threading.SendOrPostCallback + + Private SaveBackupMemoryOperationCompleted As System.Threading.SendOrPostCallback + + Private RestoreBackupMemoryOperationCompleted As System.Threading.SendOrPostCallback + + Private ToolSearchOperationCompleted As System.Threading.SendOrPostCallback + + Private ToolSearchLifeOperationCompleted As System.Threading.SendOrPostCallback + + Private ToolSearchDirOperationCompleted As System.Threading.SendOrPostCallback + + Private ToolSearchLifeDirOperationCompleted As System.Threading.SendOrPostCallback + + Private ToolSameFamilyOperationCompleted As System.Threading.SendOrPostCallback + + Private ToolLoadOperationCompleted As System.Threading.SendOrPostCallback + + Private ToolUnloadOperationCompleted As System.Threading.SendOrPostCallback + + Private PocketSearchOperationCompleted As System.Threading.SendOrPostCallback + + Private PocketClosestOperationCompleted As System.Threading.SendOrPostCallback + + Private PocketNearestOperationCompleted As System.Threading.SendOrPostCallback + + Private ToolLifeOperationCompleted As System.Threading.SendOrPostCallback + + Private LoadTableFromFileOperationCompleted As System.Threading.SendOrPostCallback + + Private MagConfigurePocketsOperationCompleted As System.Threading.SendOrPostCallback + + Private CycleOperationCompleted As System.Threading.SendOrPostCallback + + Private SyncroCycleOperationCompleted As System.Threading.SendOrPostCallback + + Private ResetOperationCompleted As System.Threading.SendOrPostCallback + + Private HoldOperationCompleted As System.Threading.SendOrPostCallback + + Private SetFeedManOverOperationCompleted As System.Threading.SendOrPostCallback + + Private SetFeedRateOverOperationCompleted As System.Threading.SendOrPostCallback + + Private SetFeedRapidOverOperationCompleted As System.Threading.SendOrPostCallback + + Private SetSpeedRateOverOperationCompleted As System.Threading.SendOrPostCallback + + Private SetManMovDirectionOperationCompleted As System.Threading.SendOrPostCallback + + Private GetVarJOGOperationCompleted As System.Threading.SendOrPostCallback + + Private SetVarJOGOperationCompleted As System.Threading.SendOrPostCallback + + Private SetVarUASOperationCompleted As System.Threading.SendOrPostCallback + + Private GetVarRCMOperationCompleted As System.Threading.SendOrPostCallback + + Private SetVarRCMOperationCompleted As System.Threading.SendOrPostCallback + + Private GetVarCYCTIMEOperationCompleted As System.Threading.SendOrPostCallback + + Private SetVarCYCTIMEOperationCompleted As System.Threading.SendOrPostCallback + + Private GetProcVarWordOperationCompleted As System.Threading.SendOrPostCallback + + Private SetProcVarWordOperationCompleted As System.Threading.SendOrPostCallback + + Private GetProcVarDoubleOperationCompleted As System.Threading.SendOrPostCallback + + Private SetProcVarDoubleOperationCompleted As System.Threading.SendOrPostCallback + + Private SetMdiStringOperationCompleted As System.Threading.SendOrPostCallback + + Private SetProcessModeOperationCompleted As System.Threading.SendOrPostCallback + + Private SelectProcessOperationCompleted As System.Threading.SendOrPostCallback + + Private GetSelectedProcessOperationCompleted As System.Threading.SendOrPostCallback + + Private SelectProcAxisOperationCompleted As System.Threading.SendOrPostCallback + + Private SelectPartProgramOperationCompleted As System.Threading.SendOrPostCallback + + Private SelectPartProgramFromDriveOperationCompleted As System.Threading.SendOrPostCallback + + Private GetActivePartProgramOperationCompleted As System.Threading.SendOrPostCallback + + Private GetActivePartProgramFullPathOperationCompleted As System.Threading.SendOrPostCallback + + Private GetPartProgramLinesOperationCompleted As System.Threading.SendOrPostCallback + + Private GetAxOriginNumOperationCompleted As System.Threading.SendOrPostCallback + + Private GetAxesPositionOperationCompleted As System.Threading.SendOrPostCallback + + Private GetNcInfo1OperationCompleted As System.Threading.SendOrPostCallback + + Private GetNcInfo2OperationCompleted As System.Threading.SendOrPostCallback + + Private GetToolNamesOperationCompleted As System.Threading.SendOrPostCallback + + Private GetProcessStatusOperationCompleted As System.Threading.SendOrPostCallback + + Private GetBlkNumOperationCompleted As System.Threading.SendOrPostCallback + + Private ReadErrMsgOperationCompleted As System.Threading.SendOrPostCallback + + Private ReadPartProgramMsgOperationCompleted As System.Threading.SendOrPostCallback + + Private GetGCodeOperationCompleted As System.Threading.SendOrPostCallback + + Private GetMCodeOperationCompleted As System.Threading.SendOrPostCallback + + Private SkipPProgBlockOperationCompleted As System.Threading.SendOrPostCallback + + Private EseOperationCompleted As System.Threading.SendOrPostCallback + + Private EseExOperationCompleted As System.Threading.SendOrPostCallback + + Private ExeOperationCompleted As System.Threading.SendOrPostCallback + + Private AxesRefOperationCompleted As System.Threading.SendOrPostCallback + + Private DncInitOperationCompleted As System.Threading.SendOrPostCallback + + Private DncDataOperationCompleted As System.Threading.SendOrPostCallback + + Private DncEofOperationCompleted As System.Threading.SendOrPostCallback + + Private DncStopOperationCompleted As System.Threading.SendOrPostCallback + + Private GetAxesInfo3OperationCompleted As System.Threading.SendOrPostCallback + + Private GetCodeNumberOperationCompleted As System.Threading.SendOrPostCallback + + Private GetOptionsOperationCompleted As System.Threading.SendOrPostCallback + + Private GetDateTimeOperationCompleted As System.Threading.SendOrPostCallback + + Private SetDateTimeOperationCompleted As System.Threading.SendOrPostCallback + + Private GetSerialNumberOperationCompleted As System.Threading.SendOrPostCallback + + Private PutFileOperationCompleted As System.Threading.SendOrPostCallback + + Private GetFileOperationCompleted As System.Threading.SendOrPostCallback + + Private PutBinaryFileOperationCompleted As System.Threading.SendOrPostCallback + + Private GetBinaryFileOperationCompleted As System.Threading.SendOrPostCallback + + Private LogFSSetSecurityLevelOperationCompleted As System.Threading.SendOrPostCallback + + Private LogFSGetSecurityLevelOperationCompleted As System.Threading.SendOrPostCallback + + Private LogFSLongFileNamesOperationCompleted As System.Threading.SendOrPostCallback + + Private LogFSGetNumDriveOperationCompleted As System.Threading.SendOrPostCallback + + Private LogFSGetDriveListOperationCompleted As System.Threading.SendOrPostCallback + + Private LogFSGetHiddenDriveListOperationCompleted As System.Threading.SendOrPostCallback + + Private LogFSGetDrivePathOperationCompleted As System.Threading.SendOrPostCallback + + Private LogFSAddDriveOperationCompleted As System.Threading.SendOrPostCallback + + Private LogFSRemoveDriveOperationCompleted As System.Threading.SendOrPostCallback + + Private LogFSReloadDriveListOperationCompleted As System.Threading.SendOrPostCallback + + Private LogFSCreateDirOperationCompleted As System.Threading.SendOrPostCallback + + Private LogFSCreateFileOperationCompleted As System.Threading.SendOrPostCallback + + Private LogFSGetFileSizeOperationCompleted As System.Threading.SendOrPostCallback + + Private LogFSGetFileAttribOperationCompleted As System.Threading.SendOrPostCallback + + Private LogFSSetFileAttribOperationCompleted As System.Threading.SendOrPostCallback + + Private LogFSChangeFileAttribOperationCompleted As System.Threading.SendOrPostCallback + + Private LogFSFindFirstOperationCompleted As System.Threading.SendOrPostCallback + + Private LogFSFindNextOperationCompleted As System.Threading.SendOrPostCallback + + Private LogFSFindCloseOperationCompleted As System.Threading.SendOrPostCallback + + Private LogFSRemoveFileOperationCompleted As System.Threading.SendOrPostCallback + + Private LogFSRemoveDirOperationCompleted As System.Threading.SendOrPostCallback + + Private LogFSRenameOperationCompleted As System.Threading.SendOrPostCallback + + Private LogFSCopyFileOperationCompleted As System.Threading.SendOrPostCallback + + Private LogFSGetInfoOperationCompleted As System.Threading.SendOrPostCallback + + Private LogFSOpenFileOperationCompleted As System.Threading.SendOrPostCallback + + Private LogFSCloseFileOperationCompleted As System.Threading.SendOrPostCallback + + Private GetSysTickOperationCompleted As System.Threading.SendOrPostCallback + + Private GetProcessConfNumOperationCompleted As System.Threading.SendOrPostCallback + + Private CheckHistoryOperationCompleted As System.Threading.SendOrPostCallback + + Private ReadHistoryEmergMsgOperationCompleted As System.Threading.SendOrPostCallback + + Private ReadHistoryErrorMsgOperationCompleted As System.Threading.SendOrPostCallback + + Private ReadHistoryLogMsgOperationCompleted As System.Threading.SendOrPostCallback + + Private ReadHistoryAnomalyMsgOperationCompleted As System.Threading.SendOrPostCallback + + Private ReadCurrentErrorMsgOperationCompleted As System.Threading.SendOrPostCallback + + Private ReadCurrentEmergMsgOperationCompleted As System.Threading.SendOrPostCallback + + Private ReadCurrentAnomalyMsgOperationCompleted As System.Threading.SendOrPostCallback + + Private GetPTechSizesOperationCompleted As System.Threading.SendOrPostCallback + + Private LoadPTechOperationCompleted As System.Threading.SendOrPostCallback + + Private GetMarkerInfoOperationCompleted As System.Threading.SendOrPostCallback + + Private ManagePartProgramOperationCompleted As System.Threading.SendOrPostCallback + + Private LogFSWriteRecordOperationCompleted As System.Threading.SendOrPostCallback + + Private LogFSReadRecordOperationCompleted As System.Threading.SendOrPostCallback + + Private ReadRemapDefinitionsOperationCompleted As System.Threading.SendOrPostCallback + + Private WriteRemapDefinitionsOperationCompleted As System.Threading.SendOrPostCallback + + Private GetServoParOperationCompleted As System.Threading.SendOrPostCallback + + Private SetServoParOperationCompleted As System.Threading.SendOrPostCallback + + Private GetCNCRegKeyOperationCompleted As System.Threading.SendOrPostCallback + + Private GetSecurityDataOperationCompleted As System.Threading.SendOrPostCallback + + Private SetSecurityDataOperationCompleted As System.Threading.SendOrPostCallback + + Private SetIpAddressOperationCompleted As System.Threading.SendOrPostCallback + + Private GetProcInInputOperationCompleted As System.Threading.SendOrPostCallback + + Private SndProcInpDataOperationCompleted As System.Threading.SendOrPostCallback + + Private GetPartProgramLinesExOperationCompleted As System.Threading.SendOrPostCallback + + Private SetMdiStringExOperationCompleted As System.Threading.SendOrPostCallback + + Private GetExpireDataOperationCompleted As System.Threading.SendOrPostCallback + + Private GetRemainingTimeOperationCompleted As System.Threading.SendOrPostCallback + + Private GenerateUserKeyOperationCompleted As System.Threading.SendOrPostCallback + + Private WriteActivationKeyOperationCompleted As System.Threading.SendOrPostCallback + + Private GetAvailableCustomEventsOperationCompleted As System.Threading.SendOrPostCallback + + Private MonOpenChannelOperationCompleted As System.Threading.SendOrPostCallback + + Private MonCloseChannelOperationCompleted As System.Threading.SendOrPostCallback + + Private MonAddVariableOperationCompleted As System.Threading.SendOrPostCallback + + Private MonDeleteVariableOperationCompleted As System.Threading.SendOrPostCallback + + Private MonStartSamplingOperationCompleted As System.Threading.SendOrPostCallback + + Private MonStopSamplingOperationCompleted As System.Threading.SendOrPostCallback + + Private MonGetVariableOperationCompleted As System.Threading.SendOrPostCallback + + Private MonGetVariableSOperationCompleted As System.Threading.SendOrPostCallback + + Private MonGetDryRunOperationCompleted As System.Threading.SendOrPostCallback + + Private MonGetMovOperationCompleted As System.Threading.SendOrPostCallback + + Private GetDriveBasicInfoOperationCompleted As System.Threading.SendOrPostCallback + + Private ReadStatisticsOperationCompleted As System.Threading.SendOrPostCallback + + Private ReadStatisticsBaseFrequencyOperationCompleted As System.Threading.SendOrPostCallback + + Private GetActiveAmpOperationCompleted As System.Threading.SendOrPostCallback + + Private SetActiveAmpOperationCompleted As System.Threading.SendOrPostCallback + + Private useDefaultCredentialsSetExplicitly As Boolean + + ''' + Public Sub New() + MyBase.New + Me.Url = Global.testSam.My.MySettings.Default.d_prod_WebReference_OPENcontrol + If (Me.IsLocalFileSystemWebService(Me.Url) = true) Then + Me.UseDefaultCredentials = true + Me.useDefaultCredentialsSetExplicitly = false + Else + Me.useDefaultCredentialsSetExplicitly = true + End If + End Sub + + Public Shadows Property Url() As String + Get + Return MyBase.Url + End Get + Set + If (((Me.IsLocalFileSystemWebService(MyBase.Url) = true) _ + AndAlso (Me.useDefaultCredentialsSetExplicitly = false)) _ + AndAlso (Me.IsLocalFileSystemWebService(value) = false)) Then + MyBase.UseDefaultCredentials = false + End If + MyBase.Url = value + End Set + End Property + + Public Shadows Property UseDefaultCredentials() As Boolean + Get + Return MyBase.UseDefaultCredentials + End Get + Set + MyBase.UseDefaultCredentials = value + Me.useDefaultCredentialsSetExplicitly = true + End Set + End Property + + ''' + Public Event BootPhaseEnquiryCompleted As BootPhaseEnquiryCompletedEventHandler + + ''' + Public Event BootRebootCompleted As BootRebootCompletedEventHandler + + ''' + Public Event BootShutDownCompleted As BootShutDownCompletedEventHandler + + ''' + Public Event BootModeCompleted As BootModeCompletedEventHandler + + ''' + Public Event GetHWKeyCompleted As GetHWKeyCompletedEventHandler + + ''' + Public Event ReadVarWordCompleted As ReadVarWordCompletedEventHandler + + ''' + Public Event ReadVarDoubleCompleted As ReadVarDoubleCompletedEventHandler + + ''' + Public Event WriteVarWordCompleted As WriteVarWordCompletedEventHandler + + ''' + Public Event WriteVarWordBitCompleted As WriteVarWordBitCompletedEventHandler + + ''' + Public Event WriteVarDoubleCompleted As WriteVarDoubleCompletedEventHandler + + ''' + Public Event ReadVarTextCompleted As ReadVarTextCompletedEventHandler + + ''' + Public Event WriteVarTextCompleted As WriteVarTextCompletedEventHandler + + ''' + Public Event ReadNamedVarBoolCompleted As ReadNamedVarBoolCompletedEventHandler + + ''' + Public Event ReadNamedVarByteCompleted As ReadNamedVarByteCompletedEventHandler + + ''' + Public Event ReadNamedVarShortCompleted As ReadNamedVarShortCompletedEventHandler + + ''' + Public Event ReadNamedVarWordCompleted As ReadNamedVarWordCompletedEventHandler + + ''' + Public Event ReadNamedVarLongCompleted As ReadNamedVarLongCompletedEventHandler + + ''' + Public Event ReadNamedVarDwordCompleted As ReadNamedVarDwordCompletedEventHandler + + ''' + Public Event ReadNamedVarDoubleCompleted As ReadNamedVarDoubleCompletedEventHandler + + ''' + Public Event ReadNamedVarStringCompleted As ReadNamedVarStringCompletedEventHandler + + ''' + Public Event WriteNamedVarBoolCompleted As WriteNamedVarBoolCompletedEventHandler + + ''' + Public Event WriteNamedVarByteCompleted As WriteNamedVarByteCompletedEventHandler + + ''' + Public Event WriteNamedVarShortCompleted As WriteNamedVarShortCompletedEventHandler + + ''' + Public Event WriteNamedVarWordCompleted As WriteNamedVarWordCompletedEventHandler + + ''' + Public Event WriteNamedVarLongCompleted As WriteNamedVarLongCompletedEventHandler + + ''' + Public Event WriteNamedVarDwordCompleted As WriteNamedVarDwordCompletedEventHandler + + ''' + Public Event WriteNamedVarDoubleCompleted As WriteNamedVarDoubleCompletedEventHandler + + ''' + Public Event WriteNamedVarStringCompleted As WriteNamedVarStringCompletedEventHandler + + ''' + Public Event ReadWarningMsgCompleted As ReadWarningMsgCompletedEventHandler + + ''' + Public Event ResetSingleTableIICompleted As ResetSingleTableIICompletedEventHandler + + ''' + Public Event LockTableIICompleted As LockTableIICompletedEventHandler + + ''' + Public Event UnLockTableIICompleted As UnLockTableIICompletedEventHandler + + ''' + Public Event GetOriginTabRecordIICompleted As GetOriginTabRecordIICompletedEventHandler + + ''' + Public Event SetOriginTabRecordIICompleted As SetOriginTabRecordIICompletedEventHandler + + ''' + Public Event GetToolTabRecordIICompleted As GetToolTabRecordIICompletedEventHandler + + ''' + Public Event SetToolTabRecordIICompleted As SetToolTabRecordIICompletedEventHandler + + ''' + Public Event GetOffsetTabRecordIICompleted As GetOffsetTabRecordIICompletedEventHandler + + ''' + Public Event SetOffsetTabRecordIICompleted As SetOffsetTabRecordIICompletedEventHandler + + ''' + Public Event GetUserTabRecordIICompleted As GetUserTabRecordIICompletedEventHandler + + ''' + Public Event SetUserTabRecordIICompleted As SetUserTabRecordIICompletedEventHandler + + ''' + Public Event GetMagazineTabRecordIICompleted As GetMagazineTabRecordIICompletedEventHandler + + ''' + Public Event SetMagazineTabRecordIICompleted As SetMagazineTabRecordIICompletedEventHandler + + ''' + Public Event GetPocketTabRecordIICompleted As GetPocketTabRecordIICompletedEventHandler + + ''' + Public Event SetPocketTabRecordIICompleted As SetPocketTabRecordIICompletedEventHandler + + ''' + Public Event SaveTablesCompleted As SaveTablesCompletedEventHandler + + ''' + Public Event RestoreSingleTableCompleted As RestoreSingleTableCompletedEventHandler + + ''' + Public Event SaveSingleTableCompleted As SaveSingleTableCompletedEventHandler + + ''' + Public Event SaveBackupMemoryCompleted As SaveBackupMemoryCompletedEventHandler + + ''' + Public Event RestoreBackupMemoryCompleted As RestoreBackupMemoryCompletedEventHandler + + ''' + Public Event ToolSearchCompleted As ToolSearchCompletedEventHandler + + ''' + Public Event ToolSearchLifeCompleted As ToolSearchLifeCompletedEventHandler + + ''' + Public Event ToolSearchDirCompleted As ToolSearchDirCompletedEventHandler + + ''' + Public Event ToolSearchLifeDirCompleted As ToolSearchLifeDirCompletedEventHandler + + ''' + Public Event ToolSameFamilyCompleted As ToolSameFamilyCompletedEventHandler + + ''' + Public Event ToolLoadCompleted As ToolLoadCompletedEventHandler + + ''' + Public Event ToolUnloadCompleted As ToolUnloadCompletedEventHandler + + ''' + Public Event PocketSearchCompleted As PocketSearchCompletedEventHandler + + ''' + Public Event PocketClosestCompleted As PocketClosestCompletedEventHandler + + ''' + Public Event PocketNearestCompleted As PocketNearestCompletedEventHandler + + ''' + Public Event ToolLifeCompleted As ToolLifeCompletedEventHandler + + ''' + Public Event LoadTableFromFileCompleted As LoadTableFromFileCompletedEventHandler + + ''' + Public Event MagConfigurePocketsCompleted As MagConfigurePocketsCompletedEventHandler + + ''' + Public Event CycleCompleted As CycleCompletedEventHandler + + ''' + Public Event SyncroCycleCompleted As SyncroCycleCompletedEventHandler + + ''' + Public Event ResetCompleted As ResetCompletedEventHandler + + ''' + Public Event HoldCompleted As HoldCompletedEventHandler + + ''' + Public Event SetFeedManOverCompleted As SetFeedManOverCompletedEventHandler + + ''' + Public Event SetFeedRateOverCompleted As SetFeedRateOverCompletedEventHandler + + ''' + Public Event SetFeedRapidOverCompleted As SetFeedRapidOverCompletedEventHandler + + ''' + Public Event SetSpeedRateOverCompleted As SetSpeedRateOverCompletedEventHandler + + ''' + Public Event SetManMovDirectionCompleted As SetManMovDirectionCompletedEventHandler + + ''' + Public Event GetVarJOGCompleted As GetVarJOGCompletedEventHandler + + ''' + Public Event SetVarJOGCompleted As SetVarJOGCompletedEventHandler + + ''' + Public Event SetVarUASCompleted As SetVarUASCompletedEventHandler + + ''' + Public Event GetVarRCMCompleted As GetVarRCMCompletedEventHandler + + ''' + Public Event SetVarRCMCompleted As SetVarRCMCompletedEventHandler + + ''' + Public Event GetVarCYCTIMECompleted As GetVarCYCTIMECompletedEventHandler + + ''' + Public Event SetVarCYCTIMECompleted As SetVarCYCTIMECompletedEventHandler + + ''' + Public Event GetProcVarWordCompleted As GetProcVarWordCompletedEventHandler + + ''' + Public Event SetProcVarWordCompleted As SetProcVarWordCompletedEventHandler + + ''' + Public Event GetProcVarDoubleCompleted As GetProcVarDoubleCompletedEventHandler + + ''' + Public Event SetProcVarDoubleCompleted As SetProcVarDoubleCompletedEventHandler + + ''' + Public Event SetMdiStringCompleted As SetMdiStringCompletedEventHandler + + ''' + Public Event SetProcessModeCompleted As SetProcessModeCompletedEventHandler + + ''' + Public Event SelectProcessCompleted As SelectProcessCompletedEventHandler + + ''' + Public Event GetSelectedProcessCompleted As GetSelectedProcessCompletedEventHandler + + ''' + Public Event SelectProcAxisCompleted As SelectProcAxisCompletedEventHandler + + ''' + Public Event SelectPartProgramCompleted As SelectPartProgramCompletedEventHandler + + ''' + Public Event SelectPartProgramFromDriveCompleted As SelectPartProgramFromDriveCompletedEventHandler + + ''' + Public Event GetActivePartProgramCompleted As GetActivePartProgramCompletedEventHandler + + ''' + Public Event GetActivePartProgramFullPathCompleted As GetActivePartProgramFullPathCompletedEventHandler + + ''' + Public Event GetPartProgramLinesCompleted As GetPartProgramLinesCompletedEventHandler + + ''' + Public Event GetAxOriginNumCompleted As GetAxOriginNumCompletedEventHandler + + ''' + Public Event GetAxesPositionCompleted As GetAxesPositionCompletedEventHandler + + ''' + Public Event GetNcInfo1Completed As GetNcInfo1CompletedEventHandler + + ''' + Public Event GetNcInfo2Completed As GetNcInfo2CompletedEventHandler + + ''' + Public Event GetToolNamesCompleted As GetToolNamesCompletedEventHandler + + ''' + Public Event GetProcessStatusCompleted As GetProcessStatusCompletedEventHandler + + ''' + Public Event GetBlkNumCompleted As GetBlkNumCompletedEventHandler + + ''' + Public Event ReadErrMsgCompleted As ReadErrMsgCompletedEventHandler + + ''' + Public Event ReadPartProgramMsgCompleted As ReadPartProgramMsgCompletedEventHandler + + ''' + Public Event GetGCodeCompleted As GetGCodeCompletedEventHandler + + ''' + Public Event GetMCodeCompleted As GetMCodeCompletedEventHandler + + ''' + Public Event SkipPProgBlockCompleted As SkipPProgBlockCompletedEventHandler + + ''' + Public Event EseCompleted As EseCompletedEventHandler + + ''' + Public Event EseExCompleted As EseExCompletedEventHandler + + ''' + Public Event ExeCompleted As ExeCompletedEventHandler + + ''' + Public Event AxesRefCompleted As AxesRefCompletedEventHandler + + ''' + Public Event DncInitCompleted As DncInitCompletedEventHandler + + ''' + Public Event DncDataCompleted As DncDataCompletedEventHandler + + ''' + Public Event DncEofCompleted As DncEofCompletedEventHandler + + ''' + Public Event DncStopCompleted As DncStopCompletedEventHandler + + ''' + Public Event GetAxesInfo3Completed As GetAxesInfo3CompletedEventHandler + + ''' + Public Event GetCodeNumberCompleted As GetCodeNumberCompletedEventHandler + + ''' + Public Event GetOptionsCompleted As GetOptionsCompletedEventHandler + + ''' + Public Event GetDateTimeCompleted As GetDateTimeCompletedEventHandler + + ''' + Public Event SetDateTimeCompleted As SetDateTimeCompletedEventHandler + + ''' + Public Event GetSerialNumberCompleted As GetSerialNumberCompletedEventHandler + + ''' + Public Event PutFileCompleted As PutFileCompletedEventHandler + + ''' + Public Event GetFileCompleted As GetFileCompletedEventHandler + + ''' + Public Event PutBinaryFileCompleted As PutBinaryFileCompletedEventHandler + + ''' + Public Event GetBinaryFileCompleted As GetBinaryFileCompletedEventHandler + + ''' + Public Event LogFSSetSecurityLevelCompleted As LogFSSetSecurityLevelCompletedEventHandler + + ''' + Public Event LogFSGetSecurityLevelCompleted As LogFSGetSecurityLevelCompletedEventHandler + + ''' + Public Event LogFSLongFileNamesCompleted As LogFSLongFileNamesCompletedEventHandler + + ''' + Public Event LogFSGetNumDriveCompleted As LogFSGetNumDriveCompletedEventHandler + + ''' + Public Event LogFSGetDriveListCompleted As LogFSGetDriveListCompletedEventHandler + + ''' + Public Event LogFSGetHiddenDriveListCompleted As LogFSGetHiddenDriveListCompletedEventHandler + + ''' + Public Event LogFSGetDrivePathCompleted As LogFSGetDrivePathCompletedEventHandler + + ''' + Public Event LogFSAddDriveCompleted As LogFSAddDriveCompletedEventHandler + + ''' + Public Event LogFSRemoveDriveCompleted As LogFSRemoveDriveCompletedEventHandler + + ''' + Public Event LogFSReloadDriveListCompleted As LogFSReloadDriveListCompletedEventHandler + + ''' + Public Event LogFSCreateDirCompleted As LogFSCreateDirCompletedEventHandler + + ''' + Public Event LogFSCreateFileCompleted As LogFSCreateFileCompletedEventHandler + + ''' + Public Event LogFSGetFileSizeCompleted As LogFSGetFileSizeCompletedEventHandler + + ''' + Public Event LogFSGetFileAttribCompleted As LogFSGetFileAttribCompletedEventHandler + + ''' + Public Event LogFSSetFileAttribCompleted As LogFSSetFileAttribCompletedEventHandler + + ''' + Public Event LogFSChangeFileAttribCompleted As LogFSChangeFileAttribCompletedEventHandler + + ''' + Public Event LogFSFindFirstCompleted As LogFSFindFirstCompletedEventHandler + + ''' + Public Event LogFSFindNextCompleted As LogFSFindNextCompletedEventHandler + + ''' + Public Event LogFSFindCloseCompleted As LogFSFindCloseCompletedEventHandler + + ''' + Public Event LogFSRemoveFileCompleted As LogFSRemoveFileCompletedEventHandler + + ''' + Public Event LogFSRemoveDirCompleted As LogFSRemoveDirCompletedEventHandler + + ''' + Public Event LogFSRenameCompleted As LogFSRenameCompletedEventHandler + + ''' + Public Event LogFSCopyFileCompleted As LogFSCopyFileCompletedEventHandler + + ''' + Public Event LogFSGetInfoCompleted As LogFSGetInfoCompletedEventHandler + + ''' + Public Event LogFSOpenFileCompleted As LogFSOpenFileCompletedEventHandler + + ''' + Public Event LogFSCloseFileCompleted As LogFSCloseFileCompletedEventHandler + + ''' + Public Event GetSysTickCompleted As GetSysTickCompletedEventHandler + + ''' + Public Event GetProcessConfNumCompleted As GetProcessConfNumCompletedEventHandler + + ''' + Public Event CheckHistoryCompleted As CheckHistoryCompletedEventHandler + + ''' + Public Event ReadHistoryEmergMsgCompleted As ReadHistoryEmergMsgCompletedEventHandler + + ''' + Public Event ReadHistoryErrorMsgCompleted As ReadHistoryErrorMsgCompletedEventHandler + + ''' + Public Event ReadHistoryLogMsgCompleted As ReadHistoryLogMsgCompletedEventHandler + + ''' + Public Event ReadHistoryAnomalyMsgCompleted As ReadHistoryAnomalyMsgCompletedEventHandler + + ''' + Public Event ReadCurrentErrorMsgCompleted As ReadCurrentErrorMsgCompletedEventHandler + + ''' + Public Event ReadCurrentEmergMsgCompleted As ReadCurrentEmergMsgCompletedEventHandler + + ''' + Public Event ReadCurrentAnomalyMsgCompleted As ReadCurrentAnomalyMsgCompletedEventHandler + + ''' + Public Event GetPTechSizesCompleted As GetPTechSizesCompletedEventHandler + + ''' + Public Event LoadPTechCompleted As LoadPTechCompletedEventHandler + + ''' + Public Event GetMarkerInfoCompleted As GetMarkerInfoCompletedEventHandler + + ''' + Public Event ManagePartProgramCompleted As ManagePartProgramCompletedEventHandler + + ''' + Public Event LogFSWriteRecordCompleted As LogFSWriteRecordCompletedEventHandler + + ''' + Public Event LogFSReadRecordCompleted As LogFSReadRecordCompletedEventHandler + + ''' + Public Event ReadRemapDefinitionsCompleted As ReadRemapDefinitionsCompletedEventHandler + + ''' + Public Event WriteRemapDefinitionsCompleted As WriteRemapDefinitionsCompletedEventHandler + + ''' + Public Event GetServoParCompleted As GetServoParCompletedEventHandler + + ''' + Public Event SetServoParCompleted As SetServoParCompletedEventHandler + + ''' + Public Event GetCNCRegKeyCompleted As GetCNCRegKeyCompletedEventHandler + + ''' + Public Event GetSecurityDataCompleted As GetSecurityDataCompletedEventHandler + + ''' + Public Event SetSecurityDataCompleted As SetSecurityDataCompletedEventHandler + + ''' + Public Event SetIpAddressCompleted As SetIpAddressCompletedEventHandler + + ''' + Public Event GetProcInInputCompleted As GetProcInInputCompletedEventHandler + + ''' + Public Event SndProcInpDataCompleted As SndProcInpDataCompletedEventHandler + + ''' + Public Event GetPartProgramLinesExCompleted As GetPartProgramLinesExCompletedEventHandler + + ''' + Public Event SetMdiStringExCompleted As SetMdiStringExCompletedEventHandler + + ''' + Public Event GetExpireDataCompleted As GetExpireDataCompletedEventHandler + + ''' + Public Event GetRemainingTimeCompleted As GetRemainingTimeCompletedEventHandler + + ''' + Public Event GenerateUserKeyCompleted As GenerateUserKeyCompletedEventHandler + + ''' + Public Event WriteActivationKeyCompleted As WriteActivationKeyCompletedEventHandler + + ''' + Public Event GetAvailableCustomEventsCompleted As GetAvailableCustomEventsCompletedEventHandler + + ''' + Public Event MonOpenChannelCompleted As MonOpenChannelCompletedEventHandler + + ''' + Public Event MonCloseChannelCompleted As MonCloseChannelCompletedEventHandler + + ''' + Public Event MonAddVariableCompleted As MonAddVariableCompletedEventHandler + + ''' + Public Event MonDeleteVariableCompleted As MonDeleteVariableCompletedEventHandler + + ''' + Public Event MonStartSamplingCompleted As MonStartSamplingCompletedEventHandler + + ''' + Public Event MonStopSamplingCompleted As MonStopSamplingCompletedEventHandler + + ''' + Public Event MonGetVariableCompleted As MonGetVariableCompletedEventHandler + + ''' + Public Event MonGetVariableSCompleted As MonGetVariableSCompletedEventHandler + + ''' + Public Event MonGetDryRunCompleted As MonGetDryRunCompletedEventHandler + + ''' + Public Event MonGetMovCompleted As MonGetMovCompletedEventHandler + + ''' + Public Event GetDriveBasicInfoCompleted As GetDriveBasicInfoCompletedEventHandler + + ''' + Public Event ReadStatisticsCompleted As ReadStatisticsCompletedEventHandler + + ''' + Public Event ReadStatisticsBaseFrequencyCompleted As ReadStatisticsBaseFrequencyCompletedEventHandler + + ''' + Public Event GetActiveAmpCompleted As GetActiveAmpCompletedEventHandler + + ''' + Public Event SetActiveAmpCompleted As SetActiveAmpCompletedEventHandler + + ''' + _ + Public Function BootPhaseEnquiry(ByRef Phase As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("BootPhaseEnquiry", New Object(-1) {}) + Phase = CType(results(1),UShort) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub BootPhaseEnquiryAsync() + Me.BootPhaseEnquiryAsync(Nothing) + End Sub + + ''' + Public Overloads Sub BootPhaseEnquiryAsync(ByVal userState As Object) + If (Me.BootPhaseEnquiryOperationCompleted Is Nothing) Then + Me.BootPhaseEnquiryOperationCompleted = AddressOf Me.OnBootPhaseEnquiryOperationCompleted + End If + Me.InvokeAsync("BootPhaseEnquiry", New Object(-1) {}, Me.BootPhaseEnquiryOperationCompleted, userState) + End Sub + + Private Sub OnBootPhaseEnquiryOperationCompleted(ByVal arg As Object) + If (Not (Me.BootPhaseEnquiryCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent BootPhaseEnquiryCompleted(Me, New BootPhaseEnquiryCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function BootReboot(ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("BootReboot", New Object(-1) {}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub BootRebootAsync() + Me.BootRebootAsync(Nothing) + End Sub + + ''' + Public Overloads Sub BootRebootAsync(ByVal userState As Object) + If (Me.BootRebootOperationCompleted Is Nothing) Then + Me.BootRebootOperationCompleted = AddressOf Me.OnBootRebootOperationCompleted + End If + Me.InvokeAsync("BootReboot", New Object(-1) {}, Me.BootRebootOperationCompleted, userState) + End Sub + + Private Sub OnBootRebootOperationCompleted(ByVal arg As Object) + If (Not (Me.BootRebootCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent BootRebootCompleted(Me, New BootRebootCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function BootShutDown(ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("BootShutDown", New Object(-1) {}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub BootShutDownAsync() + Me.BootShutDownAsync(Nothing) + End Sub + + ''' + Public Overloads Sub BootShutDownAsync(ByVal userState As Object) + If (Me.BootShutDownOperationCompleted Is Nothing) Then + Me.BootShutDownOperationCompleted = AddressOf Me.OnBootShutDownOperationCompleted + End If + Me.InvokeAsync("BootShutDown", New Object(-1) {}, Me.BootShutDownOperationCompleted, userState) + End Sub + + Private Sub OnBootShutDownOperationCompleted(ByVal arg As Object) + If (Not (Me.BootShutDownCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent BootShutDownCompleted(Me, New BootShutDownCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function BootMode(ByVal Mode As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("BootMode", New Object() {Mode}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub BootModeAsync(ByVal Mode As UShort) + Me.BootModeAsync(Mode, Nothing) + End Sub + + ''' + Public Overloads Sub BootModeAsync(ByVal Mode As UShort, ByVal userState As Object) + If (Me.BootModeOperationCompleted Is Nothing) Then + Me.BootModeOperationCompleted = AddressOf Me.OnBootModeOperationCompleted + End If + Me.InvokeAsync("BootMode", New Object() {Mode}, Me.BootModeOperationCompleted, userState) + End Sub + + Private Sub OnBootModeOperationCompleted(ByVal arg As Object) + If (Not (Me.BootModeCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent BootModeCompleted(Me, New BootModeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetHWKey( ByRef HwKey() As Byte, ByRef SecurLevel() As Byte, ByRef Release As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetHWKey", New Object(-1) {}) + HwKey = CType(results(1),Byte()) + SecurLevel = CType(results(2),Byte()) + Release = CType(results(3),String) + ErrClass = CType(results(4),UInteger) + ErrNum = CType(results(5),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetHWKeyAsync() + Me.GetHWKeyAsync(Nothing) + End Sub + + ''' + Public Overloads Sub GetHWKeyAsync(ByVal userState As Object) + If (Me.GetHWKeyOperationCompleted Is Nothing) Then + Me.GetHWKeyOperationCompleted = AddressOf Me.OnGetHWKeyOperationCompleted + End If + Me.InvokeAsync("GetHWKey", New Object(-1) {}, Me.GetHWKeyOperationCompleted, userState) + End Sub + + Private Sub OnGetHWKeyOperationCompleted(ByVal arg As Object) + If (Not (Me.GetHWKeyCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetHWKeyCompleted(Me, New GetHWKeyCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ReadVarWord(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, ByRef Value() As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ReadVarWord", New Object() {Code, Process, Index, NumVar}) + Value = CType(results(1),UShort()) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ReadVarWordAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort) + Me.ReadVarWordAsync(Code, Process, Index, NumVar, Nothing) + End Sub + + ''' + Public Overloads Sub ReadVarWordAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, ByVal userState As Object) + If (Me.ReadVarWordOperationCompleted Is Nothing) Then + Me.ReadVarWordOperationCompleted = AddressOf Me.OnReadVarWordOperationCompleted + End If + Me.InvokeAsync("ReadVarWord", New Object() {Code, Process, Index, NumVar}, Me.ReadVarWordOperationCompleted, userState) + End Sub + + Private Sub OnReadVarWordOperationCompleted(ByVal arg As Object) + If (Not (Me.ReadVarWordCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ReadVarWordCompleted(Me, New ReadVarWordCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ReadVarDouble(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, ByRef Value() As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ReadVarDouble", New Object() {Code, Process, Index, NumVar}) + Value = CType(results(1),Double()) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ReadVarDoubleAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort) + Me.ReadVarDoubleAsync(Code, Process, Index, NumVar, Nothing) + End Sub + + ''' + Public Overloads Sub ReadVarDoubleAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, ByVal userState As Object) + If (Me.ReadVarDoubleOperationCompleted Is Nothing) Then + Me.ReadVarDoubleOperationCompleted = AddressOf Me.OnReadVarDoubleOperationCompleted + End If + Me.InvokeAsync("ReadVarDouble", New Object() {Code, Process, Index, NumVar}, Me.ReadVarDoubleOperationCompleted, userState) + End Sub + + Private Sub OnReadVarDoubleOperationCompleted(ByVal arg As Object) + If (Not (Me.ReadVarDoubleCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ReadVarDoubleCompleted(Me, New ReadVarDoubleCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function WriteVarWord(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, ByVal Value() As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("WriteVarWord", New Object() {Code, Process, Index, NumVar, Value}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub WriteVarWordAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, ByVal Value() As UShort) + Me.WriteVarWordAsync(Code, Process, Index, NumVar, Value, Nothing) + End Sub + + ''' + Public Overloads Sub WriteVarWordAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, ByVal Value() As UShort, ByVal userState As Object) + If (Me.WriteVarWordOperationCompleted Is Nothing) Then + Me.WriteVarWordOperationCompleted = AddressOf Me.OnWriteVarWordOperationCompleted + End If + Me.InvokeAsync("WriteVarWord", New Object() {Code, Process, Index, NumVar, Value}, Me.WriteVarWordOperationCompleted, userState) + End Sub + + Private Sub OnWriteVarWordOperationCompleted(ByVal arg As Object) + If (Not (Me.WriteVarWordCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent WriteVarWordCompleted(Me, New WriteVarWordCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function WriteVarWordBit(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal BitIndex As UShort, ByVal BitValue As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("WriteVarWordBit", New Object() {Code, Process, Index, BitIndex, BitValue}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub WriteVarWordBitAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal BitIndex As UShort, ByVal BitValue As UShort) + Me.WriteVarWordBitAsync(Code, Process, Index, BitIndex, BitValue, Nothing) + End Sub + + ''' + Public Overloads Sub WriteVarWordBitAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal BitIndex As UShort, ByVal BitValue As UShort, ByVal userState As Object) + If (Me.WriteVarWordBitOperationCompleted Is Nothing) Then + Me.WriteVarWordBitOperationCompleted = AddressOf Me.OnWriteVarWordBitOperationCompleted + End If + Me.InvokeAsync("WriteVarWordBit", New Object() {Code, Process, Index, BitIndex, BitValue}, Me.WriteVarWordBitOperationCompleted, userState) + End Sub + + Private Sub OnWriteVarWordBitOperationCompleted(ByVal arg As Object) + If (Not (Me.WriteVarWordBitCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent WriteVarWordBitCompleted(Me, New WriteVarWordBitCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function WriteVarDouble(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, ByVal Value() As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("WriteVarDouble", New Object() {Code, Process, Index, NumVar, Value}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub WriteVarDoubleAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, ByVal Value() As Double) + Me.WriteVarDoubleAsync(Code, Process, Index, NumVar, Value, Nothing) + End Sub + + ''' + Public Overloads Sub WriteVarDoubleAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, ByVal Value() As Double, ByVal userState As Object) + If (Me.WriteVarDoubleOperationCompleted Is Nothing) Then + Me.WriteVarDoubleOperationCompleted = AddressOf Me.OnWriteVarDoubleOperationCompleted + End If + Me.InvokeAsync("WriteVarDouble", New Object() {Code, Process, Index, NumVar, Value}, Me.WriteVarDoubleOperationCompleted, userState) + End Sub + + Private Sub OnWriteVarDoubleOperationCompleted(ByVal arg As Object) + If (Not (Me.WriteVarDoubleCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent WriteVarDoubleCompleted(Me, New WriteVarDoubleCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ReadVarText(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal Size As UShort, ByRef Text As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ReadVarText", New Object() {Code, Process, Index, Size}) + Text = CType(results(1),String) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ReadVarTextAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal Size As UShort) + Me.ReadVarTextAsync(Code, Process, Index, Size, Nothing) + End Sub + + ''' + Public Overloads Sub ReadVarTextAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal Size As UShort, ByVal userState As Object) + If (Me.ReadVarTextOperationCompleted Is Nothing) Then + Me.ReadVarTextOperationCompleted = AddressOf Me.OnReadVarTextOperationCompleted + End If + Me.InvokeAsync("ReadVarText", New Object() {Code, Process, Index, Size}, Me.ReadVarTextOperationCompleted, userState) + End Sub + + Private Sub OnReadVarTextOperationCompleted(ByVal arg As Object) + If (Not (Me.ReadVarTextCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ReadVarTextCompleted(Me, New ReadVarTextCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function WriteVarText(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal Len As UShort, ByVal Text As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("WriteVarText", New Object() {Code, Process, Index, Len, Text}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub WriteVarTextAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal Len As UShort, ByVal Text As String) + Me.WriteVarTextAsync(Code, Process, Index, Len, Text, Nothing) + End Sub + + ''' + Public Overloads Sub WriteVarTextAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal Len As UShort, ByVal Text As String, ByVal userState As Object) + If (Me.WriteVarTextOperationCompleted Is Nothing) Then + Me.WriteVarTextOperationCompleted = AddressOf Me.OnWriteVarTextOperationCompleted + End If + Me.InvokeAsync("WriteVarText", New Object() {Code, Process, Index, Len, Text}, Me.WriteVarTextOperationCompleted, userState) + End Sub + + Private Sub OnWriteVarTextOperationCompleted(ByVal arg As Object) + If (Not (Me.WriteVarTextCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent WriteVarTextCompleted(Me, New WriteVarTextCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ReadNamedVarBool(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByRef Value() As Integer, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ReadNamedVarBool", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3}) + Value = CType(results(1),Integer()) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ReadNamedVarBoolAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short) + Me.ReadNamedVarBoolAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Nothing) + End Sub + + ''' + Public Overloads Sub ReadNamedVarBoolAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal userState As Object) + If (Me.ReadNamedVarBoolOperationCompleted Is Nothing) Then + Me.ReadNamedVarBoolOperationCompleted = AddressOf Me.OnReadNamedVarBoolOperationCompleted + End If + Me.InvokeAsync("ReadNamedVarBool", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3}, Me.ReadNamedVarBoolOperationCompleted, userState) + End Sub + + Private Sub OnReadNamedVarBoolOperationCompleted(ByVal arg As Object) + If (Not (Me.ReadNamedVarBoolCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ReadNamedVarBoolCompleted(Me, New ReadNamedVarBoolCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ReadNamedVarByte(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByRef Value() As Byte, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ReadNamedVarByte", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3}) + Value = CType(results(1),Byte()) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ReadNamedVarByteAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short) + Me.ReadNamedVarByteAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Nothing) + End Sub + + ''' + Public Overloads Sub ReadNamedVarByteAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal userState As Object) + If (Me.ReadNamedVarByteOperationCompleted Is Nothing) Then + Me.ReadNamedVarByteOperationCompleted = AddressOf Me.OnReadNamedVarByteOperationCompleted + End If + Me.InvokeAsync("ReadNamedVarByte", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3}, Me.ReadNamedVarByteOperationCompleted, userState) + End Sub + + Private Sub OnReadNamedVarByteOperationCompleted(ByVal arg As Object) + If (Not (Me.ReadNamedVarByteCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ReadNamedVarByteCompleted(Me, New ReadNamedVarByteCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ReadNamedVarShort(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByRef Value() As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ReadNamedVarShort", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3}) + Value = CType(results(1),Short()) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ReadNamedVarShortAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short) + Me.ReadNamedVarShortAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Nothing) + End Sub + + ''' + Public Overloads Sub ReadNamedVarShortAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal userState As Object) + If (Me.ReadNamedVarShortOperationCompleted Is Nothing) Then + Me.ReadNamedVarShortOperationCompleted = AddressOf Me.OnReadNamedVarShortOperationCompleted + End If + Me.InvokeAsync("ReadNamedVarShort", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3}, Me.ReadNamedVarShortOperationCompleted, userState) + End Sub + + Private Sub OnReadNamedVarShortOperationCompleted(ByVal arg As Object) + If (Not (Me.ReadNamedVarShortCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ReadNamedVarShortCompleted(Me, New ReadNamedVarShortCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ReadNamedVarWord(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByRef Value() As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ReadNamedVarWord", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3}) + Value = CType(results(1),UShort()) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ReadNamedVarWordAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short) + Me.ReadNamedVarWordAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Nothing) + End Sub + + ''' + Public Overloads Sub ReadNamedVarWordAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal userState As Object) + If (Me.ReadNamedVarWordOperationCompleted Is Nothing) Then + Me.ReadNamedVarWordOperationCompleted = AddressOf Me.OnReadNamedVarWordOperationCompleted + End If + Me.InvokeAsync("ReadNamedVarWord", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3}, Me.ReadNamedVarWordOperationCompleted, userState) + End Sub + + Private Sub OnReadNamedVarWordOperationCompleted(ByVal arg As Object) + If (Not (Me.ReadNamedVarWordCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ReadNamedVarWordCompleted(Me, New ReadNamedVarWordCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ReadNamedVarLong(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByRef Value() As Long, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ReadNamedVarLong", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3}) + Value = CType(results(1),Long()) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ReadNamedVarLongAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short) + Me.ReadNamedVarLongAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Nothing) + End Sub + + ''' + Public Overloads Sub ReadNamedVarLongAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal userState As Object) + If (Me.ReadNamedVarLongOperationCompleted Is Nothing) Then + Me.ReadNamedVarLongOperationCompleted = AddressOf Me.OnReadNamedVarLongOperationCompleted + End If + Me.InvokeAsync("ReadNamedVarLong", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3}, Me.ReadNamedVarLongOperationCompleted, userState) + End Sub + + Private Sub OnReadNamedVarLongOperationCompleted(ByVal arg As Object) + If (Not (Me.ReadNamedVarLongCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ReadNamedVarLongCompleted(Me, New ReadNamedVarLongCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ReadNamedVarDword(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByRef Value() As ULong, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ReadNamedVarDword", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3}) + Value = CType(results(1),ULong()) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ReadNamedVarDwordAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short) + Me.ReadNamedVarDwordAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Nothing) + End Sub + + ''' + Public Overloads Sub ReadNamedVarDwordAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal userState As Object) + If (Me.ReadNamedVarDwordOperationCompleted Is Nothing) Then + Me.ReadNamedVarDwordOperationCompleted = AddressOf Me.OnReadNamedVarDwordOperationCompleted + End If + Me.InvokeAsync("ReadNamedVarDword", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3}, Me.ReadNamedVarDwordOperationCompleted, userState) + End Sub + + Private Sub OnReadNamedVarDwordOperationCompleted(ByVal arg As Object) + If (Not (Me.ReadNamedVarDwordCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ReadNamedVarDwordCompleted(Me, New ReadNamedVarDwordCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ReadNamedVarDouble(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByRef Value() As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ReadNamedVarDouble", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3}) + Value = CType(results(1),Double()) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ReadNamedVarDoubleAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short) + Me.ReadNamedVarDoubleAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Nothing) + End Sub + + ''' + Public Overloads Sub ReadNamedVarDoubleAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal userState As Object) + If (Me.ReadNamedVarDoubleOperationCompleted Is Nothing) Then + Me.ReadNamedVarDoubleOperationCompleted = AddressOf Me.OnReadNamedVarDoubleOperationCompleted + End If + Me.InvokeAsync("ReadNamedVarDouble", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3}, Me.ReadNamedVarDoubleOperationCompleted, userState) + End Sub + + Private Sub OnReadNamedVarDoubleOperationCompleted(ByVal arg As Object) + If (Not (Me.ReadNamedVarDoubleCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ReadNamedVarDoubleCompleted(Me, New ReadNamedVarDoubleCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ReadNamedVarString(ByVal Process As UShort, ByVal pVarName As String, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Length As UShort, ByRef Value As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ReadNamedVarString", New Object() {Process, pVarName, Index1, Index2, Index3, Length}) + Value = CType(results(1),String) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ReadNamedVarStringAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Length As UShort) + Me.ReadNamedVarStringAsync(Process, pVarName, Index1, Index2, Index3, Length, Nothing) + End Sub + + ''' + Public Overloads Sub ReadNamedVarStringAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Length As UShort, ByVal userState As Object) + If (Me.ReadNamedVarStringOperationCompleted Is Nothing) Then + Me.ReadNamedVarStringOperationCompleted = AddressOf Me.OnReadNamedVarStringOperationCompleted + End If + Me.InvokeAsync("ReadNamedVarString", New Object() {Process, pVarName, Index1, Index2, Index3, Length}, Me.ReadNamedVarStringOperationCompleted, userState) + End Sub + + Private Sub OnReadNamedVarStringOperationCompleted(ByVal arg As Object) + If (Not (Me.ReadNamedVarStringCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ReadNamedVarStringCompleted(Me, New ReadNamedVarStringCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function WriteNamedVarBool(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Integer, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("WriteNamedVarBool", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub WriteNamedVarBoolAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Integer) + Me.WriteNamedVarBoolAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Value, Nothing) + End Sub + + ''' + Public Overloads Sub WriteNamedVarBoolAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Integer, ByVal userState As Object) + If (Me.WriteNamedVarBoolOperationCompleted Is Nothing) Then + Me.WriteNamedVarBoolOperationCompleted = AddressOf Me.OnWriteNamedVarBoolOperationCompleted + End If + Me.InvokeAsync("WriteNamedVarBool", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value}, Me.WriteNamedVarBoolOperationCompleted, userState) + End Sub + + Private Sub OnWriteNamedVarBoolOperationCompleted(ByVal arg As Object) + If (Not (Me.WriteNamedVarBoolCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent WriteNamedVarBoolCompleted(Me, New WriteNamedVarBoolCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function WriteNamedVarByte(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Byte, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("WriteNamedVarByte", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub WriteNamedVarByteAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Byte) + Me.WriteNamedVarByteAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Value, Nothing) + End Sub + + ''' + Public Overloads Sub WriteNamedVarByteAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Byte, ByVal userState As Object) + If (Me.WriteNamedVarByteOperationCompleted Is Nothing) Then + Me.WriteNamedVarByteOperationCompleted = AddressOf Me.OnWriteNamedVarByteOperationCompleted + End If + Me.InvokeAsync("WriteNamedVarByte", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value}, Me.WriteNamedVarByteOperationCompleted, userState) + End Sub + + Private Sub OnWriteNamedVarByteOperationCompleted(ByVal arg As Object) + If (Not (Me.WriteNamedVarByteCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent WriteNamedVarByteCompleted(Me, New WriteNamedVarByteCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function WriteNamedVarShort(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("WriteNamedVarShort", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub WriteNamedVarShortAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Short) + Me.WriteNamedVarShortAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Value, Nothing) + End Sub + + ''' + Public Overloads Sub WriteNamedVarShortAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Short, ByVal userState As Object) + If (Me.WriteNamedVarShortOperationCompleted Is Nothing) Then + Me.WriteNamedVarShortOperationCompleted = AddressOf Me.OnWriteNamedVarShortOperationCompleted + End If + Me.InvokeAsync("WriteNamedVarShort", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value}, Me.WriteNamedVarShortOperationCompleted, userState) + End Sub + + Private Sub OnWriteNamedVarShortOperationCompleted(ByVal arg As Object) + If (Not (Me.WriteNamedVarShortCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent WriteNamedVarShortCompleted(Me, New WriteNamedVarShortCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function WriteNamedVarWord(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("WriteNamedVarWord", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub WriteNamedVarWordAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As UShort) + Me.WriteNamedVarWordAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Value, Nothing) + End Sub + + ''' + Public Overloads Sub WriteNamedVarWordAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As UShort, ByVal userState As Object) + If (Me.WriteNamedVarWordOperationCompleted Is Nothing) Then + Me.WriteNamedVarWordOperationCompleted = AddressOf Me.OnWriteNamedVarWordOperationCompleted + End If + Me.InvokeAsync("WriteNamedVarWord", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value}, Me.WriteNamedVarWordOperationCompleted, userState) + End Sub + + Private Sub OnWriteNamedVarWordOperationCompleted(ByVal arg As Object) + If (Not (Me.WriteNamedVarWordCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent WriteNamedVarWordCompleted(Me, New WriteNamedVarWordCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function WriteNamedVarLong(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Long, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("WriteNamedVarLong", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub WriteNamedVarLongAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Long) + Me.WriteNamedVarLongAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Value, Nothing) + End Sub + + ''' + Public Overloads Sub WriteNamedVarLongAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Long, ByVal userState As Object) + If (Me.WriteNamedVarLongOperationCompleted Is Nothing) Then + Me.WriteNamedVarLongOperationCompleted = AddressOf Me.OnWriteNamedVarLongOperationCompleted + End If + Me.InvokeAsync("WriteNamedVarLong", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value}, Me.WriteNamedVarLongOperationCompleted, userState) + End Sub + + Private Sub OnWriteNamedVarLongOperationCompleted(ByVal arg As Object) + If (Not (Me.WriteNamedVarLongCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent WriteNamedVarLongCompleted(Me, New WriteNamedVarLongCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function WriteNamedVarDword(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As ULong, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("WriteNamedVarDword", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub WriteNamedVarDwordAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As ULong) + Me.WriteNamedVarDwordAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Value, Nothing) + End Sub + + ''' + Public Overloads Sub WriteNamedVarDwordAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As ULong, ByVal userState As Object) + If (Me.WriteNamedVarDwordOperationCompleted Is Nothing) Then + Me.WriteNamedVarDwordOperationCompleted = AddressOf Me.OnWriteNamedVarDwordOperationCompleted + End If + Me.InvokeAsync("WriteNamedVarDword", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value}, Me.WriteNamedVarDwordOperationCompleted, userState) + End Sub + + Private Sub OnWriteNamedVarDwordOperationCompleted(ByVal arg As Object) + If (Not (Me.WriteNamedVarDwordCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent WriteNamedVarDwordCompleted(Me, New WriteNamedVarDwordCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function WriteNamedVarDouble(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("WriteNamedVarDouble", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub WriteNamedVarDoubleAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Double) + Me.WriteNamedVarDoubleAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Value, Nothing) + End Sub + + ''' + Public Overloads Sub WriteNamedVarDoubleAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Double, ByVal userState As Object) + If (Me.WriteNamedVarDoubleOperationCompleted Is Nothing) Then + Me.WriteNamedVarDoubleOperationCompleted = AddressOf Me.OnWriteNamedVarDoubleOperationCompleted + End If + Me.InvokeAsync("WriteNamedVarDouble", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value}, Me.WriteNamedVarDoubleOperationCompleted, userState) + End Sub + + Private Sub OnWriteNamedVarDoubleOperationCompleted(ByVal arg As Object) + If (Not (Me.WriteNamedVarDoubleCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent WriteNamedVarDoubleCompleted(Me, New WriteNamedVarDoubleCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function WriteNamedVarString(ByVal Process As UShort, ByVal pVarName As String, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Length As UShort, ByVal Value As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("WriteNamedVarString", New Object() {Process, pVarName, Index1, Index2, Index3, Length, Value}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub WriteNamedVarStringAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Length As UShort, ByVal Value As String) + Me.WriteNamedVarStringAsync(Process, pVarName, Index1, Index2, Index3, Length, Value, Nothing) + End Sub + + ''' + Public Overloads Sub WriteNamedVarStringAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Length As UShort, ByVal Value As String, ByVal userState As Object) + If (Me.WriteNamedVarStringOperationCompleted Is Nothing) Then + Me.WriteNamedVarStringOperationCompleted = AddressOf Me.OnWriteNamedVarStringOperationCompleted + End If + Me.InvokeAsync("WriteNamedVarString", New Object() {Process, pVarName, Index1, Index2, Index3, Length, Value}, Me.WriteNamedVarStringOperationCompleted, userState) + End Sub + + Private Sub OnWriteNamedVarStringOperationCompleted(ByVal arg As Object) + If (Not (Me.WriteNamedVarStringCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent WriteNamedVarStringCompleted(Me, New WriteNamedVarStringCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ReadWarningMsg( ByRef WarningMsg As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ReadWarningMsg", New Object(-1) {}) + WarningMsg = CType(results(1),String) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ReadWarningMsgAsync() + Me.ReadWarningMsgAsync(Nothing) + End Sub + + ''' + Public Overloads Sub ReadWarningMsgAsync(ByVal userState As Object) + If (Me.ReadWarningMsgOperationCompleted Is Nothing) Then + Me.ReadWarningMsgOperationCompleted = AddressOf Me.OnReadWarningMsgOperationCompleted + End If + Me.InvokeAsync("ReadWarningMsg", New Object(-1) {}, Me.ReadWarningMsgOperationCompleted, userState) + End Sub + + Private Sub OnReadWarningMsgOperationCompleted(ByVal arg As Object) + If (Not (Me.ReadWarningMsgCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ReadWarningMsgCompleted(Me, New ReadWarningMsgCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ResetSingleTableII(ByVal TableNum As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ResetSingleTableII", New Object() {TableNum}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ResetSingleTableIIAsync(ByVal TableNum As UShort) + Me.ResetSingleTableIIAsync(TableNum, Nothing) + End Sub + + ''' + Public Overloads Sub ResetSingleTableIIAsync(ByVal TableNum As UShort, ByVal userState As Object) + If (Me.ResetSingleTableIIOperationCompleted Is Nothing) Then + Me.ResetSingleTableIIOperationCompleted = AddressOf Me.OnResetSingleTableIIOperationCompleted + End If + Me.InvokeAsync("ResetSingleTableII", New Object() {TableNum}, Me.ResetSingleTableIIOperationCompleted, userState) + End Sub + + Private Sub OnResetSingleTableIIOperationCompleted(ByVal arg As Object) + If (Not (Me.ResetSingleTableIICompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ResetSingleTableIICompleted(Me, New ResetSingleTableIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LockTableII(ByVal TableNum As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LockTableII", New Object() {TableNum}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LockTableIIAsync(ByVal TableNum As UShort) + Me.LockTableIIAsync(TableNum, Nothing) + End Sub + + ''' + Public Overloads Sub LockTableIIAsync(ByVal TableNum As UShort, ByVal userState As Object) + If (Me.LockTableIIOperationCompleted Is Nothing) Then + Me.LockTableIIOperationCompleted = AddressOf Me.OnLockTableIIOperationCompleted + End If + Me.InvokeAsync("LockTableII", New Object() {TableNum}, Me.LockTableIIOperationCompleted, userState) + End Sub + + Private Sub OnLockTableIIOperationCompleted(ByVal arg As Object) + If (Not (Me.LockTableIICompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LockTableIICompleted(Me, New LockTableIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function UnLockTableII(ByVal TableNum As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("UnLockTableII", New Object() {TableNum}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub UnLockTableIIAsync(ByVal TableNum As UShort) + Me.UnLockTableIIAsync(TableNum, Nothing) + End Sub + + ''' + Public Overloads Sub UnLockTableIIAsync(ByVal TableNum As UShort, ByVal userState As Object) + If (Me.UnLockTableIIOperationCompleted Is Nothing) Then + Me.UnLockTableIIOperationCompleted = AddressOf Me.OnUnLockTableIIOperationCompleted + End If + Me.InvokeAsync("UnLockTableII", New Object() {TableNum}, Me.UnLockTableIIOperationCompleted, userState) + End Sub + + Private Sub OnUnLockTableIIOperationCompleted(ByVal arg As Object) + If (Not (Me.UnLockTableIICompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent UnLockTableIICompleted(Me, New UnLockTableIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetOriginTabRecordII(ByVal RecordNum As UInteger, ByRef RecordBuff As ORIGINTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetOriginTabRecordII", New Object() {RecordNum}) + RecordBuff = CType(results(1),ORIGINTABLEII) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetOriginTabRecordIIAsync(ByVal RecordNum As UInteger) + Me.GetOriginTabRecordIIAsync(RecordNum, Nothing) + End Sub + + ''' + Public Overloads Sub GetOriginTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal userState As Object) + If (Me.GetOriginTabRecordIIOperationCompleted Is Nothing) Then + Me.GetOriginTabRecordIIOperationCompleted = AddressOf Me.OnGetOriginTabRecordIIOperationCompleted + End If + Me.InvokeAsync("GetOriginTabRecordII", New Object() {RecordNum}, Me.GetOriginTabRecordIIOperationCompleted, userState) + End Sub + + Private Sub OnGetOriginTabRecordIIOperationCompleted(ByVal arg As Object) + If (Not (Me.GetOriginTabRecordIICompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetOriginTabRecordIICompleted(Me, New GetOriginTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SetOriginTabRecordII(ByVal RecordNum As UInteger, ByVal RecordBuff As ORIGINTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SetOriginTabRecordII", New Object() {RecordNum, RecordBuff}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SetOriginTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As ORIGINTABLEII) + Me.SetOriginTabRecordIIAsync(RecordNum, RecordBuff, Nothing) + End Sub + + ''' + Public Overloads Sub SetOriginTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As ORIGINTABLEII, ByVal userState As Object) + If (Me.SetOriginTabRecordIIOperationCompleted Is Nothing) Then + Me.SetOriginTabRecordIIOperationCompleted = AddressOf Me.OnSetOriginTabRecordIIOperationCompleted + End If + Me.InvokeAsync("SetOriginTabRecordII", New Object() {RecordNum, RecordBuff}, Me.SetOriginTabRecordIIOperationCompleted, userState) + End Sub + + Private Sub OnSetOriginTabRecordIIOperationCompleted(ByVal arg As Object) + If (Not (Me.SetOriginTabRecordIICompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SetOriginTabRecordIICompleted(Me, New SetOriginTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetToolTabRecordII(ByVal RecordNum As UInteger, ByRef RecordBuff As TOOLTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetToolTabRecordII", New Object() {RecordNum}) + RecordBuff = CType(results(1),TOOLTABLEII) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetToolTabRecordIIAsync(ByVal RecordNum As UInteger) + Me.GetToolTabRecordIIAsync(RecordNum, Nothing) + End Sub + + ''' + Public Overloads Sub GetToolTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal userState As Object) + If (Me.GetToolTabRecordIIOperationCompleted Is Nothing) Then + Me.GetToolTabRecordIIOperationCompleted = AddressOf Me.OnGetToolTabRecordIIOperationCompleted + End If + Me.InvokeAsync("GetToolTabRecordII", New Object() {RecordNum}, Me.GetToolTabRecordIIOperationCompleted, userState) + End Sub + + Private Sub OnGetToolTabRecordIIOperationCompleted(ByVal arg As Object) + If (Not (Me.GetToolTabRecordIICompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetToolTabRecordIICompleted(Me, New GetToolTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SetToolTabRecordII(ByVal RecordNum As UInteger, ByVal RecordBuff As TOOLTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SetToolTabRecordII", New Object() {RecordNum, RecordBuff}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SetToolTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As TOOLTABLEII) + Me.SetToolTabRecordIIAsync(RecordNum, RecordBuff, Nothing) + End Sub + + ''' + Public Overloads Sub SetToolTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As TOOLTABLEII, ByVal userState As Object) + If (Me.SetToolTabRecordIIOperationCompleted Is Nothing) Then + Me.SetToolTabRecordIIOperationCompleted = AddressOf Me.OnSetToolTabRecordIIOperationCompleted + End If + Me.InvokeAsync("SetToolTabRecordII", New Object() {RecordNum, RecordBuff}, Me.SetToolTabRecordIIOperationCompleted, userState) + End Sub + + Private Sub OnSetToolTabRecordIIOperationCompleted(ByVal arg As Object) + If (Not (Me.SetToolTabRecordIICompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SetToolTabRecordIICompleted(Me, New SetToolTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetOffsetTabRecordII(ByVal RecordNum As UInteger, ByRef RecordBuff As OFFSETTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetOffsetTabRecordII", New Object() {RecordNum}) + RecordBuff = CType(results(1),OFFSETTABLEII) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetOffsetTabRecordIIAsync(ByVal RecordNum As UInteger) + Me.GetOffsetTabRecordIIAsync(RecordNum, Nothing) + End Sub + + ''' + Public Overloads Sub GetOffsetTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal userState As Object) + If (Me.GetOffsetTabRecordIIOperationCompleted Is Nothing) Then + Me.GetOffsetTabRecordIIOperationCompleted = AddressOf Me.OnGetOffsetTabRecordIIOperationCompleted + End If + Me.InvokeAsync("GetOffsetTabRecordII", New Object() {RecordNum}, Me.GetOffsetTabRecordIIOperationCompleted, userState) + End Sub + + Private Sub OnGetOffsetTabRecordIIOperationCompleted(ByVal arg As Object) + If (Not (Me.GetOffsetTabRecordIICompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetOffsetTabRecordIICompleted(Me, New GetOffsetTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SetOffsetTabRecordII(ByVal RecordNum As UInteger, ByVal RecordBuff As OFFSETTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SetOffsetTabRecordII", New Object() {RecordNum, RecordBuff}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SetOffsetTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As OFFSETTABLEII) + Me.SetOffsetTabRecordIIAsync(RecordNum, RecordBuff, Nothing) + End Sub + + ''' + Public Overloads Sub SetOffsetTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As OFFSETTABLEII, ByVal userState As Object) + If (Me.SetOffsetTabRecordIIOperationCompleted Is Nothing) Then + Me.SetOffsetTabRecordIIOperationCompleted = AddressOf Me.OnSetOffsetTabRecordIIOperationCompleted + End If + Me.InvokeAsync("SetOffsetTabRecordII", New Object() {RecordNum, RecordBuff}, Me.SetOffsetTabRecordIIOperationCompleted, userState) + End Sub + + Private Sub OnSetOffsetTabRecordIIOperationCompleted(ByVal arg As Object) + If (Not (Me.SetOffsetTabRecordIICompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SetOffsetTabRecordIICompleted(Me, New SetOffsetTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetUserTabRecordII(ByVal RecordNum As UInteger, ByRef RecordBuff As USERTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetUserTabRecordII", New Object() {RecordNum}) + RecordBuff = CType(results(1),USERTABLEII) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetUserTabRecordIIAsync(ByVal RecordNum As UInteger) + Me.GetUserTabRecordIIAsync(RecordNum, Nothing) + End Sub + + ''' + Public Overloads Sub GetUserTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal userState As Object) + If (Me.GetUserTabRecordIIOperationCompleted Is Nothing) Then + Me.GetUserTabRecordIIOperationCompleted = AddressOf Me.OnGetUserTabRecordIIOperationCompleted + End If + Me.InvokeAsync("GetUserTabRecordII", New Object() {RecordNum}, Me.GetUserTabRecordIIOperationCompleted, userState) + End Sub + + Private Sub OnGetUserTabRecordIIOperationCompleted(ByVal arg As Object) + If (Not (Me.GetUserTabRecordIICompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetUserTabRecordIICompleted(Me, New GetUserTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SetUserTabRecordII(ByVal RecordNum As UInteger, ByVal RecordBuff As USERTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SetUserTabRecordII", New Object() {RecordNum, RecordBuff}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SetUserTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As USERTABLEII) + Me.SetUserTabRecordIIAsync(RecordNum, RecordBuff, Nothing) + End Sub + + ''' + Public Overloads Sub SetUserTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As USERTABLEII, ByVal userState As Object) + If (Me.SetUserTabRecordIIOperationCompleted Is Nothing) Then + Me.SetUserTabRecordIIOperationCompleted = AddressOf Me.OnSetUserTabRecordIIOperationCompleted + End If + Me.InvokeAsync("SetUserTabRecordII", New Object() {RecordNum, RecordBuff}, Me.SetUserTabRecordIIOperationCompleted, userState) + End Sub + + Private Sub OnSetUserTabRecordIIOperationCompleted(ByVal arg As Object) + If (Not (Me.SetUserTabRecordIICompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SetUserTabRecordIICompleted(Me, New SetUserTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetMagazineTabRecordII(ByVal RecordNum As UInteger, ByRef RecordBuff As MAGAZINETABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetMagazineTabRecordII", New Object() {RecordNum}) + RecordBuff = CType(results(1),MAGAZINETABLEII) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetMagazineTabRecordIIAsync(ByVal RecordNum As UInteger) + Me.GetMagazineTabRecordIIAsync(RecordNum, Nothing) + End Sub + + ''' + Public Overloads Sub GetMagazineTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal userState As Object) + If (Me.GetMagazineTabRecordIIOperationCompleted Is Nothing) Then + Me.GetMagazineTabRecordIIOperationCompleted = AddressOf Me.OnGetMagazineTabRecordIIOperationCompleted + End If + Me.InvokeAsync("GetMagazineTabRecordII", New Object() {RecordNum}, Me.GetMagazineTabRecordIIOperationCompleted, userState) + End Sub + + Private Sub OnGetMagazineTabRecordIIOperationCompleted(ByVal arg As Object) + If (Not (Me.GetMagazineTabRecordIICompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetMagazineTabRecordIICompleted(Me, New GetMagazineTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SetMagazineTabRecordII(ByVal RecordNum As UInteger, ByVal RecordBuff As MAGAZINETABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SetMagazineTabRecordII", New Object() {RecordNum, RecordBuff}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SetMagazineTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As MAGAZINETABLEII) + Me.SetMagazineTabRecordIIAsync(RecordNum, RecordBuff, Nothing) + End Sub + + ''' + Public Overloads Sub SetMagazineTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As MAGAZINETABLEII, ByVal userState As Object) + If (Me.SetMagazineTabRecordIIOperationCompleted Is Nothing) Then + Me.SetMagazineTabRecordIIOperationCompleted = AddressOf Me.OnSetMagazineTabRecordIIOperationCompleted + End If + Me.InvokeAsync("SetMagazineTabRecordII", New Object() {RecordNum, RecordBuff}, Me.SetMagazineTabRecordIIOperationCompleted, userState) + End Sub + + Private Sub OnSetMagazineTabRecordIIOperationCompleted(ByVal arg As Object) + If (Not (Me.SetMagazineTabRecordIICompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SetMagazineTabRecordIICompleted(Me, New SetMagazineTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetPocketTabRecordII(ByVal MagazineNum As UShort, ByVal RecordNum As UInteger, ByRef RecordBuff As POCKETTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetPocketTabRecordII", New Object() {MagazineNum, RecordNum}) + RecordBuff = CType(results(1),POCKETTABLEII) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetPocketTabRecordIIAsync(ByVal MagazineNum As UShort, ByVal RecordNum As UInteger) + Me.GetPocketTabRecordIIAsync(MagazineNum, RecordNum, Nothing) + End Sub + + ''' + Public Overloads Sub GetPocketTabRecordIIAsync(ByVal MagazineNum As UShort, ByVal RecordNum As UInteger, ByVal userState As Object) + If (Me.GetPocketTabRecordIIOperationCompleted Is Nothing) Then + Me.GetPocketTabRecordIIOperationCompleted = AddressOf Me.OnGetPocketTabRecordIIOperationCompleted + End If + Me.InvokeAsync("GetPocketTabRecordII", New Object() {MagazineNum, RecordNum}, Me.GetPocketTabRecordIIOperationCompleted, userState) + End Sub + + Private Sub OnGetPocketTabRecordIIOperationCompleted(ByVal arg As Object) + If (Not (Me.GetPocketTabRecordIICompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetPocketTabRecordIICompleted(Me, New GetPocketTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SetPocketTabRecordII(ByVal MagazineNum As UShort, ByVal RecordNum As UInteger, ByVal RecordBuff As POCKETTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SetPocketTabRecordII", New Object() {MagazineNum, RecordNum, RecordBuff}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SetPocketTabRecordIIAsync(ByVal MagazineNum As UShort, ByVal RecordNum As UInteger, ByVal RecordBuff As POCKETTABLEII) + Me.SetPocketTabRecordIIAsync(MagazineNum, RecordNum, RecordBuff, Nothing) + End Sub + + ''' + Public Overloads Sub SetPocketTabRecordIIAsync(ByVal MagazineNum As UShort, ByVal RecordNum As UInteger, ByVal RecordBuff As POCKETTABLEII, ByVal userState As Object) + If (Me.SetPocketTabRecordIIOperationCompleted Is Nothing) Then + Me.SetPocketTabRecordIIOperationCompleted = AddressOf Me.OnSetPocketTabRecordIIOperationCompleted + End If + Me.InvokeAsync("SetPocketTabRecordII", New Object() {MagazineNum, RecordNum, RecordBuff}, Me.SetPocketTabRecordIIOperationCompleted, userState) + End Sub + + Private Sub OnSetPocketTabRecordIIOperationCompleted(ByVal arg As Object) + If (Not (Me.SetPocketTabRecordIICompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SetPocketTabRecordIICompleted(Me, New SetPocketTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SaveTables( ByVal LocalDir As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SaveTables", New Object() {LocalDir}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SaveTablesAsync(ByVal LocalDir As String) + Me.SaveTablesAsync(LocalDir, Nothing) + End Sub + + ''' + Public Overloads Sub SaveTablesAsync(ByVal LocalDir As String, ByVal userState As Object) + If (Me.SaveTablesOperationCompleted Is Nothing) Then + Me.SaveTablesOperationCompleted = AddressOf Me.OnSaveTablesOperationCompleted + End If + Me.InvokeAsync("SaveTables", New Object() {LocalDir}, Me.SaveTablesOperationCompleted, userState) + End Sub + + Private Sub OnSaveTablesOperationCompleted(ByVal arg As Object) + If (Not (Me.SaveTablesCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SaveTablesCompleted(Me, New SaveTablesCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function RestoreSingleTable( ByVal LocalDir As String, ByVal TableType As TABLETYPEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("RestoreSingleTable", New Object() {LocalDir, TableType}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub RestoreSingleTableAsync(ByVal LocalDir As String, ByVal TableType As TABLETYPEII) + Me.RestoreSingleTableAsync(LocalDir, TableType, Nothing) + End Sub + + ''' + Public Overloads Sub RestoreSingleTableAsync(ByVal LocalDir As String, ByVal TableType As TABLETYPEII, ByVal userState As Object) + If (Me.RestoreSingleTableOperationCompleted Is Nothing) Then + Me.RestoreSingleTableOperationCompleted = AddressOf Me.OnRestoreSingleTableOperationCompleted + End If + Me.InvokeAsync("RestoreSingleTable", New Object() {LocalDir, TableType}, Me.RestoreSingleTableOperationCompleted, userState) + End Sub + + Private Sub OnRestoreSingleTableOperationCompleted(ByVal arg As Object) + If (Not (Me.RestoreSingleTableCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent RestoreSingleTableCompleted(Me, New RestoreSingleTableCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SaveSingleTable( ByVal LocalDir As String, ByVal TableType As TABLETYPEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SaveSingleTable", New Object() {LocalDir, TableType}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SaveSingleTableAsync(ByVal LocalDir As String, ByVal TableType As TABLETYPEII) + Me.SaveSingleTableAsync(LocalDir, TableType, Nothing) + End Sub + + ''' + Public Overloads Sub SaveSingleTableAsync(ByVal LocalDir As String, ByVal TableType As TABLETYPEII, ByVal userState As Object) + If (Me.SaveSingleTableOperationCompleted Is Nothing) Then + Me.SaveSingleTableOperationCompleted = AddressOf Me.OnSaveSingleTableOperationCompleted + End If + Me.InvokeAsync("SaveSingleTable", New Object() {LocalDir, TableType}, Me.SaveSingleTableOperationCompleted, userState) + End Sub + + Private Sub OnSaveSingleTableOperationCompleted(ByVal arg As Object) + If (Not (Me.SaveSingleTableCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SaveSingleTableCompleted(Me, New SaveSingleTableCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SaveBackupMemory( ByVal FileName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SaveBackupMemory", New Object() {FileName}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SaveBackupMemoryAsync(ByVal FileName As String) + Me.SaveBackupMemoryAsync(FileName, Nothing) + End Sub + + ''' + Public Overloads Sub SaveBackupMemoryAsync(ByVal FileName As String, ByVal userState As Object) + If (Me.SaveBackupMemoryOperationCompleted Is Nothing) Then + Me.SaveBackupMemoryOperationCompleted = AddressOf Me.OnSaveBackupMemoryOperationCompleted + End If + Me.InvokeAsync("SaveBackupMemory", New Object() {FileName}, Me.SaveBackupMemoryOperationCompleted, userState) + End Sub + + Private Sub OnSaveBackupMemoryOperationCompleted(ByVal arg As Object) + If (Not (Me.SaveBackupMemoryCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SaveBackupMemoryCompleted(Me, New SaveBackupMemoryCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function RestoreBackupMemory( ByVal FileName As String, ByVal RestoreMask As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("RestoreBackupMemory", New Object() {FileName, RestoreMask}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub RestoreBackupMemoryAsync(ByVal FileName As String, ByVal RestoreMask As UInteger) + Me.RestoreBackupMemoryAsync(FileName, RestoreMask, Nothing) + End Sub + + ''' + Public Overloads Sub RestoreBackupMemoryAsync(ByVal FileName As String, ByVal RestoreMask As UInteger, ByVal userState As Object) + If (Me.RestoreBackupMemoryOperationCompleted Is Nothing) Then + Me.RestoreBackupMemoryOperationCompleted = AddressOf Me.OnRestoreBackupMemoryOperationCompleted + End If + Me.InvokeAsync("RestoreBackupMemory", New Object() {FileName, RestoreMask}, Me.RestoreBackupMemoryOperationCompleted, userState) + End Sub + + Private Sub OnRestoreBackupMemoryOperationCompleted(ByVal arg As Object) + If (Not (Me.RestoreBackupMemoryCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent RestoreBackupMemoryCompleted(Me, New RestoreBackupMemoryCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ToolSearch( ByVal ToolCode As String, ByVal Magazine As Short, ByRef ToolIndex As Short, ByRef Pocket As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ToolSearch", New Object() {ToolCode, Magazine}) + ToolIndex = CType(results(1),Short) + Pocket = CType(results(2),Short) + ErrClass = CType(results(3),UInteger) + ErrNum = CType(results(4),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ToolSearchAsync(ByVal ToolCode As String, ByVal Magazine As Short) + Me.ToolSearchAsync(ToolCode, Magazine, Nothing) + End Sub + + ''' + Public Overloads Sub ToolSearchAsync(ByVal ToolCode As String, ByVal Magazine As Short, ByVal userState As Object) + If (Me.ToolSearchOperationCompleted Is Nothing) Then + Me.ToolSearchOperationCompleted = AddressOf Me.OnToolSearchOperationCompleted + End If + Me.InvokeAsync("ToolSearch", New Object() {ToolCode, Magazine}, Me.ToolSearchOperationCompleted, userState) + End Sub + + Private Sub OnToolSearchOperationCompleted(ByVal arg As Object) + If (Not (Me.ToolSearchCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ToolSearchCompleted(Me, New ToolSearchCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ToolSearchLife( ByVal ToolCode As String, ByVal Magazine As Short, ByVal LifeVal As Double, ByRef ToolIndex As Short, ByRef Pocket As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ToolSearchLife", New Object() {ToolCode, Magazine, LifeVal}) + ToolIndex = CType(results(1),Short) + Pocket = CType(results(2),Short) + ErrClass = CType(results(3),UInteger) + ErrNum = CType(results(4),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ToolSearchLifeAsync(ByVal ToolCode As String, ByVal Magazine As Short, ByVal LifeVal As Double) + Me.ToolSearchLifeAsync(ToolCode, Magazine, LifeVal, Nothing) + End Sub + + ''' + Public Overloads Sub ToolSearchLifeAsync(ByVal ToolCode As String, ByVal Magazine As Short, ByVal LifeVal As Double, ByVal userState As Object) + If (Me.ToolSearchLifeOperationCompleted Is Nothing) Then + Me.ToolSearchLifeOperationCompleted = AddressOf Me.OnToolSearchLifeOperationCompleted + End If + Me.InvokeAsync("ToolSearchLife", New Object() {ToolCode, Magazine, LifeVal}, Me.ToolSearchLifeOperationCompleted, userState) + End Sub + + Private Sub OnToolSearchLifeOperationCompleted(ByVal arg As Object) + If (Not (Me.ToolSearchLifeCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ToolSearchLifeCompleted(Me, New ToolSearchLifeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ToolSearchDir( ByVal ToolCode As String, ByVal Magazine As Short, ByVal StartPocket As Short, ByVal Direction As Short, ByRef ToolIndex As Short, ByRef Pocket As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ToolSearchDir", New Object() {ToolCode, Magazine, StartPocket, Direction}) + ToolIndex = CType(results(1),Short) + Pocket = CType(results(2),Short) + ErrClass = CType(results(3),UInteger) + ErrNum = CType(results(4),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ToolSearchDirAsync(ByVal ToolCode As String, ByVal Magazine As Short, ByVal StartPocket As Short, ByVal Direction As Short) + Me.ToolSearchDirAsync(ToolCode, Magazine, StartPocket, Direction, Nothing) + End Sub + + ''' + Public Overloads Sub ToolSearchDirAsync(ByVal ToolCode As String, ByVal Magazine As Short, ByVal StartPocket As Short, ByVal Direction As Short, ByVal userState As Object) + If (Me.ToolSearchDirOperationCompleted Is Nothing) Then + Me.ToolSearchDirOperationCompleted = AddressOf Me.OnToolSearchDirOperationCompleted + End If + Me.InvokeAsync("ToolSearchDir", New Object() {ToolCode, Magazine, StartPocket, Direction}, Me.ToolSearchDirOperationCompleted, userState) + End Sub + + Private Sub OnToolSearchDirOperationCompleted(ByVal arg As Object) + If (Not (Me.ToolSearchDirCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ToolSearchDirCompleted(Me, New ToolSearchDirCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ToolSearchLifeDir( ByVal ToolCode As String, ByVal Magazine As Short, ByVal LifeVal As Double, ByVal StartPocket As Short, ByRef ToolIndex As Short, ByRef Pocket As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ToolSearchLifeDir", New Object() {ToolCode, Magazine, LifeVal, StartPocket}) + ToolIndex = CType(results(1),Short) + Pocket = CType(results(2),Short) + ErrClass = CType(results(3),UInteger) + ErrNum = CType(results(4),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ToolSearchLifeDirAsync(ByVal ToolCode As String, ByVal Magazine As Short, ByVal LifeVal As Double, ByVal StartPocket As Short) + Me.ToolSearchLifeDirAsync(ToolCode, Magazine, LifeVal, StartPocket, Nothing) + End Sub + + ''' + Public Overloads Sub ToolSearchLifeDirAsync(ByVal ToolCode As String, ByVal Magazine As Short, ByVal LifeVal As Double, ByVal StartPocket As Short, ByVal userState As Object) + If (Me.ToolSearchLifeDirOperationCompleted Is Nothing) Then + Me.ToolSearchLifeDirOperationCompleted = AddressOf Me.OnToolSearchLifeDirOperationCompleted + End If + Me.InvokeAsync("ToolSearchLifeDir", New Object() {ToolCode, Magazine, LifeVal, StartPocket}, Me.ToolSearchLifeDirOperationCompleted, userState) + End Sub + + Private Sub OnToolSearchLifeDirOperationCompleted(ByVal arg As Object) + If (Not (Me.ToolSearchLifeDirCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ToolSearchLifeDirCompleted(Me, New ToolSearchLifeDirCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ToolSameFamily( ByVal ToolCode As String, ByVal Magazine As Short, ByRef ToolInMaga As Short, ByRef ToolsOutMaga As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ToolSameFamily", New Object() {ToolCode, Magazine}) + ToolInMaga = CType(results(1),Short) + ToolsOutMaga = CType(results(2),Short) + ErrClass = CType(results(3),UInteger) + ErrNum = CType(results(4),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ToolSameFamilyAsync(ByVal ToolCode As String, ByVal Magazine As Short) + Me.ToolSameFamilyAsync(ToolCode, Magazine, Nothing) + End Sub + + ''' + Public Overloads Sub ToolSameFamilyAsync(ByVal ToolCode As String, ByVal Magazine As Short, ByVal userState As Object) + If (Me.ToolSameFamilyOperationCompleted Is Nothing) Then + Me.ToolSameFamilyOperationCompleted = AddressOf Me.OnToolSameFamilyOperationCompleted + End If + Me.InvokeAsync("ToolSameFamily", New Object() {ToolCode, Magazine}, Me.ToolSameFamilyOperationCompleted, userState) + End Sub + + Private Sub OnToolSameFamilyOperationCompleted(ByVal arg As Object) + If (Not (Me.ToolSameFamilyCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ToolSameFamilyCompleted(Me, New ToolSameFamilyCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ToolLoad(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal Pocket As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ToolLoad", New Object() {ToolIndex, Magazine, Pocket}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ToolLoadAsync(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal Pocket As Short) + Me.ToolLoadAsync(ToolIndex, Magazine, Pocket, Nothing) + End Sub + + ''' + Public Overloads Sub ToolLoadAsync(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal Pocket As Short, ByVal userState As Object) + If (Me.ToolLoadOperationCompleted Is Nothing) Then + Me.ToolLoadOperationCompleted = AddressOf Me.OnToolLoadOperationCompleted + End If + Me.InvokeAsync("ToolLoad", New Object() {ToolIndex, Magazine, Pocket}, Me.ToolLoadOperationCompleted, userState) + End Sub + + Private Sub OnToolLoadOperationCompleted(ByVal arg As Object) + If (Not (Me.ToolLoadCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ToolLoadCompleted(Me, New ToolLoadCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ToolUnload(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal Pocket As Short, ByVal Position As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ToolUnload", New Object() {ToolIndex, Magazine, Pocket, Position}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ToolUnloadAsync(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal Pocket As Short, ByVal Position As Short) + Me.ToolUnloadAsync(ToolIndex, Magazine, Pocket, Position, Nothing) + End Sub + + ''' + Public Overloads Sub ToolUnloadAsync(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal Pocket As Short, ByVal Position As Short, ByVal userState As Object) + If (Me.ToolUnloadOperationCompleted Is Nothing) Then + Me.ToolUnloadOperationCompleted = AddressOf Me.OnToolUnloadOperationCompleted + End If + Me.InvokeAsync("ToolUnload", New Object() {ToolIndex, Magazine, Pocket, Position}, Me.ToolUnloadOperationCompleted, userState) + End Sub + + Private Sub OnToolUnloadOperationCompleted(ByVal arg As Object) + If (Not (Me.ToolUnloadCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ToolUnloadCompleted(Me, New ToolUnloadCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function PocketSearch(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal StartPocket As Short, ByVal Direction As Short, ByRef Pocket As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("PocketSearch", New Object() {ToolIndex, Magazine, StartPocket, Direction}) + Pocket = CType(results(1),Short) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub PocketSearchAsync(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal StartPocket As Short, ByVal Direction As Short) + Me.PocketSearchAsync(ToolIndex, Magazine, StartPocket, Direction, Nothing) + End Sub + + ''' + Public Overloads Sub PocketSearchAsync(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal StartPocket As Short, ByVal Direction As Short, ByVal userState As Object) + If (Me.PocketSearchOperationCompleted Is Nothing) Then + Me.PocketSearchOperationCompleted = AddressOf Me.OnPocketSearchOperationCompleted + End If + Me.InvokeAsync("PocketSearch", New Object() {ToolIndex, Magazine, StartPocket, Direction}, Me.PocketSearchOperationCompleted, userState) + End Sub + + Private Sub OnPocketSearchOperationCompleted(ByVal arg As Object) + If (Not (Me.PocketSearchCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent PocketSearchCompleted(Me, New PocketSearchCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function PocketClosest(ByVal Magazine As Short, ByVal ActualPocket As Short, ByVal Pocket1 As Short, ByVal Pocket2 As Short, ByRef Direction As Short, ByRef Pocket As Short, ByRef HorizontalDistance As Short, ByRef VerticalDistance As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("PocketClosest", New Object() {Magazine, ActualPocket, Pocket1, Pocket2}) + Direction = CType(results(1),Short) + Pocket = CType(results(2),Short) + HorizontalDistance = CType(results(3),Short) + VerticalDistance = CType(results(4),Short) + ErrClass = CType(results(5),UInteger) + ErrNum = CType(results(6),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub PocketClosestAsync(ByVal Magazine As Short, ByVal ActualPocket As Short, ByVal Pocket1 As Short, ByVal Pocket2 As Short) + Me.PocketClosestAsync(Magazine, ActualPocket, Pocket1, Pocket2, Nothing) + End Sub + + ''' + Public Overloads Sub PocketClosestAsync(ByVal Magazine As Short, ByVal ActualPocket As Short, ByVal Pocket1 As Short, ByVal Pocket2 As Short, ByVal userState As Object) + If (Me.PocketClosestOperationCompleted Is Nothing) Then + Me.PocketClosestOperationCompleted = AddressOf Me.OnPocketClosestOperationCompleted + End If + Me.InvokeAsync("PocketClosest", New Object() {Magazine, ActualPocket, Pocket1, Pocket2}, Me.PocketClosestOperationCompleted, userState) + End Sub + + Private Sub OnPocketClosestOperationCompleted(ByVal arg As Object) + If (Not (Me.PocketClosestCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent PocketClosestCompleted(Me, New PocketClosestCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function PocketNearest(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal ActualPocket As Short, ByRef Pocket As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("PocketNearest", New Object() {ToolIndex, Magazine, ActualPocket}) + Pocket = CType(results(1),Short) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub PocketNearestAsync(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal ActualPocket As Short) + Me.PocketNearestAsync(ToolIndex, Magazine, ActualPocket, Nothing) + End Sub + + ''' + Public Overloads Sub PocketNearestAsync(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal ActualPocket As Short, ByVal userState As Object) + If (Me.PocketNearestOperationCompleted Is Nothing) Then + Me.PocketNearestOperationCompleted = AddressOf Me.OnPocketNearestOperationCompleted + End If + Me.InvokeAsync("PocketNearest", New Object() {ToolIndex, Magazine, ActualPocket}, Me.PocketNearestOperationCompleted, userState) + End Sub + + Private Sub OnPocketNearestOperationCompleted(ByVal arg As Object) + If (Not (Me.PocketNearestCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent PocketNearestCompleted(Me, New PocketNearestCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ToolLife(ByVal ToolIndex As Short, ByVal Value As Double, ByRef RemLife As Double, ByRef ToolStatus As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ToolLife", New Object() {ToolIndex, Value}) + RemLife = CType(results(1),Double) + ToolStatus = CType(results(2),Short) + ErrClass = CType(results(3),UInteger) + ErrNum = CType(results(4),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ToolLifeAsync(ByVal ToolIndex As Short, ByVal Value As Double) + Me.ToolLifeAsync(ToolIndex, Value, Nothing) + End Sub + + ''' + Public Overloads Sub ToolLifeAsync(ByVal ToolIndex As Short, ByVal Value As Double, ByVal userState As Object) + If (Me.ToolLifeOperationCompleted Is Nothing) Then + Me.ToolLifeOperationCompleted = AddressOf Me.OnToolLifeOperationCompleted + End If + Me.InvokeAsync("ToolLife", New Object() {ToolIndex, Value}, Me.ToolLifeOperationCompleted, userState) + End Sub + + Private Sub OnToolLifeOperationCompleted(ByVal arg As Object) + If (Not (Me.ToolLifeCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ToolLifeCompleted(Me, New ToolLifeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LoadTableFromFile( ByVal FileName As String, ByVal AuxFileName As String, ByVal TableType As UShort, ByVal Param1 As UShort, ByVal Param2 As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LoadTableFromFile", New Object() {FileName, AuxFileName, TableType, Param1, Param2}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LoadTableFromFileAsync(ByVal FileName As String, ByVal AuxFileName As String, ByVal TableType As UShort, ByVal Param1 As UShort, ByVal Param2 As UShort) + Me.LoadTableFromFileAsync(FileName, AuxFileName, TableType, Param1, Param2, Nothing) + End Sub + + ''' + Public Overloads Sub LoadTableFromFileAsync(ByVal FileName As String, ByVal AuxFileName As String, ByVal TableType As UShort, ByVal Param1 As UShort, ByVal Param2 As UShort, ByVal userState As Object) + If (Me.LoadTableFromFileOperationCompleted Is Nothing) Then + Me.LoadTableFromFileOperationCompleted = AddressOf Me.OnLoadTableFromFileOperationCompleted + End If + Me.InvokeAsync("LoadTableFromFile", New Object() {FileName, AuxFileName, TableType, Param1, Param2}, Me.LoadTableFromFileOperationCompleted, userState) + End Sub + + Private Sub OnLoadTableFromFileOperationCompleted(ByVal arg As Object) + If (Not (Me.LoadTableFromFileCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LoadTableFromFileCompleted(Me, New LoadTableFromFileCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function MagConfigurePockets(ByVal magNum As Short, ByVal fPocket As Short, ByVal lPocket As Short, ByVal pockType As Short, ByVal rndPock As Short, ByVal nearCfg As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("MagConfigurePockets", New Object() {magNum, fPocket, lPocket, pockType, rndPock, nearCfg}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub MagConfigurePocketsAsync(ByVal magNum As Short, ByVal fPocket As Short, ByVal lPocket As Short, ByVal pockType As Short, ByVal rndPock As Short, ByVal nearCfg As Short) + Me.MagConfigurePocketsAsync(magNum, fPocket, lPocket, pockType, rndPock, nearCfg, Nothing) + End Sub + + ''' + Public Overloads Sub MagConfigurePocketsAsync(ByVal magNum As Short, ByVal fPocket As Short, ByVal lPocket As Short, ByVal pockType As Short, ByVal rndPock As Short, ByVal nearCfg As Short, ByVal userState As Object) + If (Me.MagConfigurePocketsOperationCompleted Is Nothing) Then + Me.MagConfigurePocketsOperationCompleted = AddressOf Me.OnMagConfigurePocketsOperationCompleted + End If + Me.InvokeAsync("MagConfigurePockets", New Object() {magNum, fPocket, lPocket, pockType, rndPock, nearCfg}, Me.MagConfigurePocketsOperationCompleted, userState) + End Sub + + Private Sub OnMagConfigurePocketsOperationCompleted(ByVal arg As Object) + If (Not (Me.MagConfigurePocketsCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent MagConfigurePocketsCompleted(Me, New MagConfigurePocketsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function Cycle(ByVal ProcNum As UShort, ByVal Cmd As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("Cycle", New Object() {ProcNum, Cmd}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub CycleAsync(ByVal ProcNum As UShort, ByVal Cmd As UShort) + Me.CycleAsync(ProcNum, Cmd, Nothing) + End Sub + + ''' + Public Overloads Sub CycleAsync(ByVal ProcNum As UShort, ByVal Cmd As UShort, ByVal userState As Object) + If (Me.CycleOperationCompleted Is Nothing) Then + Me.CycleOperationCompleted = AddressOf Me.OnCycleOperationCompleted + End If + Me.InvokeAsync("Cycle", New Object() {ProcNum, Cmd}, Me.CycleOperationCompleted, userState) + End Sub + + Private Sub OnCycleOperationCompleted(ByVal arg As Object) + If (Not (Me.CycleCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent CycleCompleted(Me, New CycleCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SyncroCycle(ByVal ProcNum As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SyncroCycle", New Object() {ProcNum}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SyncroCycleAsync(ByVal ProcNum As UShort) + Me.SyncroCycleAsync(ProcNum, Nothing) + End Sub + + ''' + Public Overloads Sub SyncroCycleAsync(ByVal ProcNum As UShort, ByVal userState As Object) + If (Me.SyncroCycleOperationCompleted Is Nothing) Then + Me.SyncroCycleOperationCompleted = AddressOf Me.OnSyncroCycleOperationCompleted + End If + Me.InvokeAsync("SyncroCycle", New Object() {ProcNum}, Me.SyncroCycleOperationCompleted, userState) + End Sub + + Private Sub OnSyncroCycleOperationCompleted(ByVal arg As Object) + If (Not (Me.SyncroCycleCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SyncroCycleCompleted(Me, New SyncroCycleCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function Reset(ByVal ProcNum As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("Reset", New Object() {ProcNum}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ResetAsync(ByVal ProcNum As UShort) + Me.ResetAsync(ProcNum, Nothing) + End Sub + + ''' + Public Overloads Sub ResetAsync(ByVal ProcNum As UShort, ByVal userState As Object) + If (Me.ResetOperationCompleted Is Nothing) Then + Me.ResetOperationCompleted = AddressOf Me.OnResetOperationCompleted + End If + Me.InvokeAsync("Reset", New Object() {ProcNum}, Me.ResetOperationCompleted, userState) + End Sub + + Private Sub OnResetOperationCompleted(ByVal arg As Object) + If (Not (Me.ResetCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ResetCompleted(Me, New ResetCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function Hold(ByVal ProcNum As UShort, ByVal Cmd As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("Hold", New Object() {ProcNum, Cmd}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub HoldAsync(ByVal ProcNum As UShort, ByVal Cmd As UShort) + Me.HoldAsync(ProcNum, Cmd, Nothing) + End Sub + + ''' + Public Overloads Sub HoldAsync(ByVal ProcNum As UShort, ByVal Cmd As UShort, ByVal userState As Object) + If (Me.HoldOperationCompleted Is Nothing) Then + Me.HoldOperationCompleted = AddressOf Me.OnHoldOperationCompleted + End If + Me.InvokeAsync("Hold", New Object() {ProcNum, Cmd}, Me.HoldOperationCompleted, userState) + End Sub + + Private Sub OnHoldOperationCompleted(ByVal arg As Object) + If (Not (Me.HoldCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent HoldCompleted(Me, New HoldCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SetFeedManOver(ByVal ProcNum As UShort, ByVal FeedManOver As UShort, ByVal Direction As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SetFeedManOver", New Object() {ProcNum, FeedManOver, Direction}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SetFeedManOverAsync(ByVal ProcNum As UShort, ByVal FeedManOver As UShort, ByVal Direction As UShort) + Me.SetFeedManOverAsync(ProcNum, FeedManOver, Direction, Nothing) + End Sub + + ''' + Public Overloads Sub SetFeedManOverAsync(ByVal ProcNum As UShort, ByVal FeedManOver As UShort, ByVal Direction As UShort, ByVal userState As Object) + If (Me.SetFeedManOverOperationCompleted Is Nothing) Then + Me.SetFeedManOverOperationCompleted = AddressOf Me.OnSetFeedManOverOperationCompleted + End If + Me.InvokeAsync("SetFeedManOver", New Object() {ProcNum, FeedManOver, Direction}, Me.SetFeedManOverOperationCompleted, userState) + End Sub + + Private Sub OnSetFeedManOverOperationCompleted(ByVal arg As Object) + If (Not (Me.SetFeedManOverCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SetFeedManOverCompleted(Me, New SetFeedManOverCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SetFeedRateOver(ByVal ProcNum As UShort, ByVal FeedRateOver As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SetFeedRateOver", New Object() {ProcNum, FeedRateOver}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SetFeedRateOverAsync(ByVal ProcNum As UShort, ByVal FeedRateOver As UShort) + Me.SetFeedRateOverAsync(ProcNum, FeedRateOver, Nothing) + End Sub + + ''' + Public Overloads Sub SetFeedRateOverAsync(ByVal ProcNum As UShort, ByVal FeedRateOver As UShort, ByVal userState As Object) + If (Me.SetFeedRateOverOperationCompleted Is Nothing) Then + Me.SetFeedRateOverOperationCompleted = AddressOf Me.OnSetFeedRateOverOperationCompleted + End If + Me.InvokeAsync("SetFeedRateOver", New Object() {ProcNum, FeedRateOver}, Me.SetFeedRateOverOperationCompleted, userState) + End Sub + + Private Sub OnSetFeedRateOverOperationCompleted(ByVal arg As Object) + If (Not (Me.SetFeedRateOverCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SetFeedRateOverCompleted(Me, New SetFeedRateOverCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SetFeedRapidOver(ByVal ProcNum As UShort, ByVal FeedRapidOver As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SetFeedRapidOver", New Object() {ProcNum, FeedRapidOver}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SetFeedRapidOverAsync(ByVal ProcNum As UShort, ByVal FeedRapidOver As UShort) + Me.SetFeedRapidOverAsync(ProcNum, FeedRapidOver, Nothing) + End Sub + + ''' + Public Overloads Sub SetFeedRapidOverAsync(ByVal ProcNum As UShort, ByVal FeedRapidOver As UShort, ByVal userState As Object) + If (Me.SetFeedRapidOverOperationCompleted Is Nothing) Then + Me.SetFeedRapidOverOperationCompleted = AddressOf Me.OnSetFeedRapidOverOperationCompleted + End If + Me.InvokeAsync("SetFeedRapidOver", New Object() {ProcNum, FeedRapidOver}, Me.SetFeedRapidOverOperationCompleted, userState) + End Sub + + Private Sub OnSetFeedRapidOverOperationCompleted(ByVal arg As Object) + If (Not (Me.SetFeedRapidOverCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SetFeedRapidOverCompleted(Me, New SetFeedRapidOverCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SetSpeedRateOver(ByVal ProcNum As UShort, ByVal SpeedRateOver As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SetSpeedRateOver", New Object() {ProcNum, SpeedRateOver}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SetSpeedRateOverAsync(ByVal ProcNum As UShort, ByVal SpeedRateOver As UShort) + Me.SetSpeedRateOverAsync(ProcNum, SpeedRateOver, Nothing) + End Sub + + ''' + Public Overloads Sub SetSpeedRateOverAsync(ByVal ProcNum As UShort, ByVal SpeedRateOver As UShort, ByVal userState As Object) + If (Me.SetSpeedRateOverOperationCompleted Is Nothing) Then + Me.SetSpeedRateOverOperationCompleted = AddressOf Me.OnSetSpeedRateOverOperationCompleted + End If + Me.InvokeAsync("SetSpeedRateOver", New Object() {ProcNum, SpeedRateOver}, Me.SetSpeedRateOverOperationCompleted, userState) + End Sub + + Private Sub OnSetSpeedRateOverOperationCompleted(ByVal arg As Object) + If (Not (Me.SetSpeedRateOverCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SetSpeedRateOverCompleted(Me, New SetSpeedRateOverCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SetManMovDirection(ByVal ProcNum As UShort, ByVal Direction As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SetManMovDirection", New Object() {ProcNum, Direction}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SetManMovDirectionAsync(ByVal ProcNum As UShort, ByVal Direction As UShort) + Me.SetManMovDirectionAsync(ProcNum, Direction, Nothing) + End Sub + + ''' + Public Overloads Sub SetManMovDirectionAsync(ByVal ProcNum As UShort, ByVal Direction As UShort, ByVal userState As Object) + If (Me.SetManMovDirectionOperationCompleted Is Nothing) Then + Me.SetManMovDirectionOperationCompleted = AddressOf Me.OnSetManMovDirectionOperationCompleted + End If + Me.InvokeAsync("SetManMovDirection", New Object() {ProcNum, Direction}, Me.SetManMovDirectionOperationCompleted, userState) + End Sub + + Private Sub OnSetManMovDirectionOperationCompleted(ByVal arg As Object) + If (Not (Me.SetManMovDirectionCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SetManMovDirectionCompleted(Me, New SetManMovDirectionCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetVarJOG(ByVal ProcNum As UShort, ByRef Value As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetVarJOG", New Object() {ProcNum}) + Value = CType(results(1),Double) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetVarJOGAsync(ByVal ProcNum As UShort) + Me.GetVarJOGAsync(ProcNum, Nothing) + End Sub + + ''' + Public Overloads Sub GetVarJOGAsync(ByVal ProcNum As UShort, ByVal userState As Object) + If (Me.GetVarJOGOperationCompleted Is Nothing) Then + Me.GetVarJOGOperationCompleted = AddressOf Me.OnGetVarJOGOperationCompleted + End If + Me.InvokeAsync("GetVarJOG", New Object() {ProcNum}, Me.GetVarJOGOperationCompleted, userState) + End Sub + + Private Sub OnGetVarJOGOperationCompleted(ByVal arg As Object) + If (Not (Me.GetVarJOGCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetVarJOGCompleted(Me, New GetVarJOGCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SetVarJOG(ByVal ProcNum As UShort, ByVal Value As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SetVarJOG", New Object() {ProcNum, Value}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SetVarJOGAsync(ByVal ProcNum As UShort, ByVal Value As Double) + Me.SetVarJOGAsync(ProcNum, Value, Nothing) + End Sub + + ''' + Public Overloads Sub SetVarJOGAsync(ByVal ProcNum As UShort, ByVal Value As Double, ByVal userState As Object) + If (Me.SetVarJOGOperationCompleted Is Nothing) Then + Me.SetVarJOGOperationCompleted = AddressOf Me.OnSetVarJOGOperationCompleted + End If + Me.InvokeAsync("SetVarJOG", New Object() {ProcNum, Value}, Me.SetVarJOGOperationCompleted, userState) + End Sub + + Private Sub OnSetVarJOGOperationCompleted(ByVal arg As Object) + If (Not (Me.SetVarJOGCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SetVarJOGCompleted(Me, New SetVarJOGCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SetVarUAS(ByVal ProcNum As UShort, ByVal Mode As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SetVarUAS", New Object() {ProcNum, Mode}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SetVarUASAsync(ByVal ProcNum As UShort, ByVal Mode As UShort) + Me.SetVarUASAsync(ProcNum, Mode, Nothing) + End Sub + + ''' + Public Overloads Sub SetVarUASAsync(ByVal ProcNum As UShort, ByVal Mode As UShort, ByVal userState As Object) + If (Me.SetVarUASOperationCompleted Is Nothing) Then + Me.SetVarUASOperationCompleted = AddressOf Me.OnSetVarUASOperationCompleted + End If + Me.InvokeAsync("SetVarUAS", New Object() {ProcNum, Mode}, Me.SetVarUASOperationCompleted, userState) + End Sub + + Private Sub OnSetVarUASOperationCompleted(ByVal arg As Object) + If (Not (Me.SetVarUASCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SetVarUASCompleted(Me, New SetVarUASCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetVarRCM(ByVal ProcNum As UShort, ByRef Value As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetVarRCM", New Object() {ProcNum}) + Value = CType(results(1),UShort) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetVarRCMAsync(ByVal ProcNum As UShort) + Me.GetVarRCMAsync(ProcNum, Nothing) + End Sub + + ''' + Public Overloads Sub GetVarRCMAsync(ByVal ProcNum As UShort, ByVal userState As Object) + If (Me.GetVarRCMOperationCompleted Is Nothing) Then + Me.GetVarRCMOperationCompleted = AddressOf Me.OnGetVarRCMOperationCompleted + End If + Me.InvokeAsync("GetVarRCM", New Object() {ProcNum}, Me.GetVarRCMOperationCompleted, userState) + End Sub + + Private Sub OnGetVarRCMOperationCompleted(ByVal arg As Object) + If (Not (Me.GetVarRCMCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetVarRCMCompleted(Me, New GetVarRCMCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SetVarRCM(ByVal ProcNum As UShort, ByVal Mode As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SetVarRCM", New Object() {ProcNum, Mode}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SetVarRCMAsync(ByVal ProcNum As UShort, ByVal Mode As UShort) + Me.SetVarRCMAsync(ProcNum, Mode, Nothing) + End Sub + + ''' + Public Overloads Sub SetVarRCMAsync(ByVal ProcNum As UShort, ByVal Mode As UShort, ByVal userState As Object) + If (Me.SetVarRCMOperationCompleted Is Nothing) Then + Me.SetVarRCMOperationCompleted = AddressOf Me.OnSetVarRCMOperationCompleted + End If + Me.InvokeAsync("SetVarRCM", New Object() {ProcNum, Mode}, Me.SetVarRCMOperationCompleted, userState) + End Sub + + Private Sub OnSetVarRCMOperationCompleted(ByVal arg As Object) + If (Not (Me.SetVarRCMCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SetVarRCMCompleted(Me, New SetVarRCMCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetVarCYCTIME(ByVal ProcNum As UShort, ByRef Value As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetVarCYCTIME", New Object() {ProcNum}) + Value = CType(results(1),UShort) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetVarCYCTIMEAsync(ByVal ProcNum As UShort) + Me.GetVarCYCTIMEAsync(ProcNum, Nothing) + End Sub + + ''' + Public Overloads Sub GetVarCYCTIMEAsync(ByVal ProcNum As UShort, ByVal userState As Object) + If (Me.GetVarCYCTIMEOperationCompleted Is Nothing) Then + Me.GetVarCYCTIMEOperationCompleted = AddressOf Me.OnGetVarCYCTIMEOperationCompleted + End If + Me.InvokeAsync("GetVarCYCTIME", New Object() {ProcNum}, Me.GetVarCYCTIMEOperationCompleted, userState) + End Sub + + Private Sub OnGetVarCYCTIMEOperationCompleted(ByVal arg As Object) + If (Not (Me.GetVarCYCTIMECompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetVarCYCTIMECompleted(Me, New GetVarCYCTIMECompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SetVarCYCTIME(ByVal ProcNum As UShort, ByVal Value As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SetVarCYCTIME", New Object() {ProcNum, Value}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SetVarCYCTIMEAsync(ByVal ProcNum As UShort, ByVal Value As UShort) + Me.SetVarCYCTIMEAsync(ProcNum, Value, Nothing) + End Sub + + ''' + Public Overloads Sub SetVarCYCTIMEAsync(ByVal ProcNum As UShort, ByVal Value As UShort, ByVal userState As Object) + If (Me.SetVarCYCTIMEOperationCompleted Is Nothing) Then + Me.SetVarCYCTIMEOperationCompleted = AddressOf Me.OnSetVarCYCTIMEOperationCompleted + End If + Me.InvokeAsync("SetVarCYCTIME", New Object() {ProcNum, Value}, Me.SetVarCYCTIMEOperationCompleted, userState) + End Sub + + Private Sub OnSetVarCYCTIMEOperationCompleted(ByVal arg As Object) + If (Not (Me.SetVarCYCTIMECompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SetVarCYCTIMECompleted(Me, New SetVarCYCTIMECompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetProcVarWord(ByVal ProcNum As UShort, ByVal VarType As PROCWORDVARTYPE, ByRef Value As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetProcVarWord", New Object() {ProcNum, VarType}) + Value = CType(results(1),UShort) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetProcVarWordAsync(ByVal ProcNum As UShort, ByVal VarType As PROCWORDVARTYPE) + Me.GetProcVarWordAsync(ProcNum, VarType, Nothing) + End Sub + + ''' + Public Overloads Sub GetProcVarWordAsync(ByVal ProcNum As UShort, ByVal VarType As PROCWORDVARTYPE, ByVal userState As Object) + If (Me.GetProcVarWordOperationCompleted Is Nothing) Then + Me.GetProcVarWordOperationCompleted = AddressOf Me.OnGetProcVarWordOperationCompleted + End If + Me.InvokeAsync("GetProcVarWord", New Object() {ProcNum, VarType}, Me.GetProcVarWordOperationCompleted, userState) + End Sub + + Private Sub OnGetProcVarWordOperationCompleted(ByVal arg As Object) + If (Not (Me.GetProcVarWordCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetProcVarWordCompleted(Me, New GetProcVarWordCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SetProcVarWord(ByVal ProcNum As UShort, ByVal VarType As PROCWORDVARTYPE, ByVal Value As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SetProcVarWord", New Object() {ProcNum, VarType, Value}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SetProcVarWordAsync(ByVal ProcNum As UShort, ByVal VarType As PROCWORDVARTYPE, ByVal Value As UShort) + Me.SetProcVarWordAsync(ProcNum, VarType, Value, Nothing) + End Sub + + ''' + Public Overloads Sub SetProcVarWordAsync(ByVal ProcNum As UShort, ByVal VarType As PROCWORDVARTYPE, ByVal Value As UShort, ByVal userState As Object) + If (Me.SetProcVarWordOperationCompleted Is Nothing) Then + Me.SetProcVarWordOperationCompleted = AddressOf Me.OnSetProcVarWordOperationCompleted + End If + Me.InvokeAsync("SetProcVarWord", New Object() {ProcNum, VarType, Value}, Me.SetProcVarWordOperationCompleted, userState) + End Sub + + Private Sub OnSetProcVarWordOperationCompleted(ByVal arg As Object) + If (Not (Me.SetProcVarWordCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SetProcVarWordCompleted(Me, New SetProcVarWordCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetProcVarDouble(ByVal ProcNum As UShort, ByVal VarType As PROCDOUBLEVARTYPE, ByRef Value As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetProcVarDouble", New Object() {ProcNum, VarType}) + Value = CType(results(1),Double) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetProcVarDoubleAsync(ByVal ProcNum As UShort, ByVal VarType As PROCDOUBLEVARTYPE) + Me.GetProcVarDoubleAsync(ProcNum, VarType, Nothing) + End Sub + + ''' + Public Overloads Sub GetProcVarDoubleAsync(ByVal ProcNum As UShort, ByVal VarType As PROCDOUBLEVARTYPE, ByVal userState As Object) + If (Me.GetProcVarDoubleOperationCompleted Is Nothing) Then + Me.GetProcVarDoubleOperationCompleted = AddressOf Me.OnGetProcVarDoubleOperationCompleted + End If + Me.InvokeAsync("GetProcVarDouble", New Object() {ProcNum, VarType}, Me.GetProcVarDoubleOperationCompleted, userState) + End Sub + + Private Sub OnGetProcVarDoubleOperationCompleted(ByVal arg As Object) + If (Not (Me.GetProcVarDoubleCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetProcVarDoubleCompleted(Me, New GetProcVarDoubleCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SetProcVarDouble(ByVal ProcNum As UShort, ByVal VarType As PROCDOUBLEVARTYPE, ByVal Value As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SetProcVarDouble", New Object() {ProcNum, VarType, Value}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SetProcVarDoubleAsync(ByVal ProcNum As UShort, ByVal VarType As PROCDOUBLEVARTYPE, ByVal Value As Double) + Me.SetProcVarDoubleAsync(ProcNum, VarType, Value, Nothing) + End Sub + + ''' + Public Overloads Sub SetProcVarDoubleAsync(ByVal ProcNum As UShort, ByVal VarType As PROCDOUBLEVARTYPE, ByVal Value As Double, ByVal userState As Object) + If (Me.SetProcVarDoubleOperationCompleted Is Nothing) Then + Me.SetProcVarDoubleOperationCompleted = AddressOf Me.OnSetProcVarDoubleOperationCompleted + End If + Me.InvokeAsync("SetProcVarDouble", New Object() {ProcNum, VarType, Value}, Me.SetProcVarDoubleOperationCompleted, userState) + End Sub + + Private Sub OnSetProcVarDoubleOperationCompleted(ByVal arg As Object) + If (Not (Me.SetProcVarDoubleCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SetProcVarDoubleCompleted(Me, New SetProcVarDoubleCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SetMdiString(ByVal ProcNum As UShort, ByVal MdiString As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SetMdiString", New Object() {ProcNum, MdiString}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SetMdiStringAsync(ByVal ProcNum As UShort, ByVal MdiString As String) + Me.SetMdiStringAsync(ProcNum, MdiString, Nothing) + End Sub + + ''' + Public Overloads Sub SetMdiStringAsync(ByVal ProcNum As UShort, ByVal MdiString As String, ByVal userState As Object) + If (Me.SetMdiStringOperationCompleted Is Nothing) Then + Me.SetMdiStringOperationCompleted = AddressOf Me.OnSetMdiStringOperationCompleted + End If + Me.InvokeAsync("SetMdiString", New Object() {ProcNum, MdiString}, Me.SetMdiStringOperationCompleted, userState) + End Sub + + Private Sub OnSetMdiStringOperationCompleted(ByVal arg As Object) + If (Not (Me.SetMdiStringCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SetMdiStringCompleted(Me, New SetMdiStringCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SetProcessMode(ByVal ProcNum As UShort, ByVal Mode As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SetProcessMode", New Object() {ProcNum, Mode}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SetProcessModeAsync(ByVal ProcNum As UShort, ByVal Mode As UShort) + Me.SetProcessModeAsync(ProcNum, Mode, Nothing) + End Sub + + ''' + Public Overloads Sub SetProcessModeAsync(ByVal ProcNum As UShort, ByVal Mode As UShort, ByVal userState As Object) + If (Me.SetProcessModeOperationCompleted Is Nothing) Then + Me.SetProcessModeOperationCompleted = AddressOf Me.OnSetProcessModeOperationCompleted + End If + Me.InvokeAsync("SetProcessMode", New Object() {ProcNum, Mode}, Me.SetProcessModeOperationCompleted, userState) + End Sub + + Private Sub OnSetProcessModeOperationCompleted(ByVal arg As Object) + If (Not (Me.SetProcessModeCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SetProcessModeCompleted(Me, New SetProcessModeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SelectProcess(ByVal ProcNum As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SelectProcess", New Object() {ProcNum}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SelectProcessAsync(ByVal ProcNum As UShort) + Me.SelectProcessAsync(ProcNum, Nothing) + End Sub + + ''' + Public Overloads Sub SelectProcessAsync(ByVal ProcNum As UShort, ByVal userState As Object) + If (Me.SelectProcessOperationCompleted Is Nothing) Then + Me.SelectProcessOperationCompleted = AddressOf Me.OnSelectProcessOperationCompleted + End If + Me.InvokeAsync("SelectProcess", New Object() {ProcNum}, Me.SelectProcessOperationCompleted, userState) + End Sub + + Private Sub OnSelectProcessOperationCompleted(ByVal arg As Object) + If (Not (Me.SelectProcessCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SelectProcessCompleted(Me, New SelectProcessCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetSelectedProcess(ByRef ProcNum As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetSelectedProcess", New Object(-1) {}) + ProcNum = CType(results(1),UShort) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetSelectedProcessAsync() + Me.GetSelectedProcessAsync(Nothing) + End Sub + + ''' + Public Overloads Sub GetSelectedProcessAsync(ByVal userState As Object) + If (Me.GetSelectedProcessOperationCompleted Is Nothing) Then + Me.GetSelectedProcessOperationCompleted = AddressOf Me.OnGetSelectedProcessOperationCompleted + End If + Me.InvokeAsync("GetSelectedProcess", New Object(-1) {}, Me.GetSelectedProcessOperationCompleted, userState) + End Sub + + Private Sub OnGetSelectedProcessOperationCompleted(ByVal arg As Object) + If (Not (Me.GetSelectedProcessCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetSelectedProcessCompleted(Me, New GetSelectedProcessCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SelectProcAxis(ByVal ProcNum As UShort, ByVal AxisName As Byte, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SelectProcAxis", New Object() {ProcNum, AxisName}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SelectProcAxisAsync(ByVal ProcNum As UShort, ByVal AxisName As Byte) + Me.SelectProcAxisAsync(ProcNum, AxisName, Nothing) + End Sub + + ''' + Public Overloads Sub SelectProcAxisAsync(ByVal ProcNum As UShort, ByVal AxisName As Byte, ByVal userState As Object) + If (Me.SelectProcAxisOperationCompleted Is Nothing) Then + Me.SelectProcAxisOperationCompleted = AddressOf Me.OnSelectProcAxisOperationCompleted + End If + Me.InvokeAsync("SelectProcAxis", New Object() {ProcNum, AxisName}, Me.SelectProcAxisOperationCompleted, userState) + End Sub + + Private Sub OnSelectProcAxisOperationCompleted(ByVal arg As Object) + If (Not (Me.SelectProcAxisCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SelectProcAxisCompleted(Me, New SelectProcAxisCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SelectPartProgram(ByVal ProcNum As UShort, ByVal PPName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SelectPartProgram", New Object() {ProcNum, PPName}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SelectPartProgramAsync(ByVal ProcNum As UShort, ByVal PPName As String) + Me.SelectPartProgramAsync(ProcNum, PPName, Nothing) + End Sub + + ''' + Public Overloads Sub SelectPartProgramAsync(ByVal ProcNum As UShort, ByVal PPName As String, ByVal userState As Object) + If (Me.SelectPartProgramOperationCompleted Is Nothing) Then + Me.SelectPartProgramOperationCompleted = AddressOf Me.OnSelectPartProgramOperationCompleted + End If + Me.InvokeAsync("SelectPartProgram", New Object() {ProcNum, PPName}, Me.SelectPartProgramOperationCompleted, userState) + End Sub + + Private Sub OnSelectPartProgramOperationCompleted(ByVal arg As Object) + If (Not (Me.SelectPartProgramCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SelectPartProgramCompleted(Me, New SelectPartProgramCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SelectPartProgramFromDrive(ByVal ProcNum As UShort, ByVal PPName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SelectPartProgramFromDrive", New Object() {ProcNum, PPName}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SelectPartProgramFromDriveAsync(ByVal ProcNum As UShort, ByVal PPName As String) + Me.SelectPartProgramFromDriveAsync(ProcNum, PPName, Nothing) + End Sub + + ''' + Public Overloads Sub SelectPartProgramFromDriveAsync(ByVal ProcNum As UShort, ByVal PPName As String, ByVal userState As Object) + If (Me.SelectPartProgramFromDriveOperationCompleted Is Nothing) Then + Me.SelectPartProgramFromDriveOperationCompleted = AddressOf Me.OnSelectPartProgramFromDriveOperationCompleted + End If + Me.InvokeAsync("SelectPartProgramFromDrive", New Object() {ProcNum, PPName}, Me.SelectPartProgramFromDriveOperationCompleted, userState) + End Sub + + Private Sub OnSelectPartProgramFromDriveOperationCompleted(ByVal arg As Object) + If (Not (Me.SelectPartProgramFromDriveCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SelectPartProgramFromDriveCompleted(Me, New SelectPartProgramFromDriveCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetActivePartProgram(ByVal ProcNum As UShort, ByRef Level As UShort, ByRef Main As String, ByRef [Sub] As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetActivePartProgram", New Object() {ProcNum}) + Level = CType(results(1),UShort) + Main = CType(results(2),String) + [Sub] = CType(results(3),String) + ErrClass = CType(results(4),UInteger) + ErrNum = CType(results(5),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetActivePartProgramAsync(ByVal ProcNum As UShort) + Me.GetActivePartProgramAsync(ProcNum, Nothing) + End Sub + + ''' + Public Overloads Sub GetActivePartProgramAsync(ByVal ProcNum As UShort, ByVal userState As Object) + If (Me.GetActivePartProgramOperationCompleted Is Nothing) Then + Me.GetActivePartProgramOperationCompleted = AddressOf Me.OnGetActivePartProgramOperationCompleted + End If + Me.InvokeAsync("GetActivePartProgram", New Object() {ProcNum}, Me.GetActivePartProgramOperationCompleted, userState) + End Sub + + Private Sub OnGetActivePartProgramOperationCompleted(ByVal arg As Object) + If (Not (Me.GetActivePartProgramCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetActivePartProgramCompleted(Me, New GetActivePartProgramCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetActivePartProgramFullPath(ByVal ProcNum As UShort, ByRef Level As UShort, ByRef Main As String, ByRef [Sub] As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetActivePartProgramFullPath", New Object() {ProcNum}) + Level = CType(results(1),UShort) + Main = CType(results(2),String) + [Sub] = CType(results(3),String) + ErrClass = CType(results(4),UInteger) + ErrNum = CType(results(5),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetActivePartProgramFullPathAsync(ByVal ProcNum As UShort) + Me.GetActivePartProgramFullPathAsync(ProcNum, Nothing) + End Sub + + ''' + Public Overloads Sub GetActivePartProgramFullPathAsync(ByVal ProcNum As UShort, ByVal userState As Object) + If (Me.GetActivePartProgramFullPathOperationCompleted Is Nothing) Then + Me.GetActivePartProgramFullPathOperationCompleted = AddressOf Me.OnGetActivePartProgramFullPathOperationCompleted + End If + Me.InvokeAsync("GetActivePartProgramFullPath", New Object() {ProcNum}, Me.GetActivePartProgramFullPathOperationCompleted, userState) + End Sub + + Private Sub OnGetActivePartProgramFullPathOperationCompleted(ByVal arg As Object) + If (Not (Me.GetActivePartProgramFullPathCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetActivePartProgramFullPathCompleted(Me, New GetActivePartProgramFullPathCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetPartProgramLines(ByVal ProcNum As UShort, ByRef PPLine1 As String, ByRef PPLine2 As String, ByRef PPLine3 As String, ByRef PPLine4 As String, ByRef PPLine5 As String, ByRef PPLine6 As String, ByRef PPLine7 As String, ByRef PPLine8 As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetPartProgramLines", New Object() {ProcNum}) + PPLine1 = CType(results(1),String) + PPLine2 = CType(results(2),String) + PPLine3 = CType(results(3),String) + PPLine4 = CType(results(4),String) + PPLine5 = CType(results(5),String) + PPLine6 = CType(results(6),String) + PPLine7 = CType(results(7),String) + PPLine8 = CType(results(8),String) + ErrClass = CType(results(9),UInteger) + ErrNum = CType(results(10),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetPartProgramLinesAsync(ByVal ProcNum As UShort) + Me.GetPartProgramLinesAsync(ProcNum, Nothing) + End Sub + + ''' + Public Overloads Sub GetPartProgramLinesAsync(ByVal ProcNum As UShort, ByVal userState As Object) + If (Me.GetPartProgramLinesOperationCompleted Is Nothing) Then + Me.GetPartProgramLinesOperationCompleted = AddressOf Me.OnGetPartProgramLinesOperationCompleted + End If + Me.InvokeAsync("GetPartProgramLines", New Object() {ProcNum}, Me.GetPartProgramLinesOperationCompleted, userState) + End Sub + + Private Sub OnGetPartProgramLinesOperationCompleted(ByVal arg As Object) + If (Not (Me.GetPartProgramLinesCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetPartProgramLinesCompleted(Me, New GetPartProgramLinesCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetAxOriginNum(ByVal ProcNum As UShort, ByRef AxesNum As UShort, ByRef AxOriginNum() As AXORIGNUM, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetAxOriginNum", New Object() {ProcNum, AxesNum}) + AxesNum = CType(results(1),UShort) + AxOriginNum = CType(results(2),AXORIGNUM()) + ErrClass = CType(results(3),UInteger) + ErrNum = CType(results(4),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetAxOriginNumAsync(ByVal ProcNum As UShort, ByVal AxesNum As UShort) + Me.GetAxOriginNumAsync(ProcNum, AxesNum, Nothing) + End Sub + + ''' + Public Overloads Sub GetAxOriginNumAsync(ByVal ProcNum As UShort, ByVal AxesNum As UShort, ByVal userState As Object) + If (Me.GetAxOriginNumOperationCompleted Is Nothing) Then + Me.GetAxOriginNumOperationCompleted = AddressOf Me.OnGetAxOriginNumOperationCompleted + End If + Me.InvokeAsync("GetAxOriginNum", New Object() {ProcNum, AxesNum}, Me.GetAxOriginNumOperationCompleted, userState) + End Sub + + Private Sub OnGetAxOriginNumOperationCompleted(ByVal arg As Object) + If (Not (Me.GetAxOriginNumCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetAxOriginNumCompleted(Me, New GetAxOriginNumCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetAxesPosition(ByVal ProcNum As UShort, ByVal AxisName As Byte, ByVal [Select] As UShort, ByRef NumAxis As UShort, ByRef IntPos() As GETINTDATA, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetAxesPosition", New Object() {ProcNum, AxisName, [Select], NumAxis}) + NumAxis = CType(results(1),UShort) + IntPos = CType(results(2),GETINTDATA()) + ErrClass = CType(results(3),UInteger) + ErrNum = CType(results(4),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetAxesPositionAsync(ByVal ProcNum As UShort, ByVal AxisName As Byte, ByVal [Select] As UShort, ByVal NumAxis As UShort) + Me.GetAxesPositionAsync(ProcNum, AxisName, [Select], NumAxis, Nothing) + End Sub + + ''' + Public Overloads Sub GetAxesPositionAsync(ByVal ProcNum As UShort, ByVal AxisName As Byte, ByVal [Select] As UShort, ByVal NumAxis As UShort, ByVal userState As Object) + If (Me.GetAxesPositionOperationCompleted Is Nothing) Then + Me.GetAxesPositionOperationCompleted = AddressOf Me.OnGetAxesPositionOperationCompleted + End If + Me.InvokeAsync("GetAxesPosition", New Object() {ProcNum, AxisName, [Select], NumAxis}, Me.GetAxesPositionOperationCompleted, userState) + End Sub + + Private Sub OnGetAxesPositionOperationCompleted(ByVal arg As Object) + If (Not (Me.GetAxesPositionCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetAxesPositionCompleted(Me, New GetAxesPositionCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetNcInfo1(ByVal ProcNum As UShort, ByRef GetInfo As GETINFO1DATA, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetNcInfo1", New Object() {ProcNum}) + GetInfo = CType(results(1),GETINFO1DATA) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetNcInfo1Async(ByVal ProcNum As UShort) + Me.GetNcInfo1Async(ProcNum, Nothing) + End Sub + + ''' + Public Overloads Sub GetNcInfo1Async(ByVal ProcNum As UShort, ByVal userState As Object) + If (Me.GetNcInfo1OperationCompleted Is Nothing) Then + Me.GetNcInfo1OperationCompleted = AddressOf Me.OnGetNcInfo1OperationCompleted + End If + Me.InvokeAsync("GetNcInfo1", New Object() {ProcNum}, Me.GetNcInfo1OperationCompleted, userState) + End Sub + + Private Sub OnGetNcInfo1OperationCompleted(ByVal arg As Object) + If (Not (Me.GetNcInfo1CompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetNcInfo1Completed(Me, New GetNcInfo1CompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetNcInfo2(ByVal ProcNum As UShort, ByRef GetInfo As GETINFO2DATA, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetNcInfo2", New Object() {ProcNum}) + GetInfo = CType(results(1),GETINFO2DATA) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetNcInfo2Async(ByVal ProcNum As UShort) + Me.GetNcInfo2Async(ProcNum, Nothing) + End Sub + + ''' + Public Overloads Sub GetNcInfo2Async(ByVal ProcNum As UShort, ByVal userState As Object) + If (Me.GetNcInfo2OperationCompleted Is Nothing) Then + Me.GetNcInfo2OperationCompleted = AddressOf Me.OnGetNcInfo2OperationCompleted + End If + Me.InvokeAsync("GetNcInfo2", New Object() {ProcNum}, Me.GetNcInfo2OperationCompleted, userState) + End Sub + + Private Sub OnGetNcInfo2OperationCompleted(ByVal arg As Object) + If (Not (Me.GetNcInfo2CompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetNcInfo2Completed(Me, New GetNcInfo2CompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetToolNames(ByVal ProcNum As UShort, ByRef Tool As String, ByRef ProgTool As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetToolNames", New Object() {ProcNum}) + Tool = CType(results(1),String) + ProgTool = CType(results(2),String) + ErrClass = CType(results(3),UInteger) + ErrNum = CType(results(4),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetToolNamesAsync(ByVal ProcNum As UShort) + Me.GetToolNamesAsync(ProcNum, Nothing) + End Sub + + ''' + Public Overloads Sub GetToolNamesAsync(ByVal ProcNum As UShort, ByVal userState As Object) + If (Me.GetToolNamesOperationCompleted Is Nothing) Then + Me.GetToolNamesOperationCompleted = AddressOf Me.OnGetToolNamesOperationCompleted + End If + Me.InvokeAsync("GetToolNames", New Object() {ProcNum}, Me.GetToolNamesOperationCompleted, userState) + End Sub + + Private Sub OnGetToolNamesOperationCompleted(ByVal arg As Object) + If (Not (Me.GetToolNamesCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetToolNamesCompleted(Me, New GetToolNamesCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetProcessStatus(ByVal ProcNum As UShort, ByRef ProcStat As PROCDATA, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetProcessStatus", New Object() {ProcNum}) + ProcStat = CType(results(1),PROCDATA) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetProcessStatusAsync(ByVal ProcNum As UShort) + Me.GetProcessStatusAsync(ProcNum, Nothing) + End Sub + + ''' + Public Overloads Sub GetProcessStatusAsync(ByVal ProcNum As UShort, ByVal userState As Object) + If (Me.GetProcessStatusOperationCompleted Is Nothing) Then + Me.GetProcessStatusOperationCompleted = AddressOf Me.OnGetProcessStatusOperationCompleted + End If + Me.InvokeAsync("GetProcessStatus", New Object() {ProcNum}, Me.GetProcessStatusOperationCompleted, userState) + End Sub + + Private Sub OnGetProcessStatusOperationCompleted(ByVal arg As Object) + If (Not (Me.GetProcessStatusCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetProcessStatusCompleted(Me, New GetProcessStatusCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetBlkNum(ByVal ProcNum As UShort, ByRef GetBlkNum1 As GETBLKNUMDATA, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetBlkNum", New Object() {ProcNum}) + GetBlkNum1 = CType(results(1),GETBLKNUMDATA) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetBlkNumAsync(ByVal ProcNum As UShort) + Me.GetBlkNumAsync(ProcNum, Nothing) + End Sub + + ''' + Public Overloads Sub GetBlkNumAsync(ByVal ProcNum As UShort, ByVal userState As Object) + If (Me.GetBlkNumOperationCompleted Is Nothing) Then + Me.GetBlkNumOperationCompleted = AddressOf Me.OnGetBlkNumOperationCompleted + End If + Me.InvokeAsync("GetBlkNum", New Object() {ProcNum}, Me.GetBlkNumOperationCompleted, userState) + End Sub + + Private Sub OnGetBlkNumOperationCompleted(ByVal arg As Object) + If (Not (Me.GetBlkNumCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetBlkNumCompleted(Me, New GetBlkNumCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ReadErrMsg(ByVal ProcNum As UShort, ByRef SysErrMsg As ERRMSG, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ReadErrMsg", New Object() {ProcNum}) + SysErrMsg = CType(results(1),ERRMSG) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ReadErrMsgAsync(ByVal ProcNum As UShort) + Me.ReadErrMsgAsync(ProcNum, Nothing) + End Sub + + ''' + Public Overloads Sub ReadErrMsgAsync(ByVal ProcNum As UShort, ByVal userState As Object) + If (Me.ReadErrMsgOperationCompleted Is Nothing) Then + Me.ReadErrMsgOperationCompleted = AddressOf Me.OnReadErrMsgOperationCompleted + End If + Me.InvokeAsync("ReadErrMsg", New Object() {ProcNum}, Me.ReadErrMsgOperationCompleted, userState) + End Sub + + Private Sub OnReadErrMsgOperationCompleted(ByVal arg As Object) + If (Not (Me.ReadErrMsgCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ReadErrMsgCompleted(Me, New ReadErrMsgCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ReadPartProgramMsg(ByVal ProcNum As UShort, ByRef PartProgramMsg As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ReadPartProgramMsg", New Object() {ProcNum}) + PartProgramMsg = CType(results(1),String) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ReadPartProgramMsgAsync(ByVal ProcNum As UShort) + Me.ReadPartProgramMsgAsync(ProcNum, Nothing) + End Sub + + ''' + Public Overloads Sub ReadPartProgramMsgAsync(ByVal ProcNum As UShort, ByVal userState As Object) + If (Me.ReadPartProgramMsgOperationCompleted Is Nothing) Then + Me.ReadPartProgramMsgOperationCompleted = AddressOf Me.OnReadPartProgramMsgOperationCompleted + End If + Me.InvokeAsync("ReadPartProgramMsg", New Object() {ProcNum}, Me.ReadPartProgramMsgOperationCompleted, userState) + End Sub + + Private Sub OnReadPartProgramMsgOperationCompleted(ByVal arg As Object) + If (Not (Me.ReadPartProgramMsgCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ReadPartProgramMsgCompleted(Me, New ReadPartProgramMsgCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetGCode(ByVal ProcNum As UShort, ByRef GCode() As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetGCode", New Object() {ProcNum}) + GCode = CType(results(1),UShort()) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetGCodeAsync(ByVal ProcNum As UShort) + Me.GetGCodeAsync(ProcNum, Nothing) + End Sub + + ''' + Public Overloads Sub GetGCodeAsync(ByVal ProcNum As UShort, ByVal userState As Object) + If (Me.GetGCodeOperationCompleted Is Nothing) Then + Me.GetGCodeOperationCompleted = AddressOf Me.OnGetGCodeOperationCompleted + End If + Me.InvokeAsync("GetGCode", New Object() {ProcNum}, Me.GetGCodeOperationCompleted, userState) + End Sub + + Private Sub OnGetGCodeOperationCompleted(ByVal arg As Object) + If (Not (Me.GetGCodeCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetGCodeCompleted(Me, New GetGCodeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetMCode(ByVal ProcNum As UShort, ByRef MCode() As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetMCode", New Object() {ProcNum}) + MCode = CType(results(1),UShort()) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetMCodeAsync(ByVal ProcNum As UShort) + Me.GetMCodeAsync(ProcNum, Nothing) + End Sub + + ''' + Public Overloads Sub GetMCodeAsync(ByVal ProcNum As UShort, ByVal userState As Object) + If (Me.GetMCodeOperationCompleted Is Nothing) Then + Me.GetMCodeOperationCompleted = AddressOf Me.OnGetMCodeOperationCompleted + End If + Me.InvokeAsync("GetMCode", New Object() {ProcNum}, Me.GetMCodeOperationCompleted, userState) + End Sub + + Private Sub OnGetMCodeOperationCompleted(ByVal arg As Object) + If (Not (Me.GetMCodeCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetMCodeCompleted(Me, New GetMCodeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SkipPProgBlock(ByVal ProcNum As UShort, ByVal NumOfBlocks As UInteger, ByVal Direction As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SkipPProgBlock", New Object() {ProcNum, NumOfBlocks, Direction}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SkipPProgBlockAsync(ByVal ProcNum As UShort, ByVal NumOfBlocks As UInteger, ByVal Direction As UShort) + Me.SkipPProgBlockAsync(ProcNum, NumOfBlocks, Direction, Nothing) + End Sub + + ''' + Public Overloads Sub SkipPProgBlockAsync(ByVal ProcNum As UShort, ByVal NumOfBlocks As UInteger, ByVal Direction As UShort, ByVal userState As Object) + If (Me.SkipPProgBlockOperationCompleted Is Nothing) Then + Me.SkipPProgBlockOperationCompleted = AddressOf Me.OnSkipPProgBlockOperationCompleted + End If + Me.InvokeAsync("SkipPProgBlock", New Object() {ProcNum, NumOfBlocks, Direction}, Me.SkipPProgBlockOperationCompleted, userState) + End Sub + + Private Sub OnSkipPProgBlockOperationCompleted(ByVal arg As Object) + If (Not (Me.SkipPProgBlockCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SkipPProgBlockCompleted(Me, New SkipPProgBlockCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function Ese(ByVal ProcNum As UShort, ByVal BlockNum As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("Ese", New Object() {ProcNum, BlockNum}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub EseAsync(ByVal ProcNum As UShort, ByVal BlockNum As UInteger) + Me.EseAsync(ProcNum, BlockNum, Nothing) + End Sub + + ''' + Public Overloads Sub EseAsync(ByVal ProcNum As UShort, ByVal BlockNum As UInteger, ByVal userState As Object) + If (Me.EseOperationCompleted Is Nothing) Then + Me.EseOperationCompleted = AddressOf Me.OnEseOperationCompleted + End If + Me.InvokeAsync("Ese", New Object() {ProcNum, BlockNum}, Me.EseOperationCompleted, userState) + End Sub + + Private Sub OnEseOperationCompleted(ByVal arg As Object) + If (Not (Me.EseCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent EseCompleted(Me, New EseCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function EseEx(ByVal ProcNum As UShort, ByVal Mode As RCMTOMODE, ByVal Mask As UInteger, ByVal BlockNum As UInteger, ByVal LineNum As UInteger, ByVal BrkVal As UInteger, ByVal Label As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("EseEx", New Object() {ProcNum, Mode, Mask, BlockNum, LineNum, BrkVal, Label}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub EseExAsync(ByVal ProcNum As UShort, ByVal Mode As RCMTOMODE, ByVal Mask As UInteger, ByVal BlockNum As UInteger, ByVal LineNum As UInteger, ByVal BrkVal As UInteger, ByVal Label As String) + Me.EseExAsync(ProcNum, Mode, Mask, BlockNum, LineNum, BrkVal, Label, Nothing) + End Sub + + ''' + Public Overloads Sub EseExAsync(ByVal ProcNum As UShort, ByVal Mode As RCMTOMODE, ByVal Mask As UInteger, ByVal BlockNum As UInteger, ByVal LineNum As UInteger, ByVal BrkVal As UInteger, ByVal Label As String, ByVal userState As Object) + If (Me.EseExOperationCompleted Is Nothing) Then + Me.EseExOperationCompleted = AddressOf Me.OnEseExOperationCompleted + End If + Me.InvokeAsync("EseEx", New Object() {ProcNum, Mode, Mask, BlockNum, LineNum, BrkVal, Label}, Me.EseExOperationCompleted, userState) + End Sub + + Private Sub OnEseExOperationCompleted(ByVal arg As Object) + If (Not (Me.EseExCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent EseExCompleted(Me, New EseExCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function Exe(ByVal ProcNum As UShort, ByVal Func As UShort, ByVal Mode As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("Exe", New Object() {ProcNum, Func, Mode}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ExeAsync(ByVal ProcNum As UShort, ByVal Func As UShort, ByVal Mode As UShort) + Me.ExeAsync(ProcNum, Func, Mode, Nothing) + End Sub + + ''' + Public Overloads Sub ExeAsync(ByVal ProcNum As UShort, ByVal Func As UShort, ByVal Mode As UShort, ByVal userState As Object) + If (Me.ExeOperationCompleted Is Nothing) Then + Me.ExeOperationCompleted = AddressOf Me.OnExeOperationCompleted + End If + Me.InvokeAsync("Exe", New Object() {ProcNum, Func, Mode}, Me.ExeOperationCompleted, userState) + End Sub + + Private Sub OnExeOperationCompleted(ByVal arg As Object) + If (Not (Me.ExeCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ExeCompleted(Me, New ExeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function AxesRef(ByVal ProcNum As UShort, ByVal NumAx As UShort, ByVal AxisName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("AxesRef", New Object() {ProcNum, NumAx, AxisName}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub AxesRefAsync(ByVal ProcNum As UShort, ByVal NumAx As UShort, ByVal AxisName As String) + Me.AxesRefAsync(ProcNum, NumAx, AxisName, Nothing) + End Sub + + ''' + Public Overloads Sub AxesRefAsync(ByVal ProcNum As UShort, ByVal NumAx As UShort, ByVal AxisName As String, ByVal userState As Object) + If (Me.AxesRefOperationCompleted Is Nothing) Then + Me.AxesRefOperationCompleted = AddressOf Me.OnAxesRefOperationCompleted + End If + Me.InvokeAsync("AxesRef", New Object() {ProcNum, NumAx, AxisName}, Me.AxesRefOperationCompleted, userState) + End Sub + + Private Sub OnAxesRefOperationCompleted(ByVal arg As Object) + If (Not (Me.AxesRefCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent AxesRefCompleted(Me, New AxesRefCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function DncInit(ByVal ProcNum As UShort, ByVal PathName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("DncInit", New Object() {ProcNum, PathName}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub DncInitAsync(ByVal ProcNum As UShort, ByVal PathName As String) + Me.DncInitAsync(ProcNum, PathName, Nothing) + End Sub + + ''' + Public Overloads Sub DncInitAsync(ByVal ProcNum As UShort, ByVal PathName As String, ByVal userState As Object) + If (Me.DncInitOperationCompleted Is Nothing) Then + Me.DncInitOperationCompleted = AddressOf Me.OnDncInitOperationCompleted + End If + Me.InvokeAsync("DncInit", New Object() {ProcNum, PathName}, Me.DncInitOperationCompleted, userState) + End Sub + + Private Sub OnDncInitOperationCompleted(ByVal arg As Object) + If (Not (Me.DncInitCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent DncInitCompleted(Me, New DncInitCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function DncData(ByVal ProcNum As UShort, ByVal Data As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("DncData", New Object() {ProcNum, Data}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub DncDataAsync(ByVal ProcNum As UShort, ByVal Data As String) + Me.DncDataAsync(ProcNum, Data, Nothing) + End Sub + + ''' + Public Overloads Sub DncDataAsync(ByVal ProcNum As UShort, ByVal Data As String, ByVal userState As Object) + If (Me.DncDataOperationCompleted Is Nothing) Then + Me.DncDataOperationCompleted = AddressOf Me.OnDncDataOperationCompleted + End If + Me.InvokeAsync("DncData", New Object() {ProcNum, Data}, Me.DncDataOperationCompleted, userState) + End Sub + + Private Sub OnDncDataOperationCompleted(ByVal arg As Object) + If (Not (Me.DncDataCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent DncDataCompleted(Me, New DncDataCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function DncEof(ByVal ProcNum As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("DncEof", New Object() {ProcNum}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub DncEofAsync(ByVal ProcNum As UShort) + Me.DncEofAsync(ProcNum, Nothing) + End Sub + + ''' + Public Overloads Sub DncEofAsync(ByVal ProcNum As UShort, ByVal userState As Object) + If (Me.DncEofOperationCompleted Is Nothing) Then + Me.DncEofOperationCompleted = AddressOf Me.OnDncEofOperationCompleted + End If + Me.InvokeAsync("DncEof", New Object() {ProcNum}, Me.DncEofOperationCompleted, userState) + End Sub + + Private Sub OnDncEofOperationCompleted(ByVal arg As Object) + If (Not (Me.DncEofCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent DncEofCompleted(Me, New DncEofCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function DncStop(ByVal ProcNum As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("DncStop", New Object() {ProcNum}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub DncStopAsync(ByVal ProcNum As UShort) + Me.DncStopAsync(ProcNum, Nothing) + End Sub + + ''' + Public Overloads Sub DncStopAsync(ByVal ProcNum As UShort, ByVal userState As Object) + If (Me.DncStopOperationCompleted Is Nothing) Then + Me.DncStopOperationCompleted = AddressOf Me.OnDncStopOperationCompleted + End If + Me.InvokeAsync("DncStop", New Object() {ProcNum}, Me.DncStopOperationCompleted, userState) + End Sub + + Private Sub OnDncStopOperationCompleted(ByVal arg As Object) + If (Not (Me.DncStopCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent DncStopCompleted(Me, New DncStopCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetAxesInfo3(ByVal AxisId As UShort, ByRef AxesNum As UShort, ByRef AxOwnerList() As UShort, ByRef AxNameList() As Byte, ByRef AxType() As UShort, ByRef AxInterface() As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetAxesInfo3", New Object() {AxisId, AxesNum}) + AxesNum = CType(results(1),UShort) + AxOwnerList = CType(results(2),UShort()) + AxNameList = CType(results(3),Byte()) + AxType = CType(results(4),UShort()) + AxInterface = CType(results(5),UShort()) + ErrClass = CType(results(6),UInteger) + ErrNum = CType(results(7),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetAxesInfo3Async(ByVal AxisId As UShort, ByVal AxesNum As UShort) + Me.GetAxesInfo3Async(AxisId, AxesNum, Nothing) + End Sub + + ''' + Public Overloads Sub GetAxesInfo3Async(ByVal AxisId As UShort, ByVal AxesNum As UShort, ByVal userState As Object) + If (Me.GetAxesInfo3OperationCompleted Is Nothing) Then + Me.GetAxesInfo3OperationCompleted = AddressOf Me.OnGetAxesInfo3OperationCompleted + End If + Me.InvokeAsync("GetAxesInfo3", New Object() {AxisId, AxesNum}, Me.GetAxesInfo3OperationCompleted, userState) + End Sub + + Private Sub OnGetAxesInfo3OperationCompleted(ByVal arg As Object) + If (Not (Me.GetAxesInfo3CompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetAxesInfo3Completed(Me, New GetAxesInfo3CompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetCodeNumber( ByRef CodeNumber As String, ByRef SwVersion As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetCodeNumber", New Object(-1) {}) + CodeNumber = CType(results(1),String) + SwVersion = CType(results(2),String) + ErrClass = CType(results(3),UInteger) + ErrNum = CType(results(4),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetCodeNumberAsync() + Me.GetCodeNumberAsync(Nothing) + End Sub + + ''' + Public Overloads Sub GetCodeNumberAsync(ByVal userState As Object) + If (Me.GetCodeNumberOperationCompleted Is Nothing) Then + Me.GetCodeNumberOperationCompleted = AddressOf Me.OnGetCodeNumberOperationCompleted + End If + Me.InvokeAsync("GetCodeNumber", New Object(-1) {}, Me.GetCodeNumberOperationCompleted, userState) + End Sub + + Private Sub OnGetCodeNumberOperationCompleted(ByVal arg As Object) + If (Not (Me.GetCodeNumberCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetCodeNumberCompleted(Me, New GetCodeNumberCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetOptions( ByRef [Option]() As Byte, ByRef SecurLevel() As Byte, ByRef SwVersion As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetOptions", New Object(-1) {}) + [Option] = CType(results(1),Byte()) + SecurLevel = CType(results(2),Byte()) + SwVersion = CType(results(3),String) + ErrClass = CType(results(4),UInteger) + ErrNum = CType(results(5),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetOptionsAsync() + Me.GetOptionsAsync(Nothing) + End Sub + + ''' + Public Overloads Sub GetOptionsAsync(ByVal userState As Object) + If (Me.GetOptionsOperationCompleted Is Nothing) Then + Me.GetOptionsOperationCompleted = AddressOf Me.OnGetOptionsOperationCompleted + End If + Me.InvokeAsync("GetOptions", New Object(-1) {}, Me.GetOptionsOperationCompleted, userState) + End Sub + + Private Sub OnGetOptionsOperationCompleted(ByVal arg As Object) + If (Not (Me.GetOptionsCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetOptionsCompleted(Me, New GetOptionsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetDateTime(ByRef Year As UShort, ByRef Month As UShort, ByRef Day As UShort, ByRef Hour As UShort, ByRef Minute As UShort, ByRef Second As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetDateTime", New Object(-1) {}) + Year = CType(results(1),UShort) + Month = CType(results(2),UShort) + Day = CType(results(3),UShort) + Hour = CType(results(4),UShort) + Minute = CType(results(5),UShort) + Second = CType(results(6),UShort) + ErrClass = CType(results(7),UInteger) + ErrNum = CType(results(8),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetDateTimeAsync() + Me.GetDateTimeAsync(Nothing) + End Sub + + ''' + Public Overloads Sub GetDateTimeAsync(ByVal userState As Object) + If (Me.GetDateTimeOperationCompleted Is Nothing) Then + Me.GetDateTimeOperationCompleted = AddressOf Me.OnGetDateTimeOperationCompleted + End If + Me.InvokeAsync("GetDateTime", New Object(-1) {}, Me.GetDateTimeOperationCompleted, userState) + End Sub + + Private Sub OnGetDateTimeOperationCompleted(ByVal arg As Object) + If (Not (Me.GetDateTimeCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetDateTimeCompleted(Me, New GetDateTimeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SetDateTime(ByVal Year As UShort, ByVal Month As UShort, ByVal Day As UShort, ByVal Hour As UShort, ByVal Minute As UShort, ByVal Second As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SetDateTime", New Object() {Year, Month, Day, Hour, Minute, Second}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SetDateTimeAsync(ByVal Year As UShort, ByVal Month As UShort, ByVal Day As UShort, ByVal Hour As UShort, ByVal Minute As UShort, ByVal Second As UShort) + Me.SetDateTimeAsync(Year, Month, Day, Hour, Minute, Second, Nothing) + End Sub + + ''' + Public Overloads Sub SetDateTimeAsync(ByVal Year As UShort, ByVal Month As UShort, ByVal Day As UShort, ByVal Hour As UShort, ByVal Minute As UShort, ByVal Second As UShort, ByVal userState As Object) + If (Me.SetDateTimeOperationCompleted Is Nothing) Then + Me.SetDateTimeOperationCompleted = AddressOf Me.OnSetDateTimeOperationCompleted + End If + Me.InvokeAsync("SetDateTime", New Object() {Year, Month, Day, Hour, Minute, Second}, Me.SetDateTimeOperationCompleted, userState) + End Sub + + Private Sub OnSetDateTimeOperationCompleted(ByVal arg As Object) + If (Not (Me.SetDateTimeCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SetDateTimeCompleted(Me, New SetDateTimeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetSerialNumber( ByRef SerialNumber As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetSerialNumber", New Object(-1) {}) + SerialNumber = CType(results(1),String) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetSerialNumberAsync() + Me.GetSerialNumberAsync(Nothing) + End Sub + + ''' + Public Overloads Sub GetSerialNumberAsync(ByVal userState As Object) + If (Me.GetSerialNumberOperationCompleted Is Nothing) Then + Me.GetSerialNumberOperationCompleted = AddressOf Me.OnGetSerialNumberOperationCompleted + End If + Me.InvokeAsync("GetSerialNumber", New Object(-1) {}, Me.GetSerialNumberOperationCompleted, userState) + End Sub + + Private Sub OnGetSerialNumberOperationCompleted(ByVal arg As Object) + If (Not (Me.GetSerialNumberCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetSerialNumberCompleted(Me, New GetSerialNumberCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function PutFile( ByVal Data As String, ByVal Size As UInteger, ByVal PathName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("PutFile", New Object() {Data, Size, PathName}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub PutFileAsync(ByVal Data As String, ByVal Size As UInteger, ByVal PathName As String) + Me.PutFileAsync(Data, Size, PathName, Nothing) + End Sub + + ''' + Public Overloads Sub PutFileAsync(ByVal Data As String, ByVal Size As UInteger, ByVal PathName As String, ByVal userState As Object) + If (Me.PutFileOperationCompleted Is Nothing) Then + Me.PutFileOperationCompleted = AddressOf Me.OnPutFileOperationCompleted + End If + Me.InvokeAsync("PutFile", New Object() {Data, Size, PathName}, Me.PutFileOperationCompleted, userState) + End Sub + + Private Sub OnPutFileOperationCompleted(ByVal arg As Object) + If (Not (Me.PutFileCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent PutFileCompleted(Me, New PutFileCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetFile( ByVal PathName As String, ByRef Size As UInteger, ByRef Data As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetFile", New Object() {PathName, Size}) + Size = CType(results(1),UInteger) + Data = CType(results(2),String) + ErrClass = CType(results(3),UInteger) + ErrNum = CType(results(4),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetFileAsync(ByVal PathName As String, ByVal Size As UInteger) + Me.GetFileAsync(PathName, Size, Nothing) + End Sub + + ''' + Public Overloads Sub GetFileAsync(ByVal PathName As String, ByVal Size As UInteger, ByVal userState As Object) + If (Me.GetFileOperationCompleted Is Nothing) Then + Me.GetFileOperationCompleted = AddressOf Me.OnGetFileOperationCompleted + End If + Me.InvokeAsync("GetFile", New Object() {PathName, Size}, Me.GetFileOperationCompleted, userState) + End Sub + + Private Sub OnGetFileOperationCompleted(ByVal arg As Object) + If (Not (Me.GetFileCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetFileCompleted(Me, New GetFileCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function PutBinaryFile( ByVal Data() As Byte, ByVal PathName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("PutBinaryFile", New Object() {Data, PathName}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub PutBinaryFileAsync(ByVal Data() As Byte, ByVal PathName As String) + Me.PutBinaryFileAsync(Data, PathName, Nothing) + End Sub + + ''' + Public Overloads Sub PutBinaryFileAsync(ByVal Data() As Byte, ByVal PathName As String, ByVal userState As Object) + If (Me.PutBinaryFileOperationCompleted Is Nothing) Then + Me.PutBinaryFileOperationCompleted = AddressOf Me.OnPutBinaryFileOperationCompleted + End If + Me.InvokeAsync("PutBinaryFile", New Object() {Data, PathName}, Me.PutBinaryFileOperationCompleted, userState) + End Sub + + Private Sub OnPutBinaryFileOperationCompleted(ByVal arg As Object) + If (Not (Me.PutBinaryFileCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent PutBinaryFileCompleted(Me, New PutBinaryFileCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetBinaryFile( ByVal PathName As String, ByVal Size As UInteger, ByRef Data() As Byte, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetBinaryFile", New Object() {PathName, Size}) + Data = CType(results(1),Byte()) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetBinaryFileAsync(ByVal PathName As String, ByVal Size As UInteger) + Me.GetBinaryFileAsync(PathName, Size, Nothing) + End Sub + + ''' + Public Overloads Sub GetBinaryFileAsync(ByVal PathName As String, ByVal Size As UInteger, ByVal userState As Object) + If (Me.GetBinaryFileOperationCompleted Is Nothing) Then + Me.GetBinaryFileOperationCompleted = AddressOf Me.OnGetBinaryFileOperationCompleted + End If + Me.InvokeAsync("GetBinaryFile", New Object() {PathName, Size}, Me.GetBinaryFileOperationCompleted, userState) + End Sub + + Private Sub OnGetBinaryFileOperationCompleted(ByVal arg As Object) + If (Not (Me.GetBinaryFileCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetBinaryFileCompleted(Me, New GetBinaryFileCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LogFSSetSecurityLevel( ByVal Password As String, ByVal SecurityLevel As SECURITYLEVEL, ByRef OldSecurityLevel As SECURITYLEVEL, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LogFSSetSecurityLevel", New Object() {Password, SecurityLevel}) + OldSecurityLevel = CType(results(1),SECURITYLEVEL) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LogFSSetSecurityLevelAsync(ByVal Password As String, ByVal SecurityLevel As SECURITYLEVEL) + Me.LogFSSetSecurityLevelAsync(Password, SecurityLevel, Nothing) + End Sub + + ''' + Public Overloads Sub LogFSSetSecurityLevelAsync(ByVal Password As String, ByVal SecurityLevel As SECURITYLEVEL, ByVal userState As Object) + If (Me.LogFSSetSecurityLevelOperationCompleted Is Nothing) Then + Me.LogFSSetSecurityLevelOperationCompleted = AddressOf Me.OnLogFSSetSecurityLevelOperationCompleted + End If + Me.InvokeAsync("LogFSSetSecurityLevel", New Object() {Password, SecurityLevel}, Me.LogFSSetSecurityLevelOperationCompleted, userState) + End Sub + + Private Sub OnLogFSSetSecurityLevelOperationCompleted(ByVal arg As Object) + If (Not (Me.LogFSSetSecurityLevelCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LogFSSetSecurityLevelCompleted(Me, New LogFSSetSecurityLevelCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LogFSGetSecurityLevel(ByRef SecurityLevel As SECURITYLEVEL, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LogFSGetSecurityLevel", New Object(-1) {}) + SecurityLevel = CType(results(1),SECURITYLEVEL) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LogFSGetSecurityLevelAsync() + Me.LogFSGetSecurityLevelAsync(Nothing) + End Sub + + ''' + Public Overloads Sub LogFSGetSecurityLevelAsync(ByVal userState As Object) + If (Me.LogFSGetSecurityLevelOperationCompleted Is Nothing) Then + Me.LogFSGetSecurityLevelOperationCompleted = AddressOf Me.OnLogFSGetSecurityLevelOperationCompleted + End If + Me.InvokeAsync("LogFSGetSecurityLevel", New Object(-1) {}, Me.LogFSGetSecurityLevelOperationCompleted, userState) + End Sub + + Private Sub OnLogFSGetSecurityLevelOperationCompleted(ByVal arg As Object) + If (Not (Me.LogFSGetSecurityLevelCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LogFSGetSecurityLevelCompleted(Me, New LogFSGetSecurityLevelCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LogFSLongFileNames(ByRef UseLongFileNames As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LogFSLongFileNames", New Object(-1) {}) + UseLongFileNames = CType(results(1),UShort) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LogFSLongFileNamesAsync() + Me.LogFSLongFileNamesAsync(Nothing) + End Sub + + ''' + Public Overloads Sub LogFSLongFileNamesAsync(ByVal userState As Object) + If (Me.LogFSLongFileNamesOperationCompleted Is Nothing) Then + Me.LogFSLongFileNamesOperationCompleted = AddressOf Me.OnLogFSLongFileNamesOperationCompleted + End If + Me.InvokeAsync("LogFSLongFileNames", New Object(-1) {}, Me.LogFSLongFileNamesOperationCompleted, userState) + End Sub + + Private Sub OnLogFSLongFileNamesOperationCompleted(ByVal arg As Object) + If (Not (Me.LogFSLongFileNamesCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LogFSLongFileNamesCompleted(Me, New LogFSLongFileNamesCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LogFSGetNumDrive(ByRef NumHiddenDrive As UShort, ByRef NumUserDrive As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LogFSGetNumDrive", New Object(-1) {}) + NumHiddenDrive = CType(results(1),UShort) + NumUserDrive = CType(results(2),UShort) + ErrClass = CType(results(3),UInteger) + ErrNum = CType(results(4),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LogFSGetNumDriveAsync() + Me.LogFSGetNumDriveAsync(Nothing) + End Sub + + ''' + Public Overloads Sub LogFSGetNumDriveAsync(ByVal userState As Object) + If (Me.LogFSGetNumDriveOperationCompleted Is Nothing) Then + Me.LogFSGetNumDriveOperationCompleted = AddressOf Me.OnLogFSGetNumDriveOperationCompleted + End If + Me.InvokeAsync("LogFSGetNumDrive", New Object(-1) {}, Me.LogFSGetNumDriveOperationCompleted, userState) + End Sub + + Private Sub OnLogFSGetNumDriveOperationCompleted(ByVal arg As Object) + If (Not (Me.LogFSGetNumDriveCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LogFSGetNumDriveCompleted(Me, New LogFSGetNumDriveCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LogFSGetDriveList(ByVal Index As UShort, ByRef DriveName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LogFSGetDriveList", New Object() {Index}) + DriveName = CType(results(1),String) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LogFSGetDriveListAsync(ByVal Index As UShort) + Me.LogFSGetDriveListAsync(Index, Nothing) + End Sub + + ''' + Public Overloads Sub LogFSGetDriveListAsync(ByVal Index As UShort, ByVal userState As Object) + If (Me.LogFSGetDriveListOperationCompleted Is Nothing) Then + Me.LogFSGetDriveListOperationCompleted = AddressOf Me.OnLogFSGetDriveListOperationCompleted + End If + Me.InvokeAsync("LogFSGetDriveList", New Object() {Index}, Me.LogFSGetDriveListOperationCompleted, userState) + End Sub + + Private Sub OnLogFSGetDriveListOperationCompleted(ByVal arg As Object) + If (Not (Me.LogFSGetDriveListCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LogFSGetDriveListCompleted(Me, New LogFSGetDriveListCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LogFSGetHiddenDriveList(ByVal Index As UShort, ByRef DriveName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LogFSGetHiddenDriveList", New Object() {Index}) + DriveName = CType(results(1),String) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LogFSGetHiddenDriveListAsync(ByVal Index As UShort) + Me.LogFSGetHiddenDriveListAsync(Index, Nothing) + End Sub + + ''' + Public Overloads Sub LogFSGetHiddenDriveListAsync(ByVal Index As UShort, ByVal userState As Object) + If (Me.LogFSGetHiddenDriveListOperationCompleted Is Nothing) Then + Me.LogFSGetHiddenDriveListOperationCompleted = AddressOf Me.OnLogFSGetHiddenDriveListOperationCompleted + End If + Me.InvokeAsync("LogFSGetHiddenDriveList", New Object() {Index}, Me.LogFSGetHiddenDriveListOperationCompleted, userState) + End Sub + + Private Sub OnLogFSGetHiddenDriveListOperationCompleted(ByVal arg As Object) + If (Not (Me.LogFSGetHiddenDriveListCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LogFSGetHiddenDriveListCompleted(Me, New LogFSGetHiddenDriveListCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LogFSGetDrivePath( ByVal DriveName As String, ByVal SecurityLevel As SECURITYLEVEL, ByRef DrivePath As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LogFSGetDrivePath", New Object() {DriveName, SecurityLevel}) + DrivePath = CType(results(1),String) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LogFSGetDrivePathAsync(ByVal DriveName As String, ByVal SecurityLevel As SECURITYLEVEL) + Me.LogFSGetDrivePathAsync(DriveName, SecurityLevel, Nothing) + End Sub + + ''' + Public Overloads Sub LogFSGetDrivePathAsync(ByVal DriveName As String, ByVal SecurityLevel As SECURITYLEVEL, ByVal userState As Object) + If (Me.LogFSGetDrivePathOperationCompleted Is Nothing) Then + Me.LogFSGetDrivePathOperationCompleted = AddressOf Me.OnLogFSGetDrivePathOperationCompleted + End If + Me.InvokeAsync("LogFSGetDrivePath", New Object() {DriveName, SecurityLevel}, Me.LogFSGetDrivePathOperationCompleted, userState) + End Sub + + Private Sub OnLogFSGetDrivePathOperationCompleted(ByVal arg As Object) + If (Not (Me.LogFSGetDrivePathCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LogFSGetDrivePathCompleted(Me, New LogFSGetDrivePathCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LogFSAddDrive( ByVal DriveName As String, ByVal PathName As String, ByVal Temporary As Boolean, ByVal SecurityLevel As SECURITYLEVEL, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LogFSAddDrive", New Object() {DriveName, PathName, Temporary, SecurityLevel}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LogFSAddDriveAsync(ByVal DriveName As String, ByVal PathName As String, ByVal Temporary As Boolean, ByVal SecurityLevel As SECURITYLEVEL) + Me.LogFSAddDriveAsync(DriveName, PathName, Temporary, SecurityLevel, Nothing) + End Sub + + ''' + Public Overloads Sub LogFSAddDriveAsync(ByVal DriveName As String, ByVal PathName As String, ByVal Temporary As Boolean, ByVal SecurityLevel As SECURITYLEVEL, ByVal userState As Object) + If (Me.LogFSAddDriveOperationCompleted Is Nothing) Then + Me.LogFSAddDriveOperationCompleted = AddressOf Me.OnLogFSAddDriveOperationCompleted + End If + Me.InvokeAsync("LogFSAddDrive", New Object() {DriveName, PathName, Temporary, SecurityLevel}, Me.LogFSAddDriveOperationCompleted, userState) + End Sub + + Private Sub OnLogFSAddDriveOperationCompleted(ByVal arg As Object) + If (Not (Me.LogFSAddDriveCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LogFSAddDriveCompleted(Me, New LogFSAddDriveCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LogFSRemoveDrive( ByVal DriveName As String, ByVal SecurityLevel As SECURITYLEVEL, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LogFSRemoveDrive", New Object() {DriveName, SecurityLevel}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LogFSRemoveDriveAsync(ByVal DriveName As String, ByVal SecurityLevel As SECURITYLEVEL) + Me.LogFSRemoveDriveAsync(DriveName, SecurityLevel, Nothing) + End Sub + + ''' + Public Overloads Sub LogFSRemoveDriveAsync(ByVal DriveName As String, ByVal SecurityLevel As SECURITYLEVEL, ByVal userState As Object) + If (Me.LogFSRemoveDriveOperationCompleted Is Nothing) Then + Me.LogFSRemoveDriveOperationCompleted = AddressOf Me.OnLogFSRemoveDriveOperationCompleted + End If + Me.InvokeAsync("LogFSRemoveDrive", New Object() {DriveName, SecurityLevel}, Me.LogFSRemoveDriveOperationCompleted, userState) + End Sub + + Private Sub OnLogFSRemoveDriveOperationCompleted(ByVal arg As Object) + If (Not (Me.LogFSRemoveDriveCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LogFSRemoveDriveCompleted(Me, New LogFSRemoveDriveCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LogFSReloadDriveList(ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LogFSReloadDriveList", New Object(-1) {}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LogFSReloadDriveListAsync() + Me.LogFSReloadDriveListAsync(Nothing) + End Sub + + ''' + Public Overloads Sub LogFSReloadDriveListAsync(ByVal userState As Object) + If (Me.LogFSReloadDriveListOperationCompleted Is Nothing) Then + Me.LogFSReloadDriveListOperationCompleted = AddressOf Me.OnLogFSReloadDriveListOperationCompleted + End If + Me.InvokeAsync("LogFSReloadDriveList", New Object(-1) {}, Me.LogFSReloadDriveListOperationCompleted, userState) + End Sub + + Private Sub OnLogFSReloadDriveListOperationCompleted(ByVal arg As Object) + If (Not (Me.LogFSReloadDriveListCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LogFSReloadDriveListCompleted(Me, New LogFSReloadDriveListCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LogFSCreateDir( ByVal PathName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LogFSCreateDir", New Object() {PathName}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LogFSCreateDirAsync(ByVal PathName As String) + Me.LogFSCreateDirAsync(PathName, Nothing) + End Sub + + ''' + Public Overloads Sub LogFSCreateDirAsync(ByVal PathName As String, ByVal userState As Object) + If (Me.LogFSCreateDirOperationCompleted Is Nothing) Then + Me.LogFSCreateDirOperationCompleted = AddressOf Me.OnLogFSCreateDirOperationCompleted + End If + Me.InvokeAsync("LogFSCreateDir", New Object() {PathName}, Me.LogFSCreateDirOperationCompleted, userState) + End Sub + + Private Sub OnLogFSCreateDirOperationCompleted(ByVal arg As Object) + If (Not (Me.LogFSCreateDirCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LogFSCreateDirCompleted(Me, New LogFSCreateDirCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LogFSCreateFile( ByVal PathName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LogFSCreateFile", New Object() {PathName}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LogFSCreateFileAsync(ByVal PathName As String) + Me.LogFSCreateFileAsync(PathName, Nothing) + End Sub + + ''' + Public Overloads Sub LogFSCreateFileAsync(ByVal PathName As String, ByVal userState As Object) + If (Me.LogFSCreateFileOperationCompleted Is Nothing) Then + Me.LogFSCreateFileOperationCompleted = AddressOf Me.OnLogFSCreateFileOperationCompleted + End If + Me.InvokeAsync("LogFSCreateFile", New Object() {PathName}, Me.LogFSCreateFileOperationCompleted, userState) + End Sub + + Private Sub OnLogFSCreateFileOperationCompleted(ByVal arg As Object) + If (Not (Me.LogFSCreateFileCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LogFSCreateFileCompleted(Me, New LogFSCreateFileCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LogFSGetFileSize( ByVal PathName As String, ByRef Size As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LogFSGetFileSize", New Object() {PathName}) + Size = CType(results(1),UInteger) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LogFSGetFileSizeAsync(ByVal PathName As String) + Me.LogFSGetFileSizeAsync(PathName, Nothing) + End Sub + + ''' + Public Overloads Sub LogFSGetFileSizeAsync(ByVal PathName As String, ByVal userState As Object) + If (Me.LogFSGetFileSizeOperationCompleted Is Nothing) Then + Me.LogFSGetFileSizeOperationCompleted = AddressOf Me.OnLogFSGetFileSizeOperationCompleted + End If + Me.InvokeAsync("LogFSGetFileSize", New Object() {PathName}, Me.LogFSGetFileSizeOperationCompleted, userState) + End Sub + + Private Sub OnLogFSGetFileSizeOperationCompleted(ByVal arg As Object) + If (Not (Me.LogFSGetFileSizeCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LogFSGetFileSizeCompleted(Me, New LogFSGetFileSizeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LogFSGetFileAttrib( ByVal PathName As String, ByRef Attrib As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LogFSGetFileAttrib", New Object() {PathName}) + Attrib = CType(results(1),UInteger) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LogFSGetFileAttribAsync(ByVal PathName As String) + Me.LogFSGetFileAttribAsync(PathName, Nothing) + End Sub + + ''' + Public Overloads Sub LogFSGetFileAttribAsync(ByVal PathName As String, ByVal userState As Object) + If (Me.LogFSGetFileAttribOperationCompleted Is Nothing) Then + Me.LogFSGetFileAttribOperationCompleted = AddressOf Me.OnLogFSGetFileAttribOperationCompleted + End If + Me.InvokeAsync("LogFSGetFileAttrib", New Object() {PathName}, Me.LogFSGetFileAttribOperationCompleted, userState) + End Sub + + Private Sub OnLogFSGetFileAttribOperationCompleted(ByVal arg As Object) + If (Not (Me.LogFSGetFileAttribCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LogFSGetFileAttribCompleted(Me, New LogFSGetFileAttribCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LogFSSetFileAttrib( ByVal PathName As String, ByVal Attrib As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LogFSSetFileAttrib", New Object() {PathName, Attrib}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LogFSSetFileAttribAsync(ByVal PathName As String, ByVal Attrib As UInteger) + Me.LogFSSetFileAttribAsync(PathName, Attrib, Nothing) + End Sub + + ''' + Public Overloads Sub LogFSSetFileAttribAsync(ByVal PathName As String, ByVal Attrib As UInteger, ByVal userState As Object) + If (Me.LogFSSetFileAttribOperationCompleted Is Nothing) Then + Me.LogFSSetFileAttribOperationCompleted = AddressOf Me.OnLogFSSetFileAttribOperationCompleted + End If + Me.InvokeAsync("LogFSSetFileAttrib", New Object() {PathName, Attrib}, Me.LogFSSetFileAttribOperationCompleted, userState) + End Sub + + Private Sub OnLogFSSetFileAttribOperationCompleted(ByVal arg As Object) + If (Not (Me.LogFSSetFileAttribCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LogFSSetFileAttribCompleted(Me, New LogFSSetFileAttribCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LogFSChangeFileAttrib( ByVal PathName As String, ByVal Add As UInteger, ByVal Remove As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LogFSChangeFileAttrib", New Object() {PathName, Add, Remove}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LogFSChangeFileAttribAsync(ByVal PathName As String, ByVal Add As UInteger, ByVal Remove As UInteger) + Me.LogFSChangeFileAttribAsync(PathName, Add, Remove, Nothing) + End Sub + + ''' + Public Overloads Sub LogFSChangeFileAttribAsync(ByVal PathName As String, ByVal Add As UInteger, ByVal Remove As UInteger, ByVal userState As Object) + If (Me.LogFSChangeFileAttribOperationCompleted Is Nothing) Then + Me.LogFSChangeFileAttribOperationCompleted = AddressOf Me.OnLogFSChangeFileAttribOperationCompleted + End If + Me.InvokeAsync("LogFSChangeFileAttrib", New Object() {PathName, Add, Remove}, Me.LogFSChangeFileAttribOperationCompleted, userState) + End Sub + + Private Sub OnLogFSChangeFileAttribOperationCompleted(ByVal arg As Object) + If (Not (Me.LogFSChangeFileAttribCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LogFSChangeFileAttribCompleted(Me, New LogFSChangeFileAttribCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LogFSFindFirst( ByVal FileName As String, ByRef FindData As FILEFINDDATA, ByRef Finder As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LogFSFindFirst", New Object() {FileName}) + FindData = CType(results(1),FILEFINDDATA) + Finder = CType(results(2),UInteger) + ErrClass = CType(results(3),UInteger) + ErrNum = CType(results(4),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LogFSFindFirstAsync(ByVal FileName As String) + Me.LogFSFindFirstAsync(FileName, Nothing) + End Sub + + ''' + Public Overloads Sub LogFSFindFirstAsync(ByVal FileName As String, ByVal userState As Object) + If (Me.LogFSFindFirstOperationCompleted Is Nothing) Then + Me.LogFSFindFirstOperationCompleted = AddressOf Me.OnLogFSFindFirstOperationCompleted + End If + Me.InvokeAsync("LogFSFindFirst", New Object() {FileName}, Me.LogFSFindFirstOperationCompleted, userState) + End Sub + + Private Sub OnLogFSFindFirstOperationCompleted(ByVal arg As Object) + If (Not (Me.LogFSFindFirstCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LogFSFindFirstCompleted(Me, New LogFSFindFirstCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LogFSFindNext(ByVal Finder As UInteger, ByRef FindData As FILEFINDDATA, ByRef Found As Boolean, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LogFSFindNext", New Object() {Finder}) + FindData = CType(results(1),FILEFINDDATA) + Found = CType(results(2),Boolean) + ErrClass = CType(results(3),UInteger) + ErrNum = CType(results(4),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LogFSFindNextAsync(ByVal Finder As UInteger) + Me.LogFSFindNextAsync(Finder, Nothing) + End Sub + + ''' + Public Overloads Sub LogFSFindNextAsync(ByVal Finder As UInteger, ByVal userState As Object) + If (Me.LogFSFindNextOperationCompleted Is Nothing) Then + Me.LogFSFindNextOperationCompleted = AddressOf Me.OnLogFSFindNextOperationCompleted + End If + Me.InvokeAsync("LogFSFindNext", New Object() {Finder}, Me.LogFSFindNextOperationCompleted, userState) + End Sub + + Private Sub OnLogFSFindNextOperationCompleted(ByVal arg As Object) + If (Not (Me.LogFSFindNextCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LogFSFindNextCompleted(Me, New LogFSFindNextCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LogFSFindClose(ByVal Finder As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LogFSFindClose", New Object() {Finder}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LogFSFindCloseAsync(ByVal Finder As UInteger) + Me.LogFSFindCloseAsync(Finder, Nothing) + End Sub + + ''' + Public Overloads Sub LogFSFindCloseAsync(ByVal Finder As UInteger, ByVal userState As Object) + If (Me.LogFSFindCloseOperationCompleted Is Nothing) Then + Me.LogFSFindCloseOperationCompleted = AddressOf Me.OnLogFSFindCloseOperationCompleted + End If + Me.InvokeAsync("LogFSFindClose", New Object() {Finder}, Me.LogFSFindCloseOperationCompleted, userState) + End Sub + + Private Sub OnLogFSFindCloseOperationCompleted(ByVal arg As Object) + If (Not (Me.LogFSFindCloseCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LogFSFindCloseCompleted(Me, New LogFSFindCloseCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LogFSRemoveFile( ByVal PathName As String, ByVal FileName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LogFSRemoveFile", New Object() {PathName, FileName}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LogFSRemoveFileAsync(ByVal PathName As String, ByVal FileName As String) + Me.LogFSRemoveFileAsync(PathName, FileName, Nothing) + End Sub + + ''' + Public Overloads Sub LogFSRemoveFileAsync(ByVal PathName As String, ByVal FileName As String, ByVal userState As Object) + If (Me.LogFSRemoveFileOperationCompleted Is Nothing) Then + Me.LogFSRemoveFileOperationCompleted = AddressOf Me.OnLogFSRemoveFileOperationCompleted + End If + Me.InvokeAsync("LogFSRemoveFile", New Object() {PathName, FileName}, Me.LogFSRemoveFileOperationCompleted, userState) + End Sub + + Private Sub OnLogFSRemoveFileOperationCompleted(ByVal arg As Object) + If (Not (Me.LogFSRemoveFileCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LogFSRemoveFileCompleted(Me, New LogFSRemoveFileCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LogFSRemoveDir( ByVal PathName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LogFSRemoveDir", New Object() {PathName}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LogFSRemoveDirAsync(ByVal PathName As String) + Me.LogFSRemoveDirAsync(PathName, Nothing) + End Sub + + ''' + Public Overloads Sub LogFSRemoveDirAsync(ByVal PathName As String, ByVal userState As Object) + If (Me.LogFSRemoveDirOperationCompleted Is Nothing) Then + Me.LogFSRemoveDirOperationCompleted = AddressOf Me.OnLogFSRemoveDirOperationCompleted + End If + Me.InvokeAsync("LogFSRemoveDir", New Object() {PathName}, Me.LogFSRemoveDirOperationCompleted, userState) + End Sub + + Private Sub OnLogFSRemoveDirOperationCompleted(ByVal arg As Object) + If (Not (Me.LogFSRemoveDirCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LogFSRemoveDirCompleted(Me, New LogFSRemoveDirCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LogFSRename( ByVal PathName As String, ByVal NewPathName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LogFSRename", New Object() {PathName, NewPathName}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LogFSRenameAsync(ByVal PathName As String, ByVal NewPathName As String) + Me.LogFSRenameAsync(PathName, NewPathName, Nothing) + End Sub + + ''' + Public Overloads Sub LogFSRenameAsync(ByVal PathName As String, ByVal NewPathName As String, ByVal userState As Object) + If (Me.LogFSRenameOperationCompleted Is Nothing) Then + Me.LogFSRenameOperationCompleted = AddressOf Me.OnLogFSRenameOperationCompleted + End If + Me.InvokeAsync("LogFSRename", New Object() {PathName, NewPathName}, Me.LogFSRenameOperationCompleted, userState) + End Sub + + Private Sub OnLogFSRenameOperationCompleted(ByVal arg As Object) + If (Not (Me.LogFSRenameCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LogFSRenameCompleted(Me, New LogFSRenameCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LogFSCopyFile( ByVal PathName As String, ByVal NewPathName As String, ByVal FailIfExists As Boolean, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LogFSCopyFile", New Object() {PathName, NewPathName, FailIfExists}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LogFSCopyFileAsync(ByVal PathName As String, ByVal NewPathName As String, ByVal FailIfExists As Boolean) + Me.LogFSCopyFileAsync(PathName, NewPathName, FailIfExists, Nothing) + End Sub + + ''' + Public Overloads Sub LogFSCopyFileAsync(ByVal PathName As String, ByVal NewPathName As String, ByVal FailIfExists As Boolean, ByVal userState As Object) + If (Me.LogFSCopyFileOperationCompleted Is Nothing) Then + Me.LogFSCopyFileOperationCompleted = AddressOf Me.OnLogFSCopyFileOperationCompleted + End If + Me.InvokeAsync("LogFSCopyFile", New Object() {PathName, NewPathName, FailIfExists}, Me.LogFSCopyFileOperationCompleted, userState) + End Sub + + Private Sub OnLogFSCopyFileOperationCompleted(ByVal arg As Object) + If (Not (Me.LogFSCopyFileCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LogFSCopyFileCompleted(Me, New LogFSCopyFileCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LogFSGetInfo( ByVal PathName As String, ByVal Selector As UInteger, ByVal ItemCounter As UShort, ByRef Buffer() As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LogFSGetInfo", New Object() {PathName, Selector, ItemCounter}) + Buffer = CType(results(1),UInteger()) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LogFSGetInfoAsync(ByVal PathName As String, ByVal Selector As UInteger, ByVal ItemCounter As UShort) + Me.LogFSGetInfoAsync(PathName, Selector, ItemCounter, Nothing) + End Sub + + ''' + Public Overloads Sub LogFSGetInfoAsync(ByVal PathName As String, ByVal Selector As UInteger, ByVal ItemCounter As UShort, ByVal userState As Object) + If (Me.LogFSGetInfoOperationCompleted Is Nothing) Then + Me.LogFSGetInfoOperationCompleted = AddressOf Me.OnLogFSGetInfoOperationCompleted + End If + Me.InvokeAsync("LogFSGetInfo", New Object() {PathName, Selector, ItemCounter}, Me.LogFSGetInfoOperationCompleted, userState) + End Sub + + Private Sub OnLogFSGetInfoOperationCompleted(ByVal arg As Object) + If (Not (Me.LogFSGetInfoCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LogFSGetInfoCompleted(Me, New LogFSGetInfoCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LogFSOpenFile( ByVal PathName As String, ByVal WriteMode As Boolean, ByVal DOSDateLastWrite As UShort, ByVal DOSTimeLastWrite As UShort, ByRef FileID As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LogFSOpenFile", New Object() {PathName, WriteMode, DOSDateLastWrite, DOSTimeLastWrite}) + FileID = CType(results(1),UShort) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LogFSOpenFileAsync(ByVal PathName As String, ByVal WriteMode As Boolean, ByVal DOSDateLastWrite As UShort, ByVal DOSTimeLastWrite As UShort) + Me.LogFSOpenFileAsync(PathName, WriteMode, DOSDateLastWrite, DOSTimeLastWrite, Nothing) + End Sub + + ''' + Public Overloads Sub LogFSOpenFileAsync(ByVal PathName As String, ByVal WriteMode As Boolean, ByVal DOSDateLastWrite As UShort, ByVal DOSTimeLastWrite As UShort, ByVal userState As Object) + If (Me.LogFSOpenFileOperationCompleted Is Nothing) Then + Me.LogFSOpenFileOperationCompleted = AddressOf Me.OnLogFSOpenFileOperationCompleted + End If + Me.InvokeAsync("LogFSOpenFile", New Object() {PathName, WriteMode, DOSDateLastWrite, DOSTimeLastWrite}, Me.LogFSOpenFileOperationCompleted, userState) + End Sub + + Private Sub OnLogFSOpenFileOperationCompleted(ByVal arg As Object) + If (Not (Me.LogFSOpenFileCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LogFSOpenFileCompleted(Me, New LogFSOpenFileCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LogFSCloseFile(ByRef FileID As UShort, ByVal Transaction As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LogFSCloseFile", New Object() {FileID, Transaction}) + FileID = CType(results(1),UShort) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LogFSCloseFileAsync(ByVal FileID As UShort, ByVal Transaction As UShort) + Me.LogFSCloseFileAsync(FileID, Transaction, Nothing) + End Sub + + ''' + Public Overloads Sub LogFSCloseFileAsync(ByVal FileID As UShort, ByVal Transaction As UShort, ByVal userState As Object) + If (Me.LogFSCloseFileOperationCompleted Is Nothing) Then + Me.LogFSCloseFileOperationCompleted = AddressOf Me.OnLogFSCloseFileOperationCompleted + End If + Me.InvokeAsync("LogFSCloseFile", New Object() {FileID, Transaction}, Me.LogFSCloseFileOperationCompleted, userState) + End Sub + + Private Sub OnLogFSCloseFileOperationCompleted(ByVal arg As Object) + If (Not (Me.LogFSCloseFileCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LogFSCloseFileCompleted(Me, New LogFSCloseFileCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetSysTick(ByRef SysTick As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetSysTick", New Object(-1) {}) + SysTick = CType(results(1),Double) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetSysTickAsync() + Me.GetSysTickAsync(Nothing) + End Sub + + ''' + Public Overloads Sub GetSysTickAsync(ByVal userState As Object) + If (Me.GetSysTickOperationCompleted Is Nothing) Then + Me.GetSysTickOperationCompleted = AddressOf Me.OnGetSysTickOperationCompleted + End If + Me.InvokeAsync("GetSysTick", New Object(-1) {}, Me.GetSysTickOperationCompleted, userState) + End Sub + + Private Sub OnGetSysTickOperationCompleted(ByVal arg As Object) + If (Not (Me.GetSysTickCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetSysTickCompleted(Me, New GetSysTickCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetProcessConfNum(ByRef ProcessConfNum As Byte, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetProcessConfNum", New Object(-1) {}) + ProcessConfNum = CType(results(1),Byte) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetProcessConfNumAsync() + Me.GetProcessConfNumAsync(Nothing) + End Sub + + ''' + Public Overloads Sub GetProcessConfNumAsync(ByVal userState As Object) + If (Me.GetProcessConfNumOperationCompleted Is Nothing) Then + Me.GetProcessConfNumOperationCompleted = AddressOf Me.OnGetProcessConfNumOperationCompleted + End If + Me.InvokeAsync("GetProcessConfNum", New Object(-1) {}, Me.GetProcessConfNumOperationCompleted, userState) + End Sub + + Private Sub OnGetProcessConfNumOperationCompleted(ByVal arg As Object) + If (Not (Me.GetProcessConfNumCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetProcessConfNumCompleted(Me, New GetProcessConfNumCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function CheckHistory( ByRef ThisBootMsgCounter() As UInteger, ByRef AllBootMsgCounter() As UInteger, ByRef ThisBootID() As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("CheckHistory", New Object(-1) {}) + ThisBootMsgCounter = CType(results(1),UInteger()) + AllBootMsgCounter = CType(results(2),UInteger()) + ThisBootID = CType(results(3),UInteger()) + ErrClass = CType(results(4),UInteger) + ErrNum = CType(results(5),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub CheckHistoryAsync() + Me.CheckHistoryAsync(Nothing) + End Sub + + ''' + Public Overloads Sub CheckHistoryAsync(ByVal userState As Object) + If (Me.CheckHistoryOperationCompleted Is Nothing) Then + Me.CheckHistoryOperationCompleted = AddressOf Me.OnCheckHistoryOperationCompleted + End If + Me.InvokeAsync("CheckHistory", New Object(-1) {}, Me.CheckHistoryOperationCompleted, userState) + End Sub + + Private Sub OnCheckHistoryOperationCompleted(ByVal arg As Object) + If (Not (Me.CheckHistoryCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent CheckHistoryCompleted(Me, New CheckHistoryCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ReadHistoryEmergMsg(ByVal ReadMode As Integer, ByVal RecNum As UInteger, ByRef Data As MSGEMERGENCY, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ReadHistoryEmergMsg", New Object() {ReadMode, RecNum}) + Data = CType(results(1),MSGEMERGENCY) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ReadHistoryEmergMsgAsync(ByVal ReadMode As Integer, ByVal RecNum As UInteger) + Me.ReadHistoryEmergMsgAsync(ReadMode, RecNum, Nothing) + End Sub + + ''' + Public Overloads Sub ReadHistoryEmergMsgAsync(ByVal ReadMode As Integer, ByVal RecNum As UInteger, ByVal userState As Object) + If (Me.ReadHistoryEmergMsgOperationCompleted Is Nothing) Then + Me.ReadHistoryEmergMsgOperationCompleted = AddressOf Me.OnReadHistoryEmergMsgOperationCompleted + End If + Me.InvokeAsync("ReadHistoryEmergMsg", New Object() {ReadMode, RecNum}, Me.ReadHistoryEmergMsgOperationCompleted, userState) + End Sub + + Private Sub OnReadHistoryEmergMsgOperationCompleted(ByVal arg As Object) + If (Not (Me.ReadHistoryEmergMsgCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ReadHistoryEmergMsgCompleted(Me, New ReadHistoryEmergMsgCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ReadHistoryErrorMsg(ByVal ReadMode As Integer, ByVal RecNum As UInteger, ByRef Data As MSGERROR, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ReadHistoryErrorMsg", New Object() {ReadMode, RecNum}) + Data = CType(results(1),MSGERROR) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ReadHistoryErrorMsgAsync(ByVal ReadMode As Integer, ByVal RecNum As UInteger) + Me.ReadHistoryErrorMsgAsync(ReadMode, RecNum, Nothing) + End Sub + + ''' + Public Overloads Sub ReadHistoryErrorMsgAsync(ByVal ReadMode As Integer, ByVal RecNum As UInteger, ByVal userState As Object) + If (Me.ReadHistoryErrorMsgOperationCompleted Is Nothing) Then + Me.ReadHistoryErrorMsgOperationCompleted = AddressOf Me.OnReadHistoryErrorMsgOperationCompleted + End If + Me.InvokeAsync("ReadHistoryErrorMsg", New Object() {ReadMode, RecNum}, Me.ReadHistoryErrorMsgOperationCompleted, userState) + End Sub + + Private Sub OnReadHistoryErrorMsgOperationCompleted(ByVal arg As Object) + If (Not (Me.ReadHistoryErrorMsgCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ReadHistoryErrorMsgCompleted(Me, New ReadHistoryErrorMsgCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ReadHistoryLogMsg(ByVal NoHistory As Integer, ByVal ReadMode As Integer, ByVal RecNum As UInteger, ByRef Data As MSGLOGS, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ReadHistoryLogMsg", New Object() {NoHistory, ReadMode, RecNum}) + Data = CType(results(1),MSGLOGS) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ReadHistoryLogMsgAsync(ByVal NoHistory As Integer, ByVal ReadMode As Integer, ByVal RecNum As UInteger) + Me.ReadHistoryLogMsgAsync(NoHistory, ReadMode, RecNum, Nothing) + End Sub + + ''' + Public Overloads Sub ReadHistoryLogMsgAsync(ByVal NoHistory As Integer, ByVal ReadMode As Integer, ByVal RecNum As UInteger, ByVal userState As Object) + If (Me.ReadHistoryLogMsgOperationCompleted Is Nothing) Then + Me.ReadHistoryLogMsgOperationCompleted = AddressOf Me.OnReadHistoryLogMsgOperationCompleted + End If + Me.InvokeAsync("ReadHistoryLogMsg", New Object() {NoHistory, ReadMode, RecNum}, Me.ReadHistoryLogMsgOperationCompleted, userState) + End Sub + + Private Sub OnReadHistoryLogMsgOperationCompleted(ByVal arg As Object) + If (Not (Me.ReadHistoryLogMsgCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ReadHistoryLogMsgCompleted(Me, New ReadHistoryLogMsgCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ReadHistoryAnomalyMsg(ByVal ReadMode As Integer, ByVal RecNum As UInteger, ByRef Data As MSGANOMALY, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ReadHistoryAnomalyMsg", New Object() {ReadMode, RecNum}) + Data = CType(results(1),MSGANOMALY) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ReadHistoryAnomalyMsgAsync(ByVal ReadMode As Integer, ByVal RecNum As UInteger) + Me.ReadHistoryAnomalyMsgAsync(ReadMode, RecNum, Nothing) + End Sub + + ''' + Public Overloads Sub ReadHistoryAnomalyMsgAsync(ByVal ReadMode As Integer, ByVal RecNum As UInteger, ByVal userState As Object) + If (Me.ReadHistoryAnomalyMsgOperationCompleted Is Nothing) Then + Me.ReadHistoryAnomalyMsgOperationCompleted = AddressOf Me.OnReadHistoryAnomalyMsgOperationCompleted + End If + Me.InvokeAsync("ReadHistoryAnomalyMsg", New Object() {ReadMode, RecNum}, Me.ReadHistoryAnomalyMsgOperationCompleted, userState) + End Sub + + Private Sub OnReadHistoryAnomalyMsgOperationCompleted(ByVal arg As Object) + If (Not (Me.ReadHistoryAnomalyMsgCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ReadHistoryAnomalyMsgCompleted(Me, New ReadHistoryAnomalyMsgCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ReadCurrentErrorMsg(ByVal Process As UShort, ByRef Data As MSGERROR, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ReadCurrentErrorMsg", New Object() {Process}) + Data = CType(results(1),MSGERROR) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ReadCurrentErrorMsgAsync(ByVal Process As UShort) + Me.ReadCurrentErrorMsgAsync(Process, Nothing) + End Sub + + ''' + Public Overloads Sub ReadCurrentErrorMsgAsync(ByVal Process As UShort, ByVal userState As Object) + If (Me.ReadCurrentErrorMsgOperationCompleted Is Nothing) Then + Me.ReadCurrentErrorMsgOperationCompleted = AddressOf Me.OnReadCurrentErrorMsgOperationCompleted + End If + Me.InvokeAsync("ReadCurrentErrorMsg", New Object() {Process}, Me.ReadCurrentErrorMsgOperationCompleted, userState) + End Sub + + Private Sub OnReadCurrentErrorMsgOperationCompleted(ByVal arg As Object) + If (Not (Me.ReadCurrentErrorMsgCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ReadCurrentErrorMsgCompleted(Me, New ReadCurrentErrorMsgCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ReadCurrentEmergMsg(ByVal Process As UShort, ByRef Data As MSGEMERGENCY, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ReadCurrentEmergMsg", New Object() {Process}) + Data = CType(results(1),MSGEMERGENCY) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ReadCurrentEmergMsgAsync(ByVal Process As UShort) + Me.ReadCurrentEmergMsgAsync(Process, Nothing) + End Sub + + ''' + Public Overloads Sub ReadCurrentEmergMsgAsync(ByVal Process As UShort, ByVal userState As Object) + If (Me.ReadCurrentEmergMsgOperationCompleted Is Nothing) Then + Me.ReadCurrentEmergMsgOperationCompleted = AddressOf Me.OnReadCurrentEmergMsgOperationCompleted + End If + Me.InvokeAsync("ReadCurrentEmergMsg", New Object() {Process}, Me.ReadCurrentEmergMsgOperationCompleted, userState) + End Sub + + Private Sub OnReadCurrentEmergMsgOperationCompleted(ByVal arg As Object) + If (Not (Me.ReadCurrentEmergMsgCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ReadCurrentEmergMsgCompleted(Me, New ReadCurrentEmergMsgCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ReadCurrentAnomalyMsg(ByRef Data As MSGANOMALY, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ReadCurrentAnomalyMsg", New Object(-1) {}) + Data = CType(results(1),MSGANOMALY) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ReadCurrentAnomalyMsgAsync() + Me.ReadCurrentAnomalyMsgAsync(Nothing) + End Sub + + ''' + Public Overloads Sub ReadCurrentAnomalyMsgAsync(ByVal userState As Object) + If (Me.ReadCurrentAnomalyMsgOperationCompleted Is Nothing) Then + Me.ReadCurrentAnomalyMsgOperationCompleted = AddressOf Me.OnReadCurrentAnomalyMsgOperationCompleted + End If + Me.InvokeAsync("ReadCurrentAnomalyMsg", New Object(-1) {}, Me.ReadCurrentAnomalyMsgOperationCompleted, userState) + End Sub + + Private Sub OnReadCurrentAnomalyMsgOperationCompleted(ByVal arg As Object) + If (Not (Me.ReadCurrentAnomalyMsgCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ReadCurrentAnomalyMsgCompleted(Me, New ReadCurrentAnomalyMsgCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetPTechSizes(ByVal Process As UShort, ByRef Ind1 As UShort, ByRef Ind2 As UShort, ByRef Ind3 As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetPTechSizes", New Object() {Process}) + Ind1 = CType(results(1),UShort) + Ind2 = CType(results(2),UShort) + Ind3 = CType(results(3),UShort) + ErrClass = CType(results(4),UInteger) + ErrNum = CType(results(5),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetPTechSizesAsync(ByVal Process As UShort) + Me.GetPTechSizesAsync(Process, Nothing) + End Sub + + ''' + Public Overloads Sub GetPTechSizesAsync(ByVal Process As UShort, ByVal userState As Object) + If (Me.GetPTechSizesOperationCompleted Is Nothing) Then + Me.GetPTechSizesOperationCompleted = AddressOf Me.OnGetPTechSizesOperationCompleted + End If + Me.InvokeAsync("GetPTechSizes", New Object() {Process}, Me.GetPTechSizesOperationCompleted, userState) + End Sub + + Private Sub OnGetPTechSizesOperationCompleted(ByVal arg As Object) + If (Not (Me.GetPTechSizesCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetPTechSizesCompleted(Me, New GetPTechSizesCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LoadPTech(ByVal Process As UShort, ByVal PPPathName As String, ByVal WriteMode As UShort, ByVal Sheet As UShort, ByVal Line As UShort, ByVal Column As UShort, ByVal NumVar As UShort, ByVal Data() As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LoadPTech", New Object() {Process, PPPathName, WriteMode, Sheet, Line, Column, NumVar, Data}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LoadPTechAsync(ByVal Process As UShort, ByVal PPPathName As String, ByVal WriteMode As UShort, ByVal Sheet As UShort, ByVal Line As UShort, ByVal Column As UShort, ByVal NumVar As UShort, ByVal Data() As Double) + Me.LoadPTechAsync(Process, PPPathName, WriteMode, Sheet, Line, Column, NumVar, Data, Nothing) + End Sub + + ''' + Public Overloads Sub LoadPTechAsync(ByVal Process As UShort, ByVal PPPathName As String, ByVal WriteMode As UShort, ByVal Sheet As UShort, ByVal Line As UShort, ByVal Column As UShort, ByVal NumVar As UShort, ByVal Data() As Double, ByVal userState As Object) + If (Me.LoadPTechOperationCompleted Is Nothing) Then + Me.LoadPTechOperationCompleted = AddressOf Me.OnLoadPTechOperationCompleted + End If + Me.InvokeAsync("LoadPTech", New Object() {Process, PPPathName, WriteMode, Sheet, Line, Column, NumVar, Data}, Me.LoadPTechOperationCompleted, userState) + End Sub + + Private Sub OnLoadPTechOperationCompleted(ByVal arg As Object) + If (Not (Me.LoadPTechCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LoadPTechCompleted(Me, New LoadPTechCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetMarkerInfo(ByVal Process As UShort, ByVal Request As Byte, ByRef MarkerInfo As MARKERINFO, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetMarkerInfo", New Object() {Process, Request}) + MarkerInfo = CType(results(1),MARKERINFO) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetMarkerInfoAsync(ByVal Process As UShort, ByVal Request As Byte) + Me.GetMarkerInfoAsync(Process, Request, Nothing) + End Sub + + ''' + Public Overloads Sub GetMarkerInfoAsync(ByVal Process As UShort, ByVal Request As Byte, ByVal userState As Object) + If (Me.GetMarkerInfoOperationCompleted Is Nothing) Then + Me.GetMarkerInfoOperationCompleted = AddressOf Me.OnGetMarkerInfoOperationCompleted + End If + Me.InvokeAsync("GetMarkerInfo", New Object() {Process, Request}, Me.GetMarkerInfoOperationCompleted, userState) + End Sub + + Private Sub OnGetMarkerInfoOperationCompleted(ByVal arg As Object) + If (Not (Me.GetMarkerInfoCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetMarkerInfoCompleted(Me, New GetMarkerInfoCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ManagePartProgram(ByVal Process As UShort, ByVal Mode As UShort, ByVal PPPath As String, ByRef ErrString() As Byte, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ManagePartProgram", New Object() {Process, Mode, PPPath}) + ErrString = CType(results(1),Byte()) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ManagePartProgramAsync(ByVal Process As UShort, ByVal Mode As UShort, ByVal PPPath As String) + Me.ManagePartProgramAsync(Process, Mode, PPPath, Nothing) + End Sub + + ''' + Public Overloads Sub ManagePartProgramAsync(ByVal Process As UShort, ByVal Mode As UShort, ByVal PPPath As String, ByVal userState As Object) + If (Me.ManagePartProgramOperationCompleted Is Nothing) Then + Me.ManagePartProgramOperationCompleted = AddressOf Me.OnManagePartProgramOperationCompleted + End If + Me.InvokeAsync("ManagePartProgram", New Object() {Process, Mode, PPPath}, Me.ManagePartProgramOperationCompleted, userState) + End Sub + + Private Sub OnManagePartProgramOperationCompleted(ByVal arg As Object) + If (Not (Me.ManagePartProgramCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ManagePartProgramCompleted(Me, New ManagePartProgramCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LogFSWriteRecord(ByVal FileID As UShort, ByVal Transaction As UShort, ByVal RecordLen As UInteger, ByVal Record() As Byte, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LogFSWriteRecord", New Object() {FileID, Transaction, RecordLen, Record}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LogFSWriteRecordAsync(ByVal FileID As UShort, ByVal Transaction As UShort, ByVal RecordLen As UInteger, ByVal Record() As Byte) + Me.LogFSWriteRecordAsync(FileID, Transaction, RecordLen, Record, Nothing) + End Sub + + ''' + Public Overloads Sub LogFSWriteRecordAsync(ByVal FileID As UShort, ByVal Transaction As UShort, ByVal RecordLen As UInteger, ByVal Record() As Byte, ByVal userState As Object) + If (Me.LogFSWriteRecordOperationCompleted Is Nothing) Then + Me.LogFSWriteRecordOperationCompleted = AddressOf Me.OnLogFSWriteRecordOperationCompleted + End If + Me.InvokeAsync("LogFSWriteRecord", New Object() {FileID, Transaction, RecordLen, Record}, Me.LogFSWriteRecordOperationCompleted, userState) + End Sub + + Private Sub OnLogFSWriteRecordOperationCompleted(ByVal arg As Object) + If (Not (Me.LogFSWriteRecordCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LogFSWriteRecordCompleted(Me, New LogFSWriteRecordCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function LogFSReadRecord(ByVal FileID As UShort, ByVal Transaction As UShort, ByVal RecordLen As UInteger, ByRef DataSize As UInteger, ByRef Record() As Byte, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("LogFSReadRecord", New Object() {FileID, Transaction, RecordLen}) + DataSize = CType(results(1),UInteger) + Record = CType(results(2),Byte()) + ErrClass = CType(results(3),UInteger) + ErrNum = CType(results(4),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub LogFSReadRecordAsync(ByVal FileID As UShort, ByVal Transaction As UShort, ByVal RecordLen As UInteger) + Me.LogFSReadRecordAsync(FileID, Transaction, RecordLen, Nothing) + End Sub + + ''' + Public Overloads Sub LogFSReadRecordAsync(ByVal FileID As UShort, ByVal Transaction As UShort, ByVal RecordLen As UInteger, ByVal userState As Object) + If (Me.LogFSReadRecordOperationCompleted Is Nothing) Then + Me.LogFSReadRecordOperationCompleted = AddressOf Me.OnLogFSReadRecordOperationCompleted + End If + Me.InvokeAsync("LogFSReadRecord", New Object() {FileID, Transaction, RecordLen}, Me.LogFSReadRecordOperationCompleted, userState) + End Sub + + Private Sub OnLogFSReadRecordOperationCompleted(ByVal arg As Object) + If (Not (Me.LogFSReadRecordCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent LogFSReadRecordCompleted(Me, New LogFSReadRecordCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ReadRemapDefinitions(ByVal ArraySize As Integer, ByVal Type As Integer, ByRef Array() As REMAPDEF, ByRef DefinitionsCnt As Integer, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ReadRemapDefinitions", New Object() {ArraySize, Type}) + Array = CType(results(1),REMAPDEF()) + DefinitionsCnt = CType(results(2),Integer) + ErrClass = CType(results(3),UInteger) + ErrNum = CType(results(4),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ReadRemapDefinitionsAsync(ByVal ArraySize As Integer, ByVal Type As Integer) + Me.ReadRemapDefinitionsAsync(ArraySize, Type, Nothing) + End Sub + + ''' + Public Overloads Sub ReadRemapDefinitionsAsync(ByVal ArraySize As Integer, ByVal Type As Integer, ByVal userState As Object) + If (Me.ReadRemapDefinitionsOperationCompleted Is Nothing) Then + Me.ReadRemapDefinitionsOperationCompleted = AddressOf Me.OnReadRemapDefinitionsOperationCompleted + End If + Me.InvokeAsync("ReadRemapDefinitions", New Object() {ArraySize, Type}, Me.ReadRemapDefinitionsOperationCompleted, userState) + End Sub + + Private Sub OnReadRemapDefinitionsOperationCompleted(ByVal arg As Object) + If (Not (Me.ReadRemapDefinitionsCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ReadRemapDefinitionsCompleted(Me, New ReadRemapDefinitionsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function WriteRemapDefinitions(ByVal ArraySize As Integer, ByVal Array() As REMAPDEF, ByVal Type As Integer, ByVal Mode As Integer, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("WriteRemapDefinitions", New Object() {ArraySize, Array, Type, Mode}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub WriteRemapDefinitionsAsync(ByVal ArraySize As Integer, ByVal Array() As REMAPDEF, ByVal Type As Integer, ByVal Mode As Integer) + Me.WriteRemapDefinitionsAsync(ArraySize, Array, Type, Mode, Nothing) + End Sub + + ''' + Public Overloads Sub WriteRemapDefinitionsAsync(ByVal ArraySize As Integer, ByVal Array() As REMAPDEF, ByVal Type As Integer, ByVal Mode As Integer, ByVal userState As Object) + If (Me.WriteRemapDefinitionsOperationCompleted Is Nothing) Then + Me.WriteRemapDefinitionsOperationCompleted = AddressOf Me.OnWriteRemapDefinitionsOperationCompleted + End If + Me.InvokeAsync("WriteRemapDefinitions", New Object() {ArraySize, Array, Type, Mode}, Me.WriteRemapDefinitionsOperationCompleted, userState) + End Sub + + Private Sub OnWriteRemapDefinitionsOperationCompleted(ByVal arg As Object) + If (Not (Me.WriteRemapDefinitionsCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent WriteRemapDefinitionsCompleted(Me, New WriteRemapDefinitionsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetServoPar(ByVal AxisId As UShort, ByVal ParId As UShort, ByRef Value As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetServoPar", New Object() {AxisId, ParId}) + Value = CType(results(1),Double) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetServoParAsync(ByVal AxisId As UShort, ByVal ParId As UShort) + Me.GetServoParAsync(AxisId, ParId, Nothing) + End Sub + + ''' + Public Overloads Sub GetServoParAsync(ByVal AxisId As UShort, ByVal ParId As UShort, ByVal userState As Object) + If (Me.GetServoParOperationCompleted Is Nothing) Then + Me.GetServoParOperationCompleted = AddressOf Me.OnGetServoParOperationCompleted + End If + Me.InvokeAsync("GetServoPar", New Object() {AxisId, ParId}, Me.GetServoParOperationCompleted, userState) + End Sub + + Private Sub OnGetServoParOperationCompleted(ByVal arg As Object) + If (Not (Me.GetServoParCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetServoParCompleted(Me, New GetServoParCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SetServoPar(ByVal AxisId As UShort, ByVal ParId As UShort, ByVal Value As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SetServoPar", New Object() {AxisId, ParId, Value}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SetServoParAsync(ByVal AxisId As UShort, ByVal ParId As UShort, ByVal Value As Double) + Me.SetServoParAsync(AxisId, ParId, Value, Nothing) + End Sub + + ''' + Public Overloads Sub SetServoParAsync(ByVal AxisId As UShort, ByVal ParId As UShort, ByVal Value As Double, ByVal userState As Object) + If (Me.SetServoParOperationCompleted Is Nothing) Then + Me.SetServoParOperationCompleted = AddressOf Me.OnSetServoParOperationCompleted + End If + Me.InvokeAsync("SetServoPar", New Object() {AxisId, ParId, Value}, Me.SetServoParOperationCompleted, userState) + End Sub + + Private Sub OnSetServoParOperationCompleted(ByVal arg As Object) + If (Not (Me.SetServoParCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SetServoParCompleted(Me, New SetServoParCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetCNCRegKey( ByVal Key As String, ByVal SubKey As String, ByRef ValueLen As Integer, ByRef Value() As Byte, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetCNCRegKey", New Object() {Key, SubKey, ValueLen}) + ValueLen = CType(results(1),Integer) + Value = CType(results(2),Byte()) + ErrClass = CType(results(3),UInteger) + ErrNum = CType(results(4),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetCNCRegKeyAsync(ByVal Key As String, ByVal SubKey As String, ByVal ValueLen As Integer) + Me.GetCNCRegKeyAsync(Key, SubKey, ValueLen, Nothing) + End Sub + + ''' + Public Overloads Sub GetCNCRegKeyAsync(ByVal Key As String, ByVal SubKey As String, ByVal ValueLen As Integer, ByVal userState As Object) + If (Me.GetCNCRegKeyOperationCompleted Is Nothing) Then + Me.GetCNCRegKeyOperationCompleted = AddressOf Me.OnGetCNCRegKeyOperationCompleted + End If + Me.InvokeAsync("GetCNCRegKey", New Object() {Key, SubKey, ValueLen}, Me.GetCNCRegKeyOperationCompleted, userState) + End Sub + + Private Sub OnGetCNCRegKeyOperationCompleted(ByVal arg As Object) + If (Not (Me.GetCNCRegKeyCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetCNCRegKeyCompleted(Me, New GetCNCRegKeyCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetSecurityData(ByRef Data As SECURDATA, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetSecurityData", New Object(-1) {}) + Data = CType(results(1),SECURDATA) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetSecurityDataAsync() + Me.GetSecurityDataAsync(Nothing) + End Sub + + ''' + Public Overloads Sub GetSecurityDataAsync(ByVal userState As Object) + If (Me.GetSecurityDataOperationCompleted Is Nothing) Then + Me.GetSecurityDataOperationCompleted = AddressOf Me.OnGetSecurityDataOperationCompleted + End If + Me.InvokeAsync("GetSecurityData", New Object(-1) {}, Me.GetSecurityDataOperationCompleted, userState) + End Sub + + Private Sub OnGetSecurityDataOperationCompleted(ByVal arg As Object) + If (Not (Me.GetSecurityDataCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetSecurityDataCompleted(Me, New GetSecurityDataCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SetSecurityData(ByVal Data As SECURDATA, ByVal Flag As Boolean, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SetSecurityData", New Object() {Data, Flag}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SetSecurityDataAsync(ByVal Data As SECURDATA, ByVal Flag As Boolean) + Me.SetSecurityDataAsync(Data, Flag, Nothing) + End Sub + + ''' + Public Overloads Sub SetSecurityDataAsync(ByVal Data As SECURDATA, ByVal Flag As Boolean, ByVal userState As Object) + If (Me.SetSecurityDataOperationCompleted Is Nothing) Then + Me.SetSecurityDataOperationCompleted = AddressOf Me.OnSetSecurityDataOperationCompleted + End If + Me.InvokeAsync("SetSecurityData", New Object() {Data, Flag}, Me.SetSecurityDataOperationCompleted, userState) + End Sub + + Private Sub OnSetSecurityDataOperationCompleted(ByVal arg As Object) + If (Not (Me.SetSecurityDataCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SetSecurityDataCompleted(Me, New SetSecurityDataCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SetIpAddress( ByVal IpAddress As String, ByVal SubNetMask As String, ByVal DefaultGateway As String, ByVal Dns As String, ByVal Wins As String, ByVal Net As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SetIpAddress", New Object() {IpAddress, SubNetMask, DefaultGateway, Dns, Wins, Net}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SetIpAddressAsync(ByVal IpAddress As String, ByVal SubNetMask As String, ByVal DefaultGateway As String, ByVal Dns As String, ByVal Wins As String, ByVal Net As String) + Me.SetIpAddressAsync(IpAddress, SubNetMask, DefaultGateway, Dns, Wins, Net, Nothing) + End Sub + + ''' + Public Overloads Sub SetIpAddressAsync(ByVal IpAddress As String, ByVal SubNetMask As String, ByVal DefaultGateway As String, ByVal Dns As String, ByVal Wins As String, ByVal Net As String, ByVal userState As Object) + If (Me.SetIpAddressOperationCompleted Is Nothing) Then + Me.SetIpAddressOperationCompleted = AddressOf Me.OnSetIpAddressOperationCompleted + End If + Me.InvokeAsync("SetIpAddress", New Object() {IpAddress, SubNetMask, DefaultGateway, Dns, Wins, Net}, Me.SetIpAddressOperationCompleted, userState) + End Sub + + Private Sub OnSetIpAddressOperationCompleted(ByVal arg As Object) + If (Not (Me.SetIpAddressCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SetIpAddressCompleted(Me, New SetIpAddressCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetProcInInput(ByVal Process As UShort, ByRef ProcInfo As INPUTINFO, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetProcInInput", New Object() {Process}) + ProcInfo = CType(results(1),INPUTINFO) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetProcInInputAsync(ByVal Process As UShort) + Me.GetProcInInputAsync(Process, Nothing) + End Sub + + ''' + Public Overloads Sub GetProcInInputAsync(ByVal Process As UShort, ByVal userState As Object) + If (Me.GetProcInInputOperationCompleted Is Nothing) Then + Me.GetProcInInputOperationCompleted = AddressOf Me.OnGetProcInInputOperationCompleted + End If + Me.InvokeAsync("GetProcInInput", New Object() {Process}, Me.GetProcInInputOperationCompleted, userState) + End Sub + + Private Sub OnGetProcInInputOperationCompleted(ByVal arg As Object) + If (Not (Me.GetProcInInputCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetProcInInputCompleted(Me, New GetProcInInputCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SndProcInpData(ByVal Process As UShort, ByVal keyPressed As UShort, ByVal numData As UShort, ByVal arData() As Byte, ByVal arSize As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SndProcInpData", New Object() {Process, keyPressed, numData, arData, arSize}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SndProcInpDataAsync(ByVal Process As UShort, ByVal keyPressed As UShort, ByVal numData As UShort, ByVal arData() As Byte, ByVal arSize As UShort) + Me.SndProcInpDataAsync(Process, keyPressed, numData, arData, arSize, Nothing) + End Sub + + ''' + Public Overloads Sub SndProcInpDataAsync(ByVal Process As UShort, ByVal keyPressed As UShort, ByVal numData As UShort, ByVal arData() As Byte, ByVal arSize As UShort, ByVal userState As Object) + If (Me.SndProcInpDataOperationCompleted Is Nothing) Then + Me.SndProcInpDataOperationCompleted = AddressOf Me.OnSndProcInpDataOperationCompleted + End If + Me.InvokeAsync("SndProcInpData", New Object() {Process, keyPressed, numData, arData, arSize}, Me.SndProcInpDataOperationCompleted, userState) + End Sub + + Private Sub OnSndProcInpDataOperationCompleted(ByVal arg As Object) + If (Not (Me.SndProcInpDataCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SndProcInpDataCompleted(Me, New SndProcInpDataCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetPartProgramLinesEx(ByVal ProcNum As UShort, ByRef PPLine1() As Byte, ByRef PPLine2() As Byte, ByRef PPLine3() As Byte, ByRef PPLine4() As Byte, ByRef PPLine5() As Byte, ByRef PPLine6() As Byte, ByRef PPLine7() As Byte, ByRef PPLine8() As Byte, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetPartProgramLinesEx", New Object() {ProcNum}) + PPLine1 = CType(results(1),Byte()) + PPLine2 = CType(results(2),Byte()) + PPLine3 = CType(results(3),Byte()) + PPLine4 = CType(results(4),Byte()) + PPLine5 = CType(results(5),Byte()) + PPLine6 = CType(results(6),Byte()) + PPLine7 = CType(results(7),Byte()) + PPLine8 = CType(results(8),Byte()) + ErrClass = CType(results(9),UInteger) + ErrNum = CType(results(10),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetPartProgramLinesExAsync(ByVal ProcNum As UShort) + Me.GetPartProgramLinesExAsync(ProcNum, Nothing) + End Sub + + ''' + Public Overloads Sub GetPartProgramLinesExAsync(ByVal ProcNum As UShort, ByVal userState As Object) + If (Me.GetPartProgramLinesExOperationCompleted Is Nothing) Then + Me.GetPartProgramLinesExOperationCompleted = AddressOf Me.OnGetPartProgramLinesExOperationCompleted + End If + Me.InvokeAsync("GetPartProgramLinesEx", New Object() {ProcNum}, Me.GetPartProgramLinesExOperationCompleted, userState) + End Sub + + Private Sub OnGetPartProgramLinesExOperationCompleted(ByVal arg As Object) + If (Not (Me.GetPartProgramLinesExCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetPartProgramLinesExCompleted(Me, New GetPartProgramLinesExCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SetMdiStringEx(ByVal ProcNum As UShort, ByVal MdiString As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SetMdiStringEx", New Object() {ProcNum, MdiString}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SetMdiStringExAsync(ByVal ProcNum As UShort, ByVal MdiString As String) + Me.SetMdiStringExAsync(ProcNum, MdiString, Nothing) + End Sub + + ''' + Public Overloads Sub SetMdiStringExAsync(ByVal ProcNum As UShort, ByVal MdiString As String, ByVal userState As Object) + If (Me.SetMdiStringExOperationCompleted Is Nothing) Then + Me.SetMdiStringExOperationCompleted = AddressOf Me.OnSetMdiStringExOperationCompleted + End If + Me.InvokeAsync("SetMdiStringEx", New Object() {ProcNum, MdiString}, Me.SetMdiStringExOperationCompleted, userState) + End Sub + + Private Sub OnSetMdiStringExOperationCompleted(ByVal arg As Object) + If (Not (Me.SetMdiStringExCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SetMdiStringExCompleted(Me, New SetMdiStringExCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetExpireData(ByRef Day As UShort, ByRef Month As UShort, ByRef Year As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetExpireData", New Object(-1) {}) + Day = CType(results(1),UShort) + Month = CType(results(2),UShort) + Year = CType(results(3),UShort) + ErrClass = CType(results(4),UInteger) + ErrNum = CType(results(5),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetExpireDataAsync() + Me.GetExpireDataAsync(Nothing) + End Sub + + ''' + Public Overloads Sub GetExpireDataAsync(ByVal userState As Object) + If (Me.GetExpireDataOperationCompleted Is Nothing) Then + Me.GetExpireDataOperationCompleted = AddressOf Me.OnGetExpireDataOperationCompleted + End If + Me.InvokeAsync("GetExpireData", New Object(-1) {}, Me.GetExpireDataOperationCompleted, userState) + End Sub + + Private Sub OnGetExpireDataOperationCompleted(ByVal arg As Object) + If (Not (Me.GetExpireDataCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetExpireDataCompleted(Me, New GetExpireDataCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetRemainingTime(ByRef remTime As Long, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetRemainingTime", New Object(-1) {}) + remTime = CType(results(1),Long) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetRemainingTimeAsync() + Me.GetRemainingTimeAsync(Nothing) + End Sub + + ''' + Public Overloads Sub GetRemainingTimeAsync(ByVal userState As Object) + If (Me.GetRemainingTimeOperationCompleted Is Nothing) Then + Me.GetRemainingTimeOperationCompleted = AddressOf Me.OnGetRemainingTimeOperationCompleted + End If + Me.InvokeAsync("GetRemainingTime", New Object(-1) {}, Me.GetRemainingTimeOperationCompleted, userState) + End Sub + + Private Sub OnGetRemainingTimeOperationCompleted(ByVal arg As Object) + If (Not (Me.GetRemainingTimeCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetRemainingTimeCompleted(Me, New GetRemainingTimeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GenerateUserKey( ByRef keyUser() As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GenerateUserKey", New Object(-1) {}) + keyUser = CType(results(1),String()) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GenerateUserKeyAsync() + Me.GenerateUserKeyAsync(Nothing) + End Sub + + ''' + Public Overloads Sub GenerateUserKeyAsync(ByVal userState As Object) + If (Me.GenerateUserKeyOperationCompleted Is Nothing) Then + Me.GenerateUserKeyOperationCompleted = AddressOf Me.OnGenerateUserKeyOperationCompleted + End If + Me.InvokeAsync("GenerateUserKey", New Object(-1) {}, Me.GenerateUserKeyOperationCompleted, userState) + End Sub + + Private Sub OnGenerateUserKeyOperationCompleted(ByVal arg As Object) + If (Not (Me.GenerateUserKeyCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GenerateUserKeyCompleted(Me, New GenerateUserKeyCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function WriteActivationKey( ByVal OEMKey As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("WriteActivationKey", New Object() {OEMKey}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub WriteActivationKeyAsync(ByVal OEMKey As String) + Me.WriteActivationKeyAsync(OEMKey, Nothing) + End Sub + + ''' + Public Overloads Sub WriteActivationKeyAsync(ByVal OEMKey As String, ByVal userState As Object) + If (Me.WriteActivationKeyOperationCompleted Is Nothing) Then + Me.WriteActivationKeyOperationCompleted = AddressOf Me.OnWriteActivationKeyOperationCompleted + End If + Me.InvokeAsync("WriteActivationKey", New Object() {OEMKey}, Me.WriteActivationKeyOperationCompleted, userState) + End Sub + + Private Sub OnWriteActivationKeyOperationCompleted(ByVal arg As Object) + If (Not (Me.WriteActivationKeyCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent WriteActivationKeyCompleted(Me, New WriteActivationKeyCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetAvailableCustomEvents(ByVal MaxEvents As UShort, ByRef NumEvents As UShort, ByRef EventData() As MONCUSTOMEVENTINFO, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetAvailableCustomEvents", New Object() {MaxEvents}) + NumEvents = CType(results(1),UShort) + EventData = CType(results(2),MONCUSTOMEVENTINFO()) + ErrClass = CType(results(3),UInteger) + ErrNum = CType(results(4),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetAvailableCustomEventsAsync(ByVal MaxEvents As UShort) + Me.GetAvailableCustomEventsAsync(MaxEvents, Nothing) + End Sub + + ''' + Public Overloads Sub GetAvailableCustomEventsAsync(ByVal MaxEvents As UShort, ByVal userState As Object) + If (Me.GetAvailableCustomEventsOperationCompleted Is Nothing) Then + Me.GetAvailableCustomEventsOperationCompleted = AddressOf Me.OnGetAvailableCustomEventsOperationCompleted + End If + Me.InvokeAsync("GetAvailableCustomEvents", New Object() {MaxEvents}, Me.GetAvailableCustomEventsOperationCompleted, userState) + End Sub + + Private Sub OnGetAvailableCustomEventsOperationCompleted(ByVal arg As Object) + If (Not (Me.GetAvailableCustomEventsCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetAvailableCustomEventsCompleted(Me, New GetAvailableCustomEventsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function MonOpenChannel(ByVal Synchronized As Boolean, ByRef ChannelID As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("MonOpenChannel", New Object() {Synchronized}) + ChannelID = CType(results(1),UInteger) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub MonOpenChannelAsync(ByVal Synchronized As Boolean) + Me.MonOpenChannelAsync(Synchronized, Nothing) + End Sub + + ''' + Public Overloads Sub MonOpenChannelAsync(ByVal Synchronized As Boolean, ByVal userState As Object) + If (Me.MonOpenChannelOperationCompleted Is Nothing) Then + Me.MonOpenChannelOperationCompleted = AddressOf Me.OnMonOpenChannelOperationCompleted + End If + Me.InvokeAsync("MonOpenChannel", New Object() {Synchronized}, Me.MonOpenChannelOperationCompleted, userState) + End Sub + + Private Sub OnMonOpenChannelOperationCompleted(ByVal arg As Object) + If (Not (Me.MonOpenChannelCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent MonOpenChannelCompleted(Me, New MonOpenChannelCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function MonCloseChannel(ByVal ChannelID As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("MonCloseChannel", New Object() {ChannelID}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub MonCloseChannelAsync(ByVal ChannelID As UInteger) + Me.MonCloseChannelAsync(ChannelID, Nothing) + End Sub + + ''' + Public Overloads Sub MonCloseChannelAsync(ByVal ChannelID As UInteger, ByVal userState As Object) + If (Me.MonCloseChannelOperationCompleted Is Nothing) Then + Me.MonCloseChannelOperationCompleted = AddressOf Me.OnMonCloseChannelOperationCompleted + End If + Me.InvokeAsync("MonCloseChannel", New Object() {ChannelID}, Me.MonCloseChannelOperationCompleted, userState) + End Sub + + Private Sub OnMonCloseChannelOperationCompleted(ByVal arg As Object) + If (Not (Me.MonCloseChannelCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent MonCloseChannelCompleted(Me, New MonCloseChannelCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function MonAddVariable(ByVal ChannelID As UInteger, ByVal VarDescr As MONVARDESCR, ByRef VariableID As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("MonAddVariable", New Object() {ChannelID, VarDescr}) + VariableID = CType(results(1),UShort) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub MonAddVariableAsync(ByVal ChannelID As UInteger, ByVal VarDescr As MONVARDESCR) + Me.MonAddVariableAsync(ChannelID, VarDescr, Nothing) + End Sub + + ''' + Public Overloads Sub MonAddVariableAsync(ByVal ChannelID As UInteger, ByVal VarDescr As MONVARDESCR, ByVal userState As Object) + If (Me.MonAddVariableOperationCompleted Is Nothing) Then + Me.MonAddVariableOperationCompleted = AddressOf Me.OnMonAddVariableOperationCompleted + End If + Me.InvokeAsync("MonAddVariable", New Object() {ChannelID, VarDescr}, Me.MonAddVariableOperationCompleted, userState) + End Sub + + Private Sub OnMonAddVariableOperationCompleted(ByVal arg As Object) + If (Not (Me.MonAddVariableCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent MonAddVariableCompleted(Me, New MonAddVariableCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function MonDeleteVariable(ByVal ChannelID As UInteger, ByVal VariableID As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("MonDeleteVariable", New Object() {ChannelID, VariableID}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub MonDeleteVariableAsync(ByVal ChannelID As UInteger, ByVal VariableID As UShort) + Me.MonDeleteVariableAsync(ChannelID, VariableID, Nothing) + End Sub + + ''' + Public Overloads Sub MonDeleteVariableAsync(ByVal ChannelID As UInteger, ByVal VariableID As UShort, ByVal userState As Object) + If (Me.MonDeleteVariableOperationCompleted Is Nothing) Then + Me.MonDeleteVariableOperationCompleted = AddressOf Me.OnMonDeleteVariableOperationCompleted + End If + Me.InvokeAsync("MonDeleteVariable", New Object() {ChannelID, VariableID}, Me.MonDeleteVariableOperationCompleted, userState) + End Sub + + Private Sub OnMonDeleteVariableOperationCompleted(ByVal arg As Object) + If (Not (Me.MonDeleteVariableCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent MonDeleteVariableCompleted(Me, New MonDeleteVariableCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function MonStartSampling(ByVal ChannelID As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("MonStartSampling", New Object() {ChannelID}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub MonStartSamplingAsync(ByVal ChannelID As UInteger) + Me.MonStartSamplingAsync(ChannelID, Nothing) + End Sub + + ''' + Public Overloads Sub MonStartSamplingAsync(ByVal ChannelID As UInteger, ByVal userState As Object) + If (Me.MonStartSamplingOperationCompleted Is Nothing) Then + Me.MonStartSamplingOperationCompleted = AddressOf Me.OnMonStartSamplingOperationCompleted + End If + Me.InvokeAsync("MonStartSampling", New Object() {ChannelID}, Me.MonStartSamplingOperationCompleted, userState) + End Sub + + Private Sub OnMonStartSamplingOperationCompleted(ByVal arg As Object) + If (Not (Me.MonStartSamplingCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent MonStartSamplingCompleted(Me, New MonStartSamplingCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function MonStopSampling(ByVal ChannelID As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("MonStopSampling", New Object() {ChannelID}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub MonStopSamplingAsync(ByVal ChannelID As UInteger) + Me.MonStopSamplingAsync(ChannelID, Nothing) + End Sub + + ''' + Public Overloads Sub MonStopSamplingAsync(ByVal ChannelID As UInteger, ByVal userState As Object) + If (Me.MonStopSamplingOperationCompleted Is Nothing) Then + Me.MonStopSamplingOperationCompleted = AddressOf Me.OnMonStopSamplingOperationCompleted + End If + Me.InvokeAsync("MonStopSampling", New Object() {ChannelID}, Me.MonStopSamplingOperationCompleted, userState) + End Sub + + Private Sub OnMonStopSamplingOperationCompleted(ByVal arg As Object) + If (Not (Me.MonStopSamplingCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent MonStopSamplingCompleted(Me, New MonStopSamplingCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function MonGetVariable(ByVal ChannelID As UInteger, ByVal VariableID As UShort, ByVal MaxSamples As UShort, ByRef NumSampleRead As UShort, ByRef DataBuffer() As Double, ByRef TimeBuffer() As Long, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("MonGetVariable", New Object() {ChannelID, VariableID, MaxSamples}) + NumSampleRead = CType(results(1),UShort) + DataBuffer = CType(results(2),Double()) + TimeBuffer = CType(results(3),Long()) + ErrClass = CType(results(4),UInteger) + ErrNum = CType(results(5),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub MonGetVariableAsync(ByVal ChannelID As UInteger, ByVal VariableID As UShort, ByVal MaxSamples As UShort) + Me.MonGetVariableAsync(ChannelID, VariableID, MaxSamples, Nothing) + End Sub + + ''' + Public Overloads Sub MonGetVariableAsync(ByVal ChannelID As UInteger, ByVal VariableID As UShort, ByVal MaxSamples As UShort, ByVal userState As Object) + If (Me.MonGetVariableOperationCompleted Is Nothing) Then + Me.MonGetVariableOperationCompleted = AddressOf Me.OnMonGetVariableOperationCompleted + End If + Me.InvokeAsync("MonGetVariable", New Object() {ChannelID, VariableID, MaxSamples}, Me.MonGetVariableOperationCompleted, userState) + End Sub + + Private Sub OnMonGetVariableOperationCompleted(ByVal arg As Object) + If (Not (Me.MonGetVariableCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent MonGetVariableCompleted(Me, New MonGetVariableCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function MonGetVariableS(ByVal ChannelID As UInteger, ByVal VariableID As UShort, ByRef DataBuffer() As Byte, ByRef TimeBuffer() As Byte, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("MonGetVariableS", New Object() {ChannelID, VariableID}) + DataBuffer = CType(results(1),Byte()) + TimeBuffer = CType(results(2),Byte()) + ErrClass = CType(results(3),UInteger) + ErrNum = CType(results(4),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub MonGetVariableSAsync(ByVal ChannelID As UInteger, ByVal VariableID As UShort) + Me.MonGetVariableSAsync(ChannelID, VariableID, Nothing) + End Sub + + ''' + Public Overloads Sub MonGetVariableSAsync(ByVal ChannelID As UInteger, ByVal VariableID As UShort, ByVal userState As Object) + If (Me.MonGetVariableSOperationCompleted Is Nothing) Then + Me.MonGetVariableSOperationCompleted = AddressOf Me.OnMonGetVariableSOperationCompleted + End If + Me.InvokeAsync("MonGetVariableS", New Object() {ChannelID, VariableID}, Me.MonGetVariableSOperationCompleted, userState) + End Sub + + Private Sub OnMonGetVariableSOperationCompleted(ByVal arg As Object) + If (Not (Me.MonGetVariableSCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent MonGetVariableSCompleted(Me, New MonGetVariableSCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function MonGetDryRun(ByVal ChannelID As UInteger, ByVal VariableID As UShort, ByVal MaxSamples As UShort, ByVal DataSize As UInteger, ByRef numSampleRead As UShort, ByRef readData() As MONDRYRUN, ByRef timeBuffer() As Long, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("MonGetDryRun", New Object() {ChannelID, VariableID, MaxSamples, DataSize}) + numSampleRead = CType(results(1),UShort) + readData = CType(results(2),MONDRYRUN()) + timeBuffer = CType(results(3),Long()) + ErrClass = CType(results(4),UInteger) + ErrNum = CType(results(5),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub MonGetDryRunAsync(ByVal ChannelID As UInteger, ByVal VariableID As UShort, ByVal MaxSamples As UShort, ByVal DataSize As UInteger) + Me.MonGetDryRunAsync(ChannelID, VariableID, MaxSamples, DataSize, Nothing) + End Sub + + ''' + Public Overloads Sub MonGetDryRunAsync(ByVal ChannelID As UInteger, ByVal VariableID As UShort, ByVal MaxSamples As UShort, ByVal DataSize As UInteger, ByVal userState As Object) + If (Me.MonGetDryRunOperationCompleted Is Nothing) Then + Me.MonGetDryRunOperationCompleted = AddressOf Me.OnMonGetDryRunOperationCompleted + End If + Me.InvokeAsync("MonGetDryRun", New Object() {ChannelID, VariableID, MaxSamples, DataSize}, Me.MonGetDryRunOperationCompleted, userState) + End Sub + + Private Sub OnMonGetDryRunOperationCompleted(ByVal arg As Object) + If (Not (Me.MonGetDryRunCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent MonGetDryRunCompleted(Me, New MonGetDryRunCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function MonGetMov(ByVal ChannelID As UInteger, ByVal VariableID As UShort, ByVal MaxSamples As UShort, ByRef numSampleRead As UShort, ByRef readData() As MONENTEMOVI, ByRef timeBuffer() As Long, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("MonGetMov", New Object() {ChannelID, VariableID, MaxSamples}) + numSampleRead = CType(results(1),UShort) + readData = CType(results(2),MONENTEMOVI()) + timeBuffer = CType(results(3),Long()) + ErrClass = CType(results(4),UInteger) + ErrNum = CType(results(5),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub MonGetMovAsync(ByVal ChannelID As UInteger, ByVal VariableID As UShort, ByVal MaxSamples As UShort) + Me.MonGetMovAsync(ChannelID, VariableID, MaxSamples, Nothing) + End Sub + + ''' + Public Overloads Sub MonGetMovAsync(ByVal ChannelID As UInteger, ByVal VariableID As UShort, ByVal MaxSamples As UShort, ByVal userState As Object) + If (Me.MonGetMovOperationCompleted Is Nothing) Then + Me.MonGetMovOperationCompleted = AddressOf Me.OnMonGetMovOperationCompleted + End If + Me.InvokeAsync("MonGetMov", New Object() {ChannelID, VariableID, MaxSamples}, Me.MonGetMovOperationCompleted, userState) + End Sub + + Private Sub OnMonGetMovOperationCompleted(ByVal arg As Object) + If (Not (Me.MonGetMovCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent MonGetMovCompleted(Me, New MonGetMovCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetDriveBasicInfo(ByVal AxisID As UShort, ByRef DriveBasicInfo As DRIVEBASICINFO, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetDriveBasicInfo", New Object() {AxisID}) + DriveBasicInfo = CType(results(1),DRIVEBASICINFO) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetDriveBasicInfoAsync(ByVal AxisID As UShort) + Me.GetDriveBasicInfoAsync(AxisID, Nothing) + End Sub + + ''' + Public Overloads Sub GetDriveBasicInfoAsync(ByVal AxisID As UShort, ByVal userState As Object) + If (Me.GetDriveBasicInfoOperationCompleted Is Nothing) Then + Me.GetDriveBasicInfoOperationCompleted = AddressOf Me.OnGetDriveBasicInfoOperationCompleted + End If + Me.InvokeAsync("GetDriveBasicInfo", New Object() {AxisID}, Me.GetDriveBasicInfoOperationCompleted, userState) + End Sub + + Private Sub OnGetDriveBasicInfoOperationCompleted(ByVal arg As Object) + If (Not (Me.GetDriveBasicInfoCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetDriveBasicInfoCompleted(Me, New GetDriveBasicInfoCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ReadStatistics(ByVal NumVar As UShort, ByRef Value() As Long, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ReadStatistics", New Object() {NumVar}) + Value = CType(results(1),Long()) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ReadStatisticsAsync(ByVal NumVar As UShort) + Me.ReadStatisticsAsync(NumVar, Nothing) + End Sub + + ''' + Public Overloads Sub ReadStatisticsAsync(ByVal NumVar As UShort, ByVal userState As Object) + If (Me.ReadStatisticsOperationCompleted Is Nothing) Then + Me.ReadStatisticsOperationCompleted = AddressOf Me.OnReadStatisticsOperationCompleted + End If + Me.InvokeAsync("ReadStatistics", New Object() {NumVar}, Me.ReadStatisticsOperationCompleted, userState) + End Sub + + Private Sub OnReadStatisticsOperationCompleted(ByVal arg As Object) + If (Not (Me.ReadStatisticsCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ReadStatisticsCompleted(Me, New ReadStatisticsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function ReadStatisticsBaseFrequency(ByRef baseFrequency As Long, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("ReadStatisticsBaseFrequency", New Object(-1) {}) + baseFrequency = CType(results(1),Long) + ErrClass = CType(results(2),UInteger) + ErrNum = CType(results(3),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub ReadStatisticsBaseFrequencyAsync() + Me.ReadStatisticsBaseFrequencyAsync(Nothing) + End Sub + + ''' + Public Overloads Sub ReadStatisticsBaseFrequencyAsync(ByVal userState As Object) + If (Me.ReadStatisticsBaseFrequencyOperationCompleted Is Nothing) Then + Me.ReadStatisticsBaseFrequencyOperationCompleted = AddressOf Me.OnReadStatisticsBaseFrequencyOperationCompleted + End If + Me.InvokeAsync("ReadStatisticsBaseFrequency", New Object(-1) {}, Me.ReadStatisticsBaseFrequencyOperationCompleted, userState) + End Sub + + Private Sub OnReadStatisticsBaseFrequencyOperationCompleted(ByVal arg As Object) + If (Not (Me.ReadStatisticsBaseFrequencyCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ReadStatisticsBaseFrequencyCompleted(Me, New ReadStatisticsBaseFrequencyCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function GetActiveAmp(ByRef ActiveAmp As UShort, ByRef RunningAmp As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("GetActiveAmp", New Object(-1) {}) + ActiveAmp = CType(results(1),UShort) + RunningAmp = CType(results(2),UShort) + ErrClass = CType(results(3),UInteger) + ErrNum = CType(results(4),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub GetActiveAmpAsync() + Me.GetActiveAmpAsync(Nothing) + End Sub + + ''' + Public Overloads Sub GetActiveAmpAsync(ByVal userState As Object) + If (Me.GetActiveAmpOperationCompleted Is Nothing) Then + Me.GetActiveAmpOperationCompleted = AddressOf Me.OnGetActiveAmpOperationCompleted + End If + Me.InvokeAsync("GetActiveAmp", New Object(-1) {}, Me.GetActiveAmpOperationCompleted, userState) + End Sub + + Private Sub OnGetActiveAmpOperationCompleted(ByVal arg As Object) + If (Not (Me.GetActiveAmpCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetActiveAmpCompleted(Me, New GetActiveAmpCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function SetActiveAmp(ByVal ActiveAmp As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort + Dim results() As Object = Me.Invoke("SetActiveAmp", New Object() {ActiveAmp}) + ErrClass = CType(results(1),UInteger) + ErrNum = CType(results(2),UInteger) + Return CType(results(0),UShort) + End Function + + ''' + Public Overloads Sub SetActiveAmpAsync(ByVal ActiveAmp As UShort) + Me.SetActiveAmpAsync(ActiveAmp, Nothing) + End Sub + + ''' + Public Overloads Sub SetActiveAmpAsync(ByVal ActiveAmp As UShort, ByVal userState As Object) + If (Me.SetActiveAmpOperationCompleted Is Nothing) Then + Me.SetActiveAmpOperationCompleted = AddressOf Me.OnSetActiveAmpOperationCompleted + End If + Me.InvokeAsync("SetActiveAmp", New Object() {ActiveAmp}, Me.SetActiveAmpOperationCompleted, userState) + End Sub + + Private Sub OnSetActiveAmpOperationCompleted(ByVal arg As Object) + If (Not (Me.SetActiveAmpCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SetActiveAmpCompleted(Me, New SetActiveAmpCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + Public Shadows Sub CancelAsync(ByVal userState As Object) + MyBase.CancelAsync(userState) + End Sub + + Private Function IsLocalFileSystemWebService(ByVal url As String) As Boolean + If ((url Is Nothing) _ + OrElse (url Is String.Empty)) Then + Return false + End If + Dim wsUri As System.Uri = New System.Uri(url) + If ((wsUri.Port >= 1024) _ + AndAlso (String.Compare(wsUri.Host, "localHost", System.StringComparison.OrdinalIgnoreCase) = 0)) Then + Return true + End If + Return false + End Function + End Class + + ''' + _ + Partial Public Class ORIGINTABLEII + + 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 + End Set + End Property + + ''' + Public Property ExternType() As UShort + Get + Return Me.externTypeField + End Get + Set + Me.externTypeField = value + End Set + End Property + + ''' + Public Property ExternInd() As UShort + Get + Return Me.externIndField + End Get + Set + Me.externIndField = value + End Set + End Property + + ''' + _ + Public Property Descr() As UShort() + Get + Return Me.descrField + End Get + Set + Me.descrField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class DRIVEBASICINFO + + Private vendorIDField As ULong + + Private partNumberCodedField As ULong + + Private partNumberAsciiField() As Byte + + Private serialNumberCodedField As ULong + + Private serialNumberAsciiField() As Byte + + Private firmwareVersionField As ULong + + Private hardwareVersionField As ULong + + ''' + Public Property VendorID() As ULong + Get + Return Me.vendorIDField + End Get + Set + Me.vendorIDField = value + End Set + End Property + + ''' + Public Property PartNumberCoded() As ULong + Get + Return Me.partNumberCodedField + End Get + Set + Me.partNumberCodedField = value + End Set + End Property + + ''' + _ + Public Property PartNumberAscii() As Byte() + Get + Return Me.partNumberAsciiField + End Get + Set + Me.partNumberAsciiField = value + End Set + End Property + + ''' + Public Property SerialNumberCoded() As ULong + Get + Return Me.serialNumberCodedField + End Get + Set + Me.serialNumberCodedField = value + End Set + End Property + + ''' + _ + Public Property SerialNumberAscii() As Byte() + Get + Return Me.serialNumberAsciiField + End Get + Set + Me.serialNumberAsciiField = value + End Set + End Property + + ''' + Public Property FirmwareVersion() As ULong + Get + Return Me.firmwareVersionField + End Get + Set + Me.firmwareVersionField = value + End Set + End Property + + ''' + Public Property HardwareVersion() As ULong + Get + Return Me.hardwareVersionField + End Get + Set + Me.hardwareVersionField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class MONENTEMOVI + + Private contEntiField As ULong + + Private procesIdField As UShort + + Private umField As Byte + + Private movTypeField As Byte + + Private gmodeField As Byte + + Private orarioField As Byte + + Private stopEndMovField As SByte + + Private axNameField() As Byte + + Private pinizialeField() As Double + + Private pfinaleField() As Double + + Private centroField() As Double + + Private helicStepField As Double + + Private versoreOrtogField() As Double + + Private rTVField() As Double + + Private bRKField As Double + + Private tbeginField As Double + + Private tmovField As Double + + Private tendField As Double + + Private lineMainField As ULong + + ''' + Public Property ContEnti() As ULong + Get + Return Me.contEntiField + End Get + Set + Me.contEntiField = value + End Set + End Property + + ''' + Public Property ProcesId() As UShort + Get + Return Me.procesIdField + End Get + Set + Me.procesIdField = value + End Set + End Property + + ''' + Public Property um() As Byte + Get + Return Me.umField + End Get + Set + Me.umField = value + End Set + End Property + + ''' + Public Property MovType() As Byte + Get + Return Me.movTypeField + End Get + Set + Me.movTypeField = value + End Set + End Property + + ''' + Public Property Gmode() As Byte + Get + Return Me.gmodeField + End Get + Set + Me.gmodeField = value + End Set + End Property + + ''' + Public Property Orario() As Byte + Get + Return Me.orarioField + End Get + Set + Me.orarioField = value + End Set + End Property + + ''' + Public Property StopEndMov() As SByte + Get + Return Me.stopEndMovField + End Get + Set + Me.stopEndMovField = value + End Set + End Property + + ''' + _ + Public Property AxName() As Byte() + Get + Return Me.axNameField + End Get + Set + Me.axNameField = value + End Set + End Property + + ''' + _ + Public Property Piniziale() As Double() + Get + Return Me.pinizialeField + End Get + Set + Me.pinizialeField = value + End Set + End Property + + ''' + _ + Public Property Pfinale() As Double() + Get + Return Me.pfinaleField + End Get + Set + Me.pfinaleField = value + End Set + End Property + + ''' + _ + Public Property Centro() As Double() + Get + Return Me.centroField + End Get + Set + Me.centroField = value + End Set + End Property + + ''' + Public Property HelicStep() As Double + Get + Return Me.helicStepField + End Get + Set + Me.helicStepField = value + End Set + End Property + + ''' + _ + Public Property VersoreOrtog() As Double() + Get + Return Me.versoreOrtogField + End Get + Set + Me.versoreOrtogField = value + End Set + End Property + + ''' + _ + Public Property RTV() As Double() + Get + Return Me.rTVField + End Get + Set + Me.rTVField = value + End Set + End Property + + ''' + Public Property BRK() As Double + Get + Return Me.bRKField + End Get + Set + Me.bRKField = value + End Set + End Property + + ''' + Public Property Tbegin() As Double + Get + Return Me.tbeginField + End Get + Set + Me.tbeginField = value + End Set + End Property + + ''' + Public Property Tmov() As Double + Get + Return Me.tmovField + End Get + Set + Me.tmovField = value + End Set + End Property + + ''' + Public Property Tend() As Double + Get + Return Me.tendField + End Get + Set + Me.tendField = value + End Set + End Property + + ''' + Public Property LineMain() As ULong + Get + Return Me.lineMainField + End Get + Set + Me.lineMainField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class statements + + Private blkStatusField As Byte + + Private numCharField As Byte + + Private blockField() As String + + ''' + Public Property BlkStatus() As Byte + Get + Return Me.blkStatusField + End Get + Set + Me.blkStatusField = value + End Set + End Property + + ''' + Public Property NumChar() As Byte + Get + Return Me.numCharField + End Get + Set + Me.numCharField = value + End Set + End Property + + ''' + _ + Public Property Block() As String() + Get + Return Me.blockField + End Get + Set + Me.blockField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class MONDRYRUN + + Private procesIdField As UShort + + Private statementField As statements + + Private umField As Byte + + Private actualToolField() As String + + Private actualToolOffField As UShort + + Private movTypeField As Byte + + Private gmodeField As Byte + + Private orarioField As Byte + + Private visualPntField() As Double + + Private pfinaleField() As Double + + Private centroField() As Double + + Private helicStepField As Double + + Private axNameField() As Byte + + ''' + Public Property ProcesId() As UShort + Get + Return Me.procesIdField + End Get + Set + Me.procesIdField = value + End Set + End Property + + ''' + Public Property Statement() As statements + Get + Return Me.statementField + End Get + Set + Me.statementField = value + End Set + End Property + + ''' + Public Property um() As Byte + Get + Return Me.umField + End Get + Set + Me.umField = value + End Set + End Property + + ''' + _ + Public Property ActualTool() As String() + Get + Return Me.actualToolField + End Get + Set + Me.actualToolField = value + End Set + End Property + + ''' + Public Property ActualToolOff() As UShort + Get + Return Me.actualToolOffField + End Get + Set + Me.actualToolOffField = value + End Set + End Property + + ''' + Public Property MovType() As Byte + Get + Return Me.movTypeField + End Get + Set + Me.movTypeField = value + End Set + End Property + + ''' + Public Property Gmode() As Byte + Get + Return Me.gmodeField + End Get + Set + Me.gmodeField = value + End Set + End Property + + ''' + Public Property Orario() As Byte + Get + Return Me.orarioField + End Get + Set + Me.orarioField = value + End Set + End Property + + ''' + _ + Public Property VisualPnt() As Double() + Get + Return Me.visualPntField + End Get + Set + Me.visualPntField = value + End Set + End Property + + ''' + _ + Public Property Pfinale() As Double() + Get + Return Me.pfinaleField + End Get + Set + Me.pfinaleField = value + End Set + End Property + + ''' + _ + Public Property Centro() As Double() + Get + Return Me.centroField + End Get + Set + Me.centroField = value + End Set + End Property + + ''' + Public Property HelicStep() As Double + Get + Return Me.helicStepField + End Get + Set + Me.helicStepField = value + End Set + End Property + + ''' + _ + Public Property AxName() As Byte() + Get + Return Me.axNameField + End Get + Set + Me.axNameField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class MONVARDESCR + + 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 + End Set + End Property + + ''' + Public Property SubClass() As UShort + Get + Return Me.subClassField + End Get + Set + Me.subClassField = value + End Set + End Property + + ''' + Public Property DeviceID() As UShort + Get + Return Me.deviceIDField + End Get + Set + Me.deviceIDField = value + End Set + End Property + + ''' + Public Property Code() As UShort + Get + Return Me.codeField + End Get + Set + Me.codeField = value + End Set + End Property + + ''' + Public Property Address() As UShort + Get + Return Me.addressField + End Get + Set + Me.addressField = value + End Set + End Property + + ''' + Public Property Signal() As UShort + Get + Return Me.signalField + End Get + Set + Me.signalField = value + End Set + End Property + + ''' + Public Property SamplingPeriod() As Double + Get + Return Me.samplingPeriodField + End Get + Set + Me.samplingPeriodField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class MONCUSTOMEVENTINFO + + 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 + End Set + End Property + + ''' + Public Property Type() As UShort + Get + Return Me.typeField + End Get + Set + Me.typeField = value + End Set + End Property + + ''' + _ + Public Property Name() As String + Get + Return Me.nameField + End Get + Set + Me.nameField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class DEFRAME + + 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 + End Set + End Property + + ''' + Public Property col() As UShort + Get + Return Me.colField + End Get + Set + Me.colField = value + End Set + End Property + + ''' + Public Property len() As UShort + Get + Return Me.lenField + End Get + Set + Me.lenField = value + End Set + End Property + + ''' + _ + Public Property text() As Byte() + Get + Return Me.textField + End Get + Set + Me.textField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class DEFIELDCONTROL + + 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 + End Set + End Property + + ''' + _ + Public Property rangebyte() As Byte() + Get + Return Me.rangebyteField + End Get + Set + Me.rangebyteField = value + End Set + End Property + + ''' + _ + Public Property rangeint() As Short() + Get + Return Me.rangeintField + End Get + Set + Me.rangeintField = value + End Set + End Property + + ''' + _ + Public Property rangelong() As Long() + Get + Return Me.rangelongField + End Get + Set + Me.rangelongField = value + End Set + End Property + + ''' + _ + Public Property rangeuint() As UShort() + Get + Return Me.rangeuintField + End Get + Set + Me.rangeuintField = value + End Set + End Property + + ''' + _ + Public Property rangeulong() As ULong() + Get + Return Me.rangeulongField + End Get + Set + Me.rangeulongField = value + End Set + End Property + + ''' + _ + Public Property rangefloat() As Double() + Get + Return Me.rangefloatField + End Get + Set + Me.rangefloatField = value + End Set + End Property + + ''' + _ + Public Property rangedouble() As Double() + Get + Return Me.rangedoubleField + End Get + Set + Me.rangedoubleField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class DEFIELDCHECK + + Private convField As Byte + + Private valueField As DEFIELDCONTROL + + ''' + Public Property conv() As Byte + Get + Return Me.convField + End Get + Set + Me.convField = value + End Set + End Property + + ''' + Public Property value() As DEFIELDCONTROL + Get + Return Me.valueField + End Get + Set + Me.valueField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class DEFIELD + + 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 + End Set + End Property + + ''' + Public Property col() As UShort + Get + Return Me.colField + End Get + Set + Me.colField = value + End Set + End Property + + ''' + Public Property type() As Byte + Get + Return Me.typeField + End Get + Set + Me.typeField = value + End Set + End Property + + ''' + Public Property myId() As Byte + Get + Return Me.myIdField + End Get + Set + Me.myIdField = value + End Set + End Property + + ''' + Public Property size() As UShort + Get + Return Me.sizeField + End Get + Set + Me.sizeField = value + End Set + End Property + + ''' + Public Property disSize() As UShort + Get + Return Me.disSizeField + End Get + Set + Me.disSizeField = value + End Set + End Property + + ''' + Public Property check() As DEFIELDCHECK + Get + Return Me.checkField + End Get + Set + Me.checkField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class DEKEY + + 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 + End Set + End Property + + ''' + _ + Public Property confirm1() As Byte() + Get + Return Me.confirm1Field + End Get + Set + Me.confirm1Field = value + End Set + End Property + + ''' + _ + Public Property confirm2() As Byte() + Get + Return Me.confirm2Field + End Get + Set + Me.confirm2Field = value + End Set + End Property + + ''' + _ + Public Property confirm3() As Byte() + Get + Return Me.confirm3Field + End Get + Set + Me.confirm3Field = value + End Set + End Property + + ''' + _ + Public Property reset() As Byte() + Get + Return Me.resetField + End Get + Set + Me.resetField = value + End Set + End Property + + ''' + _ + Public Property incres() As Byte() + Get + Return Me.incresField + End Get + Set + Me.incresField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class USERINPTAB + + 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 + End Set + End Property + + ''' + Public Property iniRow() As Byte + Get + Return Me.iniRowField + End Get + Set + Me.iniRowField = value + End Set + End Property + + ''' + Public Property iniCol() As Byte + Get + Return Me.iniColField + End Get + Set + Me.iniColField = value + End Set + End Property + + ''' + Public Property totRow() As Byte + Get + Return Me.totRowField + End Get + Set + Me.totRowField = value + End Set + End Property + + ''' + Public Property totCol() As Byte + Get + Return Me.totColField + End Get + Set + Me.totColField = value + End Set + End Property + + ''' + Public Property myType() As Byte + Get + Return Me.myTypeField + End Get + Set + Me.myTypeField = value + End Set + End Property + + ''' + _ + Public Property help() As Byte() + Get + Return Me.helpField + End Get + Set + Me.helpField = value + End Set + End Property + + ''' + Public Property totFrame() As Byte + Get + Return Me.totFrameField + End Get + Set + Me.totFrameField = value + End Set + End Property + + ''' + Public Property totField() As Byte + Get + Return Me.totFieldField + End Get + Set + Me.totFieldField = value + End Set + End Property + + ''' + Public Property key() As DEKEY + Get + Return Me.keyField + End Get + Set + Me.keyField = value + End Set + End Property + + ''' + _ + Public Property fld() As DEFIELD() + Get + Return Me.fldField + End Get + Set + Me.fldField = value + End Set + End Property + + ''' + _ + Public Property frm() As DEFRAME() + Get + Return Me.frmField + End Get + Set + Me.frmField = value + End Set + End Property + + ''' + _ + Public Property strDef1() As Byte() + Get + Return Me.strDef1Field + End Get + Set + Me.strDef1Field = value + End Set + End Property + + ''' + _ + Public Property strDef2() As Byte() + Get + Return Me.strDef2Field + End Get + Set + Me.strDef2Field = value + End Set + End Property + + ''' + _ + Public Property strDef3() As Byte() + Get + Return Me.strDef3Field + End Get + Set + Me.strDef3Field = value + End Set + End Property + + ''' + _ + Public Property strDef4() As Byte() + Get + Return Me.strDef4Field + End Get + Set + Me.strDef4Field = value + End Set + End Property + + ''' + _ + Public Property strDef5() As Byte() + Get + Return Me.strDef5Field + End Get + Set + Me.strDef5Field = value + End Set + End Property + + ''' + _ + Public Property strDef6() As Byte() + Get + Return Me.strDef6Field + End Get + Set + Me.strDef6Field = value + End Set + End Property + + ''' + _ + Public Property strDef7() As Byte() + Get + Return Me.strDef7Field + End Get + Set + Me.strDef7Field = value + End Set + End Property + + ''' + _ + Public Property strDef8() As Byte() + Get + Return Me.strDef8Field + End Get + Set + Me.strDef8Field = value + End Set + End Property + + ''' + _ + Public Property decolor() As ULong() + Get + Return Me.decolorField + End Get + Set + Me.decolorField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class INPUTINFO + + 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 + End Set + End Property + + ''' + Public Property isInInput() As Byte + Get + Return Me.isInInputField + End Get + Set + Me.isInInputField = value + End Set + End Property + + ''' + Public Property Data() As USERINPTAB + Get + Return Me.dataField + End Get + Set + Me.dataField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class SECUR + + Private securLevelField As UShort + + Private enabStrField() As Byte + + Private key1Field() As Byte + + Private key2Field() As Byte + + Private key3Field() As Byte + + ''' + Public Property SecurLevel() As UShort + Get + Return Me.securLevelField + End Get + Set + Me.securLevelField = value + End Set + End Property + + ''' + _ + Public Property EnabStr() As Byte() + Get + Return Me.enabStrField + End Get + Set + Me.enabStrField = value + End Set + End Property + + ''' + _ + Public Property Key1() As Byte() + Get + Return Me.key1Field + End Get + Set + Me.key1Field = value + End Set + End Property + + ''' + _ + Public Property Key2() As Byte() + Get + Return Me.key2Field + End Get + Set + Me.key2Field = value + End Set + End Property + + ''' + _ + Public Property Key3() As Byte() + Get + Return Me.key3Field + End Get + Set + Me.key3Field = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class LEVEL + + Private passwField() As Byte + + Private enabStrField() As Byte + + Private ctrlField() As Byte + + ''' + _ + Public Property Passw() As Byte() + Get + Return Me.passwField + End Get + Set + Me.passwField = value + End Set + End Property + + ''' + _ + Public Property EnabStr() As Byte() + Get + Return Me.enabStrField + End Get + Set + Me.enabStrField = value + End Set + End Property + + ''' + _ + Public Property Ctrl() As Byte() + Get + Return Me.ctrlField + End Get + Set + Me.ctrlField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class SECURDATA + + Private levelInfoField() As LEVEL + + Private securInfoField As SECUR + + ''' + _ + Public Property LevelInfo() As LEVEL() + Get + Return Me.levelInfoField + End Get + Set + Me.levelInfoField = value + End Set + End Property + + ''' + Public Property SecurInfo() As SECUR + Get + Return Me.securInfoField + End Get + Set + Me.securInfoField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class REMAPDEF + + 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 + End Set + End Property + + ''' + Public Property PhysAddr() As UShort + Get + Return Me.physAddrField + End Get + Set + Me.physAddrField = value + End Set + End Property + + ''' + Public Property PhysBit() As Byte + Get + Return Me.physBitField + End Get + Set + Me.physBitField = value + End Set + End Property + + ''' + Public Property LogicAddr() As UShort + Get + Return Me.logicAddrField + End Get + Set + Me.logicAddrField = value + End Set + End Property + + ''' + Public Property LogicBit() As Byte + Get + Return Me.logicBitField + End Get + Set + Me.logicBitField = value + End Set + End Property + + ''' + Public Property Mode() As Byte + Get + Return Me.modeField + End Get + Set + Me.modeField = value + End Set + End Property + + ''' + Public Property RiseTime() As UInteger + Get + Return Me.riseTimeField + End Get + Set + Me.riseTimeField = value + End Set + End Property + + ''' + Public Property FallTime() As UInteger + Get + Return Me.fallTimeField + End Get + Set + Me.fallTimeField = value + End Set + End Property + + ''' + Public Property Value() As UInteger + Get + Return Me.valueField + End Get + Set + Me.valueField = value + End Set + End Property + + ''' + Public Property IOMsgId() As UInteger + Get + Return Me.iOMsgIdField + End Get + Set + Me.iOMsgIdField = value + End Set + End Property + + ''' + Public Property IOClass() As Byte + Get + Return Me.iOClassField + End Get + Set + Me.iOClassField = value + End Set + End Property + + ''' + Public Property CurrPhysValue() As UInteger + Get + Return Me.currPhysValueField + End Get + Set + Me.currPhysValueField = value + End Set + End Property + + ''' + Public Property CurrLogicValue() As UInteger + Get + Return Me.currLogicValueField + End Get + Set + Me.currLogicValueField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class MARKERINFO + + 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 + End Set + End Property + + ''' + _ + Public Property LineNum() As UInteger() + Get + Return Me.lineNumField + End Get + Set + Me.lineNumField = value + End Set + End Property + + ''' + _ + Public Property NumBlks() As UInteger() + Get + Return Me.numBlksField + End Get + Set + Me.numBlksField = value + End Set + End Property + + ''' + _ + Public Property MarkerName() As Byte()() + Get + Return Me.markerNameField + End Get + Set + Me.markerNameField = value + End Set + End Property + + ''' + _ + Public Property PPname() As Byte()() + Get + Return Me.pPnameField + End Get + Set + Me.pPnameField = value + End Set + End Property + + ''' + Public Property breakVal() As UInteger + Get + Return Me.breakValField + End Get + Set + Me.breakValField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class MSGANOMALY + + 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 + End Set + End Property + + ''' + Public Property SystemTime() As SYSTEMTIMECNDEX + Get + Return Me.systemTimeField + End Get + Set + Me.systemTimeField = value + End Set + End Property + + ''' + Public Property UnIdSeq() As UInteger + Get + Return Me.unIdSeqField + End Get + Set + Me.unIdSeqField = value + End Set + End Property + + ''' + _ + Public Property CodeErr() As UInteger + Get + Return Me.codeErrField + End Get + Set + Me.codeErrField = value + End Set + End Property + + ''' + Public Property Linea() As UInteger + Get + Return Me.lineaField + End Get + Set + Me.lineaField = value + End Set + End Property + + ''' + _ + Public Property FormatTxt() As Byte() + Get + Return Me.formatTxtField + End Get + Set + Me.formatTxtField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class SYSTEMTIMECNDEX + + 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 + End Set + End Property + + ''' + Public Property wMonth() As UShort + Get + Return Me.wMonthField + End Get + Set + Me.wMonthField = value + End Set + End Property + + ''' + Public Property wDayOfWeek() As UShort + Get + Return Me.wDayOfWeekField + End Get + Set + Me.wDayOfWeekField = value + End Set + End Property + + ''' + Public Property wDay() As UShort + Get + Return Me.wDayField + End Get + Set + Me.wDayField = value + End Set + End Property + + ''' + Public Property wHour() As UShort + Get + Return Me.wHourField + End Get + Set + Me.wHourField = value + End Set + End Property + + ''' + Public Property wMinute() As UShort + Get + Return Me.wMinuteField + End Get + Set + Me.wMinuteField = value + End Set + End Property + + ''' + Public Property wSecond() As UShort + Get + Return Me.wSecondField + End Get + Set + Me.wSecondField = value + End Set + End Property + + ''' + Public Property wMilliseconds() As UShort + Get + Return Me.wMillisecondsField + End Get + Set + Me.wMillisecondsField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class MSGLOGS + + 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 + End Set + End Property + + ''' + Public Property SystemTime() As SYSTEMTIMECNDEX + Get + Return Me.systemTimeField + End Get + Set + Me.systemTimeField = value + End Set + End Property + + ''' + Public Property UnIdSeq() As UInteger + Get + Return Me.unIdSeqField + End Get + Set + Me.unIdSeqField = value + End Set + End Property + + ''' + _ + Public Property CodeLog() As UInteger + Get + Return Me.codeLogField + End Get + Set + Me.codeLogField = value + End Set + End Property + + ''' + _ + Public Property Errinfo() As UInteger + Get + Return Me.errinfoField + End Get + Set + Me.errinfoField = value + End Set + End Property + + ''' + _ + Public Property FormatTxt() As Byte() + Get + Return Me.formatTxtField + End Get + Set + Me.formatTxtField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class MSGERROR + + 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 + End Set + End Property + + ''' + Public Property SystemTime() As SYSTEMTIMECNDEX + Get + Return Me.systemTimeField + End Get + Set + Me.systemTimeField = value + End Set + End Property + + ''' + Public Property UnIdSeq() As UInteger + Get + Return Me.unIdSeqField + End Get + Set + Me.unIdSeqField = value + End Set + End Property + + ''' + _ + Public Property CodeErr() As UInteger + Get + Return Me.codeErrField + End Get + Set + Me.codeErrField = value + End Set + End Property + + ''' + Public Property Process() As Short + Get + Return Me.processField + End Get + Set + Me.processField = value + End Set + End Property + + ''' + Public Property Comando() As SByte + Get + Return Me.comandoField + End Get + Set + Me.comandoField = value + End Set + End Property + + ''' + Public Property SubCom() As SByte + Get + Return Me.subComField + End Get + Set + Me.subComField = value + End Set + End Property + + ''' + _ + Public Property FormatTxt() As Byte() + Get + Return Me.formatTxtField + End Get + Set + Me.formatTxtField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class MSGEMERGENCY + + 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 + End Set + End Property + + ''' + Public Property SystemTime() As SYSTEMTIMECNDEX + Get + Return Me.systemTimeField + End Get + Set + Me.systemTimeField = value + End Set + End Property + + ''' + Public Property UnIdSeq() As UInteger + Get + Return Me.unIdSeqField + End Get + Set + Me.unIdSeqField = value + End Set + End Property + + ''' + _ + Public Property CodeErr() As UInteger + Get + Return Me.codeErrField + End Get + Set + Me.codeErrField = value + End Set + End Property + + ''' + Public Property Process() As Short + Get + Return Me.processField + End Get + Set + Me.processField = value + End Set + End Property + + ''' + _ + Public Property ProcErr() As Short + Get + Return Me.procErrField + End Get + Set + Me.procErrField = value + End Set + End Property + + ''' + _ + Public Property FormatTxt() As Byte() + Get + Return Me.formatTxtField + End Get + Set + Me.formatTxtField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class FILEFINDDATA + + 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 + End Set + End Property + + ''' + Public Property LowDateCreationTime() As UInteger + Get + Return Me.lowDateCreationTimeField + End Get + Set + Me.lowDateCreationTimeField = value + End Set + End Property + + ''' + Public Property HighDateCreationTime() As UInteger + Get + Return Me.highDateCreationTimeField + End Get + Set + Me.highDateCreationTimeField = value + End Set + End Property + + ''' + Public Property LowDateLastAccessTime() As UInteger + Get + Return Me.lowDateLastAccessTimeField + End Get + Set + Me.lowDateLastAccessTimeField = value + End Set + End Property + + ''' + Public Property HighDateLastAccessTime() As UInteger + Get + Return Me.highDateLastAccessTimeField + End Get + Set + Me.highDateLastAccessTimeField = value + End Set + End Property + + ''' + Public Property LowDateLastWriteTime() As UInteger + Get + Return Me.lowDateLastWriteTimeField + End Get + Set + Me.lowDateLastWriteTimeField = value + End Set + End Property + + ''' + Public Property HighDateLastWriteTime() As UInteger + Get + Return Me.highDateLastWriteTimeField + End Get + Set + Me.highDateLastWriteTimeField = value + End Set + End Property + + ''' + Public Property FileSizeHigh() As UInteger + Get + Return Me.fileSizeHighField + End Get + Set + Me.fileSizeHighField = value + End Set + End Property + + ''' + Public Property FileSizeLow() As UInteger + Get + Return Me.fileSizeLowField + End Get + Set + Me.fileSizeLowField = value + End Set + End Property + + ''' + _ + Public Property FileName() As String + Get + Return Me.fileNameField + End Get + Set + Me.fileNameField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class ERRMSG + + 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 + End Set + End Property + + ''' + _ + Public Property Msg2() As String + Get + Return Me.msg2Field + End Get + Set + Me.msg2Field = value + End Set + End Property + + ''' + _ + Public Property Msg3() As String + Get + Return Me.msg3Field + End Get + Set + Me.msg3Field = value + End Set + End Property + + ''' + _ + Public Property Msg4() As String + Get + Return Me.msg4Field + End Get + Set + Me.msg4Field = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class GETBLKNUMDATA + + 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 + End Set + End Property + + ''' + Public Property MainActBlk() As UInteger + Get + Return Me.mainActBlkField + End Get + Set + Me.mainActBlkField = value + End Set + End Property + + ''' + Public Property Sbr1ActBlk() As UInteger + Get + Return Me.sbr1ActBlkField + End Get + Set + Me.sbr1ActBlkField = value + End Set + End Property + + ''' + Public Property Sbr2ActBlk() As UInteger + Get + Return Me.sbr2ActBlkField + End Get + Set + Me.sbr2ActBlkField = value + End Set + End Property + + ''' + Public Property Sbr3ActBlk() As UInteger + Get + Return Me.sbr3ActBlkField + End Get + Set + Me.sbr3ActBlkField = value + End Set + End Property + + ''' + Public Property Sbr4ActBlk() As UInteger + Get + Return Me.sbr4ActBlkField + End Get + Set + Me.sbr4ActBlkField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class PROCDATA + + 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 + End Set + End Property + + ''' + Public Property Status() As UShort + Get + Return Me.statusField + End Get + Set + Me.statusField = value + End Set + End Property + + ''' + Public Property SubStatus() As UShort + Get + Return Me.subStatusField + End Get + Set + Me.subStatusField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class GETINFO2DATA + + 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 + End Set + End Property + + ''' + Public Property Urp() As Double + Get + Return Me.urpField + End Get + Set + Me.urpField = value + End Set + End Property + + ''' + Public Property ActTool() As Double + Get + Return Me.actToolField + End Get + Set + Me.actToolField = value + End Set + End Property + + ''' + Public Property ActOffset() As UShort + Get + Return Me.actOffsetField + End Get + Set + Me.actOffsetField = value + End Set + End Property + + ''' + Public Property ProgTool() As Double + Get + Return Me.progToolField + End Get + Set + Me.progToolField = value + End Set + End Property + + ''' + Public Property ProgOffset() As UShort + Get + Return Me.progOffsetField + End Get + Set + Me.progOffsetField = value + End Set + End Property + + ''' + _ + Public Property MStatus() As UShort + Get + Return Me.mStatusField + End Get + Set + Me.mStatusField = value + End Set + End Property + + ''' + _ + Public Property MValue() As UShort() + Get + Return Me.mValueField + End Get + Set + Me.mValueField = value + End Set + End Property + + ''' + Public Property Ax1Name() As Byte + Get + Return Me.ax1NameField + End Get + Set + Me.ax1NameField = value + End Set + End Property + + ''' + Public Property Ax1Offset() As Double + Get + Return Me.ax1OffsetField + End Get + Set + Me.ax1OffsetField = value + End Set + End Property + + ''' + Public Property Ax2Name() As Byte + Get + Return Me.ax2NameField + End Get + Set + Me.ax2NameField = value + End Set + End Property + + ''' + Public Property Ax2Offset() As Double + Get + Return Me.ax2OffsetField + End Get + Set + Me.ax2OffsetField = value + End Set + End Property + + ''' + Public Property Radius() As Double + Get + Return Me.radiusField + End Get + Set + Me.radiusField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class GETINFO1DATA + + 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 + End Set + End Property + + ''' + Public Property substatus() As Byte + Get + Return Me.substatusField + End Get + Set + Me.substatusField = value + End Set + End Property + + ''' + _ + Public Property modeselect() As Byte + Get + Return Me.modeselectField + End Get + Set + Me.modeselectField = value + End Set + End Property + + ''' + _ + Public Property jogdir() As Byte + Get + Return Me.jogdirField + End Get + Set + Me.jogdirField = value + End Set + End Property + + ''' + _ + Public Property speedov() As UShort + Get + Return Me.speedovField + End Get + Set + Me.speedovField = value + End Set + End Property + + ''' + _ + Public Property feedov() As UShort + Get + Return Me.feedovField + End Get + Set + Me.feedovField = value + End Set + End Property + + ''' + _ + Public Property rapfeedov() As UShort + Get + Return Me.rapfeedovField + End Get + Set + Me.rapfeedovField = value + End Set + End Property + + ''' + _ + Public Property manfeedov() As UShort + Get + Return Me.manfeedovField + End Get + Set + Me.manfeedovField = value + End Set + End Property + + ''' + _ + Public Property jogincr() As Double + Get + Return Me.jogincrField + End Get + Set + Me.jogincrField = value + End Set + End Property + + ''' + _ + Public Property numaxsel() As Byte + Get + Return Me.numaxselField + End Get + Set + Me.numaxselField = value + End Set + End Property + + ''' + _ + Public Property axsel() As Byte() + Get + Return Me.axselField + End Get + Set + Me.axselField = value + End Set + End Property + + ''' + _ + Public Property actualtool() As Double + Get + Return Me.actualtoolField + End Get + Set + Me.actualtoolField = value + End Set + End Property + + ''' + _ + Public Property progrtool() As Double + Get + Return Me.progrtoolField + End Get + Set + Me.progrtoolField = value + End Set + End Property + + ''' + _ + Public Property actualtooloff() As UShort + Get + Return Me.actualtooloffField + End Get + Set + Me.actualtooloffField = value + End Set + End Property + + ''' + _ + Public Property progrtooloff() As UShort + Get + Return Me.progrtooloffField + End Get + Set + Me.progrtooloffField = value + End Set + End Property + + ''' + _ + Public Property realspeed() As Double + Get + Return Me.realspeedField + End Get + Set + Me.realspeedField = value + End Set + End Property + + ''' + _ + Public Property progrspeed() As Double + Get + Return Me.progrspeedField + End Get + Set + Me.progrspeedField = value + End Set + End Property + + ''' + _ + Public Property progrfeed() As Double + Get + Return Me.progrfeedField + End Get + Set + Me.progrfeedField = value + End Set + End Property + + ''' + _ + Public Property rapidfeed() As Double + Get + Return Me.rapidfeedField + End Get + Set + Me.rapidfeedField = value + End Set + End Property + + ''' + _ + Public Property realfeed() As Double + Get + Return Me.realfeedField + End Get + Set + Me.realfeedField = value + End Set + End Property + + ''' + _ + Public Property feedmisunit() As UShort + Get + Return Me.feedmisunitField + End Get + Set + Me.feedmisunitField = value + End Set + End Property + + ''' + _ + Public Property mainprogrname() As String + Get + Return Me.mainprogrnameField + End Get + Set + Me.mainprogrnameField = value + End Set + End Property + + ''' + _ + Public Property dryrun() As Byte + Get + Return Me.dryrunField + End Get + Set + Me.dryrunField = value + End Set + End Property + + ''' + _ + Public Property rapidoverride() As Byte + Get + Return Me.rapidoverrideField + End Get + Set + Me.rapidoverrideField = value + End Set + End Property + + ''' + _ + Public Property disableslashedblk() As Byte + Get + Return Me.disableslashedblkField + End Get + Set + Me.disableslashedblkField = value + End Set + End Property + + ''' + _ + Public Property optionalstop() As Byte + Get + Return Me.optionalstopField + End Get + Set + Me.optionalstopField = value + End Set + End Property + + ''' + _ + Public Property forcerapidfeed() As Byte + Get + Return Me.forcerapidfeedField + End Get + Set + Me.forcerapidfeedField = value + End Set + End Property + + ''' + _ + Public Property autojogret() As Byte + Get + Return Me.autojogretField + End Get + Set + Me.autojogretField = value + End Set + End Property + + ''' + _ + Public Property blockretrace() As Byte + Get + Return Me.blockretraceField + End Get + Set + Me.blockretraceField = value + End Set + End Property + + ''' + _ + Public Property lastncerror() As UShort + Get + Return Me.lastncerrorField + End Get + Set + Me.lastncerrorField = value + End Set + End Property + + ''' + _ + Public Property free() As String + Get + Return Me.freeField + End Get + Set + Me.freeField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class GETINTDATA + + 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 + End Set + End Property + + ''' + Public Property mode() As Byte + Get + Return Me.modeField + End Get + Set + Me.modeField = value + End Set + End Property + + ''' + Public Property position() As Double + Get + Return Me.positionField + End Get + Set + Me.positionField = value + End Set + End Property + + ''' + Public Property TotalOffset() As Double + Get + Return Me.totalOffsetField + End Get + Set + Me.totalOffsetField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class AXORIGNUM + + 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 + End Set + End Property + + ''' + Public Property OriginNumber() As Byte + Get + Return Me.originNumberField + End Get + Set + Me.originNumberField = value + End Set + End Property + + ''' + Public Property OriginFlag() As UShort + Get + Return Me.originFlagField + End Get + Set + Me.originFlagField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class POCKETTABLEII + + Private statusField As Short + + Private isRandomField As Short + + Private typeField As Short + + Private classField As Short + + Private toolIndField As Short + + Private descrField() As UShort + + ''' + Public Property Status() As Short + Get + Return Me.statusField + End Get + Set + Me.statusField = value + End Set + End Property + + ''' + Public Property isRandom() As Short + Get + Return Me.isRandomField + End Get + Set + Me.isRandomField = value + End Set + End Property + + ''' + Public Property Type() As Short + Get + Return Me.typeField + End Get + Set + Me.typeField = value + End Set + End Property + + ''' + Public Property [Class]() As Short + Get + Return Me.classField + End Get + Set + Me.classField = value + End Set + End Property + + ''' + Public Property ToolInd() As Short + Get + Return Me.toolIndField + End Get + Set + Me.toolIndField = value + End Set + End Property + + ''' + _ + Public Property Descr() As UShort() + Get + Return Me.descrField + End Get + Set + Me.descrField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class MAGAZINETABLEII + + Private typeField As Short + + Private numPocketsField As Short + + Private rowPocketsField As Short + + Private externTypeField As Short + + Private externIndField As Short + + Private duserField() As Double + + Private suserField() As Short + + Private descrField() As UShort + + ''' + Public Property Type() As Short + Get + Return Me.typeField + End Get + Set + Me.typeField = value + End Set + End Property + + ''' + Public Property NumPockets() As Short + Get + Return Me.numPocketsField + End Get + Set + Me.numPocketsField = value + End Set + End Property + + ''' + Public Property RowPockets() As Short + Get + Return Me.rowPocketsField + End Get + Set + Me.rowPocketsField = value + End Set + End Property + + ''' + Public Property ExternType() As Short + Get + Return Me.externTypeField + End Get + Set + Me.externTypeField = value + End Set + End Property + + ''' + Public Property ExternInd() As Short + Get + Return Me.externIndField + End Get + Set + Me.externIndField = value + End Set + End Property + + ''' + _ + Public Property Duser() As Double() + Get + Return Me.duserField + End Get + Set + Me.duserField = value + End Set + End Property + + ''' + _ + Public Property Suser() As Short() + Get + Return Me.suserField + End Get + Set + Me.suserField = value + End Set + End Property + + ''' + _ + Public Property Descr() As UShort() + Get + Return Me.descrField + End Get + Set + Me.descrField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class USERTABLEII + + Private userValField() As Double + + ''' + _ + Public Property UserVal() As Double() + Get + Return Me.userValField + End Get + Set + Me.userValField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class OFFSETVALII + + 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 + End Set + End Property + + ''' + Public Property MaxChangeVal() As Double + Get + Return Me.maxChangeValField + End Get + Set + Me.maxChangeValField = value + End Set + End Property + + ''' + Public Property ActChangeVal() As Double + Get + Return Me.actChangeValField + End Get + Set + Me.actChangeValField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class OFFSETTABLEII + + 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 + End Set + End Property + + ''' + _ + Public Property DiaVal() As OFFSETVALII() + Get + Return Me.diaValField + End Get + Set + Me.diaValField = value + End Set + End Property + + ''' + Public Property Orient() As UShort + Get + Return Me.orientField + End Get + Set + Me.orientField = value + End Set + End Property + + ''' + Public Property ExternType() As UShort + Get + Return Me.externTypeField + End Get + Set + Me.externTypeField = value + End Set + End Property + + ''' + Public Property ExternInd() As UShort + Get + Return Me.externIndField + End Get + Set + Me.externIndField = value + End Set + End Property + + ''' + _ + Public Property Duser() As Double() + Get + Return Me.duserField + End Get + Set + Me.duserField = value + End Set + End Property + + ''' + _ + Public Property Suser() As Short() + Get + Return Me.suserField + End Get + Set + Me.suserField = value + End Set + End Property + + ''' + _ + Public Property Descr() As UShort() + Get + Return Me.descrField + End Get + Set + Me.descrField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class TOOLTABLEII + + 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 + End Set + End Property + + ''' + Public Property Status() As UShort + Get + Return Me.statusField + End Get + Set + Me.statusField = value + End Set + End Property + + ''' + Public Property LifeType() As UShort + Get + Return Me.lifeTypeField + End Get + Set + Me.lifeTypeField = value + End Set + End Property + + ''' + Public Property MaxLife() As Double + Get + Return Me.maxLifeField + End Get + Set + Me.maxLifeField = value + End Set + End Property + + ''' + Public Property RemLife() As Double + Get + Return Me.remLifeField + End Get + Set + Me.remLifeField = value + End Set + End Property + + ''' + Public Property OffsNum() As UShort + Get + Return Me.offsNumField + End Get + Set + Me.offsNumField = value + End Set + End Property + + ''' + Public Property ExternType() As UShort + Get + Return Me.externTypeField + End Get + Set + Me.externTypeField = value + End Set + End Property + + ''' + Public Property ExternInd() As UShort + Get + Return Me.externIndField + End Get + Set + Me.externIndField = value + End Set + End Property + + ''' + _ + Public Property Duser() As Double() + Get + Return Me.duserField + End Get + Set + Me.duserField = value + End Set + End Property + + ''' + _ + Public Property Suser() As Short() + Get + Return Me.suserField + End Get + Set + Me.suserField = value + End Set + End Property + + ''' + _ + Public Property Descr() As UShort() + Get + Return Me.descrField + End Get + Set + Me.descrField = value + End Set + End Property + End Class + + ''' + _ + Public Enum TABLETYPEII + + ''' + _ + TabTypeTools + + ''' + _ + TabTypeOffsets + + ''' + _ + TabTypeOrigins + + ''' + _ + TabTypeUser + End Enum + + ''' + _ + Public Enum PROCWORDVARTYPE + + ''' + _ + PROCWORDVARRCM + + ''' + _ + PROCWORDVARARM + + ''' + _ + PROCWORDVARDPS + + ''' + _ + PROCWORDVARRAP + + ''' + _ + PROCWORDVARTRP + + ''' + _ + PROCWORDVARVFF + + ''' + _ + PROCWORDVARUVR + + ''' + _ + PROCWORDVARDLA + + ''' + _ + PROCWORDVARMBR + + ''' + _ + PROCWORDVARURL + + ''' + _ + PROCWORDVARDSB + + ''' + _ + PROCWORDVARUSO + + ''' + _ + PROCWORDVARERR + + ''' + _ + PROCWORDVARHMP + + ''' + _ + PROCWORDVARUAS + + ''' + _ + PROCWORDVARMBA + + ''' + _ + PROCWORDVARREM + End Enum + + ''' + _ + Public Enum PROCDOUBLEVARTYPE + + ''' + _ + PROCDOUBLEVARURP + + ''' + _ + PROCDOUBLEVARDWT + + ''' + _ + PROCDOUBLEVARJOG + + ''' + _ + PROCDOUBLEVARMDA + + ''' + _ + PROCDOUBLEVARMSA + + ''' + _ + PROCDOUBLEVARSSL + + ''' + _ + PROCDOUBLEVARVEF + + ''' + _ + PROCDOUBLEVARUPO + + ''' + _ + PROCDOUBLEVARUPA + + ''' + _ + PROCDOUBLEVARCET + + ''' + _ + PROCDOUBLEVARFCT + + ''' + _ + PROCDOUBLEVARMBRLEN + + ''' + _ + PROCDOUBLEVARMBRTHR + End Enum + + ''' + _ + Public Enum RCMTOMODE + + ''' + _ + RCMTOTO + + ''' + _ + RCMTONEXT + End Enum + + ''' + _ + Public Enum SECURITYLEVEL + + ''' + _ + SECURITYLEVELADMIN + + ''' + _ + SECURITYLEVELSERVICE + + ''' + _ + SECURITYLEVELOEMADMIN + + ''' + _ + SECURITYLEVELOEMSERVICE + + ''' + _ + SECURITYLEVELUSERADMIN + + ''' + _ + SECURITYLEVELUSERSERVICE + End Enum + + ''' + _ + Public Delegate Sub BootPhaseEnquiryCompletedEventHandler(ByVal sender As Object, ByVal e As BootPhaseEnquiryCompletedEventArgs) + + ''' + _ + Partial Public Class BootPhaseEnquiryCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Phase() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub BootRebootCompletedEventHandler(ByVal sender As Object, ByVal e As BootRebootCompletedEventArgs) + + ''' + _ + Partial Public Class BootRebootCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub BootShutDownCompletedEventHandler(ByVal sender As Object, ByVal e As BootShutDownCompletedEventArgs) + + ''' + _ + Partial Public Class BootShutDownCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub BootModeCompletedEventHandler(ByVal sender As Object, ByVal e As BootModeCompletedEventArgs) + + ''' + _ + Partial Public Class BootModeCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetHWKeyCompletedEventHandler(ByVal sender As Object, ByVal e As GetHWKeyCompletedEventArgs) + + ''' + _ + Partial Public Class GetHWKeyCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property HwKey() As Byte() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Byte()) + End Get + End Property + + ''' + Public ReadOnly Property SecurLevel() As Byte() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),Byte()) + End Get + End Property + + ''' + Public ReadOnly Property Release() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),String) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(5),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ReadVarWordCompletedEventHandler(ByVal sender As Object, ByVal e As ReadVarWordCompletedEventArgs) + + ''' + _ + Partial Public Class ReadVarWordCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Value() As UShort() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UShort()) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ReadVarDoubleCompletedEventHandler(ByVal sender As Object, ByVal e As ReadVarDoubleCompletedEventArgs) + + ''' + _ + Partial Public Class ReadVarDoubleCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Value() As Double() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Double()) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub WriteVarWordCompletedEventHandler(ByVal sender As Object, ByVal e As WriteVarWordCompletedEventArgs) + + ''' + _ + Partial Public Class WriteVarWordCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub WriteVarWordBitCompletedEventHandler(ByVal sender As Object, ByVal e As WriteVarWordBitCompletedEventArgs) + + ''' + _ + Partial Public Class WriteVarWordBitCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub WriteVarDoubleCompletedEventHandler(ByVal sender As Object, ByVal e As WriteVarDoubleCompletedEventArgs) + + ''' + _ + Partial Public Class WriteVarDoubleCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ReadVarTextCompletedEventHandler(ByVal sender As Object, ByVal e As ReadVarTextCompletedEventArgs) + + ''' + _ + Partial Public Class ReadVarTextCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Text() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),String) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub WriteVarTextCompletedEventHandler(ByVal sender As Object, ByVal e As WriteVarTextCompletedEventArgs) + + ''' + _ + Partial Public Class WriteVarTextCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ReadNamedVarBoolCompletedEventHandler(ByVal sender As Object, ByVal e As ReadNamedVarBoolCompletedEventArgs) + + ''' + _ + Partial Public Class ReadNamedVarBoolCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Value() As Integer() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Integer()) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ReadNamedVarByteCompletedEventHandler(ByVal sender As Object, ByVal e As ReadNamedVarByteCompletedEventArgs) + + ''' + _ + Partial Public Class ReadNamedVarByteCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Value() As Byte() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Byte()) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ReadNamedVarShortCompletedEventHandler(ByVal sender As Object, ByVal e As ReadNamedVarShortCompletedEventArgs) + + ''' + _ + Partial Public Class ReadNamedVarShortCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Value() As Short() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Short()) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ReadNamedVarWordCompletedEventHandler(ByVal sender As Object, ByVal e As ReadNamedVarWordCompletedEventArgs) + + ''' + _ + Partial Public Class ReadNamedVarWordCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Value() As UShort() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UShort()) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ReadNamedVarLongCompletedEventHandler(ByVal sender As Object, ByVal e As ReadNamedVarLongCompletedEventArgs) + + ''' + _ + Partial Public Class ReadNamedVarLongCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Value() As Long() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Long()) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ReadNamedVarDwordCompletedEventHandler(ByVal sender As Object, ByVal e As ReadNamedVarDwordCompletedEventArgs) + + ''' + _ + Partial Public Class ReadNamedVarDwordCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Value() As ULong() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),ULong()) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ReadNamedVarDoubleCompletedEventHandler(ByVal sender As Object, ByVal e As ReadNamedVarDoubleCompletedEventArgs) + + ''' + _ + Partial Public Class ReadNamedVarDoubleCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Value() As Double() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Double()) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ReadNamedVarStringCompletedEventHandler(ByVal sender As Object, ByVal e As ReadNamedVarStringCompletedEventArgs) + + ''' + _ + Partial Public Class ReadNamedVarStringCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Value() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),String) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub WriteNamedVarBoolCompletedEventHandler(ByVal sender As Object, ByVal e As WriteNamedVarBoolCompletedEventArgs) + + ''' + _ + Partial Public Class WriteNamedVarBoolCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub WriteNamedVarByteCompletedEventHandler(ByVal sender As Object, ByVal e As WriteNamedVarByteCompletedEventArgs) + + ''' + _ + Partial Public Class WriteNamedVarByteCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub WriteNamedVarShortCompletedEventHandler(ByVal sender As Object, ByVal e As WriteNamedVarShortCompletedEventArgs) + + ''' + _ + Partial Public Class WriteNamedVarShortCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub WriteNamedVarWordCompletedEventHandler(ByVal sender As Object, ByVal e As WriteNamedVarWordCompletedEventArgs) + + ''' + _ + Partial Public Class WriteNamedVarWordCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub WriteNamedVarLongCompletedEventHandler(ByVal sender As Object, ByVal e As WriteNamedVarLongCompletedEventArgs) + + ''' + _ + Partial Public Class WriteNamedVarLongCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub WriteNamedVarDwordCompletedEventHandler(ByVal sender As Object, ByVal e As WriteNamedVarDwordCompletedEventArgs) + + ''' + _ + Partial Public Class WriteNamedVarDwordCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub WriteNamedVarDoubleCompletedEventHandler(ByVal sender As Object, ByVal e As WriteNamedVarDoubleCompletedEventArgs) + + ''' + _ + Partial Public Class WriteNamedVarDoubleCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub WriteNamedVarStringCompletedEventHandler(ByVal sender As Object, ByVal e As WriteNamedVarStringCompletedEventArgs) + + ''' + _ + Partial Public Class WriteNamedVarStringCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ReadWarningMsgCompletedEventHandler(ByVal sender As Object, ByVal e As ReadWarningMsgCompletedEventArgs) + + ''' + _ + Partial Public Class ReadWarningMsgCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property WarningMsg() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),String) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ResetSingleTableIICompletedEventHandler(ByVal sender As Object, ByVal e As ResetSingleTableIICompletedEventArgs) + + ''' + _ + Partial Public Class ResetSingleTableIICompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LockTableIICompletedEventHandler(ByVal sender As Object, ByVal e As LockTableIICompletedEventArgs) + + ''' + _ + Partial Public Class LockTableIICompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub UnLockTableIICompletedEventHandler(ByVal sender As Object, ByVal e As UnLockTableIICompletedEventArgs) + + ''' + _ + Partial Public Class UnLockTableIICompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetOriginTabRecordIICompletedEventHandler(ByVal sender As Object, ByVal e As GetOriginTabRecordIICompletedEventArgs) + + ''' + _ + Partial Public Class GetOriginTabRecordIICompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property RecordBuff() As ORIGINTABLEII + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),ORIGINTABLEII) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SetOriginTabRecordIICompletedEventHandler(ByVal sender As Object, ByVal e As SetOriginTabRecordIICompletedEventArgs) + + ''' + _ + Partial Public Class SetOriginTabRecordIICompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetToolTabRecordIICompletedEventHandler(ByVal sender As Object, ByVal e As GetToolTabRecordIICompletedEventArgs) + + ''' + _ + Partial Public Class GetToolTabRecordIICompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property RecordBuff() As TOOLTABLEII + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),TOOLTABLEII) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SetToolTabRecordIICompletedEventHandler(ByVal sender As Object, ByVal e As SetToolTabRecordIICompletedEventArgs) + + ''' + _ + Partial Public Class SetToolTabRecordIICompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetOffsetTabRecordIICompletedEventHandler(ByVal sender As Object, ByVal e As GetOffsetTabRecordIICompletedEventArgs) + + ''' + _ + Partial Public Class GetOffsetTabRecordIICompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property RecordBuff() As OFFSETTABLEII + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),OFFSETTABLEII) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SetOffsetTabRecordIICompletedEventHandler(ByVal sender As Object, ByVal e As SetOffsetTabRecordIICompletedEventArgs) + + ''' + _ + Partial Public Class SetOffsetTabRecordIICompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetUserTabRecordIICompletedEventHandler(ByVal sender As Object, ByVal e As GetUserTabRecordIICompletedEventArgs) + + ''' + _ + Partial Public Class GetUserTabRecordIICompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property RecordBuff() As USERTABLEII + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),USERTABLEII) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SetUserTabRecordIICompletedEventHandler(ByVal sender As Object, ByVal e As SetUserTabRecordIICompletedEventArgs) + + ''' + _ + Partial Public Class SetUserTabRecordIICompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetMagazineTabRecordIICompletedEventHandler(ByVal sender As Object, ByVal e As GetMagazineTabRecordIICompletedEventArgs) + + ''' + _ + Partial Public Class GetMagazineTabRecordIICompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property RecordBuff() As MAGAZINETABLEII + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),MAGAZINETABLEII) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SetMagazineTabRecordIICompletedEventHandler(ByVal sender As Object, ByVal e As SetMagazineTabRecordIICompletedEventArgs) + + ''' + _ + Partial Public Class SetMagazineTabRecordIICompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetPocketTabRecordIICompletedEventHandler(ByVal sender As Object, ByVal e As GetPocketTabRecordIICompletedEventArgs) + + ''' + _ + Partial Public Class GetPocketTabRecordIICompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property RecordBuff() As POCKETTABLEII + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),POCKETTABLEII) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SetPocketTabRecordIICompletedEventHandler(ByVal sender As Object, ByVal e As SetPocketTabRecordIICompletedEventArgs) + + ''' + _ + Partial Public Class SetPocketTabRecordIICompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SaveTablesCompletedEventHandler(ByVal sender As Object, ByVal e As SaveTablesCompletedEventArgs) + + ''' + _ + Partial Public Class SaveTablesCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub RestoreSingleTableCompletedEventHandler(ByVal sender As Object, ByVal e As RestoreSingleTableCompletedEventArgs) + + ''' + _ + Partial Public Class RestoreSingleTableCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SaveSingleTableCompletedEventHandler(ByVal sender As Object, ByVal e As SaveSingleTableCompletedEventArgs) + + ''' + _ + Partial Public Class SaveSingleTableCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SaveBackupMemoryCompletedEventHandler(ByVal sender As Object, ByVal e As SaveBackupMemoryCompletedEventArgs) + + ''' + _ + Partial Public Class SaveBackupMemoryCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub RestoreBackupMemoryCompletedEventHandler(ByVal sender As Object, ByVal e As RestoreBackupMemoryCompletedEventArgs) + + ''' + _ + Partial Public Class RestoreBackupMemoryCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ToolSearchCompletedEventHandler(ByVal sender As Object, ByVal e As ToolSearchCompletedEventArgs) + + ''' + _ + Partial Public Class ToolSearchCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ToolIndex() As Short + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Short) + End Get + End Property + + ''' + Public ReadOnly Property Pocket() As Short + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),Short) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ToolSearchLifeCompletedEventHandler(ByVal sender As Object, ByVal e As ToolSearchLifeCompletedEventArgs) + + ''' + _ + Partial Public Class ToolSearchLifeCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ToolIndex() As Short + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Short) + End Get + End Property + + ''' + Public ReadOnly Property Pocket() As Short + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),Short) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ToolSearchDirCompletedEventHandler(ByVal sender As Object, ByVal e As ToolSearchDirCompletedEventArgs) + + ''' + _ + Partial Public Class ToolSearchDirCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ToolIndex() As Short + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Short) + End Get + End Property + + ''' + Public ReadOnly Property Pocket() As Short + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),Short) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ToolSearchLifeDirCompletedEventHandler(ByVal sender As Object, ByVal e As ToolSearchLifeDirCompletedEventArgs) + + ''' + _ + Partial Public Class ToolSearchLifeDirCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ToolIndex() As Short + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Short) + End Get + End Property + + ''' + Public ReadOnly Property Pocket() As Short + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),Short) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ToolSameFamilyCompletedEventHandler(ByVal sender As Object, ByVal e As ToolSameFamilyCompletedEventArgs) + + ''' + _ + Partial Public Class ToolSameFamilyCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ToolInMaga() As Short + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Short) + End Get + End Property + + ''' + Public ReadOnly Property ToolsOutMaga() As Short + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),Short) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ToolLoadCompletedEventHandler(ByVal sender As Object, ByVal e As ToolLoadCompletedEventArgs) + + ''' + _ + Partial Public Class ToolLoadCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ToolUnloadCompletedEventHandler(ByVal sender As Object, ByVal e As ToolUnloadCompletedEventArgs) + + ''' + _ + Partial Public Class ToolUnloadCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub PocketSearchCompletedEventHandler(ByVal sender As Object, ByVal e As PocketSearchCompletedEventArgs) + + ''' + _ + Partial Public Class PocketSearchCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Pocket() As Short + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Short) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub PocketClosestCompletedEventHandler(ByVal sender As Object, ByVal e As PocketClosestCompletedEventArgs) + + ''' + _ + Partial Public Class PocketClosestCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Direction() As Short + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Short) + End Get + End Property + + ''' + Public ReadOnly Property Pocket() As Short + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),Short) + End Get + End Property + + ''' + Public ReadOnly Property HorizontalDistance() As Short + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),Short) + End Get + End Property + + ''' + Public ReadOnly Property VerticalDistance() As Short + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),Short) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(5),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(6),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub PocketNearestCompletedEventHandler(ByVal sender As Object, ByVal e As PocketNearestCompletedEventArgs) + + ''' + _ + Partial Public Class PocketNearestCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Pocket() As Short + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Short) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ToolLifeCompletedEventHandler(ByVal sender As Object, ByVal e As ToolLifeCompletedEventArgs) + + ''' + _ + Partial Public Class ToolLifeCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property RemLife() As Double + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Double) + End Get + End Property + + ''' + Public ReadOnly Property ToolStatus() As Short + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),Short) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LoadTableFromFileCompletedEventHandler(ByVal sender As Object, ByVal e As LoadTableFromFileCompletedEventArgs) + + ''' + _ + Partial Public Class LoadTableFromFileCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub MagConfigurePocketsCompletedEventHandler(ByVal sender As Object, ByVal e As MagConfigurePocketsCompletedEventArgs) + + ''' + _ + Partial Public Class MagConfigurePocketsCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub CycleCompletedEventHandler(ByVal sender As Object, ByVal e As CycleCompletedEventArgs) + + ''' + _ + Partial Public Class CycleCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SyncroCycleCompletedEventHandler(ByVal sender As Object, ByVal e As SyncroCycleCompletedEventArgs) + + ''' + _ + Partial Public Class SyncroCycleCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ResetCompletedEventHandler(ByVal sender As Object, ByVal e As ResetCompletedEventArgs) + + ''' + _ + Partial Public Class ResetCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub HoldCompletedEventHandler(ByVal sender As Object, ByVal e As HoldCompletedEventArgs) + + ''' + _ + Partial Public Class HoldCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SetFeedManOverCompletedEventHandler(ByVal sender As Object, ByVal e As SetFeedManOverCompletedEventArgs) + + ''' + _ + Partial Public Class SetFeedManOverCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SetFeedRateOverCompletedEventHandler(ByVal sender As Object, ByVal e As SetFeedRateOverCompletedEventArgs) + + ''' + _ + Partial Public Class SetFeedRateOverCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SetFeedRapidOverCompletedEventHandler(ByVal sender As Object, ByVal e As SetFeedRapidOverCompletedEventArgs) + + ''' + _ + Partial Public Class SetFeedRapidOverCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SetSpeedRateOverCompletedEventHandler(ByVal sender As Object, ByVal e As SetSpeedRateOverCompletedEventArgs) + + ''' + _ + Partial Public Class SetSpeedRateOverCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SetManMovDirectionCompletedEventHandler(ByVal sender As Object, ByVal e As SetManMovDirectionCompletedEventArgs) + + ''' + _ + Partial Public Class SetManMovDirectionCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetVarJOGCompletedEventHandler(ByVal sender As Object, ByVal e As GetVarJOGCompletedEventArgs) + + ''' + _ + Partial Public Class GetVarJOGCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Value() As Double + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Double) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SetVarJOGCompletedEventHandler(ByVal sender As Object, ByVal e As SetVarJOGCompletedEventArgs) + + ''' + _ + Partial Public Class SetVarJOGCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SetVarUASCompletedEventHandler(ByVal sender As Object, ByVal e As SetVarUASCompletedEventArgs) + + ''' + _ + Partial Public Class SetVarUASCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetVarRCMCompletedEventHandler(ByVal sender As Object, ByVal e As GetVarRCMCompletedEventArgs) + + ''' + _ + Partial Public Class GetVarRCMCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Value() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SetVarRCMCompletedEventHandler(ByVal sender As Object, ByVal e As SetVarRCMCompletedEventArgs) + + ''' + _ + Partial Public Class SetVarRCMCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetVarCYCTIMECompletedEventHandler(ByVal sender As Object, ByVal e As GetVarCYCTIMECompletedEventArgs) + + ''' + _ + Partial Public Class GetVarCYCTIMECompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Value() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SetVarCYCTIMECompletedEventHandler(ByVal sender As Object, ByVal e As SetVarCYCTIMECompletedEventArgs) + + ''' + _ + Partial Public Class SetVarCYCTIMECompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetProcVarWordCompletedEventHandler(ByVal sender As Object, ByVal e As GetProcVarWordCompletedEventArgs) + + ''' + _ + Partial Public Class GetProcVarWordCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Value() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SetProcVarWordCompletedEventHandler(ByVal sender As Object, ByVal e As SetProcVarWordCompletedEventArgs) + + ''' + _ + Partial Public Class SetProcVarWordCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetProcVarDoubleCompletedEventHandler(ByVal sender As Object, ByVal e As GetProcVarDoubleCompletedEventArgs) + + ''' + _ + Partial Public Class GetProcVarDoubleCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Value() As Double + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Double) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SetProcVarDoubleCompletedEventHandler(ByVal sender As Object, ByVal e As SetProcVarDoubleCompletedEventArgs) + + ''' + _ + Partial Public Class SetProcVarDoubleCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SetMdiStringCompletedEventHandler(ByVal sender As Object, ByVal e As SetMdiStringCompletedEventArgs) + + ''' + _ + Partial Public Class SetMdiStringCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SetProcessModeCompletedEventHandler(ByVal sender As Object, ByVal e As SetProcessModeCompletedEventArgs) + + ''' + _ + Partial Public Class SetProcessModeCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SelectProcessCompletedEventHandler(ByVal sender As Object, ByVal e As SelectProcessCompletedEventArgs) + + ''' + _ + Partial Public Class SelectProcessCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetSelectedProcessCompletedEventHandler(ByVal sender As Object, ByVal e As GetSelectedProcessCompletedEventArgs) + + ''' + _ + Partial Public Class GetSelectedProcessCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ProcNum() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SelectProcAxisCompletedEventHandler(ByVal sender As Object, ByVal e As SelectProcAxisCompletedEventArgs) + + ''' + _ + Partial Public Class SelectProcAxisCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SelectPartProgramCompletedEventHandler(ByVal sender As Object, ByVal e As SelectPartProgramCompletedEventArgs) + + ''' + _ + Partial Public Class SelectPartProgramCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SelectPartProgramFromDriveCompletedEventHandler(ByVal sender As Object, ByVal e As SelectPartProgramFromDriveCompletedEventArgs) + + ''' + _ + Partial Public Class SelectPartProgramFromDriveCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetActivePartProgramCompletedEventHandler(ByVal sender As Object, ByVal e As GetActivePartProgramCompletedEventArgs) + + ''' + _ + Partial Public Class GetActivePartProgramCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Level() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Main() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),String) + End Get + End Property + + ''' + Public ReadOnly Property [Sub]() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),String) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(5),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetActivePartProgramFullPathCompletedEventHandler(ByVal sender As Object, ByVal e As GetActivePartProgramFullPathCompletedEventArgs) + + ''' + _ + Partial Public Class GetActivePartProgramFullPathCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Level() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Main() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),String) + End Get + End Property + + ''' + Public ReadOnly Property [Sub]() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),String) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(5),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetPartProgramLinesCompletedEventHandler(ByVal sender As Object, ByVal e As GetPartProgramLinesCompletedEventArgs) + + ''' + _ + Partial Public Class GetPartProgramLinesCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property PPLine1() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),String) + End Get + End Property + + ''' + Public ReadOnly Property PPLine2() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),String) + End Get + End Property + + ''' + Public ReadOnly Property PPLine3() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),String) + End Get + End Property + + ''' + Public ReadOnly Property PPLine4() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),String) + End Get + End Property + + ''' + Public ReadOnly Property PPLine5() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(5),String) + End Get + End Property + + ''' + Public ReadOnly Property PPLine6() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(6),String) + End Get + End Property + + ''' + Public ReadOnly Property PPLine7() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(7),String) + End Get + End Property + + ''' + Public ReadOnly Property PPLine8() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(8),String) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(9),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(10),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetAxOriginNumCompletedEventHandler(ByVal sender As Object, ByVal e As GetAxOriginNumCompletedEventArgs) + + ''' + _ + Partial Public Class GetAxOriginNumCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property AxesNum() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UShort) + End Get + End Property + + ''' + Public ReadOnly Property AxOriginNum() As AXORIGNUM() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),AXORIGNUM()) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetAxesPositionCompletedEventHandler(ByVal sender As Object, ByVal e As GetAxesPositionCompletedEventArgs) + + ''' + _ + Partial Public Class GetAxesPositionCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property NumAxis() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UShort) + End Get + End Property + + ''' + Public ReadOnly Property IntPos() As GETINTDATA() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),GETINTDATA()) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetNcInfo1CompletedEventHandler(ByVal sender As Object, ByVal e As GetNcInfo1CompletedEventArgs) + + ''' + _ + Partial Public Class GetNcInfo1CompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property GetInfo() As GETINFO1DATA + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),GETINFO1DATA) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetNcInfo2CompletedEventHandler(ByVal sender As Object, ByVal e As GetNcInfo2CompletedEventArgs) + + ''' + _ + Partial Public Class GetNcInfo2CompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property GetInfo() As GETINFO2DATA + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),GETINFO2DATA) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetToolNamesCompletedEventHandler(ByVal sender As Object, ByVal e As GetToolNamesCompletedEventArgs) + + ''' + _ + Partial Public Class GetToolNamesCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Tool() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),String) + End Get + End Property + + ''' + Public ReadOnly Property ProgTool() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),String) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetProcessStatusCompletedEventHandler(ByVal sender As Object, ByVal e As GetProcessStatusCompletedEventArgs) + + ''' + _ + Partial Public Class GetProcessStatusCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ProcStat() As PROCDATA + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),PROCDATA) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetBlkNumCompletedEventHandler(ByVal sender As Object, ByVal e As GetBlkNumCompletedEventArgs) + + ''' + _ + Partial Public Class GetBlkNumCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property GetBlkNum1() As GETBLKNUMDATA + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),GETBLKNUMDATA) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ReadErrMsgCompletedEventHandler(ByVal sender As Object, ByVal e As ReadErrMsgCompletedEventArgs) + + ''' + _ + Partial Public Class ReadErrMsgCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property SysErrMsg() As ERRMSG + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),ERRMSG) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ReadPartProgramMsgCompletedEventHandler(ByVal sender As Object, ByVal e As ReadPartProgramMsgCompletedEventArgs) + + ''' + _ + Partial Public Class ReadPartProgramMsgCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property PartProgramMsg() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),String) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetGCodeCompletedEventHandler(ByVal sender As Object, ByVal e As GetGCodeCompletedEventArgs) + + ''' + _ + Partial Public Class GetGCodeCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property GCode() As UShort() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UShort()) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetMCodeCompletedEventHandler(ByVal sender As Object, ByVal e As GetMCodeCompletedEventArgs) + + ''' + _ + Partial Public Class GetMCodeCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property MCode() As UShort() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UShort()) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SkipPProgBlockCompletedEventHandler(ByVal sender As Object, ByVal e As SkipPProgBlockCompletedEventArgs) + + ''' + _ + Partial Public Class SkipPProgBlockCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub EseCompletedEventHandler(ByVal sender As Object, ByVal e As EseCompletedEventArgs) + + ''' + _ + Partial Public Class EseCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub EseExCompletedEventHandler(ByVal sender As Object, ByVal e As EseExCompletedEventArgs) + + ''' + _ + Partial Public Class EseExCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ExeCompletedEventHandler(ByVal sender As Object, ByVal e As ExeCompletedEventArgs) + + ''' + _ + Partial Public Class ExeCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub AxesRefCompletedEventHandler(ByVal sender As Object, ByVal e As AxesRefCompletedEventArgs) + + ''' + _ + Partial Public Class AxesRefCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub DncInitCompletedEventHandler(ByVal sender As Object, ByVal e As DncInitCompletedEventArgs) + + ''' + _ + Partial Public Class DncInitCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub DncDataCompletedEventHandler(ByVal sender As Object, ByVal e As DncDataCompletedEventArgs) + + ''' + _ + Partial Public Class DncDataCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub DncEofCompletedEventHandler(ByVal sender As Object, ByVal e As DncEofCompletedEventArgs) + + ''' + _ + Partial Public Class DncEofCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub DncStopCompletedEventHandler(ByVal sender As Object, ByVal e As DncStopCompletedEventArgs) + + ''' + _ + Partial Public Class DncStopCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetAxesInfo3CompletedEventHandler(ByVal sender As Object, ByVal e As GetAxesInfo3CompletedEventArgs) + + ''' + _ + Partial Public Class GetAxesInfo3CompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property AxesNum() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UShort) + End Get + End Property + + ''' + Public ReadOnly Property AxOwnerList() As UShort() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UShort()) + End Get + End Property + + ''' + Public ReadOnly Property AxNameList() As Byte() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),Byte()) + End Get + End Property + + ''' + Public ReadOnly Property AxType() As UShort() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UShort()) + End Get + End Property + + ''' + Public ReadOnly Property AxInterface() As UShort() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(5),UShort()) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(6),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(7),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetCodeNumberCompletedEventHandler(ByVal sender As Object, ByVal e As GetCodeNumberCompletedEventArgs) + + ''' + _ + Partial Public Class GetCodeNumberCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property CodeNumber() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),String) + End Get + End Property + + ''' + Public ReadOnly Property SwVersion() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),String) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetOptionsCompletedEventHandler(ByVal sender As Object, ByVal e As GetOptionsCompletedEventArgs) + + ''' + _ + Partial Public Class GetOptionsCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property [Option]() As Byte() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Byte()) + End Get + End Property + + ''' + Public ReadOnly Property SecurLevel() As Byte() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),Byte()) + End Get + End Property + + ''' + Public ReadOnly Property SwVersion() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),String) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(5),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetDateTimeCompletedEventHandler(ByVal sender As Object, ByVal e As GetDateTimeCompletedEventArgs) + + ''' + _ + Partial Public Class GetDateTimeCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Year() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Month() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Day() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Hour() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Minute() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(5),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Second() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(6),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(7),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(8),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SetDateTimeCompletedEventHandler(ByVal sender As Object, ByVal e As SetDateTimeCompletedEventArgs) + + ''' + _ + Partial Public Class SetDateTimeCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetSerialNumberCompletedEventHandler(ByVal sender As Object, ByVal e As GetSerialNumberCompletedEventArgs) + + ''' + _ + Partial Public Class GetSerialNumberCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property SerialNumber() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),String) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub PutFileCompletedEventHandler(ByVal sender As Object, ByVal e As PutFileCompletedEventArgs) + + ''' + _ + Partial Public Class PutFileCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetFileCompletedEventHandler(ByVal sender As Object, ByVal e As GetFileCompletedEventArgs) + + ''' + _ + Partial Public Class GetFileCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Size() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property Data() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),String) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub PutBinaryFileCompletedEventHandler(ByVal sender As Object, ByVal e As PutBinaryFileCompletedEventArgs) + + ''' + _ + Partial Public Class PutBinaryFileCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetBinaryFileCompletedEventHandler(ByVal sender As Object, ByVal e As GetBinaryFileCompletedEventArgs) + + ''' + _ + Partial Public Class GetBinaryFileCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Data() As Byte() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Byte()) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LogFSSetSecurityLevelCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSSetSecurityLevelCompletedEventArgs) + + ''' + _ + Partial Public Class LogFSSetSecurityLevelCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property OldSecurityLevel() As SECURITYLEVEL + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),SECURITYLEVEL) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LogFSGetSecurityLevelCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSGetSecurityLevelCompletedEventArgs) + + ''' + _ + Partial Public Class LogFSGetSecurityLevelCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property SecurityLevel() As SECURITYLEVEL + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),SECURITYLEVEL) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LogFSLongFileNamesCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSLongFileNamesCompletedEventArgs) + + ''' + _ + Partial Public Class LogFSLongFileNamesCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property UseLongFileNames() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LogFSGetNumDriveCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSGetNumDriveCompletedEventArgs) + + ''' + _ + Partial Public Class LogFSGetNumDriveCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property NumHiddenDrive() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UShort) + End Get + End Property + + ''' + Public ReadOnly Property NumUserDrive() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LogFSGetDriveListCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSGetDriveListCompletedEventArgs) + + ''' + _ + Partial Public Class LogFSGetDriveListCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property DriveName() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),String) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LogFSGetHiddenDriveListCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSGetHiddenDriveListCompletedEventArgs) + + ''' + _ + Partial Public Class LogFSGetHiddenDriveListCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property DriveName() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),String) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LogFSGetDrivePathCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSGetDrivePathCompletedEventArgs) + + ''' + _ + Partial Public Class LogFSGetDrivePathCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property DrivePath() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),String) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LogFSAddDriveCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSAddDriveCompletedEventArgs) + + ''' + _ + Partial Public Class LogFSAddDriveCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LogFSRemoveDriveCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSRemoveDriveCompletedEventArgs) + + ''' + _ + Partial Public Class LogFSRemoveDriveCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LogFSReloadDriveListCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSReloadDriveListCompletedEventArgs) + + ''' + _ + Partial Public Class LogFSReloadDriveListCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LogFSCreateDirCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSCreateDirCompletedEventArgs) + + ''' + _ + Partial Public Class LogFSCreateDirCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LogFSCreateFileCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSCreateFileCompletedEventArgs) + + ''' + _ + Partial Public Class LogFSCreateFileCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LogFSGetFileSizeCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSGetFileSizeCompletedEventArgs) + + ''' + _ + Partial Public Class LogFSGetFileSizeCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Size() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LogFSGetFileAttribCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSGetFileAttribCompletedEventArgs) + + ''' + _ + Partial Public Class LogFSGetFileAttribCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Attrib() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LogFSSetFileAttribCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSSetFileAttribCompletedEventArgs) + + ''' + _ + Partial Public Class LogFSSetFileAttribCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LogFSChangeFileAttribCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSChangeFileAttribCompletedEventArgs) + + ''' + _ + Partial Public Class LogFSChangeFileAttribCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LogFSFindFirstCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSFindFirstCompletedEventArgs) + + ''' + _ + Partial Public Class LogFSFindFirstCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property FindData() As FILEFINDDATA + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),FILEFINDDATA) + End Get + End Property + + ''' + Public ReadOnly Property Finder() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LogFSFindNextCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSFindNextCompletedEventArgs) + + ''' + _ + Partial Public Class LogFSFindNextCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property FindData() As FILEFINDDATA + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),FILEFINDDATA) + End Get + End Property + + ''' + Public ReadOnly Property Found() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),Boolean) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LogFSFindCloseCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSFindCloseCompletedEventArgs) + + ''' + _ + Partial Public Class LogFSFindCloseCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LogFSRemoveFileCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSRemoveFileCompletedEventArgs) + + ''' + _ + Partial Public Class LogFSRemoveFileCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LogFSRemoveDirCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSRemoveDirCompletedEventArgs) + + ''' + _ + Partial Public Class LogFSRemoveDirCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LogFSRenameCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSRenameCompletedEventArgs) + + ''' + _ + Partial Public Class LogFSRenameCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LogFSCopyFileCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSCopyFileCompletedEventArgs) + + ''' + _ + Partial Public Class LogFSCopyFileCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LogFSGetInfoCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSGetInfoCompletedEventArgs) + + ''' + _ + Partial Public Class LogFSGetInfoCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Buffer() As UInteger() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger()) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LogFSOpenFileCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSOpenFileCompletedEventArgs) + + ''' + _ + Partial Public Class LogFSOpenFileCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property FileID() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LogFSCloseFileCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSCloseFileCompletedEventArgs) + + ''' + _ + Partial Public Class LogFSCloseFileCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property FileID() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetSysTickCompletedEventHandler(ByVal sender As Object, ByVal e As GetSysTickCompletedEventArgs) + + ''' + _ + Partial Public Class GetSysTickCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property SysTick() As Double + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Double) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetProcessConfNumCompletedEventHandler(ByVal sender As Object, ByVal e As GetProcessConfNumCompletedEventArgs) + + ''' + _ + Partial Public Class GetProcessConfNumCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ProcessConfNum() As Byte + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Byte) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub CheckHistoryCompletedEventHandler(ByVal sender As Object, ByVal e As CheckHistoryCompletedEventArgs) + + ''' + _ + Partial Public Class CheckHistoryCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ThisBootMsgCounter() As UInteger() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger()) + End Get + End Property + + ''' + Public ReadOnly Property AllBootMsgCounter() As UInteger() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger()) + End Get + End Property + + ''' + Public ReadOnly Property ThisBootID() As UInteger() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger()) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(5),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ReadHistoryEmergMsgCompletedEventHandler(ByVal sender As Object, ByVal e As ReadHistoryEmergMsgCompletedEventArgs) + + ''' + _ + Partial Public Class ReadHistoryEmergMsgCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Data() As MSGEMERGENCY + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),MSGEMERGENCY) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ReadHistoryErrorMsgCompletedEventHandler(ByVal sender As Object, ByVal e As ReadHistoryErrorMsgCompletedEventArgs) + + ''' + _ + Partial Public Class ReadHistoryErrorMsgCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Data() As MSGERROR + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),MSGERROR) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ReadHistoryLogMsgCompletedEventHandler(ByVal sender As Object, ByVal e As ReadHistoryLogMsgCompletedEventArgs) + + ''' + _ + Partial Public Class ReadHistoryLogMsgCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Data() As MSGLOGS + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),MSGLOGS) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ReadHistoryAnomalyMsgCompletedEventHandler(ByVal sender As Object, ByVal e As ReadHistoryAnomalyMsgCompletedEventArgs) + + ''' + _ + Partial Public Class ReadHistoryAnomalyMsgCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Data() As MSGANOMALY + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),MSGANOMALY) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ReadCurrentErrorMsgCompletedEventHandler(ByVal sender As Object, ByVal e As ReadCurrentErrorMsgCompletedEventArgs) + + ''' + _ + Partial Public Class ReadCurrentErrorMsgCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Data() As MSGERROR + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),MSGERROR) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ReadCurrentEmergMsgCompletedEventHandler(ByVal sender As Object, ByVal e As ReadCurrentEmergMsgCompletedEventArgs) + + ''' + _ + Partial Public Class ReadCurrentEmergMsgCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Data() As MSGEMERGENCY + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),MSGEMERGENCY) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ReadCurrentAnomalyMsgCompletedEventHandler(ByVal sender As Object, ByVal e As ReadCurrentAnomalyMsgCompletedEventArgs) + + ''' + _ + Partial Public Class ReadCurrentAnomalyMsgCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Data() As MSGANOMALY + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),MSGANOMALY) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetPTechSizesCompletedEventHandler(ByVal sender As Object, ByVal e As GetPTechSizesCompletedEventArgs) + + ''' + _ + Partial Public Class GetPTechSizesCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Ind1() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Ind2() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Ind3() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(5),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LoadPTechCompletedEventHandler(ByVal sender As Object, ByVal e As LoadPTechCompletedEventArgs) + + ''' + _ + Partial Public Class LoadPTechCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetMarkerInfoCompletedEventHandler(ByVal sender As Object, ByVal e As GetMarkerInfoCompletedEventArgs) + + ''' + _ + Partial Public Class GetMarkerInfoCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property MarkerInfo() As MARKERINFO + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),MARKERINFO) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ManagePartProgramCompletedEventHandler(ByVal sender As Object, ByVal e As ManagePartProgramCompletedEventArgs) + + ''' + _ + Partial Public Class ManagePartProgramCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrString() As Byte() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Byte()) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LogFSWriteRecordCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSWriteRecordCompletedEventArgs) + + ''' + _ + Partial Public Class LogFSWriteRecordCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub LogFSReadRecordCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSReadRecordCompletedEventArgs) + + ''' + _ + Partial Public Class LogFSReadRecordCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property DataSize() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property Record() As Byte() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),Byte()) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ReadRemapDefinitionsCompletedEventHandler(ByVal sender As Object, ByVal e As ReadRemapDefinitionsCompletedEventArgs) + + ''' + _ + Partial Public Class ReadRemapDefinitionsCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Array() As REMAPDEF() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),REMAPDEF()) + End Get + End Property + + ''' + Public ReadOnly Property DefinitionsCnt() As Integer + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),Integer) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub WriteRemapDefinitionsCompletedEventHandler(ByVal sender As Object, ByVal e As WriteRemapDefinitionsCompletedEventArgs) + + ''' + _ + Partial Public Class WriteRemapDefinitionsCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetServoParCompletedEventHandler(ByVal sender As Object, ByVal e As GetServoParCompletedEventArgs) + + ''' + _ + Partial Public Class GetServoParCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Value() As Double + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Double) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SetServoParCompletedEventHandler(ByVal sender As Object, ByVal e As SetServoParCompletedEventArgs) + + ''' + _ + Partial Public Class SetServoParCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetCNCRegKeyCompletedEventHandler(ByVal sender As Object, ByVal e As GetCNCRegKeyCompletedEventArgs) + + ''' + _ + Partial Public Class GetCNCRegKeyCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ValueLen() As Integer + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Integer) + End Get + End Property + + ''' + Public ReadOnly Property Value() As Byte() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),Byte()) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetSecurityDataCompletedEventHandler(ByVal sender As Object, ByVal e As GetSecurityDataCompletedEventArgs) + + ''' + _ + Partial Public Class GetSecurityDataCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Data() As SECURDATA + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),SECURDATA) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SetSecurityDataCompletedEventHandler(ByVal sender As Object, ByVal e As SetSecurityDataCompletedEventArgs) + + ''' + _ + Partial Public Class SetSecurityDataCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SetIpAddressCompletedEventHandler(ByVal sender As Object, ByVal e As SetIpAddressCompletedEventArgs) + + ''' + _ + Partial Public Class SetIpAddressCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetProcInInputCompletedEventHandler(ByVal sender As Object, ByVal e As GetProcInInputCompletedEventArgs) + + ''' + _ + Partial Public Class GetProcInInputCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ProcInfo() As INPUTINFO + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),INPUTINFO) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SndProcInpDataCompletedEventHandler(ByVal sender As Object, ByVal e As SndProcInpDataCompletedEventArgs) + + ''' + _ + Partial Public Class SndProcInpDataCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetPartProgramLinesExCompletedEventHandler(ByVal sender As Object, ByVal e As GetPartProgramLinesExCompletedEventArgs) + + ''' + _ + Partial Public Class GetPartProgramLinesExCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property PPLine1() As Byte() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Byte()) + End Get + End Property + + ''' + Public ReadOnly Property PPLine2() As Byte() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),Byte()) + End Get + End Property + + ''' + Public ReadOnly Property PPLine3() As Byte() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),Byte()) + End Get + End Property + + ''' + Public ReadOnly Property PPLine4() As Byte() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),Byte()) + End Get + End Property + + ''' + Public ReadOnly Property PPLine5() As Byte() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(5),Byte()) + End Get + End Property + + ''' + Public ReadOnly Property PPLine6() As Byte() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(6),Byte()) + End Get + End Property + + ''' + Public ReadOnly Property PPLine7() As Byte() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(7),Byte()) + End Get + End Property + + ''' + Public ReadOnly Property PPLine8() As Byte() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(8),Byte()) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(9),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(10),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SetMdiStringExCompletedEventHandler(ByVal sender As Object, ByVal e As SetMdiStringExCompletedEventArgs) + + ''' + _ + Partial Public Class SetMdiStringExCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetExpireDataCompletedEventHandler(ByVal sender As Object, ByVal e As GetExpireDataCompletedEventArgs) + + ''' + _ + Partial Public Class GetExpireDataCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Day() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Month() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Year() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(5),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetRemainingTimeCompletedEventHandler(ByVal sender As Object, ByVal e As GetRemainingTimeCompletedEventArgs) + + ''' + _ + Partial Public Class GetRemainingTimeCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property remTime() As Long + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Long) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GenerateUserKeyCompletedEventHandler(ByVal sender As Object, ByVal e As GenerateUserKeyCompletedEventArgs) + + ''' + _ + Partial Public Class GenerateUserKeyCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property keyUser() As String() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),String()) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub WriteActivationKeyCompletedEventHandler(ByVal sender As Object, ByVal e As WriteActivationKeyCompletedEventArgs) + + ''' + _ + Partial Public Class WriteActivationKeyCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetAvailableCustomEventsCompletedEventHandler(ByVal sender As Object, ByVal e As GetAvailableCustomEventsCompletedEventArgs) + + ''' + _ + Partial Public Class GetAvailableCustomEventsCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property NumEvents() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UShort) + End Get + End Property + + ''' + Public ReadOnly Property EventData() As MONCUSTOMEVENTINFO() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),MONCUSTOMEVENTINFO()) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub MonOpenChannelCompletedEventHandler(ByVal sender As Object, ByVal e As MonOpenChannelCompletedEventArgs) + + ''' + _ + Partial Public Class MonOpenChannelCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ChannelID() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub MonCloseChannelCompletedEventHandler(ByVal sender As Object, ByVal e As MonCloseChannelCompletedEventArgs) + + ''' + _ + Partial Public Class MonCloseChannelCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub MonAddVariableCompletedEventHandler(ByVal sender As Object, ByVal e As MonAddVariableCompletedEventArgs) + + ''' + _ + Partial Public Class MonAddVariableCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property VariableID() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub MonDeleteVariableCompletedEventHandler(ByVal sender As Object, ByVal e As MonDeleteVariableCompletedEventArgs) + + ''' + _ + Partial Public Class MonDeleteVariableCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub MonStartSamplingCompletedEventHandler(ByVal sender As Object, ByVal e As MonStartSamplingCompletedEventArgs) + + ''' + _ + Partial Public Class MonStartSamplingCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub MonStopSamplingCompletedEventHandler(ByVal sender As Object, ByVal e As MonStopSamplingCompletedEventArgs) + + ''' + _ + Partial Public Class MonStopSamplingCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub MonGetVariableCompletedEventHandler(ByVal sender As Object, ByVal e As MonGetVariableCompletedEventArgs) + + ''' + _ + Partial Public Class MonGetVariableCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property NumSampleRead() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UShort) + End Get + End Property + + ''' + Public ReadOnly Property DataBuffer() As Double() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),Double()) + End Get + End Property + + ''' + Public ReadOnly Property TimeBuffer() As Long() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),Long()) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(5),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub MonGetVariableSCompletedEventHandler(ByVal sender As Object, ByVal e As MonGetVariableSCompletedEventArgs) + + ''' + _ + Partial Public Class MonGetVariableSCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property DataBuffer() As Byte() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Byte()) + End Get + End Property + + ''' + Public ReadOnly Property TimeBuffer() As Byte() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),Byte()) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub MonGetDryRunCompletedEventHandler(ByVal sender As Object, ByVal e As MonGetDryRunCompletedEventArgs) + + ''' + _ + Partial Public Class MonGetDryRunCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property numSampleRead() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UShort) + End Get + End Property + + ''' + Public ReadOnly Property readData() As MONDRYRUN() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),MONDRYRUN()) + End Get + End Property + + ''' + Public ReadOnly Property timeBuffer() As Long() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),Long()) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(5),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub MonGetMovCompletedEventHandler(ByVal sender As Object, ByVal e As MonGetMovCompletedEventArgs) + + ''' + _ + Partial Public Class MonGetMovCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property numSampleRead() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UShort) + End Get + End Property + + ''' + Public ReadOnly Property readData() As MONENTEMOVI() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),MONENTEMOVI()) + End Get + End Property + + ''' + Public ReadOnly Property timeBuffer() As Long() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),Long()) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(5),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetDriveBasicInfoCompletedEventHandler(ByVal sender As Object, ByVal e As GetDriveBasicInfoCompletedEventArgs) + + ''' + _ + Partial Public Class GetDriveBasicInfoCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property DriveBasicInfo() As DRIVEBASICINFO + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),DRIVEBASICINFO) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ReadStatisticsCompletedEventHandler(ByVal sender As Object, ByVal e As ReadStatisticsCompletedEventArgs) + + ''' + _ + Partial Public Class ReadStatisticsCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property Value() As Long() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Long()) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ReadStatisticsBaseFrequencyCompletedEventHandler(ByVal sender As Object, ByVal e As ReadStatisticsBaseFrequencyCompletedEventArgs) + + ''' + _ + Partial Public Class ReadStatisticsBaseFrequencyCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property baseFrequency() As Long + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Long) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetActiveAmpCompletedEventHandler(ByVal sender As Object, ByVal e As GetActiveAmpCompletedEventArgs) + + ''' + _ + Partial Public Class GetActiveAmpCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ActiveAmp() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UShort) + End Get + End Property + + ''' + Public ReadOnly Property RunningAmp() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),UInteger) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SetActiveAmpCompletedEventHandler(ByVal sender As Object, ByVal e As SetActiveAmpCompletedEventArgs) + + ''' + _ + Partial Public Class SetActiveAmpCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As UShort + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),UShort) + End Get + End Property + + ''' + Public ReadOnly Property ErrClass() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),UInteger) + End Get + End Property + + ''' + Public ReadOnly Property ErrNum() As UInteger + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),UInteger) + End Get + End Property + End Class +End Namespace diff --git a/CVCncLib/Web References/WebReference/SECURDATA.datasource b/CVCncLib/Web References/WebReference/SECURDATA.datasource new file mode 100644 index 00000000..c5eaf9fa --- /dev/null +++ b/CVCncLib/Web References/WebReference/SECURDATA.datasource @@ -0,0 +1,10 @@ + + + + testSam.WebReference.SECURDATA, Web References.WebReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Web References/WebReference/SECURITYLEVEL.datasource b/CVCncLib/Web References/WebReference/SECURITYLEVEL.datasource new file mode 100644 index 00000000..72605bd6 --- /dev/null +++ b/CVCncLib/Web References/WebReference/SECURITYLEVEL.datasource @@ -0,0 +1,10 @@ + + + + testSam.WebReference.SECURITYLEVEL, Web References.WebReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Web References/WebReference/TOOLTABLEII.datasource b/CVCncLib/Web References/WebReference/TOOLTABLEII.datasource new file mode 100644 index 00000000..23597434 --- /dev/null +++ b/CVCncLib/Web References/WebReference/TOOLTABLEII.datasource @@ -0,0 +1,10 @@ + + + + testSam.WebReference.TOOLTABLEII, Web References.WebReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/Web References/WebReference/USERTABLEII.datasource b/CVCncLib/Web References/WebReference/USERTABLEII.datasource new file mode 100644 index 00000000..d120ea6d --- /dev/null +++ b/CVCncLib/Web References/WebReference/USERTABLEII.datasource @@ -0,0 +1,10 @@ + + + + testSam.WebReference.USERTABLEII, Web References.WebReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/CVCncLib/app.config b/CVCncLib/app.config new file mode 100644 index 00000000..f068dd86 --- /dev/null +++ b/CVCncLib/app.config @@ -0,0 +1,48 @@ + + + + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + http://192.168.20.2:8080 + + + http://192.168.20.2:8080 + + + + diff --git a/CVCncLib/arstcomm.ico b/CVCncLib/arstcomm.ico new file mode 100644 index 00000000..8dac1124 Binary files /dev/null and b/CVCncLib/arstcomm.ico differ diff --git a/CVCncLib/qq b/CVCncLib/qq new file mode 100644 index 00000000..e69de29b diff --git a/CVCncLib/reg.bat b/CVCncLib/reg.bat new file mode 100644 index 00000000..290c254f --- /dev/null +++ b/CVCncLib/reg.bat @@ -0,0 +1 @@ +c:\windows\system32\regsvr32 c:\Users\carlo\Documents\Projects\vs2008\d_prod\d_prod\s10dllprj.dll > qq diff --git a/CVCncLib/testSam.exe.config b/CVCncLib/testSam.exe.config new file mode 100644 index 00000000..f068dd86 --- /dev/null +++ b/CVCncLib/testSam.exe.config @@ -0,0 +1,48 @@ + + + + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + http://192.168.20.2:8080 + + + http://192.168.20.2:8080 + + + + diff --git a/CVCncLib/testSam.vshost.exe.config b/CVCncLib/testSam.vshost.exe.config new file mode 100644 index 00000000..f068dd86 --- /dev/null +++ b/CVCncLib/testSam.vshost.exe.config @@ -0,0 +1,48 @@ + + + + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + http://192.168.20.2:8080 + + + http://192.168.20.2:8080 + + + + diff --git a/CVCncLib/testSam.xml b/CVCncLib/testSam.xml new file mode 100644 index 00000000..643151b4 --- /dev/null +++ b/CVCncLib/testSam.xml @@ -0,0 +1,11418 @@ + + + + +testSam + + + + + + Classe di risorse fortemente tipizzata per la ricerca di stringhe localizzate e così via. + + + + + Restituisce l'istanza di ResourceManager nella cache utilizzata da questa classe. + + + + + Esegue l'override della proprietà CurrentUICulture del thread corrente per tutte le + ricerche di risorse eseguite utilizzando questa classe di risorse fortemente tipizzata. + + + + + Verifica se è installata la WINNBI e se è una versione compatibile con .NET + + Versione compatibile con framework .NET + + + + restituisce la versione installata di WINNBI + + + + + The INIReader class can read keys from and write keys to an INI file. + + + This class uses several Win32 API functions to read from and write to INI files. It will not work on Linux or FreeBSD. + + + + + The GetPrivateProfileInt function retrieves an integer associated with a key in the specified section of an initialization file. + + Pointer to a null-terminated string specifying the name of the section in the initialization file. + Pointer to the null-terminated string specifying the name of the key whose value is to be retrieved. This value is in the form of a string; the GetPrivateProfileInt function converts the string into an integer and returns the integer. + Specifies the default value to return if the key name cannot be found in the initialization file. + Pointer to a null-terminated string that specifies the name of the initialization file. If this parameter does not contain a full path to the file, the system searches for the file in the Windows directory. + The return value is the integer equivalent of the string following the specified key name in the specified initialization file. If the key is not found, the return value is the specified default value. If the value of the key is less than zero, the return value is zero. + + + + The WritePrivateProfileString function copies a string into the specified section of an initialization file. + + Pointer to a null-terminated string containing the name of the section to which the string will be copied. If the section does not exist, it is created. The name of the section is case-independent; the string can be any combination of uppercase and lowercase letters. + Pointer to the null-terminated string containing the name of the key to be associated with a string. If the key does not exist in the specified section, it is created. If this parameter is NULL, the entire section, including all entries within the section, is deleted. + Pointer to a null-terminated string to be written to the file. If this parameter is NULL, the key pointed to by the lpKeyName parameter is deleted. + Pointer to a null-terminated string that specifies the name of the initialization file. + If the function successfully copies the string to the initialization file, the return value is nonzero; if the function fails, or if it flushes the cached version of the most recently accessed initialization file, the return value is zero. + + + + The GetPrivateProfileString function retrieves a string from the specified section in an initialization file. + + Pointer to a null-terminated string that specifies the name of the section containing the key name. If this parameter is NULL, the GetPrivateProfileString function copies all section names in the file to the supplied buffer. + Pointer to the null-terminated string specifying the name of the key whose associated string is to be retrieved. If this parameter is NULL, all key names in the section specified by the lpAppName parameter are copied to the buffer specified by the lpReturnedString parameter. + Pointer to a null-terminated default string. If the lpKeyName key cannot be found in the initialization file, GetPrivateProfileString copies the default string to the lpReturnedString buffer. This parameter cannot be NULL.
Avoid specifying a default string with trailing blank characters. The function inserts a null character in the lpReturnedString buffer to strip any trailing blanks.
+ Pointer to the buffer that receives the retrieved string. + Specifies the size, in TCHARs, of the buffer pointed to by the lpReturnedString parameter. + Pointer to a null-terminated string that specifies the name of the initialization file. If this parameter does not contain a full path to the file, the system searches for the file in the Windows directory. + The return value is the number of characters copied to the buffer, not including the terminating null character. + + + + The GetPrivateProfileSectionNames function retrieves the names of all sections in an initialization file. + + Pointer to a buffer that receives the section names associated with the named file. The buffer is filled with one or more null-terminated strings; the last string is followed by a second null character. + Specifies the size, in TCHARs, of the buffer pointed to by the lpszReturnBuffer parameter. + Pointer to a null-terminated string that specifies the name of the initialization file. If this parameter is NULL, the function searches the Win.ini file. If this parameter does not contain a full path to the file, the system searches for the file in the Windows directory. + The return value specifies the number of characters copied to the specified buffer, not including the terminating null character. If the buffer is not large enough to contain all the section names associated with the specified initialization file, the return value is equal to the length specified by nSize minus two. + + + + The WritePrivateProfileSection function replaces the keys and values for the specified section in an initialization file. + + Pointer to a null-terminated string specifying the name of the section in which data is written. This section name is typically the name of the calling application. + Pointer to a buffer containing the new key names and associated values that are to be written to the named section. + Pointer to a null-terminated string containing the name of the initialization file. If this parameter does not contain a full path for the file, the function searches the Windows directory for the file. If the file does not exist and lpFileName does not contain a full path, the function creates the file in the Windows directory. The function does not create a file if lpFileName contains the full path and file name of a file that does not exist. + If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero.
 + + + Constructs a new IniReader instance. + Specifies the full path to the INI file (the file doesn't have to exist). + + + Gets or sets the full path to the INI file. + A String representing the full path to the INI file. + + + + Gets or sets the section you're working in. (aka 'the active section') + A String representing the section you're working in. + + + + Reads an Integer from the specified key of the specified section. + The section to search in. + The key from which to return the value. + The value to return if the specified key isn't found. + Returns the value of the specified section/key pair, or returns the default value if the specified section/key pair isn't found in the INI file. + + + Reads an Integer from the specified key of the specified section. + The section to search in. + The key from which to return the value. + Returns the value of the specified section/key pair, or returns 0 if the specified section/key pair isn't found in the INI file. + + + Reads an Integer from the specified key of the active section. + The key from which to return the value. + The section to search in. + Returns the value of the specified Key, or returns the default value if the specified Key isn't found in the active section of the INI file. + + + Reads an Integer from the specified key of the active section. + The key from which to return the value. + Returns the value of the specified key, or returns 0 if the specified key isn't found in the active section of the INI file. + + + Reads a String from the specified key of the specified section. + The section to search in. + The key from which to return the value. + The value to return if the specified key isn't found. + Returns the value of the specified section/key pair, or returns the default value if the specified section/key pair isn't found in the INI file. + + + Reads a String from the specified key of the specified section. + The section to search in. + The key from which to return the value. + Returns the value of the specified section/key pair, or returns an empty String if the specified section/key pair isn't found in the INI file. + + + Reads a String from the specified key of the active section. + The key from which to return the value. + Returns the value of the specified key, or returns an empty String if the specified key isn't found in the active section of the INI file. + + + Reads a Long from the specified key of the specified section. + The section to search in. + The key from which to return the value. + The value to return if the specified key isn't found. + Returns the value of the specified section/key pair, or returns the default value if the specified section/key pair isn't found in the INI file. + + + Reads a Long from the specified key of the specified section. + The section to search in. + The key from which to return the value. + Returns the value of the specified section/key pair, or returns 0 if the specified section/key pair isn't found in the INI file. + + + Reads a Long from the specified key of the active section. + The key from which to return the value. + The section to search in. + Returns the value of the specified key, or returns the default value if the specified key isn't found in the active section of the INI file. + + + Reads a Long from the specified key of the active section. + The key from which to return the value. + Returns the value of the specified Key, or returns 0 if the specified Key isn't found in the active section of the INI file. + + + Reads a Byte array from the specified key of the specified section. + The section to search in. + The key from which to return the value. + Returns the value of the specified section/key pair, or returns null (Nothing in VB.NET) if the specified section/key pair isn't found in the INI file. + + + Reads a Byte array from the specified key of the active section. + The key from which to return the value. + Returns the value of the specified key, or returns null (Nothing in VB.NET) if the specified key pair isn't found in the active section of the INI file. + + + Reads a Boolean from the specified key of the specified section. + The section to search in. + The key from which to return the value. + The value to return if the specified key isn't found. + Returns the value of the specified section/key pair, or returns the default value if the specified section/key pair isn't found in the INI file. + + + Reads a Boolean from the specified key of the specified section. + The section to search in. + The key from which to return the value. + Returns the value of the specified section/key pair, or returns false if the specified section/key pair isn't found in the INI file. + + + Reads a Boolean from the specified key of the specified section. + The key from which to return the value. + The value to return if the specified key isn't found. + Returns the value of the specified key pair, or returns the default value if the specified key isn't found in the active section of the INI file. + + + Reads a Boolean from the specified key of the specified section. + The key from which to return the value. + Returns the value of the specified key, or returns false if the specified key isn't found in the active section of the INI file. + + + Writes an Integer to the specified key in the specified section. + The section to write in. + The key to write to. + The value to write. + Returns true if the function succeeds, false otherwise. + + + Writes an Integer to the specified key in the active section. + The key to write to. + The value to write. + Returns true if the function succeeds, false otherwise. + + + Writes a String to the specified key in the specified section. + Specifies the section to write in. + Specifies the key to write to. + Specifies the value to write. + Returns true if the function succeeds, false otherwise. + + + Writes a String to the specified key in the active section. + The key to write to. + The value to write. + Returns true if the function succeeds, false otherwise. + + + Writes a Long to the specified key in the specified section. + The section to write in. + The key to write to. + The value to write. + Returns true if the function succeeds, false otherwise. + + + Writes a Long to the specified key in the active section. + The key to write to. + The value to write. + Returns true if the function succeeds, false otherwise. + + + Writes a Byte array to the specified key in the specified section. + The section to write in. + The key to write to. + The value to write. + Returns true if the function succeeds, false otherwise. + + + Writes a Byte array to the specified key in the active section. + The key to write to. + The value to write. + Returns true if the function succeeds, false otherwise. + + + Writes a Byte array to the specified key in the specified section. + The section to write in. + The key to write to. + The value to write. + An offset in value. + The number of elements of value to convert. + Returns true if the function succeeds, false otherwise. + + + Writes a Boolean to the specified key in the specified section. + The section to write in. + The key to write to. + The value to write. + Returns true if the function succeeds, false otherwise. + + + Writes a Boolean to the specified key in the active section. + The key to write to. + The value to write. + Returns true if the function succeeds, false otherwise. + + + Deletes a key from the specified section. + The section to delete from. + The key to delete. + Returns true if the function succeeds, false otherwise. + + + Deletes a key from the active section. + The key to delete. + Returns true if the function succeeds, false otherwise. + + + + Deletes a section from an INI file. + The section to delete. + Returns true if the function succeeds, false otherwise. + + + + Retrieves a list of all available sections in the INI file. + + + Returns an ArrayList with all available sections. + + + + + Holds the full path to the INI file. + + + + + Holds the active section name + + + + + The maximum number of bytes in a section buffer. + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/CVCncLib/ureg.bat b/CVCncLib/ureg.bat new file mode 100644 index 00000000..9166160d --- /dev/null +++ b/CVCncLib/ureg.bat @@ -0,0 +1 @@ +c:\windows\system32\regsvr32 /u s10dllprj.dll