form1.frm

modbusRTU

      Begin VB.TextBox TextDataD 
         Height          =   495
         Left            =   1560
         TabIndex        =   22
         Text            =   "25.5"
         Top             =   1800
         Width           =   2535
      End
      Begin VB.ComboBox Combo2 
         Enabled         =   0   'False
         Height          =   315
         Left            =   1560
         TabIndex        =   21
         Text            =   "Combo6"
         Top             =   1200
         Width           =   975
      End
      Begin VB.TextBox TextAddD 
         Height          =   375
         Left            =   1560
         TabIndex        =   20
         Text            =   "0"
         Top             =   360
         Width           =   975
      End
      Begin VB.TextBox Text8 
         Alignment       =   1  'Right Justify
         BorderStyle     =   0  'None
         Height          =   285
         Left            =   1080
         TabIndex        =   19
         Text            =   "VD"
         Top             =   405
         Width           =   495
      End
      Begin VB.Label Label12 
         Caption         =   "数据："
         Height          =   375
         Left            =   240
         TabIndex        =   26
         Top             =   1920
         Width           =   735
      End
      Begin VB.Label Label13 
         Caption         =   "长度："
         Height          =   375
         Left            =   240
         TabIndex        =   25
         Top             =   1200
         Width           =   735
      End
      Begin VB.Label Label14 
         Caption         =   "起始地址："
         Height          =   375
         Left            =   240
         TabIndex        =   24
         Top             =   360
         Width           =   975
      End
   End
   Begin VB.Frame Frame6 
      Caption         =   "读寄存器M10.0"
      Height          =   2415
      Left            =   120
      TabIndex        =   9
      Top             =   5760
      Width           =   4335
      Begin VB.CommandButton CmdReadM 
         Caption         =   "read"
         Height          =   375
         Left            =   3000
         TabIndex        =   14
         Top             =   1320
         Width           =   975
      End
      Begin VB.TextBox Text9 
         BorderStyle     =   0  'None
         Height          =   375
         Left            =   1680
         TabIndex        =   13
         Top             =   1920
         Width           =   2415
      End
      Begin VB.ComboBox Combo3 
         Enabled         =   0   'False
         Height          =   315
         Left            =   1560
         TabIndex        =   12
         Text            =   "Combo6"
         Top             =   1320
         Width           =   975
      End
      Begin VB.TextBox Text10 
         Height          =   375
         Left            =   1560
         TabIndex        =   11
         Text            =   "10.0"
         Top             =   555
         Width           =   975
      End
      Begin VB.TextBox Text11 
         Alignment       =   1  'Right Justify
         BorderStyle     =   0  'None
         Height          =   285
         Left            =   1080
         TabIndex        =   10
         Text            =   "M"
         Top             =   600
         Width           =   495
      End
      Begin VB.Label Label15 
         Caption         =   "返回值："
         Height          =   375
         Left            =   240
         TabIndex        =   17
         Top             =   1800
         Width           =   975
      End
      Begin VB.Label Label16 
         Caption         =   "长度："
         Height          =   375
         Left            =   240
         TabIndex        =   16
         Top             =   1320
         Width           =   975
      End
      Begin VB.Label Label17 
         Caption         =   "起始地址："
         Height          =   375
         Left            =   240
         TabIndex        =   15
         Top             =   600
         Width           =   975
      End
   End
   Begin VB.Frame Frame7 
      Caption         =   "写寄存器M10.0"
      Height          =   2415
      Left            =   4560
      TabIndex        =   0
      Top             =   5760
      Width           =   4455
      Begin VB.TextBox Text12 
         Alignment       =   1  'Right Justify
         BorderStyle     =   0  'None
         Height          =   285
         Left            =   1080
         TabIndex        =   5
         Text            =   "M"
         Top             =   405
         Width           =   495
      End
      Begin VB.TextBox Text13 
         Height          =   375
         Left            =   1560
         TabIndex        =   4
         Text            =   "10.0"
         Top             =   360
         Width           =   975
      End
      Begin VB.ComboBox Combo4 
         Enabled         =   0   'False
         Height          =   315
         Left            =   1560
         TabIndex        =   3
         Text            =   "Combo6"
         Top             =   1080
         Width           =   975
      End
      Begin VB.TextBox Text14 
         Height          =   495
         Left            =   1560
         TabIndex        =   2
         Text            =   "0"
         Top             =   1680
         Width           =   2535
      End
      Begin VB.CommandButton CmdWriteM 
         Caption         =   "write"
         Height          =   375
         Left            =   3120
         TabIndex        =   1
         Top             =   1080
         Width           =   975
      End
      Begin VB.Label Label18 
         Caption         =   "起始地址："
         Height          =   375
         Left            =   240
         TabIndex        =   8
         Top             =   360
         Width           =   975
      End
      Begin VB.Label Label19 
         Caption         =   "长度："
         Height          =   375
         Left            =   240
         TabIndex        =   7
         Top             =   1080
         Width           =   735
      End
      Begin VB.Label Label20 
         Caption         =   "数据："
         Height          =   375
         Left            =   240
         TabIndex        =   6
         Top             =   1800
         Width           =   735
      End
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   50
      Left            =   1080
      Top             =   -120
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False



Private Sub CmdWriteVW_Click()
   





Private Sub Form_Load()
Dim i As Integer
    Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
    
   
    
    FlagVW = False
    FlagVD = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If FrmMain1.MSComm1.PortOpen = True Then FrmMain1.MSComm1.PortOpen = False
End Sub