Zumbido como el del msn

[vivachapas]

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 

use:
un timer
un commandbutton

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

[GarcíaMan]

Muy buen trabajo Demasiado sencillo pero realmente funcional

[vivachapas]

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

[GarcíaMan]

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.

[Kefren]

Holaa!!

Pues a mi me lo hace pero muy lento...

SaluDOS

[vivachapas]

gracias garcíaman ya lo probare 

Pues a mi me lo hace pero muy lento...

podrias poner:

Private Sub Command1_Click()
Timer1.Interval = 10
End Sub

en vez de 100 poner 10 

[ReViJa]

Con el Interval a 10 va mas rapido pero dura mucho menos, si quereis probad esta modificación del code de vivachapas:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Timer1.Interval = 80
End Sub

Private Sub Timer1_Timer()
If Timer1.Interval Mod 2 = 0 Then
  Form1.Left = Form1.Left - Timer1.Interval
  Form1.Top = Form1.Top + Timer1.Interval
  Beep
Else
  Form1.Left = Form1.Left + Timer1.Interval
  Form1.Top = Form1.Top - Timer1.Interval
  Beep
End If
Timer1.Interval = Timer1.Interval - 1
End Sub

[Kefren]

Gracias!! Los probé y funcionaron los dos!!

SaluDOS

[~~]

En vez de usar el beep del sistema q keda un poko cutre podrias usar la api:

Código [Seleccionar] Expandir

Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Eso lo metes a un modulo y para haerlo funcionar:

Código [Seleccionar] Expandir

iResult = mciExecute("Play c:\windows\ringin.wav")

O la ruta q tu kieras xD
1S4ludo

[vivachapas]

es buena idea... yo habia pensado en algo asi pero no sabia como abrir ni como reproducir el archivo