Feedback

Basisrechenfunktionen für einen Kreis

Sprache: VB

3 Basisrechenfunktionen für einen Kreis: Umfang, Durchmesser, Fläche
''' <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
''' <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

1 Kommentar