计算器事例Word格式文档下载.docx
- 文档编号:15956262
- 上传时间:2022-11-17
- 格式:DOCX
- 页数:10
- 大小:24.08KB
计算器事例Word格式文档下载.docx
《计算器事例Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《计算器事例Word格式文档下载.docx(10页珍藏版)》请在冰豆网上搜索。
Index13Caption=“-”
Index14Caption=“×
”
Index15Caption=“÷
”
Index16Caption=“清除”
如果想改变一些其他的属性,比如字体,可以自己定义一下Font属性,如果相对多个控件的共同属性进行改变,可以在窗体上按下鼠标,拖动,把多个控件一起选定,然后对它们的共同属性进行修改。
别看这个东西小,还费了近我两个小时呢,不觉大叹手生,里面也有些地方很绕弯子,我尽量解释清楚。
在编写程序之前,我们先来回顾一下计算器的使用。
1.按下数字键在液晶屏上会出现数字,这是最基本的功能。
2.第一次按下运算键,再按下数字键,将重新输入第二个数字,再次按下运算键,将算出前两个数的结果,然后按下数字键,将又重新输入新的数字。
3.输入数字后,按下“等于键”将仍输出原来的数字,输入运算符和第二个数字后在按下“等于”,将得到二者的结果。
然后又重复第二、三步。
4.按下“清除”,数据被全部清除。
了解了这些,我们一步一步实现。
先实现数据的输入,请看代码。
与未创立组的控件相比,它的事件里多了Index参数,组里所有的对象都使用同一个事件。
先在General里声明窗体级全局变量:
DimNum1,Num2AsSingle
DimStrNum1,StrNum2AsString
DimFirstNumAsBoolean'
判断是否是数字开头
因为Text1里是存放字符串的,所以要把输入的数据进行运算,必须把字符型变量转变为实型变量,分别用Num1、Num2和StrNum1、StrNum2进行存放。
在Form_Load事件里给变量初赋值:
Num1=0
Num2=0
StrNum1="
"
StrNum2="
FirstNum=True
因为17个按钮使用的是同一事件,所以我们用一个SelectCase语句区分各个按钮,双击任意按钮输入代码:
PrivateSubCommand1_Click(IndexAsInteger)
SelectCaseIndex
Case0To9
IfFirstNumThen
StrNum1=Str(Index)’实型转字符型
FirstNum=False’初赋值为假
Else’非初赋值
StrNum1=StrNum1+Str(Index)
EndIf
Text1.Text=StrNum1’显示
<
还有其他语句,等待插入>
EndSelect
EndSub
运行程序的话已经可以输入数据,下面我们来处理小数点。
在General里声明新的变量:
DimPointFlagAsBoolean'
判断是否已有小数点
我们知道小数点只能输入一次,一个数据中不能有多个小数点存在,所以需要一个布尔变量做判断。
在Form_Load里进行初赋值:
PointFlag=False
在Command的单击事件里接着上面输入新的代码:
Case10
IfNotPointFlagThen’如果没有小数点
IfFirstNumThen’如果是第一个字符
0."
FirstNum=False
Else
StrNum1=StrNum1+"
."
Else’已有小数点
ExitSub’则退出单击事件
PointFlag=True
Text1.Text=StrNum1
下面会复杂一些,我们先跳过等号,而来处理四则运算:
先在General里声明新变量:
DimRunsignAsInteger'
储存运算符号
DimSignFlagAsBoolean'
判断是否已有运算符号
然后在Form_Load中进行初赋值:
Runsign=0
SignFlag=False
在接下的Command1_Click中继续输入代码:
Case12To15
FirstNum=True’使下一次可以输入新数据
'
还原标记值
IfSignFlagThen’前面已有运算符未运算
CallRun
SignFlag=True
StrNum2=StrNum1’把字符串1复制给字符串2
’字符串1清空
Runsign=Index-11‘储存键入的运算符
里面运算的部分我用了一个过程,是因为在按下等号时还会调用到运算过程,这样可以减少代码的输入,也使程序便于浏览。
建立过程(Procedure),可以在General部分直接输入,也可以通过菜单里的“AddProcedure”添加。
Run的代码如下:
SubRun()
Num1=Val(StrNum2)
Num2=Val(StrNum1)
SelectCaseRunsign
Case1’加
equal=Num1+Num2
Case2’减
equal=Num1-Num2
Case3’乘
equal=Num1*Num2
Case4’除
equal=Num1/Num2
StrNum2=Str(equal)
StrNum1=StrNum2
Text1.Text=StrNum2
下面是其余的代码:
(在Command1_Click事件里,接着写)
Case11
IfNotSignFlagThen
equal=Val(StrNum1)
CaseElse’清除按钮
CallClearData
里面又用到了一个ClearData过程,实际上就是Form_Load里的变量初赋值,代码如下:
SubClearData()
Text1.Text="
这样完整的程序就完成了,本章介绍了VB的第一个控件――按钮,并且举例,希望你继续看下一章――菜单。
下面给出完整的程序代码:
Case1
Case2
Case3
Case4
PrivateSubabout_Click()
MsgBox"
Createby周晓阳。
1998/7/27"
vbDefaultButton1,"
VB教程第四章范例"
StrNum1=Str(Index)
IfNotPointFlagThen
ExitSub
IfSignFlagThen
StrNum2=StrNum1
Runsign=Index-11
CaseElse
PrivateSubForm_Load()
按钮还有两个重要的属性Default(默认属性)和Cancel(取消属性),两个属性都以布尔赋值,把Default设为True,则在按下回车键时,不论焦点处于何处,都会触发
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算器 事例