Apertura e chiusura del CD-ROM porta

Pubblicato da Eliseo a esempi , Umorismo , Tutorial il 09 1st, 2009 | 14 risposte

Sulla base di questo video che ho visto oggi su internet ho deciso di pubblicare questo post semplici su come fare, attraverso un programma Visual Basic. NET, che la porta del CD per aprire e chiudere.

Per eseguire l'esempio abbiamo solo bisogno di un formulario e due pulsanti (apertura e chiusura) come mostrato in figura:

e il seguente codice: 

 Public Class Form1
     Declare Function mciSendString Lib "winmm.dll" Alias ​​"mciSendString" _
        (LpCommandString ByVal As String, ByVal lpReturnString String, _
        UReturnLength ByVal As Long, ByVal hwndCallback As Long) As Long

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

         AbrirCDROM ()
     End Sub

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

     AbrirCDROM Public Sub ()
         mciSendString ("set cdaudio porta aperta", "", 0, 0)
     End Sub

     CerrarCDROM Public Sub ()
         mciSendString ("set cdaudio porta chiusa", "", 0, 0)
     End Sub

 End Class

Pronto! per godere e se avete un bambino ... per inserire il codice all'interno di un ciclo e ottenere una corda.

14 Responses to "Aprire e chiudere lo sportello del CD-ROM"

  1. Bitacoras.com dice:
    01.09.2009 02:07

    Bitacoras.com informazioni ...

    Bitacoras.com Valore: Sulla base di questo video che ho visto online oggi ha deciso di pubblicare questo post di fare semplice, utilizzando un programma Visual Basic Net, che la porta del CD per aprire e chiudere.. Per fare un semplice esempio ... ..

    Risposta
  2. Ares ha detto:
    01.09.2009 09:28

    Vedi se riesci a dormire bene.
    per quanto riguarda

    Risposta
  3. Bitacoras.com dice:
    01.09.2009 10:09

    Bitacoras.com informazioni ...

    Bitacoras.com Valore:. Sulla base del video che ho visto oggi su internet ho deciso di pubblicare questo post semplici su come fare, attraverso un programma Visual Basic Net, che la porta del CD per aprire e chiudere. Per fare un semplice esempio ... ..

    Risposta
  4. M.altm dice:
    2009/02/09 alle 19:38

    Ciao, ho trovato il programma molto buono, mi piace usare in visual basic 2005.
    È possibile scrivere in questa lingua? Grazie mille. Questa è l'email che ti invio la risposta, parisparis2@hotmail.es

    Risposta
  5. mustang ha detto:
    17/09/2009 alle 12:29

    una sonda curiosità visiva nel 2005 al netto
    I striscia errore o altro, ma se in esecuzione sul pulsante di apertura, si apre ma getta un messaggio visivo è il seguente:

    Una chiamata a funzione PInvoke 'WindowsApplication1 WindowsApplication1.Form1: mciSendString' ha sbilanciato lo stack. Perché questo è probabilmente il gestito

    Errore MDA .. cosa significa?

    grazie

    Risposta
  6. Efra dice:
    18/09/2009 alle 11:26

    Per la sonda in vb.net 2005 e tutto funziona perfettamente ... mi piacerebbe partecipare con alcuni esempi che ho ...

    Risposta
  7. gustavo dice:
    23/09/2009 alle 14:55

    comandato me l'errore che mustang, che è ciò che farà?

    Risposta
  8. cristian garcia dice:
    13/02/2010 alle 18:35

    in un primo momento non l'ho capito, ma vederlo Veses diversi ho potuto capire un po '. ma se si capisce che è Otoniel

    Risposta
  9. Ismael dice:
    2010/01/06 alle 14:39

    Il buono il piccolo programma!

    Risposta
  10. jrchico dice:
    2010/12/09 alle 15:40

    ciao amico io uso questo codice funziona perfettamente a me:

    Public Class Form1
    Private Declare Function mciSendString Lib "winmm.dll" Alias ​​"mciSendString" (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 e 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 e As System.EventArgs) Handles c. Fare clic su
    cerrarCDROM ()
    c.Enabled = False
    a.Enabled = True
    End Sub

    AbrirCDROM Public Sub ()
    mciSendString ("set cdaudio porta aperta", "", 0, 0)
    End Sub

    CerrarCDROM Public Sub ()
    mciSendString ("set cdaudio porta chiusa", "", 0, 0)
    End Sub

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

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

    Risposta
  11. jrchico dice:
    2010/12/09 alle 15:56

    deve aggiungere 3 pulsanti e una etichetta dell'immagine
    a
    c
    Button1

    stallone è quello di aprire il cdrom
    c pulsante per chiudere
    button1 è quello di chiudere l'applicazione
    etichetta è opzionale
    immagine è opzionale

    Risposta
  12. Eduardo ha detto:
    2011/05/06 alle 02:16

    grazie jrchico

    Risposta

Commento