我有这样的一个串口接收数据程序Private Sub Form_Load()
'MSComm1.Settings = BaudRate & ",n,8,1"
MSComm1.InBufferSize = 1024 '设置接收缓冲区的大小
MSComm1.InputLen = 0 '设置或返回,从接收缓冲区读取的字符数,0时(默认),读取缓冲区全部字符
MSComm1.RThreshold = 1 '接收区的“门阀值”,0时(默认),不产生OnComm事件;1时,接收缓冲区每接收到一个字符,都会产生OnComm事件
MSComm1.SThreshold = 1 '发送区的“门阀值”,0时(默认),不产生OnComm事件;1时,发送缓冲区每接收到一个字符,都会产生OnComm事件
MSComm1.InBufferCount = 0
MSComm1.PortOpen = True '通讯时,必须打开串口,应用程序完成时,MSComm控件自动关闭串口
MSComm1.InputMode = comInputModeText
Option1.Value = True
Option3.Value = True
Text1.Text = ""
End Sub
Private Sub Command2_Click()
If Option1.Value Then
MSComm1.CommPort = 1 '设置或返回端口号,值为1到16的整数,PC通常可以有16个串口
MSComm1.Settings = "2400,n,8,1" '设置并返回通讯参数,值为字符串String行
End SubPrivate Sub mscomm1_oncomm()
Dim number As Integer
'确认串口事件
Select Case MSComm1.CommEvent
Case comEvReceive '2 :收到RThreshold个字符,持续产生事件,直到Input属性删除Input缓冲区的数据
Text1.Text = Text1.Text & MSComm1.Input & vbCrLf
Text1.SelStart = Len(Text1.Text)
End Select
End Sub
我的程序在单击Command2 时是 进入等待接收
现在有个问题是 我想当一有数据进入时 把 Command2 的 caption 改为 数据传送中
当数据传送完毕时把command2.caption 改为 数据传送完毕 不知要判断那个参数才能实现 请高手帮帮忙 thank you
'MSComm1.Settings = BaudRate & ",n,8,1"
MSComm1.InBufferSize = 1024 '设置接收缓冲区的大小
MSComm1.InputLen = 0 '设置或返回,从接收缓冲区读取的字符数,0时(默认),读取缓冲区全部字符
MSComm1.RThreshold = 1 '接收区的“门阀值”,0时(默认),不产生OnComm事件;1时,接收缓冲区每接收到一个字符,都会产生OnComm事件
MSComm1.SThreshold = 1 '发送区的“门阀值”,0时(默认),不产生OnComm事件;1时,发送缓冲区每接收到一个字符,都会产生OnComm事件
MSComm1.InBufferCount = 0
MSComm1.PortOpen = True '通讯时,必须打开串口,应用程序完成时,MSComm控件自动关闭串口
MSComm1.InputMode = comInputModeText
Option1.Value = True
Option3.Value = True
Text1.Text = ""
End Sub
Private Sub Command2_Click()
If Option1.Value Then
MSComm1.CommPort = 1 '设置或返回端口号,值为1到16的整数,PC通常可以有16个串口
MSComm1.Settings = "2400,n,8,1" '设置并返回通讯参数,值为字符串String行
End SubPrivate Sub mscomm1_oncomm()
Dim number As Integer
'确认串口事件
Select Case MSComm1.CommEvent
Case comEvReceive '2 :收到RThreshold个字符,持续产生事件,直到Input属性删除Input缓冲区的数据
Text1.Text = Text1.Text & MSComm1.Input & vbCrLf
Text1.SelStart = Len(Text1.Text)
End Select
End Sub
我的程序在单击Command2 时是 进入等待接收
现在有个问题是 我想当一有数据进入时 把 Command2 的 caption 改为 数据传送中
当数据传送完毕时把command2.caption 改为 数据传送完毕 不知要判断那个参数才能实现 请高手帮帮忙 thank you
解决方案 »
- 怎样把数字中的横杠去掉?
- VB6中Form.show中的Owner是什么类型?
- vb中日期控件是哪个,忘了,第一个说的给分
- 如何用VB控制用户用IE浏览的所有网页及控制IE的其它功能?
- 求求各位大哥大姐:我的VB不能装载DBGrid,怎么办?要下载吗?方法?
- 如何用代码实现字段绑定(在线等后)
- VB统计文件多少个字符
- 水晶报表中定义的参数字段,如何在水晶报表预览前,将实际的值传递给它们
- 我调用一个C写的DLL它返回的类型是unsigned long我在VB中用long接收过来可有问题?……
- 这绝对是一个超级怪的问题!!!!!◎◇◆□
- 自学VB,请教两个白的问题,首次来这里,多多指教啊!
- 如何用vb实现 伪造一个站点的 cookie
Send event.Const comEvEOF = 7
End of file.
Label3.Caption = "数据传送完毕 !"
End Select
这样行吗