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.Date Time
8.Development
9.Event
10.File Directory
11.Generics
12.GUI
13.Internationalization I18N
14.Language Basics
15.LINQ
16.Network Remote
17.Reflection
18.Security
19.Thread
20.Windows Presentation Foundation
21.Windows System
22.XML
23.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
w__w_w___.___j__a___v__a2_s__.__c_om | Contact Us
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.