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
le falta el botoncito maestro
Yo de ti envez de utilizar un textbox utilizaria un list.
:-\ 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 ;)
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..
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
hola
ya encontre como sumarlos... en vez de hacer esto..
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...
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..
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
Usa un randomize que genere numeros al azar