VB编写欧姆龙PLC和霍尼韦尔扫描枪 的串口调试程序，可供大家参考

VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form SerailTest
   Caption         =   "串口调试"
   ClientHeight    =   8250
   ClientLeft      =   120
   ClientTop       =   450
   ClientWidth     =   11490
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   ScaleHeight     =   8250
   ScaleWidth      =   11490
   StartUpPosition =   3  '窗口缺省
   Begin VB.ComboBox Combo
      Height          =   300
      Index           =   6
      Left            =   4560
      TabIndex        =   23
      Top             =   3600
      Width           =   1335
   End
   Begin VB.ComboBox Combo
      Height          =   300
      Index           =   5
      Left            =   1560
      TabIndex        =   21
      Top             =   3600
      Width           =   1335
   End
   Begin MSCommLib.MSComm MSComm1
      Left            =   10320
      Top             =   1200
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      DTREnable       =   -1  'True
   End
   Begin VB.CheckBox Check4
      Caption         =   "HEX显示"
      Height          =   420
      Left            =   8040
      TabIndex        =   19
      Top             =   3600
      Width           =   1335
   End
   Begin VB.CheckBox Check3
      Caption         =   "ASC显示"
      Height          =   375
      Left            =   6240
      TabIndex        =   18
      Top             =   3600
      Width           =   1335
   End
   Begin VB.CheckBox Check2
      Caption         =   "HEX输入"
      Height          =   300
      Left            =   7920
      TabIndex        =   17
      Top             =   3000
      Width           =   1815
   End
   Begin VB.CommandButton Command2
      Caption         =   "打开串口"
      Height          =   495
      Left            =   9240
      Style           =   1  'Graphical
      TabIndex        =   16
      Top             =   360
      Width           =   1575
   End
   Begin VB.ComboBox Combo
      Height          =   300
      Index           =   4
      Left            =   8160
      TabIndex        =   14
      Top             =   1320
      Width           =   1335
   End
   Begin VB.CheckBox Check
      Caption         =   "异或校验"
      Height          =   375
      Index           =   0
      Left            =   6840
      TabIndex        =   13
      Top             =   360
      Width           =   1935
   End
   Begin VB.ComboBox Combo
      Height          =   300
      Index           =   3
      Left            =   4560
      TabIndex        =   11
      Top             =   1320
      Width           =   1335
   End
   Begin VB.ComboBox Combo
      Height          =   300
      Index           =   2 <