vb 简易计算器实验报告

简易计算器课程设计报告

一、实验目的：

模拟计算器的功能。系统启动后，先清屏，再在显示屏右侧显示0字样，系统仅接收数字键、加减乘除键、退格键、C键(复位)、=或回车键、ESC键(退出系统)作为有效按键，其余按键不响应。按键后屏幕显示效果要达到一般计算器显示屏的同样效果。不要求设计一般计算器上都具有的M功能。

二、实验设计内容及思想：

首先，创建一个主体框架：建立程序的主要界面后，系统自动生成界面的主要窗口生成代码。对于每个按钮的的代码段中，分别添加事件触发的处理代码。分别设立三个显示屏，第一个显示屏作为“被加数”

框，第二个显示屏作为“加数”框，第三个显示屏则作为输出框。

四则运算时直接采用计算表达式。所以，优先级和运算规则皆宜考虑在内。在进行除法运算时，若遇到除数为0，则运用条件语句执行，并在输出显示屏上输出“E”。三角函数、指数、对数、整除、取余等运算，也是运用类似手法。

考虑到计算器的操作简便性，所以加入了复位和退出按钮。

三、源程序文件：

Private Sub Command1_Click()

Dim x As Integer

Dim y As Integer

x = Text1.Text

y = Text2.Text

Text3.Text = x + y

End Sub

Private Sub Command10_Click()

Dim x As Integer

x = Text1.Text

Text3.Text = Cos(x)

End Sub

Private Sub Command11_Click()

Dim x As Integer

x = Text1.Text

Text3.Text = Tan(x)

End Sub

Private Sub Command12_Click() Dim x As Integer

x = Text1.Text

Text3.Text = Atn(x)

End Sub

Private Sub Command13_Click() Dim x As Integer

Dim y As Integer

x = Text1.Text

y = Text2.Text

Text3.Text = x ^ y

End Sub

Private Sub Command14_Click() Dim x As Integer

x = Text1.Text

If x <= 0 Then

Text3.Text = "输入错误"

Else

Text3.Text = Log(x)

End If

End Sub

Private Sub Command15_Click() Text3.Text = "此按钮仅作装饰用" End Sub

Private Sub Command2_Click() Dim x As Integer

Dim y As Integer

x = Text1.Text

y = Text2.Text

Text3.Text = x - y

End Sub

Private Sub Command3_Click() Dim x As Integer

Dim y As Integer

x = Text1.Text

y = Text2.Text

Text3.Text = x * y

End Sub

Private Sub Command4_Click()

Dim x As Integer

Dim y As Integer

x = Text1.Text

y = Text2.Text

If y = 0 Then

Text3.Text = "E"

Else

Text3.Text = x / y

End If

End Sub

Private Sub Command5_Click()

Dim x As Integer

Dim y As Integer

x = Text1.Text

y = Text2.Text

Text3.Text = x \ y

End Sub

Private Sub Command6_Click()

Dim x As Integer

Dim y As Integer

x = Text1.Text

y = Text2.Text

Text3.Text = x Mod y

End Sub

Private Sub Command7_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = " 0" End Sub

Private Sub Command8_Click()

End

End Sub

Private Sub Command9_Click()

Dim x As Integer

x = Text1.Text

Text3.Text = Sin(x) End Sub

源代码截图：

四、运行结果演示：加法演示：

减法演示：

乘法演示：

除法演示：

能够整除：

不能够整除：

除数为零：

编程实验报告---科学计算器设计与实现

《可视化程序编程环境》 实验报告 项目名称科学计算器设计与实现 学院计算机学院 专业班级计算机科学与技术0804 2010年1月9 日

一、设计任务与要求 使学生了解可视化程序设计语言的基础知识，掌握面向对象编程的分析设计方法，以及与面向对象技术相关的一些软件开发技术，掌握在 VisualC++6环境下进行可视化程序设计技术。通过实践具体的项目，为他们进一步开展相关领域的学习和科研打下良好的基础。 二、需求分析 1. 功能需求（功能划分、功能描述） 1、二进制、八进制、十进制及十六进制数的加、减、乘、除、乘方、取模等简单计算 2、科学计算函数，包括(反)正弦、(反)余弦、(反)正切、(反)余切、开方、指数等函数运行 3、以角度、弧度两种方式实现上述部分函数 4、具备历史计算的记忆功能 5、对不正确的表达式能指出其错误原因 2. 运行需求（用户界面、人机接口、故障处理） 根据计算器要实现的相应功能来布局，分为基本功能区，特殊函数区，进制转换区，度数转换区和输出显示区五大基本模块。 三、实验方案 1、总体设计框图 2

3.基本功能区的设计 在这个模块中主要把0到F各个按键按下去后在输出显示区上显示出来列举一例： void Caysf55Dlg::OnBnClickedButton3() {if(zuizong=="0") m_str=""; m_str+="1"; UpdateData(0); if(zuizong=="0") zuizong=""; zuizong+="1";// TODO: 在此添加控件通知处理程序代码 } 接下来从输出显示区获得字符串，通过运算符的相应按键处理：列举加法： void Caysf55Dlg::OnBnClickedButton19()/*加法运算*/ {double zan; if(m_str=="") MessageBox(L"没有运算数"); else if(y==1||M==1) MessageBox(L"只能输入数值"); else if(m_str.GetAt (m_str.GetLength()-1)=='+'||m_str.GetAt (m_str.GetLength()-1)=='-'||m_str.GetAt (m_str.GetLength()-1)=='*'||m_str.GetAt (m_str.GetLength()-1)=='/')

简单计算器c++课程设计

简单计算器 1 基本功能描述 简单计算器包括双目运算符和单目运算符。双目运算符包含基本的四则运算及乘幂功能，单目运算符包含正余弦、阶乘、对数、开方、倒数等运算。可对输入任意操作数包含小数和整数及正数和负数进行以上的所有运算并能连续运算。出现错误会给出提示，同时包含清除、退格、退出功能以及有与所有按钮相对应的菜单项。 2 设计思路 如图1，是输入数据子函数的流程图。打开计算器程序，输入数据，判断此次输入之前是否有数字输入，如果有，则在之前输入的数字字符后加上现有的数字字符；如果没有，则直接使编辑框显示所输入的数字字符。判断是否继续键入数字，如果是，则继续进行前面的判断，如果否，则用UpdateData(FALSE)刷新显示。 如图2，是整个计算器的流程图。对于输入的算式，判断运算符是双目运算符还是单目运算符。如果是双目运算符，则把操作数存入数组a[z+2]中，把运算符存入b[z+1]中；如果是单目运算符，则把字符串转化为可计算的数字，再进行计算。下面判断运算符是否合法，如果合法，则将结果存入a[0],不合法，则弹出对话框，提示错误。结束程序。

输入一个数字 在之前输入的数字字符后面加上现在的数字字符。 Eg ：m_str+=”9”。 直接使编辑框显示所输入的数字字符。 Eg ：m_str=”9”。 pass3=1表示已有数字输入 开始 之前是否有数字输入？ pass3==1? 继续键入数字？ 用UpdateData(FALSE)刷新显示 图1 输入数据子函数流程图 Y N Y N

输入开始 双目运算符 是否每一个操作数都存入a[]数组？ 把操作数存入a[z+2],把运算符存入b[z+1]。 单目运算符 将字符串转换 为可计算的数进行运算 运算是否合法？ 将结果存入a[0] 弹出对话框提示错误 结束Y Y N N 图2 简单计算器总流程图

VB6.0的小程序计算器

VB6.0的小程序计算器 对于刚入门学习VB6的朋友来说肯定会做些小程序吧，这里就是给大家演示个简单的计算器程序，仅供参考啦。 界面上加减乘除四个按钮分别是cmdAdd、cmdPlus、cmdMultiple、cmdDevide，小数点按钮是cmdDot，负号按钮是cmdMinuse，数字0～9为了偷懒，用了控件数组cmdNumber(0)~ cmdNumber(9)，上面txtShow是显示数字和结果用的，txtOperate是显示中间步骤的。 思路大致是这样，点加减乘除这类操作符的时候，把当前txtShow的值保存在模块变量mstrParam1里，同时把操作符保存到mstrOperate里，按等于号时把先把当前txtShow的值保存在模块变量mstrParam2里，然后对mstrParam1和mstrParam2进行运算，当然要记得设法把String转换成数值进行运算。 转换的过程要注意，这里是用的Variant数据类型，vParam1和vParam2都是Variant 类型，保存的是mstrParam1和mstrParam2的数值。之所以不用integer、long、double 这些标准类型，是因为这些类型都有大小限制，做出来用着不方便，VB最大的整型long才到 2147483647，这意味着计算器的计算结果只能限制在9位到10位。而Variant类型可以支持非常大的数，具体多大不清楚，但起码几十位是能够支持的。另外，最后算完的结果也要做格式化，因为如果数值非常大的话，VB会自动转成科学计数法，所以要用Format函数进行调整。 如果需要源代码的话在我百度空间里留言。https://www.sodocs.net/doc/b612115271.html,/zhaozhigang517

vb科学计算器实验报告

西安科技大学 可视化编程语言实验报告 题目：科学计算器 班级： 学号： 姓名： 2010年11月

复杂型科学计算器的设计与实现实验目的 1．通过本实验，进一步理解Visual Basic的编程方法。 2．提高运用Visual Basic编程的能力。 3．培养对所学知识的综合运用能力。 实验类型 综合型。 实验内容与步骤 一.界面设计。

Command5Caption= 三．程序代码： Dim num1 As Single, num2 As Single Dim fu As Integer Dim sign As Integer Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 To 9 sign = Index + 20 Case 10 sign = Index + 20 fu = 1 Case 11 To 14 sign = Index + 20 End Select = "" End Sub Private Sub Command2_Click(Index As Integer) Select Case Index Case 0 To 9 = & Index If fu = 0 Then num1 = Val Else num2 = Val

Case 10 = & "-" Case 11 = & "." Case 12 To 18 = "" sign = Index fu = 1 End Select End Sub Private Sub Command3_Click() If =”” then else = Left$, Len - 1) End if End Sub Private Sub Command4_Click() = "" End Sub Private Sub Command5_Click() Dim n As Integer, cf As Single fu = 0: cf = 1 Select Case sign Case 12 = num1 & "+" & num2 = num1 + num2 Case 13 = num1 - num2 Case 14 = num1 * num2 Case 15 = num1 / num2 Case 18 For n = 1 To num2 cf = cf * num1 Next n = cf Case 20 = Sin(num1) Case 21

计算机科学与技术第次实验报告.docx

哈尔滨工程大学 《程序设计基础》实验报告 基础实践一 姓名：班级： 学号： 实验时间 :2018年5月10日成绩 哈尔滨工程大学计算机基础课程教学中心 实验题目 1：输入两个整数数组，每个数组有五个整数，将两者和并 并排列输出。 设计思想： 定义三个数组 , 将两组数据存储到第三个数组中 , 再用冒泡排序对其由大到小排序并输出。 实验代码及注释： #include #include #define N 10//宏定义

int main() { int a[5],b[5],c[N];//第一组数据,第二组,合并数组int i,j,t;//循环变量,中间变量 printf("输入第一组数据 :\n");//输入数据 for(i=0;i<5;i++) scanf("%d",&a[i]); printf("输入第二组数据 :\n"); for(i=0;i<5;i++) scanf("%d",&b[i]); for(i=0;i<5;i++) { c[i]=a[i];//两组数据合并 c[i+5]=b[i]; } for(i=0;i

for(j=0;j

简易计算器的设计与实现

沈阳航空航天大学 课程设计报告 课程设计名称：单片机系统综合课程设计课程设计题目：简易计算器的设计与实现 院（系）： 专业： 班级： 学号： 姓名： 指导教师： 完成日期：

沈阳航空航天大学课程设计报告 目录 第1章总体设计方案 (1) 1.1设计内容 (1) 1.2设计原理 (1) 1.3设计思路 (2) 1.4实验环境 (2) 第2章详细设计方案 (3) 2.1硬件电路设计 (3) 2.2主程序设计 (7) 2.2功能模块的设计与实现 (8) 第3章结果测试及分析 (11) 3.1结果测试 (11) 3.2结果分析 (11) 参考文献 (12) 附录1 元件清单 (13) 附录2 总电路图 (14) 附录3 程序代码 (15)

第1章总体设计方案 1.1 设计内容 本设计是基于51系列的单片机进行的十进制计算器系统设计，可以完成计算器的键盘输入，进行加、减、乘、除1位无符号数字的简单四则运算，并在6位8段数码管上显示相应的结果。 设计过程在硬件与软件方面进行同步设计。硬件方面从功能考虑，首先选择内部存储资源丰富的8751单片机，输入采用4×4矩阵键盘。显示采用6位8段共阳极数码管动态显示。软件方面从分析计算器功能、流程图设计，再到程序的编写进行系统设计。编程语言方面从程序总体设计以及高效性和功能性对C语言和汇编语言进行比较分析，最终选用汇编语言进行编程，并用protel99se涉及硬件电路。 1.2 设计原理 在该课程设计中，主要用到一个8751芯片和串接的共阳数码管,和一组阵列式键盘。作为该设计的主要部分，下面将对它们的原理及功能做详细介绍和说明。 1)提出方案 以8751为核心，和数码管以及键盘用实验箱上已有的器件实现计算器的功能。 2) 总体方案实现 (1)要解决键值得读入。先向键盘的全部列线送低电平，在检测键盘的行线，如果有一行为低电平，说明可能有按键按下，则程序转入抖动检测---就是延时10ms再读键盘的行线，如读得的数据与第一次的相同，说明真的有按键按下，程序转入确认哪一键按下的程序，该程序是依次向键盘的列线送低电平，然后读键盘的行线，如果读的值与第一次相同就停止读，此时就会的到键盘的行码与列码

计算器vb源代码

计算器v b源代码 IMB standardization office【IMB 5AB- IMBK 08- IMB 2C】

计算器vb源代码.txt性格本身没有好坏，乐观和悲观对这个世界都有贡献，前者发明了飞机，后者发明了降落伞。完全版的前后台代码... '请把下面的保存为 VERSION Begin Calculator BorderStyle = 1 'Fixed Single Caption = "计算器" ClientHeight = 2970 ClientLeft = 2580 ClientTop = 1485 ClientWidth = 3270 ClipControls = 0 'False BeginProperty Font Name = "System" Size = Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Icon = "":0000 LinkMode = 1 'Source LinkTopic = "Form1" MaxButton = 0 'False PaletteMode = 1 'UseZOrder ScaleHeight = 2970 ScaleWidth = 3270 WhatsThisHelp = -1 'True Begin Number Caption = "7" Height = 480 Index = 7 Left = 120 TabIndex = 7 Top = 600 Width = 480 End

VB课程设计报告+计算器

目录 ●概要设计说明 (3) ●总体设计分析 (3) ●小组成员及分工方法....................................3 -4 ●功能模块图 (4) ●负责模块的程序设计分析 (5) ●负责模快的程序源代码及流程图.....................5-12 ●公共系统使用说明及截图..............................13-16 ●结束语、心得体会 (17) ●课程设计结评分表…………………………………18-19

一、概要设计说明 本组设计的科学计算器具有科学型和标准型两种类型，适合不同需要。科学型中包含弧度与角度的计算，同时兼具2、8、10、16进制的运算。在标准型中，编辑菜单（edit）包含复制（copy）、粘贴（paste）。查看菜单包含标准型（standar）、科学型（scientific）。帮助菜单中包含关于（about）（内含开发制作者信息） 二、总体设计分析（含功能模块图） 一．小组成员分工 1 科学型角度弧度和进制的调用，由小组成员共同完成 2 科学计算器中，x^2,x^3,x^y,1/x,n！,Log按键，及八进制转二 进制，八进制转十进制，由**负责。 3科学计算器中，BackSpance、CE、C和运算符号+、-、*、/、.、-/+、=以及标准型计算器由***负责 4 科学计算器中，sin，cos，tan,Rnd,Exp,ATn按钮以sin/cos/tan 计算时角度和弧度的转换由**负责。 5 科学行计算器中，Copy，Pst，Not，And，Xor，Int，Or， Abe，Exit按钮;将十进制转化为二进制，制转化为十进制，将二进制转化为八进制由**负责。

c 计算器实验报告

简单计算器 姓名: 周吉祥 实验目的：模仿日常生活中所用的计算器，自行设计一个简单的计算器程序，实现简单的计算功能。 实验内容： (1)体系设计： 程序是一个简单的计算器，能正确输入数据，能实现加、减、乘、除等算术运算，运算结果能正确显示，可以清楚数据等。 (2)设计思路： 1)先在Visual C++ 6.0中建立一个MFC工程文件，名为 calculator. 2)在对话框中添加适当的编辑框、按钮、静态文件、复选框和单 选框 3)设计按钮，并修改其相应的ID与Caption. 4)选择和设置各控件的单击鼠标事件。 5)为编辑框添加double类型的关联变量m_edit1. 6)在calculatorDlg.h中添加math.h头文件，然后添加public成 员。 7)打开calculatorDlg.cpp文件，在构造函数中，进行成员初始 化和完善各控件的响应函数代码。 (3)程序清单：

●添加的public成员： double tempvalue; //存储中间变量 double result; //存储显示结果的值 int sort; //判断后面是何种运算：1.加法2.减法3. 乘法 4.除法 int append; //判断后面是否添加数字 ●成员初始化： CCalculatorDlg::CCalculatorDlg(CWnd* pParent /*=NULL*/) : CDialog(CCalculatorDlg::IDD, pParent) { //{{AFX_DATA_INIT(CCalculatorDlg) m_edit1 = 0.0; //}}AFX_DATA_INIT // Note that LoadIcon does not require a subsequent DestroyIcon in Win32 m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME); tempvalue=0; result=0; sort=0; append=0; }

单片机简易计算器课程设计

课程设计 题目名称简易计算器设计 课程名称单片机原理及应用 学生姓名 班级学号 2018年6 月20日

目录 一设计目的 本设计是基于51系列单片机来进行的简单数字计算器设计，可以完成计算器的键盘输入，进行加、减、乘、除六位整数数范围内的基本四则运算，并在LED上显示相应的结果。软件方面使用C语言编程，并用PROTUES仿真。 二总体设计及功能介绍 根据功能和指标要求，本系统选用MCS-51系列单片机为主控机，实现对计算器的设计。具体设计及功能如下： 由于要设计的是简单的计算器，可以进行四则运算，为了得到较好的显示效果，采用LED显示数据和结果； 另外键盘包括数字键（0～9）、符号键（+、-、×、÷）、清除键和等号键，故只需要16个按键即可，设计中采用集成的计算键盘； 执行过程：开机显示零，等待键入数值，当键入数字，通过LED显示出来，当键入+、-、*、/运算符，计算器在内部执行数值转换和存储，并等待再次键入数值，当再键入数值后将显示键入的数值，按等号就会在LED上输出运算结果。

三硬件仿真图 硬件部分比较简单，当键盘按键按下时它的那一行、那一列的端口为低电平。因此，只要扫描行、列端口是否都为低电平就可以确定是哪个键被按下。 四主程序流程图 程序的主要思想是：将按键抽象为字符，然后就是对字符的处理。将操作数分别转化为字符串存储，操作符存储为字符形式。然后调用compute()函数进行计算并返回结果。具体程序及看注释还有流程图 五程序源代码 #include #include #include/* isdigit()函数*/ #include/* atoi()函数*/ #define uchar unsigned char #define uint unsigned int

VB计算器课程设计报告

《软件开发技术》 课程设计报告 题目计算器的设计与实现 专业班级计算机科学与技术 0701 学号 姓名 指导教师 2010年7 月15 日 计算器的设计与实现

摘要：通过学习VISUAL BASIC语言应用VB开发工具,利用响应鼠标事件即可制作简易计算器，响应鼠标事件即：当用户想要进行运算时,可以用鼠标直接点击界面的数字键、运算符以及各功能的按钮（清除,退出,鼠标位置）。具体操作如下：用鼠标按动界面上第一个数字,然后按动运算符,再按动界面上的第二个数字,最后按等于即可运算出结果。 1.界面设计： 应用VISUAL BASIC开发工具，根据WINDOWS计算器界面模型，修改后制作计算器界面。新建一个窗体，添加一个文本框用于显示运算数字和结果，添加若干按钮包括（数字0—9，+，-，*，/，=，CE, C, Back，%，1/x , sqrt）。 当单击数字按钮时输入运算数时，单击运算符按钮，再单击“=”按钮，则再文本框中显示计算结果。具体如下图所示： 图1计算器界面设计示意图 2.程序设计： （1）新建框体和按键模型后定义变量：输入的操作数，Dim Op1, Op2。小数点是否仍然存在，Dim DecimalFlag As Integer。操作数个数，Dim NumOps As Integer。指示上一次按键事件的类型，Dim LastInput。指示未完成的操作，Dim OpFlag。定义文本框输出，Dim TempReadout。窗体的初始化过程，设置所有变量为其初始值：DecimalFlag = False NumOps = 0

LastInput = "NONE" OpFlag = " " Readout = Format(0, "0.") 'Decimal.Caption = Format(0, ".")。 （2）输入数字键(0-9)的Click事件过程，向显示中的数追加新数：调用format 函数强制定义始终在第一位添加一个”.”，并在显示数中追加新数，如果显示数小于零，则添加负号。 If LastInput <> "NUMS" Then Readout = Format(0, ".") DecimalFlag = False End If If DecimalFlag Then Readout = Readout + Number(Index).Caption Else Readout = Left(Readout, InStr(Readout, Format(0, ".")) - 1) + Number(Index).Caption + Format(0, ".") End If If LastInput = "NEG" Then Readout = "-" & Readout LastInput = "NUMS" （3）运算符(+, -, x, /, =)的Click 事件过程如果接下来的按键是数字键，增加NumOps如果有一个操作数，则设置Op1如果有两个操作数，则将Op1 设置为Op1与当前输入字符串的运算结果，并显示结果（以其中加法部分为例）： If LastInput = "NUMS" Then NumOps = NumOps + 1 End If elect Case NumOps Case 0 If Operator(Index).Caption = "-" And LastInput <> "NEG" Then Readout = "-" & Readout LastInput = "NEG" End If Case 1 Op1 = Readout If Operator(Index).Caption = "-" And LastInput <> "NUMS" And OpFlag <> "=" Then Readout = "-" LastInput = "NEG"

简易计算器课程设计

评阅教师评语：课程设计成绩 考勤成绩 实做成绩 报告成绩 总评成绩指导教师签名： 课程设计报告 论文题目基于ARM的简易计算器设计 学院（系）：电子信息与自动化学院 班级：测控技术与仪器 学生姓名：同组同学： 学号：学号： 指导教师：杨泽林王先全杨继森鲁进时间：从2013年 6 月10 日到2013年 6 月28 日 1

目录 1、封面—————————————————————P1 2、目录—————————————————————P2 3、前言—————————————————————P3 4、关键字————————————————————P3 5、原理与总体方案————————————————P3 6、硬件设计———————————————————P6 7、调试—————————————————————P10 8、测试与分析——————————————————P11 9、总结—————————————————————P13

10、附件—————————————————————P14 前言 近几年，随着大规模集成电路的发展，各种便携式嵌入式设备，具有十分广阔的市场前景。嵌入式系统是一种专用的计算机系统，作为装置或设备的一部分。通常，嵌入式系统是一个控制程序存储在ROM中的嵌入式处理器控制板。事实上，所有带有数字接口的设备，如手表、微波炉、录像机、汽车等，都使用嵌入式系统，有些嵌入式系统还包含操作系统，但大多数嵌入式系统都是是由单个程序实现整个控制逻辑。在嵌入式系统中，数据和命令通过网络接口或串行口经过ARM程序处理后，或显示在LCD上，或传输到远端PC上。 本文通过周立功的LPC2106芯片完成的简易计算器，正是对嵌入式应用的学习和探索。 一、摘要： 计算器一般是指“电子计算器”，是能进行数学运算的手持机器，拥有集成电路芯片。对于嵌入式系统，以其占用资源少、专用性强，在汽车电子、航空和工控领域得到了广泛地应用。本设计就是先通过C语言进行相应程序的编写然后在ADS中进行运行最后导入PROTUES进行仿真。最后利用ARM中的LPC2106芯片来控制液晶显示器和4X4矩阵式键盘，从而实现简单的加、减、乘、除等四则运算功能。 关键字：中断，扫描，仿真，计算 二、原理与总体方案： 主程序在初始化后调用键盘程序，再判断返回的值。若为数字0—9，则根据按键的次数进行保存和显示处理。若为功能键，则先判断上次的功能键，根据代号执行不同功能，并将按键次数清零。程序中键盘部分使用行列式扫描原理，若无键按下则调用动态显示程序，并继续检测键盘；若有键按下则得其键值，并通过查表转换为数字0—9和功能键与清零键的代号。最后将计算结果拆分成个、十、百位，再返回主程序继续检测键盘并显示；若为清零键，则返回主程序的最开始。 电路设计与原理：通过LPC2106芯片进行相应的设置来控制LCD显示器。 而通过对键盘上的值进行扫描，把相应的键值通过MM74C922芯片进行运算从而

用VB编写一个简单计算器

用VB编写一个简单计算器 一、功能：实现简单的加减乘除功能，C归零，CE取消输入，%计算并显示第一个操作数的百分比。 二、控件：1个label，20个commandbutton。 三、计算器运行界面： 四、详细代码： Option Explicit Dim Op1, Op2 '前面输入的操作数 Dim DecimalFlag As Integer '小数点仍然存在吗？ Dim NumOps As Integer '操作数个数 Dim LastInput '指示上一次按键事件的类型 Dim OpFlag '指示未完成的操作 Dim TempReadout ' C (取消) 按钮的Click 事件过程 ' 重新设置显示并初始化变量 Private Sub Cancel_Click() Readout = Format(0, "0.") Op1 = 0 Op2 = 0 Form_Load End Sub ' CE (取消输入) 按钮的Click 事件过程

Private Sub CancelEntry_Click() Readout = Format(0, "0.") DecimalFlag = False LastInput = "CE" End Sub ' 小数点(.) 按钮的Click 事件过程 ' 如果上一次按键为运算符，初始化readout 为"0."； ' 否则显示时追加一个小数点 Private Sub Decimal_Click() If LastInput = "NEG" Then Readout = Format(0, "-0.") ElseIf LastInput <> "NUMS" Then Readout = Format(0, "0.") End If DecimalFlag = True LastInput = "NUMS" End Sub ' 窗体的初始化过程 ' 设置所有变量为其初始值 Private Sub Form_Load() DecimalFlag = False NumOps = 0 LastInput = "NONE" OpFlag = " " Readout = Format(0, "0.") 'Decimal.Caption = Format(0, ".") End Sub ' 数字键(0-9) 的Click 事件过程 ' 向显示中的数追加新数 Private Sub Number_Click(Index As Integer) If LastInput <> "NUMS" Then Readout = Format(0, ".") DecimalFlag = False End If If DecimalFlag Then Readout = Readout + Number(Index).Caption Else Readout = Left(Readout, InStr(Readout, Format(0, ".")) - 1) + Number(Index).Caption + Format(0, ".") End If If LastInput = "NEG" Then Readout = "-" & Readout

vb计算器设计报告

一．设计思路 (1) 二．关键问题的解决 (1) 三．概要设计说明 (1) 四．源代码 (1) 五．心得体会 (8)

一．设计思路 1.要达到的目的要达到的目的主要是培养学生利用系统提供的基本控件进行创新性设计，理解Visual Basic 语言中面向对象的程序设计。培养学生综合利用Visual Basic 语言进行程序设计的能力。 二．关键问题的解决 先使用Command 命令按钮，命令按钮控件数组，文本框等基本控件设计窗体，再根据下面方法编制程序： 三．概要设计说明 本组设计的科学计算器具有科学型和标准型两种类型, 适合不同需要.科学型中包含弧度与角度的计算,同时兼具2,8,10,16 进制的运算. 四．源代码 Dim num1 As Double Dim num2 As Double Dim num3 As Double Dim flag As Double Dim operator As Integer Dim q As Integer Private Sub Command1_Click(Index As Integer) Select Case Index Case Is <= 9 If Index = 0 And Val(Text1.Text) = 0 Then Text1.Text = 0 Else If Val(Text1.Text) = 0 Then Text1.Text = Index

Else Text1.Text = Text1.Text & Index End If End If Case Is >= 20 If (Val(Text1.Text) = 0) Then Text1.Text = Command1(Index).Caption Else Text1.Text = Text1.Text + Command1(Index).Caption End If Case 10 Text1.Text = Text1.Text + "." Case 11 Text1.Text = -Val(Text1.Text) Case 12 If Not flag Then num1 = Val(Text1.Text) Text1.Text = 0 flag = True operator = 1 End If Case 13 If Not flag Then num1 = Val(Text1.Text) Text1.Text = 0 flag = True operator = 2 End If Case 14 If Not flag Then num1 = Val(Text1.Text) Text1.Text = 0 flag = True operator = 3 End If Case 15 If Not flag Then num1 = Val(Text1.Text) Text1.Text = 0 flag = True operator = 4 End If Case 16 If Not flag Then

安卓计算器开发实验报告

嵌入式WebOS应用开发 实验报告 实验名称：使用An droid Developer SDK开发应用程序 专业：_________________________ 姓名：__________________________________ 班级：_______________________________ 学号：______________________________ 一、作品的运行环境及安卓SDK基础操作 SDK An droid Developer 是一款在windows系统上运行的针对 An droid应用开发的谷歌官方软件（需要JAVA环境支持）。 1、导入工程 2、建立虚拟机 在运行虚拟机是为保证机器的顺畅运行建议选择分辨率较低的虚拟机，但是其RAM最好设为512MB因为部分程序如果调用资源过大会导致虚拟机无法运行。 3、虚拟机界面 二、作品介绍 我的应用是一个计算器。能实现包括小数的加减乘除运算，结果过大会自动用科学记数法表示，另外还有退格跟清屏功能键。

加应用图标 1.首先在我的桌面上添加你应 用的图标以及文字，双击图标后 项中自行进行挑选； 也可以添加自己的图片, 只要将图片放到对应的 文件夹之下在刷新就可 以，但不建议放分辨率 过高图片可能会出现超 出界面的等错误。 要在xml 界面中添加排版: xml 代码首末的 格式较为自由可以直接在 界面中拖动图标位置以及修改大小，而其他layout 则更会自动排列, 各有优劣。 三、 编程以及运行调试 （一）、在MyDesktop 主界面中添 fin^_ok,prig 世IF it launchiWipng 32E img'O.png jdE im^il.png] 3E img?.pHg 血 imql.pngi 32E img4.png 血 im^S.pngi Tn? imgg.png JJL -mgT.pngj ..1. imy^.png ..1. uiHiprxg 就可以看见对应的代码， 可直接 在代码中进行修改图片文字的 大小颜色等等。 以下是对应图像图标的代码 图片可以在左侧的选 （二）、在 res/layout 目录下新建.xml 文件,由于计算器的按钮很多， TIF charfrc 起 ch^tfrorn_bg_ipTW5&d !S'.pflg ~l <+i?,kbnif^M 口 .股 ch?kbojco#f bsckgrourid^na SE chfkb rn （」]n.hewlcgin 口unci 岱n 评 弧 tlwr^na TTF de^ r o 1 .pnq

vb编写的计算器代码

Option Explicit Const CC1 = 1E+28, CC2 = 0.000000000000001, CC3 = 100000000000000# Dim Op1, Op2 ' 预先输入操作数。 Dim DecFlag% ' 小数点存在吗？ Dim Klast ' 指示上一次按键事件的类型。 Dim OpFlag ' 指示未完成的操作。 Dim Kedt% ' 指示键入状态，0-未操作，1-算过，2-改过Dim MemNum ' 存储器 Dim Temp2 ' Function sqr28(a As V ariant) As V ariant Dim c As Double c = Sqr(a) If c > CC3 Or c < CC2 Then sqr28 = c Else sqr28 = CDec(Sqr(a)) sqr28 = sqr28 - (sqr28 * sqr28 - a) / sqr28 * 0.5 End If End Function Function cur28(a As V ariant) As V ariant Dim t As V ariant, c As Double c = Abs(a) ^ (1 / 3) If c > 1000000000# Or c < 0.000000001 Then cur28 = c * Sgn(a) Else cur28 = CDec(c) * Sgn(a) t = cur28 * cur28 cur28 = cur28 - (cur28 * t - a) / t / 3 End If End Function ' 存入存储器 Private Sub BtMS_Click() If Kedt = 2 Then GetOp1 MemNum = Op1 LabMem.Visible = MemNum <> 0 Kedt = 1 End Sub ' 取出存储器数据 Private Sub BtMr_Click() CancelEntry_Click Op1 = MemNum

VB科学计算器课程设计

湖南医药学院 VB计算器课程设计题目： VB科学计算器 院(系)别临床医学院 专业临床医学 班级本临一班 学号 2015101010121 姓名夏铭锴 指导教师李跃强 二○一六年四月

目录 一、设计内容及要求 二、设计原始资料 三、设计完成后提交的文件和图表设计 四、进程安排 五、主要参考资料 [摘要] 用VB制作这个程序的简单计算器，它包括一个标准的计算器和一个科学计算器。它可以实现简单的加减乘除四则运算，数字的平方、平方根，正弦、余弦、正切，倒数、指数函数、对数函数，角度、弧度、梯度的转换，以及各进制的相互转换。而且它的功能还有退格，清除当前数据，清除所有数据，复制数据，粘贴数据。 在这个计算器的程序中，我用到了单行选择语句If…Then…Else…, 块语句if…then…end if,If语句的嵌套，多条件选择语句Select Case,而且还用到了按钮、文本框、框架、单选按钮控件，菜单的设计。 在此报告中我重点叙述了计算机的各个功能及用法。特别是进制间的转换和数字与运算符之间的联系。。虽然描述的不太完整，但我会尽力使用系统结构图，划分多个模块，让大家明白我设计的运算器的功能的。 [关键词] Visual Basic；计算器；对象；代码 1

2

3

四、进程安排 （1）创建应用程序的界面。 （2）设置属性。 （3）编写代码。 4

附页： 设计原始资料 Private Sub Command1_Click() '删除数字的最后一位If Label3.Caption <> "" Then Label3.Caption = Left(Label3.Caption, Len(Label3.Caption) - 1) Else c = MsgBox("内容已为空！不可删除一位！", 49, "注意！") End If End Sub Private Sub Command10_Click() '输入数字6 Label3.Caption = Label3.Caption + Command10.Caption End Sub Private Sub Command11_Click() If Label3.Caption <> "" Then '输入符号* Label1.Caption = Label3.Caption Label2.Caption = Command11.Caption Label3.Caption = "" Else c = MsgBox("请输入数据后输入符号！", 49, "注意！") End If End Sub 5

简易计算器课程设计

基于单片机的计算器的设计 摘要：本设计是一个实现加减乘除的计算器，它的硬件主要由四部分构成，一个8051单片机芯片，两个八段共阴极数码管，一个4*4键盘，它可以实现一位数的加减乘除运算。 显示部分：采用LED动态显示。 按键部分：采用4*4键盘。采用软件识别键值，并执行相应的操作。 关键词：LED接口；键盘接口；8255A；汇编语言 一、概述 1.1设计要求及任务： （1）设计4*4的键盘，其中10个数字键0~9，其余六个键“+”、“—”、“*”、“/”、“=”、和“C”键； （2）设计两位LED接口电路； （3）实现1位数的简单运算 1.2设计原理 （1）LED显示器接口技术 LED动态显示接口技术 （2）键盘显示技术 逐行（逐列扫描法） 二、系统总体方案和硬件设计 2.1计算器总体思想 显示部分：采用LED动态显示。 按键部分：采用4*4键盘。采用软件识别键值，并执行相应的操作。 执行过程：开机显示零，等待键入数值，当键入数字，经通过数码管显示出来，当键入+、-、*、/运算符，计算器在内部执行数值转换和存储，并等待再次键入数值，当再键入数值后将显示键入的数值，按等号就会在数码管上输出运算结果。 图1 系统设计框图

2.2硬件的选择与连接 图二硬件连接总图 2.2.1硬件选择 (1)由于本设计比较简单，因此选用内部含有4KBE2PROM的89C51单片机作为系统的核心。 (2)扩展输入/输出端口 在扩展输入/输出端口时，要求输入口能够缓冲，，输出口能够锁存。常用小规模集成电路芯片74LS244或74LS245等扩展输入端口，用74LS273、74LS373、 74LS377扩展输出端口。这种扩展方法的特点是电路简单，但功能单一、灵活性差。因而常采用中规模的可编程并行接口芯片8255A扩展输入/输出端口。 (3)锁存电路采用74LS373 2.2.2接口设计 (1)单片机与8255A的接口设计 8255A中的数据总线缓冲器为三态双向数据缓冲存储器，用于将8255A的数据线 D0~D7和单片机的数据总线（P0口）连接，实现单片机和接口间的数据传送。 读写控制部件的接口设计 1、/CS为片选信号，接成低电平表示8255A 被选中。/CS与P2.7相连，用P2口的最高位控制8255A是否工作。即将P2.7控制为低电平。 2、RESET-复位信号，高电平有效，接在单片机的RST端。 3、/RD和/WR为读写控制信号，低电平有效。分别将两个端口接单片机的/RD和/WR 4、A1和A0-端口选择信号，分别与单片机的低两位地址线P1.1和P1.0相连。用于选择不同端口。采用74LS373三态锁存器，用于分离P0口第八位地址线，将它的Q0和Q1口接至8255A的地址输入端A0和A1。