Imprimir Página - como puedo sumar esto???

Título: como puedo sumar esto???
Publicado por: Belial & Grimoire en 11 Julio 2007, 19:08 pm

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...

(http://img502.imageshack.us/img502/4725/ayudajy7.jpg)

espero me puedan ayudar

gracias ;D

Título: Re: como puedo sumar esto???
Publicado por: ActiveSheet en 13 Julio 2007, 08:26 am

le falta el botoncito maestro

Título: Re: como puedo sumar esto???
Publicado por: Karcrack en 13 Julio 2007, 10:35 am

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

Título: Re: como puedo sumar esto???
Publicado por: sanosiris en 13 Julio 2007, 11:26 am

:-\ nose porque te complicas la vida de esa forma men... :xD

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 ;)

Título: Re: como puedo sumar esto???
Publicado por: Belial & Grimoire en 13 Julio 2007, 19:30 pm

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:

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

(http://img518.imageshack.us/img518/512/yuda2mm2.jpg)

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 ;D

Título: Re: como puedo sumar esto???
Publicado por: Belial & Grimoire en 13 Julio 2007, 20:41 pm

hola

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

Código:

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:

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:

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 ;D

Título: Re: como puedo sumar esto???
Publicado por: matoreggae en 20 Julio 2007, 06:08 am

Usa un randomize que genere numeros al azar

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Belial & Grimoire en 11 Julio 2007, 19:08 pm