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.

Descargar el ejecutable.

Ayuda: En la clase monedas deberemos tener mucho cuidado al programar los procedimientos Get de las propiedades Eur y Pts, ya que como pretendemos la introducción de cantidades por cualquiera de ellas y que se convierta automáticamente a la otra, deberemos calcular y cargar no sólo el valor de a propiedad, sino también el de la variable privada correspondiente:

El método es más sencillo de programar, ya que como nos pasan el factor de conversión de la moneda elegida por el usuario al euro, y esta cantidad ya la tenemos en la clase, el código se reduce a:

En el formulario que creemos como probador de la clase, haremos una instancia a nuestra clase y programaremos la carga de las propiedades en el evento LostFocus de las cajas de texto correspondientes.

Si por ejemplo estamos en el evento LostFocus de la caja de texto asignada a Pts, deberemos programar la carga de la propiedad Pts, y a continuación asignaremos a la caja de texto asignada a Euros, la propiedad Eur, que ya está calculada.

Nota: Cuando asignemos a una propiedad el contenido de una caja de texto, podemos provocar un error, ya que se espera un tipo de dato numérico y se le está asignando uno de tipo alfanumérico. Para evitarlo, usaremos la función CDbl(), que hace la conversión de texto al tipo de dato Double:

MiMoneda.pts = CDbl(Pesetas.Text)

Twitter Meneame Delicious Technorati Digg Facebook