SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: stein en Sábado 16 de Junio de 2007, 18:58

Título: Unir 2 Textbox
Publicado por: stein en Sábado 16 de Junio de 2007, 18:58

Bueno antes que nada, disculparme si me expreso mal o demas, pues empeze con VB hace 2 dias.


Lo q deseo hacer es codificar lo siguiente:

En un textbox introduzco un valor 220000

Pues necesito q en otro text box me salga lo siguiente:
1ra cifra<<<< 2
2 da cifra<<<2
cantidad de 0<4

Por lo q 220000 quedaria algo asi como 224

Yo lo hice de la siguiente manera:
con un textbox en el cual solo me pèrmitia poner 2 caracteres (primeras 2 cifras) y en otro la cantidad de numeros despues de las 2 primeras cifras.(las cuales conte con el comando Len)

con lo q me quedaba algo asi:          fede.Text = pico.Text & Len(pico2.Text)


En sintesis, en vez d usar 2 cuadros de texto para las 2 primeras cifras y los 0's, hacerlo todo en uno solo y me lo codifique.

Espero q me puedan ayudar. Muchas Gracias

Título: Re: Unir 2 Textbox
Publicado por: ArKaNtOs en Domingo 17 de Junio de 2007, 07:39

no te entendí nada amigo, lo siento :P deberías ser un poco más claro pero creo que te puedo ayudar en algo creo que lo que deseas es dividir las cadenas en pedazos no?, pues para eso en un solo txt puedes meter toda la cadena completa y puedes saber como se constituyen ciertas parte de la cadena con las funciones mid(), left() y right() investigalas y veras de lo que hablo :D

Título: Re: Unir 2 Textbox
Publicado por: stein en Martes 19 de Junio de 2007, 01:07

Gracias por la respuesta, me ha servido ^^

Edito:
Bueno pues use solamente el Mid, pues para left y right pedia cosas q no entendia, algo de declarar y demas. el programa anduvo bien:

Código: Text

1.  
2. Public Class Form1
3.  
4.     Private Sub pico_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pico.TextChanged
5.         Label4.Text = 0
6.         Label3.Text = 0
7.         Label2.Text = 1
8.  
9.     End Sub
10.  
11.     Private Sub nano_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nano.TextChanged
12.         Label4.Text = 0
13.         Label3.Text = 1
14.         Label2.Text = 0
15.     End Sub
16.  
17.     Private Sub micro_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles micro.TextChanged
18.         Label4.Text = 1
19.         Label3.Text = 0
20.         Label2.Text = 0
21.  
22.     End Sub
23.  
24.     Private Sub dale_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dale.Click
25.         If Label2.Text = 1 Then
26.             nano.Text = pico.Text / 1000
27.             micro.Text = pico.Text / 1000000
28.         Else
29.             If Label3.Text = 1 Then
30.                 pico.Text = nano.Text * 1000
31.                 micro.Text = nano.Text / 1000
32.             Else
33.                 If Label4.Text = 1 Then
34.                     pico.Text = micro.Text * 1000000
35.                     nano.Text = micro.Text * 1000
36.                 Else
37.                 End If
38.             End If
39.         End If
40.         codigo.Text = Mid(pico.Text, 1, 2) & Len(Mid(pico.Text, 3, 10))
41.     End Sub
42.  
43.  
44. End Class
45.  
46.  

Lo que ahora necesitaria es lo siguiente. En el cuadro de codigo.text ingreso un valor 123, y que me lo decodifique en el cuadro pico.text.
Por lo q si pongo 123, en pico.text aparezca 12(000)<3.  las primeras 2 cifras tengo una idea de como hacer para q salgan en el otro cuadro, pero como hago para que al poner un numero, me lo reemplaze por tantos 0 como el numero dice, o sea si pongo 3, q aparezcan tres 0 (3=000) y asi sucesivamente.

Como dije antes, perdon si me expreso mal

Título: Re: Unir 2 Textbox
Publicado por: Toph en Martes 19 de Junio de 2007, 21:01

Cita de: "stein"

pero como hago para que al poner un numero, me lo reemplaze por tantos 0 como el numero dice, o sea si pongo 3, q aparezcan tres 0 (3=000) y asi sucesivamente.

puedes hacer algo asi:

Código: Text

1.  
2. B = Text1.Text ' aqui iria el numero de ceros que necesitas
3. C = 0
4. Text2.Text = &#34;&#34; 'limpias el texto donde vas a poner los ceros
5. For A = 1 To B  ' con un ciclo for que termina en el numero de ceros que necesitas
6. Text2.Text = Text2.Text & C 'aqui agregas los ceros al textbox
7. Next
8.  
9.  

saludos  :hola:

Título: Re: Unir 2 Textbox
Publicado por: stein en Martes 19 de Junio de 2007, 23:02

Gracias por la ayuda, ya lo logre, usando un select case. Como dije mis conocimientos son demasiado basicos asi q... xD