vb科学计算器
vb科学计算器课程设计
vb科学计算器课程设计一、课程目标知识目标:1. 学生能理解并掌握VB编程环境中科学计算器的基本功能与操作。
2. 学生能运用VB编程语言实现加、减、乘、除等基本运算,并掌握科学计算器的扩展功能,如平方根、指数、对数等。
3. 学生能运用所学知识解决实际生活中的科学计算问题。
技能目标:1. 学生能够独立进行VB科学计算器的界面设计,编写程序代码实现计算功能。
2. 学生通过实际操作,提高编程解决问题的能力,培养逻辑思维和动手实践能力。
3. 学生学会使用调试工具,能够发现并修正程序中的错误,提高程序的稳定性。
情感态度价值观目标:1. 学生培养对计算机编程的兴趣和热情,激发创新意识,提高自主学习的积极性。
2. 学生通过合作交流,培养团队协作能力和沟通能力,学会分享与互助。
3. 学生在解决问题的过程中,认识到编程在科学计算领域的重要作用,树立正确的价值观,增强社会责任感。
分析课程性质、学生特点和教学要求:本课程为VB科学计算器编程,结合学生年级特点,注重知识性与趣味性相结合,以培养学生编程兴趣和动手实践能力为主。
在教学过程中,需关注学生的个体差异,因材施教,鼓励学生积极参与,注重培养团队协作和沟通能力。
教学要求明确,以学生为主体,教师为主导,实现课程目标的具体学习成果。
二、教学内容1. VB科学计算器的基本概念与功能- 熟悉VB编程环境- 了解科学计算器的基本功能与操作2. VB编程基础- 变量、常量的定义与使用- 数据类型与运算符- 程序流程控制(顺序、选择、循环结构)3. 科学计算器功能实现- 基本运算(加、减、乘、除)- 扩展功能(平方根、指数、对数)- 界面设计与事件处理4. 程序调试与优化- 使用调试工具- 识别并修正程序错误- 提高程序稳定性与执行效率5. 实践项目与案例分析- 完成一个科学计算器项目- 分析并改进现有科学计算器程序教学安排与进度:第一周:熟悉VB编程环境,学习基本概念与功能第二周:学习VB编程基础,了解程序流程控制第三周:实现科学计算器基本运算功能第四周:完成扩展功能,进行界面设计与事件处理第五周:学习程序调试与优化,分析案例第六周:完成实践项目,进行成果展示与评价教学内容与教材关联:本章节教学内容与教材中相关章节紧密关联,涵盖了《VB程序设计》教材中第二章至第五章的主要内容,确保了教学内容的科学性和系统性。
vb 简易计算器实验报告
简易计算器课程设计报告一、实验目的:模拟计算器的功能。
系统启动后, 先清屏, 再在显示屏右侧显示0字样, 系统仅接收数字键、加减乘除键、退格键、C键(复位)、=或回车键、ESC键(退出系统)作为有效按键, 其余按键不响应。
按键后屏幕显示效果要达到一般计算器显示屏的同样效果。
不要求设计一般计算器上都具有的M功能。
二、实验设计内容及思想:首先, 创建一个主体框架: 建立程序的主要界面后, 系统自动生成界面的主要窗口生成代码。
对于每个按钮的的代码段中, 分别添加事件触发的处理代码。
分别设立三个显示屏, 第一个显示屏作为“被加数”框, 第二个显示屏作为“加数”框, 第三个显示屏则作为输出框。
四则运算时直接采用计算表达式。
所以, 优先级和运算规则皆宜考虑在内。
在进行除法运算时, 若遇到除数为0, 则运用条件语句执行, 并在输出显示屏上输出“E”。
三角函数、指数、对数、整除、取余等运算, 也是运用类似手法。
考虑到计算器的操作简便性, 所以加入了复位和退出按钮。
三、源程序文件:Private Sub Command1_Click()Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x + yEnd SubPrivate Sub Command10_Click()Dim x As Integerx = Text1.TextText3.Text = Cos(x)End SubPrivate Sub Command11_Click()Dim x As Integerx = Text1.TextText3.Text = Tan(x)End SubPrivate Sub Command12_Click()Dim x As Integerx = Text1.TextText3.Text = Atn(x)End SubPrivate Sub Command13_Click() Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x ^ yEnd SubPrivate Sub Command14_Click() Dim x As Integerx = Text1.TextIf x <= 0 ThenText3.Text = "输入错误"ElseText3.Text = Log(x)End IfEnd SubPrivate Sub Command15_Click() Text3.Text = "此按钮仅作装饰用" End SubPrivate Sub Command2_Click() Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x - yEnd SubPrivate Sub Command3_Click() Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x * yEnd SubPrivate Sub Command4_Click() Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextIf y = 0 ThenText3.Text = "E"ElseText3.Text = x / yEnd IfEnd SubPrivate Sub Command5_Click()Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x \ yEnd SubPrivate Sub Command6_Click()Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x Mod yEnd SubPrivate Sub Command7_Click()Text1.Text = ""Text2.Text = ""Text3.Text = " 0" End SubPrivate Sub Command8_Click()EndEnd SubPrivate Sub Command9_Click()Dim x As Integerx = Text1.TextText3.Text = Sin(x)End Sub源代码截图:四、运行结果演示: 加法演示:减法演示: 乘法演示:除法演示:能够整除: 不能够整除:除数为零:。
VB程序语言设计科学计算器
VB程序语言设计课程大作业题目名称:科学计算器设计班级: 12020742姓名:学号:课程教师:温海骏学期: 2014-2015学年第2学期完成时间: 2015年5月1、实验内容《科学计算器》设计本科学计算器是一种能实现加、减、乘、除、倒数、乘方、正玄、余玄、正切、In、n!函数、进制、弧度转换等运算功能,并带有存储器、统计框等,基本实现了Windows自带计算器的所有功能。
要实现计算器的这些功能就用到我们所学的VB知识编写程序来实现运算功能并解决问题,也是我们实训要达到的目的。
2、实验目的1、通过本实验,进一步理解Visual Basic的编程方法。
2、提高运用Visual Basic编程的能力。
3、培养对所学知识的综合运用能力。
4、用所学的VB知识编写程序来实现运算功能并解决问题,达到实训的目的三、实验设备计算机、VB软件4、实验过程1、课题的选材过程(设计思路)由VB程序设计的科学计算器是一种能实现加、减、乘、除、倒数、乘方、正玄、余玄、正切、In、n!函数、进制、弧度转换等运算功能,并带有存储器、统计框等,基本实现了Windows自带计算器的所有功能。
思路:为实现上述功能,我的基本思路是在窗体上建立4个控件数组,第一个控件数组是标准型,实现简单的四则运算;第二个控件数组是科学型,用来进行正弦余弦、正切余切、正割余割、反正弦反余弦、对数和n!等函数功能;第三个控件数组为程序员,实现进制转换;另外一个按钮实现单位转换。
2、设计的将要达到的目标实现加、减、乘、除、倒数、乘方、正玄、余玄、正切、In、n!函数、进制、弧度转换等运算功能,并带有存储器、统计框等,基本实现Windows自带计算器的所有功能。
3、总体设计结构与功能(1)总体设计结构介绍(绘制:结构流程图)结构流程图如下:(2)各功能模块运行界面的功能、算法和操作步骤VB程序算法如下:4、设计结果分析(运行结果展示、正确性分析)经调试,程序运行基本正确。
《软件设计基础(VB)》简单科学计算器课程设计报告书
河北联合大学 《软件设计基础(VB)》课程设计报告设计名称: 姓 名: 专业班级: 学 院: 设计时间: 设计地点:简易科学计算器学 号:指导教师评语:成绩:指导教师签字: 年月日目录1.课程设计目的 ··············································································32.课程设计任务与要求 ·····································································33.课程设计说明书 ···········································································44.课程设计成果 ············································································205.程序调试过程 ············································································236.设计问题的不足和改进方案 ··························································237.课程设计心得 ············································································248.附录 ························································································249.参考文献24《软件设计基础(VB)》课程设计报告第 3 页,共 26 页1.课程设计目的 《软件设计基础(VB)》课程设计是这门课程的实践性教学环节之一,本次设计结合实际应用的要求,使课程设计既覆盖 VB 的知识点,又接近工程实际需 要。
科学计算器vb代码
TabIndex = 21
Top = 2400
Width = 510
End
Begin Command1
Caption = "."
Height = 390
Index = 11
Left = 3915
TabIndex = 20
Top = 2400
Width = 510
Top = 1455
Width = 510
End
Begin Command1
Caption = "4"
Height = 390
Index = 4
Left = 2820
TabIndex = 4
Top = 1455
Width = 510
End
Begin Command1
Caption = "3"
Height = 390
End
End
End
Attribute VB_Name = "Frm_Scientific"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Caption = "*"
Height = 390
IndexLeabharlann = 1Left = 4470
TabIndex = 11
Top = 1455
Width = 510
End
vb简易科学计算器的设计与开发课程设计报告可视化编程武汉理工大学华夏学院
学号《可视化编程》课程设计报告简易科学计算器的设计与开发专业班级:计算机科学与技术1112学生姓名:指导教师:钱小红/李小艳教学系:信息工程系2012年6月15日课程设计报告书学生姓名:专业班级:计算机1111-1112班指导教师:钱小红/李小艳工作单位:华夏学院计算机教研室设计题目:简易科学计算器的设计与开发初始条件:1、完成可视化编程的学习2、带Visual Basic 的机器要求完成的主要任务:主要任务:(在规定的时间内完成下列任务)1、能够完成数值常数的四则运算,不要求支持运算符的优先级。
2、能够进行如下函数的求值运算,包括sin, cos, tan, exp, log, ln, sqr, 1/x,以及常数e和圆周率π。
3、设置5个存贮键,以便将中间运算结果存入,在需要的时候取出参与运算。
4、能够进行初始化,清除内存中的数,退出运算,清除显示。
5、因为控件数目较多,要求采用控件数组,以减少事件处理的复杂程度,使程序简洁高效。
6、出错处理:操作数如果不符合数学上的定义,应该给出错误信息。
例:0做除数,负数或0做真数等情况。
设计报告撰写格式要求:(课程设计报告按统一通用格式书写)具体内容如下:①设计任务与要求②总体方案与说明③程序主要模块的流程图④源程序清单与注释⑤问题分析与解决方案(包括调试记录、调试报告,即在调试过程中遇到的主要问题、解决方法及改进设想);⑥小结与体会附录:①源程序(必须有简单注释)②使用说明③参考资料时间安排:6月15日---21日第一天布置题目,确定任务、查找相关资料第二天~第四天功能分析,编写程序,调试程序、运行系统;第五天程序验收、答辩;撰写设计报告。
指导教师签字:2012年6月15日系主任签字:年月日1.设计任务与要求1.设计任务利用VB语言设计一个简易的科学计算器,学会利用VB控件数组实现数值的计算以及基本函数的计算。
2.基本要求:(1)要能够完成数值常数的四则运算。
VB科学计算器课程设计
目录一、设计内容及要求二、设计原始资料三、设计完成后提交的文件和图表设计四、进程安排五、主要参考资料[摘要]用VB制作这个程序的简单计算器,它包括一个标准的计算器和一个科学计算器。
它可以实现简单的加减乘除四则运算,数字的平方、平方根,正弦、余弦、正切,倒数、指数函数、对数函数,角度、弧度、梯度的转换,以及各进制的相互转换。
而且它的功能还有退格,清除当前数据,清除所有数据,复制数据,粘贴数据。
在这个计算器的程序中,我用到了单行选择语句If…Then…Else…,块语句if…then…end if,If语句的嵌套,多条件选择语句Select Case,而且还用到了按钮、文本框、框架、单选按钮控件,菜单的设计。
在此报告中我重点叙述了计算机的各个功能及用法。
特别是进制间的转换和数字与运算符之间的联系。
虽然描述的不太完整,但我会尽力使用系统结构图,划分多个模块,让大家明白我设计的运算器的功能的。
[关键词]Visual Basic;计算器;对象;代码1三、设计完成后提交的文件和图表设计(要求2000字以上)1. 设计方案实现这个实用计算器,要考虑的主要是以下两个方面的内容:一、设置每个控件按钮的属性。
二、每组控件组都有自己的VB代码,由VB语言实现各个控件按钮的功能。
于是本设计就是以这两个个部分为核心内容展开。
根据设计要求该实用计算器能实现四则运算和部分科学计算法等按钮的控制,根据各组控件按钮源代码的不同,来实现按下不同的按键实现不同的计算过程或结果功能。
本设计大体由窗体、CommandButton、Textbox、Timer 四个模块构成。
其中Commandbutton作为按钮模块,Textbox作为显示模块,Timer作为显示或隐藏部分按键的模块。
Commandbutton按钮实现数字键和其他算法按键的功能;Textbox实现计算过程和结果的数字显示;Timerbox 实现当计算器只用到四则的简单运算时,窗体只显示四种运算的基本按键,当用到科学计算时,再在窗体中显示科学计算的控件按钮。
VB程序设计:计算器
2.3属性设置窗体和各控件的属性设置如下表所示2.4 系统功能本系统的主要功能及任务是1.简单计算2.科学计算2.5 系统功能模块图一.界面设计。
对象属性设置第三章详细设计3.1窗体3.2程序代码Public sum As DoublePublic k As StringPublic pi As DoublePublic c As DoublePublic d As DoublePublic n As DoubleFunction Log10(X)Log10 = Log(X) / Log(10)End FunctionFunction Logn(X)Logn = Log(X) / Log(n)End FunctionPrivate Sub check_Click()Shell "C:\WINDOWS\explorer.exe /263885058/blog/1322900561" End SubPrivate Sub Command1_Click(Index As Integer)Select Case IndexCase 1Text1.Text = Text1.Text & 1Case 2Text1.Text = Text1.Text & 2Case 3Text1.Text = Text1.Text & 3Case 4Text1.Text = Text1.Text & 4Case 5Text1.Text = Text1.Text & 5Case 6Text1.Text = Text1.Text & 6Case 7Text1.Text = Text1.Text & 7Case 8Text1.Text = Text1.Text & 8Case 9Text1.Text = Text1.Text & 9Case 0Text1.Text = Text1.Text & 0Case 10Text1.Text = Text1.Text &"."End SelectEnd SubPrivate Sub Command2_Click(Index As Integer)Select Case IndexCase 0sum = Text1.TextText1.Text = ""k = "+"Case 1sum = Text1.TextText1.Text = ""k = "-"Case 2sum = Text1.TextText1.Text = ""k = "*"Case 3sum = Text1.TextText1.Text = ""k = "/"End SelectEnd SubPrivate Sub Command3_Click()Dim a As Doublea = Text1.TextIf k = "+" Thensum = sum + aText2.Text = sumElseIf k = "-" Thensum = sum - aText2.Text = sumElseIf k = "*" Thensum = sum * aText2.Text = sumElseIf k = "/" Thensum = sum / aText2.Text = sumElseIf k = "sin" Then'等号的三角计算sum = Sin(a * pi / 180)Text2.Text = sumElseIf k = "cos" Thensum = Cos(a * pi / 180)Text2.Text = sumElseIf k = "tan" Thensum = Tan(a * pi / 180)Text2.Text = sumElseIf k = "cot" Thensum = 1 / (Tan(a * pi / 180))Text2.Text = sumElseIf k = "lg" Then'等号的lg计算sum = Log(Val(Text1.Text))Text2.Text = sumElseIf k = "ln" Then'等号的ln计算sum = Log10(Val(Text1.Text))Text2.Text = sumElseIf k = "logn" Then'等号的log n a计算sum = Logn(Val(Text1.Text))Text2.Text = sumElseIf k = "2" Then'等号的幂函数计算sum = (Val(Text1.Text)) ^ 2Text2.Text = sumElseIf k = "c" Thensum = Val(Text1.Text) ^ cText2.Text = sumElseIf k = "0.5" Then'等号的开方运算sum = (Val(Text1.Text)) ^ 0.5Text2.Text = sumElseIf k = "d" Thensum = (Val(Text1.Text)) ^ (1 / d)Text2.Text = sumEnd IfEnd SubPrivate Sub Command4_Click(Index As Integer)Dim b As Integerb = Len(Text1.Text)If b > 1 ThenText1.Text = Val(Str(Left(Text1.Text, Len(Text1.Text) - 1))) ElseText1.Text = ""End IfEnd SubPrivate Sub Command5_Click()Text1.Text = ""Text2.Text = ""Label2.Caption = ""Label3.Caption = ""a = 0b = 0k = ""End SubPrivate Sub Command6_Click(Index As Integer)Select Case IndexCase 0Label2.Caption = "sin"k = "sin"Case 1Label2.Caption = "cos"k = "cos"Case 2Label2.Caption = "tan"k = "tan"Case 3Label2.Caption = "cot"k = "cot"Case 4'对数计算Label2.Caption = "lg"k = "lg"Case 5Label2.Caption = "ln"k = "ln"Case 6n = Val(InputBox("请输入对数运算的底数", 请输入数字)) Label2.Caption = "log" '普通对数计算Label4.Caption = nk = "logn"Case 7'幂运算Label3.Caption = "2"k = "2"Case 8c = Val(InputBox("请输入运算幂指数", 输入数字))Label3.Caption = ck = "c"Case 9'幂运算Label2.Caption = "√"k = "0.5"Case 10'开方运算d = Val(InputBox("请输入需要开多少次方", 输入数字))Label2.Caption = d &"√"k = "d"End SelectEnd SubPrivate Sub Command7_Click()Shell "C:\WINDOWS\explorer.exe " End SubPrivate Sub Command8_Click()Text1.Text = sumEnd SubPrivate Sub Command9_Click()EndEnd SubPrivate Sub end_Click()EndEnd SubPrivate Sub explain_Click()End SubPrivate Sub Form_Load()pi = 4 * Atn(1)End SubPrivate Sub help_Click()End SubPrivate Sub Text1_Change()End Sub。
用VB制作计算器
用VB制作计算器在VB编程语言中,可以使用Windows Forms应用程序来制作一个简单的计算器。
Windows Forms应用程序是VB的一种可视化编程工具,可以为用户提供一个图形用户界面。
首先,我们需要创建一个新的Windows Forms应用程序项目,并打开默认生成的Form1窗体。
接下来,我们可以使用Windows Forms控件来创建一个计算器的用户界面。
在Form1窗体上,我们可以添加一个TextBox控件用于显示计算结果,并设置其属性为只读。
```vbPrivate ReadOnly resultTextBox As TextBox = New TextBox```然后,我们可以添加一些Button控件来表示计算器的数字和操作符。
我们可以使用按钮的Click事件来处理用户的点击操作。
```vbPrivate ReadOnly buttons As List(Of Button) = New List(Of Button)```接下来,我们需要实现按钮的Click事件处理程序来执行相应的计算逻辑。
我们可以使用Eval函数来计算表达式的值,并将结果显示在TextBox中。
Private Sub Button_Click(sender As Object, e As EventArgs) Dim button As Button = TryCast(sender, Button)If button IsNot Nothing ThenDim buttonText As String = button.TextIf buttonText = "=" Then'计算表达式的值Dim expression As String = resultTextBox.TextDim value As Double = Eval(expression)resultTextBox.Text = value.ToStringElseIf buttonText = "C" Then'清空文本框resultTextBox.Text = ""Else'添加数字或操作符resultTextBox.Text += buttonTextEnd IfEnd IfEnd Sub最后,我们需要在窗体的构造函数或Load事件处理程序中将按钮和TextBox添加到窗体上。
vb 制作计算器程序设计.doc_3
---------------------------------------------------------------最新资料推荐------------------------------------------------------vb 制作计算器程序设计.docVb 程序设计课程设计报告《科学计算器的设计》专业:工商管理类班级:1107 班学号:110808703 姓名:魏启岚指导教师:阮冰设计日期:2019 年 6 月 14 日第一章:课程设计概述第二章:总体设计第三章:详细设计第四章:调试分析过程描述第五章:综合设计体会参考文献第一章:课程设计概述 1.1、课程设计名称一、课程设计名称《科学计算器的设计》 1.2、任务要求一、随着电子技术的发展,计算机的功能越来越强大,精度越来越高,性能越来越好,可以实现复杂的科学计算, Windows 系统也自带了一个功能强大的计算器。
本次课设要设计一个科学计算器,除了基本的四则运算之外,还有三角与反三角、对数与反对数、乘方与幂运算等。
科学计算器除了具有普通计算器的标准功能之外,还具有1 / 10很多其他数据计算功能。
本次课设设计的科学计算器包括以下功能:1.具有小数点后 10 位以上的精度。
2.可以直接输出随机数、圆周率、自然对数的底数和重力加速度等常用常数。
3.可以输入 0~9、 00、小数点等数字或数学符号,并能对数字取反。
4.能够计算加、减、乘、除四则运算。
5.可以计算倒数、平方、立方、开方和任意乘方或幂指运算,以及阶乘运算。
6.能够计算以 10 为底的对数和自然对数,以及自然对数为底的幂运算。
7.具有三角与反三角函数的计算功能,并能在角度、弧度和梯度之间进行换算。
8.可以将数据记录到内存中,并能将输入的数据和内存中的数据进行四则运算。
9.能够实现数据的统计计算,包括和、平均值和方差。
10.可以对计算或输入的结果进行复制,也能通过粘贴方式向计算器输入数字。
vb科学计算器
课程设计指导书课程vb计算器程序设计班级姓名学号目录一功能描述 (3)二概要设计及设计流程框图 (3)三详细设计..................................................................。
3 四效果及运行界面图......................................................。
.4 五心得体会.. (4)六附录.........................................................................。
6 七参考文献...................................................................。
6 八本人在改组中完成的部分.. (7)九进度安排……………………………………………。
……………。
7一、功能描述:窗体通过窗体命令按钮或键盘输入数字实现基本的数学运算,使用窗体的功能按钮计算某些特殊函数二、概要设计及设计流程框图:使用vb设计科学型计算器,功能介于科学型和简单型之间,要求能进行加、减、乘、除和开方、乘方、对数、三角函数计算,可以存储与调出数据。
在这个计算器的程序中,我用到了单行选择语句If …Then …Else…,If语句的嵌套,多条件选择语句Select Case。
三、详细设计:本系统1个文本框,数个命令按钮,数个数字按钮用文本框显示输入的数字并将结果显示在文本框中,用命令按钮来计算和输入数字。
详细内容:command12(0-9)为数字的控件数组,command13(4—11)为功能函数的控件数组,command13(0-3)为运算符的控件数组,command25为小数点按钮,command26为等号按钮,command1为开关按钮,command2为清除按钮。
四、效果及运行界面:基本能完成所有运算五、心得体会为期一周的实训即将结束,通过这次的实训使我们学到了很多,同时也让我们意识到我们要学的更多.本次实训的内容是科学计算器的程序设计,以小组的形式进行分工合作,我组共4个人,从程序的需求分析、可行性分析、设计到编写、调试、修改、完善、到最后的实训报告,每个人都付出了时间和精力去做好自己的任务并努力地去完善它。
使用VB制作计算器程序
使用VB制作计算器程序计算器程序是一种用于进行数学计算的工具。
最常见的计算器是电子计算器,它可以实现简单的加减乘除等基本计算。
而现在,我们可以使用VB(即Visual Basic)编程语言制作一个计算器程序,使其在计算能力上有所提升。
首先,我们需要创建一个VB Windows Forms应用程序。
在创建项目时,我们可以选择桌面应用程序(Windows Forms)模板。
接下来,我们需要设计计算器的用户界面。
可以使用按钮、文本框等控件来实现基本的数字输入和计算。
假设我们的计算器有一个文本框用于显示输入和结果,并且有数字按钮和运算符按钮来输入表达式,并且还有一个等号按钮用于计算结果。
我们可以使用VB代码来实现各种按钮的功能。
以下是一个简单的计算器程序示例:```vbPublic Class Form1Dim num1 As Double ' 第一个操作数Dim num2 As Double ' 第二个操作数Dim result As Double ' 结果Dim operator As String ' 运算符'数字按钮的点击事件处理函数Private Sub NumberButton_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click, Button0.ClickDim number As Button = CType(sender, Button)TextBox1.Text += number.TextEnd Sub'运算符按钮的点击事件处理函数Private Sub OperatorButton_Click(sender As Object, e As EventArgs) Handles PlusButton.Click, MinusButton.Click, MultiplyButton.Click, DivideButton.ClickDim op As Button = CType(sender, Button)num1 = CDbl(TextBox1.Text)TextBox1.Clear[operator] = op.TextEnd Sub'等号按钮的点击事件处理函数Private Sub EqualsButton_Click(sender As Object, e As EventArgs) Handles EqualsButton.Clicknum2 = CDbl(TextBox1.Text)Select Case [operator]Case "+"result = num1 + num2Case "-"result = num1 - num2Case "*"result = num1 * num2Case "/"result = num1 / num2End SelectTextBox1.Text = result.ToStringEnd Sub'清除按钮的点击事件处理函数Private Sub ClearButton_Click(sender As Object, e As EventArgs) Handles ClearButton.ClickTextBox1.ClearEnd SubEnd Class```以上代码实现了简单的加减乘除功能,并将结果显示在文本框中。
VB程序设计:计算器
2.3属性设置窗体和各控件的属性设置如下表所示2.4 系统功能本系统的主要功能及任务是1.简单计算2.科学计算2.5 系统功能模块图一.界面设计。
对象属性设置第三章详细设计3.1窗体3.2程序代码Public sum As DoublePublic k As StringPublic pi As DoublePublic c As DoublePublic d As DoublePublic n As DoubleFunction Log10(X)Log10 = Log(X) / Log(10)End FunctionFunction Logn(X)Logn = Log(X) / Log(n)End FunctionPrivate Sub check_Click()Shell "C:\WINDOWS\explorer.exe /263885058/blog/1322900561" End SubPrivate Sub Command1_Click(Index As Integer)Select Case IndexCase 1Text1.Text = Text1.Text & 1Case 2Text1.Text = Text1.Text & 2Case 3Text1.Text = Text1.Text & 3Case 4Text1.Text = Text1.Text & 4Case 5Text1.Text = Text1.Text & 5Case 6Text1.Text = Text1.Text & 6Case 7Text1.Text = Text1.Text & 7Case 8Text1.Text = Text1.Text & 8Case 9Text1.Text = Text1.Text & 9Case 0Text1.Text = Text1.Text & 0Case 10Text1.Text = Text1.Text &"."End SelectEnd SubPrivate Sub Command2_Click(Index As Integer)Select Case IndexCase 0sum = Text1.TextText1.Text = ""k = "+"Case 1sum = Text1.TextText1.Text = ""k = "-"Case 2sum = Text1.TextText1.Text = ""k = "*"Case 3sum = Text1.TextText1.Text = ""k = "/"End SelectEnd SubPrivate Sub Command3_Click()Dim a As Doublea = Text1.TextIf k = "+" Thensum = sum + aText2.Text = sumElseIf k = "-" Thensum = sum - aText2.Text = sumElseIf k = "*" Thensum = sum * aText2.Text = sumElseIf k = "/" Thensum = sum / aText2.Text = sumElseIf k = "sin" Then'等号的三角计算sum = Sin(a * pi / 180)Text2.Text = sumElseIf k = "cos" Thensum = Cos(a * pi / 180)Text2.Text = sumElseIf k = "tan" Thensum = Tan(a * pi / 180)Text2.Text = sumElseIf k = "cot" Thensum = 1 / (Tan(a * pi / 180))Text2.Text = sumElseIf k = "lg" Then'等号的lg计算sum = Log(Val(Text1.Text))Text2.Text = sumElseIf k = "ln" Then'等号的ln计算sum = Log10(Val(Text1.Text))Text2.Text = sumElseIf k = "logn" Then'等号的log n a计算sum = Logn(Val(Text1.Text))Text2.Text = sumElseIf k = "2" Then'等号的幂函数计算sum = (Val(Text1.Text)) ^ 2Text2.Text = sumElseIf k = "c" Thensum = Val(Text1.Text) ^ cText2.Text = sumElseIf k = "0.5" Then'等号的开方运算sum = (Val(Text1.Text)) ^ 0.5Text2.Text = sumElseIf k = "d" Thensum = (Val(Text1.Text)) ^ (1 / d)Text2.Text = sumEnd IfEnd SubPrivate Sub Command4_Click(Index As Integer)Dim b As Integerb = Len(Text1.Text)If b > 1 ThenText1.Text = Val(Str(Left(Text1.Text, Len(Text1.Text) - 1))) ElseText1.Text = ""End IfEnd SubPrivate Sub Command5_Click()Text1.Text = ""Text2.Text = ""Label2.Caption = ""Label3.Caption = ""a = 0b = 0k = ""End SubPrivate Sub Command6_Click(Index As Integer)Select Case IndexCase 0Label2.Caption = "sin"k = "sin"Case 1Label2.Caption = "cos"k = "cos"Case 2Label2.Caption = "tan"k = "tan"Case 3Label2.Caption = "cot"k = "cot"Case 4'对数计算Label2.Caption = "lg"k = "lg"Case 5Label2.Caption = "ln"k = "ln"Case 6n = Val(InputBox("请输入对数运算的底数", 请输入数字)) Label2.Caption = "log" '普通对数计算Label4.Caption = nk = "logn"Case 7'幂运算Label3.Caption = "2"k = "2"Case 8c = Val(InputBox("请输入运算幂指数", 输入数字))Label3.Caption = ck = "c"Case 9'幂运算Label2.Caption = "√"k = "0.5"Case 10'开方运算d = Val(InputBox("请输入需要开多少次方", 输入数字))Label2.Caption = d &"√"k = "d"End SelectEnd SubPrivate Sub Command7_Click()Shell "C:\WINDOWS\explorer.exe " End SubPrivate Sub Command8_Click()Text1.Text = sumEnd SubPrivate Sub Command9_Click()EndEnd SubPrivate Sub end_Click()EndEnd SubPrivate Sub explain_Click()End SubPrivate Sub Form_Load()pi = 4 * Atn(1)End SubPrivate Sub help_Click()End SubPrivate Sub Text1_Change()End Sub。
《VB科学计算器》PPT课件
的
、Dat、s、Sum等按钮以sin/cos/tan计算时角度和弧
设
度的转换的设计。
计
⑤科学行计算器中,Mod,Not,And,Xor,Int,
Or,lsh,exit按钮。
⑥标准型菜单部分(查看菜单标准型、科学型。帮
助菜单中包含关于(about)及标准型和科学型的数字
键和科学型的各进制转换的设计。
功能流程图
科学计算器的设计与实现
08电子一班 唐月红
①科学计算器中,BackSpance、CE、C和运算符
号+、-、*、/、.、-/+、=以及标准型计算器的设计。
基
②科学型角度弧度的设计。
本
③科学计算器中,x^2,x^3,x^y,1/x,n!,Log,In按
功
键,及各进制转之间的相互转换的设计。
能
④科学计算器中,sin,cos,tan,dms,F-E,Exp、pi
科学计算器
统计框
数据的处理
平标求 均准和 值误
差
保调清 存出除
Байду номын сангаас
进
制
特殊功能
基本运算
之
间
的
转 换
+- *\
科 三 倒 阶指 角乘 对 学 角 数 乘数 度方 数
计函
弧
函
数数
度
数
法的
梯
运
度
算
仿真界面如下:
Thank you!
VB实验程序文档(计算器文本时钟)
课程: VB实验程序文档学院:专业:姓名:学号:分数:授课教师:提交时间: 2014 年 6 月 26 日一计算器一、分析问题,选择算法科学计算器主要实现基本的加减乘除运算、正弦余弦、正切余切、正割余割、反正弦反余弦、双曲正弦、双曲余弦、对数和求绝对值等函数功能。
为实现上述功能,我的基本思路是在窗体上建立三个控件数组,第一个控件数组有十五个命令按钮,分别实现正弦余弦、正切余切、正割余割、反正弦反余弦、双曲正弦、双曲余弦、对数和求绝对值等函数功能;第二个控件数组作包括十二个命令按钮,用来进行计算器的数据输入;第三个控件数组为基本的运算符号,实现基本加减乘除和乘方运算。
退格、清除、等于、退出作为独立的命令按钮,另外设计一个功能切换按钮实现显示当前系统日期和时间。
二、建立用户界面界面如下:二记事本一记事本说明:参考Window中的记事本程序,用VB实现相同的功能二设计要求:1.记事本文件菜单的新建、打开、保存、另存为、退出功能。
2.记事本编辑菜单的剪切、复制、粘贴、查找、替换、全选、日期等功能。
3.记事本格式菜单的字体、字体颜色、自动换行功能。
4.记事本查看菜单的状态栏。
5.记事本的帮助对话。
6.每一个方法或函数都要有功能描述和参数说明。
三记事本界面:三时钟一:课程设计实验目的了解vb课程开发环境中的绘图功能,如何使用弹出式菜单,定时器控间的使用,初步了解API函数的调用,懂得绘制非矩形窗口,以及如何使用公共对话框二:功能要求1:程序启动时,指针式和数字式时钟显示当前系统时间,指针式的时针,分针,秒针实时地进行移动2:鼠标右击时钟表面,弹出快捷菜单,从菜单中选择“数字式”,始终界面切换为数码管式。
在数码管式界面上单击鼠标右键弹出快捷菜单,该菜单与指针界面下的菜单有所不同。
选择“指针式”命令可以返回指针风格3在指针风格下,从快捷菜单中的“样式”子菜单选择一种样式(简单型,朴素型,含蓄型和热烈型),可以改变指针式的表盘图片4:在指针风格下,通过“颜色”菜单可以打开“颜色”公共对话框分别为时针,分针,秒针制定不同的颜色。
vb计算器 实验报告
vb计算器实验报告VB计算器实验报告引言:计算器是人们日常生活中常用的工具之一,无论是进行简单的数学运算还是复杂的科学计算,计算器都能提供帮助。
本实验旨在使用VB(Visual Basic)编程语言设计和实现一个功能完善的计算器,通过该实验,我们可以深入了解计算器的原理和实现方法,并掌握VB编程的基本技巧。
一、实验目的本实验的主要目的是设计和实现一个VB计算器,具体包括以下几个方面:1. 学习VB编程语言的基本语法和数据类型;2. 掌握VB窗体的设计和布局;3. 实现基本的计算功能,包括加减乘除、取余、开方等;4. 实现科学计算功能,包括三角函数、指数函数、对数函数等;5. 实现计算器的界面美化和用户友好性。
二、实验原理1. VB编程语言VB是一种事件驱动的编程语言,它提供了丰富的控件和库函数,方便开发者进行图形界面的设计和实现。
在本实验中,我们将使用VB编程语言来实现计算器的功能。
2. VB窗体设计VB窗体是计算器的主界面,通过在窗体上添加各种控件,如按钮、文本框等,来实现计算器的各种功能。
通过设置控件的属性和事件,可以实现用户与计算器的交互。
3. 计算器的基本功能实现计算器的基本功能包括加减乘除、取余、开方等,这些功能可以通过VB编程语言中提供的数学函数和运算符来实现。
通过捕捉用户输入的数据和操作符,计算器可以进行相应的计算并将结果显示在屏幕上。
4. 科学计算功能的实现科学计算功能是计算器的扩展功能,包括三角函数、指数函数、对数函数等。
这些函数可以通过VB编程语言中提供的数学库函数来实现,通过捕捉用户的选择和输入,计算器可以根据用户的需求进行相应的科学计算。
5. 界面美化和用户友好性为了提高计算器的用户体验,我们需要对计算器的界面进行美化和优化。
通过设置控件的样式、颜色和布局,可以使计算器界面更加美观和易用。
三、实验步骤1. 创建VB工程,并添加一个窗体;2. 在窗体上添加各种控件,如按钮、文本框等,用于实现计算器的各种功能;3. 设置控件的属性和事件,实现计算器的基本功能,包括加减乘除、取余、开方等;4. 添加科学计算功能,如三角函数、指数函数、对数函数等,实现科学计算器的功能;5. 美化计算器界面,通过设置控件的样式、颜色和布局,提高用户体验;6. 进行测试和调试,确保计算器的功能正常。
科学计算器vb代码
Width = 630
End
Begin mandButton Cmd_Ln
Caption = "Ln"
Height = 390
Left = 1575
TabIndex = 35
Top = 960
Width = 630
End
Begin mandButton Cmd_Square
Caption = "C"
Height = 405
Left = 4785
TabIndex = 15
Top = 405
Width = 750
End
Begin mandButton Cmd_CE
Caption = "CE"
Height = 405
Left = 3975
TabIndex = 14
Caption = "Tan"
Height = 390
Left = 120
TabIndex = 28
Top = 1935
Width = 630
End
Begin mandButton Cmd_Atan
Caption = "Atan"
Height = 390
Left = 120
TabIndex = 27
TabIndex = 17
Top = 1935
Width = 510
End
Begin mandButton Cmd_sqrt
Caption = "Sqrt"
Height = 390
Left = 5025
TabIndex = 16
简单科学计算器vb程序
’//本人写的原始程序'注意没法实现如下功能:10+===然后输入10再=。
此程序会结果出错Dim denghao, fenghao As Boolean 'denghao判断是否按下“=”,fenghao判断是否按下“1/X”Dim xiaoshu, biaoji As Boolean 'xiaoshu判断是否已按“.”,biaoji第一次判断前面是否按过“+”“-”等运算符按钮Dim fuhao As Byte '运算符类型标号Dim leixin As Byte '进制转换类型Dim fistnumber, last As Double 'fistnumber第一个数据,最后一个数据Dim panduan, jinzhi As Boolean 'panduan判断前面是否连续按“+”“-”等运算符按钮Dim denglianxu As Boolean 'denglianxu判断前面是否连续安"="Dim m, n, i, sum As DoubleDim pi As Double 'sin,cosDim kuahao As Boolean '判断是否按下“(”Dim si As StringDim shilu, bajin As Boolean '十六进制下才能输入A-F;八进制下8-9不能输入Dim h, d, o, b As Integer '进制Dim se, s As DoubleDim ejin As Boolean '判断2-9,在二进制下不能输入Private Sub baifeng_Click() '1/X的程序If Not biaoji Thenfuhao = 7If Val(Text1.Text) = "0" ThenText1.Text = "除数不能为零"ElseCall jieguoEnd IfElseCall jieguofuhao = 7Call jieguoEnd Iffenghao = Truexiaoshu = FalseEnd SubPrivate Sub clear_Click()If clear.Value = 1 Then Text1.Text = "0"xiaoshu = Falseclear.Value = 0sum = 1biaoji = Falsepanduan = Falsedenghao = Falselast = 0fistnumber = 0denglianxu = FalseX = 0si = ""i = 0sum = 0shilu = Falsebajin = Falseejin = FalseEnd SubPrivate Sub Command11_Click() '+/-号Text1.Text = -1 * Val(Text1.Text)If Left(Val(Text1.Text), 1) = "." Then Text1.Text = "0" + Text1.Text If Left(Val(Text1.Text), 2) = "-." ThenText1.Text = -1 * Val(Text1.Text)Text1.Text = "-0" + Text1.TextEnd Ifpanduan = Truedenglianxu = Falsedenghao = TrueEnd SubPrivate Sub Command0_Click()If Text1.Text = "0" ThenText1.Text = 0ElseIf Not denghao And Not fenghao ThenIf Not kuahao Then Text1.Text = Text1.Text + "0"ElseText1.Text = "0"denglianxu = Falsefenghao = Falsedenghao = Falsepanduan = FalseEnd IfEnd SubPrivate Sub Command1_Click()If Text1.Text = "0" Then Text1.Text = ""If Not denghao And Not fenghao ThenIf Not kuahao Then Text1.Text = Text1.Text + "1" ElseText1.Text = "1"denglianxu = Falsefenghao = Falsedenghao = Falsepanduan = Falsekuahao = FalseEnd IfEnd SubPrivate Sub Command2_Click()If Text1.Text = "0" Then Text1.Text = ""If ejin ThenMsgBox "请输入二进制数"Text1.Text = 0Exit SubEnd IfIf Not denghao And Not fenghao ThenIf Not kuahao Then Text1.Text = Text1.Text + "2" ElseText1.Text = "2"fenghao = Falsedenghao = Falsepanduan = Falsedenglianxu = Falsekuahao = FalseEnd IfEnd SubPrivate Sub Command3_Click()If Text1.Text = "0" Then Text1.Text = ""If ejin ThenMsgBox "请输入二进制数"Text1.Text = 0Exit SubEnd IfIf Not denghao And Not fenghao ThenIf Not kuahao Then Text1.Text = Text1.Text + "3" ElseText1.Text = "3"fenghao = Falsedenghao = Falsepanduan = Falsedenglianxu = Falsekuahao = FalseEnd IfEnd SubPrivate Sub Command4_Click()If Text1.Text = "0" Then Text1.Text = ""If ejin ThenMsgBox "请输入二进制数"Text1.Text = 0Exit SubEnd IfIf Not denghao And Not fenghao ThenIf Not kuahao Then Text1.Text = Text1.Text + "4" ElseText1.Text = "4"fenghao = Falsedenghao = Falsepanduan = Falsekuahao = FalseEnd Ifdenglianxu = FalseEnd SubPrivate Sub Command5_Click()If Text1.Text = "0" Then Text1.Text = ""If ejin ThenMsgBox "请输入二进制数"Exit SubEnd IfIf Not denghao And Not fenghao ThenIf Not kuahao Then Text1.Text = Text1.Text + "5" ElseText1.Text = "5"denghao = Falsefenghao = Falsepanduan = Falsekuahao = FalseEnd Ifdenglianxu = FalseEnd SubPrivate Sub Command6_Click()If Text1.Text = "0" Then Text1.Text = ""If ejin ThenMsgBox "请输入二进制数"Text1.Text = 0Exit SubEnd IfIf Not denghao And Not fenghao ThenIf Not kuahao Then Text1.Text = Text1.Text + "6" ElseText1.Text = "6"denghao = Falsefenghao = Falsepanduan = Falsekuahao = FalseEnd Ifdenglianxu = FalseEnd SubPrivate Sub Command7_Click()If Text1.Text = "0" Then Text1.Text = ""If ejin ThenMsgBox "请输入二进制数"Text1.Text = 0Exit SubEnd IfIf Not denghao And Not fenghao ThenIf Not kuahao Then Text1.Text = Text1.Text + "7" Elsedenghao = Falsefenghao = Falsepanduan = Falsekuahao = FalseEnd Ifdenglianxu = FalseEnd SubPrivate Sub Command8_Click()If Text1.Text = "0" Then Text1.Text = ""If bajin ThenMsgBox "请输入八进制数"Text1.Text = 0Exit SubEnd IfIf ejin ThenMsgBox "请输入二进制数"Text1.Text = 0Exit SubEnd IfIf Not denghao And Not fenghao ThenIf Not kuahao Then Text1.Text = Text1.Text + "8" ElseText1.Text = "8"denghao = Falsefenghao = Falsepanduan = Falsekuahao = FalseEnd Ifdenglianxu = FalseEnd SubPrivate Sub Command9_Click()If Text1.Text = "0" Then Text1.Text = ""If bajin ThenMsgBox "请输入八进制数"Text1.Text = 0Exit SubEnd IfIf ejin ThenMsgBox "请输入二进制数"Text1.Text = 0Exit SubIf Not denghao And Not fenghao ThenIf Not kuahao Then Text1.Text = Text1.Text + "9" ElseText1.Text = "9"denghao = Falsefenghao = Falsepanduan = Falsekuahao = FalseEnd Ifdenglianxu = FalseEnd SubPrivate Sub Command17_Click(Index As Integer) If shilu ThenSelect Case IndexCase 0If Text1.Text = "0" Then Text1.Text = ""If Not denghao And Not fenghao ThenText1.Text = Text1.Text + "A"ElseText1.Text = "A"denghao = Falsefenghao = Falsepanduan = FalseEnd IfCase 1If Text1.Text = "0" Then Text1.Text = ""If Not denghao And Not fenghao ThenText1.Text = Text1.Text + "B"ElseText1.Text = "B"denghao = Falsefenghao = Falsepanduan = FalseEnd IfCase 2If Text1.Text = "0" Then Text1.Text = ""If Not denghao And Not fenghao ThenText1.Text = Text1.Text + "C"ElseText1.Text = "C"denghao = Falsefenghao = Falsepanduan = FalseCase 3If Text1.Text = "0" Then Text1.Text = "" If Not denghao And Not fenghao Then Text1.Text = Text1.Text + "D"ElseText1.Text = "D"denghao = Falsefenghao = Falsepanduan = FalseEnd IfCase 4If Text1.Text = "0" Then Text1.Text = "" If Not denghao And Not fenghao Then Text1.Text = Text1.Text + "E"ElseText1.Text = "E"denghao = Falsefenghao = Falsepanduan = FalseEnd IfCase 5If Text1.Text = "0" Then Text1.Text = "" If Not denghao And Not fenghao Then Text1.Text = Text1.Text + "F"ElseText1.Text = "F"denghao = Falsefenghao = Falsepanduan = FalseEnd IfEnd SelectElseMsgBox "无效函数"End IfEnd SubPrivate Sub eee_Click() 'e为底的指数fuhao = 5Call jieguoxiaoshu = FalsePrivate Sub lne_Click() 'e为底的对数If Text1.Text > 0 Thenfuhao = 6Call jieguoElseMsgBox "函数输入无效", vbRetryCancel, "信息提示" End Ifxiaoshu = FalseEnd SubPrivate Sub exit_Click()EndEnd SubPrivate Sub Form_Load()biaoji = FalseText1.Text = 0sum = 1si = ""xiaoshu = Falsepaiduan = Falsedenghao = Falsedenglianxu = Falseerjin = Falsed = 1i = 0bajin = Falseejin = False'x = 0End SubPrivate Sub jiahao_Click()If Not biaoji Thenfistnumber = Val(Text1.Text)ElseIf Not panduan ThenCall jieguofistnumber = Val(Text1.Text)ElseText1.Text = Val(Text1.Text)End Iffuhao = 1xiaoshu = Falsebiaoji = Truedenghao = Truepanduan = Truedenglianxu = FalseEnd SubPrivate Sub jianhao_Click()If Not biaoji Thenfistnumber = Val(Text1.Text)ElseIf Not panduan ThenCall jieguofistnumber = Val(Text1.Text)ElseText1.Text = Val(Text1.Text)End Iffuhao = 2xiaoshu = Falsedenghao = Truepanduan = Truebiaoji = Truedenglianxu = FalseEnd SubPrivate Sub chenghao_Click()If Not biaoji Then '没有按下运算符fistnumber = Val(Text1.Text)ElseIf Not panduan Then '没有连续按运算按钮Call jieguofistnumber = Val(Text1.Text)ElseText1.Text = Val(Text1.Text)End Iffuhao = 3xiaoshu = Falsebiaoji = Truedenghao = Truepanduan = Truedenglianxu = FalseEnd SubPrivate Sub chuhao_Click()If Not biaoji Thenfistnumber = Val(Text1.Text)ElseIf Not panduan ThenCall jieguofistnumber = Val(Text1.Text)ElseText1.Text = Val(Text1.Text)End Iffuhao = 4xiaoshu = Falsebiaoji = Truedenghao = Truepanduan = Truedenglianxu = FalseEnd SubPrivate Sub Command10_Click() '加“(”括号m = fuhaon = fistnumberbiaoji = FalseText1.Text = "("kuahao = FalseEnd SubPrivate Sub Com_Click() '加“)”括号Call jieguofistnumber = nfuhao = mpanduan = Falsefenghao = Truexiaoshu = FalseEnd SubPrivate Sub result_Click()If panduan Then '有两个以上连续的运算符If Not denglianxu Then '只按了一个等号Text1.Text = Val(Text1.Text)Call jieguoElse '按两个以上的等号Call jianchuEnd IfElse '没有连续运算符(运算符在两个数中间)'Call xxxdenglianxu = FalseCall jieguoEnd IfEnd SubPrivate Sub point_Click()If Not denghao And Not fenghao ThenIf Not kuahao ThenIf Text1.Text = "." Then Text1.Text = "0."End IfIf Not xiaoshu ThenText1.Text = Text1.Text + "."xiaoshu = TrueEnd IfElseText1.Text = "0."denghao = Falsefenghao = FalseEnd IfEnd SubPublic Sub jianchu() '多个等号连续时调用last = Val(Text1.Text)Text1.Text = fistnumberIf fuhao = 1 Then Text1.Text = last + Text1.TextIf fuhao = 2 Then Text1.Text = last - Text1.TextIf fuhao = 3 Then Text1.Text = last * Text1.TextIf fuhao = 4 ThenIf Val(Text1.Text) = "0" ThenText1.Text = "除数不能为零"ElseText1.Text = last / Val(Text1.Text)End IfEnd IfIf Left(Val(Text1.Text), 1) = "." Then Text1.Text = "0" + Text1.TextEnd SubPrivate Sub jiecheng_Click() '阶乘Dim n As Integer, Y As Double, i As Integer 'double和variant变量最多算到170!long最多算到12!If Val(Text1.Text) < 0 ThenText1.Text = "函数输入无效"ElseIf Val(Text1.Text) >= 171 ThenText1.Text = "超出本计算器计算范围"Elsen = Val(Text1.Text)Y = 1For i = 1 To nY = Y * iNext iText1.Text = Str(Y)End IfEnd SubPrivate Sub duishu_Click() '对数If Val(Text1.Text) <= 0 Or V al(Text1.Text) = 1 ThenText1.Text = "函数输入无效"ElseIf Not biaoji Thenfistnumber = Val(Text1.Text)ElseIf Not panduan ThenCall jieguofistnumber = Val(Text1.Text)ElseText1.Text = Val(Text1.Text)End Iffuhao = 9xiaoshu = Falsebiaoji = Truedenghao = Truepanduan = Truedenglianxu = FalseEnd SubPrivate Sub zhishu_Click() '指数If Not biaoji Thenfistnumber = Val(Text1.Text) ElseIf Not panduan ThenCall jieguofistnumber = Val(Text1.Text)ElseText1.Text = Val(Text1.Text)End Iffuhao = 8xiaoshu = Falsebiaoji = Truedenghao = Truepanduan = Truedenglianxu = FalseEnd SubPrivate Sub yuxuan_Click() '余弦fuhao = 10Call jieguoEnd SubPrivate Sub zhengxuan_Click() '正弦fuhao = 11Call jieguoEnd SubPrivate Sub Option1_Click() '16 leixin = 1shilu = Truebajin = Falseejin = FalseCall zhuanhuand = 0o = 0b = 0denghao = TrueEnd SubPrivate Sub Option2_Click() '10 leixin = 2shilu = Falsebajin = Falseejin = FalseCall zhuanhuand = 1h = 0o = 0b = 0denghao = TrueEnd SubPrivate Sub Option3_Click() '8 bajin = Trueleixin = 3shilu = Falseejin = FalseCall zhuanhuano = 1h = 0d = 0b = 0denghao = TrueEnd SubPrivate Sub Option4_Click() '2 leixin = 4ejin = Trueshilu = Falsebajin = FalseCall zhuanhuanb = 1h = 0o = 0denghao = TrueEnd SubPublic Sub zhuanhuan() '进制转换If leixin = 1 ThenIf d = 1 Then Text1.Text = Hex(Text1.Text) '十进制转换成十六进制If o = 1 Then Text1.Text = Hex("&o" & Text1.Text) '八进制转换成十六进制If b = 1 ThenCall ezsText1.Text = Hex(Text1.Text) '二进制转换成十六进制End IfEnd IfIf leixin = 2 ThenIf h = 1 Then Text1.Text = CLng("&h" & Text1.Text) '十六进制转换成十进制If o = 1 Then Text1.Text = CLng("&o" & Text1.Text) '八进制转换成十进制If b = 1 Then Call ezs '二进制转换成十进制End IfIf leixin = 3 Then'If Val(Text1.Text) > 7 Then'MsgBox "请输入八进制数"'Text1.Text = 0'Exit Sub'End If'If Val(Text1.Text) >= 0 And Val(Text1.Text) <= 32767 ThenIf h = 1 Then Text1.Text = Oct("&h" & Text1.Text) '十六进制转换成八进制If d = 1 Then Text1.Text = Oct$(Text1.Text) '十进制转换成八进制If b = 1 ThenCall ezsText1.Text = Oct$(Text1.Text) '二进制转换成八进制End If'Else'MsgBox "请输Integer类型的正数"'Text1.Text = 0'End IfEnd IfIf leixin = 4 ThenIf h = 1 Then '十六进制转换成二进制Text1.Text = CLng("&h" & Text1.Text)Call szeEnd IfIf d = 1 Then Call sze '十进制转换成二进制If o = 1 Then '八进制转换成二进制Text1.Text = CLng("&o" & Text1.Text)Call szeEnd IfIf b = 1 Then '二进制End IfEnd IfEnd SubPublic Sub jieguo() '计算过程和结果If fuhao = 1 ThenText1.Text = fistnumber + V al(Text1.Text)End IfIf fuhao = 2 ThenText1.Text = fistnumber - Val(Text1.Text)End IfIf fuhao = 3 ThenText1.Text = fistnumber * Val(Text1.Text)End IfIf fuhao = 4 ThenIf Val(Text1.Text) = "0" ThenText1.Text = "除数不能为零"ElseText1.Text = fistnumber / Val(Text1.Text)End IfEnd IfIf fuhao = 5 Then Text1.Text = Exp(Val(Text1.Text))If fuhao = 6 Then Text1.Text = Str(Log(Val(Text1.Text))) If fuhao = 7 Then Text1.Text = 1 / Val(Text1.Text)If fuhao = 8 Then '指数Text1.Text = fistnumber ^ Val(Text1.Text)End IfIf fuhao = 9 Then '对数If Val(Text1.Text) = 1 ThenText1.Text = 0Elsesum = Log(Val(Text1.Text)) / Log(fistnumber)Text1.Text = sumEnd IfEnd IfIf fuhao = 10 Thenpi = Val(Text1.Text) / 90If Val(Text1.Text) Mod 90 = 0 And pi Mod 2 <> 0 Then '判断输入值是否为90的奇数倍数,使cos90直接赋为0Text1.Text = 0ElseText1.Text = Cos(Val(Text1.Text) * 3.14159265368979 / 180)End IfEnd IfIf fuhao = 11 Thenpi = Val(Text1.Text) / 90If Val(Text1.Text) Mod 90 = 0 And pi Mod 2 = 0 ThenText1.Text = 0ElseText1.Text = Sin(Val(Text1.Text) * 3.14159265368979 / 180)End IfEnd IfIf Left(Val(Text1.Text), 1) = "." Then Text1.Text = "0" + Text1.TextIf Left(Val(Text1.Text), 2) = "-." ThenText1.Text = -1 * Val(Text1.Text)Text1.Text = "-0" + Text1.TextEnd Ifdenghao = Truexiaoshu = Falsebiaoji = Falsedenglianxu = TrueEnd SubPublic Sub sze() '十进制转换成二进制si = "" '不初始化将出现错误Do Until Val(Text1.Text) = 0s = Val(Text1.Text) Mod 2Text1.Text = Val(Text1.Text) \ 2si = si + Str$(s) 'str$()数值转换成字符串LoopText1.Text = StrReverse(si) '将字符串反序End SubPublic Sub ezs() '二进制转换成十进制sum = 0i = 0 '不赋为零,会出现错误Do Until Val(Text1.Text) = 0se = Val(Text1.Text) Mod 10Text1.Text = Val(Text1.Text) \ 10i = i + 1sum = sum + se * 2 ^ (i - 1)LoopText1.Text = sumEnd Sub。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
课程设计指导书
课程vb计算器程序设计
班级
姓名
学号
目录
一功能描述 (3)
二概要设计及设计流程框图 (3)
三详细设计 (3)
四效果及运行界面图 (4)
五心得体会 (4)
六附录 (6)
七参考文献 (6)
八本人在改组中完成的部分 (7)
九进度安排 (7)
一、功能描述:
窗体通过窗体命令按钮或键盘输入数字实现基本的数学运算,使用窗体的功能按钮计算某些特殊函数
二、概要设计及设计流程框图:
使用vb设计科学型计算器,功能介于科学型和简单型之间,要求能进行加、减、乘、除和开方、乘方、对数、三角函数计算,可以存储与调出数据。
在这个计算器的程序中,我用到了单行选择语句If … Then …Else…,If语句的嵌套,多条件选择语句Select Case。
三、详细设计:
本系统1个文本框,数个命令按钮,数个数字按钮用文本框显示输入的数字并将结果显示在文本框中,用命令按钮来计算和输入数字。
详细内容: command12(0-9)为数字的控件数组,command13(4-11)为功能函数的控件数组,command13(0-3)为运算符的控件数组,command25为小数点按钮,command26为等号按钮,command1为开关按钮,command2为清除按钮。
四、效果及运行界面:
基本能完成所有运算
五、心得体会
为期一周的实训即将结束,通过这次的实训使我们学到了很多,同时也让我们意识到我们要学的更多。
本次实训的内容是科学计算器的程序设计,以小组的形式进行分工合作,我组共4个人,从程序的需求分析、可行性分析、设计到编写、调试、修改、完善、到最后的实训报告,每个人都付出了时间和精力去做好自己的任务并努力地去完善它。
实训的第一天接到任务时我们都觉得有点难度,很有挑战性,毕竟计算器是一个比较系统、完善、功能相对较齐全的计算程序,因此程序编写也十分复杂,工作量较大,编写一定要认真。
一个小小的失误都可能使程序出现大的漏洞。
而我们只是学了点简单的vb程序编写,没有尝试过这种相对来说比较系统完善的系统。
所以在做项目的时候我们倍感压力、更加的团结协作,可即使如此我们还是出现了错误,我们的程序在编写上存在一些漏洞,导致调试时不能正常运行,后经过老师的指导、我们的调整,终于可以完美的运行,这里也耽误了我们很多宝贵的时间,直接导致了我们在项目调试上速度不够快。
总的来说,这次实训还是比较成功的。
最后出来的系统,大家都很有成就感,这是我们一步步设计、一步步完善、辛苦付出后得到的成果。
小组合作、帮助队友,无论是团队合作这方面还是个人动手这方面,我们都得到了很好的锻炼。
当然实训不仅使我们学到了知识,也帮助我们缩小了实践和理论的差距,通过这次实训让我们更深一步的对vb这门课程的知识有更进一步的渴望,同时对自己的
专业,对自己的能力,对自己所学的有正确的认识,并且能在以后的学习工作中不断提高和完善自己。
六、附录:
数字
Private Sub Command12_Click(Index As Integer)
num = num + Command12(Index).Caption
Text1.Text = num
End Sub
小数点
Private Sub Command25_Click()
If InStr(num, ".") <> 0 Then
Exit Sub
Else
num = num + "."
End If
Text1.Text = Sum
End Sub
对数开方平方阶乘三角函数加减乘除
Private Sub Command13_Click(Index As Integer)
If Text1.Text <> "" Then
num1 = num
Text1.Text = ""
num = "" '清空所有记录,并保存输入数
End If
op = Command13(Index).Caption
End Sub
开关
Private Sub Command1_Click()
If Command1.Caption = "NO" Then
Command1.Caption = "OFF"
Command2.Enabled = True
Else
Command1.Caption = "NO"
End If
End Sub
清除
Private Sub Command2_Click()
Text1.Text = ""
num = ""
num1 = ""
End Sub
等于号
Private Sub Command26_Click() Select Case op
Case "+"
Sum = CStr(Val(num1) + Val(num)) Case "-"
Sum = Val(num1) - Val(num)
Case "×"
Sum = Val(num1) * Val(num)
Case "÷"
If num = "0" Then
MsgBox "除数不能为零,请重新输入" num = ""
Else
Sum = Val(num1) / Val(num)
End If
Case "In"
Sum = Log(Val(num1))
Case "Exp"
Sum = Exp(num1)
Case "Sqr"
Sum = Sqr(num1)
Case "sinx"
Sum = Sin(num * 3.141592654 / 180) Case "cosx"
Sum = Cos(num * 3.141592654 / 180) Case "tanx"
Sum = Tan(num * 3.141592654 / 180) Case "x^2"
Sum = num * num
Case "!"
Sum = num1
For i = 1 To num1 - 1
Sum = Sum * (num1 - i)
Next i
End Select
Text1.Text = Sum
End Sub
七、参考文献
1《Visual Basic6.0编程案例精解》张路平电子出版社
2《Visual Basic程序设计》王学军中国铁道出版社
3《计算机软件技术基础》徐士良葛兵清华大学出版社
4《Visual Basic 程序设计上机指导与习题解答》、《Visual Basic程序设计》机械工业出版社
5《Visual Basic程序设计》北京邮电大学出版社
6《Visual Basic程序设计完全自学手册》人民邮电出版社
7《百度文库》vb计算器。
八、本人在该组中完成的部分:
查阅资料,设计计算器界面,编写vb的三角函数,开方,平方,对数。
九、进度安排:
第一二三天:查找资料,对设计要求加以分析研究 熟悉了解VB 编程的基本知识,分配任务到每个人。
第四天,绘制流程图:将要求分块、分部完成。
第五六七八九天:编程,完成基本功能,运行查看结果。
第十天:继续查阅资料。
第十一十二天:完成所有功能。
第十三十四天:完善功能,书写报告书。