Convertisseur €uro (pour faire plaisir a kelk'un)

Soyez le premier à donner votre avis sur cette source.

Vue 2 304 fois - Téléchargée 145 fois

Description

Command1 : Bouton Quitter;
Command2 : Bouton Copier la valeur en Francs dans le presse papier;
Command3 : Bouton Copier la valeur en €uro dans le presse papier;
Text1 : Boite de texte en Francs
Text2 : Boite de texte en €uros

Source / Exemple :


Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Clipboard.Clear
Clipboard.SetText Text1.Text & " FF"
End Sub

Private Sub Command3_Click()
Clipboard.Clear
Clipboard.SetText Text2.Text & " €"
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
End
End Sub

Private Sub Text1_GotFocus()
If Len(Text1.Text) <> 0 Then
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
End If
End Sub

Private Sub Text2_GotFocus()
If Len(Text2.Text) <> 0 Then
    Text2.SelStart = 0
    Text2.SelLength = Len(Text2.Text)
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
On Error Resume Next 'au cas ou c'est pas une valeur numérique
Text2.Text = Val(Text1.Text & Chr(KeyAscii)) * 6.55957
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
On Error Resume Next 'au cas ou c'est pas une valeur numérique
Text1.Text = Val(Text2.Text & Chr(KeyAscii)) / 6.55957
End Sub

Conclusion :


Voilà grâce à ce SUPER CONVERTISSEUR ULTRA INNOVANT vous pouvez convertir les Francs en €uro et vice versa. Vous pouvez quitter en appuyant sur Echap.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003

ouais mais bon, ce kon leur reproche c de metres des codes de convertisseurs a tout va... et toi... ben c ce ke ta fé... c pas tres fin...
Messages postés
54
Date d'inscription
lundi 3 décembre 2001
Statut
Membre
Dernière intervention
17 septembre 2002

c pour me foutre de la gueule de tous ceux ki font encore des convertisseurs réveillez-vous, je ne suis pas celui ke vous croyez hahahahahaha

keske chui con
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003

dis moi t'es un super comique toi...
ta du te labourer le cerveau pendant des heures pour trouver ta connerie...
Messages postés
50
Date d'inscription
jeudi 31 janvier 2002
Statut
Membre
Dernière intervention
17 octobre 2002

Ouais c la premiere fois ke je voi un convertissuer sur ce site !!
Bravo c vraiment super innovant
put1 t nouveau sur le site ou koi ??
++
Messages postés
31
Date d'inscription
samedi 16 février 2002
Statut
Membre
Dernière intervention
8 octobre 2002

Elle est trop forte ton idée de convertisseur, ou tu l'as eu !!!!!! ;~)

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.