Título: Zumbido como el del msn Publicado por: vivachapas en 26 Marzo 2007, 23:14 pm hola... de nuevo aca... como antes sigo con mi "mini chat" cada vez le agrego mas cositas y se me ocurrio hacer una como la q tiene el msn, enviar zumbidos...
bueno... lo hice, y queria compartirlo... la verdad no se si alguien ya lo habra hecho.. calculo q si ya q por lo menos a mi me fue simple :P use: un timer un commandbutton Citar Dim c As Byte Private Sub Command1_Click() Timer1.Interval = 100 End Sub Private Sub Form_Load() c = 0 End Sub Private Sub Timer1_Timer() c = c + 1 Select Case c Case 1 Form1.Left = Form1.Left + 40 Form1.Top = Form1.Top + 65 Beep Case 2 Form1.Left = Form1.Left - 52 Form1.Top = Form1.Top + 69 Beep Case 3 Form1.Left = Form1.Left + 30 Form1.Top = Form1.Top - 32 Beep Case 4 Form1.Left = Form1.Left + 25 Form1.Top = Form1.Top + 50 Beep Case 5 Form1.Left = Form1.Left + 40 Form1.Top = Form1.Top + 65 Beep Case 6 Form1.Left = Form1.Left - 52 Form1.Top = Form1.Top + 69 Beep Case 7 Form1.Left = Form1.Left + 30 Form1.Top = Form1.Top - 32 Beep Case 8 Form1.Left = Form1.Left - 90 Form1.Top = Form1.Top - 130 Beep Timer1.Interval = 0 c = 0 End Select End Sub espero q a alguno le sea ultil... ;) Título: Re: Zumbido como el del msn Publicado por: GarcíaMan en 27 Marzo 2007, 00:14 am Muy buen trabajo ;) Demasiado sencillo pero realmente funcional :)
Título: Re: Zumbido como el del msn Publicado por: vivachapas en 27 Marzo 2007, 00:26 am bueno estuve probando el programa (el chat) y algunas personas me dicen q no se los abre... a si q le pedi a uno una captura de pantalla y bueno... les dejo el error haber si alguno sabe de q puede ser
El componente 'MSWINSCK.OCX' o uno de sus archivos dependientes no está registrado correctamente: falta un archivo o no es válido Título: Re: Zumbido como el del msn Publicado por: GarcíaMan en 27 Marzo 2007, 01:12 am Lo que pasa es que para poder realizar las conexiones del chat tienes que tener la librería MSWINSCK.OCX ya que esta es la librería del Winsock.
Lo que debes de hacer es incluirla en el directorio en el que está el programa, esta librería la encuentras en C:\WINDOWS\System32. Título: Re: Zumbido como el del msn Publicado por: Kefren en 27 Marzo 2007, 01:35 am Holaa!!
Pues a mi me lo hace pero muy lento... :( SaluDOS Título: Re: Zumbido como el del msn Publicado por: vivachapas en 27 Marzo 2007, 02:01 am gracias garcíaman ya lo probare ;)
Citar Pues a mi me lo hace pero muy lento... podrias poner: Citar Private Sub Command1_Click() Timer1.Interval = 10 End Sub en vez de 100 poner 10 :P Título: Re: Zumbido como el del msn Publicado por: ReViJa en 27 Marzo 2007, 02:21 am Con el Interval a 10 va mas rapido pero dura mucho menos, si quereis probad esta modificación del code de vivachapas:
Código: Private Sub Command1_Click() Título: Re: Zumbido como el del msn Publicado por: Kefren en 27 Marzo 2007, 11:21 am Gracias!! Los probé y funcionaron los dos!!
SaluDOS Título: Re: Zumbido como el del msn Publicado por: ~~ en 27 Marzo 2007, 19:47 pm En vez de usar el beep del sistema q keda un poko cutre podrias usar la api:
Código: Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long Eso lo metes a un modulo y para haerlo funcionar: Código: iResult = mciExecute("Play c:\windows\ringin.wav") O la ruta q tu kieras xD 1S4ludo Título: Re: Zumbido como el del msn Publicado por: vivachapas en 27 Marzo 2007, 23:18 pm es buena idea... yo habia pensado en algo asi pero no sabia como abrir ni como reproducir el archivo :)
|