Convertir les monnaies avec un taux modifiable

Soyez le premier à donner votre avis sur cette source.

Vue 4 627 fois - Téléchargée 335 fois

Description

C un simple programme que g fait pour apprendre VB6 car ca fait 6 mois que j'apprend,je fais aussi des programmes de math mais bon comme je ne connais pas encore bien VB et que j'apprends avec les sources de ce site.
Merci de m'aider et d'être indulgent envers moi
MERCI ENCORE
enfin voila le code dans le fichier ZIP

Source / Exemple :


Private Sub cmdExit_Click()
Unload Me
End
End Sub

Private Sub cmdEffacer_Click()
Text1.Text = "" 'efface :-)
Text2.Text = ""
End Sub

Private Sub cmdInverse_Click()
Text3.Text = Round(1 / Text3.Text, 14)  'pour calculé l'inverse du taux
End Sub

Private Sub Form_Load()
Text3.Text = 40.3399
Option1.Value = True
End Sub

Private Sub mnuAbout_Click()
Unload Me
frmAbout.Show
End Sub

Private Sub mnuExit_Click()
Unload Me
End
End Sub

Private Sub Text3_Change()
Text3.Text = Round(Text3.Text, 14)  'juste pour ne pas avoir des exposants négatifs
End Sub

Private Sub Timer1_Timer()
If Text3.Text <> "" Then    'si on ne met rien dans le text pour éviter des erreurs
    If Option1.Value = True And Text1.Text <> "" Then
        Text2.Text = Round(Text1.Text * Text3.Text, 2)  'pour ne pas avoir de très grande virgule
    End If
    If Text1.Text = "" Then
    Text2.Text = ""
    End If
End If
End Sub

Codes Sources

A voir également

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.