Foxtable(狐表)用户栏目专家坐堂 → 请教串口问题


  共有4823人关注过本帖树形打印复制链接

主题:请教串口问题

帅哥哟,离线,有人找我吗?
Bin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/11/27 8:29:00 [显示全部帖子]

出现什么错误?

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/11/27 9:22:00 [显示全部帖子]

.
图片点击可在新窗口打开查看此主题相关图片如下:上传图片请参考这里.gif
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/11/27 9:24:00 [显示全部帖子]

没发现你有声明 buffer  这个变量啊? 而且这是一个类型名称吧,也不能用它来命名的.

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/11/27 10:07:00 [显示全部帖子]

InStr(string1,string2) 
返回字符串string2在字符串string1中第一次出现的位置

你这个用法不对吧

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/11/27 10:37:00 [显示全部帖子]

出现什么问题?

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/11/27 14:20:00 [显示全部帖子]

If s="ok" Then
Ports("COM1").Write("ATH0" & vbCrLf)

        Buff = ""

        这里加入弹出框调试一下看看 messagebox.show("进入到里IF条件")
        Ports("COM1").Write("ATD+'"& dh2 &"'" & vbCrLf)
    End If


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/11/28 10:20:00 [显示全部帖子]

也许  OK 还含有空格 你肉眼看不出来 

改为 If s.trim()="ok" Then 

或者
If s.Contains("ok") Then

看看 

 回到顶部