程序设计39.ppt

Visual Basic程序设计;2.1 时钟程序设计任务 2.1.1 任务描述 创建一个倒计时的简单应用程序。功能是：当在文本框内输入倒计时的分钟数后，单击“开始”按钮就开始倒计时，倒计时结束时，弹出“时间到！”的信息框。 ;2.1.2 界面设计;;2. 向窗体上添加控件 添加的控件有： 一个标签 一个文本框 一个命令按钮 一个计时器控件 见下页图。;;3 设置对象属性 （1）Form1窗体 Caption——”倒计时器” （2）Label1控件 Caption——”请输入倒计时的分钟数” AutoSize——True （3）Command1控件 Caption——”开始” （4）Text1控件 Alignment——”2-Center” （5）Timer1控件 Intervel——”1000” ;2.1.3 代码设计 1.进入代码编辑器窗口 见下页图;;2. 书写程序代码 （1）代码编辑器“通用”部分代码 Dim m As Long ’声明一个变量 （2）Command1控件代码 使控件计时器开始工作 Timer1.Enabled = True 将分钟数转换为秒数，并保存在变量m中 m = Val(Text1.Text) * 60 改变标签控件的标题 Label1.Caption = 现在开始倒计时 使命令按钮不可见 Command1.Visible = False ;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.Caption = 请输入倒计时的分钟数 Text1.Text = 清空文本框 Command1.Visible = True 使命令按钮可见 Else 否则显示倒计时数 Text1.Text = m End If End Sub;2.1.4 保存和运行程序 1. 保存工程 （1）单击“文件”菜单中的“保存工程”或单击工具栏上的“保存工程”按钮，系统弹出“文件另存为”对话框，提示用户输入窗体文件名。将窗体文件名该为Timer.frm。 （2）紧接着出现“工程另存为”对话框，以来保存工程文件。将文件名改为Timerapp.vbp，然后单击“保存”按钮。 （演示） 2.运行程序 （演示）;习题 教材 P47 一、; 2.1.5 编译与打包 1.编译应用程序 编译应用程序就是把一个应用程序制成一个可执行文件，即.EXE文件。方法是单击“文件”菜单中的“生成Timerapp.exe”选项，出现“生成工程”对话框，在其中输入Timerapp.exe，然后单击“确定”按钮，程序即被编译在磁盘上，这样该应用程序就可以脱离VB环境，在操作系统下单独运行了。 （演示）;习题 教材P48 二、;习题 教材P48 二、; 2. 打包 如上所述，.EXE文件可以脱离VB环境，在操作系统下单独运行，但不能简单地认为这样就可以将该.EXE文件发布给他人，或者可以拷贝到活动磁盘上带到任意的系统上去使用。因为在执行已编译的代码时，VB要运行特定的运行库，但每台计算机安装的运行库不一定相同，因此必须创建一个安装程序来发布文件。;创建安装程序的操作步骤： （1）在“开始”菜单的“Microsoft Visual Basic 6.0中文版”程序组中，选择“Microsoft Visual Basic 中文版工具”，然后在其下级菜单中选择“PackageDeployment向导”，打开“打包和展开向导”对话框。（见下图）;（2）单击上图中的“浏览”按钮，出现“打开工程”对话框，选择要打包的文件，单击“打开”按钮。 ;（3）系统返回“打包和展开向导”，单击图中的“打包”按钮， 如果工程还没有编译成可执行文件，系统会弹出对话框提示 你进行编译，然后已编译，则弹出“包类型”对话框。;;