como puedo sumar esto???

[Belial & Grimoire]

hola

espero no molestar tanto... pero alguien me podria decir como puedo sumar esto...

lo que pasa es que quisiera poder sumar los numeros que estan en la caja de texto asi como estan... y que en la otra caja de texto me apareciera el resultado..  pero necesito que lo haga con diferentes numeros y con diferentes cantidades... creo que a eso se le llama dinamico o algo asi...



espero me puedan ayudar

gracias 

[ActiveSheet]

le falta el botoncito maestro

[Karcrack]

Yo de ti envez de utilizar un textbox utilizaria un list.

[sanosiris]

  nose porque te complicas la vida de esa forma men... 

Nose si esto te sirva...

http://ica-virtual.uni.cc/ica/crear-calculadora-cero/

http://ica-virtual.uni.cc/ica/crear-una-calculadora/

Hace un tiempo atraz a mi me sirvio 

[Belial & Grimoire]

hola

gracias por la respuesta... pero tengo una duda.. lo voy a plantear completo para ver si me pueden ayudar... lo que pasa es que esto haciendo un programa de base de datos ya que nunca lo habia hecho y keria intentar hacer uno para aprender... el programa habre los archivos en data grid... y al seleccionarlos todos lo que keria era sumarlos.. pero no se como... y esto es lo unico que me hace falta para terminarlo...

este es el codigo que tengo... no es muy bueno.. pero estoy empezando..

Código [Seleccionar] Expandir


Private Sub Adodc1_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean)
fCancelDisplay = True
End Sub


Private Sub Command2_Click()

sBase = Label3.Caption

   
  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
    Adodc1.CommandType = adCmdTable
   Select Case Combo1.Text
   Case "ABRIL"
   Adodc1.RecordSource = Combo1.Text
   Adodc1.Refresh
   Case "MAYO"
   Adodc1.RecordSource = Combo1.Text
   Adodc1.Refresh
   End Select

    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1.Recordset


End Sub


Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
Dim Datos As String

    For i = 0 To DataGrid1.ApproxCount - 1

        Datos = CStr(Datos & DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(i)) & vbNewLine)
        DoEvents
    Next

    Text2.Text = Datos
End Sub


Private Sub mnuAbrir_Click()
On Error GoTo err
cmd.Filter = "Base de datos (*.mdb)|*.mdb"
cmd.ShowOpen
sBase = cmd.FileName
Label3.Caption = cmd.FileName
   
  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
    Adodc1.CommandType = adCmdTable
   Select Case Combo1.Text
   Case "ABRIL"
   Adodc1.RecordSource = Combo1.Text
   Adodc1.Refresh
   Case "MAYO"
   Adodc1.RecordSource = Combo1.Text
   Adodc1.Refresh
   End Select

    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1.Recordset

Exit Sub
err:
End Sub

Private Sub mnusalir_Click()
End
End Sub







este es un ejemplo que tengo para crear el programa.... y si se fijan en la imagen al seleccionar todos... en la caja de textos de abajo, logro colocar todos lo numero, pero no se como sumarlos... y eso es lo unico que me hace falta para terminarlo... alguien sabe alguna forma de sumar todo eso...

por favor ayudenme.. eso es lo unco que me falta

espero su ayuda

gracias 

[Belial & Grimoire]

hola

ya encontre como sumarlos... en vez de hacer esto..

Código [Seleccionar] Expandir


Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
Dim Datos As String

    For i = 0 To DataGrid1.ApproxCount - 1

        Datos = CStr(Datos & DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(i)) & vbNewLine)
        DoEvents
    Next

    Text2.Text = Datos
End Sub



puedo hacer esto...

Código [Seleccionar] Expandir


Datos = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(0)))
datos2 = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(1)))

Text2.Text = Datos + datos2


y con esto ya logre sumarlos.. pero alguien sabe como puedo hacer que esto...

Datos = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(0)))
datos2 = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(1)))

se genere automaticamente .. y esto tambien..

Text2.Text = Datos + datos2

porke hacerlo manualmente seria demasiado codigo... tendria que hacer esto..

Código [Seleccionar] Expandir


Datos = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(0)))
datos2 = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(1)))
datos3 = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(2)))
datos4 = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(3)))
Datos5 = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(4)))
Datos6 = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(5)))
Datos7 = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(6)))

etc...

Text2.Text = Datos + datos2 + datos3 + datos4 + Datos5 + Datos6 + Datos7... etc




hay alguna funcion de for i ... que sea parecida a la de C++ donde si coloco

for ( int i=0; i<40; i++)

se genera automaticamente alguna funcion las 40 veces y resguarda la informacion ingresada...

lo que pasa es que ahora quiero hacer algun codigo para no tener que colocar tanto codigo repetitivo en el programa como lo mostre arriba.. sino algun codigo que me genere eso automaticamente..

espero alguien sepa

espero su respuesta 

[matoreggae]

Usa un randomize que genere numeros al azar