在VB下实现无线通信的方法

的包尾0A,0D后退出
If overtime = True Then 如果超时非正常退出
overtime = False
comm1.RThreshold = 1 重新启动OnComm事件,等待接收下一包
timer6_wait.Enabled = True
GoTo endsub
End If


　　以下是接收数据正确以后的数据处理程序,包括解码和计算。


If package_number = 1 Then 如果接收数据正确,而且是最后一包
timer2_sample.Enabled = True 启动控制数传命令定时器
comm1.RTSEnable = True 置PTT为高
comm1.OutBufferCount = 0 清空输出缓冲区
Call time_delay
适当延时
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