课程设计--vb制作计算器毕业论文

《课程设计--vb制作计算器毕业论文》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、目录目录………………………………………………………………………2一、任务概述…………………………………………………………31.1、制作目标………………………………………………………31.2、任务需求………………………………………………………3二、总体设计……………………………………………………………42.1、系统结构框图………………………………………………4三、功能分配……………………………………………………………53.1、计算器键位设置……………………………………………53.2、四则运算的实现……………………………………………53.3、正弦、余弦及正切的实现…………………

2、………………73.4、清除…………………………………………………………73.5、退格…………………………………………………………83．6其它…………………………………………………………8小结……………………………………………………………………11附录……………………………………………………………………12一、任务概述.1.1、制作目标本系统的目标是建立一套可以计算数四则运算,正弦，余弦，正切的计算器系统，系统可以帮助我们更好的学习，更好的节省时间。还能避免出现一些不必要的计算错误。1.2、任务需求1、设计主界面，要求简洁大方.2、功能上尽量模拟windows操作系统中的计算

3、器.二、总体设计2.1、系统结构框图输入数字运算正切正弦余弦退格清除结果图2-1系统结构功能图三功能分配3.1、计算器键位设置图3-1计算器界面C-----------------------------清除键Backspace------------------退格键cos/sin/tan------------------余弦/正弦/正切+/-/x/÷/-----------------------四则运算符0-9---------------------------基础数字—----------------------------负号=----------------

4、-------------等号3.2、四则运算的实现“+”按钮的click事件:PrivateSubCommand10_Click()z=1a=Text1.TextText1.Text=0EndSub“-”按钮的click事件:PrivateSubCommand9_Click()z=2a=Text1.TextText1.Text=0EndSub“x”按钮的click事件:PrivateSubCommand5_Click()z=3a=Text1.TextText1.Text=0EndSub“÷”按钮的click事件:PrivateSubCommand4_Click()z=4a

5、=Text1.TextText1.Text=0EndSub3.3、正弦、余弦及正切的实现“正弦”按钮的click事件:PrivateSubCommand20_Click()z=6a=Text1.TextEndSub“余弦”按钮的click事件:PrivateSubCommand21_Click()z=8EndSub“正切”按钮的click事件:PrivateSubCommand22_Click()z=7EndSub3.4、清除“清除”按钮的click事件:PrivateSubCommand16_Click()Text1.Text=0a=0b=0x=0y=0EndSub3.5

6、、退格PrivateSubCommand17_Click()Text1.Text=Left$(Text1.Text,Len(Text1.Text)-1)IfLen(Text1.Text)<1ThenText1.Text=0EndIfEndSub3.6其它“.”按钮的click事件:PrivateSubCommand18_Click()Text1.Text=Str(Text1.Text)+"."EndSub“-”按钮的click事件:PrivateSubCommand19_Click()Text1.Text="-"+Str(Text1.Text)EndSub“0-9”按钮的c

7、lick事件:PrivateSubCommand15_Click()Text1.Text=Val((Text1.Text)+Str(0))EndSubPrivateSubCommand1_Click()Text1.Text=Val((Text1.Text)+Str(1))EndSubPrivateSubCommand1_Click()Text1.Text=Val((Text1.Text)+Str(2))EndSubPrivateSubCommand1_Click()Text1.Text=Val((Text1.Tex