串口助手兼远程控制

1、 串口助手兼远程控制助手摘要：本设计是通过Microsoft Visual Basic编写的串口程序，这是由微软开发的一款编程具。VB相对VC来说有很大的相似之处，在编程方面先对比较简单，Visual Basic 是极具特色和功能强大的软件，主要表现在：所见所得的界面设计，基于对象的设计方法，极短的软件开发周期，较易维护的生成代码。它不但保留了原先Basic语言的全部功能，而且还增加了面向对象程序设计功能。它不仅可以方便快捷地编制适用于数据处理、多媒体等方面的程序，而且利用ActiveX控件MSComm还能十分方便地开发出使用计算机串口的计算机通信程序。本实验涉及利用串口进行和下位机通信并远程

2、控制电脑自动关机并显示。0绪论：开发步骤：1绘制用户界面2在完成了界面的绘制后，就需要对部分的控件的初始属性进行设置。并输入相应的程序代码。3调试。在编制过程中难免会有些疏漏和一些没有考虑的情况，而且根据项目中硬件软件的具体情况也要对上位机进行一些调整，是整个系统达到最佳状态 一、首先我们先来设置用户交互界面该上位机大致分为下边边的功能部分与上边的可视化部分。各部分的大小用鼠标拖拽到合适位置即可，方便用户自由设定功能部分有：端口选择，用以选择要通信的端口进行串口通信，波特率初始化默认为9600，打开与关闭端口，以及取消关机等功能。可视化部分有：接收到的数据，发送给下位机的数据和系统当前时间1最

3、上边的三个白色区域分别为为三个Text Box（文本框），分别用来显示接收数据，发送的数据，和系统当前时间如图2所示 （图2）2空白区域的下边和右边是三个Lable框用来对文本框内容的介绍如图三所示 （图3） 3接下来的是按键开关的选择如图四所示 （图4）4串口的选择输入5端口打开指示灯的选择6定时器的选择（定时器的作用用来隔一段时间采集一次系统时间并判断）7串口控件的选择（注意：一般刚装上VB，这个通用工具箱里面并没有串口控件，需要用户自己去添加）首先鼠标右键单击工具箱空白处然后选择部件选项鼠标左键单击进入则进入下面的界面拉动滚动条在箭头指的控件的单击选中，然后单击应用和确定，这个串口控件就

4、添加到了工具箱里面然后就把该串口控件放置到用户界面区域内二、软件设置完成了我们的用户交互界面，现在我们就开始配置我们刚刚添加模块的属性了1单击交互界面的空白框，可以看到右侧出现相应的属性界面，在这里我们只需要修改它的名称即可 。例如：Textreceive（接收数据文本框）第二个白色区域也就只需修改名字即可名字修改为Textsend（表示这是发送数据的现实区域）第三个这个白色区域（文本框）的名字我就没改了2我们把文本属性设置完了但我们并不知道这些文本是用来干嘛的，现在我们就给这些文本框贴上标签如下（我们在Caption:内输入我们想表达的内容就可以了）3接下来就是比较重要的部分了（不仅要设置相

5、应的属性还要设置相应的程序了）下面就看我一步一步的操作了双击该模块也就是说当我们要发送数据时，先把数据写在Textsend文本框里，然后点击发送数据按钮就可以了接下来我们就开始配置打开串口的配置这里也就是我们把串口号Combo1的文本框中，然后我们按一下打开串口按钮就可以把串口打开了接着我们就设置关闭串口取消关机设置在这里调用系统取消关机指令，当然还可以调用其它指令设置定时器属性定时器不断地更新系统时间，显示在Text1中，并和Textreceive的数据进行比较一旦数据一样那么就等待60秒电脑就关机了3、 以上为软件设置过程现在就开始调试了在调试的过程中我们加上了软件初始化这段程序，是软件更

6、加完美整体设计的用户界面和程序调试成功：打开串口的界面关机和串口通信调试成功为了方便学习把全部程序附在这里方便大家学习Private Sub close_Click()MSComm1.PortOpen = False 关闭串口Picture1.BackColor = 255 图片背景颜色为红色End SubPrivate Sub Command1_Click()Shell cmd.exe /c shutdown -a 取消关机End SubPrivate Sub Form_Load()Picture1.BackColor = 255 刚打开软件时,软件初始化的图片背景色为红色MSComm1.P

7、ortOpen = FalseEnd SubPrivate Sub MSComm1_OnComm()Dim rec As String 定义局部变量recSelect Case MSComm1.CommEvent 串口中断事件Case comEvReceive 串口接收中断rec = MSComm1.Input 把串口接收到的数据赋值给recTextreceive.Text = rec 把rec显示在Textreceive的文本框中MSComm1.InBufferCount = 0Case ElseEnd SelectEnd SubPrivate Sub open_Click()MSComm1.CommPort = Combo1.Text 选择的串口号MSComm1.PortOpen = True 串口打开打开串口时用Picture1.BackColor = &HFF00& 图片背景颜色设为绿色表示串口已经打开End SubPrivate Sub send_Click()Dim reg As String 设置字符串变量regMSComm1.OutBufferCount = 0 清空发送缓冲区里面的数据reg = Textsend.Text 把Textsend文本框里面的数据赋值给 regMSComm1.Output = reg 把字符串通过串口发送出去End SubPri