• Domingo 22 de Diciembre de 2024, 08:04
« anterior próximo »
Páginas: [1]

Autor Tema:  Cambiar Texto  (Leído 2890 veces)

Envenenado

  • Nuevo Miembro
  • *
  • Mensajes: 12
    • Ver Perfil
Cambiar Texto
« en: Sábado 1 de Abril de 2006, 23:25 »
0
Bueno chicos. Soy medio nuevo con visual basic, y no conozco muy bien la forma de hacer que una cadena de texto cambie, al azar, entre mayusculas y minusculas:

Ej..:  Hola Gente de Solo Codigo! --> hOla gENte dE sOlO cODiGo!

Alguien me da una mano? aunque sea con el codigo de random, cosa de que no todas las letras (Que se van a cambiar una por una) cambien a mayuscula/minuscula, y un codigo que haga eso de pasarlas a mayusculas o minusculas, creo que era ucase y lcase

Gracias!

Makko

  • Miembro MUY activo
  • ***
  • Mensajes: 117
    • Ver Perfil
Re: Cambiar Texto
« Respuesta #1 en: Domingo 2 de Abril de 2006, 00:46 »
0
Saludos.
Makko.

My life is a simple thing that would interest no one. It is a known fact that I was born and that is all that is necessary.

Envenenado

  • Nuevo Miembro
  • *
  • Mensajes: 12
    • Ver Perfil
Re: Cambiar Texto
« Respuesta #2 en: Domingo 2 de Abril de 2006, 14:30 »
0
sinceramente, no hay nada que me sirva posta de ahi.
Osea.. el primer link me deja hacer lo que pido pero al escribir.
mi idea era tenes una form con dos textbox y un command. Entonces en un textbox escribimos el texto (puede ser multilinea) y cuando apretamos el command, el texto del primer textbox pasa al segundo pero transformado.

Probe de todo. Pero me parece que la unica manera es hacerlo como el primer link.


Nose si alguien sabe como hacer para que caracter x caracter valla cambiando al azar entre mayusculas y minusculas hasta que cambie toda la len(textbox).


Gracias

cluster

  • Miembro MUY activo
  • ***
  • Mensajes: 196
    • Ver Perfil
Re: Cambiar Texto
« Respuesta #3 en: Domingo 2 de Abril de 2006, 23:33 »
0
mira el comando mid

Toph

  • Moderador
  • ******
  • Mensajes: 420
  • Nacionalidad: sv
    • Ver Perfil
    • http://www.electronicayotros.blogspot.com/
Re: Cambiar Texto
« Respuesta #4 en: Lunes 3 de Abril de 2006, 01:06 »
0
:) aqui te posteo un programa que te puede servir, se necesitan dos text box y un boton. pruebalo.
por ahorita pone las mayusculas y minusculas en orden, (mas tarde voy a ver si puedo hacer una rutina para hacerlo al azar)
en este programa si pongo la palabra: hola amigos de solo codigo en el text1 al presionar el boton en text2 aparece asi: HoLa aMiGoS De sOlO CoDiGo
tal vez te puede servir de guia

Código: Text
  1. Option Explicit
  2. Dim ini As Integer
  3. Dim texto As String
  4. Dim a As String
  5. Dim lstexto As String
  6.  
  7. Private Sub Command1_Click()
  8. lstexto = Empty
  9. texto = Text1.Text
  10. For ini = 1 To Len(texto)
  11.    a = Mid(texto, ini, 1)
  12.    lstexto = lstexto & UCase(a)
  13.    ini = ini + 1
  14.    a = Mid(texto, ini, 1)
  15.    lstexto = lstexto & LCase(a)
  16. Next ini
  17. Text2.Text = lstexto
  18. End Sub
  19.  

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

Toph

  • Moderador
  • ******
  • Mensajes: 420
  • Nacionalidad: sv
    • Ver Perfil
    • http://www.electronicayotros.blogspot.com/
Re: Cambiar Texto
« Respuesta #5 en: Lunes 3 de Abril de 2006, 02:04 »
0
:P bueno, para hacer la rutina al azar utilice la funcion para sacar numeros aleatorios de visual "RND", si el numero es par pasa a mayuscula si es impar pasa a minuscula, asi introduci en el text1: Hola Amigos, al presionar el boton una vez obtuve holA AmIGos, luego al presionarlo otra vez obtuve HOLA AmIGoS , cada vez diferente :)

siempre igual con dos textbox y un boton

Citar
Option Explicit
Dim ini As Integer
Dim texto As String
Dim a As String
Dim lstexto As String
Dim x As Integer

Private Sub Command1_Click()
lstexto = Empty
texto = Text1.Text
For ini = 1 To Len(texto)
x = Int(Rnd * 4) + 1 'esto generara al azar los numeros
'la rutina Int(Rnd * 4)'genera numeros al azar del 0 al 3
'ese 1 es para que los numeros generados al azar sean del 1 al 4
 a = Mid(texto, ini, 1)
If Val(x) Mod 2 = 0 Then 'esta funcion es para saber si un numero es par
  lstexto = lstexto & UCase(a)
Else
  lstexto = lstexto & LCase(a)
End If
Next ini
Text2.Text = lstexto
End Sub

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

cluster

  • Miembro MUY activo
  • ***
  • Mensajes: 196
    • Ver Perfil
Re: Cambiar Texto
« Respuesta #6 en: Lunes 3 de Abril de 2006, 17:48 »
0
yo le podria un ramdomize despues del for.

Envenenado

  • Nuevo Miembro
  • *
  • Mensajes: 12
    • Ver Perfil
Re: Cambiar Texto
« Respuesta #7 en: Martes 4 de Abril de 2006, 00:48 »
0
Jaja..! Esta barbaro.! Funca de encerio! Muy buen codigo che. =) Te felicito.

Para mi lo unico que le faltaria es un boton "Copiar" para copiar el resultado (Text2.text) ya que lo he intentado y solo consigo que se copie para "el mismo programa" y no para programas externos. Me explico?

Toph

  • Moderador
  • ******
  • Mensajes: 420
  • Nacionalidad: sv
    • Ver Perfil
    • http://www.electronicayotros.blogspot.com/
Re: Cambiar Texto
« Respuesta #8 en: Martes 4 de Abril de 2006, 01:04 »
0
Citar
Para mi lo unico que le faltaria es un boton "Copiar" para copiar el resultado (Text2.text) ya que lo he intentado y solo consigo que se copie para "el mismo programa" y no para programas externos. Me explico?

 :huh: sinceramente no te entiendo, ¿a donde quieres copiar lo que te da en text2.text?   ¿programas externos, como cuales?
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

Envenenado

  • Nuevo Miembro
  • *
  • Mensajes: 12
    • Ver Perfil
Re: Cambiar Texto
« Respuesta #9 en: Martes 4 de Abril de 2006, 02:39 »
0
Pues mira. Yo en el proyecto tengo un command asi:
Código: Text
  1. Private Sub Command1_Click()
  2. Clipboard.SetText (Text1.Text)
  3. End Sub
  4.  

Eso supuestamente deja el text1.text en el clipboard. Pero si luego de hacer clik, te vas nose, a un fotolog, o a escribir una direccion de internet, y pones CTRL+V o PEGAR pega lo que anteriormente tenias asignado al clipboard y si no tenias nada no te pega nada. En definitiva, solo "copia" para la applicacion misma parece.

Alguien sabe un codigo que pueda copiar bien?

Toph

  • Moderador
  • ******
  • Mensajes: 420
  • Nacionalidad: sv
    • Ver Perfil
    • http://www.electronicayotros.blogspot.com/
Re: Cambiar Texto
« Respuesta #10 en: Martes 4 de Abril de 2006, 22:40 »
0
:) a mi me funciona perfecto agregandole la sentencia para limpiar el portapapeles  :comp:


 
Código: Text
  1. Private Sub Command1_Click()
  2.  
  3. Clipboard.Clear                ' Limpia el Portapapeles.
  4. Clipboard.SetText (Text1.Text)
  5.  
  6. End Sub
  7.  

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

Envenenado

  • Nuevo Miembro
  • *
  • Mensajes: 12
    • Ver Perfil
Re: Cambiar Texto
« Respuesta #11 en: Miércoles 5 de Abril de 2006, 02:51 »
0
Ahora funca barbaro.
Muchas gracias!  :hola:
Páginas: [1]
« anterior próximo »