1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
''' <summary>
''' Eine Klasse mit 3 Basisrechenfunktionen für einen Kreis
''' </summary>
Public Class Circle
''' <summary>
''' Diese Funktion berechnet den Kreisumfang
''' </summary>
''' <param name="Diameter">Den Durchmesser des Kreises</param>
Public Shared Function GetCircleLength(ByVal Diameter As Double) As Double
Return Diameter * Math.PI
End Function
''' <summary>
''' Diese Funktion berechnet den Flächeninhalt vom Kreis
''' </summary>
''' <param name="Radius">Der Radius vom Kreis</param>
Public Shared Function GetCircleArea(ByVal Radius As Double) As Double
Return Math.Pow(Radius, 2) * Math.PI
End Function
''' <summary>
''' Diese Funktion berechnet den Durchmesser vom Kreis
''' </summary>
''' <param name="Area">Der Flächeninhalt vom Kreis</param>
Public Shared Function GetCircleDiameter(ByVal Area As Double) As Double
Return Math.Sqrt((Area / Math.PI))
End Function
End Class
|