《论文_多功能计算器论文(定稿)》

《《论文_多功能计算器论文(定稿)》》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、多功能计算器08级测控一班戈武华学号0811211006摘要：随着计算机技术的迅速发展，计算机已成为我们生活不可缺少的部分。计算机带给我们的方便也越來越明显。然而，计算器在我们生活的重要性已经渗透在我们生活每个角落，如何设计出更简单，更方便，功能更强大的计算器，已成为一个热门话题。木文介绍了在VisualBasic6.0环境下设计开发的多功能计算器，它提供的功能更加简单，方便，实用。关键字：计算器，时间，日期1•引言：此vb程序可以用于其日常的计算，强大的计算功能，方便快捷，而且述提供钟表的功能，能使使用者知道准确的时间。界面的视觉效果使使用者轻松，不易疲劳，且简单易懂的操作，

2、让使用者比较简单易懂。2•界面设计:1）界面窗体及主要对彖屈性值对象属性名属性值说明FormlBackColor&H00FFC0FF&背景颜色Caption多功能计算器界面标题Command1Caption+按钮名称DefaultFalse窗体的默认命令按钮Command2Caption-按钮名称Command3Caption*按钮名称Command4Caption/按钮名称Command5Captionsin按钮名称Command6Caption数据重置按钮名称Command7Caption退出按钮名称Command8Captioncos按钮名称Command9Caption

3、tan按钮名称CommandlOCaption平方按钮名称Command!1Caption开方按钮名称Command12Caption1/x按钮名称LablelCaption第-•个数标签名字BackColor&H0000FF00&字体颜色Lable2Caption第二个数标签名字Lable3Caption计算结果标签名字Lable4Caption现在时刻是：标签名字Lable5Caption单个数的转换计算一标签名字Lable6Caption2005标签名字Lable7Caption年标签名字LableSCaption11标签名字Lable9Caption月标签名字Lable

4、lOCaption星期标签名字LablellCaption3标签名字Lablel2Caption标签名字LableBCaption22标签名字Lablel4Caption号标签名字TextlText文本框名字ForeColor&H8OOOOOO8&字体颜色Text2Text文木框名字Text3Text文本框名字TimerInterval10时钟控件MenulCaption文件菜单名称Menu2Caption退出计算器菜单名称Menu3Caption关于菜单名称Menu4Caption帮助菜单名称Menu5Caption计算器菜单名称3•代码设计:1）加减乘除运算法的代码设计Co

5、nstpi=3.14159265358979x=Val(Textl.Text)+Val(Text2.Text)result.Caption=CDbl(x)EndSubPrivateSubCommand10_Click()q=Val(Text3.Text)qq=CDbl(q*q)result1.Caption=qqEndSubPrivateSubCommand1l_Click()q=Val(Text3.Text)qq=CDbl(Math.Sqr(q))result1.Caption=qqEndSubPrivateSubCommand12_Click()y=Val(Text3.Te

6、xt)Ify=0ThenMsgBox(*'除数不能为零，程序将退出，请：fi新运行.”)EndEndIfx=1/yresult1.Caption=CDbl(x)EndSubx=Val(Textl.Text)-Val(Text2.Text)result.Caption=CDbl(x)EndSubPrivateSubCommand3_Click()x=Val(Textl.Text)*Val(Text2.Text)result.Caption=CDbl(x)EndSubPrivateSubCommand4_Click()y=Val(Text2.Text)Ify=0ThenMsgBox

7、("除数不能为零，程序将退出，请重新运行.“)EndEndIfx=Val(Textl.Text)/Val(Text2.Text)result.Caption=CDbl(x)EndSub2)三角函数代码设计PrivateSubCommand8_Click()q=Val(Text3.Text)x=CDbl(q*pi/180)z=Cos(x)result1.Caption=zEndSubPrivateSubCommand9_Click()q=Val(Text3.Text)x=CDbl(q*pi/1