vb实例教程:从零基础到制作简易计算器(附完整代码)

admin 综合编程开发技术 3


很多新手朋友刚接触 VB 时,总会问:“零基础能做出实用的程序吗?” 其实完全可以,今天兔子哥就带大家从零开始,用 VB 做一个简易计算器。这个案例不仅能帮你熟悉 VB 的基本操作,还能让你明白编程其实没那么难。

准备工作:VB 软件的安装


首先得有 VB 软件,推荐用 VB6.0,因为它对新手很友好,占用内存也小。那在哪里能下载到安全的安装包呢?可以去微软的官方网站看看,或者一些正规的编程资源网站。安装的时候要注意,一路点击 “下一步” 就行,不用改什么设置,新手嘛,先别折腾那些复杂的。安装完成后,双击桌面图标,看到那个蓝色的窗口,就说明安装成功了。


新建项目:迈出第一步


打开 VB 后,会弹出一个 “新建工程” 的窗口。我们要选 “标准 EXE”,然后点击 “确定”。这时候你会看到三个窗口,一个是大的 “窗体”,这就是我们以后程序的界面;一个是 “工具箱”,里面有各种按钮、文本框之类的控件;还有一个是 “属性窗口”,可以改控件的名字、颜色等。
可能有朋友会问,这些窗口不小心关掉了怎么办?别担心,在菜单栏里找 “视图”,里面有 “工具箱”“属性窗口”,点一下就能重新调出来。


设计计算器界面:摆放控件


我们的计算器要有显示数字的地方,还要有数字键和加减乘除键。
  1. 从工具箱里拖一个 “TextBox” 到窗体上,这就是显示框。在属性窗口里把 “Text” 后面的内容清空,再把 “Font” 调大一点,这样数字看得清楚。
  2. 接着拖 “CommandButton”,这就是按钮。我们需要 10 个数字键(0-9)、4 个运算键(+、-、*、/),还有一个 “=” 键和一个 “清除” 键。
  3. 摆这些按钮的时候,尽量对齐,不然界面会很乱。可以按住 Ctrl 键同时选多个按钮,然后在菜单栏的 “格式” 里找 “对齐”,选 “左对齐” 或者 “上对齐”。

我个人觉得,按钮的名字最好改一下,比如数字 1 的按钮,在属性窗口里把 “Name” 改成 “cmd1”,这样后面写代码的时候不容易混。


编写代码:让计算器动起来


这一步是最关键的,也是很多新手害怕的地方。其实别怕,跟着我一步一步来。
  1. 双击数字键 “1”,会弹出代码窗口。在里面输入 “Text1.Text = Text1.Text & "1"”,这句话的意思是,当点击这个按钮时,显示框里会出现 “1”。其他数字键也一样,只要把后面的数字改成对应的就行。
  2. 双击 “+” 号键,输入 “Text1.Text = Text1.Text & "+""。减号、乘号、除号也是这样,不过乘号在 VB 里要用 “*”,除号用 “/”。
  3. 对于 “清除” 键,双击后输入 “Text1.Text = ""”,这样一点击,显示框就清空了。
  4. 最难的是 “=” 键。双击 “=” 键,输入以下代码:

plaintext
Dim a As Doublea = Val(Text1.Text)Text1.Text = a

可能有朋友不明白为什么用 “Val”,因为显示框里的内容是文本类型,“Val” 能把它转换成数字,这样才能计算。


测试程序:看看效果


点击菜单栏里的 “运行”,选 “启动”,或者直接按 F5。试着按几个数字,再按个 “+”,再按个数字,然后按 “=”,看看能不能算出结果。如果不行,就检查一下代码是不是输错了,比如标点符号是不是英文的,有没有少写字母。
我刚开始学的时候,经常因为把中文的逗号写成英文的,导致程序出错,所以大家写代码的时候一定要仔细。


完整代码展示


下面是各个按钮的完整代码,大家可以参考一下:
按钮代码
数字 1Text1.Text = Text1.Text & "1"
数字 2Text1.Text = Text1.Text & "2"
......
+Text1.Text = Text1.Text & "+"
-Text1.Text = Text1.Text & "-"
*Text1.Text = Text1.Text & "*"
/Text1.Text = Text1.Text & "/"
清除Text1.Text = ""
=Dim a As Double
a = Val(Text1.Text)
Text1.Text = a

其实这个计算器还可以升级,比如添加小数点,或者做更复杂的运算。但对新手来说,先做出这个简单的版本,能极大地增强信心。编程就是这样,一步一步来,慢慢积累,你会发现越来越有趣。希望这个教程能帮到刚开始学 VB 的朋友,有问题可以在评论区问我哦。

标签: Visual Basic VB.NET

发布评论 0条评论)

  • Refresh code

还木有评论哦,快来抢沙发吧~