打造属于自己的简易串口调试助手

  • tianmingnm
  • LV3工程师
  • |      2014-08-04 19:51:24
  • 浏览量 10507
  • 回复:36

之前都是在网上找各种串口工具,有时候下载下来的串口工具提供的串口号中没有符合自己电脑的,这就造成了纠结,现出教程教你用最简单的方法打造一个串口工具,以后有时间会陆续出可以画图的串口工具

阅读须知:本教程不需要以前学过VB,只要会写程序能看懂流程就足够了

第一步:

安装VB6.0,下载安装过程自行解决,个人感觉凡好的书好的教程开头都不会花上二三十页教你如何安装一个软件,但是,我大天朝的教程书似乎特别喜欢教你如何下载安装一个软件,讲的甚至比关键的知识点还详细

第二步:打开VB6.0,就是这货打造属于自己的简易串口调试助手,打开后会蹦出来这么个页面打造属于自己的简易串口调试助手

本菜的VB6.0是英文版本的,小伙伴们根据位置选择就好,按上图选择,然后点击打开,这样就建好了一个VB程序最基本的窗口


第三步:

打造属于自己的简易串口调试助手点击图中圈出来的位置,在蹦出来的窗口中按下图操作

打造属于自己的简易串口调试助手

勾出来图中圈住的东东,点击确定(有些同学的VB6.0由于过于精简,可能找不到改选项,不要慌,解决方法和用到的工具在附件中给出,有些同学可能点击了确定之后,会蹦出来一个啥啥register的报错框框,不要慌,重新勾选一下点击确定就不会报错了,如果还是不行就运行一下附件中提供的register.reg,一切问题就解决了)

第四步:

进行完第三步之后同学们会发现窗口左边位置多了这么个东东打造属于自己的简易串口调试助手,点击一下圈出来的位置,放到窗口中的任何位置

第五步:

分别在窗口中放置如下控件,打造属于自己的简易串口调试助手,添加完效果如下图,

打造属于自己的简易串口调试助手

第六步:

为了教程的简便,本菜把配置都放在了程序里面,点击窗口中没有控件的任何位置,并在蹦出来的窗口中添加如下代码


Private Sub Form_Load()
    \'更改按钮上面显示的字符
    Command1.Caption = "发送"
    Command2.Caption = "打开"
    Command1.Enabled = False  \'使发送按钮无效
    
    
    \'两个文本框清空
    Text1.Text = ""
    Text2.Text = ""
    
    \'串口选择加入串口号
    Combo1.Clear
    For i = 1 To 20
        Combo1.AddItem "com " & i
    Next
    Combo1.Text = "com 1"
    
    \'波特率选择加入波特率
    Combo2.Clear
    Combo2.AddItem "110"
    Combo2.AddItem "300"
    Combo2.AddItem "600"
    Combo2.AddItem "1200"
    Combo2.AddItem "2400"
    Combo2.AddItem "9600"
    Combo2.AddItem "14400"
    Combo2.AddItem "19200"
    Combo2.AddItem "28800"
    Combo2.AddItem "38400"
    Combo2.AddItem "56000"
    Combo2.AddItem "115200"
    Combo2.AddItem "128000"
    Combo2.AddItem "256000"
    Combo2.Text = "115200"
    
    MSComm1.InputMode = comInputModeText    \'设置串口的输入方式为文本输入
    MSComm1.RThreshold = 1 \'每接收到一个字符就产生一个接收事件
    
    
    \'默认无校验位,八个数据位,一个停止位
End Sub


第八步:

双击按钮Command1,在蹦出来的窗口中添加如下代码

Private Sub Command1_Click()
    MSComm1.Output = Text2.Text  \'将文本框Text2中的字符串发送出去到单片机或者其他的一些串口工具
End Sub

第九步:

双击最开始添加的那个像个电话一样的控件,在蹦出来的窗口中添加如下代码:

Private Sub MSComm1_OnComm()
    \'检测串口事件,并接收数据
    Select Case MSComm1.CommEvent
        Case comEvCD
        Case comEvCTS
        Case comEvDSR
        Case comEvReceive   \'接收事件
            Text1.Text = Text1.Text & MSComm1.Input
        Case comEvSend
    End Select
End Sub


第十步:

单击控件Text1,在右侧的属性框中按如下设置,

打造属于自己的简易串口调试助手

Text2进行相同的设置


最后一步:

点击打造属于自己的简易串口调试助手

就可运行我们完成的串口工具了

如果想让别人用我们做的工具,点击如下位置即可

打造属于自己的简易串口调试助手

这样会在工程文件夹下生成一个后缀为exe的文件,直接点击该文件即可使用

这样我们的串口工具就完成了,终于可以愉快的装逼了,本菜用STM32写了个串口程序测试了一下,效果如下

打造属于自己的简易串口调试助手


本菜的工程放在附件中,仅供参考,如果本菜有时间还会再写一个如何根据收到的数据绘制曲线和图形的教程,如果本菜足够有时间还会写一个TCP/IP通信的上位机教程,即兴编程,陆续教程仅在本菜有空的情况下进行




  • 0
  • 收藏
  • 举报
  • 分享
我来回复

登录后可评论,请 登录注册

所有回答 数量:32
kajwrb 2016-12-09
为什么不直接用网上的?
0   回复
举报
发布
lanshou 2016-12-06
希望继续努力 加油 顶起
0   回复
举报
发布
lilei 2016-12-06
厉害呀 收藏了
0   回复
举报
发布
hjqhhh 2016-05-23
告诉我只有端口打开,操作才有效,什么意思
0   回复
举报
发布
wspytu 2015-11-16
谢谢分享~~~
0   回复
举报
发布
pwdzsj 2015-11-10
不错不错
0   回复
举报
发布
wxaispl 2015-08-10
都是强人,收藏了
0   回复
举报
发布
辰Cool 2015-08-09
支持支持
0   回复
举报
发布
马踏匈奴 2015-08-08
不错顶一个
0   回复
举报
发布
有心 2014-08-20
学习了
0   回复
举报
发布
查看更多
x
收藏成功!点击 我的收藏 查看收藏的全部帖子