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

Home
VB.Net
1.2D
2.Application
3.Class
4.Data Structure
5.Data Types
6.Database ADO.net
7.Development
8.Event
9.File Directory
10.Generics
11.GUI
12.Language Basics
13.LINQ
14.Network Remote
15.Security
16.Thread
17.Windows Presentation Foundation
18.Windows System
19.XML
20.XML LINQ
VB.Net Tutorial
VB.Net by API
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
www.java2java.com | Contact Us
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.