 Autor
|
Tema: Problema al sumar 2 numeros en visual basic. (Leído 5,213 veces)
|
El_Marine
 Desconectado
Mensajes: 121
|
Hola,tengo unr problema en visual basic, y es el siguiente, yo tengo 3 campos de texto, ycuando en el command1 le digo que los sume, si en los texts puse 5 5 5, me los suma asi: 555... y no encuentro la manera de que me los sume... este es el codigo: Private Sub Command1_Click()
Text10.Text = Text1.Text + Text2.Text + Text3.Text
End Sub
Private Sub Form_Load()
Dim a As Long
Dim b As Long
Dim c As Long
Dim d As Long
End Sub
Espero sus respuestas,saludos.
|
|
|
|
|
En línea
|
|
|
|
whiskises
Desconectado
Mensajes: 103
|
estas sumando strings, conviertelos a integer o a long y ya esta a=Cint(text1.text)+Cint(text2.text)
text10.Text=a
' Clng(text1.text) para convertir a long
Salu2
|
|
|
|
« Última modificación: 4 Agosto 2006, 15:19 pm por whiskises »
|
En línea
|
|
|
|
El_Marine
Desconectado
Mensajes: 121
|
Me da error en tiempo de ejecucion '13' "No coinciden los tiempos" este es el código que puse: Private Sub Command1_Click()
Text10.Text = Text1.Text + Text2.Text + Text3.Text
End Sub
Private Sub Form_Load()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
a = CInt(Text1.Text) + CInt(Text2.Text)
Text10.Text = a
End Sub |
|
|
|
|
En línea
|
|
|
|
soplo
Ex-Staff
Desconectado
Mensajes: 3.592
Debian rool'z
|
Hola Cint(text1.text) cogerá lo que haya en text1 y lo convertirá a entero. Pero obviamente si no se puede te dará un error. Podía pasar esto si por ejemplo text1="". en este caso cint(text1) es cint("") y eso da error. text1=iif(not isnumeric(text1),0,text1)
text2=iif(not isnumeric(text2),0,text2)
text3=iif(not isnumeric(text3),0,text3)
text10=cint(text1)+cint(text2)+cint(text3) Un saludo |
|
|
|
|
En línea
|
Callar es asentir ¡No te dejes llevar!
|
|
|
whiskises
Desconectado
Mensajes: 103
|
Si lo pones en el load, y tienes en el texto: text1 o vacio ,esta claro que no es un integer, y produce un error . ponlo en el boton Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
a = CInt(Text1.Text) + CInt(Text2.Text)
Text10.Text = a
End Sub
|
|
|
|
|
En línea
|
|
|
|
Hans el Topo
Desconectado
Mensajes: 1.754
"Estoy cansado de no hacer nada"
|
Hola Cint(text1.text) cogerá lo que haya en text1 y lo convertirá a entero. Pero obviamente si no se puede te dará un error. Podía pasar esto si por ejemplo text1="". en este caso cint(text1) es cint("") y eso da error. text1=iif(not isnumeric(text1),0,text1)
text2=iif(not isnumeric(text2),0,text2)
text3=iif(not isnumeric(text3),0,text3)
text10=cint(text1)+cint(text2)+cint(text3) Un saludo puedes usar la funcion val() en vez de cint... pero tiene algunas diferencias
|
|
|
|
|
En línea
|
|
|
|
El_Marine
Desconectado
Mensajes: 121
|
Perfecto! Muchisimas gracías a los 3, Gracias.
PD: para que sirve la funcíon val? y que diferencias tiene?
Saludos.
|
|
|
|
« Última modificación: 4 Agosto 2006, 15:51 pm por El_Marine »
|
En línea
|
|
|
|
|
ReViJa
|
Val() lo que hace es devolver los números contenidos en una cadena.
|
|
|
|
|
En línea
|
|
|
|
Hans el Topo
Desconectado
Mensajes: 1.754
"Estoy cansado de no hacer nada"
|
Val() lo que hace es devolver los números contenidos en una cadena.
val() lo que hace es buscar hasta encontrar cualquier cosa que no sea un número val("123SODOMITA")-> devuelve "123" val("1.23")-> devuelve "1"
|
|
|
|
|
En línea
|
|
|
|
El_Marine
Desconectado
Mensajes: 121
|
Como podria cojer y calcular numeros float? Espero vuestras respuestas,gracías
|
|
|
|
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
Sumar todos los numeros comprendidos entre 1 y 100 (C++)
Programación C/C++
|
Danyel_Casvill
|
2
|
13,685
|
28 Abril 2011, 03:49 am
por Danyel_Casvill
|
|
|
|
Java, sumar los numeros elegidos por el usuario
Java
|
juanhsc
|
5
|
3,127
|
11 Marzo 2015, 19:55 pm
por Usuario Invitado
|
|
|
|
Sumar y multiplicar una serie de números
Programación C/C++
|
SebaC
|
6
|
2,998
|
9 Mayo 2016, 20:26 pm
por geeke
|
|
|
|
sumar numeros en un texto
Programación General
|
daniel7885
|
6
|
4,939
|
22 Septiembre 2016, 18:28 pm
por Eleкtro
|
|
|
|
Sumar números de un .txt en Batch
Scripting
|
rafaeljoseyepez
|
3
|
3,815
|
8 Junio 2020, 06:26 am
por rafaeljoseyepez
|
 |
