用VB定制合路器_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

用VB定制合路器

作者：闵涛文章来源：闵涛的学习笔记点击数：771 更新时间：2009/4/23 14:58:52

Option Explicit
　　Dim StrInComm1 As String '定义从串口1接收数据变量
　　Dim StrInComm2 As String '定义从串口2接收数据变量
　　Dim StrOut As String '定义发送数据变量

　　代码段1、

Private Sub Form_Load()
　　Text3.Text = 1
　　'清零
　　StrInComm1 = ""
　　StrInComm2 = ""
　　StrOut = ""
　　'打开端口
　　MSComm1.PortOpen = True
　　MSComm2.PortOpen = True
End Sub

代码段2、

Private Sub Form_Unload(Cancel As Integer)
　'关闭端口
　MSComm1.PortOpen = False
　MSComm2.PortOpen = False
End Sub

代码段3、

Private Sub Timer1_Timer()
　　Text3.Text = Text3.Text + 1
　　'每100毫秒从串口接收一次数据
　　Dim IntPositionD As Integer '定义“0D”位置变量"
　　StrOut = ""

　　StrInComm1 = StrInComm1 + MSComm1.Input '得到串口1数据

　　StrInComm2 = StrInComm2 + MSComm2.Input '得到串口2数据

　　IntPositionD = InStr(StrInComm1, Chr(13)) '判断从跟串口1中得到的数据是否有回车
　　If IntPositionD > 0 Then '如果有
　　　StrOut = StrOut + Left(StrInComm1, IntPositionD) '取出左边的数据
　　　StrInComm1 = Right(StrInComm1, Len(StrInComm1) - IntPositionD) '取出右边的数据
　　End If
　　IntPositionD = InStr(StrInComm2, Chr(13)) ''判断从跟串口1中得到的数据是否有回车
　　If IntPositionD > 0 Then
　　　StrOut = StrOut + Left(StrInComm2, IntPositionD)
　　　StrInComm2 = Right(StrInComm2, Len(StrInComm2) - IntPositionD)
　　End If
　　Text2.Text = StrOut '求出发送数据
　　Text1.Text = Text1.Text + Text2.Text
End Sub

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程：手把手教你使用VB来创建ASP组件

下一篇教程： VB.NET多线程应用

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……