VisualBasic程序设计项目化教程 项目2 制作折扣计算器.ppt

1、Visual Basic 程序设计项目化教程,主编 管小清 郭贺彬,项目二 制作折扣计算器,项目目标： 本项目制作一个折扣的计算器，通过输入商品单价、数量和相应的折扣便可以计算出应付的金额；主要用来学习VB中控件的画法，控件的格式以及简单的计算等。,项目二 制作折扣计算器,项目主要知识点： 1常用数据类型 整型：特点、意义、表示范围 单精度：特点、意义、精确度 双精度：特点、意义、精确度 字符型：特点、意义 逻辑性：特点、取值 2变量 定义和特点 类型（与数据类型相对应） 命名方法 使用方法,项目二 制作折扣计算器,3常量 定义和特点（大小写不敏感） 4单击事件和常用属性 5常用控件（容器）

2、标签（Label） 文本框（TextBox） 属性、事件和方法 命名按钮 （CommandButton） 6窗体控件的画法 7快速正确输入程序代码技巧,项目实施步骤：,阅读相关基础知识 界面设计 窗体设计 控件属性设置 程序设计 编程初步 程序代码 程序调试，功能完善 保存项目工程和再次打开工程,2.1 第 1步：基础知识概述,2.1.1 基本数据类型 VB中常用的数据类型见表2-1所示。 1. 整型数 定义：可以是正整数、负整数或0。 分类：整数Integer和长整数Long两种类型，Integer取值范围为：-3276832767，long的取值范围：-214748364821474836

3、47。 2. 浮点数 定义：浮点数也称实型数或实数，是带有小数部分的数。 分类：单精度数（Single），双精度数（Double） 表示法：定点表示法（例：1.2，3，浮点表示法（如：1.2102 34.56E+28 ）,2.1 第 1步：基础知识概述,3. 字符型（String） 定义：字符型数据简称字符串，是一个字符的序列。通常理解为所有放在“”之间的若干个字符。 组成：英文字母，汉字，数字以及特殊字符都可以作为字符 分类：定长字符串和变长字符串 34.56E+28等价于 34.54610,28,其他数据类型：日期型，字节型，对象型，货币型。,4. 逻辑型（Boo

4、lean）定义：逻辑型数据只有两个值：真（True），假（False），常用来表示逻辑判断的结果。,2.1 第 1步：基础知识概述,表2-1 VB常用数据类型,2.1.2 常用控件,1. 标签 （Label） 标签控件作用主要是：输出文本，显示提示信息，输出文章、提示用户信息不能编辑、修改等等，所以Label控件常用来输出标题、显示处理结果、标识窗体上的对象，或标识那些本身不带Caption属性的控件，如文本框控件TextBox 等。Label控件一般不用来触发事件，其常用的属性有：Name属性（不可缺省）、Caption属性（主要属性）、Alignment属性、AutoSize属性、Back

5、Style属性等。具体的参见下表2-2：,表2-2 Label标签常用属性,2.1.2 常用控件,2. 文本框（TextBox） 文本框控件用来接收用户输入的信息。通常用作接收输入的参数、变量和初值、查询的信息以及程序运行所必须的数据。TextBox接收到的信息会显示在文本框中，在文本框中可以编辑、修改输入的信息。 TextBox具有多行显示功能，根据控件尺寸和输入信息的多少自动换行。也可在程序运行时为Text属性赋值，起输出信息的作用。 TextBox控件常用的事件有：Change事件，在文本框中输入新信息或在程序中改变Text属性值时，都会触发该事件；LostFocus事件，按下Tab键或

6、用鼠标单击其他对象使焦点离开该文本框时，触发该事件，通常可用该事件检查文本框的内容；文本框不支持鼠标事件。 TextBox控件常用的属性如下表2-3所示。,表2-3 TextBox控件常用的属性,2.1.2 常用控件,3. 命令按钮 （CommandButton） 命令按钮用来接收用户操作的信息，触发相应的事件过程。它是用户与程序交互的最简便的方法。命令按钮触发的事件主要是Click（单击）和DblClick（双击）等。 Command的常用属性如下表2-4所示。,表2-4 Command的常用属性,设置光标在对象上时的形状，有015可选，取值为2时，光标移动到CommandButton控件上

7、的时候变成十字线,2.1.2 常用控件,4. 快速输入程序代码 (1)当输入对象的属性时，对象名后输入“.”后，会自动提示该对象的所有属性，如果输入点号后系统没有任何反应，说明对象输入有误； (2)为了加快输入的速度，当输入一个对象名时，可以输入第一个字母后，按CTRL+J组合键，系统会自动提示所有的该字母开头的所有对象名，这样就避免读者输入错误的对象名，同时也能提高程序输入的速度。,2.2 第2步：界面设计,2.2.1 任务1：窗体设计 添加窗体Form1，在窗体上添加4个标签（Label1Label4）和4个文本框（Text1Text4）。添加两个命令按钮（Command1Command2

8、），从工具箱中拖动标签、文本框和按钮，并在Form1窗体上用鼠标画出大小适当位置合适的控件布局，如图2-1所示。,2.2 第2步：界面设计,图 2-1 界面设计,2.2 第2步：界面设计,2.2.2 任务2：控件属性设置 属性设置方法如下图（以Label1的设置方法为例）,图2-2 设置控件属性,2.2 第2步：界面设计,所有控件属性设置参见下表2-5。 表2-5 案例控件属性设置参数,2.2 第2步：界面设计,界面设置完毕后如下图2-3所示：,图2-3 参数设置后的界面,2.2 第2步：界面设计,在命令按钮中可以添加快捷方式，添加方式是在命令按钮的Caption属性的后面添加“&代码”后缀，

9、例如：在项目一中的 的设置方法如下图2-4所示：,图 2-4 为按钮添加快捷方式,2.3 第3步：程序设计,2.3.1 任务1：编程初步 变量 定义：在程序运行中其值可以变化的量。 在VB程序运行期间，对于输入的数据、中间结果以及最终的运算结果等，都用变量临时存储在计算机的内存中，每个不同的变量都用变量的标识符来区分，变量的标识符就是变量，它实际代表在程序执行过程中值可以改变的内存单元。可以这样理解：每个变量就是一个盒子（内存单元），它有一个名字，盒子中存放的东西就是数据。 在程序中，变量就是输入的数据，参加运算的数据，运行结果等临时数据存放的内存单元的名称，本身没有实际意义，只是临时的代号。

10、 变量有两个特性：名字和数据类型。（举例：名字：a,sum,result等；数据类型：整型变量，实型变量，字符型变量等） 分类：属性变量和内存变量（举例：label控件的Caption变量 , Textbox控件的Name属性等为属性变量，a,sum, result等为内存变量）,2.3 第3步：程序设计,变量的声明： 语法格式 Dim | Private | Static | Public As , As 例： Dim m As Integer 声明一个整型变量，变量名为m Private sum As Single 声明一个单精度类型变量，变量名为sum Static Yn As Bool

11、ean 声明一个布尔型变量，变量名为Yn 注意： 1、变量名有1255个字符组成，是数字，英文字母或下划线的组合。 2、变量名必须以英文字母开头，中间不能有其他字符 变量的命名规则 3、不能用VB的关键字作变量名，如：Print，Caption 等 4、变量名在同一个范围内必须是唯一的 5、变量名中不能包含小数点，如不能为int.sum 6、变量名尽量做到简单明了，VB中不区分大小写 变量的类型： 变量的类型对应于数据类型，即分为整型变量、单精度型变量、字符型变量等。,2.3 第3步：程序设计,常量 常量定义：在程序运行中，其值始终保持不变的量称为常量。 用户自定义常量的格式： public|

12、private constas= 提示：“ ”中的内容是可以省略的。 如：Const pi=3.1415926 定义一个浮点型常量，常量名为pi Const strName= John 定义一个字符型常量，常量名为strName 用法：常量一经声明，在其后的代码中只能引用，不能改变。,2.3 第3步：程序设计,2.3.2 任务2：程序代码 在Form1窗体上右键，选择【查看代码】，进入代码窗口，在代码窗口的左面下拉框中选择“Command1”对象名，右边下拉框中选择“Click”事件，系统自动生成了如下的代码结构： Private Sub Command1_Click() 用户写代码部分 En

13、d Sub 下面我们在“用户代码部分”补充结构以外的用户代码。,2.3 第3步：程序设计,Private Sub Command1_Click( ) 单击“计算”按钮时执行下面代码 Dim UnitPrice As Single 声明UnitPrice变量用来存放商品单价 Dim Quantity As Integer 声明Total变量用来存放商品数量 Dim Discount As Single 声明Discount变量用来存放商品折扣 Dim Money As Single 声明Money变量用来存放实际付款 UnitPrice = Val(Text1.Text) val（）是一个函数，

14、返回包含于字符串内的数字Quantity = Val(Text2.Text) Discount = Val(Text3.Text) If Text1.Text = Then MsgBox 请输入商品单价!, 48, 警告 若用户未输入单价，用消息输出框显示警告信息 Text1.SetFocus 将焦点移至指定的控件Text1 Exit Sub End If If Text2.Text = Then Text2.Text = 1 当用户未输入数量或折扣时，我们均认为是1，防止因用户忽略输入内容而导致程序无法继续 If Text3.Text = Then Text3.Text = 1 Money

15、= UnitPrice * Quantity * Discount 计算实际付款金额 Text4.Text = Money 将付款金额显示在Text4中 End Sub,2.3 第3步：程序设计,单击菜单【运行】/【启动】，运行程序，程序运行后如下图2-5所示： 图2-5 程序运行结果图,2.3 第3步：程序设计,Private Sub Command2_Click() 双击“清除”按钮后写代码，所有的Textbox清空 Text1.Text = Text2.Text = Text3.Text = Text4.Text = End Sub,2.4 第4步：程序调试，功能完善,理想情况测试 输入

16、一组合理数据，即输入合理的单价、数量和相应的折扣值，验证输出结果是否满足要求？ 输入非法的数据，查看有什么样的输出？并提出改进方案。 如果漏输入数据会出现什么样的情况，请验证后回答。,2.5 第5步：保存项目工程和再次打开工程,运行调试结束后，保存项目二的工程文件，单击菜单项【文件】/【保存工程】，浏览到需要保存的位置后，新建文件夹，命名为“项目二_简易计算器”，保存各个文件，注意保存的时候分别保存了窗体文件和工程文件，窗体文件的文件名为：Form1.frm，工程文件的工程名为：工程1.vbp，如下图2-6所示，用户可以修改文件名。,图 2-6 保存文件,项目总结：,常用的数据类型的使用，注意什么情况下使用何种数据类型 控件的画法，如何排列控件 控件的属性设置方法 变量的命名和变量的使用方法 数据的有效性验证 程序调试能力培养,操作练习：,设计程序，要求输入圆半径的值，求出圆的面积。（程序界面如图2-7所示，学生自己完成程序）,图2-7 程序界面,复习思考：,一、填空题 1. 是在程序运行中其值可以变化的量。 2.在程序运行