Programación General > Visual Basic 6.0 e inferiores

 Cambiar Texto

(1/3) > >>

Envenenado:
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:
Revisa el foro antes de postear.

Mira esto:

http://foros.solocodigo.com/index.php?showtopic=19784&hl

http://foros.solocodigo.com/index.php?showtopic=5244&hl

http://foros.solocodigo.com/index.php?showtopic=5421&hl

Envenenado:
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:
mira el comando mid

Toph:
:) 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 ---Option ExplicitDim ini As IntegerDim texto As StringDim a As StringDim lstexto As String Private Sub Command1_Click()lstexto = Emptytexto = Text1.TextFor ini = 1 To Len(texto)   a = Mid(texto, ini, 1)   lstexto = lstexto & UCase(a)   ini = ini + 1   a = Mid(texto, ini, 1)   lstexto = lstexto & LCase(a)Next iniText2.Text = lstextoEnd Sub 
saludos  :hola:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente