① 求：VB 与VB之间使用API通信例程。
讯编程节省了很多时间。在基于对话框的应用中加入一个MSComm控件非常简单。只需进行以下操作即可：
打开“Project->Add To Project->Components and Controls->Registered Activex Controls”,然后选择控件：Microsoft Communication Control,version 6.0插入到当前的工程中。这样就将类 CMSComm 的相关文件 mscomm.cpp 和 mscomm.h 一并加入到了工程中。编程时只需将控件对话中的 MSComm 控件拖至你的应用对话框中就OK了。
MSComm控件提供了两种处理通信的方法：
1.事件驱动通信，是一种功能很强的处理串口活动的方法。例如，当在CD（Carrier Detect）线或RTS（Request To Send）线上有字符到达或发生了改变，在这种情况下，可以使用MSComm控件的OnComm事件捕获和处理这些通信事件。OnComm也可以捕获和处理通信中的错误。
2.可以在每个重要的程序功能之后检查CommEvent属性的值来检测事件和通信错误。
使用的每个MSComm控件都与一个串口对应。如果在应用程序中需要访问多个串口，必须使用多个MSComm控件，可以在Windows 控制面板中修改串口地址的中断地址。
MSComm 控件有很多重要的属性，
CommPort 属性 ： 设置并返回通讯端口号。
语法 ： object.CommPort[value ] (value 一整型值，说明端口号。)
说明 ： 在设计时，value 可以设置成从 1 到 16 的任何数（缺省值为 1）。但是如果用 PortOpen 属性打开一个并不存在的端口时，MSComm 控件会产生错误 68（设备无效）。
RThreshold 属性：在MSComm控件设置CommEvent属性为comEReceive并产生 OnComm 之前，设置并返回的要接收的字符数。
语法： object.Rthreshold [ = value ]（value 整型表达式，说明在产生 OnComm 事件之前要接收的字符数。 ）
说明 ：当接收字符后，若 Rthreshold 属性设置为 0（缺省值）则不产生 OnComm 事件。例如，设置 Rthreshold 为 1，接收缓冲区收到每一个字符都会使 MSComm 控件产生 OnComm 事件。
CTSHolding 属性：确定是否可通过查询 Clear To Send (CTS) 线的状态发送数据。Clear To Send 是调制解调器发送到相联计算机的信号，指示传输可以进行。该属性在设计时无效，在运行时为只读。
语法 ： object.CTSHolding（Boolean）
Mscomm 控件的 CTSHolding 属性设置值：
1.True Clear To Send 线为高电平。
2.False Clear To Send 线为低电平。
说明：如果 Clear To Send 线为低电平 (CTSHolding = False) 并且超时时，MSComm控件设置CommEvent属性为comEventCTSTO（Clear To Send Timeout）并产生OnComm事件。。
Clear To Send 线用于 RTS/CTS (Request To Send/Clear To Send) 硬件握手。如果需要确定 Clear To Send 线的状态，CTSHolding 属性给出一种手工查询的方法。
SThreshold属性：在MSComm控件设置CommEvent属性为comEvSend 并产生 OnComm 事件之前，设置并返回传输缓冲区中允许的最小字符数。
语法 : object.SThreshold [ = value ] value整形表达式，代表在 OnComm 事件产生之前在传输缓冲区中的最小字符数。
说明：若设置 Sthreshold 属性为 0（缺省值），数据传输事件不会产生 OnComm 事件。若设置 Sthreshold 属性为 1，当传输缓冲区完全空时，MSComm 控件产生 OnComm 事件。如果在传输缓冲区中的字符数小于 value，CommEvent 属性设置为 comEvSend，并产生 OnComm 事件。comEvSend 事件仅当字符数与 Sthreshold 交叉时被激活一次。例如，如果 Sthreshold 等于 5，仅当在输出队列中字符数从 5 降到 4 时，comEvSend 才发生。如果在输出队列中从没有比 Sthreshold 多的字符，comEvSend 事件将绝不会发生。
comInputModeText 0 （缺省）通过 Input 属性以文本方式取回数据。
comInputModeBinary 1 通过 Input 属性以二进制方式检取回数据。
CDHolding 属性：通过查询 Carrier Detect (CD) 线的状态确定当前是否有传输。Carrier Detect 是从调制解调器发送到相联计算机的一个信号，指示调制解调器正在联机。该属性在设计时无效，在运行时为只读。
语法 object.CDHolding
设置值：CDHolding 属性的设置值为：
设置 描述
True Carrier Detect 线为高电平
False Carrier Detect 线为低电平
说明：注意当 Carrier Detect 线为高电平 (CDHolding = True) 且超时时，MSComm 控件设置CommEvent 属性为 comEventCDTO（Carrier Detect 超时错误），并产生 OnComm 事件。
在主机应用程序中捕获一个丢失的传输是特别重要的，例如一个公告板，因为呼叫者可以随时挂起（放弃传输）。
Carrier Detect 也被称为 Receive Line Signal Detect (RLSD)。 数据类型 Boolean
DSRHolding 属性：确定 Data Set Ready (DSR) 线的状态。Data Set Ready 信号由调制解调器发送到相连计算机，指示作好操作准备。该属性在设计时无效，在运行时为只读。
语法：object.DSRHolding
object 所在处表示对象表达式，其值是“应用于”列表中的对象。
DSRHolding 属性返回以下值：
值 描述
True Data Set Ready 线高
False Data Set Ready 线低
说明：当 Data Set Ready 线为高电平 (DSRHolding = True) 且超时时，MSComm 控件设置 CommEvent 属性为 comEventDSRTO（数据准备超时）并产生 OnComm 事件。
当为Data Terminal Equipment （DTE） 机器写 Data set Ready/Data Terminal Ready握手例程时该属性十分有用。
数据类型：Boolean
Settings 属性: 设置并返回波特率、奇偶校验、数据位、停止位参数。
语法: object.Settings[ = value]
说明：当端口打开时，如果 value 非法，则 MSComm 控件产生错误 380（非法属性值）。
Value 由四个设置值组成，有如下的格式：
"BBBB,P,D,S "
BBBB 为波特率，P为奇偶校验，D为数据位数，S为停止位数。value 的缺省值是： "9600,N,8,1 "
InputLen 属性：设置并返回 Input 属性从接收缓冲区读取的字符数。
语法 ： object.InputLen [ = value] InputLen 属性语法包括下列部分： value 整型表达式，说明 Input 属性从接收缓冲区中读取的字符数。
说明：InputLen 属性的缺省值是 0。设置 InputLen 为 0 时，使用 Input 将使 MSComm 控件读取接收缓冲区中全部.
CommEvent属性为通信事件或错误返回下列值之一。在该控件的对象库中也可以找到这些常量。
常量 值 描述
ComEventBreak 1001 收到了断开信号
ComEventCTSTO 1002 Clear To Send Timeout。在发送字符时，在系统指定的事1件内，CTS（Clear To Send）线是低电平
ComEventDSRTO 1003 Data Set Ready Timeout。在发送字符时，在系统指定的事件内，DSR（Data Set Ready）线是低电平
ComEventFrame 1004 数据帧错误。硬件检测到一个数据帧错误
ComEventOverrun 1006 端口溢出。硬件中的字符尚未读，下一个字符又到达，并且丢失
ComEventCDTO 1007 Carrier Detect Time。在发送字符时，在系统指定的事件内，CD（Carrier Detect）线是低电平。CD
也称为RLSD（Receive Line Singal Detect，接收线信号检测）
ComEventRxOver 1008 接收缓冲区溢出。在接收缓冲区中没有空间
ComEventRxParity 1009 奇偶校验错。硬件检测到奇偶校验错误7
ComEventTxFull 1010 发送缓冲区满。在对发送字符排队时，发送缓冲区满
ComEventDCB 1011 检取端口DCB（Device Control Blick）时发生了没有预料到的错误
通信事件包含了下面的设置：
常量 值 描述
ComEvSend 1 发送缓冲区中的字符数比Sthreshold值低
ComEvReceive 2 接收到了Rthreshold个字符。持续产生该事件，直到使用了Input属性删除了接收缓冲区中的数据
ComEvCTS 3 CTS（Clear To Send）线改变
ComEvDSR 4 DSR（Data Set Ready）线改变。当DSR从1到0改变时，该事件发生
ComEvCD 5 CD（Carrier Detect）线改变ComEvRing6检测到响铃信号。一些URAT（Universal AsynchronousReciver-
-Transmitters,通用异步收发器）不支持该事件
ComEvEOF 7 收到了EOF字符（ASCII字符26）
Error消息（MSComm控件）下表列出了MSComm控件可捕获的错误消息：
常量 值 描述
ComInvalidPropertyValue 380 无效的属性值
ComSetNotSupported 383 属性只读
ComGetNotSupported 394 属性只读
ComPortOpen 8000 端口打开时该存在无效
8001 超时设置必须比0值大
ComPortInvalid 8002 无效的端口号
8003 属性只在运行时有效
8004 属性在运行时是只读的
ComPortAleadyOpen 8005 端口已经打开
8006 设备标识符无效或不支持
8007 不支持设备的波特率
8008 指定的字节大小无效
8009 缺省参数错误
8010 硬件不可用（被其他设备锁住）
8011 函数不能分配队列
ComNoOpen 8012 设备没有打开
8013 设备已经打开
8014 不能使用通信通知
ComSetCommStateFailed 8015 不能设置通信状态
8016 不能设置通信事件屏蔽
ComPortNotOpen 8018 该存在只在端口打开是有效
8019 设备忙
ComReadError 8020 通信设备读错误
ComDCBError 8021 检取端口设备控制块时出现内部错误
搞清楚以上基本属性后，就可以开始编写通信许程序了。在VB5.0/6.0中新建一个工程文件。添加Microsoft Comm Control 5.0组
件，在简体Form1中加入Command命令按钮并取名为CmdTest，MSComm控件取名为MSComm1，加入如下程序代码。
Private Sub cmdTestClick ( ) '打开串口
MSComml.CommPort =2 '设定Com2
If MSComml.PortOpen = False Then
MSComm1.Settings = "9600,n,8,1" '9600波特率，无校验，8位数据位，1位停止位
MSComm1.PortOpen = True '打开串口
End if
MSComm1.OutBufferCount = 0 '清空发送缓冲区
MSComm1.InBufferCount = 0 '滑空接收缓冲区
'发送字符数据时注意必须用回车符（vbcr）结束
MSComm1.Output="This is a qood book ! " &vbCr
'泼打电话号码或发送AT命令
MSComm1.Output = "ATDT 05778191898 , & vbCr
'发送字符数组数据时注意ByteArray必须事先定义赋值
Dim ByteArray as byte( )
'定义动态数组
ReDim ByteArray(1)
'重定义数组大小
ByteArray ( 0 ) =0
ByteArray ( 1 ) = 1
MSComm1.Output = ByteArray
End Sub
private Sub MScommEvent( )
Select Case MSComm1.CommEvent
Case comEvReceive
Dim Buffer As Variant
MSComm1.InputLen = 0
'接收二进制数据
MSComm1.InputMode= ComInputModeBinary
Buffer=MSComm1.Input
'接收字符数据
MSComm1.InputMode=comInputModeText
Buffer = MSComml.Input
Case else
End Select
End sub
( 程序1)
二、中文Win 95／98下的通信问题与解决方法
1．接收的数据少于发送的数据
如果通过MSComm控件一次性传送较多的二进制数据，那么，很可能收到的数据不足。例如在设置为24oobps传输率的情况下，
一次性可以传输2048个字符数据 那么在大多数情况下。一次只能收到1200个字符左右，这址出为新版的MSComm32．OCX中存在一
个影响传输二进制数据的臭虫（bug）．注意这不是特性。
32位Windows API函数（以下简称API）使用了几个用COMMTIMEOUTS结构表示的限时变量，WriteTotalTimeOutConstant 即是其
中的一个，它被Windows内部设定为5000（即5秒），这个常量决定了在通信驱动程序停止传输之前花费在发送缓冲区中数据的时间
的长短，5秒钟意味着通信速度为1200bps情况下仅能发送600个字符，24oobps情况下仅能发送1200个左右的字符。事实上，在一个
缓冲区内一次性发送更多的数据是非常可能的。这个bug同样也能引发问题，甚至在高速串口门通信情况下，即使系统在使用流控
制，无论丛软件流（Xon／XofI）还是硬件流（CTS／RTS）。假如数据在发送缓冲区中时，流控制停止了传输，如果停止时间超过5
秒钟．则数据就会丢失。在某些环境下，5秒钟可能相当短．不过也不必担心， VB 5.0/6.0版本的MSComm控件有一个新增的重要的
属性称为CommID， CommID指的是当串口被打开时，被API所调用的串口句柄或称标志，这也意味着能利用API接口函数去修改这个
常量。每次串口关闭后，Windows会自动将之恢复为5000，所以，每次打开串口后需要重斩设定以下API声明，其代码见下程序。
Type COMMTIMEOUTS
ReadIntervalTimeout As Long
ReadTotalTimeoutMultiplier As Long
ReadTotalTimeoutConstant As Long
WriteTotalTimeoutMultiplier As Long
WriteTotalTimeoutConstant As Long
End Type
Declare Function SetCommTimeouts Lib "Kernel32"
(BYVal hFile As Long, lpComm TimeoutsAs COMMTIMEOUTS) As Long
Declare Function GetCommTimeouts Lib "Kernel32"
(ByVal hFile As Long, lpCommTimeouts As COMMTIMEOUTS) As Long
Dim timeouts As COMMEOUTS
Dim Ret As Long
If Comm1.PortOpen = False Then
Comm1.PortOpen = True
End if
Ret=GetCommTimeouts ( Comm1.CommID , timeouts )
'Set some default timeouts
timeOuts.ReadIntervalTimeout = 1
timeouts.ReadTotalTimeoutMultiplier =1
timeouts.ReadTotalTimeoutConstant =1
timeouts.WriteTotalTimeoutMultiplier =1
timeouts.WriteTotalTimeoutConstant=
( Comm1.OutBufferSize\Val(Comm1.Settings))*10000+1000
Ret=SetCommTimeouts( Comm1.CommID , timeouts )
( 程序2)
2．如何发送大于128的字符数据
在通信程序中，以单字符方式逐个发送数据时，每一个数据范围 0-255（即十六进制的00-FF）。在单字符版本的英文Win95或
DOS版的BASIC程序中，只需要将相应的数据转换成相应的字符发送到通信端口即可。但在中文Win95/98下却行不通，假设在中文
Win95／98下运行以下程序：
Dim i
For i=0 to 255
MSComm1.Output=chr(i)
Next i
希望在接收端得到预期的0-255之间的数据，结果却是：前129个数据接收正确，为0-128，后面127个数据为126个0和一个255，
造成这种给果的原因在于中文Windows使用的是双字节字符集（DBCS）系统。DBCS系统使用0-128之间的数字表示ASCII字符，大于
128的数字仅作为前导字符，它只是显示是一个非拉丁语系的字符，而并不代表实际意义。上述程序在调用CHR（）函数时用到了
DBCS字符集，冈此产生了此类错误。那么，如何发送人于128的数据呢？答案是使用字符数组，将以上程序改为：
Dim cc(255) As Byte
For i = 0 To 255
cc(i) = i
Next i
MSComm1.Output = cc
Do
DoEvents
Loop Until MSComm1.OutBufferCount = 0
'接收过程 MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
Dim Buffer As Variant, b1,i
MSComm1.InputMode=comInputModeBinery
MSComm1.InputLen = 0
Buffer = MSComm1.Input
For i=LBound (Buffer) To UBound (Buffer )
Debug.Print Buffer ( i ) ;
Next i
Case . . . . .
3．如何发送0字符（00H，NULL）
在VisuaI C＋＋中使用串口控件发送0字符有些麻烦，但在VB5.0/6.0中只要注意以下两点即可：
（1）设置MSComm控件的属性 NullDiscard=False；。
（2）使用二进制接收，即用 MSComm1.InputMode=ComInputModeBinary便可以解决问题；
4．如何发送递中文字符串（DBcS字符）
VB5.0/6.0的各种参考书上均指明MSComm通信控件不能发送或接收双字节字符集系统DBCS）的二进制数据，这对于我国及亚洲一些
使用DBCS字符集的国家不能不说是一大人遗憾。但是我在实践中发现，用MSComm控件也可以发送中文字符，具体方法有以下两种：
（1）直接发送
直接发送即把中文字符等同于英文字符。如：MSComm1.Intput= " 这是一行中文数据！" ，但这种方法发送的中文数据不能太
长，发送缓冲区和接收缓冲区的大小需设定为中文字符的两倍以上，而且发送与接收系统所处的操作系统版本最好要一致，否则会
出现接收或发送缓冲区溢出之类的错误。这种方法时用于一般要求不太高的场合。
（2）间接发送
在发送端将汉字或字符转换为机器内码或区位码数据数组，然后将咏转换后的数据发送到串口，在接收端接收到数据后，按照
相反的顺序得到的数据转换为相应的汉字或字符，在转换过程中．要用到位运算，如取得汉字的内码后需要将高字节和低字节分开，
而VB5.0/6.0中并没有提供此类函数，以下是求整数高、低字节的函数。
Public Function HiByte(a As Integer )
Dim b
b= a And &HFF00
b = b / 256
If b<0 Then b = b + 256
HiByte = b
End Function
Public Function LowByte(a As Integ`er)
Dim b
b = a And &HFF
LowByte = b
End Function
5．如何用单机进行通信测试
通常在写好了通信程序后需要两台PC或一台Pc、一台单片机．将通信口连接后进行测试，但很多时候因条件限制仅有单台PC机，
测试项目很简单，那么能否测试呢？当然可以，而且方法也很简单。对于九针的串口，找一个废弃的串口鼠标，剥外鼠标线，将连
接2、3针的线对接即可；对于25针的串口，找一枚曲别针（最好有塑料外套的）将它扯直，剥削去两头的塑料后在两头各弯一个圆
圈，中间对忻后直接套接在串口的2、3针上即可。如果但心不够安全，则可以将5针按地。
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
关于mscomm的用法，提高篇......[mgwmj]&;
MSCOMM控件是个好东西，如果您能够充分了解他，他会为您衷心的效劳。
大致看了一下下午有关讨论MSCOMM的话题，觉得有必要说说我的心得，我一般只做硬件，没有系统的学过软件，只是业余时间
学学用用，多少掌握了一点，也在此拿出来玩玩，不知有错没有，我可是以为我已经做的很好了^_^
这是一个VB通用串口事件驱动接收程序。一次性接收一个数据包，数据包可以为任意字节，保证不会丢失一个数据！
Private Sub MSComm_OnComm()
Dim S() As Byte
Dim SS(1024) As Byte
Static N As Long
Static T As Variant
If (MSComm.CommEvent = comEvReceive) Then
S = MSComm.Input '只要有数据就收进来，哪怕只是一个
If (Timer - T > 0.01) Then '间隔10MS以上就认为是一个新的包
text1="" 'text1用于搜集和显示接收(HEX格式)
N = 0
End If
T = Timer
For i = 0 To UBound(S) '一个数据包可能产生若干个oncomm事件
Text1.Text = Text1.Text & Right("0" & Hex(S(i)) & "H", 3) + " "
SS(N+i)=S(i) '接收数据包缓存于SS()
N=N+UBound(S)
Next i
End If
End Sub
② 请问 使用vb mscomm 握手的代码应该如何写
MSComm 作为一个串行通讯控件为程序员串口通讯编程节省了很多时间。在基于对话框的应用中加入一个MSComm控件非常简单。只需进行以下操作即可：
打开“Project->Add To Project->Components and Controls->Registered Activex Controls”,然后选择控件：Microsoft Communication Control,version 6.0插入到当前的工程中。这样就将类 CMSComm 的相关文件 mscomm.cpp 和 mscomm.h 一并加入到了工程中。编程时只需将控件对话中的 MSComm 控件拖至你的应用对话框中就OK了。
MSComm控件提供了两种处理通信的方法：
1.事件驱动通信，是一种功能很强的处理串口活动的方法。例如，当在CD（Carrier Detect）线或RTS（Request To Send）线上有字符到达或发生了改变，在这种情况下，可以使用MSComm控件的OnComm事件捕获和处理这些通信事件。OnComm也可以捕获和处理通信中的错误。
2.可以在每个重要的程序功能之后检查CommEvent属性的值来检测事件和通信错误。
使用的每个MSComm控件都与一个串口对应。如果在应用程序中需要访问多个串口，必须使用多个MSComm控件，可以在Windows 控制面板中修改串口地址的中断地址。
MSComm 控件有很多重要的属性，
CommPort 属性 ： 设置并返回通讯端口号。
语法 ： object.CommPort[value ] (value 一整型值，说明端口号。)
说明 ： 在设计时，value 可以设置成从 1 到 16 的任何数（缺省值为 1）。但是如果用 PortOpen 属性打开一个并不存在的端口时，MSComm 控件会产生错误 68（设备无效）。
RThreshold 属性：在MSComm控件设置CommEvent属性为comEReceive并产生 OnComm 之前，设置并返回的要接收的字符数。
语法： object.Rthreshold [ = value ]（value 整型表达式，说明在产生 OnComm 事件之前要接收的字符数。 ）
说明 ：当接收字符后，若 Rthreshold 属性设置为 0（缺省值）则不产生 OnComm 事件。例如，设置 Rthreshold 为 1，接收缓冲区收到每一个字符都会使 MSComm 控件产生 OnComm 事件。
CTSHolding 属性：确定是否可通过查询 Clear To Send (CTS) 线的状态发送数据。Clear To Send 是调制解调器发送到相联计算机的信号，指示传输可以进行。该属性在设计时无效，在运行时为只读。
语法 ： object.CTSHolding（Boolean）
Mscomm 控件的 CTSHolding 属性设置值：
1.True Clear To Send 线为高电平。
2.False Clear To Send 线为低电平。
说明：如果 Clear To Send 线为低电平 (CTSHolding = False) 并且超时时，MSComm控件设置CommEvent属性为comEventCTSTO（Clear To Send Timeout）并产生OnComm事件。。
Clear To Send 线用于 RTS/CTS (Request To Send/Clear To Send) 硬件握手。如果需要确定 Clear To Send 线的状态，CTSHolding 属性给出一种手工查询的方法。
SThreshold属性：在MSComm控件设置CommEvent属性为comEvSend 并产生 OnComm 事件之前，设置并返回传输缓冲区中允许的最小字符数。
语法 : object.SThreshold [ = value ] value整形表达式，代表在 OnComm 事件产生之前在传输缓冲区中的最小字符数。
说明：若设置 Sthreshold 属性为 0（缺省值），数据传输事件不会产生 OnComm 事件。若设置 Sthreshold 属性为 1，当传输缓冲区完全空时，MSComm 控件产生 OnComm 事件。如果在传输缓冲区中的字符数小于 value，CommEvent 属性设置为 comEvSend，并产生 OnComm 事件。comEvSend 事件仅当字符数与 Sthreshold 交叉时被激活一次。例如，如果 Sthreshold 等于 5，仅当在输出队列中字符数从 5 降到 4 时，comEvSend 才发生。如果在输出队列中从没有比 Sthreshold 多的字符，comEvSend 事件将绝不会发生。
comInputModeText 0 （缺省）通过 Input 属性以文本方式取回数据。
comInputModeBinary 1 通过 Input 属性以二进制方式检取回数据。
CDHolding 属性：通过查询 Carrier Detect (CD) 线的状态确定当前是否有传输。Carrier Detect 是从调制解调器发送到相联计算机的一个信号，指示调制解调器正在联机。该属性在设计时无效，在运行时为只读。
语法 object.CDHolding
设置值：CDHolding 属性的设置值为：
设置 描述
True Carrier Detect 线为高电平
False Carrier Detect 线为低电平
说明：注意当 Carrier Detect 线为高电平 (CDHolding = True) 且超时时，MSComm 控件设置CommEvent 属性为 comEventCDTO（Carrier Detect 超时错误），并产生 OnComm 事件。
在主机应用程序中捕获一个丢失的传输是特别重要的，例如一个公告板，因为呼叫者可以随时挂起（放弃传输）。
Carrier Detect 也被称为 Receive Line Signal Detect (RLSD)。 数据类型 Boolean
DSRHolding 属性：确定 Data Set Ready (DSR) 线的状态。Data Set Ready 信号由调制解调器发送到相连计算机，指示作好操作准备。该属性在设计时无效，在运行时为只读。
语法：object.DSRHolding
object 所在处表示对象表达式，其值是“应用于”列表中的对象。
DSRHolding 属性返回以下值：
值 描述
True Data Set Ready 线高
False Data Set Ready 线低
说明：当 Data Set Ready 线为高电平 (DSRHolding = True) 且超时时，MSComm 控件设置 CommEvent 属性为 comEventDSRTO（数据准备超时）并产生 OnComm 事件。
当为Data Terminal Equipment （DTE） 机器写 Data set Ready/Data Terminal Ready握手例程时该属性十分有用。
数据类型：Boolean
Settings 属性: 设置并返回波特率、奇偶校验、数据位、停止位参数。
语法: object.Settings[ = value]
说明：当端口打开时，如果 value 非法，则 MSComm 控件产生错误 380（非法属性值）。
Value 由四个设置值组成，有如下的格式：
"BBBB,P,D,S "
BBBB 为波特率，P为奇偶校验，D为数据位数，S为停止位数。value 的缺省值是： "9600,N,8,1 "
InputLen 属性：设置并返回 Input 属性从接收缓冲区读取的字符数。
语法 ： object.InputLen [ = value] InputLen 属性语法包括下列部分： value 整型表达式，说明 Input 属性从接收缓冲区中读取的字符数。
说明：InputLen 属性的缺省值是 0。设置 InputLen 为 0 时，使用 Input 将使 MSComm 控件读取接收缓冲区中全部.
CommEvent属性为通信事件或错误返回下列值之一。在该控件的对象库中也可以找到这些常量。
常量 值 描述
ComEventBreak 1001 收到了断开信号
ComEventCTSTO 1002 Clear To Send Timeout。在发送字符时，在系统指定的事1件内，CTS（Clear To Send）线是低电平
ComEventDSRTO 1003 Data Set Ready Timeout。在发送字符时，在系统指定的事件内，DSR（Data Set Ready）线是低电平
ComEventFrame 1004 数据帧错误。硬件检测到一个数据帧错误
ComEventOverrun 1006 端口溢出。硬件中的字符尚未读，下一个字符又到达，并且丢失
ComEventCDTO 1007 Carrier Detect Time。在发送字符时，在系统指定的事件内，CD（Carrier Detect）线是低电平。CD
也称为RLSD（Receive Line Singal Detect，接收线信号检测）
ComEventRxOver 1008 接收缓冲区溢出。在接收缓冲区中没有空间
ComEventRxParity 1009 奇偶校验错。硬件检测到奇偶校验错误7
ComEventTxFull 1010 发送缓冲区满。在对发送字符排队时，发送缓冲区满
ComEventDCB 1011 检取端口DCB（Device Control Blick）时发生了没有预料到的错误
通信事件包含了下面的设置：
常量 值 描述
ComEvSend 1 发送缓冲区中的字符数比Sthreshold值低
ComEvReceive 2 接收到了Rthreshold个字符。持续产生该事件，直到使用了Input属性删除了接收缓冲区中的数据
ComEvCTS 3 CTS（Clear To Send）线改变
ComEvDSR 4 DSR（Data Set Ready）线改变。当DSR从1到0改变时，该事件发生
ComEvCD 5 CD（Carrier Detect）线改变ComEvRing6检测到响铃信号。一些URAT（Universal AsynchronousReciver-
-Transmitters,通用异步收发器）不支持该事件
ComEvEOF 7 收到了EOF字符（ASCII字符26）
Error消息（MSComm控件）下表列出了MSComm控件可捕获的错误消息：
常量 值 描述
ComInvalidPropertyValue 380 无效的属性值
ComSetNotSupported 383 属性只读
ComGetNotSupported 394 属性只读
ComPortOpen 8000 端口打开时该存在无效
8001 超时设置必须比0值大
ComPortInvalid 8002 无效的端口号
8003 属性只在运行时有效
8004 属性在运行时是只读的
ComPortAleadyOpen 8005 端口已经打开
8006 设备标识符无效或不支持
8007 不支持设备的波特率
8008 指定的字节大小无效
8009 缺省参数错误
8010 硬件不可用（被其他设备锁住）
8011 函数不能分配队列
ComNoOpen 8012 设备没有打开
8013 设备已经打开
8014 不能使用通信通知
ComSetCommStateFailed 8015 不能设置通信状态
8016 不能设置通信事件屏蔽
ComPortNotOpen 8018 该存在只在端口打开是有效
8019 设备忙
ComReadError 8020 通信设备读错误
ComDCBError 8021 检取端口设备控制块时出现内部错误
搞清楚以上基本属性后，就可以开始编写通信许程序了。在VB5.0/6.0中新建一个工程文件。添加Microsoft Comm Control 5.0组
件，在简体Form1中加入Command命令按钮并取名为CmdTest，MSComm控件取名为MSComm1，加入如下程序代码。
Private Sub cmdTestClick ( ) '打开串口
MSComml.CommPort =2 '设定Com2
If MSComml.PortOpen = False Then
MSComm1.Settings = "9600,n,8,1" '9600波特率，无校验，8位数据位，1位停止位
MSComm1.PortOpen = True '打开串口
End if
MSComm1.OutBufferCount = 0 '清空发送缓冲区
MSComm1.InBufferCount = 0 '滑空接收缓冲区
'发送字符数据时注意必须用回车符（vbcr）结束
MSComm1.Output="This is a qood book ! " &vbCr
'泼打电话号码或发送AT命令
MSComm1.Output = "ATDT 05778191898 , & vbCr
'发送字符数组数据时注意ByteArray必须事先定义赋值
Dim ByteArray as byte( )
'定义动态数组
ReDim ByteArray(1)
'重定义数组大小
ByteArray ( 0 ) =0
ByteArray ( 1 ) = 1
MSComm1.Output = ByteArray
End Sub
private Sub MScommEvent( )
Select Case MSComm1.CommEvent
Case comEvReceive
Dim Buffer As Variant
MSComm1.InputLen = 0
'接收二进制数据
MSComm1.InputMode= ComInputModeBinary
Buffer=MSComm1.Input
'接收字符数据
MSComm1.InputMode=comInputModeText
Buffer = MSComml.Input
Case else
End Select
End sub
( 程序1)
二、中文Win 95／98下的通信问题与解决方法
1．接收的数据少于发送的数据
如果通过MSComm控件一次性传送较多的二进制数据，那么，很可能收到的数据不足。例如在设置为24oobps传输率的情况下，
一次性可以传输2048个字符数据 那么在大多数情况下。一次只能收到1200个字符左右，这址出为新版的MSComm32．OCX中存在一
个影响传输二进制数据的臭虫（bug）．注意这不是特性。
32位Windows API函数（以下简称API）使用了几个用COMMTIMEOUTS结构表示的限时变量，WriteTotalTimeOutConstant 即是其
中的一个，它被Windows内部设定为5000（即5秒），这个常量决定了在通信驱动程序停止传输之前花费在发送缓冲区中数据的时间
的长短，5秒钟意味着通信速度为1200bps情况下仅能发送600个字符，24oobps情况下仅能发送1200个左右的字符。事实上，在一个
缓冲区内一次性发送更多的数据是非常可能的。这个bug同样也能引发问题，甚至在高速串口门通信情况下，即使系统在使用流控
制，无论丛软件流（Xon／XofI）还是硬件流（CTS／RTS）。假如数据在发送缓冲区中时，流控制停止了传输，如果停止时间超过5
秒钟．则数据就会丢失。在某些环境下，5秒钟可能相当短．不过也不必担心， VB 5.0/6.0版本的MSComm控件有一个新增的重要的
属性称为CommID， CommID指的是当串口被打开时，被API所调用的串口句柄或称标志，这也意味着能利用API接口函数去修改这个
常量。每次串口关闭后，Windows会自动将之恢复为5000，所以，每次打开串口后需要重斩设定以下API声明，其代码见下程序。
Type COMMTIMEOUTS
ReadIntervalTimeout As Long
ReadTotalTimeoutMultiplier As Long
ReadTotalTimeoutConstant As Long
WriteTotalTimeoutMultiplier As Long
WriteTotalTimeoutConstant As Long
End Type
Declare Function SetCommTimeouts Lib "Kernel32"
(BYVal hFile As Long, lpComm TimeoutsAs COMMTIMEOUTS) As Long
Declare Function GetCommTimeouts Lib "Kernel32"
(ByVal hFile As Long, lpCommTimeouts As COMMTIMEOUTS) As Long
Dim timeouts As COMMEOUTS
Dim Ret As Long
If Comm1.PortOpen = False Then
Comm1.PortOpen = True
End if
Ret=GetCommTimeouts ( Comm1.CommID , timeouts )
'Set some default timeouts
timeOuts.ReadIntervalTimeout = 1
timeouts.ReadTotalTimeoutMultiplier =1
timeouts.ReadTotalTimeoutConstant =1
timeouts.WriteTotalTimeoutMultiplier =1
timeouts.WriteTotalTimeoutConstant=
( Comm1.OutBufferSize\Val(Comm1.Settings))*10000+1000
Ret=SetCommTimeouts( Comm1.CommID , timeouts )
( 程序2)
2．如何发送大于128的字符数据
在通信程序中，以单字符方式逐个发送数据时，每一个数据范围 0-255（即十六进制的00-FF）。在单字符版本的英文Win95或
DOS版的BASIC程序中，只需要将相应的数据转换成相应的字符发送到通信端口即可。但在中文Win95/98下却行不通，假设在中文
Win95／98下运行以下程序：
Dim i
For i=0 to 255
MSComm1.Output=chr(i)
Next i
希望在接收端得到预期的0-255之间的数据，结果却是：前129个数据接收正确，为0-128，后面127个数据为126个0和一个255，
造成这种给果的原因在于中文Windows使用的是双字节字符集（DBCS）系统。DBCS系统使用0-128之间的数字表示ASCII字符，大于
128的数字仅作为前导字符，它只是显示是一个非拉丁语系的字符，而并不代表实际意义。上述程序在调用CHR（）函数时用到了
DBCS字符集，冈此产生了此类错误。那么，如何发送人于128的数据呢？答案是使用字符数组，将以上程序改为：
Dim cc(255) As Byte
For i = 0 To 255
cc(i) = i
Next i
MSComm1.Output = cc
Do
DoEvents
Loop Until MSComm1.OutBufferCount = 0
'接收过程 MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
Dim Buffer As Variant, b1,i
MSComm1.InputMode=comInputModeBinery
MSComm1.InputLen = 0
Buffer = MSComm1.Input
For i=LBound (Buffer) To UBound (Buffer )
Debug.Print Buffer ( i ) ;
Next i
Case . . . . .
3．如何发送0字符（00H，NULL）
在VisuaI C＋＋中使用串口控件发送0字符有些麻烦，但在VB5.0/6.0中只要注意以下两点即可：
（1）设置MSComm控件的属性 NullDiscard=False；。
（2）使用二进制接收，即用 MSComm1.InputMode=ComInputModeBinary便可以解决问题；
4．如何发送递中文字符串（DBcS字符）
VB5.0/6.0的各种参考书上均指明MSComm通信控件不能发送或接收双字节字符集系统DBCS）的二进制数据，这对于我国及亚洲一些
使用DBCS字符集的国家不能不说是一大人遗憾。但是我在实践中发现，用MSComm控件也可以发送中文字符，具体方法有以下两种：
（1）直接发送
直接发送即把中文字符等同于英文字符。如：MSComm1.Intput= " 这是一行中文数据！" ，但这种方法发送的中文数据不能太
长，发送缓冲区和接收缓冲区的大小需设定为中文字符的两倍以上，而且发送与接收系统所处的操作系统版本最好要一致，否则会
出现接收或发送缓冲区溢出之类的错误。这种方法时用于一般要求不太高的场合。
（2）间接发送
在发送端将汉字或字符转换为机器内码或区位码数据数组，然后将咏转换后的数据发送到串口，在接收端接收到数据后，按照
相反的顺序得到的数据转换为相应的汉字或字符，在转换过程中．要用到位运算，如取得汉字的内码后需要将高字节和低字节分开，
而VB5.0/6.0中并没有提供此类函数，以下是求整数高、低字节的函数。
Public Function HiByte(a As Integer )
Dim b
b= a And &HFF00
b = b / 256
If b<0 Then b = b + 256
HiByte = b
End Function
Public Function LowByte(a As Integ`er)
Dim b
b = a And &HFF
LowByte = b
End Function
5．如何用单机进行通信测试
通常在写好了通信程序后需要两台PC或一台Pc、一台单片机．将通信口连接后进行测试，但很多时候因条件限制仅有单台PC机，
测试项目很简单，那么能否测试呢？当然可以，而且方法也很简单。对于九针的串口，找一个废弃的串口鼠标，剥外鼠标线，将连
接2、3针的线对接即可；对于25针的串口，找一枚曲别针（最好有塑料外套的）将它扯直，剥削去两头的塑料后在两头各弯一个圆
圈，中间对忻后直接套接在串口的2、3针上即可。如果但心不够安全，则可以将5针按地。
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
关于mscomm的用法，提高篇......[mgwmj]&;
MSCOMM控件是个好东西，如果您能够充分了解他，他会为您衷心的效劳。
大致看了一下下午有关讨论MSCOMM的话题，觉得有必要说说我的心得，我一般只做硬件，没有系统的学过软件，只是业余时间
学学用用，多少掌握了一点，也在此拿出来玩玩，不知有错没有，我可是以为我已经做的很好了^_^
这是一个VB通用串口事件驱动接收程序。一次性接收一个数据包，数据包可以为任意字节，保证不会丢失一个数据！
Private Sub MSComm_OnComm()
Dim S() As Byte
Dim SS(1024) As Byte
Static N As Long
Static T As Variant
If (MSComm.CommEvent = comEvReceive) Then
S = MSComm.Input '只要有数据就收进来，哪怕只是一个
If (Timer - T > 0.01) Then '间隔10MS以上就认为是一个新的包
text1="" 'text1用于搜集和显示接收(HEX格式)
N = 0
End If
T = Timer
For i = 0 To UBound(S) '一个数据包可能产生若干个oncomm事件
Text1.Text = Text1.Text & Right("0" & Hex(S(i)) & "H", 3) + " "
SS(N+i)=S(i) '接收数据包缓存于SS()
N=N+UBound(S)
Next i
End If
End Sub
③ 怎样用VB编程来控制智能采集模块
使用串口控件 吧 communiction control
要采集器自动发送数据 ，程序读串口通讯缓冲区 ，有数据就读出处理
④ 急！请教RS485串口通讯的问题
你用vb还是vc？
看OnComm事件应该是vb吧。
(参照出处http://www.gjwtech.com/serialcomm.htm)：
MSComm控件使用详解
摘要：本文详细介绍了MSComm控件在串口编程中使用。
目 次
MSComm控件两种处理通讯的方式
CommPort属性
RThreshold 属性
CTSHolding 属性
SThreshold 属性
CDHolding 属性
DSRHolding 属性
Settings 属性
InputLen 属性
EOFEnable 属性
Handshake 常数
OnComm 常数
InputMode 常数
错误消息
MSComm 控件通过串行端口传输和接收数据，为应用程序提供串行通讯功能。MSComm控件在串口编程时非常方便，程序员不必去花时间去了解较为复杂的API函数，而且在VC、VB、Delphi等语言中均可使用。 Microsoft Communications Control（以下简称MSComm）是Microsoft公司提供的简化Windows下串行通信编程的ActiveX控件，它为应用程序提供了通过串行接口收发数据的简便方法。具体的来说，它提供了两种处理通信问题的方法：一是事件驱动(Event－driven)方法，一是查询法。
1.MSComm控件两种处理通讯的方式
MSComm控件提供下列两种处理通讯的方式：事件驱动方式和查询方式。
1.1 事件驱动方式
事件驱动通讯是处理串行端口交互作用的一种非常有效的方法。在许多情况下，在事件发生时需要得到通知，例如，在串口接收缓冲区中有字符，或者 Carrier Detect (CD) 或 Request To Send (RTS) 线上一个字符到达或一个变化发生时。在这些情况下，可以利用 MSComm 控件的 OnComm 事件捕获并处理这些通讯事件。OnComm 事件还可以检查和处理通讯错误。所有通讯事件和通讯错误的列表，参阅 CommEvent 属性。在编程过程中，就可以在OnComm事件处理函数中加入自己的处理代码。这种方法的优点是程序响应及时，可靠性高。每个MSComm 控件对应着一个串行端口。如果应用程序需要访问多个串行端口，必须使用多个 MSComm 控件。
1.2 查询方式
查询方式实质上还是事件驱动，但在有些情况下，这种方式显得更为便捷。在程序的每个关键功能之后，可以通过检查 CommEvent 属性的值来查询事件和错误。如果应用程序较小，并且是自保持的，这种方法可能是更可取的。例如，如果写一个简单的电话拨号程序，则没有必要对每接收一个字符都产生事件，因为唯一等待接收的字符是调制解调器的“确定”响应。
2.MSComm 控件的常用属性
MSComm 控件有很多重要的属性，但首先必须熟悉几个属性。
CommPort 设置并返回通讯端口号。
Settings 以字符串的形式设置并返回波特率、奇偶校验、数据位、停止位。
PortOpen 设置并返回通讯端口的状态。也可以打开和关闭端口。
Input 从接收缓冲区返回和删除字符。
Output 向传输缓冲区写一个字符串。
下面分别描述：
CommPort属性 设置并返回通讯端口号。
语法 object.CommPort[value ] (value 一整型值，说明端口号。)
说明 在设计时，value 可以设置成从 1 到 16 的任何数（缺省值为 1）。但是如果用 PortOpen 属性打开一个并不存在的端口时，MSComm 控件会产生错误 68（设备无效）。
注意：必须在打开端口之前设置 CommPort 属性。
RThreshold 属性：在 MSComm 控件设置 CommEvent 属性为 comEvReceive 并产生 OnComm 之前，设置并返回的要接收的字符数。
语法 object.Rthreshold [ = value ]（value 整型表达式，说明在产生 OnComm 事件之前要接收的字符数。 ）
说明 当接收字符后，若 Rthreshold 属性设置为 0（缺省值）则不产生 OnComm 事件。例如，设置 Rthreshold 为 1，接收缓冲区收到每一个字符都会使 MSComm 控件产生 OnComm 事件。
CTSHolding 属性：确定是否可通过查询 Clear To Send (CTS) 线的状态发送数据。Clear To Send 是调制解调器发送到相联计算机的信号，指示传输可以进行。该属性在设计时无效，在运行时为只读。
语法： object.CTSHolding（Boolean）
Mscomm 控件的 CTSHolding 属性设置值：
True Clear To Send 线为高电平。
False Clear To Send 线为低电平。
说明：如果 Clear To Send 线为低电平 (CTSHolding = False) 并且超时时，MSComm 控件设置 CommEvent 属性为 comEventCTSTO (Clear To Send Timeout) 并产生 OnComm 事件。
Clear To Send 线用于 RTS/CTS (Request To Send/Clear To Send) 硬件握手。如果需要确定 Clear To Send 线的状态，CTSHolding 属性给出一种手工查询的方法。
详细信息 有关握手协议，请参阅 Handshaking 属性。
SThreshold 属性： MSComm 控件设置 CommEvent 属性为 comEvSend 并产生 OnComm 事件之前，设置并返回传输缓冲区中允许的最小字符数。
语法 object.SThreshold [ = value ]
value 整形表达式，代表在 OnComm 事件产生之前在传输缓冲区中的最小字符数。
说明：若设置 Sthreshold 属性为 0（缺省值），数据传输事件不会产生 OnComm 事件。若设置 Sthreshold 属性为 1，当传输缓冲区完全空时，MSComm 控件产生 OnComm 事件。如果在传输缓冲区中的字符数小于 value，CommEvent 属性设置为 comEvSend，并产生 OnComm 事件。comEvSend 事件仅当字符数与 Sthreshold 交叉时被激活一次。例如，如果 Sthreshold 等于 5，仅当在输出队列中字符数从 5 降到 4 时，comEvSend 才发生。如果在输出队列中从没有比 Sthreshold 多的字符，comEvSend 事件将绝不会发生。
Handshake 常数
常数 值 描述
comNone 0 无握手。
comXonXoff 1 XOn/Xoff 握手。
comRTS 2 Request-to-send/clear-to-send 握手。
comRTSXOnXOff 3 Request-to-send 和 clear-to-send 握手皆可。
OnComm 常数
常数 值 描述
comEvSend 1 发送事件。
comEvReceive 2 接收事件。
comEvCTS 3 clear-to-send 线变化。
comEvDSR 4 data-set ready 线变化。
comEvCD 5 carrier detect 线变化。
comEvRing 6 振铃检测。
comEvEOF 7 文件结束。
Error 常数
常数 值 描述
comEventBreak 1001 接收到中断信号
comEventCTSTO 1002 Clear-to-send 超时
comEventDSRTO 1003 Data-set ready 超时
comEventFrame 1004 帧错误
comEventOverrun 1006 端口超速
comEventCDTO 1007 Carrier detect 超时
comEventRxOver 1008 接收缓冲区溢出
comEventRxParity 1009 Parity 错误
comEventTxFull 1010 传输缓冲区满
comEventDCB 1011 检索端口 设备控制块 (DCB) 时的意外错误
InputMode 常数
常数 值 描述
comInputModeText 0 （缺省）通过 Input 属性以文本方式取回数据。
comInputModeBinary 1 通过 Input 属性以二进制方式检取回数据。
CDHolding 属性：通过查询 Carrier Detect (CD) 线的状态确定当前是否有传输。Carrier Detect 是从调制解调器发送到相联计算机的一个信号，指示调制解调器正在联机。该属性在设计时无效，在运行时为只读。
语法 object.CDHolding
设置值：CDHolding 属性的设置值为：
设置 描述
True Carrier Detect 线为高电平
False Carrier Detect 线为低电平
说明：注意当 Carrier Detect 线为高电平 (CDHolding = True) 且超时时，MSComm 控件设置CommEvent 属性为 comEventCDTO（Carrier Detect 超时错误），并产生 OnComm 事件。
注意 在主机应用程序中捕获一个丢失的传输是特别重要的，例如一个公告板，因为呼叫者可以随时挂起（放弃传输）。
Carrier Detect 也被称为 Receive Line Signal Detect (RLSD)。
数据类型 Boolean
DSRHolding 属性：确定 Data Set Ready (DSR) 线的状态。Data Set Ready 信号由调制解调器发送到相连计算机，指示作好操作准备。该属性在设计时无效，在运行时为只读。
语法：object.DSRHolding
object 所在处表示对象表达式，其值是“应用于”列表中的对象。
DSRHolding 属性返回以下值：
值 描述
True Data Set Ready 线高
False Data Set Ready 线低
说明：当 Data Set Ready 线为高电平 (DSRHolding = True) 且超时时，MSComm 控件设置 CommEvent 属性为 comEventDSRTO（数据准备超时）并产生 OnComm 事件。
当为 Data Terminal Equipment (DTE) 机器写 Data Set Ready/Data Terminal Ready 握手例程时该属性是十分有用的。
数据类型：Boolean
Settings 属性: 设置并返回波特率、奇偶校验、数据位、停止位参数。
语法: object.Settings[ = value]
说明：当端口打开时，如果 value 非法，则 MSComm 控件产生错误 380（非法属性值）。
Value 由四个设置值组成，有如下的格式：
"BBBB,P,D,S"
BBBB 为波特率，P 为奇偶校验，D 为数据位数，S 为停止位数。value 的缺省值是：
"9600,N,8,1"
InputLen 属性：设置并返回 Input 属性从接收缓冲区读取的字符数。
语法 object.InputLen [ = value]
InputLen 属性语法包括下列部分：
value 整型表达式，说明 Input 属性从接收缓冲区中读取的字符数。
说明：InputLen 属性的缺省值是 0。设置 InputLen 为 0 时，使用 Input 将使 MSComm 控件读取接收缓冲区中全部的内容。
若接收缓冲区中 InputLen 字符无效，Input 属性返回一个零长度字符串 ("")。在使用 Input 前，用户可以选择检查 InBufferCount 属性来确定缓冲区中是否已有需要数目的字符。该属性在从输出格式为定长数据的机器读取数据时非常有用。
EOFEnable 属性：确定在输入过程中 MSComm 控件是否寻找文件结尾 (EOF) 字符。如果找到 EOF 字符，将停止输入并激活 OnComm 事件，此时 CommEvent 属性设置为 comEvEOF，
语法：object.EOFEnable [ = value ]
EOFEnable 属性语法包括下列部分：
value 布尔表达式，确定当找到 EOF 字符时，OnComm 事件是否被激活，如“设置值”中所描述。
value 的设置值：
True 当 EOF 字符找到时 OnComm 事件被激活。
False （缺省）当 EOF 字符找到时 OnComm 事件不被激活。
说明：当 EOFEnable 属性设置为 False，OnComm 控件将不在输入流中寻找 EOF 字符。
错误消息（MS Comm 控件）
下表列出 MSComm 控件可以捕获的错误：
值 描述
380 无效属性值 comInvalidPropertyValue
383 属性为只读 comSetNotSupported
394 属性为只读 comGetNotSupported
8000 端口打开时操作不合法 comPortOpen
8001 超时值必须大于 0
8002 无效端口号 comPortInvalid
8003 属性只在运行时有效
8004 属性在运行时为只读
8005 端口已经打开 comPortAlreadyOpen
8006 设备标识符无效或不支持该标识符
8007 不支持设备的波特率
8008 指定的字节大小无效
8009 缺省参数错误
8010 硬件不可用（被其它设备锁定）
8011 函数不能分配队列
8012 设备没有打开 comNoOpen
8013 设备已经打开
8014 不能使用 comm 通知
8015 不能设置 comm 状态 comSetCommStateFailed
8016 不能设置 comm 事件屏蔽
8018 仅当端口打开时操作才有效 comPortNotOpen
8019 设备忙
8020 读 comm 设备错误 comReadError
8021 为该端口检索设备控制块时的内部错误 comDCBError
///-----------------------------------------------------
串口数据接收方式
1、 在OnComm 事件中接收数据：
这种方式能充分MSCOMM控件的特性。OnComm 事件还可以检查和处理通讯错误；可以通过检查 CommEvent 属性的值来查询事件和错误；对于不定长数据以及对数据进行处理比较复杂的情况，此法不是很方便。
Private Sub MSComm_OnComm ()
Select Case MSComm1.CommEvent
' 错误
Case comEventBreak ' 收到 Break。
Case comEventCDTO ' CD (RLSD) 超时。
Case comEventCTSTO ' CTS Timeout。
Case comEventDSRTO ' DSR Timeout。
Case comEventFrame ' Framing Error
Case comEventOverrun '数据丢失。
Case comEventRxOver'接收缓冲区溢出。
Case comEventRxParity' Parity 错误。
Case comEventTxFull '传输缓冲区已满。
Case comEventDCB '获取 DCB] 时意外错误
' 事件
Case comEvCD ' CD 线状态变化。
Case comEvCTS ' CTS 线状态变化。
Case comEvDSR ' DSR 线状态变化。
Case comEvRing ' Ring Indicator 变化。
Case comEvReceive ' 收到 RThreshold # of chars.
Case comEvSend ' 传输缓冲区有 Sthreshold 个字符 '
Case comEvEof ' 输入数据流中发现 EOF 字符
End Select
End Sub
2.轮循法采集数据:
A、定时器轮循法
对于数据包方式收发数据以及不需即时响应情况，用轮循法更好些。实际上轮循法最大的好处在于集中处理数据而且不太占用CPU。轮循法要注意定时采集的时间片段大小；这里用二进制收发模式；使属性RThreshold、SThreshold为0，屏蔽ONCOMM事件。
InputMode = comInputModeBinary
RThreshold = 0
SThreshold = 0
Private Sub TmrComm_Timer()
'采用轮循法采集数据
Dim Rx_buff() As Byte
Dim okstring As String
Dim ReceivedLen As Integer
On Error GoTo ErrorHandler
TmrComm.Enabled = False '关闭定时器
If commport.InBufferCount > 0 Then
ReceivedLen = commport.InBufferCount
Rx_buff = commport.Input
okstring = StrConv(tempbyte, vbUnicode)
If ReceivedLen = 6 Then
If Chr(tempbyte(0)) = ":" And tempbyte(3) = &h0a Then
....
End If
If Instr(okstring ,":@END*",vbBinaryCompare) Then
....
End If
End If
TmrComm.Enabled = True '打开定时器
End Sub
B、直接轮循法
此法用于接收少量控制命令字；
' 保存输入子串的缓冲区
Dim Instring As String
' 使用 COM1。
MSComm1.CommPort = 1
' 9600 波特，无奇偶校验，8 位数据，一个停止位。
MSComm1.Settings = "9600,N,8,1"
' 当输入占用时，
' 告诉控件读入整个缓冲区。
MSComm1.InputLen = 0
' 打开端口。
MSComm1.PortOpen = True
' 将 attention 命令送到调制解调器。
MSComm1.Output = "ATV1Q0" & Chr$(13)
' 确保
' 调制解调器以"OK"响应。
' 等待数据返回到串行端口。
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, "OK" & vbCRLF)
' 从串行端口读 "OK" 响应。
' 关闭串行端口。
MSComm1.PortOpen = False
如何处理不定长数据的接收
在处理串口通讯时，经常会遇到不定长数据的接收。由于通讯任务不同及编程要求的差异所以采用的方法也有所不同。本文就此问题进行探讨。不定长数据从数据格式上分，可分为有格式和无格式。
一、无格式不定长数据的接收
这种格式在实际串口通讯中用得不多，一般只用传送字符串数据。问题在于怎么判断接收结束。一般用时间延迟的方法解决。
A、对于非握手式通讯，可用一个定时器定时轮循接收，并假定每个轮循接收完成。用ONCOMM事件接收也可，只是不如定时器定时轮循接收简便。
B、对于握手方式通讯，可用直接轮循法提高接收的准确性。下面是实现此法的函数：
Function sComm(sCommand As String, comReceive As MSComm) As String
Dim nReceiveCount As Integer
If comReceive.PortOpen = False Then
comReceive.PortOpen = True
End If
comReceive.Output = sCommand
Do
nReceiveCount = comReceive.InBufferCount
sleep (2) 'API 函数,挂起当前进程一段时间
Loop Until comReceive.InBufferCount = nReceiveCount
If comReceive.PortOpen = True Then
sComm = comReceive.Input
End If
End Function
注：此函数参照了xth一文。
此法一般是能确保数据接收的正确，但由于WINDOWS是多任务操作系统，当有耗时的进程运行时会丢失数据。如果系统会出现这种情况，可增大函数sleep()的参数值。
二、不定长格式数据的接收
对于不定长数据接收最好的方法是制定通讯协议，比如定义开始字符和结束字符。由于单片机系统通讯一般不太复杂，没必要去制定一套象通用计算机间通讯的协议，而根据单片机系统的大小和性能要求制定通讯协议。实际上为便于交流、维护以及一致性，可制定一套可伸缩的通讯协议。定义了开始字符和结束字符就容易实现不定长格式数据通讯，但在实际通讯编程还是容易出现一些比较隐蔽的通讯错误。下面就常用方法分别进行分析。
A、定时器轮循法。
假定每个轮循期数据接收完毕，并在每个轮循期处理数据，由于有开始字符和结束字符很容易确定接收数据的完整性。好象合理设定轮循时间值就万无一失了，但被动接收数据时无论如何也找不合适的轮循时间值，因为启动定时器和数据到来基本不同步，这就会出现一次发送的数据被分在两个轮循期接收，所以被动接收数据时不能假定每个轮循期数据接收完毕。在接收到结束字符后才确定一次数据接收完毕就可解决此问题。
B、OnComm事件法。
方法和定时器轮循法基本相同，因为每次OnCommg事件也只能接收到一部分数据。在VB的在线帮助中这样注解“设置 Rthreshold 为 1，接收缓冲区收到每一个字符都会使 MSComm 控件产生 OnComm 事件。”。但实际上OnComm事件并不是每收到一个字符便触发一次 OnComm 事件。OnComm事件是在缓冲区收到几个甚至几十个字节数据后才被触发的。版主认为这是WINDOWS多任务使操作系统不能实时响应造成的。如果要在每次OnComm事件接收一个字符似乎可设INPUTLEN属性为1，但实际行不通。VB在线帮助中“有该属性在从输出格式为定长数据的机器读取数据时非常有用”的注解，好象在说对定长字符有效，但版主发现INPUTLEN设为16，接收16个字符定长数据时却被当作两次接收了，一次12个，一次4个。建议在OnComm事件中接收数据要定义通讯协议并检测数据的完整性。 对于不定长格式数据的接收程序员更喜欢定时器轮循法，也许OnComm事件不好控制吧。
对于不定长数据的接收，最佳方法可能是在OnComm事件中启动定时器轮循接收，并同时停止OnComm事件的触发，接收完毕后或超时开启OnComm事件。
用字符方式收发码值大于127的字符数据
VB的通讯控件友好、功能强大，编程速度快是众人皆知的。加上VB的易学、易用，快速开发等特点，数据通讯量不是很大时，在单片机通讯领域广泛地使用VB开发PC上层通讯软件。实际开发时会有不少问题，这里就用字符方式收发码值大127的字符数据进行讨论。
在实际开发中经常遇到通讯只是用来发送一些控制字符命令和少量数据。在VB的中文在线帮助中有“若数据只用 ANSI 字符集，则用 comInputModeText”的表述。 ANSI字符集是0-127这容易使人误解为&h88也可用“INPUTMIDE=comInputModeText”方式收发。我刚开始用VB编通讯模块时就为此迷惑过，网上不少网友也时常问及这种问题。实际上在VB中0-127是可以正常收发的，大于127即&H7F的只有&H80和&HFF能够收发，其余ANSI字符都被过滤为0。由于串口通讯是以字节收发的，数据如以comInputModeText模式收发则非字符串数据会被过滤。在VB中用“INPUTMIDE = comInputModeBinary” 就可以解决这个问题，只是收发都必须用动态数组来完成。用comInputModeBinary模式编程稍有点复杂，调试也不直观，对于初学者不易掌握。另外软件完成后，在实际应用时会增加工程维护难度，因为对于二进制代码不是易于理解的。比如下端机发送现场统计数据233，comInputModeBinary模式下串口监测到“：A &H233;"，它代表A探针的温度。一般串口监测软件要么用ASCII方式显示，要么用二进制方式显示。用ASCII方式则不能看到&H233，而二进制方式则示不好理解，如果显示58 65 233 59，我想没有人喜欢这种方式（如果有更好的方式的话）。但如果显示“：A 2 3 3 ；”不就解决问题了！用comInputModeText方式就可完成任务了，只是多了一段数据分离程序。对于一般通讯要求这种方法不为是一种好方法。由于通讯任务是多种多样的，有时候这种方法就有点力不从心了，如传送较多的的数据时，这会显着地增加通讯量，通讯变得复杂了，对于单片机系统就不太合适了；还有一些特殊要求，如数据包的识别符也不适此法，但能确定传送数据码值范围也可用此法。下面介绍另一种方法，此法适用比较广，传送二进制数据通讯量增加也不大。
这种方法实际上很简单，实际运用中有不少采用此法。原理是一码分为二码。如设7E为临界字符，对于7E则分为7E和0两个ASCII码，依此类推，8F分为7E和11。接收合并时遇到7E则将7E和后一个ASCII码相加为下字符。下面给出C语言函数，VB转换一下便可。
由于C语言不能返回两个参数，所以用数组指针。
void Filt(char code[],char c)
{
if(c=='F')
{
if(code[0]>=0X7E)
{
code[1]=code[0]-0X7E;
code[0]=0X7E;
}
else
{
code[1]=0XFF; /*0XFF作为标记code[1]不可能产生0XFF*/
}
}
else if(c=='H')
{
if(code[0]!=0X7E)
{
code[1]=0xFE; /*转换完成标记*/
}
else
{
if(code[1]==0XFE)
{
code[1]=0XFF; /*接收下一个码的标记*/
}
else
{
code[0]=code[0]+code[1];
code[1]=0XFE;
}
}
}
发送时：
char SendChar[2]; /*存储发送的值*/
....
SendChar[0]=c; /*c为待发ASCII码*/
Filt(SendChar,'F');
if(SendChar(1)==0XFF)
{
..... /*发送SendChar[0]*/
}
else
{
...... /*发送SendChar[0],SendChar[1]*/
}
接收时：
char ReceiveChar[2]; /*存储接收的值*/
.....
ReceiveChar[0]=c0; /*c0接收的ASCII码*/
Filt(ReceiveChar,'H');
if(ReceiveChar[1]==0xFF)
{
ReceiveChar[1]=c1; /*c1为下一个*/
Filt(ReceiveChar,'H);
}
else if(ReceiveChar[1]==0xFE)
{
...... /*存储转换后的ReceiveChar[0]*/
}
以上代码仅提供一种思路，实际情况视编程需要而定。
串口通讯问答录
1、Q：各位vb高手：我有一个问题想请教一下。我从COM口用BIN方式接收到数据（一串汉字），存入一BYTE数组，但无法还原为一串汉字，我认为是ANSI和UNICODE的转换，请问如何转换。
例：字符串“我”，按BIN方式接收成一BYTE数组，其值为“206，210”，如用“CHR（206）+CHR（210）”却无法得到“我”，实际上“我”=CHR（-12860）请问如何能实现BYTE数组（206，210）与字符串“我”之间的转换？万分感谢！！！
JY
1999.10
A：经CHR（206）+CHR（210）转换后实际上变成了两个UNICODE字符，四个字节了。汉字的收发必须用BINARY方式。下面的程序能实现汉字收发。
发：
Dim ytemp() As Byte
Dim stemp As String
stemp = "你好！"
ytemp = StrConv(stemp, vbFromUnicode)
Debug.Print UBound(ytemp)
MSComm1.Output = ytemp
收：
Private Sub mscTest_OnComm()
'中文收发
Dim yTemp() As Byte
Dim stemp As String
Dim i As Integer
If mscTest.InBufferCount > 0 Then
i = mscTest.InBufferCount
yTemp = mscTest.Input
stemp = StrConv(yTemp, vbUnicode)
txtTest1.Text = stemp
End If
End Sub
Deson
1999-10-16
--------------------------------------------------------------------------------
2、Q:各位大侠，在下被两个问题困扰多时，实在无法找到答案，请各位多多指教。
1、在用MSCOMM控件设计通讯程序时，我始终无法将ASC码大于127的值发送出去，查阅了VB论坛以前的文章，按部就班也不行，部分 VB 程序如下，请指教：
Private Sub OkBtn_Click()
Dim Data() as byte
Dim Temp as variant
redim data(10)
For i = 0 to 10
Data(i) = int(rnd()*256)
next
temp = data
mscomm.output = temp
end Sub
A：接收方式使用了文本方式，用二进制方式即可。
⑤ 用MFC怎么做串口测试程序，我要详细步聚！！！！！！！！
添加一个mscomm 控件里面有，然后设置它的波特率，波特率和下位机的波特率要一致。然后就用
Write和Read方法读写数据就行了。
推荐关于MSCOMM控件的一些说明
VB5.0/6.的MSComm通信控件提供了一系列标准通信命令的接口，它允许建立串口连接，可以连接到其他通信设备（如Modem）．
还可以发送命令、进行数据交换以及监视和响应在通信过程中可能发生的各种错误和事件，从而可以用它创建全双工 、事件驱
动的、高效实用的通信程序。但在实际通信软件设计过程中，MSComm控件并非像想象中那样完美和容易控制．特别是在中文Wln
95／98下通信时更会出现问题。下面就从基础开始介绍，然后逐步讨沦MSComm控件在编程中出现的问题以及编程技巧。
一、用MSComm控件通信
1．串口通信基础知识
一般悦来，计算机都有一个或多个串行端口，它们依次为com1、Com2、…，这些串口还提供了外部设备与pC进行数据传输和
皿信的通道。这些串口在CPU和外设之间充当解释器的角色。当字符数据从CPU发送给外设时，这些字符数据将被转换成串行比特
流数据；当接收数据时，比特流数据被转换为字符数据传递给CPU，再进一步说，在操作系统方面，Windows用通信驱动程序
（COMM.DRV）调用API函数发送和接收数据，当用通信控件或声明调用API函数时，它门由COMM. DRV解释并传递给设备驱动程序，
作为一个vB程序员，要编写通信程序．只需知道通信控件提供给Windows通信AP1函数的接口即可．换句话说，只需设定和监视通
信控件的属性和事件即可。
2．使用Mscomm控件
在开始使用MSComm控件之前。需要先了解其属性、事件或错误
属性 描述
CommPort 设置或返回通信端口号
Settings 以字符串的形式设置或返回波特率、奇偶校验、数据位和停止位
PortOpen 设置或返回通信端口的状态。也可以打开和关闭端口
Input 返回和删除接收缓冲区中的字符
Output 将字符串写入发送缓冲区
CommEvent属性为通信事件或错误返回下列值之一。在该控件的对象库中也可以找到这些常量。
常量 值 描述
ComEventBreak 1001 收到了断开信号
ComEventCTSTO 1002 Clear To Send Timeout。在发送字符时，在系统指定的事1件内，CTS（Clear To Send）线是低电平
ComEventDSRTO 1003 Data Set Ready Timeout。在发送字符时，在系统指定的事件内，DSR（Data Set Ready）线是低电平
ComEventFrame 1004 数据帧错误。硬件检测到一个数据帧错误
ComEventOverrun 1006 端口溢出。硬件中的字符尚未读，下一个字符又到达，并且丢失
ComEventCDTO 1007 Carrier Detect Time。在发送字符时，在系统指定的事件内，CD（Carrier Detect）线是低电平。CD
也称为RLSD（Receive Line Singal Detect，接收线信号检测）
ComEventRxOver 1008 接收缓冲区溢出。在接收缓冲区中没有空间
ComEventRxParity 1009 奇偶校验错。硬件检测到奇偶校验错误7
ComEventTxFull 1010 发送缓冲区满。在对发送字符排队时，发送缓冲区满
ComEventDCB 1011 检取端口DCB（Device Control Blick）时发生了没有预料到的错误
通信事件包含了下面的设置：
常量 值 描述
ComEvSend 1 发送缓冲区中的字符数比Sthreshold值低
ComEvReceive 2 接收到了Rthreshold个字符。持续产生该事件，直到使用了Input属性删除了接收缓冲区中的数据
ComEvCTS 3 CTS（Clear To Send）线改变
ComEvDSR 4 DSR（Data Set Ready）线改变。当DSR从1到0改变时，该事件发生
ComEvCD 5 CD（Carrier Detect）线改变ComEvRing6检测到响铃信号。一些URAT（Universal AsynchronousReciver-
-Transmitters,通用异步收发器）不支持该事件
ComEvEOF 7 收到了EOF字符（ASCII字符26）
Error消息（MSComm控件）下表列出了MSComm控件可捕获的错误消息：
常量 值 描述
ComInvalidPropertyValue 380 无效的属性值
ComSetNotSupported 383 属性只读
ComGetNotSupported 394 属性只读
ComPortOpen 8000 端口打开时该存在无效
8001 超时设置必须比0值大
ComPortInvalid 8002 无效的端口号
8003 属性只在运行时有效
8004 属性在运行时是只读的
ComPortAleadyOpen 8005 端口已经打开
8006 设备标识符无效或不支持
8007 不支持设备的波特率
8008 指定的字节大小无效
8009 缺省参数错误
8010 硬件不可用（被其他设备锁住）
8011 函数不能分配队列
ComNoOpen 8012 设备没有打开
8013 设备已经打开
8014 不能使用通信通知
ComSetCommStateFailed 8015 不能设置通信状态
8016 不能设置通信事件屏蔽
ComPortNotOpen 8018 该存在只在端口打开是有效
8019 设备忙
ComReadError 8020 通信设备读错误
ComDCBError 8021 检取端口设备控制块时出现内部错误
搞清楚以上基本属性后，就可以开始编写通信许程序了。在VB5.0/6.0中新建一个工程文件。添加Microsoft Comm Control 5.0组
件，在简体Form1中加入Command命令按钮并取名为CmdTest，MSComm控件取名为MSComm1，加入如下程序代码。
Private Sub cmdTestClick ( ) '打开串口
MSComml.CommPort =2 '设定Com2
If MSComml.PortOpen = False Then
MSComm1.Settings = "9600,n,8,1" '9600波特率，无校验，8位数据位，1位停止位
MSComm1.PortOpen = True '打开串口
End if
MSComm1.OutBufferCount = 0 '清空发送缓冲区
MSComm1.InBufferCount = 0 '滑空接收缓冲区
'发送字符数据时注意必须用回车符（vbcr）结束
MSComm1.Output="This is a qood book ! " &vbCr
'泼打电话号码或发送AT命令
MSComm1.Output = "ATDT 05778191898 , & vbCr
'发送字符数组数据时注意ByteArray必须事先定义赋值
Dim ByteArray as byte( )
'定义动态数组
ReDim ByteArray(1)
'重定义数组大小
ByteArray ( 0 ) =0
ByteArray ( 1 ) = 1
MSComm1.Output = ByteArray
End Sub
private Sub MScommEvent( )
Select Case MSComm1.CommEvent
Case comEvReceive
Dim Buffer As Variant
MSComm1.InputLen = 0
'接收二进制数据
MSComm1.InputMode= ComInputModeBinary
Buffer=MSComm1.Input
'接收字符数据
MSComm1.InputMode=comInputModeText
Buffer = MSComml.Input
Case else
End Select
End sub
( 程序1)
二、中文Win 95／98下的通信问题与解决方法
1．接收的数据少于发送的数据
如果通过MSComm控件一次性传送较多的二进制数据，那么，很可能收到的数据不足。例如在设置为24oobps传输率的情况下，
一次性可以传输2048个字符数据 那么在大多数情况下。一次只能收到1200个字符左右，这址出为新版的MSComm32．OCX中存在一
个影响传输二进制数据的臭虫（bug）．注意这不是特性。
32位Windows API函数（以下简称API）使用了几个用COMMTIMEOUTS结构表示的限时变量，WriteTotalTimeOutConstant 即是其
中的一个，它被Windows内部设定为5000（即5秒），这个常量决定了在通信驱动程序停止传输之前花费在发送缓冲区中数据的时间
的长短，5秒钟意味着通信速度为1200bps情况下仅能发送600个字符，24oobps情况下仅能发送1200个左右的字符。事实上，在一个
缓冲区内一次性发送更多的数据是非常可能的。这个bug同样也能引发问题，甚至在高速串口门通信情况下，即使系统在使用流控
制，无论丛软件流（Xon／XofI）还是硬件流（CTS／RTS）。假如数据在发送缓冲区中时，流控制停止了传输，如果停止时间超过5
秒钟．则数据就会丢失。在某些环境下，5秒钟可能相当短．不过也不必担心， VB 5.0/6.0版本的MSComm控件有一个新增的重要的
属性称为CommID， CommID指的是当串口被打开时，被API所调用的串口句柄或称标志，这也意味着能利用API接口函数去修改这个
常量。每次串口关闭后，Windows会自动将之恢复为5000，所以，每次打开串口后需要重斩设定以下API声明，其代码见下程序。
Type COMMTIMEOUTS
ReadIntervalTimeout As Long
ReadTotalTimeoutMultiplier As Long
ReadTotalTimeoutConstant As Long
WriteTotalTimeoutMultiplier As Long
WriteTotalTimeoutConstant As Long
End Type
Declare Function SetCommTimeouts Lib "Kernel32"
(BYVal hFile As Long, lpComm TimeoutsAs COMMTIMEOUTS) As Long
Declare Function GetCommTimeouts Lib "Kernel32"
(ByVal hFile As Long, lpCommTimeouts As COMMTIMEOUTS) As Long
Dim timeouts As COMMEOUTS
Dim Ret As Long
If Comm1.PortOpen = False Then
Comm1.PortOpen = True
End if
Ret=GetCommTimeouts ( Comm1.CommID , timeouts )
'Set some default timeouts
timeOuts.ReadIntervalTimeout = 1
timeouts.ReadTotalTimeoutMultiplier =1
timeouts.ReadTotalTimeoutConstant =1
timeouts.WriteTotalTimeoutMultiplier =1
timeouts.WriteTotalTimeoutConstant=
( Comm1.OutBufferSize\Val(Comm1.Settings))*10000+1000
Ret=SetCommTimeouts( Comm1.CommID , timeouts )
( 程序2)
2．如何发送大于128的字符数据
在通信程序中，以单字符方式逐个发送数据时，每一个数据范围 0-255（即十六进制的00-FF）。在单字符版本的英文Win95或
DOS版的BASIC程序中，只需要将相应的数据转换成相应的字符发送到通信端口即可。但在中文Win95/98下却行不通，假设在中文
Win95／98下运行以下程序：
Dim i
For i=0 to 255
MSComm1.Output=chr(i)
Next i
希望在接收端得到预期的0-255之间的数据，结果却是：前129个数据接收正确，为0-128，后面127个数据为126个0和一个255，
造成这种给果的原因在于中文Windows使用的是双字节字符集（DBCS）系统。DBCS系统使用0-128之间的数字表示ASCII字符，大于
128的数字仅作为前导字符，它只是显示是一个非拉丁语系的字符，而并不代表实际意义。上述程序在调用CHR（）函数时用到了
DBCS字符集，冈此产生了此类错误。那么，如何发送人于128的数据呢？答案是使用字符数组，将以上程序改为：
Dim cc(255) As Byte
For i = 0 To 255
cc(i) = i
Next i
MSComm1.Output = cc
Do
DoEvents
Loop Until MSComm1.OutBufferCount = 0
'接收过程 MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
Dim Buffer As Variant, b1,i
MSComm1.InputMode=comInputModeBinery
MSComm1.InputLen = 0
Buffer = MSComm1.Input
For i=LBound (Buffer) To UBound (Buffer )
Debug.Print Buffer ( i ) ;
Next i
Case . . . . .
3．如何发送0字符（00H，NULL）
在VisuaI C＋＋中使用串口控件发送0字符有些麻烦，但在VB5.0/6.0中只要注意以下两点即可：
（1）设置MSComm控件的属性 NullDiscard=False；。
（2）使用二进制接收，即用 MSComm1.InputMode=ComInputModeBinary便可以解决问题；
4．如何发送递中文字符串（DBcS字符）
VB5.0/6.0的各种参考书上均指明MSComm通信控件不能发送或接收双字节字符集系统DBCS）的二进制数据，这对于我国及亚洲一些
使用DBCS字符集的国家不能不说是一大人遗憾。但是我在实践中发现，用MSComm控件也可以发送中文字符，具体方法有以下两种：
（1）直接发送
直接发送即把中文字符等同于英文字符。如：MSComm1.Intput= " 这是一行中文数据！" ，但这种方法发送的中文数据不能太
长，发送缓冲区和接收缓冲区的大小需设定为中文字符的两倍以上，而且发送与接收系统所处的操作系统版本最好要一致，否则会
出现接收或发送缓冲区溢出之类的错误。这种方法时用于一般要求不太高的场合。
（2）间接发送
在发送端将汉字或字符转换为机器内码或区位码数据数组，然后将咏转换后的数据发送到串口，在接收端接收到数据后，按照
相反的顺序得到的数据转换为相应的汉字或字符，在转换过程中．要用到位运算，如取得汉字的内码后需要将高字节和低字节分开，
而VB5.0/6.0中并没有提供此类函数，以下是求整数高、低字节的函数。
Public Function HiByte(a As Integer )
Dim b
b= a And &HFF00
b = b / 256
If b<0 Then b = b + 256
HiByte = b
End Function
Public Function LowByte(a As Integ`er)
Dim b
b = a And &HFF
LowByte = b
End Function
5．如何用单机进行通信测试
通常在写好了通信程序后需要两台PC或一台Pc、一台单片机．将通信口连接后进行测试，但很多时侯因条件限制仅有单台PC机，
测试项目很简单，那么能否测试呢？当然可以，而且方法也很简单。对于九针的串口，找一个废弃的串口鼠标，剥外鼠标线，将连
接2、3针的线对接即可；对于25针的串口，找一枚曲别针（最好有塑料外套的）将它扯直，剥削去两头的塑料后在两头各弯一个圆
圈，中间对忻后直接套接在串口的2、3针上即可。如果但心不够安全，则可以将5针按地。
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
关于mscomm的用法，提高篇......[mgwmj]?
MSCOMM控件是个好东西，如果您能够充分了解他，他会为您衷心的效劳。
大致看了一下下午有关讨论MSCOMM的话题，觉得有必要说说我的心得，我一般只做硬件，没有系统的学过软件，只是业余时间
学学用用，多少掌握了一点，也在此拿出来玩玩，不知有错没有，我可是以为我已经做的很好了^_^
这是一个VB通用串口事件驱动接收程序。一次性接收一个数据包，数据包可以为任意字节，保证不会丢失一个数据！
Private Sub MSComm_OnComm()
Dim S() As Byte
Dim SS(1024) As Byte
Static N As Long
Static T As Variant
If (MSComm.CommEvent = comEvReceive) Then
S = MSComm.Input '只要有数据就收进来，哪怕只是一个
If (Timer - T > 0.01) Then '间隔10MS以上就认为是一个新的包
text1="" 'text1用于搜集和显示接收(HEX格式)
N = 0
End If
T = Timer
For i = 0 To UBound(S) '一个数据包可能产生若干个oncomm事件
Text1.Text = Text1.Text & Right("0" & Hex(S(i)) & "H", 3) + " "
SS(N+i)=S(i) '接收数据包缓存于SS()
N=N+UBound(S)
Next i
End If
End Sub
⑥ 中央处理器的选择方法及它们有什么样的区别
nit（中央微处理器）的缩写，它是计算机中最重要的一个部分，由运算器和控制器组成。如果把计算机比作人，那么CPU就是人的大脑。CPU的发展非常迅速，个人电脑从8088(XT)发展到现在的Pentium 4时代，只经过了不到二十年的时间。
从生产技术来说，最初的8088集成了29000个晶体管，而PentiumⅢ的集成度超过了2810万个晶体管；CPU的运行速度，以MIPS(百万个指令每秒)为单位，8088是0.75MIPS，到高能奔腾时已超过了1000MIPS。不管什么样的CPU，其内部结构归纳起来都可以分为控制单元、逻辑单元和存储单元三大部分，这三个部分相互协调，对命令和数据进行分析、判断、运算并控制计算机各部分协调工作。
CPU从最初发展至今已经有二十多年的历史了，这期间，按照其处理信息的字长，CPU可以分为：4位微处理器、8位微处理器、16位微处理器、32位微处理器以及正在酝酿构建的64位微处理器，可以说个人电脑的发展是随着CPU的发展而前进的。
Intel 4004
1971年，英特尔公司推出了世界上第一款微处理器4004，这是第一个可用于微型计算机的四位微处理器，它包含2300个晶体管。随后英特尔又推出了8008，由于运算性能很差，其市场反应十分不理想。1974年，8008发展成8080,成为第二代微处理器。8080作为代替电子逻辑电路的器件被用于各种应用电路和设备中，如果没有微处理器,这些应用就无法实现。
由于微处理器可用来完成很多以前需要用较大设备完成的计算任务，价格又便宜，于是各半导体公司开始竞相生产微处理器芯片。Zilog公司生产了8080的增强型Z80，摩托罗拉公司生产了6800，英特尔公司于1976年又生产了增强型8085,但这些芯片基本没有改变8080的基本特点，都属于第二代微处理器。它们均采用NMOS工艺,集成度约9000只晶体管,平均指令执行时间为1μS～2μS,采用汇编语言、BASIC、Fortran编程，使用单用户操作系统。
Intel 8086
1978年英特尔公司生产的8086是第一个16位的微处理器。很快Zilog公司和摩托罗拉公司也宣布计划生产Z8000和68000。这就是第三代微处理器的起点。
8086微处理器最高主频速度为8MHz，具有16位数据通道，内存寻址能力为1MB。同时英特尔还生产出与之相配合的数学协处理器i8087,这两种芯片使用相互兼容的指令集，但i8087指令集中增加了一些专门用于对数、指数和三角函数等数学计算的指令。人们将这些指令集统一称之为 x86指令集。虽然以后英特尔又陆续生产出第二代、第三代等更先进和更快的新型CPU，但都仍然兼容原来的x86指令，而且英特尔在后续CPU的命名上沿用了原先的x86序列，直到后来因商标注册问题，才放弃了继续用阿拉伯数字命名。
1979年，英特尔公司又开发出了8088。8086和8088在芯片内部均采用16位数据传输，所以都称为16位微处理器，但8086每周期能传送或接收16位数据，而8088每周期只采用8位。因为最初的大部分设备和芯片是8位的，而8088的外部8位数据传送、接收能与这些设备相兼容。8088采用40针的DIP封装，工作频率为6.66MHz、7.16MHz或8MHz，微处理器集成了大约29000个晶体管。
8086和8088问世后不久，英特尔公司就开始对他们进行改进，他们将更多功能集成在芯片上，这样就诞生了80186和80188。这两款微处理器内部均以16位工作，在外部输入输出上80186采用16位，而80188和8088一样是采用8位工作。
1981年，美国IBM公司将8088芯片用于其研制的PC机中，从而开创了全新的微机时代。也正是从8088开始，个人电脑(PC)的概念开始在全世界范围内发展起来。从8088应用到IBM PC机上开始,个人电脑真正走进了人们的工作和生活之中，它也标志着一个新时代的开始。
Intel 80286
1982年，英特尔公司在8086的基础上，研制出了80286微处理器，该微处理器的最大主频为20MHz，内、外部数据传输均为16位，使用24位内存储器的寻址，内存寻址能力为16MB。80286可工作于两种方式，一种叫实模式，另一种叫保护方式。
在实模式下，微处理器可以访问的内存总量限制在1兆字节；而在保护方式之下，80286可直接访问16兆字节的内存。此外，80286工作在保护方式之下，可以保护操作系统，使之不像实模式或8086等不受保护的微处理器那样，在遇到异常应用时会使系统停机。
IBM公司将80286微处理器用在先进技术微机即AT机中，引起了极大的轰动。80286在以下四个方面比它的前辈有显着的改进：支持更大的内存；能够模拟内存空间；能同时运行多个任务；提高了处理速度。最早PC机的速度是4MHz，第一台基于80286的AT机运行速度为6MHz至8MHz，一些制造商还自行提高速度，使80286达到了20MHz，这意味着性能上有了重大的进步。
80286的封装是一种被称为PGA的正方形包装。PGA是源于PLCC的便宜封装，它有一块内部和外部固体插脚，在这个封装中，80286集成了大约130000个晶体管。
IBM PC/AT微机的总线保持了XT的三层总线结构，并增加了高低位字节总线驱动器转换逻辑和高位字节总线。与XT机一样，CPU也是焊接在主板上的。
那时的原装机仅指IBM PC机，而兼容机就是除了IBM PC以外的其它机器。在当时，生产CPU的公司除英特尔外，还有AMD及西门子公司等，而人们对自己电脑用的什么CPU也不关心，因为AMD等公司生产的CPU几乎同英特尔的一样，直到486时代人们才关心起自己的CPU来。
8086～80286这个时代是个人电脑起步的时代，当时在国内使用甚至见到过PC机的人很少，它在人们心中是一个神秘的东西。到九十年代初，国内才开始普及计算机。
Intel 80386
1985年春天的时候，英特尔公司已经成为了第一流的芯片公司，它决心全力开发新一代的32位核心的CPU—80386。Intel给80386设计了三个技术要点：使用“类286”结构，开发80387微处理器增强浮点运算能力，开发高速缓存解决内存速度瓶颈。
1985年10月17日，英特尔划时代的产品——80386DX正式发布了，其内部包含27.5万个晶体管，时钟频率为12.5MHz，后逐步提高到20MHz、25MHz、33MHz，最后还有少量的40MHz产品。
80386DX的内部和外部数据总线是32位，地址总线也是32位，可以寻址到4GB内存，并可以管理64TB的虚拟存储空间。它的运算模式除了具有实模式和保护模式以外，还增加了一种“虚拟86”的工作方式，可以通过同时模拟多个8086微处理器来提供多任务能力。
80386DX有比80286更多的指令，频率为12.5MHz的80386每秒钟可执行6百万条指令，比频率为16MHz的80286快2.2倍。80386最经典的产品为80386DX－33MHz，一般我们说的80386就是指它。
由于32位微处理器的强大运算能力，PC的应用扩展到很多的领域，如商业办公和计算、工程设计和计算、数据中心、个人娱乐。80386使32位CPU成为了PC工业的标准。
虽然当时80386没有完善和强大的浮点运算单元，但配上80387协处理器，80386就可以顺利完成许多需要大量浮点运算的任务，从而顺利进入了主流的商用电脑市场。另外，30386还有其他丰富的外围配件支持，如82258（DMA控制器）、8259A（中断控制器）、8272（磁盘控制器）、82385（Cache控制器）、82062（硬盘控制器）等。针对内存的速度瓶颈，英特尔为80386设计了高速缓存（Cache），采取预读内存的方法来缓解这个速度瓶颈，从此以后，Cache就和CPU成为了如影随形的东西。
Intel 80387/80287
严格地说，80387并不是一块真正意义上的CPU，而是配合80386DX的协处理芯片，也就是说，80387只能协助80386完成浮点运算方面的功能，功能很单一。
Intel 80386SX
1989年英特尔公司又推出准32位微处理器芯片80386SX。这是Intel为了扩大市场份额而推出的一种较便宜的普及型CPU，它的内部数据总线为32位，外部数据总线为16位，它可以接受为80286开发的16位输入/输出接口芯片，降低整机成本。
80386SX推出后，受到市场的广泛的欢迎，因为80386SX的性能大大优于80286，而价格只是80386的三分之一。
Intel 80386SL/80386DL
英特尔在1990年推出了专门用于笔记本电脑的80386SL和80386DL两种型号的386芯片。这两个类型的芯片可以说是80386DX/SX的节能型，其中，80386DL是基于80386DX内核，而80386SL是基于80386SX内核的。这两种类型的芯片，不但耗电少，而且具有电源管理功能，在CPU不工作的时候，自动切断电源供应。
Motorola 68000
摩托罗拉的68000是最早推出的32位微微处理器，当时是1984年，推出后，性能超群，并获得如日中天的苹果公司青睐，在自己的划时代个人电脑“PC－MAC”中采用该芯片。但80386推出后，日渐没落。
AMD Am386SX/DX
AMD的Am386SX/DX是兼容80386DX的第三方芯片，性能上和英特尔的80386DX相差无己，也成为当时的主流产品之一。
IBM 386SLC
这个是由IBM在研究80386的基础上设计的，和80386完全兼容，由英特尔生产制造。386SLC基本上是一个在80386SX的基础上配上内置Cache，同时包含80486SX的指令集，性能也不错。
Intel 80486
1989年，我们大家耳熟能详的80486芯片由英特尔推出。这款经过四年开发和3亿美元资金投入的芯片的伟大之处在于它首次实破了100万个晶体管的界限，集成了120万个晶体管，使用1微米的制造工艺。80486的时钟频率从25MHz逐步提高到33MHz、40MHz、50MHz。
80486是将80386和数学协微处理器80387以及一个8KB的高速缓存集成在一个芯片内。80486中集成的80487的数字运算速度是以前80387的两倍，内部缓存缩短了微处理器与慢速DRAM的等待时间。并且，在80x86系列中首次采用了RISC（精简指令集）技术，可以在一个时钟周期内执行一条指令。它还采用了突发总线方式，大大提高了与内存的数据交换速度。由于这些改进，80486的性能比带有80387数学协微处理器的80386 DX性能提高了4倍。
随着芯片技术的不断发展，CPU的频率越来越快，而PC机外部设备受工艺限制，能够承受的工作频率有限，这就阻碍了CPU主频的进一步提高。在这种情况下，出现了CPU倍频技术，该技术使CPU内部工作频率为微处理器外频的2～3倍，486 DX2、486 DX4的名字便是由此而来。
Intel 80486 DX
常见的80486 CPU有80486 DX－33、40、50。486 CPU与386 DX一样内外都是32位的，但是最慢的486 CPU也比最快的386 CPU要快，这是因为486 SX/DX执行一条指令，只需要一个振荡周期，而386DX CPU却需要两个周期。
Intel 80486 SX
因为80486 DX CPU具有内置的浮点协微处理器，功能强大，当然价格也就比较昂贵。为了适应普通的用户的需要，尤其是不需要进行大量浮点运算的用户，英特尔公司推出了486 SX CPU。80486 SX主板上一般都有80487协微处理器插座，如果需要浮点协微处理器的功能，可以插上一个80487协微处理器芯片，这样就等同于486 DX了。常见的80486 SX CPU有：80486 SX－25、33。
Intel 80486 DX2/DX4
其实这种CPU的名字与频率是有关的，这种CPU的内部频率是主板频率的两/四倍，如80486 DX2－66，CPU的频率是66MHz，而主板的频率只要是33MHz就可以了。
Intel 80486 SL CPU
80486 SL CPU最初是为笔记本电脑和其他便携机设计的，与386SL一样，这种芯片使用3.3V而不是5V电源，而且也有内部切断电路，使微处理器和其他一些可选择的部件在不工作时，处于休眠状态，这样就可以减少笔记本电脑和其他便携机的能耗，延长使用时间。
Intel 486 OverDrive
升级486 SX可以在主板的协微处理器插槽上安装一个80487SX芯片，使其等效于486 DX，但是这样升级后，只是增加了浮点协微处理器的能力，并没有提高系统的速度。为了提高系统的速度，还有另外一种升级的方法，就是在协微处理器插槽上插上一个486 OverDrive CPU，它的原理与486 DX2 CPU一样，其内部操作速度可以是外部速度的两倍。如一个20MHz的主板上安插了OverDrive CPU之后，CPU内部的操作速度可以达到40MHz。486 OverDrive CPU也有浮点协微处理器的功能，常见的有：OverDrive－50、66、80。
TI 486 DX
作为全球知名的半导体厂商之一，美国德州仪器(TI)也在486时代异军突起，它自行生产了486 DX系列CPU，尤其在486DX2成为主流后，其DX2－80因较高的性价比成为当时主流产品之一，TI 486最高主频为DX4－100，但其后再也没有进入过CPU市场。
Cyrix 486DLC
这是Cyrix公司生产的486 CPU，说它是486 CPU，是指它的效率上逼近486 CPU，却并不是严格意义上的486 CPU，这是由486 CPU的特点而定的。486DLC CPU只是将386DX CPU与1K Cache组合在一块芯片里，没有内含浮点协微处理器，执行一条指令需要两个振荡周期。但是由于486DLC CPU设计精巧，486DLC－33 CPU的效率逼近英特尔公司的486 SX－25，而486DLC－40 CPU则超过了486 SX－25，并且486DLC－40 CPU的价格比486 SX－25便宜。486DLC CPU是为了升级386DM而设计的，如果原来有一台386电脑，想升级到486，但是又不想更换主板，就可以拔下原来的386 CPU，插上一块486DLC CPU就可以了。
Cyrix 5x86
自从英特尔另辟蹊径，开发了Pentium之后，Cyrix也很快推出了自己的新一代产品5x86。它仍然延用原来486系列的CPU插座，而将主频从100MHz提高到120MHz。5x86比起486来说性能是有所增加，可是比起Pentium来说，不但浮点性能远远不足，就连Cyrix一向自豪的整数运算性能也不那么高超，给人一种比上不足比下有余的感觉。由于5x86可以使用486的主板，因此一般将它看成是过渡产品。
AMD 5x86
AMD 486DX是AMD公司在 486市场的利器，它内置16KB回写缓存，并且开始了单周期多指令的时代，还具有分页虚拟内存管理技术。由于后期TI推出了486DX2－80，价格非常低，英特尔又推出了Pentium系列，AMD为了抢占市场的空缺，推出了5x86系列CPU。它是486级最高主频的产品，为5x86－120及133。它采用了一体的16K回写缓存，0.35微米工艺，33×4的133频率，性能直指Pentiun 75，并且功耗要小于Pentium。
Intel Pentium
1993年，全面超越486的新一代586 CPU问世，为了摆脱486时代微处理器名称混乱的困扰，英特尔公司把自己的新一代产品命名为Pentium(奔腾)以区别AMD和Cyrix的产品。AMD和Cyrix也分别推出了K5和6x86微处理器来对付芯片巨人，但是由于奔腾微处理器的性能最佳，英特尔逐渐占据了大部分市场。
Pentium最初级的CPU是Pentium 60和Pentium 66，分别工作在与系统总线频率相同的60MHz和66MHz两种频率下，没有我们现在所说的倍频设置。
早期的奔腾75MHz～120MHz使用0.5微米的制造工艺，后期120MHz频率以上的奔腾则改用0.35微米工艺。经典奔腾的性能相当平均，整数运算和浮点运算都不错。
Intel Pentium MMX
为了提高电脑在多媒体、3D图形方面的应用能力，许多新指令集应运而生，其中最着名的三种便是英特尔的MMX、SSE和AMD的3D NOW!。 MMX（MultiMedia Extensions，多媒体扩展指令集）是英特尔于1996年发明的一项多媒体指令增强技术，包括57条多媒体指令，这些指令可以一次处理多个数据，MMX技术在软件的配合下，就可以得到更好的性能。
多能奔腾(Pentium MMX)的正式名称就是“带有MMX技术的Pentium”，是在1996年底发布的。从多能奔腾开始，英特尔就对其生产的CPU开始锁倍频了，但是MMX的CPU超外频能力特别强，而且还可以通过提高核心电压来超倍频，所以那个时候超频是一个很时髦的行动。超频这个词语也是从那个时候开始流行的。
多能奔腾是继Pentium后英特尔又一个成功的产品，其生命力也相当顽强。多能奔腾在原Pentium的基础上进行了重大的改进，增加了片内16KB数据缓存和16KB指令缓存，4路写缓存以及分支预测单元和返回堆栈技术。特别是新增加的57条MMX多媒体指令，使得多能奔腾即使在运行非MMX优化的程序时，也比同主频的Pentium CPU要快得多。
这57条MMX指令专门用来处理音频、视频等数据。这些指令可以大大缩短CPU在处理多媒体数据时的等待时间，使CPU拥有更强大的数据处理能力。与经典奔腾不同，多能奔腾采用了双电压设计，其内核电压为2.8V，系统I/O电压仍为原来的3.3V。如果主板不支持双电压设计，那么就无法升级到多能奔腾。
多能奔腾的代号为P55C，是第一个有MMX技术(整量型单元执行)的CPU，拥有16KB数据L1 Cache，16KB指令L1 Cache，兼容SMM，64位总线，528MB/s的频宽，2时钟等待时间，450万个晶体管，功耗17瓦。支持的工作频率有:133MHz、150MHz、166MHz、200MHz、233MHz。
Intel Pentium Pro
曾几何时，Pentium Pro是高端CPU的代名词，Pentium Pro所表现的性能在当时让很多人大吃一惊，但是Pentium Pro是32位数据结构设计的CPU，所以Pentium Pro运行16位应用程序时性能一般，但仍然是32位的赢家，但是后来，MMX的出现使它黯然失色。
Pentium Pro(高能奔腾，686级的CPU)的核心架构代号为P6（也是未来PⅡ、PⅢ所使用的核心架构），这是第一代产品，二级Cache有256KB或512KB，最大有1MB的二级Cache。工作频率有:133/66MHz(工程样品)，150/60MHz、166/66MHz、180/60MHz、200/66MHz。
AMD K5
K5是AMD公司第一个独立生产的x86级CPU，发布时间在1996年。由于K5在开发上遇到了问题，其上市时间比英特尔的Pentium晚了许多，再加上性能不好，这个不成功的产品一度使得AMD的市场份额大量丧失。K5的性能非常一般，整数运算能力不如Cyrix的6x86，但是仍比Pentium略强，浮点运算能力远远比不上Pentium，但稍强于Cyrix。综合来看，K5属于实力比较平均的那一种产品。K5低廉的价格显然比其性能更能吸引消费者，低价是这款CPU最大的卖点。
AMD K6
AMD 自然不甘心Pentium在CPU市场上呼风唤雨，因此它们在1997年又推出了K6。K6这款CPU的设计指标是相当高的，它拥有全新的MMX指令以及64KB L1 Cache（比奔腾MMX多了一倍），整体性能要优于奔腾MMX，接近同主频PⅡ的水平。K6与K5相比，可以平行地处理更多的指令，并运行在更高的时钟频率上。AMD在整数运算方面做得非常成功，K6稍微落后的地方是在运行需要使用到MMX或浮点运算的应用程序方面，比起同样频率的Pentium 要差许多。
K6拥有32KB数据L1 Cache,32KB指令L1 Cache,集成了880万个晶体管,采用0.35微米技术,五层CMOS,C4工艺反装晶片,内核面积168平方毫米(新产品为68平方毫米),使用Socket7架构。
Cyrix 6x86/MX
Cyrix 也算是一家老资格的CPU开发商了，早在x86时代，它和英特尔，AMD就形成了三雄并立的局面。
自从Cyrix与美国国家半导体公司合并后，使它终于拥有了自己的芯片生产线，成品也日益完善和完备。Cyrix的6x86是投放到市场上与Pentium兼容的微处理器。
IDT WinChip
美国IDT公司（Integrated Device Technology）作为新加入此领域的CPU生产厂商，在1997年推出的第一个微微处理器产品是WinChip（即C6），在整个CPU市场上所占的份额还不足1%。1998年5月，IDT宣布了它的第二代产品WinChip 2 。
WinChip 2在原有WinChip的基础上作了一些改进，增加了一个双指令的MMX单元，增强了浮点运算功能。改进后的WinChip 2比相同频率的WinChip性能提高约10%，基本达到Intel Pentium微处理器的性能。
Intel PentiumⅡ
1997年～1998年是CPU市场竞争异常激烈的一年，这一时期的CPU芯片异彩纷呈，令人目不暇接。
PentiumⅡ的中文名称叫“奔腾二代”，它有Klamath、Deschutes、Mendocino、Katmai等几种不同核心结构的系列产品，其中第一代采用Klamath核心，0.35微米工艺制造，内部集成750万个晶体管，核心工作电压为2.8V。
PentiumⅡ微处理器采用了双重独立总线结构，即其中一条总线连通二级缓存，另一条负责主要内存。PentiumⅡ使用了一种脱离芯片的外部高速L2 Cache，容量为512KB，并以CPU主频的一半速度运行。作为一种补偿，英特尔将PentiumⅡ的L1 Cache从16KB增至32KB。另外，为了打败竞争对手，英特尔第一次在PentiumⅡ中采用了具有专利权保护的Slot 1接口标准和SECC(单边接触盒)封装技术。
1998年4月16日，英特尔第一个支持100MHz额定外频的、代号为Deschutes的350、400MHz CPU正式推出。采用新核心的PentiumⅡ微处理器不但外频提升至100MHz，而且它们采用0.25微米工艺制造，其核心工作电压也由2.8V降至2.0V，L1 Cache和L2 Cache分别是32KB、512KB。支持芯片组主要是Intel的440BX。
在1998年至1999年间，英特尔公司推出了比PentiumⅡ功能更强大的CPU--Xeon（至强微处理器）。该款微处理器采用的核心和PentiumⅡ差不多，0.25微米制造工艺，支持100MHz外频。Xeon最大可配备2MB Cache，并运行在CPU核心频率下，它和PentiumⅡ采用的芯片不同，被称为CSRAM（Custom StaticRAM,定制静态存储器）。除此之外，它支持八个CPU系统；使用36位内存地址和PSE模式（PSE36模式），最大800MB/s的内存带宽。Xeon微处理器主要面向对性能要求更高的服务器和工作站系统，另外，Xeon的接口形式也有所变化，采用了比Slot 1稍大一些的Slot 2架构(可支持四个微处理器)。
Intel Celeron(赛扬)
英特尔为进一步抢占低端市场，于1998年4月推出了一款廉价的CPU—Celeron（中文名叫赛扬）。最初推出的Celeron有266MHz、300MHz两个版本，且都采用Covington核心，0.35微米工艺制造，内部集成1900万个晶体管和32KB一级缓存，工作电压为2.0V，外频66MHz。Celeron与PentiumⅡ相比，去掉了片上的L2 Cache,此举虽然大大降低了成本，但也正因为没有二级缓存，该微处理器在性能上大打折扣，其整数性能甚至不如Pentium MMX。
为弥补缺乏二级缓存的Celeron微处理器性能上的不足，进一步在低端市场上打击竞争对手，英特尔在Celeron266、300推出后不久，又发布了采用Mendocino核心的新Celeron微处理器—Celeron300A、333、366。与旧Celeron不同的是，新Celeron采用0.25微米工艺制造，同时它采用Slot 1架构及SEPP封装形式，内建32KB L1 Cache、128KB L2 Cache，且以CPU相同的核心频率工作，从而大大提高了L2 Cache的工作效率。
AMD K6－2
AMD于1998年4月正式推出了K6－2微处理器。它采用0.25微米工艺制造，芯片面积减小到了68平方毫米，晶体管数目也增加到930万个。另外，K6－2具有64KB L1 Cache，二级缓存集成在主板上，容量从512KB到2MB之间，速度与系统总线频率同步，工作电压为2.2V，支持Socket 7架构。
K6－2是一个K6芯片加上100MHz总线频率和支持3D Now！浮点指令的“结合物”。3D Now！技术是对x86体系的重大突破，它大大加强了处理3D图形和多媒体所需要的密集浮点运算性能。此外，K6－2支持超标量MMX技术，支持100MHz总线频率，这意味着系统与L2缓存和内存的传输率提高近50%，从而大大提高了整个系统的表现。
Cyrix MⅡ
作为Cyrix公司独自研发的最后一款微处理器，Cyrix MⅡ是于1998年3月开始生产的。除了具有6x86本身的特性外,该微处理器还支持MMX指令，其核心电压为2.9V，具有256字节指令;3.5X倍频;核心内集成650万个晶体管,功耗20.6瓦；64KB一级缓存。
Rise mp6
Rise公司是一家成立于1993年11月的美国公司，主要生产x86兼容的CPU，在1998年推出了mP6 CPU。mp6不仅价格便宜，而且性能优异，有着很好的多媒体性能和强大的浮点运算。mp6使用Socket 7/Super 7兼容插座，只有16KB的一级缓存。
Intel PentiumⅢ
1999年春节刚过，英特尔公司就发布了采用Katmai核心的新一代微处理器—PentiumⅢ。该微处理器除采用0.25微米工艺制造，内部集成950万个晶体管，Slot 1架构之外，它还具有以下新特点：系统总线频率为100MHz；采用第六代CPU核心—P6微架构，针对32位应用程序进行优化，双重独立总线；一级缓存为32KB(16KB指令缓存加16KB数据缓存)，二级缓存大小为512KB，以CPU核心速度的一半运行；采用SECC2封装形式；新增加了能够增强音频、视频和3D图形效果的SSE(Streaming SIMD Extensions,数据流单指令多数据扩展）指令集，共70条新指令。PentiumⅢ的起始主频速度为450MHz。
和PentiumⅡ Xeon一样，英特尔同样也推出了面向服务器和工作站系统的高性能CPU—PentiumⅢ Xeon至强微处理器。除前期的PentiumⅡ Xeon500、550采用0.25微米技术外，该款微处理器是采用0.18微米工艺制造，Slot 2架构和SECC封装形式，内置32KB一级缓存和512KB二级缓存，工作电压为1.6V。
Intel CeleronⅡ
为进一步巩固低端市场优势，英特尔于2000年3月29日推出了采用Coppermine核心CeleronⅡ。该款微处理器同样采用0.18微米工艺制造，核心集成1900万个晶体管，采用FC－PGA封装形式，它和赛扬Mendocino一样内建128KB和CPU同步运行的L2 Cache，故其内核也称为Coppermine 128。CeleronⅡ不支持多微处理器系统。但是，CeleronⅡ的外频仍然只有66MHz，这在很大程度上限制了其性能的发挥。
AMD K6－Ⅲ
AMD于1999年2月推出了代号为“Sharptooth”(利齿)的K6－Ⅲ，它是该公司最后一款支持Super 7架构和CPGA封装形式的CPU，采用0.25微米制造工艺、内核面积是135平方毫米，集成了2130万个晶体管，工作电压为2.2V/2.4V。