《软件设计基础(VB)》简单科学计算器课程设计报告书.docx

《《软件设计基础(VB)》简单科学计算器课程设计报告书.docx》由会员分享，可在线阅读，更多相关《《软件设计基础(VB)》简单科学计算器课程设计报告书.docx（22页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、河北联合大学?软件设计根底VB？课程设计报告设计名称： 简易科学计算器姓 名：学 号：专业班级：学 院：设计时间：设计地点：成绩:指导教师评语:指导教师签字：年 月 日Text 1 .Text =Text 1.Text = Text 1.Text & Indexlastinput = numEnd IfCommand 1 (O).SetFocus 0 获得焦点End SubPrivate Sub Command 10_Click() OFF 按钮，关闭程序EndEnd SubPrivate Sub Command! l_Click() CE 按钮，去除If Len(Textl.Text) =

2、1 ThenText 1.Text = Left(Textl.Text, Len(Textl.Text) - 1)ElseMsgBox ”已经是最后一位”,48, “提示”End IfEnd SubPrivate Sub Command 12_Click() -/+按钮Text 1 .Text = Trim(-Val(Text 1 .Text)End SubPrivate Sub Command 13_Click() x八2 按钮End SubPrivate Sub Command 14_Click()八进制按钮Text 1 .Text = Oct(Textl.Text)End SubPriv

3、ate Sub Command2_Click(Index As Integer)功能函数按钮将 x 转化为角度制Dim x As Double x 二 Val(Textl.Text)If Option2,Value = ture Then x = x * pi /180Select Case IndexCase 0 计算sin，以特定格式输出Text 1.Text = Format(Sin(x), O.#M) lastinput = num计算 expText 1.Text = 1() A Text 1.Textlastinput =numCase 1 计算 sqrIf Text 1.Text

4、 0 Then计算三角函数时判断条件Text 1 .Text = Format(Sqr(Val(Textl .Text), #.#)lastinput = numElseMsgBox ”被开方数不能为负数二48, “提示”Textl.SetFocusEnd IfCase 2 计算 cosText 1.Text = Format(Cos(x), ,0.#n) lastinput = numCase 3 计算 logText 1.Text = Log(textl.text) / Log( 10) lastinput = num Case 5计算 1/xIf x = 0 ThenMsgBox ”数据

5、输入不正确”,48, “提示”ElseTextl.Text = n0& 1 / Val(x) lastinput = num End If Case 6计算 tanText 1 .Text = Format(Tan(x), lastinput = num Case 7，计算 InText 1.Text = Log(Textl.Text) lastinput = num End SelectEnd SubPrivate Sub Command3_Click()冗按钮Text 1.Text = 3.1415926直接输出lastinput = numEnd SubPrivate Sub Comma

6、nd4_CIick() e 按钮Dim e As Double, i As Integer, j As Integer j 作为内循环的循环变量Dim dblFact As Double 存放阶乘结果的变量e = 2i= 1Do1 = i+ 1dblFact =初始化阶乘结果变量For j = 1 To i呐嵌套循环，求阶乘dblFact = dblFact * jNexte = e + 1 / dblFactLoop Until 1 / dblFact 1 / 10A 16,直至第 i 项的值 16 Or InStr(l, Text 1.Text, n.) 0 And lastinput e

7、qv ThenExit SubIf lastinput = opt Or lastinput = eqv Or lastinput = neg ThenText 1.Text = Text 1.Text + ”0.ElseText 1.Text = Text 1.Text +End Iflastinput = numEnd SubPrivate Sub Command9_Click()初始化Call Form_Loadoptnum = 0End SubPrivate Sub copy_Click()，菜单项的代码Clipboard.Clear清空剪贴板Clipboard.SetText Tex

8、t 1 .Text 将文本框内容放入剪贴板End SubPrivate Sub form_KeyPress(KeyAscii As Integer) ()-9 和”.键盘输入Textl.SetFocusTextl.Text = ,M,Dim i As IntegerIf KeyAscii = Asc(nO) Theni = 0Call Command 1 _Click(i)Elself KeyAscii = Asc(nl) Theni = 1Call Commandl_Click(i)Elself KeyAscii = AscC2) Theni = 2Command l_Click (i)El

9、self KeyAscii = Asc(n3) Theni = 3Commandl_Click (i)Elself KeyAscii = Asc(4) Theni = 4Command l_Click (i)Elself KeyAscii = Asc(”5”) Theni = 5Commandl_Click (i)Elself KeyAscii = Asc(6) Theni = 6Command l_Click (i)Elself KeyAscii = Asc(n7,) Theni = 7Command l_Click (i)Elself KeyAscii = Asc(“8)Then i =

10、8Command l_Click (i)Elself KeyAscii = Asc(9) Then i = 9Command l_Click (i)Elself KeyAscii = Asc(n.n) ThenCommand8_ClickEnd IfEnd Sub为窗体设置背景图片为窗体设置背景图片Private Sub Form_Load()窗体加载事件Form 1.Picture = LoadPicture(App.Path + nl.jpg) numl = 0 num2 = 0opttype = -1Textl.Text=nOnlastinput = eqvoptnum = 0eqvnu

11、m = 0End SubPrivate Sub paste_Qick()菜单项 粘贴 按钮Text 1.Text = Clipboard.GetText将剪贴板内容取出End SubPrivate Sub Textl_Click()Text 1 .Text”End SubPrivate Sub Text 1 _KeyPress(KeyAscii As Integer)运算符键盘输入Select Case Key AsciiCase Asc(”+)按下加号键Command6_Click (3)，调用运算符单击事件过程Textl.Text =,nCaseAscC-)按下减号键IfTextl.Tex

12、t”Then假设文本框不空，看作减号，否那么看作负号Command6_Click (2)，调用减号按钮单击事件过程KeyAscii = 0 按键不再影响文本框End IfText 1.Text = ,nCase Asc(*)按下乘号键Command6_Click (1)CaseAsc)按下除号键Command6_Click (0)Case Asc(=)按卜二键num2 = Val(Right(Textl.Text, Len(Textl.Text) - 1)Textl.Text = calc(num 1, opttype, num2)lastinput = eqvL课程设计目的32 .课程设计任

13、务与要求3.课程设计说明书43 ,课程设计成果20.程序调试过程234 .设计问题的缺乏和改良方案23,课程设计心得245 .附录2424246 .参考文献optnum = 0Select Case eqvnum MI-M5在键盘输入的代码Case 0i(0) = Val(Right(Textl.Text, Len(Textl.Text) - 1)Case 1 i(l) = Val(Right(Textl.Text, Len(Textl.Text) - 1)Case 2 i(2)= Val(Right(Textl.Text, Len(Textl.Text) - 1)Case 3 i(3) =

14、Val(Right(Textl.Text, Len(Textl.Text) - 1)Case 4 i(4) = Val(Right(Textl .Text, Len(Textl .Text) - 1)End Selecteqvnum = eqvnum + 1End SelectEnd SubPrivate sub command 15_click ，清空按钮Textl.text=/，0文本框内容显示为0Lastinput=，/ eqv标志显示为“=”标志.课程设计成果1.程序加载的效果见右图:2.程序运行效果如右图:.简易科学计算器编辑3.各种提示信息如下列图:凶八o不能做除数确定4 .程序调

15、试过程写出程序调试步骤，及遇到的问题。在程序调试设置断点，通过变量赋值寻找其中错误，逐条检查，修改其中的错误。程序调试时遇到的错误是：1 .键盘输入不正确.不能连续运算2 .记忆按钮功能无法实现.设计问题的缺乏和改良方案设计问题的缺乏之处:1. 程序在四那么运算时无法实现先乘除后加减的算法程序在运算结果出现小于。的小数时，小数点前的。不能显示2. 没有进行进制转化的功能键数字太大时不能使用科学计算法改良方案：1 .通过选择结构判断条件编写支持优先级的代码.判断条件在出现小于0的数时在其前面加02 .添加按钮，能够进行数字转化.编写代码使大于某数的数用科学计算法表示7 ,课程设计心得在本次设计中

16、通过对设计任务的思考以及自己在设计前的准备，使我感 受到自己在单独的做某件事的时候开始前的准备很重要，再设计过程中要不 断的在设计过程中注重细节，在生活中的灵感可以运用到各种可能的情况中, 所以对于生活中的一些突发想象，我们应该记着它。并且我们要不断地翻阅 资料，上网去借鉴，学习，在找到相关的有助于我们工作的，我们要去学习 它，明白它。还有就是在干每件事时，我们不应该把希望全部寄托在别人身上，虽然 人际交往很重要，但朋友不是全部，每个人都要以自己为主，而不是完全靠 别人，如果是那样，那么只能说你不是让你在丰富自己，而是一直在求他人, 这样的人生我想每个人都是不愿意要的。而且通过自己的努力，当看

17、到自己 的成果时，你会感到你很伟大，你会很快乐，会把这种快乐分享给每一个你 愿意分享的人。8 .附录有些需要说明的局部。如添加ActiveX等非不标准部件，或使用文件操作时对路径有特殊要求等。假设没有特殊要求，此处为“无。无.参考文献1、陈明锐.Visual Basic程序设计及应用教程.北京：高等教育出版社，2021. 122、 张春英.Visual Basic程序设计实例教程.北京:北京邮电大学出版社,2021. 13、 匡松吕峻闽Visual Basic程序设计根底教程.北京：中国铁道出版 社，2006. 11 .课程设计目的?软件设计根底（VB） ?课程设计是这门课程的实践性教学环节之

18、一，本次设 计结合实际应用的要求，使课程设计既覆盖VB的知识点，又接近工程实际需要。 目的是通过课程设计的综合训练，培养学生实际分析问题、解决问题的能力，以 及编程和动手能力，最终目标是通过课程设计这种形式，帮助学生系统掌握VB 这门课程的主要内容，养成良好的编程习惯，更好的完成教学任务。2 .课程设计任务与要求：要求：本次课程设计利用?软件设计根底（VB） ?课程中所学到的编程知识和编程技 巧，完成具有一定难度和工作量的程序设计题目，帮助学生掌握编程、调试的根 本技能，独立完成所布置的任务。要求：1、对系统进行功能需求分析2、设计合理的数据结构和系统框架3、界面设计美观、清楚、合理4、编程简

19、练，程序功能齐全，能正确运行5、具有一定的创新性6、说明书、流程图要清楚7、课题完成后必须按要求提交课程设计报告任务:能够完成数字的连续运算和函数的求值根本要求：(1)能够完成数值常数的四那么运算，不要求支持运算符的优先级。 能够进行如下函数的求值运算，包括sin, cos, tan, exp, log, In, sqr, 1/x, 以及常数e和园周率五。(3)设置5个存贮键，以便将中间运算结果存入，在需要的时候取出参与运 算。(4)支持键盘快捷运算(仅要求数字及运算符)。(5) ON进行初始化，去除内存中的数，OFF退出，CE去除显示。(6)因为控件数目较多，要求采用控件数组，以减少事件处理

20、的复杂程度， 使程序简洁高效。(7)出错处理:操作数如果不符合数学上的定义，应该给出错误信息。例：0 做除数，负数或。做真数等情况。创新要求：如支持运算符的优先级，或者增加新的函数等。3 .课程设计说明书功能描述窗体通过窗体命令按钮或键盘输入数字实现根本的数学运算，使用窗体的功能按钮计算某些特殊函数概要设计模块结构图:根据功能分析，建立系统的体系结构，即将整个系统分解成假设干子模 块，用框图表示各功能模块之间的接口关系（如下列图）。由功能函数求值输入运算符及numN求值简易科学计算器功能框图详细设计总体流程图:2功能函数:3.运算符4 .存储键结束代码实现详细说明各功能模块的实现过程，所用到的

21、算法、技巧等(附上代码)。如: 本系统总共1个窗体：forml详细如下:forml作用：“进入应用程序。所用控件：1个文本框，2个框架，数个命令按钮，2个单项选择按钮和1 个菜单项设计思路：用文本框显示输入的数字并将结果显示在文本框中，用命令按钮 来计算和输入数字。详细内容：command 1 (0-9)为数字的控件数组，command2 (0-7)为功能函数command6 (0-3)为运算符的控件数组。command6 (0-3)为运算符的控件数组。的控件数组，commands (0-4)为记忆按钮, 代码如下：Dim lastinput As String ，定义输入标志Dim numl

22、 As Double 第一个数Dim num2 As Double 第二个数Dim opttype As Integer 运算符Dim optnum As Integer 点击运算符次数Dim i(5) As DoubleDim eqvnum As Integer点击等号次数Function calc(numl, opttype, num2) As Double,自定义运算过程Select Case opttypeCaseO 选择/运算If num2 = 0 Then 除数为。提示出错Text 1 .Text = Error11程序设计界面MsgBox n0不能做除数”,48, “提示”Els

23、ecalc = numl / num2End IfCasel 选择*运算calc = numl * num2Case 2 选择-运算calc = numl - num2Case 3 选择+运算calc = numl + num2End SelectIf Text 1.Text Error1 Then Text 1.Text = Trim(Str(calc)除数为 0 重新输入numl = 0num2 二 0lastinput = neqvopttype = -1End FunctionPrivate Sub Command 1 _Click(Index As Integer)运算数的输入If Len(Textl.Text) 16Then Exit Sub numl 的输入If Text 1.Text = 0 Or lastinput = eqv Then Text 1.Text =Text 1.Text = Text 1.Text & Indexlastinput = numIf lastinput = opt Then num2 的输入