表达式计算器
一个表达式计算器,用C#写的,利用了VB编译器的强劲性能,可以计算任何合法的VB表达式,可以有一个自变量(x),也可以不要自变量。
计算表达式的代码用的是“银河”的代码(VB版):
http://www.cnblogs.com/skyivben/archive/2005/10/31/265861.html
1
// Calc.cs - 表达式计算器
2
// 编译方法: csc /t:winexe Calc.cs VBExpression.cs
3![](/Images/OutliningIndicators/None.gif)
4
using System;
5
using System.Windows.Forms;
6
using Skyiv.Util;
7![](/Images/OutliningIndicators/None.gif)
8
namespace Skyiv
9
{
10
class Calc : Form
11
{
12
TextBox tbxA1, tbxA2, tbxA3;
13![](/Images/OutliningIndicators/InBlock.gif)
14
Calc()
15
{
16
Text = "表达式计算器";
17
StartPosition = FormStartPosition.CenterScreen;
18
Width = 400;
19
Height = 200;
20![](/Images/OutliningIndicators/InBlock.gif)
21
Label lblA1 = new Label();
22
lblA1.Text = "表达式(&E)";
23
lblA1.Parent = this;
24
lblA1.Top = 23;
25
lblA1.Left = 10;
26
lblA1.AutoSize = true;
27![](/Images/OutliningIndicators/InBlock.gif)
28
tbxA1 = new TextBox();
29
tbxA1.Parent = this;
30
tbxA1.Top = 20;
31
tbxA1.Left = 80;
32
tbxA1.Width = 300;
33
tbxA1.BorderStyle = BorderStyle.FixedSingle;
34![](/Images/OutliningIndicators/InBlock.gif)
35
Label lblA2 = new Label();
36
lblA2.Text = "自变量(&X)";
37
lblA2.Parent = this;
38
lblA2.Top = 48;
39
lblA2.Left = 10;
40
lblA2.AutoSize = true;
41![](/Images/OutliningIndicators/InBlock.gif)
42
tbxA2 = new TextBox();
43
tbxA2.Parent = this;
44
tbxA2.Top = 45;
45
tbxA2.Left = 80;
46
tbxA2.Width = 300;
47
tbxA2.BorderStyle = BorderStyle.FixedSingle;
48![](/Images/OutliningIndicators/InBlock.gif)
49
Button btnA3 = new Button();
50
btnA3.Text = "计算(&C)";
51
btnA3.Parent = this;
52
btnA3.Top = 70;
53
btnA3.Left = 10;
54
btnA3.Width = 62;
55
btnA3.Click += new EventHandler(Calc_Clicked);
56![](/Images/OutliningIndicators/InBlock.gif)
57
tbxA3 = new TextBox();
58
tbxA3.Parent = this;
59
tbxA3.Top = 70;
60
tbxA3.Left = 80;
61
tbxA3.Width = 300;
62
tbxA3.BorderStyle = BorderStyle.FixedSingle;
63
tbxA3.ReadOnly = true;
64![](/Images/OutliningIndicators/InBlock.gif)
65![](/Images/OutliningIndicators/InBlock.gif)
66
TextBox tbxA4 = new TextBox();
67
tbxA4.Text = @"
68
表达式使用 Visual Baisc 语法,可带一个的自变量(x)
69
可使用 pi、e 等常量,sin、cos、tan、log、sqrt 等函数
70
例子:x * cos(x * pi / sqrt(25 * 6^4)) + log(E^10)";
71
tbxA4.Parent = this;
72
tbxA4.Top = 95;
73
tbxA4.Left = 10;
74
tbxA4.Width = 370;
75
tbxA4.Height = 65;
76
tbxA4.BorderStyle = BorderStyle.None;
77
tbxA4.Multiline = true;
78
tbxA4.ReadOnly = true;
79
}
80![](/Images/OutliningIndicators/InBlock.gif)
81
void Calc_Clicked(object sender, EventArgs ea)
82
{
83
(sender as Control).Enabled = false;
84
try
85
{
86
double x = 0;
87
if (tbxA2.Text.Trim().Length != 0)
88
{
89
try
90
{
91
x = double.Parse(tbxA2.Text);
92
}
93
catch
94
{
95
try
96
{
97
x = (new Expression(tbxA2.Text)).Compute(0);
98
}
99
catch (Exception ex)
100
{
101
MessageBox.Show(ex.Message, "自变量出错");
102
}
103
}
104
}
105
tbxA3.Text = (new Expression(tbxA1.Text)).Compute(x).ToString();
106
}
107
catch (Exception ex)
108
{
109
MessageBox.Show(ex.Message, "表达式出错");
110
}
111
finally
112
{
113
(sender as Control).Enabled = true;
114
}
115
}
116![](/Images/OutliningIndicators/InBlock.gif)
117
[STAThread]
118
static void Main(string [] args)
119
{
120
Application.Run(new Calc());
121
}
122
}
123
}
124![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
2
![](/Images/OutliningIndicators/None.gif)
3
![](/Images/OutliningIndicators/None.gif)
4
![](/Images/OutliningIndicators/None.gif)
5
![](/Images/OutliningIndicators/None.gif)
6
![](/Images/OutliningIndicators/None.gif)
7
![](/Images/OutliningIndicators/None.gif)
8
![](/Images/OutliningIndicators/None.gif)
9
![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
10
![](/Images/OutliningIndicators/InBlock.gif)
11
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
12
![](/Images/OutliningIndicators/InBlock.gif)
13
![](/Images/OutliningIndicators/InBlock.gif)
14
![](/Images/OutliningIndicators/InBlock.gif)
15
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
16
![](/Images/OutliningIndicators/InBlock.gif)
17
![](/Images/OutliningIndicators/InBlock.gif)
18
![](/Images/OutliningIndicators/InBlock.gif)
19
![](/Images/OutliningIndicators/InBlock.gif)
20
![](/Images/OutliningIndicators/InBlock.gif)
21
![](/Images/OutliningIndicators/InBlock.gif)
22
![](/Images/OutliningIndicators/InBlock.gif)
23
![](/Images/OutliningIndicators/InBlock.gif)
24
![](/Images/OutliningIndicators/InBlock.gif)
25
![](/Images/OutliningIndicators/InBlock.gif)
26
![](/Images/OutliningIndicators/InBlock.gif)
27
![](/Images/OutliningIndicators/InBlock.gif)
28
![](/Images/OutliningIndicators/InBlock.gif)
29
![](/Images/OutliningIndicators/InBlock.gif)
30
![](/Images/OutliningIndicators/InBlock.gif)
31
![](/Images/OutliningIndicators/InBlock.gif)
32
![](/Images/OutliningIndicators/InBlock.gif)
33
![](/Images/OutliningIndicators/InBlock.gif)
34
![](/Images/OutliningIndicators/InBlock.gif)
35
![](/Images/OutliningIndicators/InBlock.gif)
36
![](/Images/OutliningIndicators/InBlock.gif)
37
![](/Images/OutliningIndicators/InBlock.gif)
38
![](/Images/OutliningIndicators/InBlock.gif)
39
![](/Images/OutliningIndicators/InBlock.gif)
40
![](/Images/OutliningIndicators/InBlock.gif)
41
![](/Images/OutliningIndicators/InBlock.gif)
42
![](/Images/OutliningIndicators/InBlock.gif)
43
![](/Images/OutliningIndicators/InBlock.gif)
44
![](/Images/OutliningIndicators/InBlock.gif)
45
![](/Images/OutliningIndicators/InBlock.gif)
46
![](/Images/OutliningIndicators/InBlock.gif)
47
![](/Images/OutliningIndicators/InBlock.gif)
48
![](/Images/OutliningIndicators/InBlock.gif)
49
![](/Images/OutliningIndicators/InBlock.gif)
50
![](/Images/OutliningIndicators/InBlock.gif)
51
![](/Images/OutliningIndicators/InBlock.gif)
52
![](/Images/OutliningIndicators/InBlock.gif)
53
![](/Images/OutliningIndicators/InBlock.gif)
54
![](/Images/OutliningIndicators/InBlock.gif)
55
![](/Images/OutliningIndicators/InBlock.gif)
56
![](/Images/OutliningIndicators/InBlock.gif)
57
![](/Images/OutliningIndicators/InBlock.gif)
58
![](/Images/OutliningIndicators/InBlock.gif)
59
![](/Images/OutliningIndicators/InBlock.gif)
60
![](/Images/OutliningIndicators/InBlock.gif)
61
![](/Images/OutliningIndicators/InBlock.gif)
62
![](/Images/OutliningIndicators/InBlock.gif)
63
![](/Images/OutliningIndicators/InBlock.gif)
64
![](/Images/OutliningIndicators/InBlock.gif)
65
![](/Images/OutliningIndicators/InBlock.gif)
66
![](/Images/OutliningIndicators/InBlock.gif)
67
![](/Images/OutliningIndicators/InBlock.gif)
68
![](/Images/OutliningIndicators/InBlock.gif)
69
![](/Images/OutliningIndicators/InBlock.gif)
70
![](/Images/OutliningIndicators/InBlock.gif)
71
![](/Images/OutliningIndicators/InBlock.gif)
72
![](/Images/OutliningIndicators/InBlock.gif)
73
![](/Images/OutliningIndicators/InBlock.gif)
74
![](/Images/OutliningIndicators/InBlock.gif)
75
![](/Images/OutliningIndicators/InBlock.gif)
76
![](/Images/OutliningIndicators/InBlock.gif)
77
![](/Images/OutliningIndicators/InBlock.gif)
78
![](/Images/OutliningIndicators/InBlock.gif)
79
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
80
![](/Images/OutliningIndicators/InBlock.gif)
81
![](/Images/OutliningIndicators/InBlock.gif)
82
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
83
![](/Images/OutliningIndicators/InBlock.gif)
84
![](/Images/OutliningIndicators/InBlock.gif)
85
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
86
![](/Images/OutliningIndicators/InBlock.gif)
87
![](/Images/OutliningIndicators/InBlock.gif)
88
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
89
![](/Images/OutliningIndicators/InBlock.gif)
90
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
91
![](/Images/OutliningIndicators/InBlock.gif)
92
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
93
![](/Images/OutliningIndicators/InBlock.gif)
94
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
95
![](/Images/OutliningIndicators/InBlock.gif)
96
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
97
![](/Images/OutliningIndicators/InBlock.gif)
98
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
99
![](/Images/OutliningIndicators/InBlock.gif)
100
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
101
![](/Images/OutliningIndicators/InBlock.gif)
102
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
103
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
104
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
105
![](/Images/OutliningIndicators/InBlock.gif)
106
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
107
![](/Images/OutliningIndicators/InBlock.gif)
108
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
109
![](/Images/OutliningIndicators/InBlock.gif)
110
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
111
![](/Images/OutliningIndicators/InBlock.gif)
112
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
113
![](/Images/OutliningIndicators/InBlock.gif)
114
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
115
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
116
![](/Images/OutliningIndicators/InBlock.gif)
117
![](/Images/OutliningIndicators/InBlock.gif)
118
![](/Images/OutliningIndicators/InBlock.gif)
119
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
120
![](/Images/OutliningIndicators/InBlock.gif)
121
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
122
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
123
![](/Images/OutliningIndicators/ExpandedBlockEnd.gif)
124
![](/Images/OutliningIndicators/None.gif)
计算表达式的代码用的是“银河”的代码(VB版):
http://www.cnblogs.com/skyivben/archive/2005/10/31/265861.html
1
// VBExpression.cs - 动态生成数学表达式并计算其值
2
// 表达式使用 Visual Baisc 语法,可带一个的自变量(x)
3
// 可使用 pi、e 等常量,sin、cos、tan、log、sqrt 等函数
4
// 例子:e + sqrt(log(pi ^ e) * x) + sin(x * pi / 180)
5![](/Images/OutliningIndicators/None.gif)
6
using System;
7
using System.CodeDom.Compiler;
8
using Microsoft.VisualBasic;
9
using System.Reflection;
10
using System.Text;
11
using System.Globalization;
12![](/Images/OutliningIndicators/None.gif)
13
namespace Skyiv.Util
14
{
15
sealed class Expression
16
{
17
object instance;
18
MethodInfo method;
19![](/Images/OutliningIndicators/InBlock.gif)
20
public Expression(string expression)
21
{
22
if (expression.ToUpper(CultureInfo.InvariantCulture).IndexOf("RETURN") < 0) expression = "Return " + expression;
23
string className = "Expression";
24
string methodName = "Compute";
25
CompilerParameters p = new CompilerParameters();
26
p.GenerateInMemory = true;
27
CompilerResults cr = new VBCodeProvider().CompileAssemblyFromSource
28
(
29
p,
30
string.Format
31
(
32
@"Option Explicit Off
33
Option Strict Off
34
Imports System, System.Math, Microsoft.VisualBasic
35
NotInheritable Class {0}
36
Public Function {1}(x As Double) As Double
37
{2}
38
End Function
39
End Class",
40
className, methodName, expression
41
)
42
);
43
if(cr.Errors.Count > 0)
44
{
45
string msg = "Expression(\"" + expression + "\"): \n";
46
foreach (CompilerError err in cr.Errors) msg += err.ToString() + "\n";
47
throw new Exception(msg);
48
}
49
instance = cr.CompiledAssembly.CreateInstance(className);
50
method = instance.GetType().GetMethod(methodName);
51
}
52![](/Images/OutliningIndicators/InBlock.gif)
53
public double Compute(double x)
54
{
55
return (double)method.Invoke(instance, new object [] { x });
56
}
57
}
58
}
59![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
2
![](/Images/OutliningIndicators/None.gif)
3
![](/Images/OutliningIndicators/None.gif)
4
![](/Images/OutliningIndicators/None.gif)
5
![](/Images/OutliningIndicators/None.gif)
6
![](/Images/OutliningIndicators/None.gif)
7
![](/Images/OutliningIndicators/None.gif)
8
![](/Images/OutliningIndicators/None.gif)
9
![](/Images/OutliningIndicators/None.gif)
10
![](/Images/OutliningIndicators/None.gif)
11
![](/Images/OutliningIndicators/None.gif)
12
![](/Images/OutliningIndicators/None.gif)
13
![](/Images/OutliningIndicators/None.gif)
14
![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
15
![](/Images/OutliningIndicators/InBlock.gif)
16
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
17
![](/Images/OutliningIndicators/InBlock.gif)
18
![](/Images/OutliningIndicators/InBlock.gif)
19
![](/Images/OutliningIndicators/InBlock.gif)
20
![](/Images/OutliningIndicators/InBlock.gif)
21
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
22
![](/Images/OutliningIndicators/InBlock.gif)
23
![](/Images/OutliningIndicators/InBlock.gif)
24
![](/Images/OutliningIndicators/InBlock.gif)
25
![](/Images/OutliningIndicators/InBlock.gif)
26
![](/Images/OutliningIndicators/InBlock.gif)
27
![](/Images/OutliningIndicators/InBlock.gif)
28
![](/Images/OutliningIndicators/InBlock.gif)
29
![](/Images/OutliningIndicators/InBlock.gif)
30
![](/Images/OutliningIndicators/InBlock.gif)
31
![](/Images/OutliningIndicators/InBlock.gif)
32
![](/Images/OutliningIndicators/InBlock.gif)
33
![](/Images/OutliningIndicators/InBlock.gif)
34
![](/Images/OutliningIndicators/InBlock.gif)
35
![](/Images/OutliningIndicators/InBlock.gif)
36
![](/Images/OutliningIndicators/InBlock.gif)
37
![](/Images/OutliningIndicators/InBlock.gif)
38
![](/Images/OutliningIndicators/InBlock.gif)
39
![](/Images/OutliningIndicators/InBlock.gif)
40
![](/Images/OutliningIndicators/InBlock.gif)
41
![](/Images/OutliningIndicators/InBlock.gif)
42
![](/Images/OutliningIndicators/InBlock.gif)
43
![](/Images/OutliningIndicators/InBlock.gif)
44
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
45
![](/Images/OutliningIndicators/InBlock.gif)
46
![](/Images/OutliningIndicators/InBlock.gif)
47
![](/Images/OutliningIndicators/InBlock.gif)
48
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
49
![](/Images/OutliningIndicators/InBlock.gif)
50
![](/Images/OutliningIndicators/InBlock.gif)
51
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
52
![](/Images/OutliningIndicators/InBlock.gif)
53
![](/Images/OutliningIndicators/InBlock.gif)
54
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
55
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
56
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
57
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
58
![](/Images/OutliningIndicators/ExpandedBlockEnd.gif)
59
![](/Images/OutliningIndicators/None.gif)