扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:冯杰 来源:yesky 2007年10月15日
关键字:
Private Sub Command1_Click() If Text1.Text = "" Then List1.AddItem "发送缓冲区无数据" Exit Sub End If MSComm1.Output = Text1.Text End Sub Private Sub Command2_Click() Unload Me End Sub '主要进行串口的初始化 Private Sub Form_Load() '选择com1 MSComm1.CommPort = 1 '设置波特率为9.6kpbs,没有奇偶校验,8位数据位,1位结束位 MSComm1.Settings = "9600,N,8,1" '读取全部的输入缓冲区 MSComm1.InputLen = 0 '端口打开 MSComm1.PortOpen = True MSComm1.RThreshold = 10 MSComm1.SThreshold = 10 '以下就可以进行数据的发送了 End Sub '所有的通讯事件都可以激发MSComm1控件的OnComm事件 Private Sub MSComm1_OnComm() Select Case MSComm1.CommEvent Case comEvReceive '此处的代码可以进行当串口的接受缓冲区里有RThreshold个字符的处理 Case comEvSend '此处的代码可以进行当串口的发送缓冲区里有SThreshold个字符的处理 List1.AddItem "发送缓冲区有数据" End Select End Sub |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。