上一题下一题
跳转到
 
 
  世界如此多姿,发展如此迅速,窥一斑未必还能知全豹。但正如万花筒一样,每一个管窥都色彩斑斓。  
 
 
  知识通道 | 学习首页 | 教师首页 | PK首页 | 知识创造首页 | 企业首页 | 登录
 
本文对应知识领域
用VB定制合路器
作者:未知 申领版权
2010年11月14日 共有 1194 次访问 【添加到收藏夹】 【我要附加题目
受欢迎度:

    
    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 
    

    

 

相关新闻

您可能对这些感兴趣  

用VB做定时断线程序
VisualBasic中的界面设计原则和编程技巧
VB6.0与Windows API 间的呼叫技巧
制作可以自动隐藏的弹出式菜单
ListBox中的字符串超长显示的解决方法
VB中的Unicode 和 Ansi 格式
优化程序显示速度
Visual Basic 产生渐层的 Form 背景
用VB实现客户——服务器(TCP/IP)
用VB制作注册软件的方法

题目筛选器
日期:
类型:
状态:
得分: <=
分类:
作者:
职业:
关键字:
搜索

 
 
 
  焦点事件
 
  知识体系
 
  职业列表
 
 
  最热文章
 
 
  最多引用文章
 
 
  最新文章
 
 
 
 
网站介绍 | 广告服务 | 招聘信息 | 保护隐私权 | 免责条款 | 法律顾问 | 意见反馈
版权所有 不得转载
沪ICP备 10203777 号 联系电话:021-54428255
  帮助提示    
《我的太学》是一种全新的应用,您在操作中遇到疑问或者问题,请拨打电话13564659895,15921448526。
《我的太学》