Foxtable(狐表) → 用户栏目 → 专家坐堂 → 我想问：2020年1月12日更新 的版本 目前稳定吗？


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

主题：我想问：2020年1月12日更新 的版本 目前稳定吗？
帅哥哟，离线，有人找我吗？
xiaoqiwei
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：668 积分：8561 威望：0 精华：0 注册：2011/5/5 23:55:00 		我想问：2020年1月12日更新 的版本 目前稳定吗？  发帖心情 Post By：2020/1/17 0:44:00 [只看该作者]

我想问：2020年1月12日更新 的版本 目前稳定吗？

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


加好友 发短信
等级：六尾狐 帖子：1279 积分：7953 威望：0 精华：4 注册：2017/12/31 14:53:00 		  发帖心情 Post By：2020/1/17 8:31:00 [只看该作者]

我手上的几十个项目，还正常。或者说，我常用的代码，在本次升级里没被官方改动

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


加好友 发短信
等级：三尾狐 帖子：668 积分：8561 威望：0 精华：0 注册：2011/5/5 23:55:00 		  发帖心情 Post By：2020/1/17 12:07:00 [只看该作者]

那还好，谢谢
[此贴子已经被作者于2020/1/18 0:05:36编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
sloyy
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2193 积分：13908 威望：0 精华：2 注册：2012/2/25 10:59:00 		  发帖心情 Post By：2020/1/17 16:07:00 [只看该作者]

用到串口的话,暂不要升级,还存在bug.

 回到顶部
帅哥，在线噢！
狐狸爸爸
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2020/1/17 16:10:00 [只看该作者]

串口没有bug

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


加好友 发短信
等级：九尾狐 帖子：2193 积分：13908 威望：0 精华：2 注册：2012/2/25 10:59:00 		  发帖心情 Post By：2020/1/19 16:26:00 [只看该作者]

可能我表述不清楚,再描述一次:

'打开串口
try
Ports.Add("COM1")
With Ports("COM1")
    .Close()
    .Parity = Parity.None
    .Handshake = Handshake.None
    .StopBits = StopBits.One
    .BaudRate = 2400
    .DataBits = 8
    .ReadBufferSize() = 2048
    .WriteBufferSize() = 2048
    .Open
dkbz=True
End With
Catch ex As Exception
    dkbz=False
End Try
这段代码是复制帮助的代码,在一个项目使用了一年多,一直没问题.
从2019年12月20日升级新版本后,在没有串口的机子上运行,就会判断错误,弹出 "端口 com1 不存在的错误提示",然后陷入死循环.
在有串口的机子上,经常刚开机的时候会弹出"端口com1 已关闭" 的提示,同样陷入死循环,然后,重启电脑,就正常了.
现在一出这个端口已关闭的提示,我也只好让操作员重启一两次电脑,直到正常,.但大部分时间不会出错,很让人抓狂.
 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/19 16:50:00 [只看该作者]

Ports.Add("COM1")
Dim hasCom1 As Boolean
For Each sp As String In Ports.PortNames
    If sp = "COM1" Then
        hasCom1 = True
exit for
    End If
Next
If hasCom1
    With Ports("COM1")
        .Close()
        .Parity = Parity.None
        .Handshake = Handshake.None
        .StopBits = StopBits.One
        .BaudRate = 2400
        .DataBits = 8
        .ReadBufferSize() = 2048
        .WriteBufferSize() = 2048
        .Open
    End With
Else
    msgbox("没有com1")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
sloyy
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2193 积分：13908 威望：0 精华：2 注册：2012/2/25 10:59:00 		  发帖心情 Post By：2020/1/19 17:33:00 [只看该作者]

谢谢有点蓝大师,这段代码,经试验非常成功,端口判断,我已全部改用这段代码.

那是不是以后 
try  

Catch ex As Exception
    
End Try
这段代码不能用来判断串口状态了?
如果是这样,帮助文档对应的代码也要做相应修改,否则会误导后人. 
 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/19 17:35:00 [只看该作者]

try  Catch在有些地方还是以使用的。可能底层的一些改动导致串口不对外抛出异常，自己消化了，才出现这个问题。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询