Tengo problemas para sumar text?

[THELI]

el problema que tengo es el siguiente no suma los text ya probe con - / * y todo me sale menor el de sumar lo que hace es los numeros1 y 2 que pongo los pone en el label ya probe con text pero tampoco que puedo hacer cuando saca el resultado en el label presenta los numeros que teclee

1
4

14 no suma nadamas junta

dim numero1,numero2 as intenger
dim resultado as intenger
numero1=text1.text
numero2=text2.text
resultado=numero1+numero
label1=resultado

me faltara una funcion que activar algo esta mal le agrego algo que hago porfavor ayudenme

[ReViJa]

Lo que no entiendo es como te llega a funcionar

Mira, este es tu code:

Código:

dim numero1,numero2 as intenger
dim resultado as intenger
numero1=text1.text
numero2=text2.text
resultado=numero1+numero
label1=resultado

Debería de quedar:

Código:

Dim numero1, numero2 As Integer
Dim resultado As Integer
numero1 = Text1.Text
numero2 = Text2.Text
resultado = numero1 + numero2
Label1 = resultado

Saludos

[writis]

estoy corrigiendo

[writis]

hola

el problema se presenta generalmente en las sumas por lo tanto lo que yo hago es lo siguiente:

dim a, b, c as integer
a = text1.text
b = text2.text
c = (a/1)+(b/1)


ya sabemos que a dividido en 1 = a pero el programa reconoce la secuencia como una suma de lo contrario te coloca el valor de a seguido del valor de b en vez de sumarlos. saludos

writis

[seba123neo]

Hola,primero fijate como delaras las variables,si declaras dim a, b, c as integer,solo estas decalrando la "a" como integer y las otra dos como Variant,a mi me funciono asi:

Código:

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Text1
b = Text2
c = (a / 1) + (b / 1)
MsgBox c
End Sub

saludos.

[writis]

Iniciado por seba123neo

Hola,primero fijate como delaras las variables,si declaras dim a, b, c as integer,solo estas decalrando la "a" como integer y las otra dos como Variant,a mi me funciono asi:

Código:

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Text1
b = Text2
c = (a / 1) + (b / 1)
MsgBox c
End Sub

saludos.

Gracias por la aclaracion seba123neo quien aprende cada dia algo nuevo, no ha perdido ese dia. (writis)

[MazatanR]

aver si te entedi bien sobre la suma de los numeros te dejo ese codiog si no te sirve ps desechalo

codigo
Private Sub Command1_Click()
dim num1, num2, resultado
num1=val( text1.text)
num2=val(text2.text)
resultado = num1 + num2
msgbox = resultado