当前位置:首页 >> 其它课程 >>

零基础VB制作简易计算器教程


零基础 VB 制作简易计算器
Feb. 16, 2014 by 王斌(华宁一中)

作为一位初学者来说,VB 这个东西似乎有些难(谁不难啊) ,但是仔细琢磨之后, 又觉得和我们的生活密切相关。我们可以使用它来制作一个简易的计算器哦! 我自己大概只花了 5~6 天的时间来粗略地学习来一下简易计算器的制作, 特在此和各位 分享一下我的心得。 我也是第一次

做这个东西, 感觉编程序是那些高材生或技术人员才可以干的事情。 其实, 你也可以当一次这样的技术人员(是不是感觉自己的档次提高了不少?哈哈! ) 。

特此申明:本人能力有限,所做的计算 器只能进行如下运算 加法:可连续相加9次 减法:可连续相减9次 乘法·除法各可运算1次 我们先从基础的东西说起 一、 启动:
1. “开始”按钮----“程序”----“Microsoft Visual Basic6.0 中文版”

2.选“新建”选项卡 新建:建立新的工程 现存:选择和打开现有的工程 最新:最近使用过的工程 3.单击“标准 EXE”项,再单击“打开”按钮

二、退出:
在菜单文件(F)项中选“退出”或单击“关闭”按钮 建立一个 VB 应用程序的一般步骤: 1. 设计窗体,建立用户界面的对象; 2. 设置各对象的属性; 3. 为必要的对象进行事件过程的编程; 4. 程序运行与调试; 5. 保存文件和编译。

好,先来认识一下我们即将要用到的工具吧,下面的这个 叫
工具箱

我们开始来制作它
一.显示屏和按键



1.使用工具箱中右边的第二个按钮(文本框)在图 1.2 上拖 出一个框,为 Text1 2.然后,再使用工具箱中右边的第三个按钮(命令按钮)分别拖出你喜欢的形状(我认为
还 是 正 方 形 . 长 方 形 最 好 )

电脑就会自动给它们编号 Command1.Command2 等。此时,你使用鼠标左键单击它们 中的任意一个,如:Command9.在右边的框中便会出现 : (名称) Command9 你找到 Caption ,将 Command9 改写成你想要的数字 你还可以设置一个清除键:clear。加号减号乘号除号的制作方法也和其他按键一样的。

二.编写程序
1.
用鼠标左键双击上面这个图中的打有一些黑色小点的区域,就会来到下面

电脑是不会自己进行运算的,所以你要先自己把你要用到的东西告诉它 所以就要告诉它 格式:Dim 变量名[AS 类型] 我们则需要申明 Dim shu1 As Single Dim shu2 As Single Dim shu3 As Single Dim shu4 As Single Dim shu5 As Single Dim shu6 As Single Dim shu7 As Single Dim shu8 As Single Dim shu9 As Single 另外,我们还要申明加法或减法进行了几次,所以又要申明 Dim yier As Single (yier 是代表输入第几个数字) 还有,要对符号进行申明 格式:DIM 变量名 AS String Dim fuhao As String

2.我们来对数字进行编排,我们来看 1
当我们输入第一个数字时,它就是 1 当我们输入第二个数字时,它就是 11 当我们输入第三个数字时,它就是 111 此处,我们要用到一个结构 结构为:

If 条件 Then 语句块 End If

Private Sub Command1_Click() If yier = 1 Then shu1 = shu1 * 10 + 1 Text1.Text = Str(shu1) ElseIf yier = 2 Then shu2 = shu2 * 10 + 1 Text1.Text = Str(shu2) ElseIf yier = 3 Then shu3 = shu3 * 10 + 1 Text1.Text = Str(shu3)

ElseIf yier = 4 Then shu4 = shu4 * 10 + 1 Text1.Text = Str(shu4) ElseIf yier = 5 Then shu5 = shu5 * 10 + 1 Text1.Text = Str(shu5) ElseIf yier = 6 Then shu6 = shu6 * 10 + 1 Text1.Text = Str(shu6) ElseIf yier = 7 Then shu7 = shu7 * 10 + 1 Text1.Text = Str(shu7) ElseIf yier = 8 Then shu8 = shu8 * 10 + 1 Text1.Text = Str(shu8) ElseIf yier = 9 Then shu9 = shu9 * 10 + 1 Text1.Text = Str(shu9) End If End Sub 注意:每次输入的数字要让他在显示屏中显示出来 即:Text1.Text = Str(shu1) 其它的几个数字的输入只要把上面的“+1”改成“+2”,“+3”,“+4”,“+5”,“+6”, “+7”,“+8”,“+9”即可

3.clear 键:就是所有的数字为 0,Text1.Text 为 0
Private Sub Form_Load()

Text1.Text = "" shu1 shu2 shu3 shu4 shu5 shu6 shu7 shu8 shu9 yier = = = = = = = = = = 0 0 0 0 0 0 0 0 0 1

End Sub 加号:每加一次,下一次相加是在这一次的基础上再加一个数字 所以: 每加一次 yier 就加 1 Private Sub Command3_Click() fuhao = "+" If yier = 1 Then yier = 2 ElseIf yier = 2 Then yier = 3 ElseIf yier = 3 Then yier = 4 ElseIf yier = 4 Then yier = 5 ElseIf yier = 5 Then yier = 6 ElseIf yier = 6 Then yier = 7 ElseIf yier = 7 Then yier = 8 ElseIf yier = 8 Then yier = 9 End If End Sub 减号也是如此,只需把 fuhao = “+”改成 fuhao = “-“

4.乘法和除法
乘法: Private Sub Command9_Click() fuhao = "*" If yier = 1 Then yier = 2 End If End Sub

除法:Private
fuhao = "/" If yier = 1 Then

Sub Command9_Click()

yier = 2 End If End Sub

5. 等号
Private Sub Command5_Click() If fuhao = "+" Then Text1.Text = Str(shu1 + shu2 + shu3 + shu4 + shu5 + shu6 + shu7 + shu8 + shu9) ElseIf fuhao = "-" Then Text1.Text = Str(shu1 - shu2 - shu3 - shu4 - shu5 - shu6 - shu7 - shu8 - shu9) ElseIf fuhao = "*" Then Text1.Text = Str(shu1 * shu2) ElseIf fuhao = "/" Then Text1.Text = Str(shu1 / shu2) End If

End Sub

最后,进行一下计算;检查是否出错

最后,一个简易的计算器就制作成功了(是不是心动了,快动手做一做吧)


相关文章:
用VB编写简易计算器
VB编写简易计算器_计算机软件及应用_IT/计算机_专业资料。用 VB 编写简易计算器 名称 Command1(0)~Command1(9) Command2(0) Command2(1) Command2(2) ...
简易计算器课程设计
暂无评价|0人阅读|0次下载|举报文档简易计算器课程设计_IT/计算机_专业资料。科研...VB简易计算器代码 3页 1下载券 ©2015 Baidu 使用百度前必读 | 文库协议 ...
使用VB 设计一个简易计算器
略 范围 精度 8 0~2 -1 -215~215-1 -231~231-1 略 7 位有效数字 ...vb设计简易计算器说... 16页 免费 Visual BasicNET案例教程... 128页 ...
简易计算器VB课程设计报告
暂无评价|0人阅读|0次下载|举报文档 V​B​课​程​设​计​简​易​计​算​器简易计算器要求:用 VB 做类似于 windows 自带的计算器程序 ...
用VB做简易计算器
暂无评价|0人阅读|0次下载|举报文档 用VB做简易计算器_理学_高等教育_教育专区。《VB》课内实验报告 VB》学生姓名: 学生姓名: 及学号: 学班 院: 级: 数学...
基于VB制作简易计算器课设报告
暂无评价|0人阅读|0次下载|举报文档基于VB制作简易计算器课设报告_计算机软件及应用_IT/计算机_专业资料。简易计算器的课设报告 面向...
用VB设计一个简单的计算器
暂无评价|0人阅读|0次下载|举报文档 用VB设计一个简单的计算器_计算机软件及应用_IT/计算机_专业资料。VB 大作业报告程序功能介绍:计算器可以进行简单的。加、减...
VB编写的简易计算器
暂无评价|0人阅读|0次下载|举报文档VB编写简易计算器_IT/计算机_专业资料。这是一个简易计算器的VB代码,下面是这个计算器的界面,有一个文本输入框和16个按钮...
VB课程设计简易计算器
暂无评价|0人阅读|0次下载|举报文档VB课程设计简易计算器_电子/电路_工程科技_专业资料。计算机课程设计报告 题目 简易计算器 系别年级班级 学生姓名 指导教师 设计...
VB简单计算器编程代码(附图)
暂无评价|0人阅读|0次下载|举报文档VB简单计算器编程代码(附图)_IT/计算机_专业资料。完整的VB计算器程序代码及附图说明, 课程设计说明书正文 一、题目:计算器...
更多相关标签:
vb简易计算器代码 | vb简易计算器 | vb简易计算器程序 | vb制作简易计算器 | vb制作简易计算器教程 | vb编写简易计算器 | 用vb编写简易计算器 | vb编写简易计算器代码 |