VB计时器教案
VB计时器教案范文
VB计时器教案范文
一、教案设计
1.教学目的
（1）基础目标：学习Visual Basic中定时器的使用以及运行机制（2）提高目标：学会如何使用定时器控制程序运行的时间节奏，以及如何根据定时器来完成具体的功能
2.基本要求
（1）学生能够掌握Visual basic定时器的使用及其运行机制
（2）学生能够熟练运用定时器来完成一定功能
（3）学生能够对定时器在程序中的使用有一定的分析和认识
3.基本内容
（1）定时器的定义
（2）定时器的用途
（3）定时器的基本属性
（4）定时器的基本方法
（5）定时器的实际应用
4.教学方法
（1）讲授讲解：介绍定时器的定义、用途、属性和方法，使学生对定时器有基本的认识
（2）实践操作：以实际的秒表程序为例，让学生体会定时器的逻辑，学习如何实现计时功能
（3）实际应用：让学生实际设计和编写一些使用定时器的程序，让
学生在实践中掌握定时器的使用，增强学生的动手能力
二、课堂实施
1.准备部分
（1）老师要提前准备课件、计算机程序以及一定的练习程序
（2）学生需要提前预习定时器的相关知识
2.上课
（1）老师首先介绍什么是定时器，为什么使用定时器，以及定时器
的属性和方法，让学生有基本的了解。
Visual Foxpro 计时器教学设计
“FoxPro中计时器及命令按钮控件的应用”----“随机抽取电话号码软件”教学设计一、教学内容分析“Visual Foxpro数据库程序设计基础”是计算机应用专业的核心课程。
本课程包含八个学习任务，分别为数据库基础、数据库和表的创建、数据表的基本操作、创建报表、查询设计器、SQL查询语句、面向对象程序设计、综合应用程序设计。
本学习任务的主要内容有面向对象程序设计基础、创建表单、分支结构、循环结构、等，包括使用表单设计器完成对各类控件的应用操作，及相关知识的学习等。
二、教学对象分析本课程的教学对象是中职学校高中二年级的计算机应用专业的学生，已经学习了表单的基本属性、事件和方法，同时也学习了文本框、命令按钮、分支结构等学习任务。
在教师指导下，学生能进行表单的建立和简单控件的程序设计。
该班学生上课较认真，但逻辑思维能力、总结能力、应急能力和合作能力相对薄弱。
通过前面的学习，学生对表单的学习产生了浓厚的兴趣，但表单中控件的属性认识和代码的设计还不到位，本任务中应注意加强对学生分析能力的引导和对设计小程序的整体规划能力的培养，让学生较熟练地掌握表单控件中属性的设置和代码的设计。
三、教学目标设计1.能通过任务认识计时器控件设计动态表单的一般规律，让学生感受到现代化教学及科学技术运用到教学中作用和意义。
2.能掌握设计应用程序的一般规划流程。
3.能通过小组协作方式进行设置计时器及命令按钮控件的方法。
4.能以小组协作方式熟练应用分支判断语句在程序中的应用。
5.能在教师指导下，加强学生在表单设计中审美意识的培养。
6.能利用计时器及命令按钮控件设计小软件，可以使学生对计算机及Visual Foxpro产生深厚兴趣，为以后的数据程序设计、项目规划打好基础。
7.通过练习随机抽取手机号码的设计，提高学生的动手实践能力。
四、学习重点及其化解方法1.重点计时器控件的属性：interval和enabled计时器控件的事件：timer数据库环境的设置：数据捆绑2.化解方法小组合作，任务驱动，比较学习，教师巡回指导，现场示范等。
visual-basic-程序设计--使用计时器控件(1)
visual basic 程序设计__使用计时器控件（1）年级：高（二）教学目标：整体目标：技能目标：掌握工具箱里的计时器控件的基本属性和事件，并会使用该控件编写简单的程序。
情感目标：激发学生学习VisualBasic程序设计的兴趣。
发展目标：培养独立思考、学习和创新精神，提高学生的信息素养。
层次目标：基础簿弱学生的学习目标：1.基本了解“计时器控件”的Enabled属性和Interval属性，会使用属性窗口进行相关设置，初步学会用代码设置Enabled属性。
2.了解“计时器控件”的Timer事件何时被触发，并会编写简单程序的相应代码。
[本教案采用的程序是设计一个简单的“电子表”程序]一般学生的学习目标：1.熟练掌握“计时器控件”的Enabled属性和Interval属性，会使用属性窗口进行相关设置，并会使用代码设置这些属性。
2.了解“计时器控件”的Timer事件何时被触发，熟练编写简单程序的相应代码，并能根据帮助文件对“电子表”程序进行一定程度的扩充。
[本教案采用的程序是设计一个简单的“电子表”程序]优等学生的学习目标：1.熟练掌握“计时器控件”的Enabled属性和Interval属性，会使用属性窗口进行相关设置，并会使用代码设置这些属性。
2.熟练掌握“计时器控件”的Timer事件何时被触发，熟练编写简单程序的相应代码，并能根据帮助文件完善“电子表”程序。
[本教案采用的程序是设计一个简单的“电子表”程序]教学重点：1.了解如何在窗体上加入“计时器控件”即Timer控件，理解Timer控件的Enabled属性、Interval属性和Timer事件。
2.学习使用Timer控件来编写“电子表”程序的关键子程序即Timer事件。
3．培养学生良好的程序设计结构和习惯。
教学难点：让学生发现程序的不足之处，并给出相应的解决方案。
教学过程课前准备：按照课程要求，准备好要演示的程序，以及相应的帮助文件。
一、引入（1分钟）1．上课后，将准备好的“电子表”程序演示给学生们看，激发学生的兴趣。
vb教程2
4
2. 向窗体上添加控件
添加旳控件有： 一种标签 一种文本框 一种命令按钮 一种计时器控件
见下页图。
5
6
3 设置对象属性
（1）Form1窗体 Caption——”倒计时器”
（2）Label1控件 Caption——”请输入倒计时旳分钟数” AutoSize——True
（3）Command1控件 Caption——”开始”
1.编译应用程序
编译应用程序就是把一种应用程序制成一 种可执行文件，即.EXE文件。措施是单击“文 件”菜单中旳“生成Timerapp.exe”选项，出 现“生成工程”对话框，在其中输入 Timerapp.exe，然后单击“拟定”按钮，程序 即被编译在磁盘上，这么该应用程序就能够脱 离VB环境，在操作系统下单独运营了。
）。
46
2.2.3 MsgBox语句和函数旳使用
在编写程序过程中，为了对顾客旳操 作予以一定旳提醒或反馈，经常需要在 屏幕上显示某些提醒信息、警告信息、 问询信息或错误消息等提醒，VB提供旳 MsgBox命令就能够实现这些功能，它 不但能够向顾客传送信息，还能够接受 顾客在对话框上旳选择，以此作为程序 继续执行旳根据。
m=m-1 2. 赋值号“=”左边必须是变量名或对象属性， “=”右边是体现式，其值能够是常量、变量、函 数或是它们旳混合运算式。例如: x=x+y b=1 c=b*2+2
45
习题 P47 一 、
7. 下列赋值语句正确旳是（ A. A=B+C B. B+C=A C. –B=A D. 2=A+B 答案：A
30
（9）在“共享文件”对话框，顾客可将给定旳文件设置成 共享，然后单击“下一步”按钮。
VB编程中的精确计时及定时
VB高精度计时器编程在很多场合下编程（例如工业控制、游戏）中需要比较精确的记时器，本文讨论的是在VB下实现记时器的若干方法以及它们的精度控制问题。
在VB中最常用的是Timer 控件，理论上它的记时精度可以达到1ms(毫秒)。
但实际上Timer控件的计时精度无法保证，对于1s的定时事件，也往往会出现50ms以上的计时误差，这对于脉冲信号的采样是不能容忍的。
它只适用于对于精度要求不太高的场合。
这里介绍的是两中利用Windows API函数实现精确记时的方法。
一高性能频率记数法利用这种方法要使用两个API函数QueryPerformanceFrequency和QueryPerformanceCounter。
1、QueryPerformanceFrequency(Frequency)函数其调用格式为：QueryPerformanceFrequency(Frequency) ，调用该函数之后将计算机内部系统定时器的时钟频率存放于变量Frequency中，在VB语言中，可将Frequency定义为Currency类型。
所获取频率值的单位为：HZ函数调用成功后返回非0值，如果安装的硬件不支持高精度计时器，返回02、QueryPerformanceCounter(Counter)函数其调用格式为QueryPerformanceCounter(Counter)，调用函数之后，将计算机内部系统定时器的时钟计数值存放于变量Counter中，在VB语言中，可将Counter定义为Currency 类型。
所获取计数值的单位为：个函数调用成功后返回非,0值，如果安装的硬件不支持高精度计时器，返回0分别调用两次QueryPerformanceCounter()函数，并利用两次获得的计数之差除以调用QueryPerformanceFrequency(Frequency)函数所获取的时钟频率，就可以精确计算出两次计数所经过的时间，单位为秒，可以精确到微秒级。
VisualBasic时间日期的使用-----课程设计
课程设计报告课程名称： Visual Basic 设计题目： 时间日期的使用 班 级： 组 员： 指导教师：X X X X 职业技术教育中心校二○○○○○○七～二○○○○○○八 年度 第二学期目录题目分析……………………………………………………………………（ 1 ）窗体设计……………………………………………………………………（ 1 ）属性代码实现………………………………………………………………（ 3 ）常见问题分析………………………………………………………………（ 4 ）心得体会……………………………………………………………………（ 4 ）参考资料……………………………………………………………………（ 5 ）课程设计报告：题目分析：一、题目分析题目要求：在“日期时间”窗体上添加5个命令按钮，功能如下单击“星期查询”按钮，切换到“星期查询”窗体；该窗体中的5个标签分别用于显示提示信息、说明信息或输出结果。
从3个组合框中选择相应的年份、月份和日期后，单击“确定”按钮可在相应的标签中显示日期和对应的星期。
单击“返回”按钮返回到启动窗体。
单击“倒计时”按钮，切换到“倒计时”窗体。
在该窗体的3个文本框中分别输入小时、分钟和秒，单击“计时”按钮对输入时间进行倒计时处理，剩余时间显示在标签中，单击“停止”按钮停止计时。
单击“返回”按钮回到“日期时间”窗体。
单击“秒表”按钮，切换到“秒表”窗体。
单击“开始”按钮，以秒表的形式进行计时；单击“返回”按钮返回到启动窗动。
单击“闹钟”按钮，切换到“闹钟”窗体。
进入“闹钟”窗体后，在相应文本框中输入时分秒时间，一旦系统时间达到设定的闹钟时间，闹铃持续响，直至关闭（闹钟无效）。
单击“返回”按钮返回到“日期时间”窗体。
单击“退出”按钮结束程序运行：二、窗体设计窗体设计：总窗口属性列表对象属性 属性值 命令按钮1Caption 星期查询 名称Command1 命令按钮2Caption 倒计时 名称Command2 命令按钮3Caption 秒表 名称Command3 命令按钮4Caption 闹钟 名称Command4 命令命令按钮按钮5Caption 退出 名称Command5对象 属性 属性值 标签1 caption 设计倒计设计倒计时时 标签2 caption 倒计时 标签3 caption 秒 标签4 caption 剩余时间 文本框1Text1空对象 属性 属性值 标签1 caption 年份 标签2 caption 月份 标签3 caption 日期 组合框1 名称 Combo1 组合框2 名称 Combo2 组合框3 名称 Combo3 文本框 名称 空 Command1 名称 确定 Command2名称返回文本框2 Text2 空Command1 名称计时Command2 名称停止Command3 名称返回对象属性属性值Lable1 Caption 空Command1 名称开始Command2 名称停止Command3 名称返回对象属性属性值Lable1Caption 当前时间Lable2 空Lable3 输入设定时间Lable4 时Lable5 分Lable6 秒Text1 空Text2 空Text3 空Check1 时钟有效Command1 重新设定Command2 返回三、属性代码实现总窗口Private Sub Command1_Click()Form1.HideForm2.ShowEnd SubPrivate Sub Command2_Click()Form1.HideForm3.ShowEnd SubPrivate Sub Command3_Click()Form1.HideForm4.ShowEnd SubPrivate Sub Command4_Click()Form1.HideForm5.ShowEnd SubPrivate Sub Command5_Click()EndEnd Sub星期查询Dim year1 As Integer, month1 As Integer, day1 As Integer Dim yes_no As BooleanPrivate Sub Combo1_Click()If Combo1.ListIndex = -1 ThenCombo1.ListIndex = 0End Ifyear1 = Val(Combo1.Text)Combo2.Text = "月份"Combo3.Text = "日期"yes_no = (((year1 Mod 4 = 0) And (year1 Mod 100 <> 0)) Or (year1 Mod 400 = 0))End SubPrivate Sub Combo2_click()Dim daynum As Integer, i As IntegerIf Combo2.ListIndex = -1 ThenCombo2.ListIndex = 0End Ifmonth1 = Val(Combo2.Text)Combo3.Text = "日期"Combo3.ClearSelect Case month1Case 1, 3, 5, 7, 8, 10, 12daynum = 31Case 4, 6, 9, 11daynum = 30Case 2If yes_no = True Thendaynum = 29Elsedaynum = 28End IfEnd SelectFor i = 1 To daynum Step 1Combo3.AddItem Str(i)Next iEnd SubPrivate Sub Combo3_click()If Combo3.ListIndex = -1 ThenCombo3.ListIndex = 0End Ifday1 = Val(Combo3.Text)End SubPrivate Sub Command1_Click()Dim data1 As String, wkday As Stringdata1 = Str(year1) & "/" & Str(month1) & "/" & Str(day1) Label4.Caption = Str(year1) & "年" & Str(month1) & "月" & Str(day1) & "日是" & "星期" & Str(Weekday(data1) - 1)Private Sub Command2_Click() Form2.HideForm1.ShowEnd SubPrivate Sub Form_Load()Dim i As IntegerFor i = 1975 To 2050 Step 1 Combo1.AddItem Str(i)Next iFor i = 1 To 12 Step 1Combo2.AddItem Str(i)If Combo1.ListIndex = -1 Then year1 = Year(Now)End IfIf Combo2.ListIndex = -1 Then month1 = Month(Now) End IfIf Combo3.ListIndex = -1 Then day1 = Month(Now)Next iEnd Sub计时器Private Sub Command1_Click()If Val(Text1.Text) < 1 ThenMsgBox "输入的时间有误", 16, "提示"Text1.Text = ""Text1.SetFocusElseLabel6.Caption = " " & Text1.TextTimer1.Enabled = TrueEnd IfCommand1.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseText1.Text = ""Text1.SetFocusLabel6.Caption = ""Command1.Enabled = True Command2.Enabled = FalseEnd SubPrivate Sub Command3_Click() Form3.HideForm1.ShowEnd SubPrivate Sub Timer1_Timer()Dim time1 As Integertime1 = Val(Label6.Caption)Label6.Caption = Str(time1 - 1)If time1 = 1 Then时间到！！", 64, "提示"MsgBox "时间到Text1.Text = ""Text1.SetFocusLabel6.Caption = ""Timer1.Enabled = FalseEnd IfEnd Sub秒表Dim time1 As DatePrivate Sub Command1_Click() Timer1.Enabled = Truetime1 = "00:00:00" Command1.Enabled = False Command2.Enabled = True End SubPrivate Sub Command2_Click() Timer1.Enabled = False Command1.Enabled = True Command2.Enabled = False End SubPrivate Sub Command3_Click() Form4.HideForm1.ShowEnd SubPrivate Sub Timer1_Timer() time1 = DateAdd("s", 1, time1)Label1.Caption = time1End Sub.闹钟Private Sub Check1_Click()If Check1.Value = 1 ThenTimer1.Enabled = True ElseTimer2.Enabled = FalseTimer1.Enabled = False End IfEnd SubPrivate Sub Command1_Click() Timer1.Enabled = FalseTimer2.Enabled = FalseText1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusCheck1.Value = 0End SubPrivate Sub Command2_Click()Form5.HideForm1.ShowEnd SubPrivate Sub Form_Load()Text1.Text = ""Text2.Text = ""Text3.Text = ""Check1.Value = 0End SubPrivate Sub Timer1_Timer()If Time = Text1.Text & ":" & Text2.Text & ":" & Text3.Text Then Timer2.Enabled = TrueEnd IfEnd SubPrivate Sub Timer2_Timer()BeepEnd SubPrivate Sub Timer3_Timer()Label5.Caption = TimeEnd Sub四、常见问题分析1、应用计时器时，有时没有修改Interval属性，导致计时器不工作。
清华大学出版社初三上册vb第二课学案计时器和对象的位移
第二课学案算法：建立一个简单的VB 程序要求：准备素材背景图片“背景3.gif ”，前景图片“玛丽2.gif ”，①设计用户界面为窗体加载“背景3”图片，并调整窗体大小，在窗体合适位置上添加一个合适大小的图像框和一个Timer 计时器。
③编写事件过程代码双击窗体上的“计时器（Timer1），进入代码窗口。
Private Sub Timer1_Timer()Image1.Left = Image1.Left - 100End Sub④保存、运行并调试程序。
完成后，将作品分两次保存在D:\自己文件夹\昂首阔步.frm和D:\自己文件夹\昂首阔步.vbp）Y知识点:1.计时器Timer控件的功能是每隔一定的时间间隔就执行一次timer（）事件。
计时器Timer用来依照时间控制某些操作。
.计时器控件在设计阶段显示，而在程序运行阶段并不显示，是不可见的。
Interval属性：设置Timer事件发生的间隔时间属性。
单位为：毫秒；1秒=1000毫秒。
2.事件是在对象上发发生的动作。
3.对象的位置属性：Left是对象到左边框的距离属性，Top是对象到容器上边框的距离属性。
4.改变对象属性设置的一般代码格式为：对象.属性=属性值。
如: Image1.Left = Image1.Left – 100 其值是Image1.Left的当前值减100.5.Enabled属性:是可用性属性。
默认值：Tuer，当属性值为False，计时器不可用。
6.VB程序中语句书写规则P11（1）VB程序中的语句不区分字符的大小写（2）一条语句可以写在同一行，也可以写在多行上，续行符合是“_”（空格与下划线）（3）一行也可以写多条语句，但是要用冒号分隔，每行最多允许有255个字符（4）以英文的单引号“ ’ ”或以rem开头的语句是注释语句，注释语句对程序的有关内容只起注释作用，计算机并不执行。
以rem开头的注释语句必须单独占用一行。
编写VB程序时，除了要按VB语法规则书写程序代码，还要养成良好习惯，每行前面要相应缩进几格，尽量常用注释语句，使自己的程序代码正确、精简、易读。
定时器的vb课程设计
定时器的vb课程设计一、课程目标知识目标：1. 学生能理解定时器的概念及其在Visual Basic（VB）编程中的应用。
2. 学生能掌握定时器控件的基本属性、事件及其设置方法。
3. 学生能了解定时器与程序其他控件之间的协同工作原理。
技能目标：1. 学生能独立创建定时器控件，并为其编写事件处理程序。
2. 学生能通过设定定时器的Interval属性，实现精确的时间控制功能。
3. 学生能运用定时器控件完成实际编程任务，如制作倒计时器、电子时钟等。
情感态度价值观目标：1. 学生培养对计算机编程的兴趣，提高学习积极性。
2. 学生在学习过程中，培养解决问题的耐心和毅力，树立克服困难的信心。
3. 学生通过编程实践，认识到编程对实际生活的帮助，提升创新意识和实际操作能力。
课程性质：本课程为VB编程的实践操作课程，侧重于定时器控件的应用，结合实际编程任务，锻炼学生的编程技能。
学生特点：学生处于初中或高中年级，对计算机编程有一定的基础知识，对实际操作有较高的兴趣。
教学要求：教师应注重理论与实践相结合，通过详细的讲解、示范和指导，帮助学生掌握定时器控件的使用，培养学生编程思维和实际操作能力。
同时，关注学生的个体差异，提供有针对性的辅导，确保课程目标的实现。
在教学过程中，关注学生的情感态度，激发学生的学习兴趣，培养良好的学习习惯。
二、教学内容1. 定时器控件基础知识：- 定时器控件的作用和原理- 定时器控件的属性（如Interval、Enabled等）- 定时器控件的事件（如Timer）2. 定时器控件的应用实例：- 制作倒计时器- 电子时钟- 动画效果实现3. 教学内容的安排和进度：- 第一课时：介绍定时器控件的基础知识，使学生了解定时器的作用和基本属性、事件。
- 第二课时：以制作倒计时器为例，讲解定时器控件在实际编程中的应用。
- 第三课时：拓展定时器控件的应用，如制作电子时钟、动画效果等。
4. 教材章节及内容列举：- 第一章：Visual Basic编程基础- 第一节：定时器控件概述- 第二节：定时器控件属性和事件- 第二章：定时器控件的应用实例- 第一节：倒计时器制作- 第二节：电子时钟制作- 第三节：动画效果实现教学内容依据课程目标进行科学性和系统性组织，以实例为主线，结合教材章节，逐步引导学生掌握定时器控件的使用。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
教学
程：
一、新
课
导
入
教
师：
同学
们，
大家
平时
有没有注意到很多酒店门口都有一个LED电子屏，这类LED电子屏上的文字一般是
怎么移动的呢你留意过它还有什么特点吗
学生：……
(教师引导学生回答，然后再总结)
教师：是的，LED电子屏的文字是按一定的方向移动的，而且这些文字隔一定的时间
段又出现，也就是说这是有规律地每隔一段时间再次出现移动的文字。
其实通过这
门课学习的软件我们也可以制作出类似的效果。
(教师运行模仿LED电子屏文字移动的程序让学生观看)
教师：大家可以看到，这个例子用到了我们以前学过的标签，除标签外，它还用到
了计时器。
这节课我们将要学习基础控件计时器的使用。
二、新课知识
1、计时器的特点
计时器控件通过Timer 事件，可以有规律地每隔一段时间执行一次事件过程代码。
此外，计时器控件是一个不可见控件，也就是说在设计阶段，你能够看到它，但程序运行时它不会在界面上出现，是不可见的。
2、计时器的常用属性
（1）Enabled 属性：计时器的Enabled 属性也是较常用的属性，该属性决定计时器控件是否能对时间的推移做出响应。
若将Enabled 设置为 False ，此时计时器控件无效，即Timer事件不会触发；当Enabled设置为 True时，计时器控件有效。
由此看来，Enabled相当于是个启动计时器控件的一个开关。
（2） Interval属性：可以在设计时或在运行时设置计时器控件的 Interval 属性。
这个属性可以设定Timer 事件触发的时间间隔，其时间间隔以毫秒（ms）为单位，取值范围为0~65535毫秒。
一般设为1000毫秒，这样可以每秒种触发一次Timer 事件。
如果Interval属性的值设置为 0（默认值），即使Enabled 属性的值为True，计时器控件也无效。
3、计时器的Timer事件
计时器的事件只有一个，为Timer事件。
Timer事件的触发时间是从Interval 属性的设置值开始，以后每隔这样一个时间段，就触发一次Timer事件。
需要说明的是当Interval 属性值为0时，计时器无效。
（教师在讲解以上三个知识点时也结合一些相关的操作）
4、教师演示制作文字移动例子的操作过程
教师实例演示模仿LED电子屏文字移动的例子的操作步骤，并结合计时器的常用属性和事件进行讲解，加深学生对理论知识的理解。
5、学生课堂练习（同学们至少要选其中的两道来做）
（1）、设计一个应用程序，实现标签1的文字“欢迎参观化职中”循环地从左往右移动，界面可自行设计。
（2）、设计一个应用程序，实现标签1的“欢迎光临”文字颜色每秒随机改变颜色，并添加两个按钮控件来控制文字颜色的开始改变和停止改变。
（3）、制作一个倒时器，可由用户输入相关的秒数，然后进行倒计时，当秒数为0时停止倒计。
6、课堂小结
本节课主要认识了时钟控件的两个基本属性Enabled属性和Interval属性以及Timer事件。
我们可以利用该控件来实现一些特殊的效果，如文字移动等。
7、课后作业的布置
课本【例5－7】设计一个应用程序，界面如下图所示。
当程序运行时在单击窗体输入姓名后，标签框1中文字“您好！XX”从右向左移动，标签框2中文字“欢迎学习Timer控件”从左向右移动，且文字颜色每秒随机改变一次。
课后反思。