程序设计可视化.pdf

Visual Basic 程序设计 第2章 可视化编程初步 1 2.1 时钟程序设计任务 2.1.1 任务描述 创建一个倒计时的简单应用程序。功能是： 当在文本框内输入倒计时的分钟数后，单 击 “开始”按钮就开始倒计时，倒计时结 束时，弹出 “时间到！”的信息框。 2 2.1.2 界面设计 1. 界面设计 新建工程并创建窗体。 见下页图。（演示） 3 4 2. 向窗体上添加控件 添加的控件有： 一个标签 一个文本框 一个命令按钮 一个计时器控件 见下页图。 5 6 3 设置对象属性 （1）Form1窗体 Caption——”倒计时器” （2）Label1控件 Caption——”请输入倒计时的分钟数” AutoSize——True （3）Command1控件 Caption——”开始” （4）Text1控件 Alignment——”2-Center” （5）Timer1控件 Intervel——”1000” 7 2.1.3 代码设计 1.进入代码编辑器窗口 见下页图 8 9 2. 书写程序代码 （1）代码编辑器 “通用”部分代码 Dim m As Long ’声明一个变量 （2）Command1控件代码 使控件计时器开始工作 Timer1.Enabled = True 将分钟数转换为秒数，并保存在变量m中 m = Val(Text1.Text) * 60 改变标签控件的标题 Label1.Caption = 现在开始倒计时 使命令按钮不可见 Command1.Visible = False 10 2. 书写程序代码 （3）Timer1控件代码 Private Sub Timer1_Timer() 当timer1.enabled=true时，本程序每秒自动执行一次 每运行一次，就将m变量的值减1秒 m = m - 1 If m 0 Then 如果倒计时结束，则 Timer1.Enabled = False 关闭计时器 MsgBox 时间到！, 0, 倒计时 Label1.Capt