《工控程序开发训练》-项目4.pptVIP

微机控制自动打包系统工作原理 例如：┐-000367138└ XK3190-A9称重显示器的每帧数据格式 开始位 称重数据(6位) 异或校验位 符号位 小数点位数 1 2 3～8 9 10～11 停止位 12 二、称重显示器 1.VB进行串口通信： 使用MicroSoft COMM Control 6.0 控件MSComm 它允许建立串口连接，可以连接到其它通信设备(如Modem)，还可以发送命令、进行数据交换以及监视和响应在通信过程中可能发生的各种错误和事件，从而可以用它创建全双工的、事件驱动的、高效实用的通信程序。 三、VB串行通信的操作 2.使用MSComm控件 MSComm控件属性 属性 描述 数据 类型 举例 CommPort 设置并返回通信端口号 Integer 2 Settings 设置并返回波特率、校验位、数据位、停止位 String 9600,N,8,1 PortOpen 设置并返回端口状态，也可以用于打开和关闭串口 Boolean True 三、VB串行通信的操作 1024 Integer 设置并返回接收缓冲区的大小，以字符为单位 InBufferSize 属性 属性 数据 类型 举例 InputLen 设置并返回从接收缓冲区读取的字符 Integer 256-读入256字符； 0-读入整个缓冲区。 RThreshold 设置并返回接收时产生OnComm事件的字符数 Integer 8-收到8个字符时发生OnComm事件 三、VB串行通信的操作 称重显示器串口工作示意图 秤斗 传感器 43.67 称重显示器 47.86 计算机 RS232串口 数据送入缓冲区Buffer 例如：设置 Rthreshold 为 8，接收缓冲区收到每8个字符都会使 MSComm 控件产生 OnComm 事件 收到Rthreshold个字符 触发OnComm事件 执行OnComm 事件中的代码 将处理后的 数据送出显示 1.Mid()函数 问题： (1)取出字符串”石家庄铁路职业技术学院”中的”职业技术”四个字符 (2)取出字符串”石家庄铁路职业技术学院”中的”石家庄”后的所有字符 四、VB串行通信相关函数的使用 2.InStr()函数 问题： 指出”路”字在”石家庄铁路职业技术学院”字符串中的位置 四、VB串行通信相关函数的使用 问题 在字符串“石家庄#铁路职业技术*学院” 中，如何根据“#”号的位置，取出“#”与“*”之间的六个字符组成的子串？ 四、VB串行通信相关函数的使用 3.Val()函数 问题：将以下字符串转换为数值： (1)256.3 (2)256.3ABC (3)S256.3 四、VB串行通信相关函数的使用 字符串截取练习 1.在字符串┐-000041119└中，从┐向后截取七位(不含┐) 2.在字符串 1119└┐-000041119└┐-00004中，从┐向后截取七位(不含┐) 四、VB串行通信相关函数的使用 1.称重显示器数据的仿真读取 利用给定的函数mycomm_input()，在窗体上放置一个进度条控件(仿真传感器数据模拟调整旋钮)和一个定时器控件(仿真OnComm事件)，在定时器控件中的Timer事件中编写数据处理代码。将读取的数据和处理后的数据分别赋给两个文本框，予以显示。 五、称重显示器数据的读取 2.电子秤数据的全真读取 (1)利用VB中的MSComm控件读取电子秤的数据，经处理后通过窗体上的文本框予以显示。 五、称重显示器数据的读取 Private Sub Form_Load() 使用 COM1。 MSComm1.CommPort = 1 4800 波特，无奇偶校验，8 位数据，一个停止位。 MSComm1.Settings = 4800,N,8,1 当输入占用时，告诉控件读入整个缓冲区。 MSComm1.InputLen = 0 收到24个字符触发一次OnComm事件 MSComm1.RThreshold = 24 打开串口 If MSComm1.PortOpen = False Then MSComm1.PortOpen = True End If End Sub 五、称重显示器数据的读取 Private Sub MSComm1_OnComm() If MSComm1.PortOpen = False Then 如果串口没有打开 Exit Sub End If If MSComm1.CommEvent comEvReceive Then Exit Sub