- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
多功能计算器
08级测控一班 戈武华 学号 0811211006
摘要:随着计算机技术的迅速发展,计算机已成为我们生活不可缺少的部分。计算机带给我们的方便也越来越明显。然而,计算器在我们生活的重要性已经渗透在我们生活每个角落,如何设计出更简单,更方便,功能更强大的计算器,已成为一个热门话题。本文介绍了在Visual Basic6.0环境下设计开发的多功能计算器,它提供的功能更加简单,方便,实用。
关键字:计算器,时间,日期
1·引言:
此vb程序可以用于其日常的计算,强大的计算功能,方便快捷,而且还提供钟表的功能,能使使用者知道准确的时间。界面的视觉效果使使用者轻松,不易疲劳,且简单易懂的操作,让使用者比较简单易懂。
2·界面设计:
1)界面窗体及主要对象属性值
对象 属性名 属性值 说明 Form1 BackColor H00FFC0FF 背景颜色 Caption 多功能计算器 界面标题 Command1 Caption + 按钮名称 Default False 窗体的默认命令按钮 Command2 Caption - 按钮名称 Command3 Caption * 按钮名称 Command4 Caption / 按钮名称 Command5 Caption sin 按钮名称 Command6 Caption 数据重置 按钮名称 Command7 Caption 退出 按钮名称 Command8 Caption cos 按钮名称 Command9 Caption tan 按钮名称 Command10 Caption 平方 按钮名称 Command11 Caption 开方 按钮名称 Command12 Caption 1/x 按钮名称 Lable1 Caption 第一个数 标签名字 BackColor H0000FF00 字体颜色 Lable2 Caption 第二个数 标签名字 Lable3 Caption 计算结果 标签名字 Lable4 Caption 现在时刻是: 标签名字 Lable5 Caption 单个数的转换计算→ 标签名字 Lable6 Caption 2005 标签名字 Lable7 Caption 年 标签名字 Lable8 Caption 11 标签名字 Lable9 Caption 月 标签名字 Lable10 Caption 星期 标签名字 Lable11 Caption 3 标签名字 Lable12 Caption 标签名字 Lable13 Caption 22 标签名字 Lable14 Caption 号 标签名字 Text1
Text 文本框名字 ForeColor 字体颜色 Text2 Text 文本框名字 Text3 Text 文本框名字 Timer Interval 10 时钟控件 Menu1 Caption 文件 菜单名称 Menu2 Caption 退出计算器 菜单名称 Menu3 Caption 关于 菜单名称 Menu4 Caption 帮助 菜单名称 Menu5 Caption 计算器 菜单名称
3·代码设计:
1)加减乘除运算法的代码设计
Const pi = 3.14159265358979
Private Sub Command1_Click()
x = Val(Text1.Text) + Val(Text2.Text)
result.Caption = CDbl(x)
End Sub
Private Sub Command10_Click()
q = Val(Text3.Text)
qq = CDbl(q * q)
result1.Caption = qq
End Sub
Private Sub Command11_Click()
q = Val(Text3.Text)
qq = CDbl(Math.Sqr(q))
result1.Caption = qq
End Sub
Private Sub Command12_Click()
y = Val(Text3.Text)
If y = 0 Then
MsgBox (除数不能为零,程序将退出,请重新运行.)
End
End If
x = 1 / y
result1.Caption = CDbl(x)
End Sub
Private Sub Command2_Click()
x = Val(Text1.Text) - Val(Text2.Text)
result.Caption = CDbl(x)
End Sub
Private Sub Comm
您可能关注的文档
最近下载
- 苏教译林版九年级下册整册书单词默写表-单词表.docx VIP
- 2.2《养成亲社会行为》 课件 2025统编版道德与法治八年级上册.ppt
- 中国古代古典书籍 《钟馗全传》 全本.doc VIP
- 《差异化教学探讨》课件.ppt VIP
- 四棉医院检验科室内质控项目一览表技术指导.docx VIP
- 普通高中体育与健康新课程标准试题与答案(2025年版2025年修订).pdf VIP
- 2025年浙江高三高考英语模拟试卷及答案详解.pdf VIP
- 《马克思主义新闻观十二讲》复习备考试题及答案 .pdf VIP
- 重庆翘柏高锰酸钾及其复合盐在水处理中的应用.pdf VIP
- 家庭经济状况信息表(样表).doc VIP
文档评论(0)