Refresh OSAI e S7
This commit is contained in:
Samuele Locatelli
@@ -0,0 +1 @@
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@@ -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
|
||||
Generated
+426
@@ -0,0 +1,426 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class FrmMain
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
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.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
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
|
||||
@@ -0,0 +1,150 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="Tmr_Main.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>121, 17</value>
|
||||
</metadata>
|
||||
<metadata name="FolderBrowserDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>226, 17</value>
|
||||
</metadata>
|
||||
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>397, 17</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>72</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
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==
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -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
|
||||
|
||||
|
||||
@@ -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)
|
||||
|
||||
@@ -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 <enableremoteconnect> 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
|
||||
' <the interactive user> o <this user> nella sezione identity dell'applicazione cndex,
|
||||
' ed <everyone> 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
|
||||
<VBFixedArray(NUM_ELEM_SEL_AXI)> 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"'
|
||||
<VBFixedString(MAIN_PROGR_NAME_LEN), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValArray, SizeConst:=MAIN_PROGR_NAME_LEN)> 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
|
||||
<VBFixedArray(22)> 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
|
||||
<VBFixedArray(15)> 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"'
|
||||
<VBFixedString(40), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValArray, SizeConst:=40)> 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"'
|
||||
<VBFixedString(40), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValArray, SizeConst:=40)> 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"'
|
||||
<VBFixedString(40), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValArray, SizeConst:=40)> 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"'
|
||||
<VBFixedString(40), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValArray, SizeConst:=40)> 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
|
||||
File diff suppressed because it is too large
Load Diff
@@ -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
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@@ -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
|
||||
@@ -0,0 +1,454 @@
|
||||
'
|
||||
' IniReader class
|
||||
|
||||
Imports System
|
||||
Imports System.Text
|
||||
Imports System.Collections
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports Microsoft.VisualBasic
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' The INIReader class can read keys from and write keys to an INI file.
|
||||
''' </summary>
|
||||
''' <remarks>
|
||||
''' This class uses several Win32 API functions to read from and write to INI files. It will not work on Linux or FreeBSD.
|
||||
''' </remarks>
|
||||
|
||||
Public Class IniReader
|
||||
|
||||
''' <summary>
|
||||
''' The GetPrivateProfileInt function retrieves an integer associated with a key in the specified section of an initialization file.
|
||||
''' </summary>
|
||||
''' <param name="lpApplicationName">Pointer to a null-terminated string specifying the name of the section in the initialization file.</param>
|
||||
''' <param name="lpKeyName">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.</param>
|
||||
''' <param name="nDefault">Specifies the default value to return if the key name cannot be found in the initialization file.</param>
|
||||
''' <param name="lpFileName">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.</param>
|
||||
''' <returns>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.</returns>
|
||||
|
||||
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
|
||||
|
||||
''' <summary>
|
||||
''' The WritePrivateProfileString function copies a string into the specified section of an initialization file.
|
||||
''' </summary>
|
||||
''' <param name="lpApplicationName">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.</param>
|
||||
''' <param name="lpKeyName">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.</param>
|
||||
''' <param name="lpString">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.</param>
|
||||
''' <param name="lpFileName">Pointer to a null-terminated string that specifies the name of the initialization file.</param>
|
||||
''' <returns>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.</returns>
|
||||
|
||||
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
|
||||
|
||||
''' <summary>
|
||||
''' The GetPrivateProfileString function retrieves a string from the specified section in an initialization file.
|
||||
''' </summary>
|
||||
''' <param name="lpApplicationName">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.</param>
|
||||
''' <param name="lpKeyName">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.</param>
|
||||
''' <param name="lpDefault">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. <br>Avoid specifying a default string with trailing blank characters. The function inserts a null character in the lpReturnedString buffer to strip any trailing blanks.</br></param>
|
||||
''' <param name="lpReturnedString">Pointer to the buffer that receives the retrieved string.</param>
|
||||
''' <param name="nSize">Specifies the size, in TCHARs, of the buffer pointed to by the lpReturnedString parameter.</param>
|
||||
''' <param name="lpFileName">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.</param>
|
||||
''' <returns>The return value is the number of characters copied to the buffer, not including the terminating null character.</returns>
|
||||
|
||||
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
|
||||
|
||||
''' <summary>
|
||||
''' The GetPrivateProfileSectionNames function retrieves the names of all sections in an initialization file.
|
||||
''' </summary>
|
||||
''' <param name="lpszReturnBuffer">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.</param>
|
||||
''' <param name="nSize">Specifies the size, in TCHARs, of the buffer pointed to by the lpszReturnBuffer parameter.</param>
|
||||
''' <param name="lpFileName">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.</param>
|
||||
''' <returns>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.</returns>
|
||||
|
||||
Private Declare Ansi Function GetPrivateProfileSectionNames Lib "kernel32" Alias "GetPrivateProfileSectionNamesA" (ByVal lpszReturnBuffer() As Byte, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
|
||||
|
||||
''' <summary>
|
||||
''' The WritePrivateProfileSection function replaces the keys and values for the specified section in an initialization file.
|
||||
''' </summary>
|
||||
''' <param name="lpAppName">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.</param>
|
||||
''' <param name="lpString">Pointer to a buffer containing the new key names and associated values that are to be written to the named section.</param>
|
||||
''' <param name="lpFileName">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.</param>
|
||||
''' <returns>If the function succeeds, the return value is nonzero.<br>If the function fails, the return value is zero.</br></returns>
|
||||
|
||||
Private Declare Ansi Function WritePrivateProfileSection Lib "kernel32.dll" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer
|
||||
|
||||
''' <summary>Constructs a new IniReader instance.</summary>
|
||||
''' <param name="file">Specifies the full path to the INI file (the file doesn't have to exist).</param>
|
||||
|
||||
Public Sub New(ByVal file As String)
|
||||
Filename = file
|
||||
End Sub
|
||||
|
||||
''' <summary>Gets or sets the full path to the INI file.</summary>
|
||||
''' <value>A String representing the full path to the INI file.</value>
|
||||
'''
|
||||
|
||||
Public Property Filename() As String
|
||||
Get
|
||||
Return m_Filename
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_Filename = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
''' <summary>Gets or sets the section you're working in. (aka 'the active section')</summary>
|
||||
''' <value>A String representing the section you're working in.</value>
|
||||
'''
|
||||
|
||||
Public Property Section() As String
|
||||
Get
|
||||
Return m_Section
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_Section = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
''' <summary>Reads an Integer from the specified key of the specified section.</summary>
|
||||
''' <param name="section">The section to search in.</param>
|
||||
''' <param name="key">The key from which to return the value.</param>
|
||||
''' <param name="defVal">The value to return if the specified key isn't found.</param>
|
||||
''' <returns>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.</returns>
|
||||
|
||||
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
|
||||
|
||||
''' <summary>Reads an Integer from the specified key of the specified section.</summary>
|
||||
''' <param name="section">The section to search in.</param>
|
||||
''' <param name="key">The key from which to return the value.</param>
|
||||
''' <returns>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.</returns>
|
||||
|
||||
Public Function ReadInteger(ByVal section As String, ByVal key As String) As Integer
|
||||
Return ReadInteger(section, key, 0)
|
||||
End Function
|
||||
|
||||
''' <summary>Reads an Integer from the specified key of the active section.</summary>
|
||||
''' <param name="key">The key from which to return the value.</param>
|
||||
''' <param name="defVal">The section to search in.</param>
|
||||
''' <returns>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.</returns>
|
||||
|
||||
Public Function ReadInteger(ByVal key As String, ByVal defVal As Integer) As Integer
|
||||
Return ReadInteger(Section, key, defVal)
|
||||
End Function
|
||||
|
||||
''' <summary>Reads an Integer from the specified key of the active section.</summary>
|
||||
''' <param name="key">The key from which to return the value.</param>
|
||||
''' <returns>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.</returns>
|
||||
|
||||
Public Function ReadInteger(ByVal key As String) As Integer
|
||||
Return ReadInteger(key, 0)
|
||||
End Function
|
||||
|
||||
''' <summary>Reads a String from the specified key of the specified section.</summary>
|
||||
''' <param name="section">The section to search in.</param>
|
||||
''' <param name="key">The key from which to return the value.</param>
|
||||
''' <param name="defVal">The value to return if the specified key isn't found.</param>
|
||||
''' <returns>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.</returns>
|
||||
|
||||
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
|
||||
|
||||
''' <summary>Reads a String from the specified key of the specified section.</summary>
|
||||
''' <param name="section">The section to search in.</param>
|
||||
''' <param name="key">The key from which to return the value.</param>
|
||||
''' <returns>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.</returns>
|
||||
|
||||
Public Function ReadString(ByVal section As String, ByVal key As String) As String
|
||||
Return ReadString(section, key, "")
|
||||
End Function
|
||||
|
||||
''' <summary>Reads a String from the specified key of the active section.</summary>
|
||||
''' <param name="key">The key from which to return the value.</param>
|
||||
''' <returns>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.</returns>
|
||||
|
||||
Public Function ReadString(ByVal key As String) As String
|
||||
Return ReadString(Section, key)
|
||||
End Function
|
||||
|
||||
''' <summary>Reads a Long from the specified key of the specified section.</summary>
|
||||
''' <param name="section">The section to search in.</param>
|
||||
''' <param name="key">The key from which to return the value.</param>
|
||||
''' <param name="defVal">The value to return if the specified key isn't found.</param>
|
||||
''' <returns>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.</returns>
|
||||
|
||||
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
|
||||
|
||||
''' <summary>Reads a Long from the specified key of the specified section.</summary>
|
||||
''' <param name="section">The section to search in.</param>
|
||||
''' <param name="key">The key from which to return the value.</param>
|
||||
''' <returns>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.</returns>
|
||||
|
||||
Public Function ReadLong(ByVal section As String, ByVal key As String) As Long
|
||||
Return ReadLong(section, key, 0)
|
||||
End Function
|
||||
|
||||
''' <summary>Reads a Long from the specified key of the active section.</summary>
|
||||
''' <param name="key">The key from which to return the value.</param>
|
||||
''' <param name="defVal">The section to search in.</param>
|
||||
''' <returns>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.</returns>
|
||||
|
||||
Public Function ReadLong(ByVal key As String, ByVal defVal As Long) As Long
|
||||
Return ReadLong(Section, key, defVal)
|
||||
End Function
|
||||
|
||||
''' <summary>Reads a Long from the specified key of the active section.</summary>
|
||||
''' <param name="key">The key from which to return the value.</param>
|
||||
''' <returns>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.</returns>
|
||||
|
||||
Public Function ReadLong(ByVal key As String) As Long
|
||||
Return ReadLong(key, 0)
|
||||
End Function
|
||||
|
||||
''' <summary>Reads a Byte array from the specified key of the specified section.</summary>
|
||||
''' <param name="section">The section to search in.</param>
|
||||
''' <param name="key">The key from which to return the value.</param>
|
||||
''' <returns>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.</returns>
|
||||
|
||||
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
|
||||
|
||||
''' <summary>Reads a Byte array from the specified key of the active section.</summary>
|
||||
''' <param name="key">The key from which to return the value.</param>
|
||||
''' <returns>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.</returns>
|
||||
|
||||
Public Function ReadByteArray(ByVal key As String) As Byte()
|
||||
Return ReadByteArray(Section, key)
|
||||
End Function
|
||||
|
||||
''' <summary>Reads a Boolean from the specified key of the specified section.</summary>
|
||||
''' <param name="section">The section to search in.</param>
|
||||
''' <param name="key">The key from which to return the value.</param>
|
||||
''' <param name="defVal">The value to return if the specified key isn't found.</param>
|
||||
''' <returns>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.</returns>
|
||||
|
||||
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
|
||||
|
||||
''' <summary>Reads a Boolean from the specified key of the specified section.</summary>
|
||||
''' <param name="section">The section to search in.</param>
|
||||
''' <param name="key">The key from which to return the value.</param>
|
||||
''' <returns>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.</returns>
|
||||
|
||||
Public Function ReadBoolean(ByVal section As String, ByVal key As String) As Boolean
|
||||
Return ReadBoolean(section, key, False)
|
||||
End Function
|
||||
|
||||
''' <summary>Reads a Boolean from the specified key of the specified section.</summary>
|
||||
''' <param name="key">The key from which to return the value.</param>
|
||||
''' <param name="defVal">The value to return if the specified key isn't found.</param>
|
||||
''' <returns>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.</returns>
|
||||
|
||||
Public Function ReadBoolean(ByVal key As String, ByVal defVal As Boolean) As Boolean
|
||||
Return ReadBoolean(Section, key, defVal)
|
||||
End Function
|
||||
|
||||
''' <summary>Reads a Boolean from the specified key of the specified section.</summary>
|
||||
''' <param name="key">The key from which to return the value.</param>
|
||||
''' <returns>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.</returns>
|
||||
|
||||
Public Function ReadBoolean(ByVal key As String) As Boolean
|
||||
Return ReadBoolean(Section, key)
|
||||
End Function
|
||||
|
||||
''' <summary>Writes an Integer to the specified key in the specified section.</summary>
|
||||
''' <param name="section">The section to write in.</param>
|
||||
''' <param name="key">The key to write to.</param>
|
||||
''' <param name="value">The value to write.</param>
|
||||
''' <returns>Returns true if the function succeeds, false otherwise.</returns>
|
||||
|
||||
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
|
||||
|
||||
''' <summary>Writes an Integer to the specified key in the active section.</summary>
|
||||
''' <param name="key">The key to write to.</param>
|
||||
''' <param name="value">The value to write.</param>
|
||||
''' <returns>Returns true if the function succeeds, false otherwise.</returns>
|
||||
|
||||
Public Function Write(ByVal key As String, ByVal value As Integer) As Boolean
|
||||
Return Write(Section, key, value)
|
||||
End Function
|
||||
|
||||
''' <summary>Writes a String to the specified key in the specified section.</summary>
|
||||
''' <param name="section">Specifies the section to write in.</param>
|
||||
''' <param name="key">Specifies the key to write to.</param>
|
||||
''' <param name="value">Specifies the value to write.</param>
|
||||
''' <returns>Returns true if the function succeeds, false otherwise.</returns>
|
||||
|
||||
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
|
||||
|
||||
''' <summary>Writes a String to the specified key in the active section.</summary>
|
||||
''' <param name="key">The key to write to.</param>
|
||||
''' <param name="value">The value to write.</param>
|
||||
''' <returns>Returns true if the function succeeds, false otherwise.</returns>
|
||||
|
||||
Public Function Write(ByVal key As String, ByVal value As String) As Boolean
|
||||
Return Write(Section, key, value)
|
||||
End Function
|
||||
|
||||
''' <summary>Writes a Long to the specified key in the specified section.</summary>
|
||||
''' <param name="section">The section to write in.</param>
|
||||
''' <param name="key">The key to write to.</param>
|
||||
''' <param name="value">The value to write.</param>
|
||||
''' <returns>Returns true if the function succeeds, false otherwise.</returns>
|
||||
|
||||
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
|
||||
|
||||
''' <summary>Writes a Long to the specified key in the active section.</summary>
|
||||
''' <param name="key">The key to write to.</param>
|
||||
''' <param name="value">The value to write.</param>
|
||||
''' <returns>Returns true if the function succeeds, false otherwise.</returns>
|
||||
|
||||
Public Function Write(ByVal key As String, ByVal value As Long) As Boolean
|
||||
Return Write(Section, key, value)
|
||||
End Function
|
||||
|
||||
''' <summary>Writes a Byte array to the specified key in the specified section.</summary>
|
||||
''' <param name="section">The section to write in.</param>
|
||||
''' <param name="key">The key to write to.</param>
|
||||
''' <param name="value">The value to write.</param>
|
||||
''' <returns>Returns true if the function succeeds, false otherwise.</returns>
|
||||
|
||||
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
|
||||
|
||||
''' <summary>Writes a Byte array to the specified key in the active section.</summary>
|
||||
''' <param name="key">The key to write to.</param>
|
||||
''' <param name="value">The value to write.</param>
|
||||
''' <returns>Returns true if the function succeeds, false otherwise.</returns>
|
||||
|
||||
Public Function Write(ByVal key As String, ByVal value() As Byte) As Boolean
|
||||
Return Write(Section, key, value)
|
||||
End Function
|
||||
|
||||
''' <summary>Writes a Byte array to the specified key in the specified section.</summary>
|
||||
''' <param name="section">The section to write in.</param>
|
||||
''' <param name="key">The key to write to.</param>
|
||||
''' <param name="value">The value to write.</param>
|
||||
''' <param name="offset">An offset in <i>value</i>.</param>
|
||||
''' <param name="length">The number of elements of <i>value</i> to convert.</param>
|
||||
''' <returns>Returns true if the function succeeds, false otherwise.</returns>
|
||||
|
||||
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
|
||||
|
||||
''' <summary>Writes a Boolean to the specified key in the specified section.</summary>
|
||||
''' <param name="section">The section to write in.</param>
|
||||
''' <param name="key">The key to write to.</param>
|
||||
''' <param name="value">The value to write.</param>
|
||||
''' <returns>Returns true if the function succeeds, false otherwise.</returns>
|
||||
|
||||
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
|
||||
|
||||
''' <summary>Writes a Boolean to the specified key in the active section.</summary>
|
||||
''' <param name="key">The key to write to.</param>
|
||||
''' <param name="value">The value to write.</param>
|
||||
''' <returns>Returns true if the function succeeds, false otherwise.</returns>
|
||||
|
||||
Public Function Write(ByVal key As String, ByVal value As Boolean) As Boolean
|
||||
Return Write(Section, key, value)
|
||||
End Function
|
||||
|
||||
''' <summary>Deletes a key from the specified section.</summary>
|
||||
''' <param name="section">The section to delete from.</param>
|
||||
''' <param name="key">The key to delete.</param>
|
||||
''' <returns>Returns true if the function succeeds, false otherwise.</returns>
|
||||
|
||||
Public Function DeleteKey(ByVal section As String, ByVal key As String) As Boolean
|
||||
Return (WritePrivateProfileString(section, key, Nothing, Filename) <> 0)
|
||||
End Function
|
||||
|
||||
''' <summary>Deletes a key from the active section.</summary>
|
||||
''' <param name="key">The key to delete.</param>
|
||||
''' <returns>Returns true if the function succeeds, false otherwise.</returns>
|
||||
'''
|
||||
|
||||
Public Function DeleteKey(ByVal key As String) As Boolean
|
||||
Return (WritePrivateProfileString(Section, key, Nothing, Filename) <> 0)
|
||||
End Function
|
||||
|
||||
''' <summary>Deletes a section from an INI file.</summary>
|
||||
''' <param name="section">The section to delete.</param>
|
||||
''' <returns>Returns true if the function succeeds, false otherwise.</returns>
|
||||
|
||||
Public Function DeleteSection(ByVal section As String) As Boolean
|
||||
Return WritePrivateProfileSection(section, Nothing, Filename) <> 0
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Retrieves a list of all available sections in the INI file.
|
||||
''' </summary>
|
||||
''' <returns>
|
||||
''' Returns an ArrayList with all available sections.
|
||||
''' </returns>
|
||||
|
||||
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
|
||||
|
||||
''' <summary>
|
||||
''' Holds the full path to the INI file.
|
||||
''' </summary>
|
||||
|
||||
Private m_Filename As String
|
||||
|
||||
''' <summary>
|
||||
''' Holds the active section name
|
||||
''' </summary>
|
||||
|
||||
Private m_Section As String
|
||||
|
||||
''' <summary>
|
||||
''' The maximum number of bytes in a section buffer.
|
||||
''' </summary>
|
||||
|
||||
Private Const MAX_ENTRY As Integer = 32768
|
||||
|
||||
End Class
|
||||
|
||||
@@ -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
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
@@ -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
|
||||
@@ -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
|
||||
@@ -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
|
||||
@@ -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
|
||||
+38
@@ -0,0 +1,38 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' 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.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
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
|
||||
|
||||
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||
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
|
||||
|
||||
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||
Protected Overrides Sub OnCreateMainForm()
|
||||
Me.MainForm = Global.testSam.FrmMain
|
||||
End Sub
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-16"?>
|
||||
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<MySubMain>true</MySubMain>
|
||||
<MainForm>FrmMain</MainForm>
|
||||
<SingleInstance>false</SingleInstance>
|
||||
<ShutdownMode>0</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||
</MyApplicationData>
|
||||
@@ -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
|
||||
|
||||
<Assembly: AssemblyTitle("testSam")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("testSam")>
|
||||
<Assembly: AssemblyCopyright("Copyright © 2014-2018 C. Viviani")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
|
||||
<Assembly: ComVisible(False)>
|
||||
|
||||
'The following GUID is for the ID of the typelib if this project is exposed to COM
|
||||
<Assembly: Guid("2fb94fab-d718-4820-b080-f1328a1833d8")>
|
||||
|
||||
' Version information for an assembly consists of the following four values:
|
||||
'
|
||||
' Major Version
|
||||
' Minor Version
|
||||
' Build Number
|
||||
' Revision
|
||||
'
|
||||
' You can specify all the values or you can default the Build and Revision Numbers
|
||||
' by using the '*' as shown below:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.0.0.9")>
|
||||
<Assembly: AssemblyFileVersion("1.0.0.9")>
|
||||
+63
@@ -0,0 +1,63 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' 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.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
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.
|
||||
'''<summary>
|
||||
''' Classe di risorse fortemente tipizzata per la ricerca di stringhe localizzate e così via.
|
||||
'''</summary>
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||
Friend Module Resources
|
||||
|
||||
Private resourceMan As Global.System.Resources.ResourceManager
|
||||
|
||||
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||
|
||||
'''<summary>
|
||||
''' Restituisce l'istanza di ResourceManager nella cache utilizzata da questa classe.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
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
|
||||
|
||||
'''<summary>
|
||||
''' Esegue l'override della proprietà CurrentUICulture del thread corrente per tutte le
|
||||
''' ricerche di risorse eseguite utilizzando questa classe di risorse fortemente tipizzata.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||
Get
|
||||
Return resourceCulture
|
||||
End Get
|
||||
Set
|
||||
resourceCulture = value
|
||||
End Set
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -0,0 +1,117 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
+93
@@ -0,0 +1,93 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' 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.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "14.0.0.0"), _
|
||||
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
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
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
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
|
||||
|
||||
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("http://192.168.20.2:8080")> _
|
||||
Public ReadOnly Property door_pro_WebReference_OPENcontrol() As String
|
||||
Get
|
||||
Return CType(Me("door_pro_WebReference_OPENcontrol"),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("http://192.168.20.2:8080")> _
|
||||
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
|
||||
|
||||
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||
Friend Module MySettingsProperty
|
||||
|
||||
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||
Friend ReadOnly Property Settings() As Global.testSam.My.MySettings
|
||||
Get
|
||||
Return Global.testSam.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -0,0 +1,12 @@
|
||||
<?xml version='1.0' encoding='utf-8'?>
|
||||
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
|
||||
<Profiles />
|
||||
<Settings>
|
||||
<Setting Name="door_pro_WebReference_OPENcontrol" Type="(Web Service URL)" Scope="Application">
|
||||
<Value Profile="(Default)">http://192.168.20.2:8080</Value>
|
||||
</Setting>
|
||||
<Setting Name="d_prod_WebReference_OPENcontrol" Type="(Web Service URL)" Scope="Application">
|
||||
<Value Profile="(Default)">http://192.168.20.2:8080</Value>
|
||||
</Setting>
|
||||
</Settings>
|
||||
</SettingsFile>
|
||||
@@ -0,0 +1,22 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<asmv1:assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
|
||||
<assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
|
||||
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
|
||||
<security>
|
||||
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
|
||||
<!-- UAC Manifest Options
|
||||
If you want to change the Windows User Account Control level replace the
|
||||
requestedExecutionLevel node with one of the following.
|
||||
|
||||
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
|
||||
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
|
||||
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
|
||||
|
||||
If you want to utilize File and Registry Virtualization for backward
|
||||
compatibility then delete the requestedExecutionLevel node.
|
||||
-->
|
||||
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
|
||||
</requestedPrivileges>
|
||||
</security>
|
||||
</trustInfo>
|
||||
</asmv1:assembly>
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,30 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<ReferenceGroup xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ID="aa749fd7-6bb2-48d3-a002-250c7f927179" xmlns="urn:schemas-microsoft-com:xml-wcfservicemap">
|
||||
<ClientOptions>
|
||||
<GenerateAsynchronousMethods>false</GenerateAsynchronousMethods>
|
||||
<EnableDataBinding>true</EnableDataBinding>
|
||||
<ExcludedTypes />
|
||||
<ImportXmlTypes>false</ImportXmlTypes>
|
||||
<GenerateInternalTypes>false</GenerateInternalTypes>
|
||||
<GenerateMessageContracts>false</GenerateMessageContracts>
|
||||
<NamespaceMappings />
|
||||
<CollectionMappings />
|
||||
<GenerateSerializableTypes>true</GenerateSerializableTypes>
|
||||
<Serializer>Auto</Serializer>
|
||||
<UseSerializerForFaults>true</UseSerializerForFaults>
|
||||
<ReferenceAllAssemblies>true</ReferenceAllAssemblies>
|
||||
<ReferencedAssemblies />
|
||||
<ReferencedDataContractTypes />
|
||||
<ServiceContractMappings />
|
||||
</ClientOptions>
|
||||
<MetadataSources>
|
||||
<MetadataSource Address="c:\Users\carlo\Documents\Projects\vs2008\door_pro\door_pro\Service References\OPENcontrol.wsdl" Protocol="file" SourceId="1" />
|
||||
</MetadataSources>
|
||||
<Metadata>
|
||||
<MetadataFile FileName="OPENcontrol.wsdl" MetadataType="Wsdl" ID="03be9e31-2242-4e19-98d6-93e5d1e127ff" SourceId="1" SourceUrl="file:///c:/Users/carlo/Documents/Projects/vs2008/door_pro/door_pro/Service References/OPENcontrol.wsdl" />
|
||||
</Metadata>
|
||||
<Extensions>
|
||||
<ExtensionFile FileName="configuration91.svcinfo" Name="configuration91.svcinfo" />
|
||||
<ExtensionFile FileName="configuration.svcinfo" Name="configuration.svcinfo" />
|
||||
</Extensions>
|
||||
</ReferenceGroup>
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<configurationSnapshot xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="urn:schemas-microsoft-com:xml-wcfconfigurationsnapshot">
|
||||
<behaviors />
|
||||
<bindings>
|
||||
<binding digest="System.ServiceModel.Configuration.BasicHttpBindingElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089:<?xml version="1.0" encoding="utf-16"?><Data name="OPENcontrol" />" bindingType="basicHttpBinding" name="OPENcontrol" />
|
||||
</bindings>
|
||||
<endpoints>
|
||||
<endpoint normalizedDigest="<?xml version="1.0" encoding="utf-16"?><Data address="http://192.168.20.2:8080" binding="basicHttpBinding" bindingConfiguration="OPENcontrol" contract="OpenControl.OPENcontrolPortType" name="OPENcontrol" />" digest="<?xml version="1.0" encoding="utf-16"?><Data address="http://192.168.20.2:8080" binding="basicHttpBinding" bindingConfiguration="OPENcontrol" contract="OpenControl.OPENcontrolPortType" name="OPENcontrol" />" contractName="OpenControl.OPENcontrolPortType" name="OPENcontrol" />
|
||||
</endpoints>
|
||||
</configurationSnapshot>
|
||||
@@ -0,0 +1,201 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<SavedWcfConfigurationInformation xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" Version="9.1" CheckSum="PNNAvT8TySH22lF+K7Wt6bIK/ck=">
|
||||
<bindingConfigurations>
|
||||
<bindingConfiguration bindingType="basicHttpBinding" name="OPENcontrol">
|
||||
<properties>
|
||||
<property path="/name" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>OPENcontrol</serializedValue>
|
||||
</property>
|
||||
<property path="/closeTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue />
|
||||
</property>
|
||||
<property path="/openTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue />
|
||||
</property>
|
||||
<property path="/receiveTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue />
|
||||
</property>
|
||||
<property path="/sendTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue />
|
||||
</property>
|
||||
<property path="/allowCookies" isComplexType="false" isExplicitlyDefined="true" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue />
|
||||
</property>
|
||||
<property path="/bypassProxyOnLocal" isComplexType="false" isExplicitlyDefined="true" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue />
|
||||
</property>
|
||||
<property path="/hostNameComparisonMode" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.HostNameComparisonMode, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>StrongWildcard</serializedValue>
|
||||
</property>
|
||||
<property path="/maxBufferPoolSize" isComplexType="false" isExplicitlyDefined="true" clrType="System.Int64, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue />
|
||||
</property>
|
||||
<property path="/maxBufferSize" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>65536</serializedValue>
|
||||
</property>
|
||||
<property path="/maxReceivedMessageSize" isComplexType="false" isExplicitlyDefined="true" clrType="System.Int64, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue />
|
||||
</property>
|
||||
<property path="/proxyAddress" isComplexType="false" isExplicitlyDefined="false" clrType="System.Uri, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue />
|
||||
</property>
|
||||
<property path="/readerQuotas" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement</serializedValue>
|
||||
</property>
|
||||
<property path="/readerQuotas/maxDepth" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>0</serializedValue>
|
||||
</property>
|
||||
<property path="/readerQuotas/maxStringContentLength" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>0</serializedValue>
|
||||
</property>
|
||||
<property path="/readerQuotas/maxArrayLength" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>0</serializedValue>
|
||||
</property>
|
||||
<property path="/readerQuotas/maxBytesPerRead" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>0</serializedValue>
|
||||
</property>
|
||||
<property path="/readerQuotas/maxNameTableCharCount" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>0</serializedValue>
|
||||
</property>
|
||||
<property path="/textEncoding" isComplexType="false" isExplicitlyDefined="false" clrType="System.Text.Encoding, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>System.Text.UTF8Encoding</serializedValue>
|
||||
</property>
|
||||
<property path="/transferMode" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.TransferMode, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>Buffered</serializedValue>
|
||||
</property>
|
||||
<property path="/useDefaultWebProxy" isComplexType="false" isExplicitlyDefined="true" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue />
|
||||
</property>
|
||||
<property path="/messageEncoding" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.WSMessageEncoding, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>Text</serializedValue>
|
||||
</property>
|
||||
<property path="/security" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.BasicHttpSecurityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>System.ServiceModel.Configuration.BasicHttpSecurityElement</serializedValue>
|
||||
</property>
|
||||
<property path="/security/mode" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.BasicHttpSecurityMode, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>None</serializedValue>
|
||||
</property>
|
||||
<property path="/security/transport" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.HttpTransportSecurityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>System.ServiceModel.Configuration.HttpTransportSecurityElement</serializedValue>
|
||||
</property>
|
||||
<property path="/security/transport/clientCredentialType" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.HttpClientCredentialType, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>None</serializedValue>
|
||||
</property>
|
||||
<property path="/security/transport/proxyCredentialType" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.HttpProxyCredentialType, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>None</serializedValue>
|
||||
</property>
|
||||
<property path="/security/transport/extendedProtectionPolicy" isComplexType="true" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement</serializedValue>
|
||||
</property>
|
||||
<property path="/security/transport/extendedProtectionPolicy/policyEnforcement" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.PolicyEnforcement, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>Never</serializedValue>
|
||||
</property>
|
||||
<property path="/security/transport/extendedProtectionPolicy/protectionScenario" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.ProtectionScenario, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>TransportSelected</serializedValue>
|
||||
</property>
|
||||
<property path="/security/transport/extendedProtectionPolicy/customServiceNames" isComplexType="true" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.Configuration.ServiceNameElementCollection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>(Raccolta)</serializedValue>
|
||||
</property>
|
||||
<property path="/security/transport/realm" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue />
|
||||
</property>
|
||||
<property path="/security/message" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.BasicHttpMessageSecurityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>System.ServiceModel.Configuration.BasicHttpMessageSecurityElement</serializedValue>
|
||||
</property>
|
||||
<property path="/security/message/clientCredentialType" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.BasicHttpMessageCredentialType, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>UserName</serializedValue>
|
||||
</property>
|
||||
<property path="/security/message/algorithmSuite" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.Security.SecurityAlgorithmSuite, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>Default</serializedValue>
|
||||
</property>
|
||||
</properties>
|
||||
</bindingConfiguration>
|
||||
</bindingConfigurations>
|
||||
<endpoints>
|
||||
<endpoint name="OPENcontrol" contract="OpenControl.OPENcontrolPortType" bindingType="basicHttpBinding" address="http://192.168.20.2:8080/" bindingConfiguration="OPENcontrol">
|
||||
<properties>
|
||||
<property path="/address" isComplexType="false" isExplicitlyDefined="true" clrType="System.Uri, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>http://192.168.20.2:8080</serializedValue>
|
||||
</property>
|
||||
<property path="/behaviorConfiguration" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue />
|
||||
</property>
|
||||
<property path="/binding" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>basicHttpBinding</serializedValue>
|
||||
</property>
|
||||
<property path="/bindingConfiguration" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>OPENcontrol</serializedValue>
|
||||
</property>
|
||||
<property path="/contract" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>OpenControl.OPENcontrolPortType</serializedValue>
|
||||
</property>
|
||||
<property path="/headers" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.AddressHeaderCollectionElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>System.ServiceModel.Configuration.AddressHeaderCollectionElement</serializedValue>
|
||||
</property>
|
||||
<property path="/headers/headers" isComplexType="false" isExplicitlyDefined="true" clrType="System.ServiceModel.Channels.AddressHeaderCollection, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue><Header /></serializedValue>
|
||||
</property>
|
||||
<property path="/identity" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.IdentityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>System.ServiceModel.Configuration.IdentityElement</serializedValue>
|
||||
</property>
|
||||
<property path="/identity/userPrincipalName" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.UserPrincipalNameElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>System.ServiceModel.Configuration.UserPrincipalNameElement</serializedValue>
|
||||
</property>
|
||||
<property path="/identity/userPrincipalName/value" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue />
|
||||
</property>
|
||||
<property path="/identity/servicePrincipalName" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.ServicePrincipalNameElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>System.ServiceModel.Configuration.ServicePrincipalNameElement</serializedValue>
|
||||
</property>
|
||||
<property path="/identity/servicePrincipalName/value" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue />
|
||||
</property>
|
||||
<property path="/identity/dns" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.DnsElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>System.ServiceModel.Configuration.DnsElement</serializedValue>
|
||||
</property>
|
||||
<property path="/identity/dns/value" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue />
|
||||
</property>
|
||||
<property path="/identity/rsa" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.RsaElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>System.ServiceModel.Configuration.RsaElement</serializedValue>
|
||||
</property>
|
||||
<property path="/identity/rsa/value" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue />
|
||||
</property>
|
||||
<property path="/identity/certificate" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.CertificateElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>System.ServiceModel.Configuration.CertificateElement</serializedValue>
|
||||
</property>
|
||||
<property path="/identity/certificate/encodedValue" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue />
|
||||
</property>
|
||||
<property path="/identity/certificateReference" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.CertificateReferenceElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>System.ServiceModel.Configuration.CertificateReferenceElement</serializedValue>
|
||||
</property>
|
||||
<property path="/identity/certificateReference/storeName" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Cryptography.X509Certificates.StoreName, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>My</serializedValue>
|
||||
</property>
|
||||
<property path="/identity/certificateReference/storeLocation" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Cryptography.X509Certificates.StoreLocation, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>LocalMachine</serializedValue>
|
||||
</property>
|
||||
<property path="/identity/certificateReference/x509FindType" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Cryptography.X509Certificates.X509FindType, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>FindBySubjectDistinguishedName</serializedValue>
|
||||
</property>
|
||||
<property path="/identity/certificateReference/findValue" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue />
|
||||
</property>
|
||||
<property path="/identity/certificateReference/isChainIncluded" isComplexType="false" isExplicitlyDefined="false" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>False</serializedValue>
|
||||
</property>
|
||||
<property path="/name" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue>OPENcontrol</serializedValue>
|
||||
</property>
|
||||
<property path="/kind" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue />
|
||||
</property>
|
||||
<property path="/endpointConfiguration" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<serializedValue />
|
||||
</property>
|
||||
</properties>
|
||||
</endpoint>
|
||||
</endpoints>
|
||||
</SavedWcfConfigurationInformation>
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="AxesRefR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.AxesRefR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="BootModeR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.BootModeR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="BootPhaseEnquiryR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.BootPhaseEnquiryR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="BootRebootR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.BootRebootR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="BootShutDownR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.BootShutDownR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="CheckHistoryR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.CheckHistoryR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="CycleR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.CycleR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="DncDataR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.DncDataR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="DncEofR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.DncEofR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="DncInitR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.DncInitR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="DncStopR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.DncStopR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="EseExR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.EseExR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="EseR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.EseR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="ExeR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.ExeR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetActivePartProgramR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetActivePartProgramR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetAvailableCustomEventsR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetAvailableCustomEventsR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetAxOriginNumR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetAxOriginNumR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetAxesInfo3R" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetAxesInfo3R, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetAxesPositionR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetAxesPositionR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetBinaryFileR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetBinaryFileR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetBlkNumR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetBlkNumR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetCNCRegKeyR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetCNCRegKeyR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetCodeNumberR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetCodeNumberR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetDateTimeR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetDateTimeR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetFileR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetFileR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetGCodeR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetGCodeR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetHWKeyR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetHWKeyR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetMCodeR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetMCodeR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetMarkerInfoR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetMarkerInfoR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetNcInfo1R" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetNcInfo1R, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetNcInfo2R" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetNcInfo2R, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetOffsetTabRecordIIR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetOffsetTabRecordIIR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetOptionsR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetOptionsR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetOriginTabRecordIIR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetOriginTabRecordIIR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetPTechSizesR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetPTechSizesR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetPartProgramLinesR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetPartProgramLinesR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetProcInInputR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetProcInInputR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetProcVarDoubleR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetProcVarDoubleR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetProcVarWordR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetProcVarWordR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetProcessConfNumR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetProcessConfNumR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetProcessStatusR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetProcessStatusR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetSelectedProcessR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetSelectedProcessR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetSerialNumberR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetSerialNumberR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetServoParR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetServoParR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetSysTickR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetSysTickR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetToolNamesR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetToolNamesR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetToolTabRecordIIR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetToolTabRecordIIR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetUserTabRecordIIR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetUserTabRecordIIR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetVarJOGR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetVarJOGR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="GetVarRCMR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.GetVarRCMR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="HoldR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.HoldR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="LoadPTechR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.LoadPTechR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="LockTableIIR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.LockTableIIR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="LogFSAddDriveR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.LogFSAddDriveR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="LogFSChangeFileAttribR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.LogFSChangeFileAttribR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="LogFSCloseFileR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.LogFSCloseFileR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="LogFSCopyFileR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.LogFSCopyFileR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="LogFSCreateDirR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.LogFSCreateDirR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="LogFSCreateFileR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.LogFSCreateFileR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="LogFSFindCloseR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.LogFSFindCloseR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="LogFSFindFirstR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.LogFSFindFirstR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="LogFSFindNextR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>easysuperv.OpenControl.LogFSFindNextR, Service References.OpenControl.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user