Reconocer una incognita en una caja de texto

[oJosLoCos]

Buenas , tengo una duda/problema

Tengo una caja de texto , donde introducir , por ejemplo ( 2 + x )
En otra caja de texto , querria colocar el valor de x , en ese momento y que al pulsar el comandbuton ,  se resolviera lo introducido en la primera caja de texto.

Que forma hay para que visual reconozca en esa caja de texto , la letra X , como el valor que se ha introducido en la otra caja?

Saludos

[fede_cp]

hola, aca hice un mini-code con una idea que se me ocurrio, buscar el caracter x, y reemplazarlo aca va..

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Text2.Text = Replace(Text1.Text, "x", Right(Text3.Text, 1))
Text2.Text = Int(Left(Text1.Text, 1)) + Int(Right(Text3.Text, 1))
End Sub

simplemente 3 textbox y 1 command button.

PD:en un rato posteeo uno mejorado para poner un numero de mayor cifra

saludos

[fede_cp]

midificado, se pueden sumar numeros de mas decimales

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a = Len(Text3.Text)
b = Len(Text1.Text)
Text2.Text = Int(Left(Text1.Text, b - 2)) + Int(Right(Text3.Text, a - 2))
End Sub
:tambien son 3 text box

lo unico para que funciona tiene que ser:

en el text1 : numero+x
y en el text 3 : x=numero

saludos
saludos

[oJosLoCos]

Wow , gracias , no habia caido en eso de sustituir o reemplazar una letra por una cifra.

saludos

[oJosLoCos]

Por cierto , el segundo da error , en la ultima parte .


Insertar Cita


Text2.Text = Int(Left(Text1.Text, b - 2)) + Int(Right(Text3.Text, a - 2))
End Sub


Cuando sustituyo , he aki el codigo

Private Sub cmd_Ecuacion1_Click()
txt_Y.Text = Replace(txt_Y.Text, "x", Right(Txt_X.Text, 1))

He colocado una caja , txt_x a la cual se le introduce un valor cualquiera y mas tarde es reconocido como " x "

Ese valor x , es sustituido en txt_y , que es la segunda caja . Una vez hecho esto me quedaria , si uviera puesto por ejemplo en txt_y antes d epresionar el comandbuton " 2 +  x " y en txt_x uviera puesto 4 , al presionar el primer comandbuton quedaria en txt_y :  " 2 + 4"

Ahora bien , como puedo hacer para que al pulstar otro comandbuton me resuelva esa operacion? Como identificar cada valor ???

[fede_cp]

bueno, como te podras fijar en el ejemplo 2, la verison mejorada, ya no reemplaza la x, ya que podira ser cualquier letra como Y, E, etc.lo que hace es muy facil 

con len, toma la longitud de la cadena:ejemplo:x+11(text1.text) ahi estaria tomando 4 caracteres(x+11)=4 entonces se hace:right(text1.text, len(text1.text) - 2)

en palabras:toma de la derecha desde el text1.text, la cantidad de caracteres del text1.text - 2, el menos dos significa el X= o el X+.
PD:lee bien el segundo code mejorado porque no teira error
saludos