ayuda en proyecto

[elizabeth1]

Hola chic@s necesito de su ayuda por que soy novata en visual basic"estoy en curso basico", estoy creando un proyecto de facturación
tengo problemas en lo siguiente:
cree un list box en el cual con un boton ingresa el costo del producto seleccionado
de un combobox"en el mismo agregue una lista de productos":
- Pongo el caso que selecciono un producto "x" al hacer click en un comandbuton adhiere el precio en el lisbox"en texto" digamos "50" euros, agregando varios productos con sus respectivos precios, como hago para sumar el contenido del lisbox.text mostrandolo en una label y luego poder sacar su x% del total en otra label usando otro comandbuton para ello
me olvidaba y que tenga dos decimales "50.00"

Agradeciendo de antemano su cordial ayuda
usando visual basic 6

[Avellaneda]

Iniciado por elizabeth1

Hola chic@s necesito de su ayuda por que soy novata en visual basic"estoy en curso basico", estoy creando un proyecto de facturación
tengo problemas en lo siguiente:
cree un list box en el cual con un boton ingresa el costo del producto seleccionado
de un combobox"en el mismo agregue una lista de productos":
- Pongo el caso que selecciono un producto "x" al hacer click en un comandbuton adhiere el precio en el lisbox"en texto" digamos "50" euros, agregando varios productos con sus respectivos precios, como hago para sumar el contenido del lisbox.text mostrandolo en una label y luego poder sacar su x% del total en otra label usando otro comandbuton para ello
me olvidaba y que tenga dos decimales "50.00"

Agradeciendo de antemano su cordial ayuda
usando visual basic 6

Hola, supongo que los datos salen de una tabla llamada 'productos'.
Lo primero sería crear un recordset con el producto seleccionado, listar los registros en un control ListBox y después sumarlos.

Mira si te sirve este código

Código:

Private Sub Command1_Click()
rs.Open "SELECT precio FROM productos WHERE producto = '" & Combo1.Text & "'", conexion
Do Until rs.EOF
    List1.AddItem rs(0)
    rs.MoveNext
Loop
Dim suma As Double
For i = 0 To List1.ListCount - 1
    List1.ListIndex = i
    suma = suma + Val(List1.Text)
Next i
Label1.Caption = Format(suma, "#,##0.00")
' no sé muy bien a qué te refieres con 'sacar su x% del total' ¿el promedio?
Label2.Caption = Format(suma / List1.ListCount, "#,##0.00")
End Sub

[elizabeth1]

Iniciado por Avellaneda

Hola, supongo que los datos salen de una tabla llamada 'productos'.
Lo primero sería crear un recordset con el producto seleccionado, listar los registros en un control ListBox y después sumarlos.

Mira si te sirve este código

Código:

Private Sub Command1_Click()
rs.Open "SELECT precio FROM productos WHERE producto = '" & Combo1.Text & "'", conexion
Do Until rs.EOF
    List1.AddItem rs(0)
    rs.MoveNext
Loop
Dim suma As Double
For i = 0 To List1.ListCount - 1
    List1.ListIndex = i
    suma = suma + Val(List1.Text)
Next i
Label1.Caption = Format(suma, "#,##0.00")
' no sé muy bien a qué te refieres con 'sacar su x% del total' ¿el promedio?
Label2.Caption = Format(suma / List1.ListCount, "#,##0.00")
End Sub

muchisimas gracias por la pronta respuesta y la ayuda pero ay cosas que no entiendo rs.open "para que sirve" estoy en la tercera semana de visual y no me enseñaron ese comando
esto es una parte de lo que planeo hacer lo subi mi proyecto aqui

http://rapidshare.com/files/162451434/TRABAJO.rar.html

como ves en la imagen ay un combobox con los productos y cada producto tiene su precio el que se muestra en el text1.
doy click en adherir y agrega en los listbox.
Asi es mi proyecto

Private Sub Combo1_Click()
Select Case Combo1.Text
Case "CUADERNO"
Text1.Text = "7.10"
Case "LAPICERO"
Text1.Text = "3.50"
Case "REGLA"
Text1.Text = "2.8"
Case "PERFORADOR"
Text1.Text = "5.50"
Case "TARJADOR"
Text1.Text = "2.10"

End Select
End Sub

Private Sub Command1_Click()
List1.AddItem (Text1.Text)
List2.AddItem (Combo1.Text)
End Sub

como puedo lograr que sume la list2, digamos adheri tres productos"pueden ser mas o menos" con su respectivo precio y dando click que sume la list2 y se muestre en label1.caption y luego el % en label4 y la suma de los dos label1+label4 se muestre en label6.caption
Disculpa por confundirte o no dejarme entender y esperando que me comprendas y me des una ayudita en esto Gracias

[David]

Hola, es que como no especificaste muy bien de qué se trataba, Avellaneda dedujo que se trataba de obtener los datos de una base de datos (para eso sirve el Open del Recordset).

En este caso, te puede servir la segunda parte de su código. Algo así:

Código vb:

Dim suma As Double
For i = 0 To List2.ListCount - 1
    suma = suma + Val(List2.List(List2.ListIndex))
Next i
Label1.Caption = Format(suma, "#,##0.00") 'Para dar formato a la suma
Label2.Caption = Format(suma * 0.13, "#,##0.00") 'Para obtener el 13% y formatearlo
 

[elizabeth1]

Gracias por responder pronto y hacerme entender para que sirve el open recordset y perdonen por no dejarme entender
Sabes ise lo que me mensionas pero no logra sumar lo ise asi

Private Sub Command2_Click()
Dim suma As Double
For i = 0 To List1ListCount - 1
suma = suma + Val(List1.List(List1.ListIndex))
Next i
Label1.Caption = Format(suma, "#,##0.00")
Label4.Caption = Format(suma * 0.13, "#,##0.00")

End Sub
lo modifique porque era el list1 el que debemos sumar ay se encuentra el precio

Que hago mal q no logro que funcione

[David]

Es que List2 parece ser entonces el que usas para poner los nombres, lo que debes sumar es la lista que tiene los precios, o sea List1.

[Avellaneda]

Iniciado por elizabeth1

Gracias por responder pronto y hacerme entender para que sirve el open recordset y perdonen por no dejarme entender
Sabes ise lo que me mensionas pero no logra sumar lo ise asi

Que hago mal q no logro que funcione

Añade este código a tu proyecto

Código:

Private Sub Command2_Click()
' este es el botón "GENERAR TOTAL"
Dim suma As Double
For i = 0 To List1.ListCount - 1
    List1.ListIndex = i
    suma = suma + Val(List1.Text)
Next i
Label1.Caption = Format(suma, "#,##0.00")
Label4.Caption = Format(suma * 0.13, "#,##0.00")
Label6.Caption = Format(suma + (suma * 0.13), "#,##0.00")
End Sub

[David]

Error de dedo mío . Prueba así:

Código vb:

Dim suma As Double
Dim i As Integer
For i = 0 To List1.ListCount - 1
      suma = suma + Val(List1.List(i))
Next i
Label1.Caption = Format(suma, "#,##0.00")
Label2.Caption = Format(suma * 0.13, "#,##0.00")
 

[AlexisLAG]

elizabeth deberias cambiarl list2 por list1, como te detallo :

Private Sub Command2_Click()

Dim suma As Double
For i = 0 To List1.ListCount - 1
suma = suma + Val(List1.List(i))
Next i
Label1.Caption = Format(suma, "#,##0.00")
Label4.Caption = Format(suma * 0.13, "#,##0.00")

End Sub

[elizabeth1]

Miles de gracias ...
Avellaneda
David el Grande
AlexisLAG

gracias por difundir sus conocimientos conmigo sin su ayuda no habria podido lograrlo espero contribuir con mis conocimientos como vaya aprendiendo en el foro y siempre contar con su ayuda.
... estoy emocionada "es mi primer proyecto aun falta bastante y lo mas importante ya esta gracias a ustedes"