Tutoriales de Visual Basic

Conversor de monedas en visual
Introducción

Programita que convierte distintos tipos de monedas pero utilizando una función definida por el usuario.

En el formulario agregamos dos etiquetas, dos combobox, dos cajas de texto y un botón (aceptar).
Utilizaremos la función convierte para realizar la conversión de la moneda.



function convierte(numero As Integer) As String
    Dim peso As Integer, euro As Integer, dolarA As Integer, 
dolarC As Integer, libra As Integer
    Dim vec1(4) As Integer
    valor de cada moneda en pesos
    vec1(0) = 1 pesos
    vec1(1) = 15 euro
    vec1(2) = 11 dollar ameri
    vec1(3) = 12 dollar canadi
    vec1(4) = 5 libra
    selec1 = Combo1.ListIndex
    selec2 = Combo2.ListIndex
    
    resul = numero * vec1(selec1)
    convierte = resul / vec1(selec2)
end function


En el botón aceptar:



Private sub Command1_Click()
    if Text1.Text <> "" Then
        Text2.Text = convierte(Text1.Text)
    end If
end sub


En la caja de texto, para validar que solo sean números.



Private sub Text1_KeyPress(KeyAscii As Integer)
    if KeyAscii <> 8 Then                los caracteres
        if KeyAscii < 48 Or KeyAscii > 57 Then
            KeyAscii = 0
        end If
    end If
end sub


Autor: Gamaliel M. DescargarDescargar

Comentarios en "Conversor de monedas en visual"

Table 'programa_programas.t_comentarios' doesn't exist