简易计数器的实现

简易计数器的实现——VB程序设计应用实例^[1]

张明明

摘要:论文介绍了一个VB程序设计应用实例——简易计算器，并从软件的功能概述、界面设计、对象属性设置以及程序代码设计一一进行了详细阐述，给出了软件的具体实现，对VB学习者进行实例开发具有良好的借鉴作用。

关键词:VB程序设计　简易计算器　事件过程　窗体/模块级变量

一、引言

通过VB程序设计应用实例的开发，可以帮助我们系统的应用VB中的知识点，提高学习VB的兴趣。在实例的选材上，尽量选取一些我们平时接触比较多的，经常使用的，便于实现的例子。特别是对于首次开发人员，成功后能极大满足我们的成就感，更加激发学习、钻研的兴趣。“计算器”无论是实物还是电子软件，人们都比较熟悉并经常使用。本文主要就简易计数器的实现展开分析。

二、“简易计数器”功能概述

由于是用于课堂教学，考虑到时间和知识限度，所以该“简易计数器”在功能设计上较为简单。使用“简易计算器”可以完成两个整数的加、减、乘、除4种基本的算术运算。鼠标按下“0～9”这10个键在文本框上显示运算数；按下“＋”“－”“＊”“＼”这4个键在文本框上显示运算符；按下“＝”这个键显示运算结果；“c”键用于清零。

三、“简易计数器”界面设计

图1　“简易计数器”界面

图1所示图片为该“简易计算器”界面。所添加的对象有:1个窗体对象，作为其他控件的载体，用于界面设计；1个文本框控件，用于显示运算数、运算符和输出结果；2个按钮控件数组，一个是“0～9”10个数字键组成的控件数组，用于输入数字，另一个是“＋”“－”“＊”“＼”4个运算符键组成的控件数组，用于输入运算符；2个按钮控件，一个是“＝”键，计算运算结果，另一个是“c”键用于清零。

对象添加完成后接下来是设置对象的位置、大小、格式等。在位置设置上特别是数字键、运算符键位置布置上考虑到了用户使用的习惯和使用的方便。在窗体以及控件的大小设置借鉴了实物计算器，比较符合人们的审美观。在格式上要注意对齐、间距大小。

四、对象属性设置

每个对象都可以用一组属性来描述其特征，可以通过属性窗口来设置，对象的外观和对应的操作有所设置的值来确定。在实际的应用程序设计中，没有必要设置对象的所有属性，很多属性可以使用默认值。本软件对象的属性设置如下:

窗体（Form　1）:Caption属性，值为“简易计算器——设计者:张”，设置窗体的标题。

文本框（Text　1）:Text属性，值为“”，设置文本框内容为空。

按钮数组1（Command　1）:Caption属性，值分别为“0”“1”“2”“3”“4”“5”“6”“7”“8”“9”，设置按钮数组中10个按钮控件的标题，在设置标题时注意与其本身的Index属性相对应。

按钮数组2（Command　2）:Caption属性，值分别为“＋”“－”“＊”“＼”，设置按钮数组中四个按钮控件的标题，同样在设置标题应注意与其本身的Index属性相对应。

按钮控件1（Command　3）:Caption属性，值分别为“＝”，设置按钮控件的标题。

按钮控件2（Command　4）:Caption属性，值分别为“c”，设置按钮控件的标题。

五、程序代码设计

由于VB采用事件驱动程序编程机制，因此，大部分程序是针对窗体中各个控件所能支持的方法或事件编写的，这样的程序称为事件过程。在“简易计算器”中触发了Command 1、Command　2、Command　3、Command　4的单击事件。接下来就来详细介绍一下该软件中的代码以及代码设计思路。

1.窗体/模块级变量的应用

窗体/模块级变量是指在一个窗体/模块的任何过程外，即在通用声明段中用Private或Dim语句声名的变量，可被本窗体/模块的任何过程中访问。在“简易计算器”程序设计中多处使用到窗体/模块级变量。在解决如何将0～9这10个不同按钮上的数字能连续显示在文本框上用到了窗体/模块级变量s，在通用＿声明中定义代码为Dim s as integer。在解决如何辨别进行的何种算术运算时用到窗体/模块级变量b，在通用＿声明中定义代码为Dim s as integer。

2.检查输入项的各种组合的合法性

一个完善的程序一定要考虑输入的所有可能，要排除所有不合法输入。在进行除运算时，要考虑如果除数为0的情况，代码:

If　s＜＞"0"Then

Text1.Text＝Val（s4）/Val（s）

End　If

输入的数据要检查范围，代码:if　val（s）＞32767then　Text1.text＝“输入的数据过大！”。

3.事件过程设计

（1）Command1按钮数组的单击事件过程，该过程的代码主要功能是通过select　case选择语句来实现在文本框中连续显示数字。主要代码如下:

Select　Case　Index

Case　0

s＝s　＆"0"

Text1.Text＝s

Case　1

…

Case　9

s＝s　＆"9"

Text1.Text＝s

End　Select

（2）Command2按钮数组的单击事件过程，该过程的代码主要功能是通过select　case选择语句来实现运算符在文本框中的显示。主要代码如下:

Select　Case　Index

Case　0

Text1.Text＝"＋"

s1＝s

s＝""

b＝0

…

Case　3

Text1.Text＝"/"

s4＝s

s＝""

b＝3

End　Select

（3）Command3按钮的单击事件过程，该过程的代码主要功能是通过select　case选择语句来实现四种基本运算。主要代码如下:

Select　Case　b

Case　0

Text1.Text＝Val（s1）＋Val（s）

s＝""

Case　1

Text1.Text＝Val（s2）－Val（s）

s＝""

Case　2

Text1.Text＝Val（s3）＊Val（s）

s＝""

Case　3

If　s＜＞"0"Then

Text1.Text＝Val（s4）/Val（s）

End　If

s＝""

End　Select

（4）Command4按钮的单击事件过程，代码:s＝"":Text1.Text＝""，通过代码实现数据清零。

六、总结

编写“简易计数器”软件的目的是提高VB学习者的初级应用能力，所以无论是从功能、界面还是代码都充分考虑到学习者知识、能力限度。该软件功能相对简单，实现起来较为容易，我们也可以在此基础上进一步来扩充，比如添加小数点、其他数学运算符、通过键盘来输入数字实现等，进一步提升我们VB的应用能力。

参考文献

［1］刘瑞新，等.Visual　Basic　6.0程序设计教程.第3版.北京:电子工业出版社

［2］刘萌，周学明，郭安源.Visual　Basic企业办公系统开发实例导航.北京:人民邮电出版社

【注释】

[1]原载《向导》．2010（6）