1 Question: Hay alguna forma parecida al "Play C:\music.mp3" k lo hiciera en bucle? Es para un programa con multiples forms que tengo hecho. De momento he pensado poner el "PLay" en el form de entrada y en vez de cerralo al abrir otro, dejarlo invisible y k un timer volviera a reproducir la cancion cuando se acabe. Pero creo k si hay un comando como el play o parecido seria mucho mas facil, lo hay?
Yo acabo de probarlo con una cancion mp3 y funciona perfectamente. Hay un detalle, cuando pruebo el programa y le doy pa k suene la musica, lo hace, pero la musica no para hasta k no cierras completamente el vb! k raro, no?
Aunque por lo demas, es muy util, gracias por el code
Ahora k se komo se hace os pongo el mio. En verdad yo tengo puesto k el StyleXP me cambie el fondo de pantalla en cada inicio de sesion, asi k mejor os pongo solo lo que tengo hoy:
For j = 1 To iTotalCarac sPalabra = sPalabra + Chr(Int((122 - 97 + 1) * Rnd + 97)) Next j
Pues con una variable aleatoria k diero valores entre 1 o 0, en caso k diera 1 k se ejecute la orden con el chr$. En caso k diera 0 pues k ejecute una orden como la anterior pero sin el chr$. Supongo k algo asi:
Código:
dim R as integer randomize timer R = int(rnd*2) For j = 1 To iTotalCarac if R = 1 then sPalabra = sPalabra + Chr(Int((122 - 97 + 1) * Rnd + 97)) elseif R = 0 then sPalabra = sPalabra + Int((122 - 97 + 1) * Rnd + 97) end if Next j
Podrias generas una variable con random k diera numeros aleatorios entre 1 y (num.caracteres del text), k diera unos cuantos valores y los caracteres correspondientes cambiarlos a letras.
Ej: text = 10 caracteres variable aleatoria te da los valores 2, 5 y 9. Al segundo, quinto y noveno caracter le poner el Chr$(pa pasarlo a letra) y ya esta.