资源预览内容
第1页 / 共129页
第2页 / 共129页
第3页 / 共129页
第4页 / 共129页
第5页 / 共129页
第6页 / 共129页
第7页 / 共129页
第8页 / 共129页
第9页 / 共129页
第10页 / 共129页
亲,该文档总共129页,到这儿已超出免费预览范围,如果喜欢就下载吧!
资源描述
1,Visual Basic 程序设计,第2章 可视化编程初步,2,2.1 时钟程序设计任务 2.1.1 任务描述 创建一个倒计时的简单应用程序。功能是:当在文本框内输入倒计时的分钟数后,单击“开始”按钮就开始倒计时,倒计时结束时,弹出“时间到!”的信息框。,3,2.1.2 界面设计,1. 界面设计 新建工程并创建窗体。 见下页图。(演示),4,5,2. 向窗体上添加控件 添加的控件有: 一个标签 一个文本框 一个命令按钮 一个计时器控件 见下页图。,6,7,3 设置对象属性 (1)Form1窗体 Caption”倒计时器” (2)Label1控件 Caption”请输入倒计时的分钟数” AutoSizeTrue (3)Command1控件 Caption”开始” (4)Text1控件 Alignment”2-Center” (5)Timer1控件 Intervel”1000”,8,2.1.3 代码设计 1.进入代码编辑器窗口 见下页图,9,10,2. 书写程序代码 (1)代码编辑器“通用”部分代码 Dim m As Long 声明一个变量 (2)Command1控件代码 使控件计时器开始工作 Timer1.Enabled = True 将分钟数转换为秒数,并保存在变量m中 m = Val(Text1.Text) * 60 改变标签控件的标题 Label1.Caption = “现在开始倒计时“ 使命令按钮不可见 Command1.Visible = False,11,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,12,2.1.4 保存和运行程序 1. 保存工程 (1)单击“文件”菜单中的“保存工程”或单击工具栏上的“保存工程”按钮,系统弹出“文件另存为”对话框,提示用户输入窗体文件名。将窗体文件名该为Timer.frm。 (2)紧接着出现“工程另存为”对话框,以来保存工程文件。将文件名改为Timerapp.vbp,然后单击“保存”按钮。 (演示) 2.运行程序 (演示),13,习题 教材 P47 一、,1. 在Visual Basic的集成开发环境中创建Visual Basic应用程序时,除了工具箱窗口、窗体设计窗口、属性窗口外,必不可少的窗口是( )。 A. 窗体布局窗口 B. 立即窗口 C. 代码窗口 D. 监视窗口 答案:C,14,2.1.5 编译与打包 1.编译应用程序 编译应用程序就是把一个应用程序制成一个可执行文件,即.EXE文件。方法是单击“文件”菜单中的“生成Timerapp.exe”选项,出现“生成工程”对话框,在其中输入Timerapp.exe,然后单击“确定”按钮,程序即被编译在磁盘上,这样该应用程序就可以脱离VB环境,在操作系统下单独运行了。 (演示),15,习题 教材P48 二、,2. 简述建立可执行文件的步骤。 答:单击“文件”菜单中的“生成Timerapp.exe”选项,出现“生成工程”对话框,在其中输入工程名.exe,然后单击“确定”按钮,程序即被编译在磁盘上,这样该应用程序就可以脱离VB环境,在操作系统下单独运行了。,16,习题 教材P48 二、,3. Visual Basic应用程序中包括哪些类型的文件? 答:可能包含下列不同类型的文件: 1. 跟踪所有部件的工程文件(.vbp) 2. 每个窗体的文件(.frm) 3. 每个窗体的二进制数据文件(.frx) 4. 每个类模块的文件(.cls),可选 5. 每个标准类模块的文件(.bas),可选 6. 一个或多个包含Activex控件的文件(.ocx),可选。 7. 单个资源文件(.res),可选。,17,2. 打包 如上所述,.EXE文件可以脱离VB环境,在操作系统下单独运行,但不能简单地认为这样就可以将该.EXE文件发布给他人,或者可以拷贝到活动磁盘上带到任意的系统上去使用。因为在执行已编译的代码时,VB要运行特定的运行库,但每台计算机安装的运行库不一定相同,因此必须创建一个安装程序来发布文件。,18,创建安装程序的操作步骤: (1)在“开始”菜单的“Microsoft Visual Basic 6.0中文版”程序组中,选择“Microsoft Visual Basic 中文版工具”,然后在其下级菜单中选择“Package&Deployment向导”,打开“打包和展开向导”对话框。(见下图),19,(2)单击上图中的“浏览”按钮,出现“打开工程”对话框,选择要打包的文件,单击“打开”按钮。,20,(3)系统返回“打包和展开向导”,单击图中的“打包”按钮, 如果工程还没有编译成可执行文件,系统会弹出对话框提示 你进行编译,然后已编译,则弹出“包类型”对话框。,21,22,23,(4)选择“标准安装包”,以创建由setup.exe程序安装包。 然后单击“下一步”按钮,弹出“打包文件夹”对话框。,24,选择缺省项,然后单击“下一步”按钮。,25,在上图的对话框中,单击“是”按钮,弹出“包含文件”对话框。,26,这里列出同应用程序一起发布的文件,若用户还需要用到 其他一些文件和库,可以手工“添加”按钮加入这些文件。 然后单击“下一步”按钮。,27,(5)在“压缩文件选项”框,默认“单个的压缩文件”。如果 用户希望用软盘来发布应用程序,可选中“多个压缩文件” 选项,并且选择合适的磁盘大小。然后单击“下一步”按钮。,28,(6)在“安置程序标题”对话框,输入程序标题,然后单 击“下一步”按钮。,29,(7)在“启动菜单项”对话框,发布的程序可以通过单击 “开始”、“程序”、然后再选中该应用程序的组启动。单击 “下一步”按钮。,30,(8)在“安置位置”对话框,可选择应用程序的安置目录。 这里选择缺省设置,然后单击“下一步”按钮。,31,(9)在“共享文件”对话框,用户可将给定的文件设置成 共享,然后单击“下一步”按钮。,32,(10)在“已完成”对话框,单击“完成”按钮,系统开始生 成安置包程序。打包完成后弹出“打包报告”。,33,单击“关闭”按钮,完成操作。,34,2.1.6 安装运行 当用户需要在其它机器上运行已打包的程序时,必须进行程序安装。首先找到压缩包所在的目录,然后双击Setup.exe文件,Windows就会执行安装程序显示欢迎对话框,单击“确定”按钮后,系统将显示“安装程序”对话框。,35,单击“确定”按钮,开始安装。安装家属后,将在 Windows”开始”菜单对应该程序的地方添加一个 图标。如果单击“退出安装”按钮,安装程序将启 动应用程序删除工具来删除临时安装文件。,36,习题 P47 一 、,2. 应用程序打包后,其包文件的后缀为( )。 A. .exe B. .cab C. .tet D. .ocx 答案:B,37,习题 P48 一 、,10. 工程文件的后缀是( )。 A. .bmp B. .vbp C. .frm D. .bas 答案:B,38,2.1.7 VB应用程序开发的一般步骤 1.设计应用程序界面 2.设计对象属性 3.编写代码 4.保存和运行程序 5.编译和打包 6.安装运行,39,习题 教材P48 二、,1. 简述设计Visual Basic应用程序的步骤。 答:1.设计应用程序界面 2.设计对象属性 3.编写代码 4.保存和运行程序 5.编译和打包 6.安装运行,40,2.2 程序代码分析 VB应用程序涉及变量、赋值语句、MsgBox等概念,下面对它们进行 简要介绍。,41,2.2.1 变量 所谓变量就是可以改变的量,程序运行过程中可以不断改变它的值。变量具有名字和数据类型两个属性。变量的名字用于在程序中标识变量和使用变量的值,数据类型则标识变量中能保存哪种类型的数据。一个变量在一个时刻只能存放一个值,当新的数据存放到变量中时,原来的数据就不存在了。,42,在使用一个变量时,必须首先用Dim语句对它进行声明。例如 声明一个变量a,用来存储字符型数据 Dim a As String 声明一个变量b,用来存储整型数据 Dim b As Integer 声明一个变量c,用来存储双精度型数据 Dim c As Double 当执行Dim语句后,VB程序就会在计算机内预留一个位置,准备存放数据。,43,习题 P47 一 、,5. 在Visual Basic中,变量的默认类型是( )。 A. Integer B. Double C. Variant D. Currency 答案:C,44,2.2.2 赋值语句,赋值语句是程序设计中最基本、最常用的语句,当需要把数值、字符串表达式的运行结果保持到变量中,或者需要修改某个对象缺省属性值时,最常用的方法就是使用赋值语句,赋值语句的语句格式为: 变量名=表达式 或 对象名.属性名=表达式 例如:m=Val(Text1.Text)*60,45,赋值语句具有计算和赋值双重功能,它首先计算“=”(赋值号)右边的值,然后把结果赋值给“=”左边的变量。使用赋值语句应注意以下几点: 1. 不要把赋值号“=”与数学中的等号相混淆。等号表示两侧的值相等,而赋值号“=”是将一个值赋给一个变量。例如: m=m-1 2. 赋值号“=”左边必须是变量名或对象属性,“=”右边是表达式,其值可以是常量、变量、函数或是它们的混合运算式。例如: x=x+y b=1 c=b*2+2,46,习题 P47 一 、,7. 下列赋值语句正确的是( )。 A. A=B+C B. B+C=A C. B=A D. 2=A+B 答案:A,47,2.2.3 MsgBox语句和函数的使用 在编写程序过程中,为了对用户的操作给予一定的提醒或反馈,常常需要在屏幕上显示一些提示信息、警告信息、询问信息或错误消息等提示,VB提供的MsgBox命令就可以实现这些功能,它不仅可以向用户传送信息,还可以接收用户在对话框上的选择,以此作为程序继续执行的依据。,48,MsgBox命令称为消息对话框,它有两种格式,一种作为函数使用,需要返回值;另一种作为一般的命令语句使用,不需要返回值。 MsgBox函数格式: 变量=MsgBox(提示信息,对话框类型,对话框标题) MsgBox命令格式: MsgBox 提示信息,对话框类型,对话框标题 其中: (1)“提示信息”指定在对话框中出现的文本。 (2)“对话框标题”指定了对话框的标题。 (3)“对话框类型”用来指定对话框中出现的按钮和图标,一般有三个参数。 (4)MsgBox返回值指明了用户在对话框中选中了哪一个按钮。,49,“对话框类型”参数1出现的按钮,50,“对话框类型”参数2图标类型,51,“对话框类型”参数3默认按钮,52,函数返回值,53,例如: Private Sub Command1_Click() MsgBox “除数不能为0!“, vbOKCancel, “输入数据错误“ End,54,例如: Private Sub Command1_Click() a = MsgBox(“密码不正确“, 2 + 32 + 0, “标题“) If a = 3 Then End End If
网站客服QQ:2055934822
金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号