Convertisseur euros/francs pour et par un debutant

Commenter

Contenu du snippet

voici le code source d'un petit (sans dire ridicule convertisseur) je sais c pas le premier c pas le mieux fait (loin de la) il est pas parfait (loin de la) mais il est juste la pour aider les debutants comme moi a avancer pas a pas.Le convertisseur est base sur le principe des msgbox et inputbox. voila j espere que je me ferais pas incendier comme la plus par des gens qui ne "pondent" pas un code juger assez "ambitieux" et "parfait" pour certaines personnes....

Source / Exemple : 


Private Sub eur_Click()
convEuro.BackColor = vbRed
stranswer = InputBox("Quelle est la somme en euros?")
If (stranswer > "0") Then
MsgBox (stranswer * 6.55957)
Else
stranswer = InputBox("Entrez une valeur valide.")
 If (stranswer <= "0") Then
 MsgBox ("Entrez une valeur valide.")
 Else
 MsgBox (stranswer * 6.55957)
 End If
End If
End Sub
Private Sub fr_Click()
convEuro.BackColor = vbBlue
stranswer = InputBox("Quelle est la somme en francs?")
If (stranswer > "0") Then
MsgBox (stranswer / 6.55957)
Else
stranswer = InputBox("Entrez une valeur valide.")
 If (stranswer <= "0") Then
 MsgBox ("Entrez une valeur valide.")
 Else
 MsgBox (stranswer / 6.55957)
 End If
End If
End Sub
Private Sub quit_Click()
End
End Sub

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.

Du même auteur (cs_TetSuo)