psicobalance
10 de Julio del 2005

Hola, Necesito realizar una aplicacion en la que se le introduzca un valor que sea entre 0 y 16 mediante un cuadro de texto . Como respuesta, en otro Cuadro de texto aparezca un valor relacionado al numero ingresado en el primer cuadro de texto, Así segun esta tabla:
VALOR INGRESADO| RESULTADOS |
_______________|_______________|
0 1
1 2
2 2
3 3
4 5
5 7
6 9
7 12
8 16
9 18
10 22
11 27
12 34
13 42
14 49
15 59
16 86

Entonces , si ingreso en el cuadro de texto 1 el valor 11, en el segundo cuadro de texto me debe salir el valor 27.

Porfavor, ayudenme, que he buscado en otros foros y no me han dado respuesta. De antemano , gracias.

Pablo
10 de Julio del 2005

ya amigo es muy simple, viendo ke solo son esos 16 numeros debes hacer esto.
obviamente debes tener 2 cajas como tu mismo dijiste y un boton.
en el boton pondras este codigo

Private Sub Command1_Click()
if val(text1.text) = 0 then
Text2.Text = Val(Text1.Text) + 1
end if
End Sub

aca ingresaras el valor al text 1 y se le sumara al text2
este es el ejemplo para cuando text1 = cero
le sume 1
debes hacerlo para los otros 15 con sus respectivos valores
cualkier cosa me preguntas o me agregas a tu msn y te ayudo ok.

Psicobalance
10 de Julio del 2005

Eres muy amable Pablo, Gracias por la ayuda !!!!

Pablo
10 de Julio del 2005

de nada para eso estamos, aunke espero ke no haya sido para una nota en el colegio. jajaja
te sirvio????

psicobalance
10 de Julio del 2005

Private Sub Command1_Click()
JAjaja, No, hace tiempo que salí del colegio, ahora trabajo con niños como Psicopedagogo.

Casi Casi funciona:

if val(text1.text) = 0 then
Text2.Text = Val(Text1.Text) + 1
end if
End Sub

Estoy trabajando Con Visual basic 2003, bueno, el programa se compila sin errores. una vez que arranco la aplicacion y escribo en TextBox1 , en TextBox2 no aparece nada, probé cambiando

if val(text1.text) por if val(TextBox1) , lo mismo con text2.text, por TextBox2, aún así el resultado es el mismo. ¿Que estaré haciendo mal?

josela
10 de Julio del 2005

Muy buenas,
soy nuevo en el foro, pero haber si esto te sirve. Creo que es más rentable y eficiente que ir haciendo el bucle que te han indicado 16 veces

if val(text1.text) = 0 then
Text2.Text = Val(Text1.Text) + 1
end if
End Sub

Aquí va el código. Añade en un Form dos textbox y un commandButton. No les cambies el nombre


Option Explicit
Dim valInicial, valFinal As Integer
\\' el valor del límite superior de los vectores no puede ser una variable
Dim VectorText1(16), vectortext2(16) As Integer

Private Sub Command1_Click()

\\' recorremos el primer vector; lo comparamos con el valor del Text1;
\\' y, así, a través del indice del vector inicial, sabremos el valor
\\' correspondiente al del vector segundo, asignándolo al Text2
Dim i As Integer
For i = valInicial To valFinal
If VectorText1(i) = Val(Text1.Text) Then Text2.Text = Str(vectortext2(i))
Next i

End Sub

Private Sub Form_Load()

\\' para utilizar los límites de los vectores en el resto del formulario
valInicial = 0
valFinal = 16

Dim i As Integer
For i = 0 To 16
VectorText1(i) = i
Next i

vectortext2(0) = 1
vectortext2(1) = 2
vectortext2(2) = 2
vectortext2(3) = 3
vectortext2(4) = 5
vectortext2(5) = 7
vectortext2(6) = 9
vectortext2(7) = 12
vectortext2(8) = 16
vectortext2(9) = 18
vectortext2(10) = 22
vectortext2(11) = 27
vectortext2(12) = 34
vectortext2(13) = 42
vectortext2(14) = 49
vectortext2(15) = 59
vectortext2(16) = 86

End Sub

Que te vaya bien.
Un saludo