Foros aprenderaprogramar.com

Aprender a programar => C, C++, C#, Java, Visual Basic, HTML, PHP, CSS, Javascript, Ajax, Joomla, MySql y más => Mensaje iniciado por: minombreeslucas en 15 de Agosto 2013, 02:11

Título: extraer caracteres de una cadena con función mid Visual Basic!
Publicado por: minombreeslucas en 15 de Agosto 2013, 02:11
Hola a todos! Mi nombre es Lucas, tengo una duda existencial y no se como resolverla, talvez sea una tontería, igual la ayuda va a ser altamente agradecida, es la siguiente:

Lo que yo quiero hacer:

Yo quiero escribir dos números en un cuadro de texto común, y que el programa ponga cada cifra en un label. Por ejemplo: escribo 10, y pone el 1 en un label y en otro pone el 0.

El Problema:

No se cómo hacerlo, y no se si es posible hacer eso.  :-\

Bueno desde ya les agradezco cualquier ayuda! Saludos!
Título: extraer caracteres en visual basic con mid
Publicado por: Mario R. Rancel en 15 de Agosto 2013, 13:47
Hola Lucas, puedes hacerlo con la función mid que requiere tres parámetros: cadena de la que se extraen los caracteres, posición de inicio, longitud de caracteres a extraer.

Por ejemplo mid ("farmacia", 1, 2) devuelve fa

mid ("farmacia", 4, 3) devuelve mac

mid ("farmacia", 7, 2) devuelve ia

Para lo que tu indicas usando un TextBox1, un Label1, un Label2 y un CommandButton1 el código sería este (aunque puede variar según la versión de Visual Basic que uses):

Código: [Seleccionar]
Private Sub Form_Load()
Text1.Text = ""
Label1 = "Escriba un número de dos dígitos en el textBox"
Label2 = ""
Command1.Caption = "Aceptar"
End Sub


Private Sub Command1_Click()
Label1 = "Primer dígito es " & Mid(Text1.Text, 1, 1)
Label2 = "Segundo dígito es " & Mid(Text1.Text, 2, 1)
End Sub

Saludos
Título: Re:Como hacer esto?...Visual Basic!
Publicado por: minombreeslucas en 15 de Agosto 2013, 15:31
Buenisimo!!! Lo probe y funciono perfecto!! Muchas gracias! :D