Obrir i Tancar la porta del CD-ROM

Publicat per Eliseo en Exemples , Humor , Tutorials el 09 1st, 2009 | 14 respostes

Basant-me en aquest vídeo que vaig veure avui a internet vaig decidir publicar aquest senzill post sobre com fer, mitjançant un programa en visual basic. Net, que la porta del lector de CD s'obri i es tanqui.

Per realitzar l'exemple simplement necessitem un formulari i dos botons (obrir i tancar) com es veu a la imatge:

i el següent codi: 

 Public Class Form1
     Declareu Function mciSendString Lib "winmm.dll" Àlies "mciSendStringA" _
        (ByVal lpCommandString As String, ByVal lpReturnString As String, _
        ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

     Private Sub Button1_Click (ByVal sender As System.Object, ByVal i As System.EventArgs) Handles Button1.Click

         AbrirCDROM ()
     End Sub

     Private Sub Button2_Click (ByVal sender As System.Object, ByVal i As System.EventArgs) Handles Button2.Click
         cerrarCDROM ()
     End Sub

     Public Sub AbrirCDROM ()
         mciSendString ("set CDAudio door open", "", 0, 0)
     End Sub

     Public Sub cerrarCDROM ()
         mciSendString ("set CDAudio door closed", "", 0, 0)
     End Sub

 End Class

Llest! a gaudir i si tens un beu ... a posar el codi dins d'un bucle ia aconseguir una corda.

14 Responses to "Obrir i Tancar la porta del CD-ROM"

  1. Bitacoras.com diu:
    01/09/2009 a les 02:07

    Informació Bitacoras.com ...

    Valora en Bitacoras.com: basant-me en aquest vídeo que vaig veure avui a internet vaig decidir public aquest senzill post sobre com fer, mitjançant un programa en visual basic. Net, que la porta del lector de CD s'obri i es tanqui. Per realitzar l'exemple simple ... ..

    Respondre
  2. ares diu:
    01/09/2009 a les 09:28

    A veure si s'adorm així.
    salutacions

    Respondre
  3. Bitacoras.com diu:
    01/09/2009 a les 10:09

    Informació Bitacoras.com ...

    Valora en Bitacoras.com: basant-me en aquest vídeo que vaig veure avui a internet vaig decidir publicar aquest senzill post sobre com fer, mitjançant un programa en visual basic. Net, que la porta del lector de CD s'obri i es tanqui. Per realitzar l'exemple simple ... ..

    Respondre
  4. M.altm diu:
    02/09/2009 a les 07:38 pm

    hola, em va semblar molt bo el programa, m'agradaria usar-lo en visual basic 2005.
    El pots escriure en aquest llenguatge? moltes gràcies. aquest és el correu al qual pots enviar la resposta, parisparis2@hotmail.es

    Respondre
  5. mustang diu:
    17/09/2009 a les 12:29

    una curiositat el probe en visual net 2005
    no em tira error ni res, però al executar-lo en el botó d'obrir, obre però visual llença un missatge que és el següent:

    A call to PInvoke function 'WindowsApplication1! WindowsApplication1.Form1:: mciSendString' has unbalanced the stack. This is likely because the managed

    error de MDAs .. que significa això?

    gràcies

    Respondre
  6. Efra diu:
    2009.09.18 a les 11:26 pm

    Doncs el probe en vb.net 2005 i tot funciona a la perfecció ... m'agradaria participar amb alguns exemples que jo tinc ...

    Respondre
  7. gustavo diu:
    23/09/2009 a les 02:55 pm

    a mi també em mana el mateix error que mustang, que és el que serà?

    Respondre
  8. cristian garcia diu:
    13/02/2010 a les 6:35 pm

    al principi jo no ho entenia però veient diverses VESES ho vaig poder entendre una mica. però el que si ho entén bé és Otniel

    Respondre
  9. Ismael diu:
    2010.06.01 a les 02:39 pm

    Aquesta bo el programet!

    Respondre
  10. jrchico diu:
    2010.09.12 a les 03:40 pm

    hola amic jo utilitzo aquest codi em funciona a la perfecció:

    Public Class Form1
    Private Declari Function mciSendString Lib "winmm.dll" Àlies "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

    Private Sub Button1_Click (ByVal sender As System.Object, ByVal i As System.EventArgs) Handles a.Click
    AbrirCDROM ()
    a.Enabled = False
    c.Enabled = True
    End Sub

    Private Sub Button2_Click (ByVal sender As System.Object, ByVal i As System.EventArgs) Handles c.Click
    cerrarCDROM ()
    c.Enabled = False
    a.Enabled = True
    End Sub

    Public Sub AbrirCDROM ()
    mciSendString ("set CDAudio door open", "", 0, 0)
    End Sub

    Public Sub cerrarCDROM ()
    mciSendString ("set CDAudio door closed", "", 0, 0)
    End Sub

    Private Sub Button1_Click_1 (ByVal sender As System.Object, ByVal i As System.EventArgs) Handles Button1.Click
    Application.Exit ()
    End Sub

    Private Sub Form1_Load (ByVal sender As System.Object, ByVal i As System.EventArgs) Handles MyBase.Load
    End Sub
    End Class

    Respondre
  11. jrchico diu:
    2010.09.12 a les 03:56 pm

    d'agregar 3 botons i label i una picture
    a
    c
    Button1

    botó a és per obrir el cdrom
    botó c és per tancar
    Button1 és per sortir de la aplicació
    label és opcional
    picture és opcional

    Respondre
  12. Eduardo diu:
    2011.06.05 a les 02:16

    gràcies jrchico

    Respondre

Comentar