利用Visual Basic 实现无线通讯

时
comm1.Output = "*MACK" + Chr$(13) 发送清内存命令
Do 检测是否发送完毕
Loop Until comm1.OutBufferCount = 0
Call time_delay 适当延时
comm1.RTSEnable = False 置PTT为低
End If
If package_number > 1 Then 如果不是最后一包
comm1.Rthreshold = 1 启动OnComm准备接收下一包
timer6_wait.Enabled = True
End If
endsub: header_er = 1: comm1.InBufferCount = 0 ''''--empty inbuffer protect from bed data on the inbuffer
End Select
End Sub

五、 结论

根据我们实践工作的经验，在本项目中无线通讯和有线通讯的主要区别在于用MSCOMM控件的RTSEnable属性对无线Modem的PTT操作以及适当的延时，延时的长短和使用的计算机有关。在开发的过程中，把握好上述两条，设定一个合理的通信协议，选择合适的硬件是至关重要的。