funciones gambas 2

6. Matrícula

Código: Módulo Mmain

PUBLIC SUB Main()

'Instarciar Objetos

DIM matricula AS Alumno

DIM nom AS String

DIM ape AS String


DIM curs AS Integer

DIM secc AS StringDIM fecha2 AS Date

DIM parcial AS Integer

matricula = NEW Alumno

PRINT "Ingrese Nombre:"

INPUT nom

PRINT "Ingrese Curso:"

INPUT curs

PRINT "Ingrese Sección:"

INPUT seccPRINT "Ingrese Fecha Matricula:"

INPUT fecha2

'PRINT fecha2

PRINT "Ingrese Parcial 1:"

INPUT parcial

matricula.ParcialUno(parcial)

PRINT "Ingrese Parcial 2:"

INPUT parcialmatricula.ParcialDos(parcial)

PRINT "Ingrese Parcial 3:"

INPUT parcial

matricula.ParcialTres(parcial)

PRINT "El Promedio Final es....", matricula.PromedioFinal()

PRINT "La Fecha de Matriculaes....", matricula.fechama(fecha2)

matricula.PoneNombre(nom)

matricula.PoneApellido("Peralta")

PRINT "El Nombre completo es....", matricula.NombreCompleto()

END

Clase Alumno

PRIVATEPromedio AS Integer

PRIVATE FechaMatricula AS Date

PRIVATE Nombre AS String

PRIVATE Apellido AS String

PRIVATE parcial1 AS Single

PRIVATE parcial2 AS Single

PRIVATE parcial3 ASSingle


PUBLIC SUB ParcialUno(numero AS Integer)

parcial1 = numero

END


PUBLIC SUB ParcialDos(numero AS Integer)

parcial2 = numero

END


PUBLIC SUB ParcialTres(numero AS Integer)parcial3 = numero

END


PUBLIC FUNCTION PromedioFinal() AS Single

RETURN (parcial1 + parcial2 + parcial3) / 3

END


PUBLIC FUNCTION fechama(fecha AS Date) AS Date

FechaMatricula =fecha

RETURN FechaMatricula

END


PUBLIC SUB PoneNombre(cadena AS String)

Nombre = cadena

END


PUBLIC SUB PoneApellido(cadena AS String)

Apellido = cadena

END


PUBLICFUNCTION NombreCompleto() AS String

RETURN Nombre & "" & Apellido

END

Publicado por CopySt@r en 18:07
1 comentario:

jorge luis padron moreno17 de abril de 2013, 12:04

muy...