Vysouvání mechaniky přes Visual Basic
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Vysouvání mechaniky přes Visual BasicVysouvání mechaniky přes Visual Basic

 
Hledat
Moderní platforma pro vytvoření vašeho nového webu – Wix.com.
Nyní už můžete mít web zdarma.
Vybavení pro Laser Game
Spuštěn Filmový magazín
Laser Game Brno

Vysouvání mechaniky přes Visual Basic

Google       Google       22. 6. 2005       12 619×

Něco málo o tom, jak vysunout a zasunout mechaniku. Plus ještě jak zjistit počet mechanick v PC a jejich písmena.

Reklama
Reklama

Já osobně znám dvě metody. První metoda je pomocí funkce mciSendString. Je to funkce využívající se například při ovládání multimedií. A umožňuje právě ono otevření mechaniky. Otevírá ale pouze primární mechaniku, tedy tu první. Nejdříve si tuto funkci musíme deklarovat. A potom ji zavolat a dát ji potřebné parametry. Tato funkce má rozdílné parametry pokud ji voláme pro zavření nebo pro otevření mechaniky. Celé to pak může vypadat třeba takto:


Private Declare Function mciSendString Lib _
"winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, ByVal _
uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Command1_Click() 'procedura otevření
  mciSendString "Set CDAudio Door Open Wait", _
0&, 0&, 0&
End Sub

Private Sub Command2_Click() 'procedura zavření
  Print mciSendString("Set CDAudio Door Closed Wait", _
0&, 0&, 0&)
End Sub

Druhá metoda je lepší, jelikož si můžeme volit, kterou mechaniku chceme otevřít. A to pomocí externího multimediálního přehrávače WMP. Takže si vlezeme do nabídky komponent a vybereme si WindowsMediaPlayer. Na závěr tedy zdroják.


Private Sub Command1_Click()
  WindowsMediaPlayer1.cdromCollection.Item(0).eject
End Sub

Jak vidíte, není to nic složitého. Tato metoda navíc funguje tak, že pokud je mechanika zavřená, tak ji otevře a pokud je otevřená, tak ji zavře.

Ještě něco. Tady je návod, jak zjistíte počet mechanik.


Print WindowsMediaPlayer1.cdromCollection.Count
Pak můžete otevřít třeba všechny, aniž by vám program hodil chybu a nezapomeňte, že jako index se počítá i nula, ale u počtu mechanik tomu tak není.


Private Sub Command1_Click()
  a = WindowsMediaPlayer1.cdromCollection.Count
  For i = 0 To (a - 1)
    WindowsMediaPlayer1.cdromCollection.Item(i).eject
  Next i
End Sub

Ještě návod jak zjistit, jaké mechaniky jsou v PC:


Private Sub Command1_Click()
  a = WindowsMediaPlayer1.cdromCollection.Count
  For i = 0 To (a - 1)
    WindowsMediaPlayer1.cdromCollection.Item(i).eject
  Next i
End Sub

×Odeslání článku na tvůj Kindle

Zadej svůj Kindle e-mail a my ti pošleme článek na tvůj Kindle.
Musíš mít povolený příjem obsahu do svého Kindle z naší e-mailové adresy kindle@programujte.com.

E-mailová adresa (např. novak@kindle.com):

TIP: Pokud chceš dostávat naše články každé ráno do svého Kindle, koukni do sekce Články do Kindle.

4 názory  —  4 nové  
Hlasování bylo ukončeno    
0 hlasů
Google
(fotka) Jiří ChytilAutor programuje ve VB, zajímá se o elektrotechniku, studuje na SOŠ Elektrotechnické - obor číslicová technika.
Web    

Nové články

Obrázek ke článku Virtuální zrcadla změní způsob nakupování v e-shopech

Virtuální zrcadla změní způsob nakupování v e-shopech

Díky pluginu Virtooal.com získávají zákazníci e-shopů možnost si vyzkoušet produkty ve virtuálním světě. E-shopy, které si plugin nainstalují, výrazně snižují množství vráceného zboží, dělají nákupy zábavnějšími, a tím budují lepší vztahy se svými zákazníky. V současnosti lze Virtooal.com využít zejména pro kosmetiku, brýle a šperky, do budoucna půjde také o módu.

Reklama
Reklama
Obrázek ke článku Kariérní postup & vyšší plat: Titul MBA ve sféře IT

Kariérní postup & vyšší plat: Titul MBA ve sféře IT

Působíte jako specialista v oblasti IT a aspirujete na povýšení, příp. řídící pozici? Pak se jistě potýkáte nejen s vysokými nároky (potenciálních) zaměstnavatelů, ale i se silnou konkurencí ze strany ostatních uchazečů. Pokud chcete zvýšit své šance na kariérní posun a lepší plat, měli byste vedle technických dovedností ovládat i ty manažerské. Pomoci vám v tomto ohledu může studium MBA se specializací na management IT.

Obrázek ke článku Tisková konference Hackers Congress Paralelni Polis 2018

Tisková konference Hackers Congress Paralelni Polis 2018

Již pátý ročník akce globálního významu Hackers Congress Paralelni Polis 2018 se letos odehraje 5. – 7. října, a to znovu v prostorech Paralelní Polis a přilehlého divadla La Fabrika na Praze 7. Na kongres se opět sjedou světoví odborníci, kteří svým zaměřením kopírují čtyři základní pilíře akce. Jsou jimi Svoboda a kryptoanarchie, Decentralizovaná ekonomika a kryptoměny, Politické umění a hacking a také Věda a technologie

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032018 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý