frmmain1.vb

modbusRTU

        'CmdWriteB0
        '
        Me.CmdWriteB0.BackColor = System.Drawing.SystemColors.Control
        Me.CmdWriteB0.Cursor = System.Windows.Forms.Cursors.Default
        Me.CmdWriteB0.Enabled = False
        Me.CmdWriteB0.ForeColor = System.Drawing.SystemColors.ControlText
        Me.CmdWriteB0.Location = New System.Drawing.Point(250, 112)
        Me.CmdWriteB0.Name = "CmdWriteB0"
        Me.CmdWriteB0.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.CmdWriteB0.Size = New System.Drawing.Size(78, 27)
        Me.CmdWriteB0.TabIndex = 51
        Me.CmdWriteB0.Text = "close"
        '
        'CobWBNumber
        '
        Me.CobWBNumber.BackColor = System.Drawing.SystemColors.Window
        Me.CobWBNumber.Cursor = System.Windows.Forms.Cursors.Default
        Me.CobWBNumber.Enabled = False
        Me.CobWBNumber.ForeColor = System.Drawing.SystemColors.WindowText
        Me.CobWBNumber.Location = New System.Drawing.Point(125, 121)
        Me.CobWBNumber.Name = "CobWBNumber"
        Me.CobWBNumber.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.CobWBNumber.Size = New System.Drawing.Size(78, 20)
        Me.CobWBNumber.TabIndex = 50
        Me.CobWBNumber.Text = "Combo6"
        '
        'TextAddWB
        '
        Me.TextAddWB.AcceptsReturn = True
        Me.TextAddWB.AutoSize = False
        Me.TextAddWB.BackColor = System.Drawing.SystemColors.Window
        Me.TextAddWB.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.TextAddWB.ForeColor = System.Drawing.SystemColors.WindowText
        Me.TextAddWB.Location = New System.Drawing.Point(125, 52)
        Me.TextAddWB.MaxLength = 0
        Me.TextAddWB.Name = "TextAddWB"
        Me.TextAddWB.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.TextAddWB.Size = New System.Drawing.Size(39, 27)
        Me.TextAddWB.TabIndex = 49
        Me.TextAddWB.Text = "4000"
        '
        'Text12
        '
        Me.Text12.AcceptsReturn = True
        Me.Text12.AutoSize = False
        Me.Text12.BackColor = System.Drawing.SystemColors.Window
        Me.Text12.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.Text12.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.Text12.ForeColor = System.Drawing.SystemColors.WindowText
        Me.Text12.Location = New System.Drawing.Point(86, 55)
        Me.Text12.MaxLength = 0
        Me.Text12.Name = "Text12"
        Me.Text12.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Text12.Size = New System.Drawing.Size(40, 20)
        Me.Text12.TabIndex = 48
        Me.Text12.Text = "V"
        Me.Text12.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'Label21
        '
        Me.Label21.BackColor = System.Drawing.SystemColors.Control
        Me.Label21.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label21.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label21.Location = New System.Drawing.Point(163, 52)
        Me.Label21.Name = "Label21"
        Me.Label21.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label21.Size = New System.Drawing.Size(11, 27)
        Me.Label21.TabIndex = 58
        Me.Label21.Text = "."
        '
        'Label19
        '
        Me.Label19.BackColor = System.Drawing.SystemColors.Control
        Me.Label19.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label19.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label19.Location = New System.Drawing.Point(19, 121)
        Me.Label19.Name = "Label19"
        Me.Label19.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label19.Size = New System.Drawing.Size(59, 27)
        Me.Label19.TabIndex = 53
        Me.Label19.Text = "长度："
        '
        'Label18
        '
        Me.Label18.BackColor = System.Drawing.SystemColors.Control
        Me.Label18.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label18.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label18.Location = New System.Drawing.Point(19, 52)
        Me.Label18.Name = "Label18"
        Me.Label18.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label18.Size = New System.Drawing.Size(78, 27)
        Me.Label18.TabIndex = 52
        Me.Label18.Text = "起始地址："
        '
        'Frame6
        '
        Me.Frame6.BackColor = System.Drawing.SystemColors.Control
        Me.Frame6.Controls.Add(Me.TextBitNumR)
        Me.Frame6.Controls.Add(Me.Text9)
        Me.Frame6.Controls.Add(Me.TextAddRB)
        Me.Frame6.Controls.Add(Me.CobRBNumber)
        Me.Frame6.Controls.Add(Me.TextDataRB)
        Me.Frame6.Controls.Add(Me.CmdReadB)
        Me.Frame6.Controls.Add(Me.Label22)
        Me.Frame6.Controls.Add(Me.Label17)
        Me.Frame6.Controls.Add(Me.Label16)
        Me.Frame6.Controls.Add(Me.Label15)
        Me.Frame6.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Frame6.Location = New System.Drawing.Point(10, 439)
        Me.Frame6.Name = "Frame6"
        Me.Frame6.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Frame6.Size = New System.Drawing.Size(346, 174)
        Me.Frame6.TabIndex = 40
        Me.Frame6.TabStop = False
        Me.Frame6.Text = "读寄存器M10.0"
        '
        'TextBitNumR
        '
        Me.TextBitNumR.AcceptsReturn = True
        Me.TextBitNumR.AutoSize = False
        Me.TextBitNumR.BackColor = System.Drawing.SystemColors.Window
        Me.TextBitNumR.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.TextBitNumR.ForeColor = System.Drawing.SystemColors.WindowText
        Me.TextBitNumR.Location = New System.Drawing.Point(182, 34)
        Me.TextBitNumR.MaxLength = 0
        Me.TextBitNumR.Name = "TextBitNumR"
        Me.TextBitNumR.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.TextBitNumR.Size = New System.Drawing.Size(40, 27)
        Me.TextBitNumR.TabIndex = 61
        Me.TextBitNumR.Text = "0"
        '
        'Text9
        '
        Me.Text9.AcceptsReturn = True
        Me.Text9.AutoSize = False
        Me.Text9.BackColor = System.Drawing.SystemColors.Window
        Me.Text9.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.Text9.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.Text9.ForeColor = System.Drawing.SystemColors.WindowText
        Me.Text9.Location = New System.Drawing.Point(96, 38)
        Me.Text9.MaxLength = 0
        Me.Text9.Name = "Text9"
        Me.Text9.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Text9.Size = New System.Drawing.Size(40, 20)
        Me.Text9.TabIndex = 60
        Me.Text9.Text = "V"
        Me.Text9.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'TextAddRB
        '
        Me.TextAddRB.AcceptsReturn = True
        Me.TextAddRB.AutoSize = False
        Me.TextAddRB.BackColor = System.Drawing.SystemColors.Window
        Me.TextAddRB.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.TextAddRB.ForeColor = System.Drawing.SystemColors.WindowText
        Me.TextAddRB.Location = New System.Drawing.Point(134, 34)
        Me.TextAddRB.MaxLength = 0
        Me.TextAddRB.Name = "TextAddRB"
        Me.TextAddRB.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.TextAddRB.Size = New System.Drawing.Size(40, 27)
        Me.TextAddRB.TabIndex = 59
        Me.TextAddRB.Text = "3000"
        '
        'CobRBNumber
        '
        Me.CobRBNumber.BackColor = System.Drawing.SystemColors.Window
        Me.CobRBNumber.Cursor = System.Windows.Forms.Cursors.Default
        Me.CobRBNumber.ForeColor = System.Drawing.SystemColors.WindowText
        Me.CobRBNumber.Location = New System.Drawing.Point(125, 86)
        Me.CobRBNumber.Name = "CobRBNumber"
        Me.CobRBNumber.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.CobRBNumber.Size = New System.Drawing.Size(78, 20)
        Me.CobRBNumber.TabIndex = 43
        Me.CobRBNumber.Text = "Combo6"
        '
        'TextDataRB
        '
        Me.TextDataRB.AcceptsReturn = True
        Me.TextDataRB.AutoSize = False
        Me.TextDataRB.BackColor = System.Drawing.SystemColors.Window
        Me.TextDataRB.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.TextDataRB.ForeColor = System.Drawing.SystemColors.WindowText
        Me.TextDataRB.Location = New System.Drawing.Point(125, 121)
        Me.TextDataRB.MaxLength = 0
        Me.TextDataRB.Multiline = True
        Me.TextDataRB.Name = "TextDataRB"
        Me.TextDataRB.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.TextDataRB.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
        Me.TextDataRB.Size = New System.Drawing.Size(193, 35)
        Me.TextDataRB.TabIndex = 42
        Me.TextDataRB.Text = ""
        '
        'CmdReadB
        '
        Me.CmdReadB.BackColor = System.Drawing.SystemColors.Control
        Me.CmdReadB.Cursor = System.Windows.Forms.Cursors.Default
        Me.CmdReadB.Enabled = False
        Me.CmdReadB.ForeColor = System.Drawing.SystemColors.ControlText
        Me.CmdReadB.Location = New System.Drawing.Point(240, 86)
        Me.CmdReadB.Name = "CmdReadB"
        Me.CmdReadB.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.CmdReadB.Size = New System.Drawing.Size(78, 27)
        Me.CmdReadB.TabIndex = 41
        Me.CmdReadB.Text = "read"
        '
        'Label22
        '
        Me.Label22.BackColor = System.Drawing.SystemColors.Control
        Me.Label22.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label22.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label22.Location = New System.Drawing.Point(173, 34)
        Me.Label22.Name = "Label22"
        Me.Label22.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label22.Size = New System.Drawing.Size(11, 27)
        Me.Label22.TabIndex = 62
        Me.Label22.Text = "."
        '
        'Label17
        '
        Me.Label17.BackColor = System.Drawing.SystemColors.Control
        Me.Label17.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label17.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label17.Location = New System.Drawing.Point(19, 43)
        Me.Label17.Name = "Label17"
        Me.Label17.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label17.Size = New System.Drawing.Size(78, 27)
        Me.Label17.TabIndex = 46
        Me.Label17.Text = "起始地址："
        '
        'Label16
        '
        Me.Label16.BackColor = System.Drawing.SystemColors.Control
        Me.Label16.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label16.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label16.Location = New System.Drawing.Point(19, 86)
        Me.Label16.Name = "Label16"
        Me.Label16.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label16.Size = New System.Drawing.Size(78, 27)
        Me.Label16.TabIndex = 45
        Me.Label16.Text = "长度："
        '
        'Label15
        '
        Me.Label15.BackColor = System.Drawing.SystemColors.Control
        Me.Label15.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label15.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label15.Location = New System.Drawing.Point(19, 129)
        Me.Label15.Name = "Label15"
        Me.Label15.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label15.Size = New System.Drawing.Size(78, 27)
        Me.Label15.TabIndex = 44
        Me.Label15.Text = "返回值："
        '
        'Frame4
        '
        Me.Frame4.BackColor = System.Drawing.SystemColors.Control
        Me.Frame4.Controls.Add(Me.Text8)
        Me.Frame4.Controls.Add(Me.TextAddWD)
        Me.Frame4.Controls.Add(Me.CobWDNumber)
        Me.Frame4.Controls.Add(Me.TextDataD)
        Me.Frame4.Controls.Add(Me.CmdWriteVD)
        Me.Frame4.Controls.Add(Me.Label14)
        Me.Frame4.Controls.Add(Me.Label13)
        Me.Frame4.Controls.Add(Me.Label12)
        Me.Frame4.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Frame4.Location = New System.Drawing.Point(365, 267)
        Me.Frame4.Name = "Frame4"
        Me.Frame4.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Frame4.Size = New System.Drawing.Size(356, 173)
        Me.Frame4.TabIndex = 31
        Me.Frame4.TabStop = False
        Me.Frame4.Text = "写寄存器VD"
        '
        'Text8
        '
        Me.Text8.AcceptsReturn = True
        Me.Text8.AutoSize = False
        Me.Text8.BackColor = System.Drawing.SystemColors.Window
        Me.Text8.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.Text8.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.Text8.ForeColor = System.Drawing.SystemColors.WindowText
        Me.Text8.Location = New System.Drawing.Point(86, 29)
        Me.Text8.MaxLength = 0
        Me.Text8.Name = "Text8"
        Me.Text8.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Text8.Size = New System.Drawing.Size(40, 21)