Cambio de moneda (visual basic)

Lo que queremos hacer primeramente es convertir cierta cantidad de valor a dolares o euros en este caso lo que queremos convertir son Lempiras a Euros o Lempiras a dolares.

Primero diseñamos el formulario con los siguientes campos:
-Moneda
-cantidad
-total

En moneda vamos a seleccionar por medio de un combobox  si queremos convertir cierto valor a Dolar o Euro.
En la cantidad vamos a ingresar la cantidad de dinero que queremos convertir a Euros o Dolares.
y en el total nos mostrara el resultado.

RECUERDA: todos los formularios deben llevar un titulo en este caso el titulo es: "CAMBIO DE MONEDA"

Una vez Diseñado el formulario deberia verse de este manera:



Y luego damos click en cualquier parte del area Gris del Formulario para poder programar los COMBOBOX.
El codigo seria lo siguiente:

cmbmoneda.AddItem "Dolar"
cmbmoneda.AddItem "Euro"

 osea deberia mostrarse de esta manera
 
Luego nos vamos a el boton de comando o commandbutton de Calcular damos click y ahi programamos el siguiente codigo:
If cmbmoneda = "Dolar" Then
txttotal = txtcantidad * 25
Else
If cmbmoneda = "Euro" Then
txttotal = txtcantidad * 19
End If
End If

El codigo entonces deberia mostrarse asi:



En esta imagen mostramos lo que si en caso en el ComboBOX seleccionamos dolar entonces el programa multiplicara la cantidad de dinero introducida por 25 en este caso que es lo que tiene de valor un Euro
y si seleccionamos Dolares entonces el programa multiplicara la cantidad ingresada de dinero *19 que vale el dolar, el valor del Euro y El dolar depende del billete ya que en honduras el billete que usamos es el lempira el euro quivale a 25 y el dolar al 19 ,en otros paises tanto el euro como el dolar tienen otro valor .

y el en Boton de Comando salir
y solo colocamos la Palabra end

 Tal y como se muestra acontinuacion:



El programa generalmente despues de todo este codigo Debera ejecutarse y mostrarse de esta manera: