progamacion

PANTALLA DE DISEÑO


PANTALLA EJECUTANDO EL PROGRAMA





PANTALLA DONDE MUESTRA EL PRIMER NOMBRE DE LAPERSONA CON SU DATOS









CODIFICACION
Public Class PERSONAS'IDENTIDAD

' atributos , canpos ********* estado

Private nombrecompleto As String
Private direccion As String
Private nacionalidad As String
Private estadocivil As StringPrivate estatura As Integer

'metodos constructores *******comportamiento


Sub New(ByVal nombrecompleto As String, ByVal direccion As String, ByVal nacionalidad As String, ByValestadocivil As String, ByVal estatura As Integer)
Me.nombrecompleto = nombrecompleto
Me.direccion = direccion
Me.nacionalidad = nacionalidad
Me.estadocivil = estadocivilMe.estatura = estatura


End Sub

'metodos ******* comportamiento
Function getnombrecompleto() As String
Return Me.nombrecompleto
End Function

'METODOPARA CAMBIAR EL DATO
Function setnombrecompleto(ByVal nombrecompleto As String) As String
Me.nombrecompleto = nombrecompleto
Return Nothing
End Function'metodos ******* comportamiento
Function getdireccion() As String
Return Me.direccion
End Function

'METODO PARA CAMBIAR EL DATO
Function setdireccion(ByVal direccion AsString) As String
Me.direccion = direccion

Return Nothing
End Function
End Class



Public Class Form1

Private Sub cmbmostrar_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles cmbmostrar.Click
Dim niño As New personas(" gabriel guitierrez", "santiago de chile", "chilena", "solterito", 173)

Dim nom As StringDim dir As String

' SE OBTIENE EL DATO NOMBRE COMPLETO DEL OBJETO NIÑO
nom = niño.getnombrecompleto()
dir = niño.getdireccion()
MessageBox.Show("elnombre del...