Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - c0rrupt_gamer

#31
En serio nadie sabe como solucionar el problema???

Nadie??


#32
Foro Libre / Re: Sus escritorios
14 Octubre 2005, 15:53 PM
 :o :o :o :o :o :o :o :o :o :o

Tienes una extraña aficion por los botones, es broma ;D
#33
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?
#34
CitarLo que si tienes que hacer es cifrar las cadenas.

k cadenas? Yo pensaba mas bien en una contraseña numerica
#35
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 ;)

Saludos
#36
Foro Libre / Re: Sus escritorios
12 Octubre 2005, 15:56 PM
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:


#37
Lastima k no lo hubieras hecho antes ;D
Mu weno el tutorial! Con screens y todo!

saludos

#38
CitarFor 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:


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
#39
CitarsPalabra = sPalabra + Chr(Int((122 - 97 + 1) * Rnd +97))


1 question: si le pones el chr$ a todo solo deberian salir letras, no?

#40
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.