vb实验报告计算器的制作与实现Word文档下载推荐.docx
- 文档编号:20609007
- 上传时间:2023-01-24
- 格式:DOCX
- 页数:15
- 大小:214.95KB
vb实验报告计算器的制作与实现Word文档下载推荐.docx
《vb实验报告计算器的制作与实现Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《vb实验报告计算器的制作与实现Word文档下载推荐.docx(15页珍藏版)》请在冰豆网上搜索。
专业班级:
计算机科学与技术系班
姓名:
20年10月25日
一、实验目的:
1、熟悉VB.NET程序开发环境,了解VB.NET应用程序设计的基本框架结构。
2、掌握WindowsForm的事件处理机制,以及如何在运行期创建控件。
3、初步掌握VB.NET的基本编程方法和技巧。
二、实验内容:
设计一个简单的计算器程序,使之能够实现加、减、乘、除等基本的四则运算。
三、实验设计思路:
先模拟地设计出计算器面板,包含各类按钮和结果输出框,然后写出各个触发事件,包含数字事件、运算符号事件、等号事件等,之后再写各类运算函数,包括加法、减法、乘法和除法,最后于主函数中调用各功能及运算。
四、实验步骤:
1、打开MicrosoftVisualStudio2010,点击“新建项目”,在弹出的对话框中选择“VisualBasic/Windows”项目类型,“模板”选择“Windows窗体应用程序”,在名称处将默认名WindowsApplication1改为“简易计算器”,然后指定该应用程序的保存路径,点击“确定”,进入窗体设计界面。
2、调整好窗体的大小后,将鼠标移到左侧“工具箱”位置,自动弹出“工具箱”窗口,选择其中的“TextBox”控件对象并将其拖拽到窗体中,调整大小并将其拖动到适当位置,在属性窗口中选定属性名“(Name)”,在右列中将其属性值设为“output”,用于显示数据。
3、用同样的方法向窗体中添加19个Button控件,单击“Button1”控件,同样在属性窗口中选定属性名“(Name)”,在右列中将其属性值设为“zero”,并在属性窗口中选定属性名“Text”,在右列中将其属性值设为“0”。
用同样的方法依次将其他Button控件的“(Name)”属性值分别设为“point”、“AllClean”、“equal”、“one”、“two”、“three”、“add”、“subtract”、“four”、“five”、“six”、“multiply”、“divide”、“seven”、“eight”、“nine”、“kai”、“guan”;
“Text”属性值分别设为“.”、“AC(归零)”、“=”、“1”、“2”、“3”、“+”、“-”、“4”、“5”、“6”、“*”、“/”、“7”、“8”、“9”、“on”、“off”,最终界面如下:
4、完成窗体和控件的布局及其属性设置后,双击要编写代码的命令按钮,进入代码编译器,开始编写程序代码。
五、实验代码:
PublicClassCalculator
Dimstrdx()AsString={"
0"
"
}'
声明一个字符串,用以存取数值
Dimcalcount1AsString="
Dimcalcount2AsString="
DimstrvalueAsBoolean=False
PrivateSubzero_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handleszero.Click
Ifstrdx(0)="
Then
output.Text=strdx(0)&
"
."
ElseIfstrvalue=FalseThen
strdx(0)=strdx(0)&
Else
output.Text=strdx(0)
EndIf
EndSub
PrivateSubpoint_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlespoint.Click
strvalue=True
PrivateSubAllClean_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesAllClean.Click
strdx(0)="
strdx
(1)="
strdx
(2)="
calcount1="
calcount2="
strvalue=False
output.Text="
0."
PrivateSubequal_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesequal.Click
Ifstrdx
(2)="
SelectCasecalcount1
Case"
+"
output.Text=Str(Val(strdx
(1))+Val(strdx(0)))
-"
output.Text=Str(Val(strdx
(1))-Val(strdx(0)))
*"
output.Text=Str(Val(strdx
(1))*Val(strdx(0)))
/"
error!
"
output.Text=Str(Val(strdx
(1))/Val(strdx(0)))
EndSelect
ElseIfcalcount2="
strdx(0)=Str(Val(strdx(0))*Val(strdx
(2)))
Else:
strdx(0)=Str(Val(strdx
(2))/Val(strdx(0)))
PrivateSubone_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesone.Click
1"
PrivateSubtwo_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlestwo.Click
2"
PrivateSubthree_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesthree.Click
3"
PrivateSubadd_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesadd.Click
Ifcalcount1="
strdx
(1)=strdx(0)
strdx
(1)=Str(Val(strdx(0))+Val(strdx
(1)))
strdx
(1)=Str(Val(strdx
(1))-Val(strdx(0)))
strdx
(1)=Str(Val(strdx(0))*Val(strdx
(1)))
strdx
(1)=Str(Val(strdx
(1))/Val(strdx(0)))
PrivateSubsubtract_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlessubtract.Click
PrivateSubfour_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesfour.Click
4"
PrivateSubfive_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesfive.Click
5"
PrivateSubsix_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlessix.Click
6"
PrivateSubmultiply_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesmultiply.Click
strdx
(2)=strdx(0)
PrivateSubdivide_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesdivide.Click
PrivateSubseven_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesseven.Click
7"
PrivateSubeight_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handleseight.Click
8"
PrivateSubnine_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesnine.Click
9"
PrivateSubkai_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handleskai.Click
PrivateSubguan_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesguan.Click
Me.Close()
PrivateSuboutput_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesoutput.TextChanged
EndClass
五、实验结果及截图:
1、单击工具栏中的“启动调试(F5)”按钮,运行程序。
2、单击工具栏中的“on”按钮,文本框显示数据“0.”,如下图所示:
3、实现加法运算(27+31=58):
输入数据“27”,点击“+”按钮,再输入数据“31”,按下“=”按钮,文本框显示运算结果“58”,具体过程如下图所示:
4、点击“AC”按钮,实现文本框清零,如下图所示:
5、实现减法运算(47-24=23):
依次点击“47”、“-”、“24”、“=”,文本框显示运算结果,如下图所示:
6、点击“AC”,实现乘法运算(27*18=486):
依次点击“27”、“*”、“18”、“=”,文本框显示运算结果,如下图所示:
7、点击“AC”,实现除法运算(47/5):
依次点击“47”、“/”、“5”、“=”,文本框显示运算结果,如下图所示:
8、点击“off”按钮,程序结束运行,窗口被关闭。
六、实验总结:
通过本次实验,对VB.NET程序开发环境有了进一步的认识,了解了VB.NET应用程序设计的基本框架结构,掌握了WindowsForm的事件处理机制以及VB.NET的基本编程方法和技巧,能够对Windows窗体和常用控件进行简单的设计处理,进一步熟悉了VB.NET应用程序的各种运算符、表达式和程序控制结构,基本实现了简单计算器的
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 实验 报告 计算器 制作 实现
![提示](https://static.bdocx.com/images/bang_tan.gif)