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

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

 

Vysouvání mechaniky přes Visual Basic

Google       Google       22. 6. 2005       12 543×

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 Proč mají absolventi v IT přemrštěné očekávání, a je vůbec přemrštěné?

Proč mají absolventi v IT přemrštěné očekávání, a je vůbec přemrštěné?

Poměrně nedávno zveřejnil portál Platy.cz zajímavé statistiky, kde mladí počítačoví experti nastupují do firem s průměrnou mzdou cca 36 000 Kč, hned v závěsu je bankovní sektor se svými cca 31 000 Kč. Pro srovnání – v ostatních oborech se průměrná nástupní mzda pohybuje okolo 28 000 Kč. Nástupní platy jsou samozřejmě ovlivněny i lokalitou zaměstnavatele

Reklama
Reklama
Obrázek ke článku Zpětné sledování sportovních přenosů využívá v létě řada lidí.

Zpětné sledování sportovních přenosů využívá v létě řada lidí.

Červenec a srpen představují měsíce, kdy Češi nejčastěji jezdí na vícedenní dovolené. V této době však rovněž probíhá řada důležitých sportovních událostí, jako jsou olympijské hry nebo například právě odehrané fotbalové mistrovství světa. Míra promeškaných sportovních přenosů však klesá díky moderních technologiím a službám. 

Obrázek ke článku Průzkum JetBrains: JavaScript mezi programátory vede, Kotlin získává na popularitě

Průzkum JetBrains: JavaScript mezi programátory vede, Kotlin získává na popularitě

Společnost JetBrains, přední tvůrce softwarových nástrojů pro profesionální vývojáře s centrálou v Praze, představila výsledky průzkumu, který pomáhá lépe porozumět a získat vhled do pracovních návyků programátorů. Zjištění mohou být nápomocná nejen pro zvýšení efektivity, ale také pro vytvoření ideálního pracovního prostředí pro programátory.  

Obrázek ke článku Jsou Youtubeři jen pro mladé?

Jsou Youtubeři jen pro mladé?

Každá generace má své, a tak zatímco v šedesátkách si celý svět ujížděl na Beatles a v devadesátkách jsme všichni hrdě nosili šusťákovky, dnešnímu světu jednoznačně vládne jiný fenomén, a to jsou Youtubeři. Jedná se o jakési novodobé idoly, které jsou mladým blíže než celebrity z dob minulých. 

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