Private Sub Command1_Click()
MSComm1.OutBufferCount = 0 '...清空输出寄存器
MSComm1.Output = Text1.Text '...发送数据
End Sub
Private Sub Command2_Click()
MSComm1.PortOpen = False
Unload Me
End Sub
Private Sub Command3_Click()
ClearText
End Sub
Private Sub Form_Load()
ClearText
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1" '设置波特率为9.6kpbs,没有奇偶校验,8位数据位,1位结束位
MSComm1.InputLen = 0 '读取全部的输入缓冲区
MSComm1.PortOpen = True '端口打开
MSComm1.InputLen = 0 '设置Input一次从接收缓冲读取字节数为1
MSComm1.OutBufferCount = 0 '清空发送缓冲区
MSComm1.InBufferCount = 0 '清空接收缓冲区
MSComm1.RThreshold = 1 '设置接收一个字节就产生OnComm事件
MSComm1.SThreshold = 1
InBufferSize = 4096
OutBufferSize = 512
End Sub
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余1页未读,立即下载