VB.Net Tutorial/Class Module/ReadOnly

Demonstrates Const and ReadOnly members

<source lang="vbnet">Module Tester

  Sub Main()
     Dim random As Random = New Random()
     Dim circle As MyConstant = New MyConstant(random.Next(1, 20))
     Dim radius As String = Convert.ToString(circle.RADIUS)
     Console.WriteLine("Radius = " & radius & vbCrLf _
        & "Circumference = " + String.Format("{0:N3}", _
        circle.RADIUS * 2 * MyConstant.PI))
  End Sub 

End Module Class MyConstant

  Public Const PI As Double = 3.14159
  Public ReadOnly RADIUS As Integer
  Public Sub New(ByVal radiusValue As Integer)
     RADIUS = radiusValue
  End Sub 

End Class</source>

Radius = 3
Circumference = 18.850