Convertisseur

Commenter

Contenu du snippet

Un petit convertisseur Francs-Euros et Euros-francs, y a juste un petit bug (comme je suis débutant g pas reussi a l'enlever) c ke lorsque l'on rentre aucune valeur, le programme bug...

Source / Exemple : 


'Convertisseur Francs > Euros
Private Sub CmdConvertir_Click()
    Dim Francs As String, Taux As Single, Euros As String
Francs = Text1

    If (Francs = "Entrez une valeur") Then
        Francs = "VOUS DEVEZ ENTRER UNE VALEUR !"
        Text2 = Francs
        Else
        Taux = 6.55957
        Euros = Francs * Taux
        Text2 = Euros
    End If

End Sub
_________________________________________________________________________
'Convertisseur Euros > Francs
Private Sub Command1_Click()
    Dim FF As String, T As Single, Eu As Single
FF = Text3
    If (FF = "Entrez une valeur") Then
        FF = "VOUS DEVEZ ENTRER UNE VALEUR !"
        Text4 = FF
        Else
        T = 6.55957
        Eu = FF / T
        Text4 = Eu
    End If
End Sub

Conclusion :


Programme très léger > 28 ko compilé

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.