以下为VB的发送接收程序:
Private SuBcmdSendàClick() 使用按钮控件
MSComm1. Output= txtSend. Text 将传送区内的字符串以Output属性送出
End Sub
Private SuBFormàLoad() 窗体的加载事件
MSComm1. PortOpeN= True 将通讯断口开启,通讯参数也可以在开启前先设定
MSComm1. RThreshold = Val (txtThreshold. Text) 设定引发接收事件的接收阈值,使程序一执行便开启通讯端口,将接收的阈值设定为阈值,设定文本框内的值。
End Sub
Private SuBMSComm1. OnComm() 通讯控件的OnComm事件。引发接收事件后,将字符收进来并放在接收的文本框中
SelectCase MSComm1. CommEvent 根据下面每一个case 语句处理每个事件和错误事件
Case comEvCD CD 线的状态发生变化
Case commEvReceive 收到Rthreshold # of
txtReceive. Text= txtReceive. Text+ Trim(MSComm1. Input)&vbCrLf
Case comEvSend 传输缓冲区有Sthreshold 个字符
End Select
End Sub
Private SuBtxtThreshold Change ( ) p阈值设定文本框的Change事件
MSComm1. Rthreshold = Val (txtThreshold. Text) p当设定的阈值变化时,实时改变通讯对象的属性
End Sub