VB传送定长字符串，数据接收处理相对简单。但在发送实时数据时，若将数据转换成定长字符串，这样会大大降低传输效率。在接收端，通知程序从输入缓冲区中取字符有两种方法：一是用轮询方法循环判断InBufferCount是否为0；另外就是利用Rthreshold属性触发“OnComm”事件及“CommEvent”属性中EV－RECEIVE事件。当Rthreshold的值不为0时，允许产生EV－RECEIVE事件。该属性设置和返回在通信控件设定CommEvent特性为接收和产生OnComm事件之前要接收的字符数。VB传送变长字符串时，接收端的Rthreshold值要作相应的改变，以确保接收数据及时准确。
下位机定时发送字符串“strin3＄ΚFormat＄（Len（strin1＄），″0000″）＆chr＄（8）＆strin2＄”。strin1＄为当前字符串，strin2＄为上一字符串。上位机根据接收strin3＄中Len（strin1＄），相应改变RthresholdΚLen（strin1＄）＋4。这样，通过提前发送字符串长度，改变Rthreshold值可实现发送变长数据。
Windows串行通信驱动程序的事件驱动特性仍有不稳定的缺陷。如InputLenΚ0时，有可能取出不完整的数据。为保证可靠，采取降低处理速率的方法，保证下位机发送的数据流完整地进入输入缓冲区。设InputLenΚ1，即每次从缓冲区中取一个字符。也可采用轮询方法，定时检测输入缓冲区。下位机定时发送数据：
Sub Timer1－Timer（）
If comm1．CDHoldingΙΛcdThen
str1＄－text1（i）．Text
strin2＄Κstrin1＄′上一字符串
strin1＄Κstr1＄′当前字符串
strin3＄ΚFormat＄（Len（strin1＄），″0000″）＆chr＄（8）＆strin2＄
′传送当前字符串长度，以及上一字符串内容
com m1．OutPutΚstrin3＄
Do DoEventsLoopUntilcomm1．OutBufferCountΚ0
Else
Timer1．EnabledΚ0
End If
End Sub
上位机检测CD状态，判断是否连通、并接收处理数据。
Sub Comm1－OnComm（）
Select Case comm1．CommEvent
Case5 ′MSCOMM－EV－CD检测CD状态，判断是否连通
comm1．InBufferCountΚ0′清输入缓冲区
comm1．RThresholdΚ4′当输入缓冲区中有五个字符，
Case2′MSCOMM－EV－RECEIVE产生EV－RECEIVE事件，接收处理数据
Do DoEvents
Ifcomm1．InBufferCountThen′循环从缓冲区中取数据
str1＄Κstr1＄＋comm1．Input
Else
Exit Do
End If
Loop
len2Κ1en1′当前字符串长度
len1ΚVa1（Left＄（str1＄，5））′即将发送的字符串长度
comm1．RThresholdΚlen1＋4
strin＄ΚRight＄（str1＄，len2）′数据处理
……
End Select
str1＄Κ″″
End Sub
4．根据设置的AT命令“＆D2”，当置DTR信号为低时，Modem挂机进入命令状态。也可通过串口输出““＋＋＋ATH”＋chr＄（13）”字符串挂机。
Sub Hang－click（）
If comm1．CDHoldingΙΛcdThen′检测CD，判断是否挂机
comm1．DTRenableΚ0
comm1．DTRenableΚ－1′置DTR信号为高，为下一次通信准备
End If
End Sub
5．退出程序时，一定要关闭串口
Sub Exitcomm（）
comm1．PortOpenΚfalse
End
End Sub
四、Windows通信机制和VB3．0通信控件潜在缺陷
在通信软件编制过程中，我们发现Windows下通信机制采用的“事件驱动”在实际运行中不稳定。如在文件传输过程中，误码和数据丢失的情况时有发生；若串口波特率过高，会产生无法通信或在通信过程中随机挂机的情况。这主要是由于Windows本身通信机制和通信线路介质及质量的影响。为保证数据传输稳定可靠，可采用通信协议如XModem－CRC或YModem。在MSCOMM．VBX通信控件中，Rthreshold属性值大小与输入缓冲区InBufferSize大小有关，当Rthreshold值较接近InBufferSize值时，有可能不产生EV－RECEIVE事件，为保证产生该事件，可将InBufferSize值取得较大。
2/2 首页 上一页 1 2 |
