《基于VB的调压PID温度控制系统主界面设计.doc》由会员分享，可在线阅读，更多相关《基于VB的调压PID温度控制系统主界面设计.doc（27页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、. .目录摘要II一无线通信网络简介11.1无线通信控制网络11.2 Visual Basic简介1二系统整体设计方案12.1硬件设计12.1.1 实验箱连接12.1.2 串行通信根底12.2主界面设计12.3数据采集设计12.4控制算法设计1三主界面设计13.1 Visual Basic的编程方法13.2用户登陆模块设计1四系统运行结果与分析14.1 系统运行结果14.2 分析改良措施1参考文献1附录1摘要基于无线通信平台VB的温度PID控制系统主要由被控对象电热炉、温度控制器和无线通信模块三局部组成。在被控对象和温度控制器之间设置过程控制接口，过程控制接口包括温度检测装置和调功器，完成接收
2、客户端的请求和温度控制的功能。温度控制采用PID控制策略,完成温度显示和参数设置的功能，将设置参数恒温值、PID参数，实现远程监控。本课题主要研究基于无线通信平台VB的温度PID系统主界面设计。本系统包括硬件设计、软件设计和数据采集，温度自动控制箱和传感器局部，在VB中实现动画显示、报警处理、流程控制、实时曲线和报表输出等功能。同时利用智能仪表控制系统，在所设计的VB监控界面中，进展相关仪表调校和控制器参数整定。最后向用户提供Pt100温度控制系统的动态运行结果。关键词：无线通信平台；VB；PID；Pt100. .word. .一无线通信网络简介1.1无线通信控制网络无线通信网络，由于其特有的
3、非接线通信方式的优点，广泛应用于特定地理位置如山区、油田和水利设施等的现场遥测遥控领域。尤其在分布距离较远且数据传输量不大时，无线通信网络的优势更为明显。目前，采用无线通信技术的工控产品很多，有的采用RF调频通信原理；有的采用扩频通信原理。根据发射功率的不同，无线通信的距离也各不一样。也有很多公司开发出了应用于不同场合的无线数传模块，大大方便了无线通信测控系统的设计。考虑到试验系统的要求及实际应用情况，我们选用了XX威达ICP的牛顿无线通信模块和工控模块开发无线通信控制网络实验平台。XX威达ICP公司是著名的工控产品研发和生产公司，其公司生产的工业控制计算机、数据采集卡和工控模块都是目前工控行
4、业的主流产品。尤其是工控模块产品，由于性价比高、组合使用方便，深受用户好评。典型的无线通信控制网络分布式控制系统如图1-1所示。图1-1 典型无线通信控制网络1.2 Visual Basic简介Visual Basic(简称VB)是Microsoft公司为开发Windows应用程序提供的强有力的开发环境和工具，它是具有很好的图形用户界面的程序设计语言，采用面向对象和事件驱动的程序设计两种新机制，把过程化和构造化编程结合在一起。程序开发图形化的构思使开发者非常容易地创立一个窗体(Form)，再从VB工具箱中选择一些控件放入窗体中，无需编程设计界面。界面设计面向对象，容易完成，但是应用程序的过程局
5、部却不是面向对象的，然而VB具有事件驱动方法，使开发者容易地完成界面设计和代码编写。 VB使用方便，具有Windows开发环境所支持的一些主要功能：1创立各种程序对象，如文本框和命令按钮等。2创立多个多种类型的窗口，如窗体等。3实时地响应光标和键盘事件，如鼠标选中的事件过程等。4可根据需要显示或隐藏各种对象，如命令按钮可不见。5直接控制打印机输。6控制RS-232串行通迅接口，实现串行数据通迅。7可实现和其它Windows程序之间的相互通信。8有强大的图形图像处理功能。9能创立和管理数据库。与其它程序设计语言相比，VB也有许多独特的性能：1成功地简化了界面设计，为应用程序开发提供了通向Wind
6、ows操作环境的快捷途径。2提供了应用程序开发所需的许多代码(如窗体、控件)，加快了开发速度。3让开发者以可视化方式和代码方式进展工作。 4完善的运行错误处理功能。5丰富的图形指令，可生成和机制作各种图形。6强大的数据和字符处理功能。7具有丰富的控件库。8可编译成.EXE文件，脱离VB环节单独运行。自从VB产生之后，很多人都会使用其来开发自己的应用程序，在开发过程中，开发人员不需要非常清楚有关Windows操作系统的细节，就可以作出满意的作品。二系统整体设计方案系统设计主要包含硬件设计、主界面设计、数据采集与算法设计，下面就对这几方面做主要的分析：2.1硬件设计整个系统构造由一台工控机构成的上
7、位机用于整个系统的管理，安装多点测温系统管理软件，并通过无线通信对下位分机进展控制。下位分机一方面通过无线通信接收来自上位通迅总线的上位机控制命令，另一方面通过程序采集各个传感器的温度值，实现温度数据检测和转换。另外上位机还具有数据的输出打印机进展随时数据打印。硬件系统采用这种构造，本钱小、维护简单、工作稳定。系统上位机管理分析软件：VB易学的可视化编程语言开发系统，以其所见即所得的可视化界面设计风格和面向对象的程序设计等特点，已广泛地应用于各个领域。采用VB开发数据采集和工业控制应用软件十分方便，尤其软件界面设计非常便捷，编程工作量较小，开发周期短，完全能够满足系统功能的要求的数据采集速度、
8、其较强的数据处理能力和简单灵活的编程风格，可大大缩短开发周期，减少开发费用，减轻编程人员的设计负担，无疑是一种理想的选择。界面友好易操作，大量检测结果由计算机进展管理，实时数据分析及显示，图形画面显示结果，并有打印机、互联网等多种输出方式，功能强大，性能优良。上 位 机无 线 通 信下 位 机温 度 传 感 器图2-1硬件连接框图2.1.1 实验箱连接温度自动控制试验箱是以微处理器为中央控制单元,能完成物理信号的输入输出、信号转换和计算控制等功能,并可与外界通讯的仪器仪表。其可靠性高,稳定性好,长期工作维护量小。可采用LCD显示,清晰直观,读数方便。适用X围广,使用灵活:可选择不同的测量值和输
9、出值;可在线修改参数,流量小信号切除、失败模式电流输出等功能;具有内部计算、数据存储、自诊断、自校验等多种功能。具有大量的非控制性信息(管理信息) ,自动控制系统的被控量是温度、压力、流量、液位、成分、粘度、湿度等这样一些过程变量的系统，具有连续生产过程自动控制、由过程检测和控制仪表组成、被控过程多样，控制方案丰富的特点。在现代工业生产过程自动化中，过程控制技术正在为实现各种最优技术经济指标、提高经济效益和社会效益、提高劳动生产率、节约能源、改善劳动条件、保护环境卫生、提高市场竞争力等方面起着越来越大的作用。本实验中，硬件局部的温度采集通过Pt100和电热炉来完成，Pt100通过感应到电热炉中
10、的温度变化来把温度信号转换为电信号，从而通过PC机中的VB程序到达控制温度和对温度的采集。温度自动控制实验箱系统如图2-2所示。图2-2 实验箱连线2.1.2 串行通信根底随着计算机的广泛应用，市场上许多电气产品应用串口通信技术作为对外数据交换的桥梁，串口通信受到如此重视，主要原因就是这个技术简单而且容易实现。串行通信是指通信的发送方和接收方之间数据信息的传输是在单根数据线上，以每次一个二进制的0、1为最小单位一位一位的传输。串行数据传送的特点是：1串行传送在一根传输线上既传送数据信息又传送联络控制信号；2有固定的数据格式，分异步与同步数据格式；3串行通信中对信号的逻辑定义与TTL不兼容，故需
11、要进展逻辑关系与逻辑电平转换；4串行传送信息的速率需要控制，要求双方设定通信传输的波特率。总而言之，串行通信是指在单根数据线上将数据一位一位地按照顺序进展传送。在传送数据的过程中，每发送完一个数据，紧接着发送第二个，直到发送完最后一位为止。在接收数据的过程中，每一次从单根数据线上一位一位地依次接收，直到最后收到一个完整的数据为止。因此，串行口通信方式一般用在远距离数据通信中，正好符合具有占用通信线少、本钱低等优点。网络通信过程中，通信双方要交换数据，需要高度的协同工作。为了正确的解释信号，接收方必须确切地知道信号应当何时接收和处理，因此定时是至关重要的。在计算机网络中，定时的因素称为位同步。同
12、步是要接收方按照发送方发送的每个位的起止时刻和速率来接收数据，否那么会产生误差。通常可以采用同步或异步的传输方式对位进展同步处理。在异步传输中，信息以字符为单位进展传输。异步传输的优点就是收、发双方不需要严格的位同步，所谓“异步是指字符与字符之间的异步，字符内部仍为同步。在同步传输中，不仅字符内部为同步，字符与字符之间也要保持同步。同步传输的特点是可获得较高的传输速度，但实现起来较复杂。为了解决以上问题，串行传输可以采用以下两种方法：异步传输和同步传输。1异步传输异步传输将比特分成小组进展传送，小组可以是8位的1个字符或更长。发送方可以在任何时刻发送这些比特组，而接收方从不知道它们会在什么时候
13、到达。一个常见的例子是计算机键盘与主机的通信。按下一个字母键、数字键或特殊字符键，就发送一个8比特位的ASCII代码。键盘可以在任何时刻发送代码，这取决于用户的输入速度，内部的硬件必须能够在任何时刻接收一个键入的字符。异步传输存在一个潜在的问题，即接收方并不知道数据会在什么时候到达。在它检测到数据并做出响应之前，第一个比特已经过去了。这就像有人出乎意料地从后面走上来跟你说话，而你没来得及反响过来，漏掉了最前面的几个词。因此，每次异步传输的信息都以一个起始位开头，它通知接收方数据已经到达了，这就给了接收方响应、接收和缓存数据比特的时间；在传输完毕时，一个停顿位表示该次传输信息的终止。按照惯例，空
14、闲(没有传送数据)的线路实际携带着一个代表二进制1的信号，异步传输的开场位使信号变成0，其他的比特位使信号随传输的数据信息而变化。最后，停顿位使信号重新变回1，该信号一直保持到下一个开场位到达。例如在键盘上数字“1，按照8比特位的扩展ASCII编码，将发送“00110001，同时需要在8比特位的前面加一个起始位，后面一个停顿位。2同步传输同步传输的比特分组要大得多。它不是独立地发送每个字符，每个字符都有自己的开场位和停顿位，而是把它们组合起来一起发送。我们将这些组合称为数据帧，或简称为帧。数据帧的第一局部包含一组同步字符，它是一个独特的比特组合，类似于前面提到的起始位，用于通知接收方一个帧已经
15、到达，但它同时还能确保接收方的采样速度和比特的到达速度保持一致，使收发双方进入同步。帧的最后一局部是一个帧完毕标记。与同步字符一样，它也是一个独特的比特串，类似于前面提到的停顿位，用于表示在下一帧开场之前没有别的即将到达的数据了。综上所述，我们可以归结一下同步传输和异步传输的区别，具体如下：1)异步传输是面向字符的传输，而同步传输是面向比特的传输。2)异步传输的单位是字符而同步传输的单位是帧。2.2主界面设计为了方便地管理系统程序，且占有教少的系统资源，我们采用多文档界面MDI进展主界面的设计。通过选择主界面上的菜单，我们就可以实现对温度信息的各种操作。2.3数据采集设计数据采集模块主要由名称
16、为Timer_Sample的一个Timer控件实现数据采集，由于是多路温度采集，首先设置一个变量，从1一直到总温度点数逐一递增，该变量影响地址和通道数，当该变量为1时，进展第1通道的温度采集，采集之后并把该变量加1，地址和通道做出响应的变化，进展下次采集操作。整个过程放在一个For循环里面实现。下位机的设置是当上位机发送地址和通道给下位机时，下位机把就把对应该地址和通道的温度值读取出来保存，当上位机需要读取时，上位机发送MSmObj.Input命令，下位机就把储存的温度值发送给上位机。上位机进展判断是否超时，整个过程中应该在50ms以内完成，50ms之后上位机进展采集数据操作，并且对采集出来的
17、数据进展判断，下位机正常的反响值应该是一个大于5个字符位的温度值，如果温度值有错误，或者超时没有采集出来温度值，那么手动设置采集出来的数据为0，并以红色标记，表示数据有错误，需要检查硬件设备，如果温度值没有错误，符合要求，那么把采集上来的温度值复制到m_s_SaveTemp中进展存储。延时50ms的实现：在VB当中，并没有延时程序，所以必须通过程序来实现，实现的方法是通过GetTickCount函数来实现。GetTickCount函数包含在kernl32.dll库里面，在程序加载的时候需要在模块中声明。GetTickCount的函数功能：GetTickCount返回从操作系统启动到现在所经过的
18、毫秒数。通过这个函数，先建立一个变量，储存程序开场的时间，然后用当前时间减去程序开场时间，如果结果少于超时时间，那么继续循环，直到差值大于超时时间，这样就完成了延时的功能，延时的时间就是设定超时的时间。期间还需要使用一个函数：DoEvents。DoEvents函数功能是转让控制权，以便让操作系统处理其它的事件。为了防止在延时的时候有其他事件发生，例如存储模块进展存储，那么必须转让控制权给系统，这样系统才能响应其他事件，否那么延时过程会导致CPU占用率100%等其他不可预料的问题发生。数据采集为了方便调试，设置了一个Debug模式，通过Debug模式总开关可以设置虚拟采数过程，不需要实际硬件连接
19、从而到达调试程序的目的。数据采集流程如图2-3所示：图2-3 数据采集流程图在Debug模式下与在正常模式下的区别在于Debug模式并没有真正发送地址和通道的实际操作，屏蔽掉了一条语句：MSmObj.Output = vSend，该语句在正常模式下实现把vSend里面的数值也就是地址和通道通过串口发送给下位机，在这里并没有真正发送，所以当没有下位机的情况下，也可以进展调试，语句不出错。在接收电压数据的操作过程中也同时屏蔽掉了一条语句：vReceiveBuffer = MSmObj.Input，并没有真正把数据采集上来，而是选择一个固定的数当作采集上来的电压值，从而才能继续接下来的操作。通过De
20、bug模式的创立，可以在没有硬件的情况下进展软件编辑，加快了工程进度，并且还能容易的找出问题的所在之处。为了到达实时数据采集目的，实时数据采集处理程序采用 MSm 事件驱动方式。 Onm事件程序的流程图如图2-4所示：图2-4 Onm 事件程序的流程图2.4控制算法设计系统控制的总体思路以及细节流程图如下列图2-5和2-6所示：图2-5 系统控制的框图图2-6 控制窗口流程图三主界面设计3.1 Visual Basic的编程方法 VB的窗口化设计遵循了以下四个主要的步骤：1选择对象(Object)：确实存在的东西，可以被使用，有一个特定的名字，就是一个对象。在VB应用程序的设计中，窗口、鼠标、
21、图片、按钮等都是对象。一个对象就是既含数据又含操作该数据代码的一个逻辑实体，数据是对象的特性，操作即函数或过程，是对象的行为。对象是程序的根本元素，在对象存在的程序中，所有的动作和信息必定和对象有关。所以VB程序设计首先要根据选择所需的对象。VB中的对象与面向对象程序设计中的对象在概念上是一样的，但在使用上有很大的区别，在面向对象程序设计中，对象由程序员自己设计，而在VB中，对象是由系统设计好的，可直接作用或对其进展操作。对象的选择可以利用VB的工具箱进展。2设置属性(Property)：每一个存在的对象所具备的特性称为属性。例如，一个按钮的标题(Caption)，名称(Name)，颜色(Co
22、lor)，字体大小(Fontsion)，是否可见(Visible)等都称为其属性。每个对象都可以根据需要设置其属性。在VB中，所有对象的属性都通过属性窗口显示出来，当单击某一对象时，属性窗口即显示它的所有属性。属性即可以通过属性窗口来设置，又可以依靠程序语句来设置。3引发事件(Event)：所谓事件，是由VB事先设置好的、能够被对象识别的动作。每一个对象总会与外界(其它对象)产生互动，此互动产生时，就是这个对象有一个事件被引发了。一个对象可以被引发的事件有很多，例如，一个鼠标可以有单击、双击、拖移、移动等事件，其它对象也有一样或类似的事件，不同类型的对象可能会有不同的事件可以被外界引发。响应某
23、个事件所执行的操作通过一段程序代码来实现，这样的程序代码叫做事件过程。一个对象可以识别一个或多个事件，因此可以使用一个成多个事件过程对用户或系统的事件作出响应。事件过程的一般格式如下： PrivateSub对象名称一事件名称()事件响应程序代码 EndSub对象名称指的是对象的Name属性，事件名称是由VB予该对象事件的，而这个事件必须是对象所能识别的预先定义好赋予该对象事件的，而这个事件必须是对象所能识别的。4确定方法(Method)：当对象被引发了某个事件之后，系统(或程序)应该采用的相应步骤就称之为方法。VB提供了大量的方法，有些方法可以适用于多种甚至所有类型的对象，而有些方法只适用于少
24、数几种对象。例如，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最大的
25、优点就是可以在任何地方进展操作而不用安装任何专门的软件。只要有一台能上网的电脑就能使用，客户端零维护。系统的扩展非常容易，只要能上网，再由系统管理员分配一个用户名和密码，就可以使用了。甚至可以在线申请，通过公司内部的平安认证如CA证书后，不需要人的参与，系统可以自动分配给用户一个账号进入系统。 C/S又称Client/Server或客户/效劳器模式。效劳器通常采用高性能的PC、工作站或小型机，并采用大型数据库系统，如Oracle、Sybase、Informix或SQLServer。客户端需要安装专用的客户端软件。 C/S的优点是能充分发挥客户端PC的处理能力，很多工作可以在客户端处理后再提交给
26、效劳器。对应的优点就是客户端响应速度快。缺点主要有以下几个：只适用于局域网。而随着互联网的飞速开展，移动办公和分布式办公越来越普及，这需要我们的系统具有扩展性。这种方式远程访问需要专门的技术，同时要对系统进展专门的设计来处理分布式的数据。客户端需要安装专用的客户端软件。首先涉及到安装的工作量，其次任何一台电脑出问题，如病毒、硬件损坏，都需要进展安装或维护。特别是有很多分部或专卖店的情况，不是工作量的问题，而是路程的问题。还有，系统软件升级时，每一台客户机需要重新安装，其维护和升级本钱非常高。对客户端的操作系统一般也会有限制。可能适应于Win98，但不能用于win2000或Windows XP。
27、或者不适用于微软新的操作系统等等，更不用说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 空白窗体为防止不相关人员随意翻开本软件修改，删除检测结果，所以软件运行后，首先设计了登陆对话框，要求输入用户名和密码，输入正确后才能进
28、入该软件的主界面。如果失败达三次，那么自动退出系统。用户登陆界面如图3-3所示。图3-3 用户登陆界面在空白窗体上，添加2个Label控件、2个TextBox控件、1个ADODC控件。界面上的2个Label控件用来标识窗体中的信息用户名，密码，2个TextBox控件用来输入用户名和密码，2个mandButton控件用来确定或取消登陆，1个ADODC控件运行时隐藏用来完成和数据库用户信息表的连接。图3-4控制窗口流程图为了方便地管理系统程序，且占有教少的系统资源，我们采用多文档界面MDI进展主界面的设计。通过选择主界面上的菜单，我们就可以实现对温度信息的各种操作。系统的主界面如图3-5所示。图3
29、-5 系统主界面四系统运行结果与分析4.1 系统运行结果图4-1 运行结果图4.2 分析改良措施本文通过VB 6.0可视化编程语言编写了一个多点测温系统管理软件，软件实现了对电热炉温度采集下位机的数据采集、即时温度曲线显示，根本实现了对电热炉测温系统的管理。本系统温度采集精度可以到达1，主要用于工业民用上温度采集，例如粮库温度采集或室内温度采集，采集反映时间0.1s，在0.1s内即可完成采集温度，历史温度曲线绘制时间间隔20s，每20s更新温度曲线一次。到达了课程设计的根本要求。参考文献1 于洋，陈亮等.测控系统网络化技术及应用.机械工业.20212 (美)福克斯奥.Visual Basic
30、2021入门经典.人民邮电.20213 拉帕波特.无线通信原理与应用.电子工业.2021附录程序源代码：Option ExplicitPublic c As Integer, T As Integer Private Sub bo1_Click() 选择端口 If bo1.Text = 1 Then MSm1.mPort = 1 ElseIf bo1.Text = 2 Then MSm1.mPort = 2 ElseIf bo1.Text = 3 Then MSm1.mPort = 3 ElseIf bo1.Text = 4 Then MSm1.mPort = 4 Else MSm1.mPor
31、t = 5 End If End SubPrivate Sub MSm1_Onm()End SubPrivate Sub mand1_Click()Dim i As Integer, j As IntegerFor i = 1 To 19 For j = 1 To 3 MSFlexGrid1.TextMatrix(i, j) = Next j Next iTimer3.Enabled = True T = 0 c = 1 Call draw Call bo1_Click MSm1.PortOpen = True m1.Output = Textsend.TextEnd SubPrivate S
32、ub mand2_Click() MSm1.PortOpen = False Timer3.Enabled = False Timer1.Enabled = FalseEnd SubPrivate Sub mand3_Click()m1.PortOpen = FalseEndEnd SubPrivate Sub mand4_Click()Unload Form2End SubPrivate Sub Form_Load() Form1.Caption = 温度监测系统 bo1.AddItem 1 bo1.AddItem 2 bo1.AddItem 3 bo1.AddItem 4 bo1.AddI
33、tem 5 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
34、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 MSFlexGri
35、d.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) 横
36、坐标箭头及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 P
37、icture1.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
38、 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 Pic
39、ture1.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 T
40、imer1_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 In
41、teger, 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. .word.