Windows Azure Cloud Storage ermöglicht es Ihnen bereits ab 0,10€ pro GB/Monat die Vorteile der Cloud zu nutzen.
Willkommen bei dotnet-snippets.de! Snippet hinzufügen Login Registrieren
Snippets in der Datenbank: 1551 | Anzahl registrierter User: 1841 | Besucher online: 197
Hauptmenü
Home
Top Ten
Zufälliger Snippet
FAQs
.NET Community
dotnet-forum.de
dotnet-kicks.de
Social

RSS Feeds
Rss Alle Snippets
Rss C#
Rss VB.NET
Rss C++
Rss ASP.NET
Partner
Member of Microsoft Community Leader/Insider Program (CLIP)

Basisrechenfunktionen für einen Kreis


Autor: Tim Hartwig
Sprache: VB.NET
Bewertung: 7,4
(1 Bewertung)
Anzahl der Aufrufe: 7196
  
Kick it on dotnet-kicks.de  

Beschreibung:

3 Basisrechenfunktionen für einen Kreis: Umfang, Durchmesser, Fläche

Abgelegt unter: Kreis, Mathe.



Visual Basic
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
Sie haben Fragen zu diesem Snippet oder brauchen Hilfe bei der .NET Entwicklung?
Freundliche und kompetente Entwickler helfen Ihnen gern weiter im Forum für .NET Entwicklung.



Kommentare:
(Zum Schreiben von Kommentaren bitte anmelden.)

Günther Foidl schrieb am:  24.09.2008 23:48:58

Anstatt einer Potenzierung mit Math.Pow(Radius, 2) ist es effizienter eine Multiplikation zu verwenden.

RETURN Radius * Radius * Math.PI


Diese Snippets könnten für Sie interessant sein:
[VB.NET] Linien u. Kreise a la VB6 - Einfach Zeichnen
[C#] Summe 1..n berechnen
[C#] Fibonacci-Folge berechnen
[C#] n-te Fibonaccizahl rekursiv berechnen
[C#] Summe 1²...n² berechnen.
[C#] Summe 1³..n³ berechnen.
[C#] größten gemeinsamen Teiler berechnen.
[VB.NET] Multiplikation von übergroßen Zahlen
[C#] Dreiecksberechnung
[VB.NET] PI nach der Bailey-Borwein-Plouffe-Formel berechnen
[VB.NET] Quadratische Gleichung mit der PQ Formel lösen
[C++] Exponents
[C#] Quersummenberechnung
[C#] Geodaten in sexagesimal Format umrechnen
[VB.NET] Größten gemeinsamen Teiler berechnen
[VB.NET] Quadratwurzel ohne Sqrt() Funktion ziehen
[C#] Addiere alle ganzen Zahlen von x bis y
[C++] Caesar
[C#] "echte" Teiler Summe berechnen
[C#] Formelevaluierung aus RPN Form
[C#] Prüfung auf narzisstische Zahlen
[C#] CellMatrix
[C#] Maschinengenauigkeit
[C#] Flächenberechnungen am Kreis,Quadrat,Parallelogramm,Trapez
[C#] Bruch-Klasse
[VB.NET] einfacher rekursiver Mathe Parser
[VB.NET] Permutation nachweisen
[VB.NET] Das Sieb des Eratosthenes
[VB.NET] Primfaktorzerlegung
[VB.NET] Größter gemeinsamer Teiler
[VB.NET] Modulare Exponentation
[VB.NET] Fibonacci-Folge iterativ erzeugen
[VB.NET] Das Sieb von Atkin
[VB.NET] Das Sieb von Atkin (2)
[VB.NET] Werte zweier Variablen tauschen
[VB.NET] Ganzzahlige Wurzel
[VB.NET] Binäre Exponentation
[VB.NET] Größter gemeinsamer Teiler (2)
[VB.NET] Binomialkoeffizient
[VB.NET] Kleinster natürlicher Teiler > 1
[VB.NET] Das Sieb von Atkin (2) - aktuell
[VB.NET] Dezimalzahl in Zahl der Basis b < 37 konvertieren

schlecht sehr gut
1 2 3 4 5 6 7 8 9 10
Nur angemeldete User können Snippets bewerten.