如何在VB程序中设计一个倒计时器.pdfVIP

。 时钟程序设计 1 任务描述 创建一个倒计时的简单应用程序。 功能是： 当在文本框内输入倒计时的分钟数后， 单击 “开 始 ” 按钮就开始倒计时，倒计时结束时，弹出 “时间到！ ” 的信 2 界面设计 添加的控件有： 一个标签 一个文本框 一个命令按钮 一个计时器控件 设置对象属性： Form1 窗体： Caption ——”倒计时器 ” Label1 控件： Caption ——”请输入倒计时的分钟数 ”、AutoSize ——True Command1控件： Caption ——”开始 ” Text1 控件： Alignment ——”2-Center ” Timer1 控件： Intervel ——”1000” 3 代码设计 1. 代码编辑器 通用“ ”部分代码： Dim m As Long ’声明一个变量 2.Command1控件代码： 使控件计时器开始工作 Timer1.Enabled = True 将分钟数转换为秒数，并保存在变量 m中 m = Val(Text1.Text) * 60 改变标签控件的标题 Label1.Caption = 现在开始倒计时 使命令按钮不可见 Command1.Visible = False 3.Timer1 控件代码： Private Sub Timer1_Timer() 当 timer1.enabled=true 时，本程序每秒自动执行一次 每运行一次，就将 m变量的值减 1 秒 精选资料，欢迎下载 。 m = m - 1 If m 0 Then 如果倒计时结束，则 Timer1.Enabled = False 关闭计时器 MsgBox 时间到！ , 0, 倒计时 Label1.Caption = 请输入倒计时的分钟数 Text1.Text = 清空文本框 Command1.Visible = True 使命令按钮可见 Else 否则显示倒计时数 Text1.Text = m End If End Sub 4 保存和运行程序 1. 保存工程 （1）单击 “文件 ”菜单中的 “保存工程 ”或单击工具栏上的 “保存工程 ”按钮，系统弹出 “文件另存 为 ”对话框，提示用户输入窗体文件名。将窗体文件名该为 Timer.frm 。 （2 ）紧接着出现 “工程另存为 ”对话框，以来保存工程文件。将文件名改为 Timerapp.vbp ，然 后单击 “保存 ”按钮。 2. 运行程序 单击工具栏上的启动按钮就可以运行该时钟程序了。 5 编译与打包 1. 编译应用程序 编译应用程序就是把一个应用程序制成一个可执行文件，即 .EXE 文件。这样程序被编译在 磁盘上，应用程序就可以脱离 VB 环境，在操作系统下单独运行了。 编译方法：单击 “文件 ”菜单中的 “生成 Timerapp.exe ”选项，出现 “生成工程 ”对话框， 在其中输入 Timerapp.exe ，然后单击 “确定 ”按钮就可以了。 2. 打包 如上所述， .EXE 文件可以脱离 VB 环境，在操作系统下单独运行，但不能简单地认为这样就 可以将该 .EXE 文件发布给他人，或者可以拷贝到活动磁盘上 带到任意的系统上去使用。因为在 执行已编译的代码时， VB 要运行特定的运行库，但每台计算机安装的运行库不一定相同，因此 必须创建一个安装程序来发布文 件。 6 安装运行 当用户需要在其它机器上运行已打包的程序时，