Zumbido como el del msn

Iniciado por vivachapas, 26 Marzo 2007, 23:14 PM

0 Miembros y 1 Visitante están viendo este tema.

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  :P

use:
un timer
un commandbutton

CitarDim 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
Visita mi blog -> The Bit Developer

vivachapas

gracias garcíaman ya lo probare  ;)

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

podrias poner:

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


en vez de 100 poner 10  :P

ReViJa

Con el Interval a 10 va mas rapido pero dura mucho menos, si quereis probad esta modificación del code de vivachapas:
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
Visita mi blog -> The Bit Developer

~~

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

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

Eso lo metes a un modulo y para haerlo funcionar:

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  :)