frmmain1.vb

modbusRTU

        '
        'TextAddWW
        '
        Me.TextAddWW.AcceptsReturn = True
        Me.TextAddWW.AutoSize = False
        Me.TextAddWW.BackColor = System.Drawing.SystemColors.Window
        Me.TextAddWW.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.TextAddWW.ForeColor = System.Drawing.SystemColors.WindowText
        Me.TextAddWW.Location = New System.Drawing.Point(125, 34)
        Me.TextAddWW.MaxLength = 0
        Me.TextAddWW.Name = "TextAddWW"
        Me.TextAddWW.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.TextAddWW.Size = New System.Drawing.Size(78, 27)
        Me.TextAddWW.TabIndex = 16
        Me.TextAddWW.Text = "20"
        '
        'Text4
        '
        Me.Text4.AcceptsReturn = True
        Me.Text4.AutoSize = False
        Me.Text4.BackColor = System.Drawing.SystemColors.Window
        Me.Text4.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.Text4.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.Text4.ForeColor = System.Drawing.SystemColors.WindowText
        Me.Text4.Location = New System.Drawing.Point(86, 38)
        Me.Text4.MaxLength = 0
        Me.Text4.Name = "Text4"
        Me.Text4.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Text4.Size = New System.Drawing.Size(40, 20)
        Me.Text4.TabIndex = 15
        Me.Text4.Text = "VW"
        Me.Text4.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'Label6
        '
        Me.Label6.BackColor = System.Drawing.SystemColors.Control
        Me.Label6.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label6.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label6.Location = New System.Drawing.Point(19, 129)
        Me.Label6.Name = "Label6"
        Me.Label6.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label6.Size = New System.Drawing.Size(59, 27)
        Me.Label6.TabIndex = 10
        Me.Label6.Text = "数据："
        '
        'Label5
        '
        Me.Label5.BackColor = System.Drawing.SystemColors.Control
        Me.Label5.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label5.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label5.Location = New System.Drawing.Point(19, 78)
        Me.Label5.Name = "Label5"
        Me.Label5.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label5.Size = New System.Drawing.Size(59, 26)
        Me.Label5.TabIndex = 9
        Me.Label5.Text = "长度："
        '
        'Label4
        '
        Me.Label4.BackColor = System.Drawing.SystemColors.Control
        Me.Label4.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label4.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label4.Location = New System.Drawing.Point(19, 34)
        Me.Label4.Name = "Label4"
        Me.Label4.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label4.Size = New System.Drawing.Size(78, 27)
        Me.Label4.TabIndex = 8
        Me.Label4.Text = "起始地址："
        '
        'Frame1
        '
        Me.Frame1.BackColor = System.Drawing.SystemColors.Control
        Me.Frame1.Controls.Add(Me.CmdReadVW)
        Me.Frame1.Controls.Add(Me.TextDataRW)
        Me.Frame1.Controls.Add(Me.CobRWNumber)
        Me.Frame1.Controls.Add(Me.TextAddRW)
        Me.Frame1.Controls.Add(Me.Text1)
        Me.Frame1.Controls.Add(Me.Label3)
        Me.Frame1.Controls.Add(Me.Label2)
        Me.Frame1.Controls.Add(Me.Label1)
        Me.Frame1.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Frame1.Location = New System.Drawing.Point(10, 95)
        Me.Frame1.Name = "Frame1"
        Me.Frame1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Frame1.Size = New System.Drawing.Size(346, 165)
        Me.Frame1.TabIndex = 3
        Me.Frame1.TabStop = False
        Me.Frame1.Text = "读寄存器VW"
        '
        'CmdReadVW
        '
        Me.CmdReadVW.BackColor = System.Drawing.SystemColors.Control
        Me.CmdReadVW.Cursor = System.Windows.Forms.Cursors.Default
        Me.CmdReadVW.Enabled = False
        Me.CmdReadVW.ForeColor = System.Drawing.SystemColors.ControlText
        Me.CmdReadVW.Location = New System.Drawing.Point(240, 78)
        Me.CmdReadVW.Name = "CmdReadVW"
        Me.CmdReadVW.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.CmdReadVW.Size = New System.Drawing.Size(78, 26)
        Me.CmdReadVW.TabIndex = 19
        Me.CmdReadVW.Text = "read"
        '
        'TextDataRW
        '
        Me.TextDataRW.AcceptsReturn = True
        Me.TextDataRW.AutoSize = False
        Me.TextDataRW.BackColor = System.Drawing.SystemColors.Window
        Me.TextDataRW.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.TextDataRW.ForeColor = System.Drawing.SystemColors.WindowText
        Me.TextDataRW.Location = New System.Drawing.Point(125, 121)
        Me.TextDataRW.MaxLength = 0
        Me.TextDataRW.Multiline = True
        Me.TextDataRW.Name = "TextDataRW"
        Me.TextDataRW.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.TextDataRW.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
        Me.TextDataRW.Size = New System.Drawing.Size(193, 35)
        Me.TextDataRW.TabIndex = 14
        Me.TextDataRW.Text = ""
        '
        'CobRWNumber
        '
        Me.CobRWNumber.BackColor = System.Drawing.SystemColors.Window
        Me.CobRWNumber.Cursor = System.Windows.Forms.Cursors.Default
        Me.CobRWNumber.ForeColor = System.Drawing.SystemColors.WindowText
        Me.CobRWNumber.Location = New System.Drawing.Point(125, 78)
        Me.CobRWNumber.Name = "CobRWNumber"
        Me.CobRWNumber.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.CobRWNumber.Size = New System.Drawing.Size(78, 20)
        Me.CobRWNumber.TabIndex = 13
        Me.CobRWNumber.Text = "Combo6"
        '
        'TextAddRW
        '
        Me.TextAddRW.AcceptsReturn = True
        Me.TextAddRW.AutoSize = False
        Me.TextAddRW.BackColor = System.Drawing.SystemColors.Window
        Me.TextAddRW.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.TextAddRW.ForeColor = System.Drawing.SystemColors.WindowText
        Me.TextAddRW.Location = New System.Drawing.Point(125, 40)
        Me.TextAddRW.MaxLength = 0
        Me.TextAddRW.Name = "TextAddRW"
        Me.TextAddRW.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.TextAddRW.Size = New System.Drawing.Size(78, 27)
        Me.TextAddRW.TabIndex = 12
        Me.TextAddRW.Text = "0"
        '
        'Text1
        '
        Me.Text1.AcceptsReturn = True
        Me.Text1.AutoSize = False
        Me.Text1.BackColor = System.Drawing.SystemColors.Window
        Me.Text1.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.Text1.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.Text1.ForeColor = System.Drawing.SystemColors.WindowText
        Me.Text1.Location = New System.Drawing.Point(86, 43)
        Me.Text1.MaxLength = 0
        Me.Text1.Name = "Text1"
        Me.Text1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Text1.Size = New System.Drawing.Size(40, 21)
        Me.Text1.TabIndex = 11
        Me.Text1.Text = "VW"
        Me.Text1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'Label3
        '
        Me.Label3.BackColor = System.Drawing.SystemColors.Control
        Me.Label3.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label3.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label3.Location = New System.Drawing.Point(19, 129)
        Me.Label3.Name = "Label3"
        Me.Label3.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label3.Size = New System.Drawing.Size(78, 27)
        Me.Label3.TabIndex = 7
        Me.Label3.Text = "返回值："
        '
        'Label2
        '
        Me.Label2.BackColor = System.Drawing.SystemColors.Control
        Me.Label2.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label2.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label2.Location = New System.Drawing.Point(19, 78)
        Me.Label2.Name = "Label2"
        Me.Label2.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label2.Size = New System.Drawing.Size(78, 26)
        Me.Label2.TabIndex = 6
        Me.Label2.Text = "长度："
        '
        'Label1
        '
        Me.Label1.BackColor = System.Drawing.SystemColors.Control
        Me.Label1.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label1.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label1.Location = New System.Drawing.Point(19, 43)
        Me.Label1.Name = "Label1"
        Me.Label1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label1.Size = New System.Drawing.Size(78, 27)
        Me.Label1.TabIndex = 5
        Me.Label1.Text = "起始地址："
        '
        'Frame5
        '
        Me.Frame5.BackColor = System.Drawing.SystemColors.Control
        Me.Frame5.Controls.Add(Me.CombAddPLC)
        Me.Frame5.Controls.Add(Me.CmdPort)
        Me.Frame5.Controls.Add(Me.ComboPort)
        Me.Frame5.Controls.Add(Me.Label7)
        Me.Frame5.Controls.Add(Me.Label8)
        Me.Frame5.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Frame5.Location = New System.Drawing.Point(10, 43)
        Me.Frame5.Name = "Frame5"
        Me.Frame5.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Frame5.Size = New System.Drawing.Size(711, 53)
        Me.Frame5.TabIndex = 0
        Me.Frame5.TabStop = False
        Me.Frame5.Text = "参数设定"
        '
        'CombAddPLC
        '
        Me.CombAddPLC.BackColor = System.Drawing.SystemColors.Window
        Me.CombAddPLC.Cursor = System.Windows.Forms.Cursors.Default
        Me.CombAddPLC.ForeColor = System.Drawing.SystemColors.WindowText
        Me.CombAddPLC.Location = New System.Drawing.Point(461, 17)
        Me.CombAddPLC.Name = "CombAddPLC"
        Me.CombAddPLC.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.CombAddPLC.Size = New System.Drawing.Size(78, 20)
        Me.CombAddPLC.TabIndex = 64
        '
        'CmdPort
        '
        Me.CmdPort.BackColor = System.Drawing.SystemColors.Control
        Me.CmdPort.Cursor = System.Windows.Forms.Cursors.Default
        Me.CmdPort.ForeColor = System.Drawing.SystemColors.ControlText
        Me.CmdPort.Location = New System.Drawing.Point(586, 17)
        Me.CmdPort.Name = "CmdPort"
        Me.CmdPort.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.CmdPort.Size = New System.Drawing.Size(97, 27)
        Me.CmdPort.TabIndex = 2
        Me.CmdPort.Text = "打开端口"
        '
        'ComboPort
        '
        Me.ComboPort.BackColor = System.Drawing.SystemColors.Window
        Me.ComboPort.Cursor = System.Windows.Forms.Cursors.Default
        Me.ComboPort.ForeColor = System.Drawing.SystemColors.WindowText
        Me.ComboPort.Location = New System.Drawing.Point(115, 19)
        Me.ComboPort.Name = "ComboPort"
        Me.ComboPort.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.ComboPort.Size = New System.Drawing.Size(78, 20)
        Me.ComboPort.TabIndex = 1
        '
        'Label7
        '
        Me.Label7.BackColor = System.Drawing.SystemColors.Control
        Me.Label7.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label7.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label7.Location = New System.Drawing.Point(374, 17)
        Me.Label7.Name = "Label7"
        Me.Label7.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label7.Size = New System.Drawing.Size(78, 19)
        Me.Label7.TabIndex = 63
        Me.Label7.Text = "从站地址："
        '
        'Label8
        '
        Me.Label8.BackColor = System.Drawing.SystemColors.Control
        Me.Label8.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label8.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label8.Location = New System.Drawing.Point(19, 17)
        Me.Label8.Name = "Label8"
        Me.Label8.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label8.Size = New System.Drawing.Size(78, 27)
        Me.Label8.TabIndex = 21
        Me.Label8.Text = "端口选择："
        '
        'MSComm1
        '
        Me.MSComm1.Enabled = True
        Me.MSComm1.Location = New System.Drawing.Point(0, 0)
        Me.MSComm1.Name = "MSComm1"
        Me.MSComm1.OcxState = CType(resources.GetObject("MSComm1.OcxState"), System.Windows.Forms.AxHost.State)
        Me.MSComm1.Size = New System.Drawing.Size(38, 38)
        Me.MSComm1.TabIndex = 56
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuPort})