distance entre de points p1 et p2

Voir le sujet précédent Voir le sujet suivant Aller en bas

distance entre de points p1 et p2

Message par kindom le Mar Juil 19, 2011 1:00 am

Public Class point
Protected x As Integer
Protected y As Integer
Public Property _X()
Get
Return x
End Get
Set(ByVal value)
x = value
End Set
End Property
Public Property _Y()
Get
Return y
End Get
Set(ByVal value)
y = value
End Set
End Property

Public Function distance(ByVal p1 As point, ByVal p2 As point) As Integer
Dim dis As Integer
dis = Math.Sqrt((p2.x - p1.x) * (p2.y - p1.y) + (p2.y - p1.y) * (p2.y - p1.y))
Return dis
End Function
Public Sub New()

End Sub
Public Sub New(ByVal xx As Integer, ByVal yy As Integer)
Me.x = xx
Me.y = yy
End Sub
End Class



kindom
 
 

Nombre de messages : 1
Date d'inscription : 19/07/2011
Masculin

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum