Convertisseur euros/francs pour et par un debutant

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 445 fois - Téléchargée 40 fois

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

Ajouter un commentaire

Commentaires

Signaler Commenter la réponse de cs_jeremyM
cs_jeremyM
Messages postés
85
Date d'inscription
dimanche 10 mars 2002
Statut
Membre
Dernière intervention
17 novembre 2002
 -
je pense que nix devrais rajoutter la catégorie convertisseur francs/euros, c au moins le 10e que je vois dans les sources.

A part cette remarque ( ma fois sans interet ), j'aurais aussi deux ou trois conseils, notamment remplacé tes inputbox par deux textbox
ensuite tu pourrais faire le convertissage ( chais pas si sa existe ce mot )
en temps réel
et enfin rajouter des command pour faire comme une calculette.
sa te permettrait de découvrir plus de fonction de VB et tu pourrais progresser
A+
Signaler Commenter la réponse de cs_shivan
cs_shivan
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003
 -
bon keskon en fait celui la... on le brulle sur un bucher, on le lapide avec des cailloux ?
serieux, essayez de faire marcher vos meninges... c vraiment lourd...
apres yen a ki se pleignent de se faire décendre avec les comm... fo pas chercher !

$hîv@n
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)