VB实现上位机数字电压表.doc

《综合设计性实验》 论文 基于PC的智能数字电压表设计 信息与通信学院 电子信息工程 0901130443 农 聪 王守华 2012-10-31 摘 要 在实际的数据采集系统中，常常采用PC机作为系统的上位机，控制整个采集过程，完成命令的发送接收和数据的存储处理，而下位机是以单片机为核心的现场数据采集装置，完成现场数据的采集和上传。上下位机之间通过RS232总线连接，实现数据和命令的传送与接收。上位机中，采用在Windows环境下，通过VB中的MSComm控件实现软件编程；下位机则采用了可以直接控制硬件整个系统将单片机小巧、灵活、可靠的优点结合，应用了二者的长处，从而实现了微机与单片机的通信。 以下主要介绍PC机通信程序设计部分，即上位机的操作显示界面采用进行可视化编程。 2、在项目中插入MSComm控件：在窗体上添加界面的控件，在Form1窗体上添加以下控件：标签Label11：用于显示文字“测量电压”；标签Labe14：用于显示文字“基于PC的数字电压表设计”；标签Labe16：用于显示文字“制作人：······”；标签Labe17：用于显示文字“量程：······”；标签Labe18：用于显示文字“精度：······”；标签Labe19：用于显示文字“误差：······”；文本框Text1：用于显示计算结果(平方数)。命令按钮Command1：用于计算输入数的平方，并把结果显示在文本框Text1中；命令按钮Command2：用于结束应用程序的运行；Frame1：用于串口设定显示；Combo1：用于选择串口；Combo3：用于波特率选择。 3、设置对象属性：在“属性窗口”中进行设置以上对象的属性。 4、添加串口事件消息处理函数MSComm1_OnComm()：双击窗口体上“Text1”文本框添加MSComm1_OnComm()函数，这个函数是用来处理串口消息事件的，如每当串口接收到数据，就会产生一个串口接收数据缓冲区中有字符的消息事件，我们刚才添加的函数就会执行，我们在MSComm1_OnComm()函数加入相应的处理代码就能实现自已想要的功能了。本设计在函数中加入如下代码： Private Sub MSComm1_OnComm() Dim INBYTE() As Byte Dim BUF$, I% //声明变量 Dim NVALUE As Variant Dim DY As Variant Select Case MSComm1.CommEvent //选择测量与停止 Case comEvReceive BUF = //保存数据 MSComm1.InputLen = 0 INBYTE = MSComm1.Input For I = LBound(INBYTE) To UBound(INBYTE) BUF = BUF + Hex(INBYTE(I)) + Chr(32) //数据转换 Next I NVALUE = CLng(h + BUF) DY = NVALUE * 0.0196 Text1.Text = DY MSComm1.InBufferCount = 0 End Select End Sub 5、选择串口和设置串口参数： 可以选择任意的串口和需要的时候打开或关闭串口，在窗体中双击“Combo1”添加Combo1_Change()函数，在窗体中双击“Combo3”添加函数Combo3_Change()，并加入如下代码： Combo1_Change() Select Case Combo1.SelText Case COM1 MSComm1.CommPort = 1 使用COM1 口 Case COM2 MSComm1.CommPort = 2 Case COM3 MSComm1.CommPort = 3 Case COM4 MSComm1.CommPort = 4 Case COM5 MSComm1.CommPort = 5 Case COM6 MSComm1.CommPort = 6 Case COM7 MSComm1.CommPort = 7 Case COM8 MSComm1.CommPort = 8 End Select Text1.Text = Combo3_Change() Select Case Combo3.SelTe