Como funcionan las clases en Visual basic.Net
Que tal espero me puedas sacar de esta duda.
Se crear las clases pero ami me gustaría saber para que puede servir una clase o como lo podría utilizar por ejemplo creo una clase persona pero seria lo mismo que declarar variables de cada tipo de información que requiera como Interger para edad, string para nombre, mi duda es de que manera se saca provecho de una clase o de manera es correcto utilizarlas esta es la clase que cree, pero no le hayo sentido, si la entiendo solo quiero ver como se puede usar.
Public Class Persona
Private pName As String
Private pFechaNacimeinto As Date
Private pAltura As Double
Private pEstadoCivil As String
Public Sub SetName(ByVal nombre As String)
pName = nombre
End Sub
Public Sub SetFechaNacimiento(ByVal FechaNacimitno As Date)
pFechaNacimeinto = FechaNacimitno
End Sub
Public Sub SetAltura(ByVal Altura As Double)
pAltura = Altura
End Sub
Public Sub SetEstadoCivil(ByVal EstadoCivil As String)
pEstadoCivil = EstadoCivil
End Sub
Public Function GetEdad() As Integer
Return CInt(DateDiff(DateInterval.Year, pFechaNacimeinto, Now()))
End Function
Public Function GetPeso() As Double
Return (pAltura - 1) * 100
End Function
Public Function GetAltura() As String
Return pAltura
End Function
Public Function GetEstadoCivil() As String
Return pEstadoCivil
End Function
Public Function GetNombre() As String
Return pName
End Function
End Class
Private Sub btnRun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRun.Click
'creamos una nueva persona
Dim MiPersona As New Persona
'establecemos las propiedades de la persona
MiPersona.SetName("Rigoberto Rodriguez Enriquez")
MiPersona.SetAltura(1.74)
MiPersona.SetFechaNacimiento("15/6/1992")
MiPersona.SetEstadoCivil("Union Libre")
'mostramos las propiedades de la persona y las llamamos
Me.txtMensaje.Text = MiPersona.GetNombre.ToString & Environment.NewLine & _
MiPersona.GetEdad.ToString & Environment.NewLine & _
MiPersona.GetAltura.ToString & Environment.NewLine & _
MiPersona.GetPeso.ToString & Environment.NewLine & _
MiPersona.GetEstadoCivil.ToString
End Sub