Rs232串口通信专题范例,Vusual Basic,Mscomm,PCOMMPRO

				VERSION 5.00
				Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
				Begin VB.Form Form1 
				   Caption         =   "电脑端"
				   ClientHeight    =   4020
				   ClientLeft      =   45
				   ClientTop       =   270
				   ClientWidth     =   7605
				   LinkTopic       =   "Form1"
				   ScaleHeight     =   4020
				   ScaleWidth      =   7605
				   StartUpPosition =   3  '窗口缺省
				   Begin VB.TextBox txtReceive 
				      BeginProperty Font 
				         Name            =   "Arial Unicode MS"
				         Size            =   12
				         Charset         =   136
				         Weight          =   400
				         Underline       =   0   'False
				         Italic          =   0   'False
				         Strikethrough   =   0   'False
				      EndProperty
				      ForeColor       =   &H00FF0000&
				      Height          =   1755
				      Left            =   4020
				      MultiLine       =   -1  'True
				      ScrollBars      =   2  'Vertical
				      TabIndex        =   6
				      Text            =   "Mainform.frx":0000
				      Top             =   420
				      Width           =   2910
				   End
				   Begin VB.CommandButton Command1 
				      Caption         =   "睲埃钡Μ跋"
				      BeginProperty Font 
				         Name            =   "Arial Unicode MS"
				         Size            =   12
				         Charset         =   136
				         Weight          =   400
				         Underline       =   0   'False
				         Italic          =   0   'False
				         Strikethrough   =   0   'False
				      EndProperty
				      Height          =   924
				      Left            =   2850
				      Picture         =   "Mainform.frx":0006
				      Style           =   1  'Graphical
				      TabIndex        =   5
				      Top             =   2520
				      Width           =   1725
				   End
				   Begin MSCommLib.MSComm Comm1 
				      Left            =   0
				      Top             =   600
				      _ExtentX        =   794
				      _ExtentY        =   794
				      _Version        =   393216
				      CommPort        =   2
				      DTREnable       =   -1  'True
				      RThreshold      =   1
				   End
				   Begin VB.CommandButton CmdExit 
				      Cancel          =   -1  'True
				      Caption         =   "挡