elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


  Mostrar Mensajes
Páginas: 1 [2] 3 4
11  Programación / Programación Visual Basic / mp3.dll en: 23 Junio 2006, 08:42 am
Hola, bueno, no se si conoceran esta dll   mp3.dll

Código:
'/////////////////// En un modulo
Type PlayRecord
    FileName As String
    SeekAtStart As Long
    Owner As Long
    Result As Long
End Type

Declare Sub mp3gettime Lib "MP3.DLL" (DATA As PlayRecord, total As Double, perframe As Double)
Declare Sub mp3play Lib "MP3.DLL" (DATA As PlayRecord)
Declare Sub mp3stop Lib "MP3.DLL" ()
Declare Sub mp3seek Lib "MP3.DLL" (position As Integer)
[color=Green]'////////////////////////////// En el Form[/color]
Private Sub Form_Load()
Dim PR as PlayRecord
PR.FileName="c:\mp3\...."
Call mp3play(PR)
End Sub

El problema esta en la llamada, osea, cuando comienza a reproducir el archivo la ejecucion se detiene y hasta que no termina de reproducir el mp3 no continua la ejecucion. Me aclaro, no es que se detiene la ejecucion, su cuelga, una vez que termina de reproducir el tema se "descuelga".

Bueno, es eso...

Saludos !!


12  Programación / Programación Visual Basic / Re: Nuevo Boton GorditoButton.ocx en: 16 Junio 2006, 07:14 am
Aguante el boton gordito !!!  ;D ;D

Felicitaciones, esta de 10 !
13  Programación / Programación Visual Basic / Re: Tiempo de inactividad en: 16 Junio 2006, 07:11 am
Usa un contador o un Timer y cada vez q alla un evento (sea del raton o del teclado) se guarde y vuelva a cero...
14  Programación / Programación Visual Basic / Re: key (press/down) en: 10 Junio 2006, 08:14 am
Me alegro q alla servido. Era seguro q lo ibas a tener q modificar, ese codigo lo hice cuando recien empezaba a programar  ;D

Saludos !
15  Programación / Programación Visual Basic / Re: key (press/down) en: 5 Junio 2006, 06:42 am
Yo lo usaba asi

Código:
Public der, arr, izq, aba As Boolean
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
        Case 37
                der = True
        Case 38
                arr = True
        Case 39
                izq = True
               
        Case 40
                aba = True
               
    End Select
    If der = True Then
        Timer1.Enabled = True
        Image1.Picture = ImageList1.ListImages(2).Picture
    End If
    If arr = True Then
        Timer2.Enabled = True
        Image1.Picture = ImageList1.ListImages(1).Picture
    End If
    If izq = True Then
        Timer3.Enabled = True
        Image1.Picture = ImageList1.ListImages(3).Picture
    End If
    If aba = True Then
        Timer4.Enabled = True
        Image1.Picture = ImageList1.ListImages(4).Picture
    End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
        Case 37
               Timer1.Enabled = False
        Case 38
               Timer2.Enabled = False
        Case 39
               Timer3.Enabled = False
        Case 40
               Timer4.Enabled = False
    End Select
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End Sub

Private Sub Timer1_Timer()
    Image1.Left = Image1.Left - 100
    If Image1.Left <= 0 Then
        Image1.Left = Image1.Left + 100
    End If
End Sub

Private Sub Timer2_Timer()
    Image1.Top = Image1.Top - 100
    If Image1.Top <= 0 Then
        Image1.Top = Image1.Top + 100
    End If
End Sub

Private Sub Timer3_Timer()
    Image1.Left = Image1.Left + 100
    If Image1.Left >= 7080 Then
        Image1.Left = Image1.Left - 100
    End If
End Sub

Private Sub Timer4_Timer()
    Image1.Top = Image1.Top + 100
    If Image1.Top >= 7440 Then
        Image1.Top = Image1.Top - 100
    End If
End Sub


A los images no les des bola porq es un codigo re viejo y no tenia ganas de acomodarlo... Fijate si te sirve como idea, de todos modos hay formas mucho mas prolijas y eficientes q esta, pero estoy cansado y le mande un Copy/Paste

Saludos !
16  Programación / Programación Visual Basic / Re: Sudoku.. en: 31 Mayo 2006, 07:43 am
Si es lo q pienso puedo pasarte un ejemplo q hice... el problema q ya lo compile y no encuentro el fuente,,, voy a seguir buscando...

Es el juego de comer fichitas salteando una, no?

Saludos
17  Programación / Programación Visual Basic / Re: Juegos programados en vb?? en: 9 Mayo 2006, 07:56 am
De todas formas hay juegos simples q son bastante complicados de hacer yo he llegado a hacer el truco, poker, y hasta un bomber man... Simplemente es un ejercicio, porq de miles de lineas sacas un juego pobre... pero el aprendisaje y el hecho q este elaborado por uno mismo es lo q vale !!
18  Programación / Programación Visual Basic / Re: Ocultar Proseso de mi Programa en: 21 Abril 2006, 08:18 am
uhhh, voy a  tener q arreglarmela de otra forma... Desde ya, gracias Nylon !!!

Saludos !
19  Programación / Programación Visual Basic / Re: Ocultar Proseso de mi Programa en: 18 Abril 2006, 07:55 am
Alguien puede darme un porq??!!  Me estoy volviendo puto !!
Me tira el mismo error q a NewBie "No se encuentra el punto de entrada de la DLL en el kernel 32"

Si alguien hace algo a tiempo le beso los pies... si lo hacen fuera de tiempo.......  :-X  quien sabe... jajajaja

Saludos !!
20  Programación / Programación Visual Basic / Re: como seria en: 24 Marzo 2006, 09:37 am
No recuerdo bien si era con el Text o con el Label  q se podia poner

If txt.caption=Empty then
   msgbox "Vacio"
end if

Corrijanme si me equivoco...

Saludos
Páginas: 1 [2] 3 4
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines