# 3D point VB.Net Exercise - Visual Basic Programming Course

### Code

``````Imports System
Class Point3D
Protected x, y, z As Double

Public Sub New()
End Sub

Public Sub New(ByVal nx As Double, ByVal ny As Double, ByVal nz As Double)
MoveTo(nx, ny, nz)
End Sub

Public Function GetX() As Double
Return x
End Function

Public Sub SetX(ByVal value As Double)
x = value
End Sub

Public Function GetY() As Double
Return y
End Function

Public Sub SetY(ByVal value As Double)
y = value
End Sub

Public Function GetZ() As Double
Return z
End Function

Public Sub SetZ(ByVal value As Double)
z = value
End Sub

Public Sub MoveTo(ByVal nx As Double, ByVal ny As Double, ByVal nz As Double)
x = nx
y = ny
z = nz
End Sub

Public Function DistanceTo(ByVal p2 As Point3D) As Double
Return Math.Sqrt((x - p2.GetX()) * (x - p2.GetX()) + (y - p2.GetY()) * (y - p2.GetY()) + (z - p2.GetZ()) * (z - p2.GetZ()))
End Function
End Class``````

### More VB.Net Exercises of OOP More On Classes

##### Catalog + MenuImprove the Catalog program, so that "Main" displays a menu to allow entering new data of any kind, as well as displaying all the data stored....

Juan A. Ripoll - Systems Tutorials and Programming Courses © 2024 All rights reserved.  Legal Conditions.