• Martes 19 de Noviembre de 2024, 15:35

Autor Tema:  Unir 2 Textbox  (Leído 4546 veces)

stein

  • Nuevo Miembro
  • *
  • Mensajes: 5
    • Ver Perfil
Unir 2 Textbox
« en: Sábado 16 de Junio de 2007, 18:58 »
0
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

ArKaNtOs

  • Miembro de PLATA
  • *****
  • Mensajes: 1253
  • Nacionalidad: mx
    • Ver Perfil
Re: Unir 2 Textbox
« Respuesta #1 en: Domingo 17 de Junio de 2007, 07:39 »
0
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

stein

  • Nuevo Miembro
  • *
  • Mensajes: 5
    • Ver Perfil
Re: Unir 2 Textbox
« Respuesta #2 en: Martes 19 de Junio de 2007, 01:07 »
0
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

Toph

  • Moderador
  • ******
  • Mensajes: 420
  • Nacionalidad: sv
    • Ver Perfil
    • http://www.electronicayotros.blogspot.com/
Re: Unir 2 Textbox
« Respuesta #3 en: Martes 19 de Junio de 2007, 21:01 »
0
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:
Por favor leer esto antes de postear. Gracias
NO alimenten al TROLL y morirá
¿Querés ayudar?, pues doná comida gratis con un simple clic aqui ,sin trucos
photobucket , Google , wine y cutepdf Rock!!!


programacion,c,c++,
Microcontroladores,java,linux,videojuegos,
,.NET,asm,codigo
por favor este 2012 que sea

stein

  • Nuevo Miembro
  • *
  • Mensajes: 5
    • Ver Perfil
Re: Unir 2 Textbox
« Respuesta #4 en: Martes 19 de Junio de 2007, 23:02 »
0
Gracias por la ayuda, ya lo logre, usando un select case. Como dije mis conocimientos son demasiado basicos asi q... xD
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.