37 lines
1.1 KiB
Plaintext
37 lines
1.1 KiB
Plaintext
<%
|
|
Private Function CalcArea(ByVal formula, ByVal values)
|
|
Const Pi = 3.1415926535897932
|
|
Dim mth, b, b1, b2, h, r, r1, r2, s, s1, s2
|
|
Select Case LCase( formula )
|
|
Case "triangle"
|
|
b = CDbl( values(0) )
|
|
h = CDbl( values(1) )
|
|
mth = b * h * 0.5
|
|
Case "square"
|
|
s = CDbl( values(0) )
|
|
mth = s ^ 2
|
|
Case "rectangle"
|
|
s1 = CDbl( values(0) )
|
|
s2 = CDbl( values(1) )
|
|
mth = s1 * s2
|
|
Case "parallelogram"
|
|
b = CDbl( values(0) )
|
|
h = CDbl( values(1) )
|
|
mth = b * h
|
|
Case "trapezoid"
|
|
b1 = CDbl( values(0) )
|
|
b2 = CDbl( values(1) )
|
|
h = CDbl( values(2) )
|
|
mth = h / 2 * (b1 + b2)
|
|
Case "circle"
|
|
r = CDbl( values(0) )
|
|
mth = pi * r ^ 2
|
|
Case "ellipse"
|
|
r1 = CDbl( values(0) )
|
|
r2 = CDbl( values(1) )
|
|
mth = pi * r1 * r2
|
|
End Select
|
|
mth = CDbl( mth )
|
|
CalcArea = mth
|
|
End Function
|
|
%> |