Convertisseur francs-euros

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 513 fois - Téléchargée 40 fois

Contenu du snippet

convertisseur (corrigé) écrit sous Microsoft Visual Basic 6.0

Source / Exemple :


Private Sub cmdconvert_Click()
    Dim euro, francs As Integer
    
    If (txteuro.Text <> "") Then
    euro = txteuro.Text
    francs = 0
    Else
    euro = 0
    francs = txtfrancs.Text
    End If
    
    If (euro <> 0) Then
        lblres1 = euro
        lblres2 = euro * 6.55957
    Else
        lblres1 = francs / 6.55957
        lblres2 = francs
    End If
    cmdnew.SetFocus
    
End Sub
Private Sub cmdfin_Click()
    End
End Sub
Private Sub cmdnew_Click()
    If (txteuro.Text <> "") Then
        txteuro.SetFocus
        txteuro.SelStart = 0
        txteuro.SelLength = Len(txteuro.Text)
    Else
        txtfrancs.SetFocus
        txtfrancs.SelStart = 0
        txtfrancs.SelLength = Len(txtfrancs.Text)
    End If
    lblres1 = ""
    lblres2 = ""
End Sub

A voir également

Ajouter un commentaire

Commentaires

soulmanto
Messages postés
16
Date d'inscription
lundi 7 janvier 2002
Statut
Membre
Dernière intervention
18 juillet 2002
-
pour DeAtHCrAsH >je sais qu'il est facile de critiquer, et je demande platement pardon pour mon manque d'intelligence. J'avoue que j'ai peut-être perdu mon temps, mais pas moins que toi. Comme tout le monde j'ai été un newbie, je ne prétends pas avoir la science infuse, mais le convertisseur est une source qui a été usée jusqu'à la corde, et même pour un newbie, il y'a bien d'autres sujets sur lesquels s'exercer. Mais vu ton intelligence, tu dois sans doute le savoir... A propos, je me permets de te faire remarquer que toute personne qui poste des sources ici est exposée à tout style de critiques, bonnes ou mauvaises, et que les mauvaises peuvent aider à progresser parfois plus que les bonnes. J'espère que ton cerveau sera capable d'assimiler cela. Paradoxalement, tu me reproches de perdre mon temps avec des messages stériles, mais le tien n'est pas beaucoup plus didactique. Quant à la connerie, je vois que je n'ai rien à t'apprendre sur le sujet.
cs_shivan
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003
-
si il voulais une source de convertisseur, il avait le choix entre les 50 conv ki sont déja présent sur le site,ct pas la peine kil pose sont code, kil soit bien ou pas...
kan on est nouveau sur un site, on regarde un peu les codes posés avant de poster a tout va... yen a marre des convertisseurs, ca sert plus a rien !
DeAtHCrAsH
Messages postés
2671
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
6 février 2013
1 -
Pfffffffffff .... Vous savez faire autre chose que critiquer ???? Vraiment aucune intelligence ... Si c'est pour dire des conneries vaut mieux se la fermer .... Surtout si c'est pour perdre sont temps inutilement .... Mais apparement vous avez rien de mieux a faire !

Continue a poster les src que tu veux laurent207... Elle seront tjs utile aux newbiez comme aux autres car je ne crois pas que quelqu'un ici ait la science infuse ... Sans quoi il ne serait pas la !
Bonne continuation =)
--==[ DeAtH_-_CrAsH ]==--
soulmanto
Messages postés
16
Date d'inscription
lundi 7 janvier 2002
Statut
Membre
Dernière intervention
18 juillet 2002
-
moi je félicite une telle originalité, 4 mois après l'arrivée de l'euro...

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.