Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: E N T E R en Julio 14, 2013, 11:45:20 am
-
Un pequeño juego que hice en vb6, practicamente lo que hace es asustar ;D ;D
SCREEN
(http://www.mediafire.com/convkey/47c8/ro2xrhvvnj8s29e4g.jpg) (http://www.mediafire.com/view/ro2xrhvvnj8s29e/3.png)
(http://www.mediafire.com/convkey/4ef5/b76fw1h7vgm92uq4g.jpg) (http://www.mediafire.com/view/b76fw1h7vgm92uq/2.png)
(http://www.mediafire.com/convkey/6ffa/nyqwi2gohrzmdof4g.jpg) (http://www.mediafire.com/view/nyqwi2gohrzmdof/1.png)
YOUTUBE
[youtube]http://www.youtube.com/watch?v=TYMGpvLFS4U[/youtube]
LINK SOURCE
http://www.mediafire.com/download/gukfjlhhrtp3gcb/Scare.rar (http://www.mediafire.com/download/gukfjlhhrtp3gcb/Scare.rar)
-
no me funciona a mi!
-
Que es lo que no funciona... esta ahi el source te da algun error?
-
Hola ya lo tenia visto como el exorcista en la web, te tiro una sugerencia
Private Sub Picture19_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call SCARE("3", False)
picScare.Visible = True
DoEvents
PlaySound App.Path & "\zombie.wav", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub
una es usar el Picture19 ya que es donde hay mas tencion y otra es poner un Doevents para que se muestre la imagen, sino sale el grito y después se muestra la imagen.
te iba a sugerir que se podría subir el volumen del sistema, pero creo que con window7 ya no se si se puede manejar el control total.
Saludos
-
Si si tenia ese problema Leandro no sabia como solucionar, también no le quería poner un mediaplyer para que lea mp3 ya se iva poner largo ::), Me llego no mas la idea de hacer el jueguito como he visto por ahí.
Resubi el source con el DoEvents
Saludos