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 Membre 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
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
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 25
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
Rejoignez-nous