Portal    Foro    Buscar    FAQ    Registrarse    Conectarse

Portal » Foro » Gambas » General

Fecha y hora actual: Domingo, 12 May 2024, 21:21 • Todas las horas son UTC + 1 Hora
Ver tema anterior Temas recientes Habilitar biblioteca Descargar tema Versión imprimible Correo a un amigo Ver siguiente tema

Sumar Datos Ingresados En Texbox


Publicar nuevo tema  Responder al tema  		Página 1 de 1
 
 
Sumar Datos Ingresados En Texbox
Autor Mensaje
Desconectado OneErick Sexo: Masculino
Usuario
Usuario
avatar
Registrado: Noviembre 2012
Mensajes: 33
Edad: 32

 
 
Responder citando   Descargar mensaje  
Mensaje Sumar Datos Ingresados En Texbox 
 
Hola a todos tengo una pequeña duda en gambas se podria e imagino que si sumar valores que se ingresen en un campo?

por ejemplo quiero hacer un formulario en el que se puedan ingresar datos normales y unos precios pero que estos precios se vallan sumando al final y que se muestren en un texbox..

espero su pronta ayuda

Gracias

Saludos!
 



 
#1  Domingo, 03 Marzo 2013, 06:20
OneErick - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Desconectado Shell Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53
Ubicación: spain.png Al otro lado de la pantalla
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Sumar Datos Ingresados En Texbox 
 
Hola OneErick.

Quizás lo que preguntas puede tener muchas soluciones.

Supón que las cajas de texto que quieres sumar pertenecen a un grupo, lo que las hace distintas a las demás.
Cada caja de texto tiene un índice, tag.

Private aprecios As New TextBox[]

Public Sub _new()

End

Public Sub Form_Open()
  Dim objeto As Object
  
  For Each objeto In Me.Controls
    If objeto Is TextBox And InStr(objeto.name, "txtConcepto") <> 0 Then
      aprecios.Add(objeto)  'Añade al array aprecios solo lo que sea textbox y contengan como nombre txtConcepto
    Endif
  Next  

End

Public Sub Conceptos_KeyRelease()
  Dim cajatexto As TextBox
  Dim sumatotal As Float
      
  For Each cajatexto In aprecios
        If IsNumber(cajatexto.Text) Then
          sumatotal += CFloat(cajatexto.Text)
        Endif
  Next
  txtTotal.Text = sumatotal
End
 


Aquí tienes el código para que lo veas funcionar.
Ups, funciona con enteros, pero no con números reales.Hay que depurarlo.

Saludos

SumarTextBoxes.tar.gz
Descripción:  
Descargar
Nombre del archivo: SumarTextBoxes.tar.gz
Tamaño: 5.97 KB
Descargado: 54 veces
SumarTextBoxes.tar.gz
Descripción:  
Descargar
Nombre del archivo: SumarTextBoxes.tar.gz
Tamaño: 5.97 KB
Descargado: 54 veces
SumarTextBoxes.tar.gz
Descripción:  
Descargar
Nombre del archivo: SumarTextBoxes.tar.gz
Tamaño: 5.97 KB
Descargado: 54 veces

 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
última edición por Shell el Domingo, 03 Marzo 2013, 10:10; editado 1 vez 
#2  Domingo, 03 Marzo 2013, 09:58
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Desconectado jsbsan Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51
Ubicación: spain.png dos hermanas, sevilla
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Sumar Datos Ingresados En Texbox 
 
Importante:

Si vas a trabajar con numeros, en vez de  los controles  TexBox, usa  controles ValueBox, que si están hechos para trabajar con números, y tienen en cuenta los decimales.

Cada control tiene su función, si usa otro control lo que haces es complicarte la vida.
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
#3  Domingo, 03 Marzo 2013, 11:53
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Desconectado Shell Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53
Ubicación: spain.png Al otro lado de la pantalla
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Sumar Datos Ingresados En Texbox 
 
Y tan cierto es lo que dice Julio,que el código de la aplicación se quedaría así usando Valuebox.

Public Sub Conceptos_KeyPress()
  Dim objeto As Object
  Dim sumatotal As Float

  For Each objeto In Me.Controls      
      If objeto Is ValueBox And InStr(objeto.name, "vlbConceptos") <> 0 Then        
          If Not IsNull(objeto.value) Then
            sumatotal += objeto.value            
          Endif
      Endif        
  Next
 vlbTotal.Value = sumathttp://www.linuxmint.com/start/nadia/otal
End
 


Tienes que cambiar las cajas de textos por valuebox.

Si no fueran valuebox, el código podría haber sido este con cajas de texto:

Public Sub Conceptos_KeyPress()
  Dim objeto As Object
  Dim sumatotal As Float

  For Each objeto In Me.Controls
      If objeto Is TextBox And InStr(objeto.name, "txtConcepto") <> 0 Then        
          If Key.Code = Key.Enter Or Key.Code = Key.Return Or Key.Code = Key.Tab Then  
              If InStr(objeto.Text, ",") <> 0 Then  
                sumatotal += CFloat(Replace(objeto.Text, ",", "."))                
              Else If Not IsNull(Val(objeto.Text)) Then
                sumatotal += CFloat(objeto.Text)                
              Else If InStr(objeto.Text, ".") <> 0 Then  
                sumatotal += CFloat(objeto.Text)                
              Endif            
          Endif
    Endif
    txtTotal.Text = sumatotal
  Next
End
 


La caja de texto tiene un uso diferente o según el comportamiento que quieras que tenga.
ValueBox lo resume.

Ejemplo modificado:


Saludos

SumarValueBoxes.tar.gz
Descripción:  
Descargar
Nombre del archivo: SumarValueBoxes.tar.gz
Tamaño: 5.8 KB
Descargado: 38 veces
SumarValueBoxes.tar.gz
Descripción:  
Descargar
Nombre del archivo: SumarValueBoxes.tar.gz
Tamaño: 5.8 KB
Descargado: 38 veces
SumarValueBoxes.tar.gz
Descripción:  
Descargar
Nombre del archivo: SumarValueBoxes.tar.gz
Tamaño: 5.8 KB
Descargado: 38 veces

 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
última edición por Shell el Domingo, 03 Marzo 2013, 13:02; editado 1 vez 
#4  Domingo, 03 Marzo 2013, 12:28
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Desconectado OneErick Sexo: Masculino
Usuario
Usuario
avatar
Registrado: Noviembre 2012
Mensajes: 33
Edad: 32

 
 
Responder citando   Descargar mensaje  
Mensaje Re: Sumar Datos Ingresados En Texbox 
 
Listo me funciono perfectmente! use los value box y funciona bello

GRACIAS!!
 



 
última edición por OneErick el Domingo, 03 Marzo 2013, 19:29; editado 1 vez 
#5  Domingo, 03 Marzo 2013, 18:17
OneErick - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Texbox + Valuebox angelnu Controles/Librerías/Componentes 0 Jueves, 31 Marzo 2011, 20:10 Ver último mensaje
angelnu
No hay nuevos mensajes Control Texbox ljma Controles/Librerías/Componentes 4 Miercoles, 29 Febrero 2012, 19:19 Ver último mensaje
jguardon
No hay nuevos mensajes Cómo Sumar (+) Datos De Una Consulta A Bd... nore Bases de Datos 4 Lunes, 18 Julio 2016, 16:52 Ver último mensaje
calcena
No hay nuevos mensajes Sumar Valores De Una Base De Datos marlin Bases de Datos 5 Jueves, 02 Marzo 2017, 23:18 Ver último mensaje
v3ctor
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Portal » Foro » Gambas » General

Fecha y hora actual: Domingo, 12 May 2024, 21:21 • Todas las horas son UTC + 1 Hora
Ver tema anterior Temas recientes Habilitar biblioteca Descargar tema Versión imprimible Correo a un amigo Ver siguiente tema

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno

 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario


  

 
cron