Comment faire des convertisseurs de devise
Résolu
martial de vinci
Messages postés
36
Statut
Membre
-
Heliotte Messages postés 1561 Statut Membre -
Heliotte Messages postés 1561 Statut Membre -
Bonjour,
je suis entrain de concevoir un convertisseur de devise ( euro, dollar, live franc et yen).
j'ai utiliser deux combobox pour les listes de devise ( choix de la devise de l'utilisateur et l'autre pour le choix de sa convertion), un textbox pour qu'il entre sa monnaie, un label pour afficher le resultat et deux commandes (sotir et reprendre).
une esquisse de mon code( svp il s'agit la d'une esquisse)
Private Sub Command1_Click()
If Combo1 = "Euro" And Combo2 = "Franc" Then Label4.Caption = Val(Text1.Text) * 454
End Sub
Private Sub Form_Load()
Combo1.AddItem "Euro"
Combo1.AddItem "Franc"
Combo1.AddItem "Dollars"
Combo1.AddItem "live"
Combo1.AddItem "yen"
Combo2.AddItem "Dollars"
Combo2.AddItem "Euro"
Combo2.AddItem "Franc"
Combo2.AddItem "Live"
Combo2.AddItem "Yen"
End Sub
le problème c'est je n'arrive pas a trouver la bonne syntaxe pour traduire command1
merci d'avance pour votre aide et vos commentaires.
je suis entrain de concevoir un convertisseur de devise ( euro, dollar, live franc et yen).
j'ai utiliser deux combobox pour les listes de devise ( choix de la devise de l'utilisateur et l'autre pour le choix de sa convertion), un textbox pour qu'il entre sa monnaie, un label pour afficher le resultat et deux commandes (sotir et reprendre).
une esquisse de mon code( svp il s'agit la d'une esquisse)
Private Sub Command1_Click()
If Combo1 = "Euro" And Combo2 = "Franc" Then Label4.Caption = Val(Text1.Text) * 454
End Sub
Private Sub Form_Load()
Combo1.AddItem "Euro"
Combo1.AddItem "Franc"
Combo1.AddItem "Dollars"
Combo1.AddItem "live"
Combo1.AddItem "yen"
Combo2.AddItem "Dollars"
Combo2.AddItem "Euro"
Combo2.AddItem "Franc"
Combo2.AddItem "Live"
Combo2.AddItem "Yen"
End Sub
le problème c'est je n'arrive pas a trouver la bonne syntaxe pour traduire command1
merci d'avance pour votre aide et vos commentaires.
A voir également:
- Comment faire des convertisseurs de devise
- Convertisseur devise - Télécharger - Banque & Budget
- Convertisseur récupération de texte - Guide
- Convertisseur de note sur 10 - Forum Bureautique
- Clémence souhaite faire calculer automatiquement les prix de 30 produits dans trois devises. elle a déjà saisi une formule de calcul pour le tarif du premier produit dans la première devise. corrigez sa formule afin que recopiée vers le bas puis vers la droite, elle remplisse correctement tout le tableau. - Forum Excel
- Convertir une note sur 10 ✓ - Forum Bureautique
3 réponses
Bonjour martial de vinci,
1° Pouvez-vous spécifier avec quelle version de Visual Basic vous travaillez ! VB 6.0, VB.Net (lequel) ou VBA pour Excel ...
2° le problème c'est je n'arrive pas a trouver la bonne syntaxe pour traduire command1 .. traduire quoi ?
1° Pouvez-vous spécifier avec quelle version de Visual Basic vous travaillez ! VB 6.0, VB.Net (lequel) ou VBA pour Excel ...
2° le problème c'est je n'arrive pas a trouver la bonne syntaxe pour traduire command1 .. traduire quoi ?
Je crois savoir qu'il s'agit du vb 6.0
concernant ton problème , pour recuperer la valeur du combo box qui a été choisie par l'utilisateur , il faut poser tes conditions ainsi
soit pour savoir si l'utilisateur a choisi le premier item tu fais
if combo1.listIndex = 0 and combo2.ListIndex = 0 ' Then
' ici l'utilisateur a choisi le premier item de chaque combo (" euro vers dollars ")
' traitement
End If
if combo1.ListIndex = 0 and combo2.ListIndex = 1 Then
' ici c'est Euro vers Euro
' traitement
End if
.
.
.
.
ainsi de suite
if combo1.ListIndex = 0 and combo2.ListIndex = 3 Then
' ici c'est Euro vers Yen
' traitement
End if
.
.
.
.
if combo1.ListIndex = 3 and combo2.ListIndex = 3 Then
' ici c'est Yen vers Yen
' traitement
End if
ou alors , utilises les select case , mais sa sera sus le même principe
concernant ton problème , pour recuperer la valeur du combo box qui a été choisie par l'utilisateur , il faut poser tes conditions ainsi
soit pour savoir si l'utilisateur a choisi le premier item tu fais
if combo1.listIndex = 0 and combo2.ListIndex = 0 ' Then
' ici l'utilisateur a choisi le premier item de chaque combo (" euro vers dollars ")
' traitement
End If
if combo1.ListIndex = 0 and combo2.ListIndex = 1 Then
' ici c'est Euro vers Euro
' traitement
End if
.
.
.
.
ainsi de suite
if combo1.ListIndex = 0 and combo2.ListIndex = 3 Then
' ici c'est Euro vers Yen
' traitement
End if
.
.
.
.
if combo1.ListIndex = 3 and combo2.ListIndex = 3 Then
' ici c'est Yen vers Yen
' traitement
End if
ou alors , utilises les select case , mais sa sera sus le même principe