用vb制作计算器.doc

化工原理大作业 程序设计报告 所选课题： 化工计算程序设计 指导老师： 马四朋 作者姓名： 严程相 作者学号： 201030340887 学科班级： 化学工程与工艺３班 所在学院： 化学与化工学院  目录 摘要 2 目录 3 第一章 任务概述 4 1.1、目标 4 1.2、需求概述 4 1.2.1、鼠标操作 4 1.2.2、键盘操作 4 第二章 总体设计 5 2.1、系统结构功能图 5 第三章 功能分配 6 3.1、打开计算器界面 6 3.2、平方根，平方，倒数，正弦，余弦的实现 8 3.3、退格 9 3.4、清除 9 3.4.1、清除当前数据 9 3.4.2清除所有数据 9 3.5、鼠标的输入 10 3.6、进制间的转换 12 小结 14  摘要 这个程序是我用VB制作的，它可以实现简单的四则运算，数字的平方，平方根，正弦，余弦，倒数，以及进制的相互转换。而且它的功能还有退格，清除当前数据，清除所有数据，复制数据，粘贴数据，退出程序。 在这个计算器的程序中，我用到了单行选择语句If … Then …Else…,If语句的嵌套，多条件选择语句Select Case,而且还用到了组合框，框架，菜单的设计，以及键盘事件，可以通过键盘来用于计算。 在此报告中我重点叙述了计算机的各个功能及用法。特别是进制间的转换和数字与运算符之间的联系。还有说明了键盘怎样用于操作计算。虽然表达能力不太行，但我会尽力使用系统结构图，程序流程图，划分多个模块，让大家明白我设计的运算器的功能的。 第一章 任务概述 1.1、目标 本系统的目标是建立一套可以计算数的平方，平方根，倒数，正弦，余弦，数字的进制转换的计算器系统，系统可以帮助我们更好的学习，更好的节省时间。还能避免出现一些不必要的计算错误。 1.2、需求概述 根据本系统的需求分析，系统的需求可以分为以下的几个方面： 1.2.1、鼠标操作 你可以利用鼠标点击界面上的各个按钮来实现计算器的运算。 1.2.2、键盘操作 当不方便使用鼠标时可以利用键盘来实现运算，数字的复制和粘贴 。第二章 总体设计 2.1、系统结构功能图 图2-1系统结构功能图 第三章 功能分配 3.1、打开计算器界面 图3-1 计算器界面 Dim dflag As Integer ‘小数点仍然存在吗？ Dim i As Integer Dim opnre As Integer ‘初始值 Dim prev As Double ‘前面输入的操作数 Dim oflag As Integer ‘等号前后对数字的标记 Dim ind As Integer ‘cmdoperator控件数组的数 Dim x As Double Dim y As Double 运算符 (+, -, x, /, =) 的 Click 事件过程 如果接下来的按键是数字键，增加 val(text1.Caption)。 如果有一个操作数，则设置 prev。 如果有两个操作数，则将 prev设置为 prev 与val(text1.Caption) 当前输入字符串的运算结果，并显示结果。 Private Sub cmdnumber_Click(Index As Integer) If ind = 4 Then prev = 0 text1.Caption = ind = 0 End If opnre = 0 If oflag = 0 Then text1.Caption = End If oflag = 1 小数点 (.) 按钮的 Click 事件过程 如果上一次按键为运算符，初始化opnre 为 0.； 否则显示时追加一个小数点。 If cmdnumber(Index).Caption . Then If text1.Caption 0 Then text1.Caption = text1.Caption cmdnumber(Index).Caption Else text1.Caption = cmdnumber(Index).Caption End If Else If dflag = 0 Then text1.Caption = text1.Caption . dflag = 1