Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关闭串口


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

主题：关闭串口
帅哥哟，离线，有人找我吗？
lk15502
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：706 积分：4908 威望：0 精华：0 注册：2016/5/17 12:03:00 		关闭串口  发帖心情 Post By：2019/3/22 8:04:00 [只看该作者]

在窗口中有一个按钮-关闭串口；代码如下：
If e.Sender.Text = "关闭串口" Then
    Ports("com4").Close
    e.Sender.Text = "打开串口"
End If
If e.Sender.Text = "打开串口" Then
    Ports("com4").Open
    e.Sender.Text = "关闭串口"
End If
出现如下错误；请问老师什么原因？
.NET Framework 版本：2.0.50727.8800
Foxtable 版本：2018.10.9.1
错误所在事件：窗口,唛头打印,关闭串口,Click
详细错误信息：
给定关键字不在字典中。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110647 积分：563143 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/3/22 11:25:00 [只看该作者]

有"com4"这个串口吗，有的电脑最多只有com3

 回到顶部
帅哥哟，离线，有人找我吗？
lk15502
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：706 积分：4908 威望：0 精华：0 注册：2016/5/17 12:03:00 		  发帖心情 Post By：2019/3/22 11:29:00 [只看该作者]

有的，这是USB-RS232线，是这样的，可以确定
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/3/22 11:34:00 [只看该作者]

 

你没有执行，如 ports.add("COM4") 这样的代码吧？

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/3/22 11:35:00 [只看该作者]

使用前，必须先添加端口的

 

http://www.foxtable.com/webhelp/scr/1966.htm

 
 回到顶部
帅哥哟，离线，有人找我吗？
lk15502
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：706 积分：4908 威望：0 精华：0 注册：2016/5/17 12:03:00 		  发帖心情 Post By：2019/3/22 13:13:00 [只看该作者]

已经添加了

 回到顶部
帅哥哟，离线，有人找我吗？
lk15502
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：706 积分：4908 威望：0 精华：0 注册：2016/5/17 12:03:00 		  发帖心情 Post By：2019/3/22 14:33:00 [只看该作者]

是不是代码有什么问题，我改成这样也没有想要的变化：
Dim ck As WinForm.Button = e.Form.Controls("关闭串口")
If ck.Text = "关闭串口" Then
    ck.Text = "打开串口"
End If
If ck.Text = "打开串口" Then   
    ck.Text = "关闭串口"
End If
 回到顶部
帅哥哟，离线，有人找我吗？
lk15502
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：706 积分：4908 威望：0 精华：0 注册：2016/5/17 12:03:00 		  发帖心情 Post By：2019/3/22 14:48:00 [只看该作者]

有问题会陷入循环的，老师应该怎么写代码？？

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/3/22 14:52:00 [只看该作者]

改成

 

Dim ck As WinForm.Button = e.Form.Controls("关闭串口")
If ck.Text = "关闭串口" Then
    ck.Text = "打开串口"
ElseIf ck.Text = "打开串口" Then   
    ck.Text = "关闭串口"
End If


 
 回到顶部
帅哥哟，离线，有人找我吗？
lk15502
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：706 积分：4908 威望：0 精华：0 注册：2016/5/17 12:03:00 		  发帖心情 Post By：2019/3/22 14:56:00 [只看该作者]

按钮的标题是可以改了，关闭打开串口的操作，还是和原来一样报错？？

 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询