VB.Net/Language Basics/Function
Define and Call Function
<source lang="vbnet"> Imports System Public Class MainClass
Shared Sub Main(ByVal args As String()) Console.WriteLine("In Main! Calling SomeMethod( )...") SomeMethod( ) Console.WriteLine("Back in Main( ).") End Sub Shared Sub SomeMethod( ) Console.WriteLine("Hi") End Sub "SomeMethod
End Class
</source>
Define and use Function
<source lang="vbnet"> Imports System Public Class MainClass
Shared Sub Main(ByVal args As String()) PrintPay(40, 10.5) PrintPay(38, 21.75) PrintPay(20, 13) PrintPay(50, 14) End Sub Shared Sub PrintPay(ByVal hours As Double, ByVal wage As Decimal) Console.WriteLine("The payment is {0:C}", hours * wage) End Sub
End Class
</source>
<source lang="vbnet"> 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 Double) As 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
</source>