基于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，但不能用于win2023或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 于洋，陈亮等.测控系统网络化技术及应用.机械工业出版社.20232 (美)福克斯奥.Visual Basic 2023入门经典.人民邮电出版社.20233 拉帕波特.无线通信原理与应用.电子工业出版社.2023附录程序源代码：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