⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 使用vb开发windows环境下的串行通信程序.htm

📁 使用VB开发Windows环境下的串行通信程序.files
💻 HTM
字号:
🔍 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0038)http://www.anshengpc.com/10/10623.html -->
<HTML><HEAD><TITLE>使用VB开发Windows环境下的串行通信程序</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="使用VB开发Windows环境下的串行通信程序.files/index.css" type=text/css rel=stylesheet>
<META content=使用VB开发Windows环境下的串行通信程序 name=keywords>
<META content="MSHTML 6.00.2900.2180" name=GENERATOR></HEAD>
<BODY>
<P align=center>
<SCRIPT type=text/javascript><!--
google_ad_client = "pub-0578410855435651";
google_ad_width = 728;
google_ad_height = 90;
google_ad_format = "728x90_as";
google_ad_type = "text_image";
google_ad_channel ="";
//--></SCRIPT>

<SCRIPT src="使用VB开发Windows环境下的串行通信程序.files/show_ads.js" type=text/javascript>
</SCRIPT>
<BR>
<SCRIPT src=""></SCRIPT>
</P>
<P align=center>
<H2>使用VB开发Windows环境下的串行通信程序</H2>
<P></P>
<TABLE width=750 align=center border=0>
  <TBODY>
  <TR>
    <TD><BR><BR><SPAN class=unnamed3><FONT 
      size=3>随着Windows在国内的普及，特别是Windows95的推出，越来越多的微机用户转向了Windows操作系统。不过Windows应用软件的开发对于一般工程技术领域的技术人员来说并非易事，不但Windows的消息循环机制不易理解，而且要开发一个功能强、界面美观的应用软件，其编程和调试的工作量是非常大的。许多并非搞软件出身的工程技术人员对Windows编程望而生畏。然而使用微软的VisualBasic来开发这些方面的Windows应用软件就十分方便，一般工程技术人员易于掌握，设计软件界面非常方便，编程工作量相对较小，只需进行主要应用功能的编程和少量界面控制的编程。本文介绍了笔者使用VB在串行通信编程方面的一些收获，由于在报刊杂志上对Windows下串行通信编程的介绍多为用MicrosoftC++或BorlandC++，故笔者愿意就VB在该方面的应用与大家探讨。对于采用了RS-232接口进行串行通信的计算机测控系统软件的开发，具有一定的参考价值。</FONT><BR>
      <P><FONT 
      size=3>在该系统中使用了80C31单片机作为下位机采集惯性敏感部件的测量数据，经过一定的预处理后通过RS-232串行口将数据传送给上位PC机。在PC机上Windows环境下运行检测软件，接受串行口传来的数据，进行数据处理、显示、存盘等。数据处理结果以表格形式打印输出。</FONT></P><BR>
      <P><FONT 
      size=3>在VB3.0中，有许多专业厂商提供用户定制的控件(Customcontrol)，这些控件以.VBX为后缀，其中MSCOMM.VBX即是用于串行通信的控件。对于VB3.0，启动后该控件就包含于控件工具箱(toolbox)内，否则可以通过File|AddFile将该控件加入控件工具箱。然后就可以利用该控件进行串行通信的程序设计。</FONT></P><BR>
      <P><FONT 
      size=3>下面举一个简单的例子，说明了如何进行串行通信的程序设计，该程序在Windows95环境下，使用VB3.0已经实现:</FONT></P><BR>
      <P><FONT size=3><B>1.先建立一个项目文件，其控件如下表所示:</B></FONT></P><BR>
      <P><FONT size=3><B>2.代码如下:</B></FONT></P><BR>
      <P><FONT size=3>SubForm_Load()</FONT></P><BR>
      <P><FONT size=3>comm1.CommPort=1‘使用串行口1</FONT></P><BR>
      <P><FONT size=3>'波特率9600，偶校验，8个数据位，1个停止位。</FONT></P><BR>
      <P><FONT size=3>comm1.Settings=“9600，E，8，1”</FONT></P><BR>
      <P><FONT size=3>当使用Comm1.Input时，每次从接收缓冲区取一个字节。</FONT></P><BR>
      <P><FONT size=3>comm1.InputLen=1</FONT></P><BR>
      <P><FONT size=3>timer1.interval=20‘定时器的中断间隔为20ms，用于更新显示时间。</FONT></P><BR>
      <P><FONT size=3>EndSub</FONT></P><BR>
      <P><FONT size=3>SubcmdComm_Click()</FONT></P><BR>
      <P><FONT size=3>Dimechoch%‘命令变量</FONT></P><BR>
      <P><FONT 
      size=3>Staticmaxf01&amp;，maxf02&amp;，minf01&amp;，minf02&amp;‘最大值，最小值</FONT></P><BR>
      <P><FONT size=3>OnErrorResumeNext‘简单的错误处理</FONT></P><BR>
      <P><FONT size=3>maxf01&amp;=maxf02&amp;=0‘初始化变量</FONT></P><BR>
      <P><FONT size=3>minf01&amp;=32767</FONT></P><BR>
      <P><FONT size=3>minf02&amp;=32767</FONT></P><BR>
      <P><FONT size=3>label2.Caption=comm1.Settings‘显示串行口的设置。</FONT></P><BR>
      <P><FONT 
      size=3>Ifcmdcomm.Caption=“通信”Then‘若当前命令按扭的提示为“通信”则开始发送和</FONT></P><BR>
      <P><FONT size=3>cmdcomm.Caption=“停止”‘接受数据，并将命令按扭提示改为“停止”，以</FONT></P><BR>
      <P><FONT size=3>cmdexit.Enabled=False‘允许停止通信。使退出命令在通信中失效。</FONT></P><BR>
      <P><FONT size=3>IfNotcomm1.PortOpenThen‘若串行口没有打开，则打开串行口</FONT></P><BR>
      <P><FONT size=3>comm1.PortOpen=True</FONT></P><BR>
      <P><FONT size=3>EndIf</FONT></P><BR>
      <P><FONT size=3>Ifcomm1.PortOpenThen</FONT></P><BR>
      <P><FONT size=3>Ifecho.Text＜＞“”Then‘若命令输入框不空，则将其转换为十六进制数值</FONT></P><BR>
      <P><FONT size=3>echoch%=Val(“&amp;H”+echo.Text)</FONT></P><BR>
      <P><FONT size=3>Else</FONT></P><BR>
      <P><FONT size=3>echoch%=&amp;HF0‘否则确省命令为F0H</FONT></P><BR>
      <P><FONT size=3>EndIf</FONT></P><BR>
      <P><FONT 
      size=3>comm1.Output=Chr(echoch%)‘向串行口写入一字节命令，由WINDOWS自</FONT></P><BR>
      <P><FONT size=3>EndIf‘动将命令发出</FONT></P><BR>
      <P><FONT size=3>label3.Caption=Hex(echoch%)‘显示刚发出的命令</FONT></P><BR>
      <P><FONT size=3>DoWhilecomm1.PortOpen</FONT></P><BR>
      <P><FONT 
      size=3>Ifcomm1.InBufferCount＞0Then‘若comm1.InBufferCount＞0表示接受缓冲</FONT></P><BR>
      <P><FONT size=3>ch$=comm1.Input‘区有数据，并读出一个字符，</FONT></P><BR>
      <P><FONT size=3>IfAsc(ch$)=echoch%Then‘若与发出的命令相同，则退出当前循环</FONT></P><BR>
      <P><FONT size=3>ExitDo‘进入下一循环</FONT></P><BR>
      <P><FONT size=3>EndIf</FONT></P><BR>
      <P><FONT size=3>Else</FONT></P><BR>
      <P><FONT size=3>comm1.Output=Chr(echoch%)‘否则继续向下位机发命令，通知下位机</FONT></P><BR>
      <P><FONT size=3>EndIf‘送数据</FONT></P><BR>
      <P><FONT size=3>dummy=DoEvents()‘让系统处理其他消息</FONT></P><BR>
      <P><FONT size=3>Loop</FONT></P><BR>
      <P><FONT size=3>‘下位机接受到正确的命令，并回发命令正确时，进入下面循环</FONT></P><BR>
      <P><FONT size=3>i=1</FONT></P><BR>
      <P><FONT size=3>DoWhilecomm1.PortOpen</FONT></P><BR>
      <P><FONT size=3>Ifcomm1.InBufferCount＞5Then</FONT></P><BR>
      <P><FONT size=3>ch$=comm1.Input</FONT></P><BR>
      <P><FONT size=3>DoWhileAsc(ch$)＜＞echoch%‘以命令字节同步测试数据</FONT></P><BR>
      <P><FONT size=3>ch$=comm1.Input</FONT></P><BR>
      <P><FONT size=3>Loop</FONT></P><BR>
      <P><FONT size=3>ch1$=comm1.Input‘从WINDOWS串行数据接受缓冲区读测试数据</FONT></P><BR>
      <P><FONT size=3>ch2$=comm1.Input</FONT></P><BR>
      <P><FONT size=3>ch3$=comm1.Input</FONT></P><BR>
      <P><FONT size=3>ch4$=comm1.Input</FONT></P><BR>
      <P><FONT 
      size=3>newf01&amp;=CLng(CLng(Asc(ch2$))*16*16+Asc(ch1$))‘合并为一个整数</FONT></P><BR>
      <P><FONT 
      size=3>newf02&amp;=CLng(CLng(Asc(ch4$))*16*16+Asc(ch3$))</FONT></P><BR>
      <P><FONT size=3>ifnewf01&amp;＞maxf01&amp;Then‘判断最大值，最小值</FONT></P><BR>
      <P><FONT size=3>maxf01&amp;=newf01&amp;</FONT></P><BR>
      <P><FONT size=3>EndIf</FONT></P><BR>
      <P><FONT size=3>Ifnewf01&amp;＜minf01&amp;Then</FONT></P><BR>
      <P><FONT size=3>minf01&amp;=newf01&amp;</FONT></P><BR>
      <P><FONT size=3>EndIf</FONT></P><BR>
      <P><FONT size=3>Ifnewf02&amp;＞maxf02&amp;Then</FONT></P><BR>
      <P><FONT size=3>maxf02&amp;=newf02&amp;</FONT></P><BR>
      <P><FONT size=3>EndIf</FONT></P><BR>
      <P><FONT size=3>Ifnewf02&amp;＜minf02&amp;Then</FONT></P><BR>
      <P><FONT size=3>minf02&amp;=newf02&amp;</FONT></P><BR>
      <P><FONT size=3>EndIf</FONT></P><BR>
      <P><FONT size=3>labf01.Caption=Str(newf01&amp;)‘显示数据</FONT></P><BR>
      <P><FONT size=3>labf02.Caption=Str(newf02&amp;)</FONT></P><BR>
      <P><FONT size=3>labmaxf01.Caption=Str(maxf01&amp;)</FONT></P><BR>
      <P><FONT size=3>labminf01.Caption=Str(minf01&amp;)</FONT></P><BR>
      <P><FONT size=3>labmaxf02.Caption=Str(maxf02&amp;)</FONT></P><BR>
      <P><FONT size=3>labminf02.Caption=Str(minf02&amp;)</FONT></P><BR>
      <P><FONT size=3>Else</FONT></P><BR>
      <P><FONT size=3>comm1.Output=Chr(echoch%)</FONT></P><BR>
      <P><FONT size=3>EndIf</FONT></P><BR>
      <P><FONT size=3>dummy=DoEvents()</FONT></P><BR>
      <P><FONT size=3>Loop</FONT></P><BR>
      <P><FONT size=3>Else‘在通讯过程中，按下cmdCOMM按钮则停止通信，发出停止测试</FONT></P><BR>
      <P><FONT size=3>cmdcomm.Caption=“通信”‘命令，关闭串行口，使退出按钮有效。</FONT></P><BR>
      <P><FONT size=3>comm1.Output</SPAN><BR></FONT></P></TD><BR></TR><BR>
  <TR><BR>
    <TD><BR></TD></TR></TBODY></TABLE>
<SCRIPT src=""></SCRIPT>

<SCRIPT src=""></SCRIPT>

<SCRIPT src="使用VB开发Windows环境下的串行通信程序.files/count.js"></SCRIPT>
</BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -