CODIGO DE LA "OPERACION SUMA" LLAMANDO A LA CLASE MEDIANTE FUNCIONES

EJERCICIO DE LAS OPERACIONES SUMA, RESTA, MULTIPLICACION REALIZADO CON FUNCION EN LA CLASE

Nota: Al dentrar en gambas con doble clic, luego clic en:
Nuevo Proyecto, luego Aplicacion de consola escojer el directorio (carpeta) luego siguiente y Programar o Ingresar el codigo. (Programacion).


CODIGO DE INICIO DANDO DOBLE CLIC EN EL MODULO MMain

PUBLIC SUB Main()

DIM operac AS operaciones
DIM num1, num2 AS Integer

operac = NEW operaciones

PRINT "Ingrese primer numero..."
INPUT num1
PRINT "Ingrese segundo numero..."
INPUT num2

operac.asignumero(num1, num2)
operac.sumarestmult(num1, num2)

END

LLAMADA DE LA CLASE DANDO CLIC DERECHO NUEVO Y CLIC EN CLASE

PRIVATE num1 AS Integer
PRIVATE num2 AS Integer

PUBLIC SUB asignumero(nume1 AS Integer, nume2 AS Integer)
num1 = nume1
num2 = nume2

END

PUBLIC FUNCTION sumarestmult(num1 AS Integer, num2 AS Integer)
DIM s1, r1, m1 AS Integer

s1 = num1 + num2
r1 = num1 - num2
m1 = num1 * num2

PRINT "la suma es :", s1
PRINT "la resta es :", r1
PRINT "la Multiplicacion es :", m1

END