Trabajo Practico Visual Basic.net 2013 -2015

En un Hospital se desea controlar la atención que se brinda a los pacientes en consultas externas. Un paciente puede requerir atención médica en varias especialidades y en una especialidad se atienden muchos pacientes. De cada paciente se conoce su DNI, su nombre, apellidos, fecha nacimiento y su sexo. De cada especialidad se tiene un código, que la identifica, su descripción, precio y la cantidad de médicos de esa especialidad que laboran en consultas externas. Un médico atiende sólo una especialidad, aunque en una especialidad laboran muchos médicos. Un médico atiende a muchos pacientes y un paciente es atendido por varios médicos. De cada médico se sabe su DNI, su nombre, apellidos, el año de su graduación y el grado que tiene como médico (especialista de 1er. grado, de 2do. grado, etc.). Se conoce para un paciente, atendido por un médico, el diagnóstico, fecha de atención y el tratamiento indicado, así como la especialidad en que fue tratado. Se sabe también que, en una especialidad, a un paciente lo atiende un solo médico.

Public Class cPaciente

    Private dnipaciente As String

    Private nompaciente As String

    Private apepaciente As String

    Private fechanacpaciente As Date

    Private sexopaciente As String

    Public Sub setdnipaciente(dni As String)

        dnipaciente = dni

    End Sub

    Public Sub setnompaciente(nom As String)

        nompaciente = nom

    End Sub

    Public Sub setapepaciente(ape As String)

        apepaciente = ape

    End Sub

    Public Sub setfechanacpaciente(fecha As Date)

        fechanacpaciente = fecha

    End Sub

    Public Sub setsexopaciente(sexo As String)

        sexopaciente = sexo

    End Sub

    Public Function getdnipaciente() As String

        Return dnipaciente

    End Function

    Public Function getnompaciente() As String

        Return nompaciente

    End Function

    Public Function getapepaciente() As String

        Return apepaciente

    End Function

    Public Function getfechanacpaciente() As Date

        Return fechanacpaciente

    End Function

    Public Function getsexopaciente() As String

        Return sexopaciente

    End Function

End Class

Solicitar codigo fuente a: 

cgprognet@gmail.com

cgprognet@hotmail.com

Costo del codigo fuente: 80 soles