Add to Favorites    Make Home Page 8957 Online
 Language Categories
 Source Codes Home Project Ideas New! Interview Questions FAQs Home ASP Home ASP Source Codes ASP Script Directory New! ASP .Net Script Directory New! ASP Interview Questions ASP FAQs ASP How Tos C Home C Source Codes C Script Directory New! C Interview Questions C FAQs C How Tos C++ Home C++ Source Codes C++ Script Directory New! C++ Interview Questions C++ FAQs C++ How Tos Java Home Java Source Codes Java Directory New! Java Interview Questions Java FAQs Java How Tos JavaScript Home JavaScript Directory New! JavaScript Source Codes JavaScript FAQs JavaScript How Tos COBOL Home COBOL Source Codes COBOL FAQs COBOL How Tos Pascal Home Pascal Source Codes Pascal FAQs Pascal How Tos PHP Script Directory New! Python Script Directory New! Perl & CGI Script Directory New! Flash Script Directory New! CFML Script Directory New! Remotely Hosted Scripts New! Tools & Utilities Directory New! XML Script Directory New! Best Programmers Amit Mathur Vishal Bhardwaj Deepesh Jain Vyom NetWork
 Our Services

Home » ASP Home » Math Home » CalcArea Function

A D V E R T I S E M E N T

Search Projects & Source Codes:

 Title CalcArea Function Description The CalcArea function calculates the area of objects. There are two required arguments: formula and values. The formula argument must be a string and the values argument must be an array. The following chart displays the acceptable values of the formula and values argument:formula argument (string) values argument (array) ------------------------------------------------------------------------triangle array(0) = base array(1) = height square array(0) = side rectangle array(0) = side1 array(1) = side2 parallelogram array(0) = base array(1) = height trapezoid array(0) = base1 array(1) = base2 array(2) = height circle array(0) = radius ellipse array(0) = radius1 array(1) = radius2 CalcArea always returns a double. Category ASP » Math Hits 349693 Code Select and Copy the Code <% 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 %>

Related Source Codes

 Script Name Author ııııııııııııııııııııı VyomWorld Resistor color code reader A.Chermarajan. Telephone Directory dhivya card swapping game (Mini Project) nityanand simple hangman-pascalsource Seabert college dirtectory (Mini Project) msridhar Poll Application John van Meter ASP Daily Hit Counter. Tejaskumar Gandhi To avoid null in asp environment using sql Sami Maklumbalas webmaster poll John van Meter EasyASP Template Engine. TjoekBezoer Basic Calculator using HTML & Javascript. Patrick M. D Souza What servers support ASP ? VyomWorld What is ASP? VyomWorld

A D V E R T I S E M E N T

Subscribe to SourceCodesWorld - Techies Talk
Email:

 Free eBook - Interview Questions: Get over 1,000 Interview Questions in an eBook for free when you join JobsAssist. Just click on the button below to join JobsAssist and you will immediately receive the Free eBook with thousands of Interview Questions in an ebook when you join.

ASP Home | C Home | C++ Home | COBOL Home | Java Home | Pascal Home