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

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
Laser Game Ostrava

Vysouvání mechaniky přes Visual Basic

Google       Google       22. 6. 2005       12 876×

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 Startup DoDo zajistí městskou logistiku pro RunCzech

Startup DoDo zajistí městskou logistiku pro RunCzech

Startup DoDo se stává důležitým partnerem RunCzecha na významných běžeckých závodech včetně 25. ročníku Volkswagen Maratonu Praha se bude starat o logistické zázemí. Lídr v oblasti městské logistiky bude mimo jiné zásobovat občerstvovací stanice a pomůže rovněž se zajištěním televizních přenosů ze závodů.

Reklama
Reklama
Obrázek ke článku Možnosti současného tisku: kloubní protéza, gigantický billboard i fotoobklady

Možnosti současného tisku: kloubní protéza, gigantický billboard i fotoobklady

Moderní technologie tvoří svět kolem nás. Raketový vývoj zaznamenává oblast informačních technologií ruku v ruce s odvětvím zaměřeným na tisk. Nové postupy a přístroje v tiskařské oblasti nacházejí uplatnění v mnoha směrech. Od zdravotnictví a průmyslu, zejména díky 3D tiskárnám, přes reklamu až po přenášení motivů na obklady užívané jako moderní prvek v interiérech. Současnost zkrátka přináší nespočet druhů tisku, protože díky nynějším přístrojům lze vytisknout v podstatě cokoliv. Jaké nejzajímavější možnosti jsou k mání?

Obrázek ke článku Nezávislý bezpečnostní audit varuje: Lidé ukládají na Ulož.to firemní hesla, smlouvy i rodná čísla

Nezávislý bezpečnostní audit varuje: Lidé ukládají na Ulož.to firemní hesla, smlouvy i rodná čísla

Veřejná online úložiště jsou pro firmy zásadním bezpečnostním rizikem úniku a ztráty citlivých firemních dokumentů i osobních údajů. Zjištění vychází z výsledků bezpečnostní analýzy souborů na Ulož.to, kterou provedli odborníci na kyberbezpečnost ze SODAT. Analýza odhalila stovky firemních přístupových hesel, rodných čísel i pracovních smluv. Ty nahrávají na veřejná úložiště nejčastěji sami zaměstnanci v rámci zálohování nebo sdílení souborů. 

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