基于VB6.0港口运料系统设计.doc

基于VB6.0港口运料系统设计摘 要：针对港口货船的焦炭称量问题，设计基于Visual Basic6.0的港口运料系统。上位机通过RS 232串口发出控制命令，控制下位机（散料秤）称量货物，再把数据实时返回到上位机，实现上位机和下位机的实时通信和上位机对下位机的控制。为了使得系统在工业控制应用中的功能更加完善，上位机还具备访问数据库、实时更新数据库以及打印报表等功能。 关键词：VB6.0； 港口运料系统； RS 232； 串行通信 中图分类号：TN91934 文献标识码：A 文章编号：1004373X(2012)10002802 港口作为一个繁忙装卸货物的地方，往往联系着一个区域或工厂的经济发展和生产，为了搬运货物的效率和减轻人的劳动负担，通过电脑自动控制的方法来实现货船货物的准确称量。本文基于Visual Basic6.0设计出一套港口运料系统，运用港口运料系统可以实现在控制室完成焦炭的称量和打印报表等一系列操作，不仅节省了人力物力，而且具有操作简便和高效准确的特点。 1 系统硬件设计方案 港口运料系统的基本设计方案是通过上位机的Visual Basic6.0［1］编写控制主程序，使用串行通信控件MSComm［23］，通过RS 232［4］传输线传输控制信号，总体结构分为上、下位机。上位机主要包括工控计算机，下位机分别是6台散料秤。工控计算机主要完成数据的汇集和加工，以下位机采集的数据为输入，以统计加工后的数据为输出（即报表，包括原始记录单、焦炭计量对比表和计量单）。下位机主要完成数据的实时采集，以称量的焦炭数据为输入（记录下每一秤的数据），以称量的实时数据和记录的累计量为输出。上位机和下位机之间通过串口连接，实际的运行中，通信距离往往大于15 m而使得RS 232的通信受到限制，可使用RS 485［56］传输设备，它的通信距离可达1 200 m，完全可以满足大多数港口的通信距离要求。使用泓格的I7000系列［78］的7520模块转换RS 232和RS 485之间的信号标准电位［9］。 2 监控软件系统框架 港口运料系统采用VB多窗口模式组织，菜单操作使界面简单直观。系统功能共分4部分：系统管理、系统工具、系统查看和退出，系统结构如图1所示。 图1 监控系统图3 系统的具体设计和实现 系统软件主要分为4个模块，包括：通信模块、数据库模块［10］、逻辑控制模块、操作界面模块，总体结构如图2所示。 3.1 通信模块设计 通信部分主要涉及的功能有： (1) 系统通信管理。用户通过友好人机界面设置通信的参数，包括使用的串口号、传输的波特率、传输校验类型等，并对通信线路进行查错。 图2 系统模块(2) 主控界面上对下位机的操作。用户通过主控界面对散料秤的操作，由通信模块传递给下位机，并由下位机控制散料秤称重；称重得到实时数据、累计重量以及秤编号、报警信息等参数传输到上位机。关键代码如下： 在港口运料系统中，上位机首先设定了一个发送的数组： Dim outbytebuf(1 To 7) As Byte 同时，上位机也设置了一个byte型的动态数组，供接收数据使用： Dim inbytebuf() As Byte 如果选择一号称斗，相应的关键代码为： ‘‘所有发送字节的校验码 bcc = tmpbytebuf(1) Xor tmpbytebuf(2) Xor tmpbytebuf(3) Xor tmpbytebuf(4) Xor tmpbytebuf(5) Xor tmpbytebuf(6) ‘‘发送命令字节 tmpbytebuf(7) = bcc MSComm1.OutBufferCount = 0 MSComm1.Output = tmpbytebuf MSComm1.InBufferCount = 0 ‘‘延时以便接收数据 Module1.timedelay (50) 这里用到了VB6.0开发环境中的MSComm通信控件，利用它可以方便地进行计算机串口的通信管理。 3.2 数据库模块设计 数据库模块主要负责对下位机提取到数据和用户的一些相关信息数据进行存储，备份，整理等工作。数据库模块主要涉及的功能有： (1) 存储下位机传送到上位机的数据以及船号、品名等相关信息； (2) 存储系统用户的设置和用户登录的管理信息； (3) 历史数据查询和打印。关键代码如下所示： With de.RSstatictb .Source = “select 船号,日期,称斗号,累计,次数,报港数,差率,盈亏,结帐标志 from 静态数据表 where 船号=“ & “‘‘“ & iLabe