如何制作一个vb计算器.doc

如何制作一个VB计算器 功能说明：支持加、减、乘、除、取反、阶乘、x的y次方、括号 按键重新分配、提高了工作效率 窗口过渡动画 实时输入纠错，计算纠错 其它经典实用的小功能期待发现与添加 界面预览： 前期准备：有Microsoft Visual Basic 开发平台，懂基本的VB语法（有明白时查资料就行了） 计算顺序为 （）、！、^、*/、取反、加减 算法为：①首先扫描出（）内需要优先计算的部分，将这部分用来计算 ②依照计算顺序进行计算 ③用计算结果替换原（）联同（）内表达式 ④循环①~③直至只剩下一个数据 ⑤结果的处理 主要内容：怎样扫描出各个计算符号和需要运算的数据，怎样纠错，后面会详细介绍 开始动手之窗体设计： 新建工程——标准exe Form属性：BordStyle=1,Caption=计算器，FillStyle=1,Height=4455,Width=7995,（近似的黄金分割）Picture自己找一张图片 菜单工程——部件——控件——勾选Microsoft Forms 2.0 Object Library——确定 在新出现的控件中添加一个Textbox 名称=tb，Backstyle=0,Boardstyle=1,Height=3615,Left=0,Top=0,Width=7995，Font适当 一个Image 名称=img，Height=3615,Left=0,Top=0,Width=7995(尺寸位置与Textbox相同)，visibal=false,stretch=true，Picture自己找一张图片 在新出现的控件中添加一个Label 将长度调整为与窗体同长，高度刚好可以填补视界中两张图片的差，放过去填补这个差，这样应该懂了用意了吧，Backstyle=0,Boardstyle=0，Caption随意，Font适当 用鼠标点选这个标签，ctrl+c,ctrl+v创建数组，放到适当位置，重复总共放置5个，包含原来的那个。把 它们依次排开吧，赋上不同的Caption作为区分，怕麻烦就12345吧，不怕麻烦就，，，，，哎呀，自己想显示啥就写啥 在新出现的控件中添加再两个Label 所有Label的形状相同（为的是节约空间，简洁好看麻），visable=false,名称分别为Label2和lb3 5个Timer 按下F5欣赏到效果如下： 写程序啦 本程序由标签循环显示动画、弹出按键分配动画、错误提示动画和计算部分四个部分组成，下面分别介绍如何实现上述部分。 标签循环显示动画： 首先是Label()数组及时间控件的初始化，双击窗体，添加以下程序 Private Sub Form_Load() For i = 0 To 4’//把这个标签数组重叠,初始化显示的位置 Label1(i).Visible = False Label1(i).Top = 3600 Label1(i).Left = 0 Next i Label1(0).Visible = True Timer1.Interval = 2000’//////////显示2秒钟后显示下一条提示 Timer2.Interval = 50’//////////////移动时间间隔 Timer1.Enabled = True Timer2.Enabled = False End Sub 要达到的效果就是。 ******************************按键循环滚动动画********************************* 再添加以下程序 Private Sub Timer1_Timer() If i = 5 Then Label1(0).Visible = True Label1(1).Visible = False Label1(2).Visible = False Label1(3).Visible = False Label1(4).Visible = False Label1(0).Top = 3600 Label1(1).Top = 3600 Label1(2).Top = 3600 Label1(3).Top = 3600 Label1(4).Top = 3600 i =