Clases Estudiante + Profesor Curso de Programación Visual Basic

Lección:

Programación Orientada a Objetos


Ejercicio:

Clases Estudiante + Profesor 24


Objetivo:

Cree un nuevo proyecto e incluya en él la clase Persona que acaba de crear.

Crear una clase "Alumno" y otra clase "Profesor", ambos descendientes de "Persona".

La clase "Estudiante" tendrá un método público "GoToClasses", que escribirá en pantalla "Voy a clase".

La clase "Profesor" tendrá un método público "Explicar", que mostrará en pantalla "La explicación comienza". Además, tendrá un atributo privado "subject", una cadena.

La clase Persona debe tener un método "SetAge (int n)" que indicará el valor de su edad (por ejemplo, 20 años).

El alumno dispondrá de un método público "ShowAge" en el que se escribirá en la pantalla "Mi edad es: 20 años" (o el número correspondiente).

Debe crear otra clase de prueba llamada "StudentAndTeacherTest" que contendrá "Main" y:
Crea una persona y haz que salude
Crea un estudiante, establece su edad en 21 años, dile que salude y muestra su edad
Crea un maestro, de 30 años, pídele que salude y luego explícale.


Código:

Imports System
Namespace December_19th
    Class Teacher
        Inherits Person

        Private subject As String

        Public Sub Explain()
            Console.WriteLine("Explanation begins")
        End Sub
    End Class
End Namespace

Namespace December_19th
    Class StudentAndTeacherTest
        Private Shared Sub Main()
            Dim debug As Boolean = False
            Dim myPerson As Person = New Person()
            myPerson.Greet()
            Dim myStudent As Student = New Student()
            myStudent.SetAge(21)
            myStudent.Greet()
            myStudent.ShowAge()
            Dim myTeacher As Teacher = New Teacher()
            myTeacher.SetAge(30)
            myTeacher.Greet()
            myTeacher.Explain()
            If debug Then Console.ReadLine()
        End Sub
    End Class
End Namespace

Namespace December_19th
    Class Student
        Inherits Person

        Public Sub ShowAge()
            Console.WriteLine("My age is: {0} years old", age)
        End Sub
    End Class
End Namespace

Namespace December_19th
    Class Person
        Protected age As Integer

        Public Sub Greet()
            Console.WriteLine("Hello")
        End Sub

        Public Sub SetAge(ByVal n As Integer)
            age = n
        End Sub
    End Class
End Namespace