Feedback

VB - Distanz zweier Punkte auf einer Ebene

Veröffentlicht von am 15.10.2006
(1 Bewertungen)
Diese Funktion berechnet die Länge einer Geraden zwischen 2 Punkten auf einer Ebene. Für alle die nicht wissen um was es geht, hier ist ein Screenshot der alles erklären dürfte:
<a href="http://home.arcor.de/khartak/misc/GetLinearPosDist.gif">http://home.arcor.de/khartak/misc/GetLinearPosDist.gif<a/>
GFU-Schulungen  [Anzeige]

ASP.NET Core und Angular Komplett für .NET-Entwickler

Sie  lernen in drei (3) Tagen wie man mit  ASP.NET Core und den Technologien  MVC, Entity Framework, WebAPI und  Razor professionelle sowie moderne  Web-Anwendungsarchitekturen aufbaut.  Die Schulung ist der perfekte  Einstieg um insbesondere datengetriebene  und präsentationsorientierte  Applikationen auf Basis der robusten und  skalierbaren ASP.NET Core  Plattform zu erstellen. Nach der Veranstaltung kennen Sie die Konzepte von Angular und können Angular in neue und bestehende ASP.NET-Anwendungen einsetzen.

VB.NET Einführung

Die Schulung zeigt Ihnen, wie Sie einfache, benutzerorientierte Programme, die auf Datenbanken zugreifen, in VB.NET eigenständig entwickeln. 

''' <summary>
''' Diese Funktion berechnet die Länge einer Geraden zwischen 2 Punkten auf einer Ebene
''' </summary>
''' <param name="P1">Die erste Koordinate</param>
''' <param name="P2">Die zweite Koordinate</param>
''' <remarks>
''' Zum berechnen des Abstands von 2 Positionen auf einer geraden wird der Satz des Pythagoras verwendet.
''' </remarks>
Public Function GetLinearPosDist(ByVal P1 As PointF, ByVal P2 As PointF) As Double
    Return Math.Sqrt((Math.Pow((P2.X - P1.X), 2)) + Math.Pow((P2.Y - P1.Y), 2))
End Function
Abgelegt unter Distanz, Ebene, Pythagoras.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!