本节课程,我们一起来使用VB6.0制作一个简易计算器。
关键技术
本案例中采用了VBScript脚本中的eval方法,利用这个方法可以极大的简化计算流程,减少代码复杂度。
在使用eval方法前,我们需要先定义一个对象。具体方法详见下方“=”按键的代码。
使用效果见以下视频:
设计过程
1,建立程序界面,按照下图添加控件到窗体中。
控件包含:一个文本控件,0-9数字键共10个按钮,+、-、×、÷、小数点、=、AC、退格键,共8个按钮。
其中0-9数字键按钮,需要设置数组控件,将每个按钮的index属性设置为其对应的数字。
并将按钮的caption属性全部按照下图设置好。
2,编写数字键0-9的代码
Private Sub Command1_Click(Index As Integer) Text1 = Text1 & IndexEnd Sub
3,编写小数点按键的代码
Private Sub Command2_Click() Text1 = Text1 & "."End Sub
4,编写+-×÷四个按键的代码
Private Sub Command4_Click() Text1 = Text1 & "/"End SubPrivate Sub Command5_Click() Text1 = Text1 & "*"End Sub'加号Private Sub Command6_Click() Text1 = Text1 & "+"End Sub'减号Private Sub Command7_Click() Text1 = Text1 & "-"End Sub
5,编写=计算按键的代码
Private Sub Command3_Click() Dim s As Object On Error GoTo err Set s = CreateObject("MSScriptControl.ScriptControl") s.Language = "VBScript" Text1 = s.eval(Text1) Exit Suberr: Text1 = "Err" '计算出错时显示ErrEnd Sub
6,编写AC按键(清空文本框)的代码
Private Sub Command8_Click() Text1 = ""End Sub
7,最后编写退格按键的代码
Private Sub Command9_Click() If Len(Text1) > 0 Then Text1 = Left(Text1, Len(Text1) - 1) End IfEnd Sub
8,完成全部代码后,运行程序,进行测试