CALCUL DE PRIX

cs_sam469
Messages postés
90
Date d'inscription
mardi 27 décembre 2005
Statut
Membre
Dernière intervention
21 juin 2009
- 6 mars 2006 à 20:57
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
- 7 mars 2006 à 10:27
bonsoir a tous jaimerais savoir comment calculer 2 ou plusieur chiffres dans une form (en vb6) car je fer un ti programme et g besoin par exemple

achat 1 =20$ qui et en listbox1

et

achat 2 =30$ en listbox2

et qui retrancemais le prix dans un textbox

voila mon prbleme je cherche des turoriaux mes je ne trouve pas a se sujet presi (je suis un debutant excuzer moi)

merci d'avance a tous

s@m

ps: jespere mettre bien explique:s

3 réponses

asecher
Messages postés
262
Date d'inscription
lundi 20 octobre 2003
Statut
Membre
Dernière intervention
27 avril 2007
1
6 mars 2006 à 21:23
Ce qui n'est pas mal (en dehors d'essayer de parler français), c'est de regarder chez Microsoft (http://msdn.microsoft.com/library/fre/default.asp?url=/library/FRE/guides/html/vsorireferenceguide.asp) avant de chercher les tutoriaux.

Sinon, un truc du genre :
msgbox str(val(achat_2.Text) * val(achat_1.Text))
devait faire l'affaire.

achat_x est ton objet TextBox
achat_x.Text est la propriété text (contenu) de ton TextBox
mais, c'est du texte.
La fonction Val(achat_x.Text) renvoie la valeur numérique (attention, le séparateur numérique peut jouer des tours)
Et comme msgbox n'accepte que du texte, on transforme le résulta de l'opération avec la fonction str.

J'espère t'avoir aidé.

Alain 31
0
tonylivingston
Messages postés
11
Date d'inscription
mardi 31 décembre 2002
Statut
Membre
Dernière intervention
9 mai 2006

6 mars 2006 à 21:41
tu as tes 2 listbox (listbox1 et listbox2) + un textbox (textbox1)

tu crée deux label nommé label1 et label2



ensuite tu mets ce code dans l'évenement click de tes listbox



Private Sub List1_Click()

Label1 = List1.List(List1.ListIndex)

Text1.Text = (Val(Label1) + Val(Label2))

End Sub



Private Sub List2_Click()

Label2 = List2.List(List2.ListIndex)

Text1.Text = (Val(Label1) + Val(Label2))

End Sub



tu retrouves donc l'addition des lignes selectionnées dans tes deux listbox
0
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
23
7 mars 2006 à 10:27
Salut,



Je reprend le code de tonylivingston, en l'adaptant pour te débarrasser
du signe dollar (s'il se trouve dans la listbox) + adaptations mineures
de code :


Private Sub List1_Click()

Label1.Caption = Replace(List1.List(List1.ListIndex),"$","")

Text1.Text = (Val(Label1.Caption) + Val(Label2.Caption))

End Sub



Private Sub List2_Click()

Label2 = Replace(List2.List(List2.ListIndex),"$","")

Text1.Text = (Val(Label1.Caption) + Val(Label2.Caption))

End Sub




Manu
0