Débutante additonner le prix d'une liste

Question

Je suis &#233;tudiante et j'ai une petite application &#224; faire (sans utiliser une base de donn&#233;es). Je dois calculer le prix total (dans un text box) d'aliments .  Les aliments sont dans un list box.

Voici mon code:


Private Sub form_load()
list1.AddItem "Bananes"
list1.AddItem "Lait"
End Sub


Private Sub CmdCalculerPrix_Click()
Dim bananes As Integer
Dim lait As Integer
Dim Variable3 As Integer



bananes = 10
lait = 2


Variable3 = Val(list1)


Text1.Text = Variable3


End Sub


Mon probl&#232;me et lors du calcul de varialbe3 (comment dois-je dire de calculer le prix des aliments dans ma list1)?

ketaineMim

NHenry · Answer

Je te propose :

{public | private} type TAliment 'Private : accessible uniquement dans le module
    Nom as string

    Prix as {long | single}    'single, est un nb&#224; virgule flottante

End type



Sub Calcul()

    dim Tableau(0 to 1) as TAliment 'd&#233;finit 2 &#233;l&#233;ments dans ton tableau

    Tableau(0).Nom="Bananes"

    Tableau(0).Prix=10

    Tableau(1).Nom="Lait"

    Tableau(1).Prix=2

    

    

dim i as long     

dim j as long

dim Resultat as {long | single}

    for i=0 to ListBox.listcount-1

       for j=lbound(Tableau) to  ubound(Tableau)

            if ListBoc.list(i)=Tableau(j).Nom then

                Resultat=resultat+Tableau(j).prix

                Exit For

            end if

        next

    next

    

    

    Dans Resultat tu a le prix total.


Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)



NH

jpleroisse · Answer

Ou tu modifie simplement ton code comme ceci.

Private Sub form_load()
List1.AddItem "Bananes"
List1.AddItem "Lait"
End Sub


Private Sub CmdCalculerPrix_Click()
Dim bananes As Integer
Dim lait As Integer
Dim Variable3 As Integer



bananes = 10
lait = 2


Variable3 = bananes + lait
Text1.Text = Variable3


End Sub

jpleroisse

cs_CanisLupus · Answer

D&#233;sol&#233;, il y a surement quelquechose que je n'ai pas compris. Ta List1 contient le nom des aliments mais o&#249; se trouvent le nombre d'unit&#233;s et le prix &#224; l'unit&#233; ?

Loup Gris

kat40 · Answer

C'est &#231;a je ne sais pas comment faire pour le prix unitaire.

Kat40

kat40 · Answer

J'ai fait ce que monsieur NHenry me propose et &#231;a ne fonctionne pas on dirait que 

Public type TAliment n'ai pas reconnu ...J'utiliser VB6 c'est peut-&#234;tre le probl&#232;me..

Voici ce que j'ai fait:

[code]

Private} type TAliment     Nom as string
    Prix as long 
End type

Sub Calcul()
    dim Tableau(0 to 1) as TAliment     Tableau(0).Nom="Bananes"
    Tableau(0).Prix=10
    Tableau(1).Nom="Lait"
    Tableau(1).Prix=2
    
    
dim i as long    
dim j as long
dim Resultat as {long | single}
    for i=0 to List1.listcount-1
       for j=lbound(Tableau) to  ubound(Tableau)
          if List1.list(i)=Tableau(j).Nom then
             Resultat=resultat+Tableau(j).prix
             Exit For
          end if
       next
    next

End sub

Y a surement quelque chose que je ne fais pas correctement

ketainemim

Kat40

radcur · Answer

il faut faire soit :

Private type TAliment    

     Nom as string
    Prix as long 
End type


ou

Public type TAliment    

     Nom as string
    Prix as long 
End type

jpleroisse · Answer

Cr&#233;e une base de donn&#233;es Access avec 2 champs Aliments et Prix
Dans le champ Aliments tu mets tes produits( Bananes, Poires ect...) et les prix dans le champ Prix
Dans le fichier Projet / R&#233;f&#233;rences, tu coches Microsoft Activex Data Objects 2.5 Library et Microsoft DAO 3.6 Object Library   (2.0 et 3.51 sous Win98)

Tu place un ListBox, un TextBox  sur ton formulaire.

Lorsque tu s&#233;lectionne un article dans la listBox, le prix s'affiche dans le textBox.

Private Sub Form_Activate()
Dim adoConnection As ADODB.Connection
Dim adoRecordSet As ADODB.Recordset
Set adoConnection = New ADODB.Connection
Set adoRecordSet = New ADODB.Recordset
Dim ConnectionString As String


ConnectionString "Provider Microsoft.Jet.OLEDB.3.51;" & " Data Source = C:\Program files\Microsoft visual studio\vb98\moi.mdb"
adoConnection.Open ConnectionString
adoRecordSet.Open "Lui", adoConnection


Do Until adoRecordSet.EOF
List1.AddItem adoRecordSet!Aliments
List1.ItemData(List1.NewIndex) = adoRecordSet!Prix
adoRecordSet.MoveNext
Loop


adoRecordSet.Close
adoConnection.Close
Set adoConnection = Nothing
Set adoRecordSet = Nothing
End Sub


Private Sub List1_Click()
Dim msg As String
msg = List1.ItemData(List1.ListIndex) & ""
Text1 = msg


End Sub

jpleroisse

Débutante additonner le prix d'une liste

7 réponses

Discussions similaires