请教一个用MSComm连续外发数据时遇到的问题：

[dongguacha]

请教一个用MSComm连续外发数据时遇到的问题：

我的程序流程：在while(myReader.read())循环体里首先读数据表中的手机号码（只有两个记录），然后用myComm.Output的方法写串口发送，再回到while(myReader.read())中判断并获取下一个号码，.....但运行后却只能成功发送第一个号码？？如果在程序中加断点，有时又能成功发送第二个号码，似乎是串口的处理速度赶不上电脑写串口的速度，请问各位该如何解决？？？

[zyg0]

+延时函数
private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
'*************************************************************************
'**函 数 名：Mysleep
'**输 入：Optional ByVal stime(Long = 500) -休眠的时间,毫秒为单位
'**输 出：无
'**功能描述：让计算机休眠指定的时间,并且可以响应事件
'**全局变量：
'**调用模块：
'**作 者: 影子
'**日 期：2005-02-23 16:13:08
'**修 改 人：
'**日 期：
'**版 本：V1.0.0
'*************************************************************************
Public Sub Mysleep(Optional ByVal stime As Long = 500)
Dim Savetime As Long
Savetime = GetTickCount '记下开始的时间
Savetime = CLng(Savetime) + stime
While GetTickCount < Savetime
'循环等待
DoEvents '转让控制权，以便让操作系统处理其它的事件。
Wend
End Sub

[storm2003]

注意要延时

你可以令RThreshold = 0;//不产生Oncomm事件

自己定义一个读串口的方法，如果数据串有定长，则用定长控制读串口的时间，或用延时控制System.Threading.Thread.Sleep(3000);