form1.frm

用VB做的

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   6630
   ClientLeft      =   1950
   ClientTop       =   2550
   ClientWidth     =   9405
   LinkTopic       =   "Form1"
   ScaleHeight     =   6630
   ScaleWidth      =   9405
   Begin VB.TextBox Text1 
      Height          =   285
      Left            =   7100
      TabIndex        =   35
      Text            =   "00000080"
      Top             =   2940
      Width           =   1215
   End
   Begin VB.Timer Timer1 
      Interval        =   1
      Left            =   9000
      Top             =   720
   End
   Begin VB.TextBox Text4 
      Height          =   285
      Left            =   1050
      TabIndex        =   32
      Text            =   "01 02 03 04 05 06 07 08 "
      Top             =   3430
      Width           =   3855
   End
   Begin VB.ComboBox Combo5 
      Height          =   315
      ItemData        =   "Form1.frx":0000
      Left            =   5250
      List            =   "Form1.frx":000A
      Style           =   2  'Dropdown List
      TabIndex        =   31
      Top             =   2930
      Width           =   1215
   End
   Begin VB.ComboBox Combo4 
      Height          =   315
      ItemData        =   "Form1.frx":001E
      Left            =   3240
      List            =   "Form1.frx":0028
      Style           =   2  'Dropdown List
      TabIndex        =   30
      Top             =   2940
      Width           =   1215
   End
   Begin VB.ComboBox Combo3 
      Height          =   315
      ItemData        =   "Form1.frx":003C
      Left            =   1200
      List            =   "Form1.frx":004C
      Style           =   2  'Dropdown List
      TabIndex        =   29
      Top             =   2940
      Width           =   1215
   End
   Begin VB.CommandButton Command7 
      Caption         =   "设置"
      Height          =   330
      Left            =   8040
      TabIndex        =   28
      Top             =   2130
      Width           =   645
   End
   Begin VB.Frame Frame5 
      Caption         =   "设置报文滤波"
      Height          =   615
      Left            =   3360
      TabIndex        =   25
      Top             =   1920
      Width           =   5535
      Begin VB.TextBox Text3 
         Height          =   285
         Left            =   720
         TabIndex        =   27
         Top             =   240
         Width           =   3855
      End
      Begin VB.Label Label12 
         Caption         =   "参数："
         Height          =   255
         Left            =   240
         TabIndex        =   26
         Top             =   280
         Width           =   615
      End
   End
   Begin VB.CommandButton Command6 
      Caption         =   "读滤波器参数"
      Height          =   330
      Left            =   360
      TabIndex        =   22
      Top             =   2100
      Width           =   1245
   End
   Begin VB.Frame Frame4 
      Height          =   615
      Left            =   240
      TabIndex        =   21
      Top             =   1920
      Width           =   3015
      Begin VB.TextBox Text2 
         Height          =   285
         Left            =   2160
         TabIndex        =   24
         Text            =   "1"
         Top             =   210
         Width           =   735
      End
      Begin VB.Label Label11 
         Caption         =   "组号："
         Height          =   255
         Left            =   1560
         TabIndex        =   23
         Top             =   240
         Width           =   735
      End
   End
   Begin VB.CommandButton Command5 
      Caption         =   "更改"
      Height          =   330
      Index           =   0
      Left            =   6120
      TabIndex        =   20
      Top             =   1320
      Width           =   645
   End
   Begin VB.CommandButton Command4 
      Caption         =   "更改"
      Height          =   330
      Left            =   2760
      TabIndex        =   17
      Top             =   1320
      Width           =   645
   End
   Begin VB.Frame Frame3 
      Caption         =   "设置波特率"
      Height          =   735
      Left            =   240
      TabIndex        =   14
      Top             =   1080
      Width           =   6735
      Begin VB.ComboBox Combo2 
         Height          =   315
         ItemData        =   "Form1.frx":007C
         Left            =   4560
         List            =   "Form1.frx":00AE
         Style           =   2  'Dropdown List
         TabIndex        =   19
         Top             =   240
         Width           =   1215
      End
      Begin VB.ComboBox Combo1 
         Height          =   315
         ItemData        =   "Form1.frx":00E0
         Left            =   1320
         List            =   "Form1.frx":00FC
         Style           =   2  'Dropdown List
         TabIndex        =   16
         Top             =   240
         Width           =   1095
      End
      Begin VB.Label Label2 
         Caption         =   "RS232波特率："
         Height          =   255
         Left            =   3360
         TabIndex        =   18
         Top             =   270
         Width           =   1215
      End
      Begin VB.Label Label1 
         Caption         =   "CAN波特率："
         Height          =   255
         Left            =   240
         TabIndex        =   15
         Top             =   270
         Width           =   1215
      End
   End
   Begin VB.CommandButton Command3 
      Caption         =   "复位CAN"
      Height          =   330
      Left            =   7200
      TabIndex        =   13
      Top             =   480
      Width           =   1005
   End
   Begin VB.CommandButton Command2 
      Caption         =   "启动CAN"
      Height          =   330
      Left            =   5880
      TabIndex        =   12
      Top             =   480
      Width           =   1005
   End
   Begin VB.CommandButton Connect 
      Caption         =   "连接"
      Height          =   330
      Left            =   4515
      TabIndex        =   2
      Top             =   480
      Width           =   1005
   End
   Begin VB.Frame Frame1 
      Caption         =   " 发送数据帧 "
      Height          =   1230
      Left            =   240
      TabIndex        =   1
      Top             =   2640
      Width           =   8595
      Begin VB.CommandButton Command1 
         Caption         =   "发送"
         Height          =   330
         Left            =   4920
         TabIndex        =   8
         Top             =   760
         Width           =   870
      End
      Begin VB.Label Label7 
         Caption         =   "数据："
         Height          =   240
         Left            =   240
         TabIndex        =   7
         Top             =   840
         Width           =   555
      End
      Begin VB.Label Label6 
         Caption         =   "帧ID："
         Height          =   195
         Left            =   6360
         TabIndex        =   6
         Top             =   360
         Width           =   585
      End
      Begin VB.Label Label5 
         Caption         =   "帧格式："
         Height          =   195
         Left            =   4320
         TabIndex        =   5
         Top             =   360
         Width           =   765
      End
      Begin VB.Label Label4 
         Caption         =   "帧类型："
         Height          =   195
         Left            =   2280
         TabIndex        =   4
         Top             =   360
         Width           =   810
      End
      Begin VB.Label Label3 
         Caption         =   "发送格式："
         Height          =   240
         Left            =   120
         TabIndex        =   3
         Top             =   360
         Width           =   960
      End
   End
   Begin VB.ComboBox Combo_Baud 
      Height          =   315
      ItemData        =   "Form1.frx":0146
      Left            =   3120
      List            =   "Form1.frx":0178
      Style           =   2  'Dropdown List
      TabIndex        =   0
      Top             =   450
      Width           =   1185
   End
   Begin VB.Frame Frame2 
      Caption         =   "串口参数"
      Height          =   855
      Left            =   240
      TabIndex        =   9
      Top             =   120
      Width           =   5415
      Begin VB.ComboBox Combo_port 
         Height          =   315
         ItemData        =   "Form1.frx":01AA
         Left            =   840
         List            =   "Form1.frx":01BA
         Style           =   2  'Dropdown List
         TabIndex        =   36
         Top             =   360
         Width           =   1185
      End
      Begin VB.Label Label10 
         Caption         =   "波特率："
         Height          =   255
         Left            =   2160
         TabIndex        =   11
         Top             =   360