VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
楼主: zdingyun

[原创] 串口调试软件(改进版见5楼)

  [复制链接]
发表于 2010-5-23 14:08:59 | 显示全部楼层
hao 好东东……拿走!
回复 支持 反对

使用道具 举报

发表于 2010-6-5 18:13:35 | 显示全部楼层
问题解决!谢谢zdingyun!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-6-18 15:11:24 | 显示全部楼层
本帖最后由 zdingyun 于 2010-11-19 13:49 编辑

发现代码中的BUG,COM号不能修改,特修改工程上传:


修改代码如下:

  1. Private Sub cmdOpen_Click() '打开关闭端口
  2.     On Error GoTo Userr
  3.     If List1 <> "" And List2 <> "" And List3 <> "" And List3 <> "" And List3 <> "" Then
  4.         MSComm1.Settings = List2 & "," & List3 & "," & List5 & "," & List4
  5.         If openFlag Then
  6.             cmdOpen.Caption = "打开串口"
  7.             MSComm1.PortOpen = False '打开端口
  8.             Shape1.FillColor = vbRed
  9.         Else
  10.             MSComm1.CommPort = Val(List1)
  11.             MSComm1.PortOpen = True
  12.             cmdOpen.Caption = "关闭串口"
  13.             Shape1.FillColor = vbGreen
  14.         End If
  15.     End If
  16.     openFlag = Not openFlag
  17.     Exit Sub
  18. Userr:
  19.     MsgBox ("Err号" & Err.Number & " 串口号错误或已打开!")
  20. End Sub
复制代码


COMM调试.rar (4.12 KB, 下载次数: 1859)
回复 支持 反对

使用道具 举报

发表于 2010-6-22 16:48:23 | 显示全部楼层
好东西   谢谢分享
回复 支持 反对

使用道具 举报

发表于 2010-6-26 19:56:58 | 显示全部楼层
还可以,学习下!
回复 支持 反对

使用道具 举报

发表于 2010-8-5 00:23:33 | 显示全部楼层
找了几天,今天终于找到了
回复 支持 反对

使用道具 举报

发表于 2010-8-5 04:42:17 | 显示全部楼层
不错,顶
回复 支持 反对

使用道具 举报

发表于 2010-8-5 04:42:45 | 显示全部楼层
不错,顶不错,顶
回复 支持 反对

使用道具 举报

发表于 2010-8-5 16:46:57 | 显示全部楼层
回复 支持 反对

使用道具 举报

发表于 2010-8-22 18:11:35 | 显示全部楼层
多谢楼主的大公无私
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-5-22 22:54

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表