vb计算器实习报告.docx

vb计算器实习报告.docx

《vb计算器实习报告.docx》由会员分享，可在线阅读，更多相关《vb计算器实习报告.docx（17页珍藏版）》请在冰豆网上搜索。

vb计算器实习报告

摘要

VisualBasic是近年来在国内外得到迅速推广应用的可视化程序设计语言具有简单易学,功能强效率高等特点.它提供了开发Windows应用程序最迅速，最简捷的方法，不但专业人员得心应手的开发工具，而且易于被非专业人员掌握使用。

本课程主要讲述VisualBasic的基本概念，语法规则和利用VisualBasic进行程序设计方法。

同时掌握窗体设计，函数和控件的使用方法。

VB程序设计是工科专业开设的一门基础编程课程。

通过这门课程的学习，一方面是培养一个人的逻辑编程能力，提高其使用计算机能力，为今后从事本专业领域的软件开发打下基础；另一方面通过VB中体现出的面向对象思想，以培养学生认识问题，分析问题解决问题的思路和能力。

目录

一.题目：

简单的科学计算器-4-

二.选题的意义-4-

三.系统设计-5-

1总体结构设计：

-5-

2各功能的实现-5-

1数值输入、小数点、正负号-5-

2.计算功能-6-

3.“=”号输出结果-7-

4.正弦、余弦、正切运算的实现：

-7-

四.测试-9-

1.用例阐述系统-9-

2.代码如下：

-10-

五.结论-16-

六、参考文献-17-

一.题目：

简单的科学计算器

二.选题的意义

随着现代科学技术日新月异，高速发展，因此计算器进入课堂是历史的必然。

计算器的一个基本特点是计算迅速准确，使用计算器，可以把学生从烦琐的数字计算中解脱出来，这样既减轻了中年级学生的课业负担，又能使学生有更多的时间进行思考、动手操作和实践活动，有利于开发学生的数学灵感，提高数学学习的兴趣，促进学生智力和能力的发展。

由于大部分学生已经接触过计算器，因此教材只通过一幅计算器的外型结构图，逐渐让学生了解计算器的键盘结构，同时通过一些简单的练习题，使学生学会这些按键的使用方法。

然后进一步用计算器探索规律，培养学生探索意识。

本课程是一门当前流行的程序设计语言课程。

通过VB程序设计语言及其程序设计方法的学习，不仅使学生得到计算机的应用能力和操作技能的训练，更主要的是使学生提高高级语言程序设计的能力，以及掌握最新的面向对象的程序设计方法，并能运用所学的知识开发图形界面（Windows）下的应用软件，为培养学生结合专业进行软件开发打好基础。

三.系统设计

系统概述：

本科学计算器是一种能实现加,减,乘,除,乘方,sin、cos、tan、平方。

基本实现了Windows自带计算器的所有功能。

要实现计算器的这些功能就用到我们所学的VB知识编写程序来实现运算功能并解决问题，也是我们实训要达到的目的

1总体结构设计：

2各功能的实现

1数值输入、小数点、正负号

'点数字操作相关代码

PrivateSubCommand30_Click（）

CallNClear

Text1.Text=Text1.Text&"."

EndSub

'点+，-，操作相关代码

PrivateSubCommand18_Click（）

Ifflag=TrueThen

Text1.Text=Replace（Text1.Text,"+",""）

Text1.Text="-"&Text1.Text

flag=False

Else

Text1.Text=Replace（Text1.Text,"-",""）

Text1.Text="+"&Text1.Text

EndIf

flag=True

EndSub

2.计算功能

FunctionCalc#（）

SelectCaseop

Case"+"

Calc=num1+num2

Case"-"

Calc=num1-num2

Case"*"

Calc=num1*num2

Case"/"

Calc=num1/num2

CaseElse

IfpowerTrue=TrueThen

Calc=num1^num2

powerTrue=False

ElseIfmodTrue=TrueThen

Calc=num1Modnum2

modTrue=False

Else

ExitFunction

EndIf

EndSelect

EndFunction

3.“=”号输出结果

PrivateSubCommand31_Click（）

IfText1.Text=""Then

i=MsgBox（"您没有输入运算数据!

"）

CallCommand33_Click

ExitSub

EndIf

num2=Val（Trim（Text1.Text））

Ifnum2=0Andop="/"Then

i=MsgBox（"除数不能为0!

"）

CallCommand33_Click

ExitSub

EndIf

Text1.Text=Calc（）

num1=0

num2=0

op=""

flag=True

notClear=True

EndSub

4.正弦、余弦、正切运算的实现：

PrivateSubCommand2_Click（）

IfCheck=TrueThenExitSub

num1=num1*（3.14159265358979/180）

Text1.Text=Cos（num1）

num1=0

EndSub

PrivateSubCommand1_Click（）

IfCheck=TrueThenExitSub

num1=num1*（3.14159265358979/180）

Text1.Text=Sin（num1）

num1=0

EndSub

PrivateSubCommand3_Click（）

IfCheck=TrueThenExitSub

num1=num1*（3.14159265358979/180）

Text1.Text=Fix（Tan（num1）+0.0000000001）

num1=0

EndSub

四.测试

1.用例阐述系统

简单的数学3+2=5运算

5的平方

同样可得加，减，乘，除，sin，cos，tan。

2.代码如下：

DimHexNumAsBoolean,DecadeNumAsBoolean,OctalNumAsBoolean,BinaryNumAsBoolean

DimpowerTrueAsBoolean

DimmodTrueAsBoolean

DimflagAsBoolean

DimnotClearAsBoolean

DimopAsString

Dimnum1#,num2#

PrivateFunctionCheck（）AsBoolean

flag=True

notClear=True

IfText1.Text=""Then

i=MsgBox（"您没有输入运算数据!

",1+48,"警告"）

CallCommand33_Click

Check=True

Else

num1=Val（Trim（Text1.Text））

Text1.Text=""

Check=False

EndIf

EndFunction

PrivateSubCommand1_Click（）

IfCheck=TrueThenExitSub

num1=num1*（3.14159265358979/180）

Text1.Text=Sin（num1）

num1=0

EndSub

PrivateSubCommand18_Click（）

Ifflag=TrueThen

Text1.Text=Replace（Text1.Text,"+",""）

Text1.Text="-"&Text1.Text

flag=False

Else

Text1.Text=Replace（Text1.Text,"-",""）

Text1.Text="+"&Text1.Text

EndIf

flag=True

EndSub

PrivateSubCommand2_Click（）

IfCheck=TrueThenExitSub

num1=num1*（3.14159265358979/180）

Text1.Text=Cos（num1）

num1=0

EndSub

PrivateSubCommand20_Click（）

IfText1.Text=""Then

i=MsgBox（"您没有输入运算数据!

",1+48,"警告"）

CallCommand33_Click

ExitSub

EndIf

num1=Val（Trim（Text1.Text））

op="+"

Text1.Text=""

flag=True

EndSub

PrivateSubNClear（）

IfnotClear=TrueThen

Text1.Text=""

notClear=False

EndIf

EndSub

PrivateSubCommand21_Click（）

CallNClear

Text1.Text=Text1.Text&7

EndSub

PrivateSubCommand22_Click（）

CallNClear

Text1.Text=Text1.Text&8

EndSub

PrivateSubCommand23_Click（）

CallNClear

Text1.Text=Text1.Text&9

EndSub

PrivateSubCommand24_Click（）

IfText1.Text=""Then

i=MsgBox（"您没有输入运算数据!

",1+48,"警告"）

CallCommand33_Click

ExitSub

EndIf

num1=Val（Trim（Text1.Text））

op="-"

Text1.Text=""

flag=True

EndSub

PrivateSubCommand25_Click（）

CallNClear

Text1.Text=Text1.Text&4

EndSub

PrivateSubCommand26_Click（）

CallNClear

Text1.Text=Text1.Text&5

EndSub

PrivateSubCommand27_Click（）

CallNClear

Text1.Text=Text1.Text&6

EndSub

PrivateSubCommand28_Click（）

IfText1.Text=""Then

i=MsgBox（"您没有输入运算数据!

",1+48,"警告"）

CallCommand33_Click

ExitSub

EndIf

num1=Val（Trim（Text1.Text））

op="*"

Text1.Text=""

flag=True

EndSub

PrivateSubCommand29_Click（）

CallNClear

Text1.Text=Text1.Text&0

EndSub

PrivateSubCommand3_Click（）

IfCheck=TrueThenExitSub

num1=num1*（3.14159265358979/180）

Text1.Text=Fix（Tan（num1）+0.0000000001）

num1=0

EndSub

PrivateSubCommand30_Click（）

CallNClear

Text1.Text=Text1.Text&"."

EndSub

FunctionCalc#（）

SelectCaseop

Case"+"

Calc=num1+num2

Case"-"

Calc=num1-num2

Case"*"

Calc=num1*num2

Case"/"

Calc=num1/num2

CaseElse

IfpowerTrue=TrueThen

Calc=num1^num2

powerTrue=False

ElseIfmodTrue=TrueThen

Calc=num1Modnum2

modTrue=False

Else

ExitFunction

EndIf

EndSelect

EndFunction

PrivateSubCommand31_Click（）

IfText1.Text=""Then

i=MsgBox（"您没有输入运算数据!

",1+48,"警告"）

CallCommand33_Click

ExitSub

EndIf

num2=Val（Trim（Text1.Text））

Ifnum2=0Andop="/"Then

i=MsgBox（"除数不能为0!

",0+48,"警告"）

CallCommand33_Click

ExitSub

EndIf

Text1.Text=Calc（）

num1=0

num2=0

op=""

flag=True

notClear=True

EndSub

PrivateSubCommand32_Click（）

IfText1.Text=""Then

i=MsgBox（"您没有输入运算数据!

",1+48,"警告"）

CallCommand33_Click

ExitSub

EndIf

num1=Val（Trim（Text1.Text））

op="/"

Text1.Text=""

flag=True

EndSub

PrivateSubCommand33_Click（）

flag=True

powerTrue=False

modTrue=False

Timer1.Enabled=False

Text1.Text=""

num1=0

num2=0

op=""

EndSub

PrivateSubCommand34_Click（）

CallNClear

Text1.Text=Text1.Text&1

EndSub

PrivateSubCommand35_Click（）

CallNClear

Text1.Text=Text1.Text&2

EndSub

PrivateSubCommand36_Click（）

CallNClear

Text1.Text=Text1.Text&3

EndSub

PrivateSubCommand42_Click（）

Text1.Text=Trim（Text1.Text）

IfLen（Text1.Text）=0Then

ExitSub

EndIf

Text1.Text=Left（Text1.Text,Len（Text1.Text）-1）

EndSub

PrivateSubCommand7_Click（）

IfCheck=TrueThenExitSub

Text1.Text=num1^2

num1=0

EndSub

五.结论

在设计程序的过程中我感受到，既要学会分析序设计的特点，要特别重视数据类型的定义、表达式、函数及常用控件的属性、功能和使用。

还了解了VB过程中的设计理念，基本语句的了解，循环结构，数组概念基本操作，过程的分类。

通过课程设计培训，我不禁熟悉了程序设计的基本流程和相应的vb知识，也在与同学一同学习、设计的过程中培养了合作精神，最后，感谢老师这段时间对我们的悉心辅导，感谢学校能够给我们这次学习、提高的机会！

通过本次设计的进行我的确学到了许多新东西，也发现了不少问题，有些在设计过程中容易解决，而有些问题则要花费大量的心血才能彻底解决。

总之,本次设计的过程中遇到了许多以前没遇到的问题，解决了许多以前不能解决的问题，我坚信，只要学习就会有更多的问题，有更多的难点，也会有更多的收获

最后，感谢给了我巨大的鼓励和支持的同学和老师，我顺利完成离不开你们的帮助和照顾。

不管过去、现在、还是将来，也是我努力学习和勤奋工作的最大动力。

六、参考文献

1《VisualBasic6.0程序设计》张云鹏电子工业出版社

2网站相关资源