Odpiranje in zapiranje vrat na CD-ju

Avtor Elizeja v Primeri in humorjem , ki Vaje za 1. 09, 2009 | 14 odzivov

Na podlagi tega videa sem videl na internetu danes sem se odločila za objavo tega preprosto komentar, kako to storiti, s programom v Visual Basic. Net, da vrata CD-jev za odpiranje in zapiranje.

Če želite zagnati zgled smo morali en obrazec in dva gumba (odpiranje), kot je prikazano na sliki:

in naslednjo kodo: 

 Javna Class Form1
     Izjavo Function mciSendString Lib "winmm.dll" Alias ​​"mciSendStringA" _
        (LpCommandString ByVal Kot String, ByVal lpReturnString As String, _
        UReturnLength ByVal Kot Long, ByVal hwndCallback As Long), če

     Private Sub Button1_Click (ByVal pošiljatelj Kot System.Object, ByVal e As System.EventArgs) Ročaji Button1.Click

         AbrirCDROM ()
     End Sub

     Private Sub Button2_Click (ByVal pošiljatelj Kot System.Object, ByVal e As System.EventArgs) Ročaji Button2.Click
         cerrarCDROM ()
     End Sub

     AbrirCDROM Javna Sub ()
         mciSendString ("set CDAudio vrata odprta", "", 0, 0)
     End Sub

     CerrarCDROM Javna Sub ()
         mciSendString ("set CDAudio vrata zaprta", "", 0, 0)
     End Sub

 Konec razred

Pripravljen! , da ga uživajo, in če imate otroka ... postaviti kodo znotraj zanke in dobili vrv.

14 odgovorov na "Odpiranje in zapiranje vrat na CD-ju"

  1. Bitacoras.com dejal:
    2009/01/09 ob 2:07 am

    Informacije Bitacoras.com ...

    Stopnja Bitacoras.com: oprla na tem videu sem videl na internetu danes sem se odločila za objavo tega enostavnega javnosti o tem, kako, s programom v Visual Basic Net, da vrata CD-jev za odpiranje in zapiranje.. Za Simpl primer .....

    Odgovor
  2. Ares pravi:
    2009/01/09 ob 9:28 am

    Bomo videli, če boste dobro spali.
    pozdrav

    Odgovor
  3. Bitacoras.com dejal:
    2009/01/09 ob 10:09 ur pred poldan

    Informacije Bitacoras.com ...

    Stopnja Bitacoras.com: Na videu sem videl danes na internetu, sem se odločila za objavo tega preprosto prispevek o tem, kako narediti, s programom v Visual Basic Net, da vrata CD-jev za odpiranje in zapiranje.. Če želite zagnati primer sim .....

    Odgovor
  4. M.altm pravi:
    2009/02/09 ob 7:38 uri

    Živjo, sem našel zelo dober program, bi rad, da ga uporabljate v Visual Basic 2005.
    Lahko napišete v tem jeziku? najlepša hvala. To je sporočilo, da pošljete odgovor, parisparis2@hotmail.es~~HEAD=dobj

    Odgovor
  5. Mustang je dejal:
    17/09/2009 ob 12:29

    radovednost sem se potrudil pri vizualni neto 2005
    Jaz strip napako ali kaj podobnega, vendar, ko teče na odprti gumb, se odpre pa vrže vizualno sporočilo je, kot sledi:

    Razpis za PInvoke funkcija 'WindowsApplication1 me o WindowsApplication1.Form1 :: mciSendString "je neuravnotežen na kup. To je verjetno zaradi uspelo

    MDAs napaka .. kaj to pomeni?

    hvala

    Odgovor
  6. efra pravi:
    18/09/2009 ob 11:26 uri

    Pa sem se potrudil v VB.NET 2005 in vse deluje brezhibno ... Rad bi, da sodelujejo z nekaterimi primeri, ki sem jih ...

    Odgovor
  7. Gustavo pravi:
    23/09/2009 ob 2:55 uri

    Prav tako mi je poslal isto napako kot Mustang, ki je, kaj bo?

    Odgovor
  8. Cristian Garcia pravi:
    13/02/2010 ob 6:35 uri

    sprva nisem razumel, ampak vidim ga več veses lahko razumem malo. vendar če boste razumeli, da je otoniel

    Odgovor
  9. Ismael pravi:
    2010/01/06 ob 2:39 uri

    To lepo Program!

    Odgovor
  10. jrchico pravi:
    2010/12/09 ob 3:40 uri

    Zdravo prijatelj uporabljam to kodo deluje odlično me:

    Javna Class Form1
    Zasebno razglasi Lib Function mciSendString "winmm.dll" Alias ​​"mciSendStringA" (ByVal lpstrCommand Kot String, ByVal lpstrReturnString Kot String, ByVal uReturnLength kot cela, ByVal hwndCallback kot cela) Kot Integer

    Private Sub Button1_Click (ByVal pošiljatelj Kot System.Object, ByVal e As System.EventArgs) Ročaji a.Click
    AbrirCDROM ()
    a.Enabled = False
    c.Enabled = True
    End Sub

    Private Sub Button2_Click (ByVal pošiljatelj Kot System.Object, ByVal e As System.EventArgs) Ročaji c.Click
    cerrarCDROM ()
    c.Enabled = False
    a.Enabled = True
    End Sub

    AbrirCDROM Javna Sub ()
    mciSendString ("set CDAudio vrata odprta", "", 0, 0)
    End Sub

    CerrarCDROM Javna Sub ()
    mciSendString ("set CDAudio vrata zaprta", "", 0, 0)
    End Sub

    Button1_Click_1 Private Sub (ByVal pošiljatelj Kot System.Object, ByVal e As System.EventArgs) Ročaji Button1.Click
    Application.Exit ()
    End Sub

    Private Sub Form1_Load (ByVal pošiljatelj Kot System.Object, ByVal e As System.EventArgs) Ročaji MyBase.Load
    End Sub
    Konec razred

    Odgovor
  11. jrchico pravi:
    2010/12/09 ob 3:56 uri

    treba dodati 3 gumbe in etiketa in sliko
    s
    c
    Button1

    Kobilarna je odpreti cdrom
    c gumb, da zaprete
    button1 je, da zaprete aplikacijo
    oznaka ni obvezna
    Slika ni obvezna

    Odgovor
  12. Eduardo pravi:
    2011/05/06 ob 2:16 am

    hvala jrchico

    Odgovor

Komentar