vb制作计算器.doc

下载文档 降价啦

6
0
约5.81千字
约 19页
2017-09-08 发布于江西
举报
版权申诉
保障服务

vb制作计算器.doc

1、本文档共19页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

vb制作计算器

目录目录………………………………………………………………………2 任务概述…………………………………………………………3 1.1、制作目标………………………………………………………3 1.2、任务需求………………………………………………………3 二、总体设计……………………………………………………………4 2.1、系统结构框图………………………………………………4 三、功能分配……………………………………………………………5 3.1、计算器键位设置……………………………………………5 3.2、四则运算的实现……………………………………………5 3.3、正弦、余弦及正切的实现…………………………………7 3.4、清除…………………………………………………………7 3.5、退格…………………………………………………………8 3．6 其它…………………………………………………………8 小结……………………………………………………………………11 附录……………………………………………………………………12 任务概述. 1.1、制作目标本系统的目标是建立一套可以计算数四则运算,正弦，余弦，正切的计算器系统，系统可以帮助我们更好的学习，更好的节省时间。还能避免出现一些不必要的计算错误。 1.2、任务需求 1、设计主界面，要求简洁大方. 2、功能上尽量模拟windows操作系统中的计算器. 二、总体设计 2.1、系统结构框图图2-1系统结构功能图三功能分配 3.1、计算器键位设置图3-1 计算器界面 C-----------------------------清除键 Backspace------------------退格键 cos/sin/tan------------------余弦/正弦/正切 +/-/x/÷/-----------------------四则运算符 0-9---------------------------基础数字 —----------------------------负号 =-----------------------------等号 3.2、四则运算的实现 “+”按钮的click事件: Private Sub Command10_Click() z = 1 a = Text1.Text Text1.Text = 0 End Sub “-”按钮的click事件: Private Sub Command9_Click() z = 2 a = Text1.Text Text1.Text = 0 End Sub “x”按钮的click事件: Private Sub Command5_Click() z = 3 a = Text1.Text Text1.Text = 0 End Sub “÷”按钮的click事件: Private Sub Command4_Click() z = 4 a = Text1.Text Text1.Text = 0 End Sub 3.3、正弦、余弦及正切的实现 “正弦”按钮的click事件: Private Sub Command20_Click() z = 6 a = Text1.Text End Sub “余弦”按钮的click事件: Private Sub Command21_Click() z = 8 End Sub “正切”按钮的click事件: Private Sub Command22_Click() z = 7 End Sub 3.4、清除 “清除”按钮的click事件: Private Sub Command16_Click() Text1.Text = 0 a = 0 b = 0 x = 0 y = 0 End Sub 3.5、退格 Private Sub Command17_Click() Text1.Text = Left$(Text1.Text, Len(Text1.Text) - 1) If Len(Text1.Text) 1 Then Text1.Text = 0 End If End Sub 3.6 其它 “.”按钮的click事件: Private Sub Command18_Click() Text1.Text = Str(Text1.Text) + . End Sub “-”按钮的click事件: Private Sub Command19_Click() Text1.Text = - + Str(Text1.T