Define and Use Function: Shared Function : Function « Language Basics « VB.Net

VB.Net
1. 2D
2. Application
3. Class
4. Data Structure
5. Database ADO.net
6. Development
7. Event
8. File Directory
9. Generics
10. GUI
11. Language Basics
12. Network Remote
13. Thread
14. Windows System
15. XML
Microsoft Office Word 2007 Tutorial
Java
Java Tutorial
Java Source Code / Java Documentation
Java Open Source
Jar File Download
Java Articles
Java Products
Java by API
C# / C Sharp
C# / CSharp Tutorial
ASP.Net
JavaScript DHTML
JavaScript Tutorial
JavaScript Reference
HTML / CSS
HTML CSS Reference
C / ANSI-C
C Tutorial
C++
C++ Tutorial
PHP
Python
SQL Server / T-SQL
Oracle PL / SQL
Oracle PL/SQL Tutorial
PostgreSQL
SQL / MySQL
MySQL Tutorial
VB.Net Tutorial
VB.Net » Language Basics » FunctionScreenshots 
Define and Use Function: Shared Function

Imports System

Public Class MainClass
    
    Shared Sub Main(ByVal args As String())
        Dim area As Double
        area = CalculateAreaFromRadius(100)
    
        Console.WriteLine("Area: " & area)
    End Sub
    
    Shared Function CalculateAreaFromRadius(ByVal radius As DoubleAs Double

        ' square the radius...
        Dim radiusSquared As Double
        radiusSquared = radius * radius

        ' multiply it by pi...
        Dim result As Double
        result = radiusSquared * Math.PI

        ' return the result...
        Return result

    End Function

End Class

           
       
Related examples in the same category
1. Define and Call FunctionDefine and Call Function
2. Define and use FunctionDefine and use Function
w_w_w__.__j__a___v___a__2s___.__c_om_ | Contact Us
Copyright 2003 - 08 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.