Página 1 de 2
(Duda) Leer un textbox, sílaba por sílaba
Publicado: 12 Jul 2009, 20:04
por Xpro
Buenas, bueno tengo una pequeña duda, la cosa és, hacer la tabla entera de las CHR , todo el abecedario, y hacer un sofware, que lea sílaba por sílaba el texbox, y la balla combirtiendo en CHR, ahora bien, como hago para averiguar el número de sílabas escritas en el texbox, luego, me imagino que será un bucle que lea todas las letras en plan:
Next i To text1.numerodesílabas
If text1.text = a Then
Text2.text = Chr(97)
End if
if text1.text = b Then.....
next i
y así con toda la palabra, pero no tengo ni idea de cómo hacer sílaba por sílaba el texbox....
Saludos
PD: Una solución temporal es:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Label1.Caption = Label1.Caption + 1
End Sub
y el label1.caption será el numero de sílabas escritas.. claro que si borras pues ya no funciona, pero como dije, es temporal !
Pero siguo sin saber, como dividir la palabra en ese numero de sílabas
PS2: Solución temporal
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Text1.Text = "a" Then
Text2.Text = "ESCRIBIO A"
End If
If Text1.Text = "b" Then
Text2.Text = "ESCRIBIO B "
End If
End Sub
Saludos
Re: (Duda) Leer un textbox, sílaba por sílaba
Publicado: 12 Jul 2009, 20:21
por criminalkaoz
quieres saber el numero de silabas usa la funcion Len()
:D no entendí muy bien el resto de lo que quieres hacer
si lo explcias mejor te ayudo :B
Re: (Duda) Leer un textbox, sílaba por sílaba
Publicado: 12 Jul 2009, 20:27
por K-0Z
[Enlace externo eliminado para invitados] esto te servira y mucho
Re: (Duda) Leer un textbox, sílaba por sílaba
Publicado: 12 Jul 2009, 21:22
por Xpro
Sanlegas escribió:[Enlace externo eliminado para invitados] esto te servira y mucho
Bien , me hiso de ayuda, ok, con lo de " LEN " puedo saber cuantos caracteres hay en el texbox, ok, pero, como hago ahora, para que lea caracter por caracter,
criminalkaoz escribió:quieres saber el numero de silabas usa la funcion Len()
:D no entendí muy bien el resto de lo que quieres hacer
si lo explcias mejor te ayudo :B
Lo que intento es; 2 texbox, en el texbox1 escribes por ejemplo " ABC " , y el texbox2 te deve responder Chr(97) & Chr(98) & Chr(99).
En principio es una herramienta un poco boba, para uso propio o púbilca si lo desean, la finalidad, es pasar muchas cosas del code de un proyecto, a CHR , o por ejemplo las Strings>Chr, y eso es lo que intento, lo que consegí hasta ahora, es que si escribes una " a" te devuelve su valor en CHR, y borras y escribes y te dá el valor de cualquier letra del abecedario, pero claro tengo que estar escribiendo y borrando, caracter por caracter... y lo que intento es que un simple button, me devuelva el texbox entero yá pasado a CHR
Saludos
Re: (Duda) Leer un textbox, sílaba por sílaba
Publicado: 12 Jul 2009, 21:34
por criminalkaoz
xpro escribió:Sanlegas escribió:[Enlace externo eliminado para invitados] esto te servira y mucho
Bien , me hiso de ayuda, ok, con lo de " LEN " puedo saber cuantos caracteres hay en el texbox, ok, pero, como hago ahora, para que lea caracter por caracter,
criminalkaoz escribió:quieres saber el numero de silabas usa la funcion Len()
:D no entendí muy bien el resto de lo que quieres hacer
si lo explcias mejor te ayudo :B
Lo que intento es; 2 texbox, en el texbox1 escribes por ejemplo " ABC " , y el texbox2 te deve responder Chr(97) & Chr(98) & Chr(99).
En principio es una herramienta un poco boba, para uso propio o púbilca si lo desean, la finalidad, es pasar muchas cosas del code de un proyecto, a CHR , o por ejemplo las Strings>Chr, y eso es lo que intento, lo que consegí hasta ahora, es que si escribes una " a" te devuelve su valor en CHR, y borras y escribes y te dá el valor de cualquier letra del abecedario, pero claro tengo que estar escribiendo y borrando, caracter por caracter... y lo que intento es que un simple button, me devuelva el texbox entero yá pasado a CHR
Saludos
Entonces en simples palabras lo que quieres hacer es una herramienta que pase de un string tipeado en mayuscula a minuscula o no estoy entendiendo bien?
Re: (Duda) Leer un textbox, sílaba por sílaba
Publicado: 12 Jul 2009, 21:41
por criminalkaoz
criminalkaoz escribió:xpro escribió:Sanlegas escribió:[Enlace externo eliminado para invitados] esto te servira y mucho
Bien , me hiso de ayuda, ok, con lo de " LEN " puedo saber cuantos caracteres hay en el texbox, ok, pero, como hago ahora, para que lea caracter por caracter,
criminalkaoz escribió:quieres saber el numero de silabas usa la funcion Len()
:D no entendí muy bien el resto de lo que quieres hacer
si lo explcias mejor te ayudo :B
Lo que intento es; 2 texbox, en el texbox1 escribes por ejemplo " ABC " , y el texbox2 te deve responder Chr(97) & Chr(98) & Chr(99).
En principio es una herramienta un poco boba, para uso propio o púbilca si lo desean, la finalidad, es pasar muchas cosas del code de un proyecto, a CHR , o por ejemplo las Strings>Chr, y eso es lo que intento, lo que consegí hasta ahora, es que si escribes una " a" te devuelve su valor en CHR, y borras y escribes y te dá el valor de cualquier letra del abecedario, pero claro tengo que estar escribiendo y borrando, caracter por caracter... y lo que intento es que un simple button, me devuelva el texbox entero yá pasado a CHR
Saludos
Entonces en simples palabras lo que quieres hacer es una herramienta que pase de un string tipeado en mayuscula a minuscula o no estoy entendiendo bien?
Haber si no es lo de pasar una letra de mayuscula a misculula porque tu pusiste tipeo A
y me devuelve Chr(97) pero el chr 97 es de la a minusula talvez lo mal interpreté por eso xd.
si quieres que te lea el chr de cada una de las letras del texto introducido en el text box
pues puedes hacer un for que le vaya guardando cada letra en un arreglo y luego le suma 1
asi por ejemplo si tipeamos HOLA guardara la h en Arreglo(0) la O en Arreglo(1) y asi sucesivamente. Luego si quieres que te haga el codigo asci de cada uno pues le pasas el valor a una variable "el valor del arreglo en donde se guardo la tecla pulsada" y le haces chr(variable donde guardaste el valor del arreglo).
Espero haberte ayudado y si no es eso lo que querías lo siento.
Saludos
Re: (Duda) Leer un textbox, sílaba por sílaba
Publicado: 12 Jul 2009, 22:03
por Xpro
, sí haber, de momento solo lo aré con minusculas , haber, no lo entendi , haber.... no lo entiendo la verdad, arreglo = Variable() no ? , luego, si le sumo 1 desde el principio, no cojerá la primera sílaba no ?,
Nosé , no lo entendí , lo voy a leer unas veces más haber si lo entiendo
Gracias igual, y saludos
Re: (Duda) Leer un textbox, sílaba por sílaba
Publicado: 12 Jul 2009, 22:04
por K-0Z
deja haber si puedo hacer el programa.
Re: (Duda) Leer un textbox, sílaba por sílaba
Publicado: 12 Jul 2009, 22:15
por Xpro
Sanlegas escribió:deja haber si puedo hacer el programa.
Por si lo vas a intentar, te simplifico una parte:
Sofware escribió:
If Text1.Text = "a" Then
Text2.Text = "Chr(97)"
End If
If Text1.Text = "b" Then
Text2.Text = "Chr(98)"
End If
If Text1.Text = "c" Then
Text2.Text = "Chr(99)"
End If
If Text1.Text = "d" Then
Text2.Text = "Chr(100)"
End If
If Text1.Text = "e" Then
Text2.Text = "Chr(101)"
End If
If Text1.Text = "f" Then
Text2.Text = "Chr(102)"
End If
If Text1.Text = "g" Then
Text2.Text = "Chr(103)"
End If
If Text1.Text = "h" Then
Text2.Text = "Chr(104)"
End If
If Text1.Text = "i" Then
Text2.Text = "Chr(105)"
End If
If Text1.Text = "j" Then
Text2.Text = "Chr(106)"
End If
If Text1.Text = "k" Then
Text2.Text = "Chr(107)"
End If
If Text1.Text = "l" Then
Text2.Text = "Chr(108)"
End If
If Text1.Text = "m" Then
Text2.Text = "Chr(109)"
End If
If Text1.Text = "n" Then
Text2.Text = "Chr(110)"
End If
If Text1.Text = "o" Then
Text2.Text = "Chr(111)"
End If
If Text1.Text = "p" Then
Text2.Text = "Chr(112)"
End If
If Text1.Text = "q" Then
Text2.Text = "Chr(113)"
End If
If Text1.Text = "r" Then
Text2.Text = "Chr(114)"
End If
If Text1.Text = "s" Then
Text2.Text = "Chr(115)"
End If
If Text1.Text = "t" Then
Text2.Text = "chr(116)"
End If
If Text1.Text = "u" Then
Text2.Text = "Chr(117)"
End If
If Text1.Text = "v" Then
Text2.Text = "Chr(118)"
End If
If Text1.Text = "w" Then
Text2.Text = "Chr(119)"
End If
If Text1.Text = "x" Then
Text2.Text = "Chr(120)"
End If
If Text1.Text = "y" Then
Text2.Text = "Chr(121)"
End If
If Text1.Text = "z" Then
Text2.Text = "Chr(122)"
End If
Espero que no se molestesn los moderadores por la gran lista...
Saludos,
Re: (Duda) Leer un textbox, sílaba por sílaba
Publicado: 12 Jul 2009, 22:21
por K-0Z
jajaja nada de eso, ya casi esta listo xD
Re: (Duda) Leer un textbox, sílaba por sílaba
Publicado: 12 Jul 2009, 22:27
por K-0Z
Aqui esta
Re: (Duda) Leer un textbox, sílaba por sílaba
Publicado: 12 Jul 2009, 22:43
por criminalkaoz
Sanlegas escribió:Aqui esta
lo probé y estaba bueno ojala sea lo que xpro quiere
aunque creo que si lo es.
Gracias :D
Re: (Duda) Leer un textbox, sílaba por sílaba
Publicado: 13 Jul 2009, 08:09
por Xpro
Sanlegas escribió:Aqui esta
Perfecto, es lo que buscaba, voy a echarle un ojo al code, gracias tio
Re: (Duda) Leer un textbox, sílaba por sílaba
Publicado: 13 Jul 2009, 10:26
por m3m0_11
te adelantaste sanlegas mierda
salu2
Re: (Duda) Leer un textbox, sílaba por sílaba
Publicado: 13 Jul 2009, 21:23
por K-0Z
m3m0_11 escribió:te adelantaste sanlegas mierda
salu2
eres mas lento que una tortuga