CONVERTIR LES MONNAIES AVEC UN TAUX MODIFIABLE

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

Télécharger le zip