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... ;)
Muy buen trabajo ;) Demasiado sencillo pero realmente funcional :)
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
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.
Holaa!!
Pues a mi me lo hace pero muy lento... :(
SaluDOS
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
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
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:
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
es buena idea... yo habia pensado en algo asi pero no sabia como abrir ni como reproducir el archivo :)