begin process at 2012 02 11 12:01:20
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

API

 > CONVERTISSEUR FRANCS-EUROS

CONVERTISSEUR FRANCS-EUROS


 Information sur la source

Note :
1 / 10 - par 1 personne
1,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :API Niveau :Débutant Date de création :08/04/2002 Date de mise à jour :08/04/2002 13:30:10 Vu :1 571
Auteur : laurent207

Ecrire un message privé
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

 Description

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

Source

  • 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 
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



 Sources du même auteur

Source avec Zip LIRE UNE BASE DE REGISTRE DISTANTE
Source avec Zip CONVERTISSEUR
Toutes les sources de laurent207

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) .NET DEPENDENCY VIEWER : ARBRE DES DÉPENDANCES D'UN ASSEMBLY... par ShareVB
Source avec Zip Source .NET (Dotnet) UTILITAIRE SKYDRIVE par MasterShadows
Source avec Zip ROTATION RAPIDE D'IMAGE par trex70
Source avec Zip Source avec une capture ENUMERATION DES PORTS TCP ET IDENTIFCATION DU PROCESS (PID) ... par Renfield
Source avec Zip Source avec une capture MOUSE SPEED AND WEIGHT : RETOUR DE FORCE VIRTUEL ! par ScSami
Toutes les sources de la catégorie API

Commentaires et avis

Commentaire de soulmanto le 09/04/2002 10:33:26

moi je félicite une telle originalité, 4 mois après l'arrivée de l'euro...

Commentaire de DeAtHCrAsH le 09/04/2002 13:02:03

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 ]==--

Commentaire de shivan le 09/04/2002 22:54:32

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 !

Commentaire de soulmanto le 10/04/2002 14:30:22

pour DeAtHCrAsH &gt;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.

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Samsung LE26B350 LCD
Entre 359€ et 417€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Beautiful woman in a bikini meditating on the beachPhoto Renewable Energy is Within Reach
Photo Offroad Vehicle on a Remote Beach in Hawaii 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,796 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)