串口数据的问题(可多给高分,急啊)

ddy0204 2004-10-18 09:13:58
我的串口MODE上电后就会向串口发送很多的字符:
System started!
Press 's' key continuously to enter configure program.
GPRS-1000T Configure Program:
Use the extended AT commands configure the
arguments needed

现在我想在出现“Press 's' key continuously to enter configure program.” 这一句后就向设备发送“S”,我应该怎么办啊?
...全文
185 13 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
ddy0204 2004-10-18
  • 打赏
  • 举报
回复
可是我接收的都是空的啊,就是ST = MSComm1.Input
,我断点调试了一下,ST是空的啊!是不是由于我设置了OnComm事件?我RThreshold设置为1。
starsoulxp 2004-10-18
  • 打赏
  • 举报
回复
http://www.icbaba.com/bbs/read.asp?id=29
starsoulxp 2004-10-18
  • 打赏
  • 举报
回复
http://www.weiw.com/article/list.asp?id=388
starsoulxp 2004-10-18
  • 打赏
  • 举报
回复
http://www.haiyun.net/computer/list.asp?id=27
starsoulxp 2004-10-18
  • 打赏
  • 举报
回复
http://www.programsalon.com/dl.asp?id=18262
starsoulxp 2004-10-18
  • 打赏
  • 举报
回复
http://www.pc173.com/info/1064.htm
tztz520 2004-10-18
  • 打赏
  • 举报
回复
Private Sub MSComm1_OnComm()
Dim ST As String
ST = MSComm1.Input
Select Case MSComm1.CommEvent
Case comEvReceive
If InStr(ST, "Press 's'") <> 0 Then
MSComm1.Output = "s" & vbcrlf
End If
end select
end sub
Wenking003 2004-10-18
  • 打赏
  • 举报
回复
这样试试:
定义全局变量
Dim ST as String

在load()中初始化
ST=""

原程序改为:
Private Sub MSComm1_OnComm()
Dim ST As String
Select Case MSComm1.CommEvent
Case comEvReceive
ST =ST + MSComm1.Input
If InStr(ST, "'s'") <> 0 Then
MSComm1.Output = "s" & vbcrlf
ST="" '(或者处理后再清空)
End If
end select
end sub
tztz520 2004-10-18
  • 打赏
  • 举报
回复
你打印出来的数据是什么?
ddy0204 2004-10-18
  • 打赏
  • 举报
回复
呵呵,我做了改动,就是你这样的, 但结果还是一样的!
a达哥a 2004-10-18
  • 打赏
  • 举报
回复
午夜逛街的程序段有点问题, 应该改为:

Private Sub MSComm1_OnComm()
Dim ST As String
Select Case MSComm1.CommEvent
Case comEvReceive
ST = MSComm1.Input
If InStr(ST, "Press 's'") <> 0 Then
MSComm1.Output = "s" & vbcrlf
End If
end select
end sub
jam021 2004-10-18
  • 打赏
  • 举报
回复
关注,帮你顶!
醉心编码 2004-10-18
  • 打赏
  • 举报
回复
Private Sub MSComm1_OnComm()
Dim ST As String
Select Case MSComm1.CommEvent
Case comEvReceive
If InStr(ST, "Press 's'") <> 0 Then
MSComm1.Output = "s" & vbcrlf
End If
end select
end sub

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧