2022年用VB开发PC与单片机通信的上位机程序 .pdf

《2022年用VB开发PC与单片机通信的上位机程序 .pdf》由会员分享，可在线阅读，更多相关《2022年用VB开发PC与单片机通信的上位机程序 .pdf（4页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、串口通信是MCU 跟 PC 通信经常用到的一种通信方式，做界面、写上位机程序的编程语言、编译环境有不少，诸如VB 、VC+，Delphi 、LABVIEW等等，不过无论黑猫还是白猫，能够抓到老鼠的就是好猫，用VB 无疑是最快速最简便的，实现的功能也足够强大，足以满足我们的基本需要了。 我最近用VB 写出了一个用于数据采集的串口上位机程序，实现数据的接收和实时绘图，这里和大家分享一下，让大家也体验一下单片机和PC 通信的乐趣。整个程序只需要不到30 行程序， 我将会给这30 行程序加上最为详备的注释，这样即使你从未使用VB 制作过上位机程序，也能照猫画虎的编写出属于自己的上位机程序。一，制定设计

2、思路首先，我们要制定一下自己的串口通讯协议，为了方便设计，通讯协议中将采用字符型数据（遵循 ASCII 字符集）进行传输，一共5 个字节数据，下位机按照从第一字节到第五字节的顺序以字符型形式发送数据，第一个字节是符号符，第二，三，四字节分别是百位，十位，和个位数字，第五个字节是结束符。通讯协议：注释： 1 ，符号符， +（2B）或（ 2D），表示数据的正负 2,3,4，百位，十位，和个位数字 5 ，结束符，用大写字母A（41）表示接着，我们就要明确设计思路了，这个程序的设计将采用Microsoft Visual Basic 6.0（以下简称 VB6.0 ）作为编译环境，运用串口通讯控件MSCo

3、mm ，通过计时器控件实现以查询方式编写的串口数据的接收和实时绘图。二，程序界面设计(1) 创建一个标准EXE 工程：启动 VB6.0 ， 在自动弹出的“新建工程”窗口中单击“标准EXE ”图标，然后单击“打开”按钮即可创建一个标准EXE 工程。将弹出的窗体的Caption 属性设置为串口通讯与实时绘图程序。attachment=1364699 (1) 添加串口通信控件MSComm ：VB 的串口通信控件MSComm 并不会主动出现在工具箱中，当我们需要MSComm 控件时，首先要把它加入工具箱中，选择“工程”菜单下的“部件.”子菜单，在弹出的“部件”对话框中，在“控件”选项卡属性中选中“Mi

4、crosoft Comm Control 6.0”， 单击“确定”按钮后，在工具箱中就出现了一个形似电话的图标，这就是 MSComm 控件，选择 MSComm 控件的图标，将它添加到适当位置，采用默认名称MSComm1 。attachment=1364697attachment=1364696 (1) 添加一个Timer 控件用于自动接收字符：选择Timer 控件的图标，将它添加到适当位置，采用默认名称Timer1 ，Interval 属性为 1，Enabled 属性为 False。(2) 添加两个文本框控件用于显示数据：选择TexrBox 控件的图标，将它添加到适当位置，采用默 认 名 称T

5、ext1与Text2 ， Text属 性 均 设 置 为 空 ， 设 置Text2的 属 性MultiLine=True ， ScrollBars=2-Vertical。Text1 用于显示最新的一组数据，Text2 用于储存之前的所有数据。(3) 添加一个图形控件PictureBox 用于实时绘图：选择PictureBox 控件的图标，将它添加到适当位置，拉伸成适当大小，采用默认名称Picture1，设置 BackColor 属性为白色。1 符号位2 百位 3 十位4 个位名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精

6、心整理 - - - - - - - 第 1 页，共 4 页 - - - - - - - - - (4) 添加一个按钮控件CommandButton 用于打开串口：选择CommandButton 控件的图标，将它添加到适当位置，采用默认名称Command1，设置 Caption 属性为打开串口。(5) 添加一个Shape 控件用于显示串口状态：选择Shape 控件的图标，将它添加到适当位置，采用默认名称Shape1，设置 FillStyle=0-Solid ，Shape=3-Circle ，FillColor设置为红色。(8) 设置完成的程序窗体界面：attachment=1364695 三，程

7、序代码编写(1) 双击程序中的按钮控件，在弹出的代码窗口中键入以下程序Dim x As Integer定义变量x 用于记录数据个数Dim y0 As Integer定义变量y0 用于记录上一次数据Dim y As Integer定义变量y 用于记录当前数据Private Sub Command1_Click()下面的程序是在点击打开串口按钮后时要运行的 MSComm1.CommPort = 4 设置通信端口号为COM4 ，这个要根据自己所使用的串口而定 MSComm1.Settings = 4800,n,8,1 设置串口参数，表示传输速率为4800bit/s ，没有奇偶校验位，8 位数据位，

8、1 位停止位这里串口上位机的设置一定要和下位机一致MSComm1.InputMode = 0 接收文本型数据，如果设置为1 则以二进制的形式取回传入的数据MSComm1.PortOpen = True 打开通信端口4True即为打开端口，设置为False 则为关上端口如果 CommPort 属性设置为一个非法端口，则会产生错误68（设备无效）Picture1.Scale (0, 1000)-(200, -1000) 定义 Picture1 的坐标系，左上角坐标值(0, 1000) 到右下角坐标值(200, -1000)Picture1.Line (0, 0)-(200, 0), RGB(0,

9、0, 255) 用 RGB 颜色（ 0,0,255）画出 X 轴Shape1.FillColor=RGB(0,255,0) 将指示灯调整为绿色Timer1.Enabled = True 启动 Timer1 定时器End Sub (2) 双击程序中的Timer控件的图标，在弹出的代码窗口中键入以下程序Private Sub Timer1_Timer() Dim buf$定义一个字符串变量 buf = Trim(MSComm1.Input) 将串口接收缓冲区内的数据读入buf 变量中 If Len(buf) 0 And x = 200 Then判断缓冲区内是否存在数据与数据个数有没有到达最大值 T

10、ext1.Text = Text1.Text + bufText1中的数据等于原有的数据加上新接收的数据 End If Ifbuf = A And x = 200 Then 如果接收到结束符“A”且数据个数没有到达最大值y = Val(Text1.Text) 用 Val 函数将 Text1 中的内容转换为数字然后赋值给y，正负的符号也会一同转换Picture1.PSet (x, y), RGB(255, 0, 0) 在 Picture1 上(x， y)位置用 RGB 颜色（ 255，0 ,0）颜色画点名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - -

11、- - - - - 名师精心整理 - - - - - - - 第 2 页，共 4 页 - - - - - - - - - Picture1.Line (x - 1, y0)-(x, y), RGB(255, 0, 0) 在上次数据 (x-1 ， y1)和这次数据（x，y)之间用 RGB 颜色（ 255，0 ,0）颜色连线x = x + 1 数据个数加1y0 = y 把 y 值赋给用于记录上一个数据的变量y1Text2.Text = Text2.Text & x & &Str(y) &Chr(13) &Chr(10) Text2中的数据等于原先的数据加上数据编号加上数据的值以及Chr(13) &

12、Chr(10) 组成的换行符Text2.SetFocus Text2.SelStart = Len(Text2.Text) 设置垂直滚动条自动滚动Text1.Text = 清空 Text1 控件中的数据End If End Sub 四，调试运行我采用 STC89C52 作为下位机，采用11.0592M 的晶振，通过串口发送数据进行测试。下面就以Keil uVision3 作为编译环境，用C 语言编写一个小例子用于测试，读者可以把这些做成一个模块加入到自己的程序中用于实验。首先加载头文件：#include 定义一个字符串数组：unsigned code tab10=0,1,2,3,4,5,6,7

13、,8,9,; 然 后 我 们 需 要 一 个 初 始 化 串 口 通 信 的 子 函 数 ， 这 里 的 设 置 要 和 上 位 机 一 致 ： void StartUART( void ) / 波特率 4800bit/s ，无奇偶校验位，8 位数据位， 1 位停止位 SCON = 0 x50; TMOD = 0 x20; TH1 = 0 xFA; TL1 = 0 xFA; PCON = 0 x00; TR1 = 1; 因为我们的上位机用Timer 控件用于自动接收字符，所以下位机还需要个延时函数，用于在每次传输数据后稍微延时一下，否则会出现丢失数据的现象：void DELAY_MS (uns

14、igned int a) /毫秒级延时函数 unsigned inti; while( -a != 0) for(i = 0; i 125; i+); 这样就可以从通过串口进行测试了(以发送 123 为例 )：void main(void) StartUART(); /初始化串口名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 4 页 - - - - - - - - - SBUF=0X2B; / 发送字符“ +” DELAY_MS(20); /延时 20ms SBUF=ta

15、b1; / 发送百位的“1” DELAY_MS(20); SBUF=tab2; / 发送十位的“2” DELAY_MS(20); SBUF=tab3; /发送个位的“3” DELAY_MS(20); SBUF=0X41; /发送字符“A”DELAY_MS(20); 在向单片机烧入程序，连接好串口后就可以进行测试了。测试过程： 1，在 VB6.0 环境中，单击运行，然后点击启动2，单击“打开串口”按钮打开串口，如果正常打开串口的话指示灯会变成绿色。3 ，接通下位机电源，这时就可以看到从下位机不断传来的数据123 以及实时绘图的画面。attachment=1364698 至此，一个串口通讯与实时绘

16、图的程序就开发完成了，在VB6.0中使用文件菜单下的生成工程1.exe.就可以生成 .exe 文件了，这样就能更方便使用。这篇文章只是个小例子，介绍了使用VB6.0开发串口上位机的过程，读者只需要稍微修改下程序，就可以适应自己的不同要求，例如通过给下位机送来的数据加上不同的结束符，从而使用不同的颜色实时绘图，或者将接收到的数据乘以0.1，将原来的百位，十位，个位，变成十位，个位，小数位等等。希望这篇文章能够抛砖引玉，让大家能够发挥自己的想象力，设计出更加友好的界面，为自己的上位机软件添加强大的功能。attachment=1373614名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 4 页 - - - - - - - - -