OutBufferSize / Val(Comm1.Settings))*10000+1000
          Ret=SetCommTimeouts(Comm1.CommID,timeouts)
3.2 如何发送大于128的字符数据
在通信程序中，以单字符方式逐个发送数据时，每一个数据范围为0-255（即十六进制的00-FF）。在单字符版本的英文Windows或DOS版的BASIC程序中，只需要将相应的数据转换成相应的字符发送到通信端口即可。但在中文Windows下却行不通，假设在中文Windows下运行以下程序：
          Dim i as Integer
          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 MyData(255) As Byte
         For i = 0 To 255
            MyData(i) = i
         Next i
         MSComm1.Output = MyData
         Do
            DoEvents
         Loop Until MSComm1.OutBufferCount = 0
         '接收过程
         Private Sub MSComm1_OnComm()
            Select Case MSComm1.CommEvent
                Case comEvReceive
                    Dim Buffer As Variant
                    MSComm1.InputMode = comInputModeBinary
                    MSComm1.InputLen = 0
                    Buffer = MSComm1.Input
                    For i=LBound(Buffer) To UBound(Buffer)
                        Text1.Text= Buffer(i);
Next i
                Case Else
End Select
         End Sub
3.3 如何发送中文字符串
VB 5.0/6.0中可以直接把中文字符等同于英文字符发送，如：MSComm1.output="现在发送中文数据！"，但这种方法发送的中文数据不能太长，发送缓冲区和接收缓冲区的大小需设定为中文字符的两倍以上，而且发送与接收系统所处的操作系统版本最好要一致，否则会出现接收或发送缓冲区溢出之类的错误。这种方法可用于一般要求不太高的场合。除了上述方法外，还可以采用间接方式发送中文字符串。
在发送端将汉字或字符转换为机器内码或区位码数据数组，然后将转换后的数据发送到串口，在接收端接收到数据后，按照相反的顺序将得到的数据转换为相应的汉字或字符。在转换过程中，要用到位运算，如取得汉字的内码后需要将高字节和低字节分开，而VB 5.0/6.0中并没有提供此类函数，以下是求整数高、低字节的函数。
           Public Function HiByte(a As Integer)
              Dim b As Integer
              b = a And &HFF00
              b = b / 256
              If b < 0 Then b = b + 256
              HiByte = b
           End Function
            
           Public Function LowByte(a As Integer)
              Dim b As Integer
              b = a And &HFF
              LowByte = b
           End Function
3.4如何在通信过程中进行延时
在某些通信过程中，常常需要在发送完一组数据后进行一段延时，以等待对方处理上组数据，以下是延时函数代码。
          Public Sub Delay(PauseTime As Single)
              Dim Start
                           Start = Timer
              '设定开始时间
Do While Timer < Start + PauseTime
DoEvents
              Loop
          End Sub
4.结束语
随着计算机应用领域的不断扩展，计算机之间的远程通信用得也越来越广泛。作为RAD开发工具代表的Visual Basic同样提供了一系列标准通信命令的接口，它允许建立串口连接，可以连接到其他通信设备（如Modem）、还可以发送命令、进行数据交换以及监视和响应在通信过程中可能发生的各种错误和事件等，可以满足通常情况下的串口通信需求。如果在实际应用过程中，能够很好的掌握MSComm控件的特性，灵活变通，就可以达到安全、稳定、高效通信的目的。

【参考文献】
    1、周轶峰，杨建新，《Visual Basic 6.0 实用编程技术》，
       中国水利水电出版社，1999
    2、王建新，陈一飞等译，《Visual Basic 6.0 开发人员指南》，机械工业出版社，1999

上一页  [1] [2]