Mostrar mensajes previos
Ordenar por
por Xpro Usa camisa de fuerza
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
Última edición por Xpro el 12 Jul 2009, 20:21, editado 1 vez en total.
Imagen

http://img844.imageshack.us/img844/8088/mujerrara.jpg
http://img715.imageshack.us/img715/5813/tigree.png
http://img830.imageshack.us/img830/6484/camaleon.png
http://img839.imageshack.us/img839/4944/tigrev2.jpg
http://img843.imageshack.us/img843/443/spidermanxn.png
http://www.youtube.com/watch?v=wHYYkciIKE0
por criminalkaoz Sin sí­ntomas
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
por Xpro Usa camisa de fuerza
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
Imagen

http://img844.imageshack.us/img844/8088/mujerrara.jpg
http://img715.imageshack.us/img715/5813/tigree.png
http://img830.imageshack.us/img830/6484/camaleon.png
http://img839.imageshack.us/img839/4944/tigrev2.jpg
http://img843.imageshack.us/img843/443/spidermanxn.png
http://www.youtube.com/watch?v=wHYYkciIKE0
por criminalkaoz Sin sí­ntomas
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?
por criminalkaoz Sin sí­ntomas
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
por Xpro Usa camisa de fuerza
, 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
Imagen

http://img844.imageshack.us/img844/8088/mujerrara.jpg
http://img715.imageshack.us/img715/5813/tigree.png
http://img830.imageshack.us/img830/6484/camaleon.png
http://img839.imageshack.us/img839/4944/tigrev2.jpg
http://img843.imageshack.us/img843/443/spidermanxn.png
http://www.youtube.com/watch?v=wHYYkciIKE0
por Xpro Usa camisa de fuerza
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,
Imagen

http://img844.imageshack.us/img844/8088/mujerrara.jpg
http://img715.imageshack.us/img715/5813/tigree.png
http://img830.imageshack.us/img830/6484/camaleon.png
http://img839.imageshack.us/img839/4944/tigrev2.jpg
http://img843.imageshack.us/img843/443/spidermanxn.png
http://www.youtube.com/watch?v=wHYYkciIKE0
por K-0Z Se conecta desde un manicomio
Aqui esta
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
por Xpro Usa camisa de fuerza
Sanlegas escribió:Aqui esta

Perfecto, es lo que buscaba, voy a echarle un ojo al code, gracias tio
Imagen

http://img844.imageshack.us/img844/8088/mujerrara.jpg
http://img715.imageshack.us/img715/5813/tigree.png
http://img830.imageshack.us/img830/6484/camaleon.png
http://img839.imageshack.us/img839/4944/tigrev2.jpg
http://img843.imageshack.us/img843/443/spidermanxn.png
http://www.youtube.com/watch?v=wHYYkciIKE0
Temas similares
Duda Metasploitable 2 por Goleman en Mensajes Entre Nosotros
Duda Hardware y Linux por Goleman en Dudas y Preguntas
Duda. Whonix-Tails por Junior cr en Dudas y Preguntas
duda con conexión de troyano por Zion-92 en Dudas y Preguntas
Links sobre el tema
Variantes de tema
Responder

Volver a “VB/.NET”