Avada ja sulgeda uks CD-ROM

Postitaja Elisha in Näiteid , huumor , Tutorials kohta 09 1st, 2009 | 14 vastust

Põhineb see video ma nägin Internetis täna otsustasin ma avaldada seda lihtsat post, kuidas seda teha läbi programmi Visual Basic. Net, et ukse CD on avada ja sulgeda.

Käivitada näiteks meil on vaja ainult üks vorm ja kaks nuppu (Opening), nagu näidatud pildil:

ja järgmine kood: 

 Public class Form1
     Kuulutada Function mciSendString Lib "winmm.dll" Alias ​​"mciSendStringA" _
        (LpCommandString ByVal As String, ByVal lpReturnString As String, _
        UReturnLength ByVal Niikaua, ByVal hwndCallback As Long) As Long

     Private Sub Button1_Click (ByVal saatja Nagu System.Object, ByVal E System) käepidemed Button1.Click

         AbrirCDROM ()
     End Sub

     Private Sub Button2_Click (ByVal saatja Nagu System.Object, ByVal E System) käepidemed Button2.Click
         cerrarCDROM ()
     End Sub

     AbrirCDROM Public Sub ()
         mciSendString ("set CDAudio ukse lahti", "", 0, 0)
     End Sub

     CerrarCDROM Public Sub ()
         mciSendString ("set CDAudio Suletud uste", "", 0, 0)
     End Sub

 End klassi

Valmis! nautida ja kui sul on laps ... panna koodi sees silmus ja saada köis.

14 Responses to "Avage ja sulgege uks CD-ROM"

  1. Bitacoras.com ütleb:
    2009/01/09 kell 2:07 am

    Informatsioon Bitacoras.com ...

    Määr Bitacoras.com: põhjendades seda video nägin Internetis täna ma otsustasin postitada selle lihtsa avalik, kuidas seda teha läbi programmi Visual Basic. Net, et ukse CD on avada ja sulgeda. Näiteks simpl .....

    Vastus
  2. Ares ütleb:
    2009/01/09 kell 9:28 am

    Vaata, kas magada ka.
    osas

    Vastus
  3. Bitacoras.com ütleb:
    2009/01/09 kell 10:09

    Informatsioon Bitacoras.com ...

    Määr Bitacoras.com: Tuginedes video Ma nägin täna internetis otsustasin ma avaldada seda lihtsat post, kuidas seda teha läbi programmi Visual Basic. Net, et ukse CD on avada ja sulgeda. Käivitada näiteks sim .....

    Vastus
  4. M.altm ütleb:
    2009/02/09 kell 19:38

    Tere, Ma leidsin väga hea programm, tahaksin seda kasutada Visual Basic 2005.
    Võite kirjutada selles keeles? Suur aitäh. See e-maili, et saata vastus, parisparis2@hotmail.es

    Vastus
  5. mustang ütles:
    17.09.2009 kell 12:29

    uudishimu Üritasin seda visuaalset net 2005
    Ma ribad viga või midagi, aga kui sõitma avatud nuppu, siis avaneb vaid viskab visuaalne sõnum on järgmine:

    Kõne PInvoke funktsiooni "WindowsApplication1! WindowsApplication1.Form1 :: mciSendString" on tasakaalustamata pinu. See on tõenäoliselt Kuna õnnestus

    MDAs viga .. mida see tähendab?

    tänan

    Vastus
  6. efra ütleb:
    18.09.2009 kell 11:26

    Noh ma proovisin seda vb.net 2005 ja kõik toimib ideaalselt ... soovin osaleda mõned näited, et mul on ...

    Vastus
  7. Gustavo ütleb:
    23/09/2009 kell 14:55

    Olen ka saatnud mulle sama viga kui mustang, mis on see, mis?

    Vastus
  8. Cristian Garcia ütleb:
    13/02/2010 kell 18:35

    Ma algul ei mõistnud seda, aga ei näinud seda mitu veses ma saaks aru vähe. aga kui sa mõistad, et see on otoniel

    Vastus
  9. Ismael ütleb:
    2010/01/06 kell 14:39

    See ilus väike programm!

    Vastus
  10. jrchico ütleb:
    2010/12/09 kell 15:40

    tere sõber ma kasutan seda koodi töötaks mulle:

    Public class Form1
    Private Tunnistada Function mciSendString Lib "winmm.dll" Alias ​​"mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

    Private Sub Button1_Click (ByVal saatja Nagu System.Object, ByVal E System) käepidemed a.Click
    AbrirCDROM ()
    a.Enabled = False
    c.Enabled = True
    End Sub

    Private Sub Button2_Click (ByVal saatja Nagu System.Object, ByVal E System) käepidemed c.Click
    cerrarCDROM ()
    c.Enabled = False
    a.Enabled = True
    End Sub

    AbrirCDROM Public Sub ()
    mciSendString ("set CDAudio ukse lahti", "", 0, 0)
    End Sub

    CerrarCDROM Public Sub ()
    mciSendString ("set CDAudio Suletud uste", "", 0, 0)
    End Sub

    Button1_Click_1 Private Sub (ByVal saatja Nagu System.Object, ByVal E System) käepidemed Button1.Click
    Application.Exit ()
    End Sub

    Private Sub Form1_Load (ByVal saatja Nagu System.Object, ByVal E System) käepidemed MyBase.Load
    End Sub
    End klassi

    Vastus
  11. jrchico ütleb:
    2010/12/09 kell 15:56

    tuleb lisada 3 nuppu ja etiketi ja pilt
    kuni
    c
    Button1

    stud on avada cdrom
    c nupp on sulgeda
    Button1 on väljumiseks taotlus
    märgis ei ole kohustuslik
    pilt ei ole kohustuslik

    Vastus
  12. Eduardo ütleb:
    2011/05/06 kell 2:16 am

    Tänu jrchico

    Vastus

Kommentaar