Respuestas

2012-08-11T05:28:18+02:00
 

Yo eh programadoe ste a ver si te sirve ....

Crear una clase que indistintamente convierta pesetas en euros y viceversa, además debe convertir a cualquier moneda, introduciendo su nombre y valor de un euro. Es decir, debe contener dos propiedades y un método. Crear una interface para su utilización.

 clic al formulario  selecciona general----cambio1 public function cambio1(byval valor as double) as double cambio1= eur*valor end function.     (GENERAL)-----EUR PROPRTYGET OPTION EXPLICIT PRIVATE MVARPTS AS DUBLE 'VARIABLE LOCAL PRIVATE MVAREUR AS DUBLE 'VARIABLE LOCAL ---------------------------------------------------------------------------------------------- PUBLIC PROPERTY GET EUR() AS DOUBLE 'SE USA AL RECUPERAR UN VALOR DE UNA PROPIEDAD 'EN LA PARTE DERECHA DE UNA ASIGNACION. 'SYNTAX: DEBUG.PRINT X.EUR   'EUR=MVAREUR MVAREUR=MVARPTS/166.386 EUR=MVARPTS/166.386 END PROPERTY ___________________________________________________________ public property get pts() as double 'SE USA AL RECUPERAR UN VALOR DE UNA PROPIEDAD 'EN LA PARTE DERECHA DE UNA ASIGNACION. 'syntax: debug.print x.pts 'pts=mvarpts mvarpts=mvareur*166.386 pts=mvareur*166.386 end property