基于VB的调压PID温度控制新版系统主界面设计.doc

目 录摘 要II一 无线通信网络简介11.1无线通信控制网络11.2 Visual Basic简介1二 系统整体设计方案22.1硬件设计22.1.1 实验箱连接32.1.2 串行通信基本42.2主界面设计62.3数据采集设计62.4控制算法设计9三 主界面设计103.1 Visual Basic编程办法103.2顾客登陆模块设计12四 系统运营成果与分析15 4.1 系统运营成果154.2 分析改进办法15参照文献15附录16摘 要基于无线通信平台VB温度PID控制系统重要由被控对象（电热炉）、温度控制器和无线通信模块三某些构成。在被控对象和温度控制器之间设立过程控制接口，过程控制接口涉及温度检测装置和调功器，完毕接受客户端祈求和温度控制功能。温度控制采用PID控制方略,完毕温度显示和参数设立功能，将设立参数（恒温值、PID参数），实现远程监控。本课题重要研究基于无线通信平台VB温度PID系统主界面设计。本系统涉及硬件设计、软件设计和数据采集，温度自动控制箱和传感器某些，在VB中实现动画显示、报警解决、流程控制、实时曲线和报表输出等功能。同步运用智能仪表控制系统，在所设计VB监控界面中，进行有关仪表调校和控制器参数整定。最后向顾客提供Pt100温度控制系统动态运营成果。 核心词：无线通信平台；VB；PID；Pt100一 无线通信网络简介1.1无线通信控制网络 无线通信网络，由于其特有非接线通信方式长处，广泛应用于特定地理位置（如山区、油田和水利设施等）现场遥测遥控领域。特别在分布距离较远且数据传播量不大时，无线通信网络优势更为明显。当前，采用无线通信技术工控产品诸多，有采用RF调频通信原理；有采用扩频通信原理。依照发射功率不同，无线通信距离也各不相似。也有诸多公司开发出了应用于不同场合无线数传模块，大大以便了无线通信测控系统设计。考虑到实验系统规定及实际应用状况，咱们选用了台湾威达（ICP）牛顿无线通信模块和工控模块开发无线通信控制网络实验平台。台湾威达（ICP）公司是知名工控产品研发和生产公司，其公司生产工业控制计算机、数据采集卡和工控模块都是当前工控行业主流产品。特别是工控模块产品，由于性价比高、组合使用以便，深受顾客好评。典型无线通信控制网络分布式控制系统如图1-1所示。图1-1 典型无线通信控制网络1.2 Visual Basic简介 Visual Basic(简称VB)是Microsoft公司为开发Windows应用程序提供强有力开发环境和工具，它是具备较好图形顾客界面程序设计语言，采用面向对象和事件驱动程序设计两种新机制，把过程化和构造化编程结合在一起。程序开发图形化构思使开发者非常容易地创立一种窗体(Form)，再从VB工具箱中选取某些控件放入窗体中，无需编程设计界面。界面设计面向对象，容易完毕，但是应用程序过程某些却不是面向对象，然而VB具备事件驱动办法，使开发者容易地完毕界面设计和代码编写。 VB使用以便，具备Windows开发环境所支持某些重要功能： （1）创立各种程序对象，如文本框和命令按钮等。 （2）创立各种各种类型窗口，如窗体等。 （3）实时地响应光标和键盘事件，如鼠标选中事件过程等。 （4）可依照需要显示或隐藏各种对象，如命令按钮可不见。 （5）直接控制打印机输。 （6）控制RS-232串行通迅接口，实现串行数据通迅。 （7）可实现和其他Windows程序之间互相通信。 （8）有强大图形图像解决功能。 （9）能创立和管理数据库。 与其他程序设计语言相比，VB也有许多独特性能： （1）成功地简化了界面设计，为应用程序开发提供了通向Windows操作环境快捷途径。 （2）提供了应用程序开发所需许多代码(如窗体、控件)，加快了开发速度。 （3）让开发者以可视化方式和代码方式进行工作。 （4）完善运营错误解决功能。 （5）丰富图形指令，可生成和机制作各种图形。 （6）强大数据和字符解决功能。 （7）具备丰富控件库。 （8）可编译成.EXE文献，脱离VB环节单独运营。 自从VB产生之后，诸多人都会使用其来开发自己应用程序，在开发过程中，开发人员不需要非常清晰关于Windows操作系统细节，就可以作出满意作品。二 系统整体设计方案系统设计重要包括硬件设计、主界面设计、数据采集与算法设计，下面就对这几方面做重要分析：2.1硬件设计 整个系统构造由一台工控机构成上位机用于整个系统管理，安装多点测温系统管理软件，并通过无线通信对下位分机进行控制。下位分机一方面通过无线通信接受来自上位通迅总线上位机控制命令，另一方面通过程序采集各个传感器温度值，实现温度数据检测和转换。此外上位机还具备数据输出打印机进行随时数据打印。硬件系统采用这种构造，成本小、维护简朴、工作稳定。系统上位机管理分析软件：VB易学可视化编程语言开发系统，以其所见即所得可视化界面设计风格和面向对象程序设计等特点，已广泛地应用于各个领域。采用VB开发数据采集和工业控制应用软件十分以便，特别软件界面设计非常便捷，编程工作量较小，开发周期短，完全可以满足系统功能规定数据采集速度、其较强数据解决能力和简朴灵活编程风格，可大大缩短开发周期，减少开发费用，减轻编程人员设计承担，无疑是一种抱负选取。界面和谐易操作，大量检测成果由计算机进行管理，实时数据分析及显示，图形画面显示成果，并有打印机、互联网等各种输出方式，功能强大，性能优良。 上 位 机无 线 通 信下 位 机温 度 传 感 器图2-1硬件连接框图2.1.1 实验箱连接 温度自动控制实验箱是以微解决器为中央控制单元,能完毕物理信号输入输出、信号转换和计算控制等功能,并可与外界通讯仪器仪表。其可靠性高,稳定性好,长期工作维护量小。可采用LCD显示,清晰直观,读数以便。合用范畴广,使用灵活:可选取不同测量值和输出值;可在线修改参数,流量小信号切除、失败模式电流输出等功能;具备内部计算、数据存储、自诊断、自校验等各种功能。具备大量非控制性信息(管理信息) ,自动控制系统被控量是温度、压力、流量、液位、成分、粘度、湿度等这样某些过程变量系统，具备持续生产过程自动控制、由过程检测和控制仪表构成、被控过程多样，控制方案丰富特点。在当代工业生产过程自动化中，过程控制技术正在为实现各种最优技术经济指标、提高经济效益和社会效益、提高劳动生产率、节约能源、改进劳动条件、保护环境卫生、提高市场竞争力等方面起着越来越大作用。 本实验中，硬件某些温度采集通过Pt100和电热炉来完毕，Pt100通过感应到电热炉中温度变化来把温度信号转换为电信号，从而通过PC机中VB程序达到控制温度和对温度采集。 温度自动控制实验箱系统如图2-2所示。图2-2 实验箱连线2.1.2 串行通信基本 随着计算机广泛应用，市场上许多电气产品应用串口通信技术作为对外数据互换桥梁，串口通信受到如此注重，重要因素就是这个技术简朴并且容易实现。串行通信是指通信发送方和接受方之间数据信息传播是在单根数据线上，以每次一种二进制0、1为最小单位一位一位传播。 串行数据传送特点是： （1）串行传送在一根传播线上既传送数据信息又传送联系控制信号； （2）有固定数据格式，分异步与同步数据格式； （3）串行通信中对信号逻辑定义与TTL不兼容，故需要进行逻辑关系与逻辑电平转换； （4）串行传送信息速率需要控制，规定双方设定通信传播波特率。综上所述，串行通信是指在单根数据线上将数据一位一位地按照顺序进行传送。在传送数据过程中，每发送完一种数据，紧接着发送第二个，直到发送完最后一位为止。在接受数据过程中，每一次从单根数据线上一位一位地依次接受，直到最后收到一种完整数据为止。因而，串行口通信方式普通用在远距离数据通信中，正好符合具备占用通信线少、成本低等长处。 网络通信过程中，通信双方要互换数据，需要高度协同工作。为了对的解释信号，接受方必要确切地懂得信号应当何时接受和解决，因而定期是至关重要。在计算机网络中，定期因素称为位同步。同步是要接受方按照发送方发送每个位起止时刻和速率来接受数据，否则会产生误差。普通可以采用同步或异步传播方式对位进行同步解决。在异步传播中，信息以字符为单位进行传播。异步传播长处就是收、发双方不需要严格位同步，所谓“异步”是指字符与字符之间异步，字符内部仍为同步。在同步传播中，不但字符内部为同步，字符与字符之间也要保持同步。同步传播特点是可获得较高传播速度，但实现起来较复杂。为理解决以上问题，串行传播可以采用如下两种办法：异步传播和同步传播。 （1）异步传播异步传播将比特提成小组进行传送，小组可以是8位1个字符或更长。发送方可以在任何时刻发送这些比特组，而接受方从不懂得它们会在什么时候到达。一种常用例子是计算机键盘与主机通信。按下一种字母键、数字键或特殊字符键，就发送一种8比特位ASCII代码。键盘可以在任何时刻发送代码，这取决于顾客输入速度，内部硬件必要可以在任何时刻接受一种键入字符。异步传播存在一种潜在问题，即接受方并不懂得数据会在什么时候到达。在它检测到数据并做出响应之前，第一种比特已通过去了。这就像有人出乎意料地从背面走上来跟你说话，而你没来得及反映过来，漏掉了最前面几种词。因而，每次异步传播信息都以一种起始位开头，它告知接受方数据已经到达了，这就给了接受方响应、接受和缓存数据比特时间；在传播结束时，一种停止位表达该次传播信息终结。按照惯例，空闲(没有传送数据)线路实际携带着一种代表二进制1信号，异步传播开始位使信号变成0，其她比特位使信号随传播数据信息而变化。最后，停止位使信号重新变回1，该信号始终保持到下一种开始位到达。例如在键盘上数字“1”，按照8比特位扩展ASCII编码，将发送“00110001”，同步需要在8比特位前面加一种起始位，背面一种停止位。（2）同步传播同步传播比特分组要大得多。它不是独立地发送每个字符，每个字符均有自己开始位和停止位，而是把它们组合起来一起发送。咱们将这些组合称为数据帧，或简称为帧。数据帧第一某些包括一组同步字符，它是一种独特比特组合，类似于前面提到起始位，用于告知接受方一种帧已经到达，但它同步还能保证接受方采样速度和比特到达速度保持一致，使收发双方进入同步。帧最后一某些是一种帧结束标记。与同步字符同样，它也是一种独特比特串，类似于前面提到停止位，用于表达在下一帧开始之前没有别即将到达数据了。综上所述，咱们可以归结一下同步传播和异步传播区别，详细如下：1)异步传播是面向字符传播，而同步传播是面向比特传播。2)异步传播单位是字符而同步传播单位是帧。2.2主界面设计 为了以便地管理系统程序，且占有教少系统资源，咱们采用多文档界面MDI进行主界面设计。通过选取主界面上菜单，咱们就可以实现对温度信息各种操作。 2.3数据采集设计 数据采集模块重要由名称为Timer_Sample一种Timer控件实现数据采集，由于是多路温度采集，一方面设立一种变量，从1始终到总温度点数逐个递增，该变量影响地址和通道数，当该变量为1时，进行第1通道温度采集，采集之后并把该变量加1，地址和通道做出响应变化，进行下次采集操作。整个过程放在一种For循环里面实现。 下位机设立是当上位机发送地址和通道给下位机时，下位机把就把相应本地址和通道温度值读取出来保存，当上位机需要读取时，上位机发送MSCommObj.Input命令，下位机就把储存温度值发送给上位机。上位机进行判断与否超时，整个过程中应当在50ms以内完毕，50ms之后上位机进行采集数据操作，并且对采集出来数据进行判断，下位机正常反馈值应当是一种不不大于5个字符位温度值，如果温度值有错误，或者超时没有采集出来温度值，则手动设立采集出来数据为0，并以红色标记，表达数据有错误，需要检查硬件设备，如果温度值没有错误，符合规定，则把采集上来温度值复制到m_s_SaveTemp中进行存储。延时50ms实现：在VB当中，并没有延时程序，因此必要通过程序来实现，实现办法是通过GetTickCount函数来实现。GetTickCount函数包括在kernl32.dll库里面，在程序加载时候需要在模块中声明。GetTickCount函数功能：GetTickCount返回从操作系统启动到当前所通过毫秒数。通过这个函数，先建立一种变量，储存程序开始时间，然后用当前时间减去程序开始时间，如果成果少于超时时间，则继续循环，直到差值不不大于超时时间，这样就完毕了延时功能，延时时间就是设定超时时间。期间还需要使用一种函数：DoEvents。DoEvents函数功能是转让控制权，以便让操作系统解决其他事件。为了防止在延时时候有其她事件发生，例如存储模块进行存储，则必要转让控制权给系统，这样系统才干响应其她事件，否则延时过程会导致CPU占用率100%等其她不可预料问题发生。数据采集为了以便调试，设立了一种Debug模式，通过Debug模式总开关可以设立虚拟采数过程，不需要实际硬件连接从而达到调试程序目。数据采集流程如图2-3所示：图2-3 数据采集流程图 在Debug模式下与在正常模式下区别在于Debug模式并没有真正发送地址和通道实际操作，屏蔽掉了一条语句：MSCommObj.Output = vSend，该语句在正常模式下实现把vSend里面数值也就是地址和通道通过串口发送给下位机，在这里并没有真正发送，因此当没有下位机状况下，也可以进行调试，语句不出错。在接受电压数据操作过程中也同步屏蔽掉了一条语句：vReceiveBuffer = MSCommObj.Input，并没有真正把数据采集上来，而是选取一种固定数当作采集上来电压值，从而才干继续接下来操作。 通过Debug模式创立，可以在没有硬件状况下进行软件编辑，加快了工程进度，并且还能容易找出问题所在之处。 为了达到实时数据采集目，实时数据采集解决程序采用 MSComm 事件驱动方式。 OnComm事件程序流程图如图2-4所示：图2-4 OnComm 事件程序流程图2.4控制算法设计 系统控制总体思路以及细节流程图如下图2-5和2-6所示：图2-5 系统控制框图 图2-6 控制窗口流程图三 主界面设计3.1 Visual Basic编程办法 VB窗口化设计遵循了如下四个重要环节： （1）选取对象(Object)：的确存在东西，可以被使用，有一种特定名字，就是一种对象。在VB应用程序设计中，窗口、鼠标、图片、按钮等都是对象。一种对象就是既含数据又含操作该数据代码一种逻辑实体，数据是对象特性，操作即函数或过程，是对象行为。对象是程序基本元素，在对象存在程序中，所有动作和信息必然和对象关于。因此VB程序设计一方面要依照选取所需对象。VB中对象与面向对象程序设计中对象在概念上是同样，但在使用上有很大区别，在面向对象程序设计中，对象由程序员自己设计，而在VB中，对象是由系统设计好，可直接作用或对其进行操作。对象选取可以运用VB工具箱进行。 （2）设立属性(Property)：每一种存在对象所具备特性称为属性。例如，一种按钮标题(Caption)，名称(Name)，颜色(Color)，字体大小(Fontsion)，与否可见(Visible)等都称为其属性。每个对象都可以依照需要设立其属性。在VB中，所有对象属性都通过属性窗口显示出来，当单击某一对象时，属性窗口即显示它所有属性。属性即可以通过属性窗口来设立，又可以依托程序语句来设立。 （3）引起事件(Event)：所谓事件，是由VB事先设立好、可以被对象辨认动作。每一种对象总会与外界(其他对象)产生互动，此互动产生时，就是这个对象有一种事件被引起了。一种对象可以被引起事件有诸多，例如，一种鼠标可以有单击、双击、拖移、移动等事件，其他对象也有同样或类似事件，不同类型对象也许会有不同事件可以被外界引起。响应某个事件所执行操作通过一段程序代码来实现，这样程序代码叫做事件过程。一种对象可以辨认一种或各种事件，因而可以使用一种成各种事件过程对顾客或系统事件作出响应。事件过程普通格式如下： PrivateSub对象名称一事件名称() 事件响应程序代码 EndSub对象名称指是对象Name属性，事件名称是由VB予该对象事件，而这个事件必要是对象所能辨认预先定义好赋予该对象事件，而这个事件必要是对象所能辨认。 （4）拟定办法(Method)：当对象被引起了某个事件之后，系统(或程序)应当采用相应环节就称之为办法。VB提供了大量办法，有些办法可以合用于各种甚至所有类型对象，而有些办法只合用于少数几种对象。例如，Myform.Print Good，表达VB提供Print办法可以在名为Myform窗体对象上显示字符串Good；Printer.PrintGood表达Print办法可以在打印机对象中打印出字符串Good。 在软件编译办法上，当前重要采用构造方式有两种：BS构造和CS构造。B/S是Brower/Server缩写，客户机上只要安装一种浏览器（Browser），如NetscapeNavigator或InternetExplorer，服务器安装Oracle、Sybase、Informix或SQLServer等数据库。浏览器通过WebServer同数据库进行数据交互。 B/S最大长处就是可以在任何地方进行操作而不用安装任何专门软件。只要有一台能上网电脑就能使用，客户端零维护。系统扩展非常容易，只要能上网，再由系统管理员分派一种顾客名和密码，就可以使用了。甚至可以在线申请，通过公司内部安全认证（如CA证书）后，不需要人参加，系统可以自动分派给顾客一种账号进入系统。 C/S又称Client/Server或客户/服务器模式。服务器普通采用高性能PC、工作站或小型机，并采用大型数据库系统，如Oracle、Sybase、Informix或SQLServer。客户端需要安装专用客户端软件。 C/S长处是能充分发挥客户端PC解决能力，诸多工作可以在客户端解决后再提交给服务器。相应长处就是客户端响应速度快。缺陷重要有如下几种： 只合用于局域网。而随着互联网飞速发展，移动办公和分布式办公越来越普及，这需要咱们系统具备扩展性。这种方式远程访问需要专门技术，同步要对系统进行专门设计来解决分布式数据。 客户端需要安装专用客户端软件。一方面涉及到安装工作量，另一方面任何一台电脑出问题，如病毒、硬件损坏，都需要进行安装或维护。特别是有诸多分部或专卖店状况，不是工作量问题，而是路程问题。尚有，系统软件升级时，每一台客户机需要重新安装，其维护和升级成本非常高。 对客户端操作系统普通也会有限制。也许适应于Win98，但不能用于win或Windows XP。或者不合用于微软新操作系统等等，更不用说Linux、Unix等。3.2顾客登陆模块设计 下文将分别简介在Microsoft Visual Basic 6.0集成环境下各个模块设计过程。一方面运营Microsoft Visual Basic 6.0，浮现“新建工程”对话框，如图3-1所示。选取新建“原则EXE”，执行“打开”命令，进入Visual Basic工程集成开发环境，窗体设计器会自动浮现一种Form1空白窗体，如图3-2所示。图3-1“新建工程”对话框图3-2 空白窗体 为防止不有关人员随意打开本软件修改，删除检测成果，因此软件运营后，一方面设计了登陆对话框，规定输入顾客名和密码，输入对的后才干进入该软件主界面。如果失败达三次，则自动退出系统。顾客登陆界面如图3-3所示。图3-3 顾客登陆界面 在空白窗体上，添加2个Label控件、2个TextBox控件、1个ADODC控件。界面上2个Label控件用来标记窗体中信息（顾客名，密码），2个TextBox控件用来输入顾客名和密码，2个CommandButton控件用来拟定或取消登陆，1个ADODC控件（运营时隐藏）用来完毕和数据库顾客信息表连接。 图3-4控制窗口流程图为了以便地管理系统程序，且占有教少系统资源，咱们采用多文档界面MDI进行主界面设计。通过选取主界面上菜单，咱们就可以实现对温度信息各种操作。系统主界面如图3-5所示。图3-5 系统主界面四 系统运营成果与分析4.1 系统运营成果 图4-1 运营成果图4.2 分析改进办法 本文通过VB 6.0可视化编程语言编写了一种多点测温系统管理软件，软件实现了对电热炉温度采集下位机数据采集、即时温度曲线显示，基本实现了对电热炉测温系统管理。 本系统温度采集精度可以达到1，重要用于工业民用上温度采集，例如粮库温度采集或室内温度采集，采集反映时间0.1s，在0.1s内即可完毕采集温度， ，历史温度曲线绘制时间间隔20s，每20s更新温度曲线一次。达到了课程设计基本规定。参照文献1 于洋，陈亮等.测控系统网络化技术及应用.机械工业出版社.2 (美)福克斯奥.Visual Basic 入门典型.人民邮电出版社.3 拉帕波特.无线通信原理与应用.电子工业出版社.附录程序源代码：Option ExplicitPublic c As Integer，T As Integer Private Sub Combo1_Click() 选取端口 If Combo1.Text = COM1 Then MSComm1.CommPort = 1 ElseIf Combo1.Text = COM2 Then MSComm1.CommPort = 2 ElseIf Combo1.Text = COM3 Then MSComm1.CommPort = 3 ElseIf Combo1.Text = COM4 Then MSComm1.CommPort = 4 Else MSComm1.CommPort = 5 End If End SubPrivate Sub MSComm1_OnComm()End SubPrivate Sub Command1_Click()Dim i As Integer，j As Integer For i = 1 To 19 For j = 1 To 3 MSFlexGrid1.TextMatrix(i，j) = Next j Next i Timer3.Enabled = True T = 0 c = 1 Call draw Call Combo1_Click MSComm1.PortOpen = True comm1.Output = Textsend.TextEnd SubPrivate Sub Command2_Click() MSComm1.PortOpen = False Timer3.Enabled = False Timer1.Enabled = FalseEnd SubPrivate Sub Command3_Click()comm1.PortOpen = FalseEndEnd SubPrivate Sub Command4_Click()Unload Form2End SubPrivate Sub Form_Load() Form1.Caption = 温度监测系统 Combo1.AddItem COM1 Combo1.AddItem COM2 Combo1.AddItem COM3 Combo1.AddItem COM4 Combo1.AddItem COM5 Timer1.Interval = 1000 Timer3.Interval = 1000 Timer3.Enabled = False Dim i As Integer For i = 1 To 19 MSFlexGrid1.Col = 0 MSFlexGrid1.Row = i MSFlexGrid1.Text = i Next i MSFlexGrid1.Row = 0 MSFlexGrid1.Col = 0 MSFlexGrid1.Text = 序号 MSFlexGrid1.Col = 1 MSFlexGrid1.Text = 温度 MSFlexGrid1.Col = 2 MSFlexGrid1.Text = 时间 MSFlexGrid1.Col = 3 MSFlexGrid1.Text = 日期 End SubPrivate Sub List1_Click()End SubPrivate Sub MSFlexGrid1_Click()Dim i As Integer，j As IntegerFor i = 1 To MSFlexGrid.Rows MSFlexGrid.Col = 0 MSFlexGrid.Row = i MSFlexGrid.Text = i Next iFor j = 0 To 19 MSFlexGrid.Col = 3 MSFlexGrid.Row = j MSFlexGrid.ColWidth(j) = MSFlexGrid.ColWidth() + 200 Next jEnd SubPrivate Sub draw() Picture1.FontSize = 15 设立字体大小 Picture1.DrawWidth = 2 Picture1.ForeColor = QBColor(12) Picture1.Cls Picture1.Scale (-30，100)-(230，-30) 横坐标 Picture1.Line (-30，0)-(220，0) Picture1.Line (221，0)-(218，1) 横坐标箭头及y值 Picture1.Line (221，0)-(218，-1) Picture1.PSet (223，4) Picture1.Print x Picture1.Line (0，-30)-(0，100) 纵坐标 Picture1.Line (-1，98)-(0，100) 纵坐标箭头及x值 Picture1.Line (1，98)-(0，100) Picture1.PSet (4，98) Picture1.Print y Picture1.FontSize = 8 设立字体大小 Picture1.PSet (20，-10) Picture1.Print 20 Picture1.PSet (40，-10) Picture1.Print 40 Picture1.PSet (60，-10) Picture1.Print 60 Picture1.PSet (80，-10) Picture1.Print 80 Picture1.PSet (100，-10) Picture1.Print 100 Picture1.PSet (120，-10) Picture1.Print 120 Picture1.PSet (140，-10) Picture1.Print 140 Picture1.PSet (160，-10) Picture1.Print 160 Picture1.PSet (180，-10) Picture1.Print 180 Picture1.PSet (200，-10) Picture1.Print 200 Picture1.PSet (-14，5) Picture1.Print 5 Picture1.PSet (-14，15) Picture1.Print 10 Picture1.PSet (-14，25) Picture1.Print 15 Picture1.PSet (-14，35) Picture1.Print 20 Picture1.PSet (-14，45) Picture1.Print 25 Picture1.PSet (-14，55) Picture1.Print 30 Picture1.PSet (-14，65) Picture1.Print 35 Picture1.PSet (-14，75) Picture1.Print 40 Picture1.PSet (-14，85) Picture1.Print 45 Picture1.PSet (-14，95) Picture1.Print 50End SubPrivate Sub Text1_Change()Text1.Text = MSFlexGrid1.TextMatrix(0，1)End SubPrivate Sub Timer1_Timer()Picture1.FontSize = 3 设立字体大小Text2.Text = TimeText3.Text = DatePicture1.PSet (T，T)，vbGreenPicture1.Line (T，T)-(T = T - 2，T = T - 2)，vbGreenPicture1.Line (T，MSFlexGrid1.textmtrix()-(T= T - 1，MSFlexGrid1.TextMatrix()T = T + 2End SubPrivate Sub Timer3_Timer()Dim i As Integer，j As Integer，d As IntegerDim dat As StringMSFlexGrid1.TextMatrix(c，1) = Text6.TextMSFlexGrid1.TextMatrix(c，2) = TimeMSFlexGrid1.TextMatrix(c，3) = Datec = c + 1If c 19 Then For i = 1 To 18 For j = 1 To 3 d = i + 1 MSFlexGrid1.Row = d MSFlexGrid1.Col = j MSFlexGrid1.TextMatrix(i，j) = MSFlexGrid1.Text Next j Next i MSFlexGrid1.TextMatrix(19，2) = Time MSFlexGrid1.TextMatrix(19，3) = Date c = 19 End If Text1.Text = MSFlexGrid1.TextMatrix(2，2) End Sub