Blog de Daiyiro

#BlogDeDaiyiro es sobre todo Bricolajes de Electrónica/Informática. ¡^-^¡

LO NUEVO:

15.10.13

Realizar Una Aplicación Que Contenga Dos Clases

Esta es otra aplicación que hice para el curso de Visual Basic.Net, consiste en una aplicación de consola para listar datos personales de vehículo y conductor, por ejemplo para una agencia de seguros.



EL CÓDIGO EN VISUAL BASIC:

Module Module1
    Dim pers As Persona
    Dim vehi As Vehiculo

    Class Persona

        Private _Nombre As String
        Private _Domicilio As String
        Private _Telefono As String
        Private _Edad As Byte


        Public Sub nombre(ByRef nombre As String)
            _Nombre = nombre
        End Sub

        Public Sub domicilio(ByRef domicilio As String)
            _Domicilio = domicilio
        End Sub

        Public Sub telefono(ByRef telefono As String)
            _Telefono = telefono
        End Sub

        Public Sub edad(ByRef edad As String)
            _Edad = edad
        End Sub

        Private Sub datos()
            Console.WriteLine()
            Console.WriteLine("Datos Personales:")
            Console.WriteLine("__________________________________")
            Console.WriteLine()
            Console.WriteLine("Nombre: {0}", _Nombre)
            Console.WriteLine("Domicilio: {0}", _Domicilio)
            Console.WriteLine("Telefono: {0}", _Telefono)
            Console.WriteLine("Edad: {0}", _Edad)
        End Sub

        Public Sub ListarDatosPersona()
            datos()
        End Sub

    End Class


    Class Vehiculo
        Private _Marca As String
        Private _Modelo As String
        Private _Color As String
        Private _Matricula As String

        Public Sub marca(ByRef marca As String)
            _Marca = marca
        End Sub

        Public Sub modelo(ByRef modelo As String)
            _Modelo = modelo
        End Sub

        Public Sub color(ByRef color As String)
            _Color = color
        End Sub

        Public Sub matricula(ByRef matricula As String)
            _Matricula = matricula
        End Sub

        Public Sub datos()
            Console.WriteLine()
            Console.WriteLine("Datos del Vehiculo:")
            Console.WriteLine("__________________________________")
            Console.WriteLine()
            Console.WriteLine("Marca: {0}", _Marca)
            Console.WriteLine("Modelo: {0}", _Modelo)
            Console.WriteLine("Color: {0}", _Color)
            Console.WriteLine("Matricula: {0}", _Matricula)
        End Sub
        Public Sub ListarDatosVehiculo()
            datos()
        End Sub
    End Class

    Public Sub Nombre()
        Console.Write("Introduzca el Nombre : ")
        pers.nombre(Console.ReadLine)
    End Sub

    Public Sub Domicilio()
        Console.Write("Introduzca la Direccion :")
        pers.domicilio(Console.ReadLine)
    End Sub

    Public Sub Telefono()
        Console.Write("Introduzca el Telefono :")
        pers.telefono(Console.ReadLine)
    End Sub

    Public Sub Edad()
        Console.Write("Introduzca la Edad :")
        pers.edad(Console.ReadLine)
    End Sub


    Public Sub Marca()
        Console.Write("Introduzca la Marca : ")
        vehi.marca(Console.ReadLine)
    End Sub

    Public Sub Modelo()
        Console.Write("Introduzca el Modelo :")
        vehi.modelo(Console.ReadLine)
    End Sub

    Public Sub Color()
        Console.Write("Introduzca el Color :")
        vehi.color(Console.ReadLine)
    End Sub

    Public Sub Matricula()
        Console.Write("Introduzca la Matricula :")
        vehi.matricula(Console.ReadLine)
    End Sub

    Sub Main()
        pers = New Persona()
        Nombre()
        Domicilio()
        Telefono()
        Edad()
        vehi = New Vehiculo()
        Marca()
        Modelo()
        Color()
        Matricula()
        pers.ListarDatosPersona()
        vehi.ListarDatosVehiculo()
        Console.ReadLine()
    End Sub


End Module


Espero que os sea de utilidad...

Si quieres descargarte el proyecto entero puedes hacerlo desde el siguiente link:

Descargar Seguros.rar 

Un Saludiioo.

1 comentario:

  1. Muy bueno, me a servido ese codigo para solucionar un problema que tenia con una aplicacion, Gracias.

    ResponderEliminar