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

 
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 952×

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 Lepší hosting chrání i vaše data

Lepší hosting chrání i vaše data

Kybernetických útoků na webové stránky rok od roku přibývá, jsou čím dál důmyslnější a páchají stále větší škody. Možná si říkáte, že vás se to netýká, opak je ale pravdou. Jeden z nejčastějších typů útoku využívá zranitelnosti samotných webových stránek a spočívá v umístění škodlivé části programového kódu (tzv. malware) přímo do jejich těla. 

Reklama
Reklama
Obrázek ke článku Spotřebitelé důvěřují novým technologiím při péči o seniory, ale správu financí by jim nesvěřili

Spotřebitelé důvěřují novým technologiím při péči o seniory, ale správu financí by jim nesvěřili

 71 % vítá nové technologie ke sledování zdravotního stavu postarších příbuzných, které jim umožňují žít déle doma

 Pouhých 7 % by svěřilo správu svých financí umělé inteligenci, i kdyby to znamenalo rychleji naspořit prostředky na pořízení bydlení

 64 % respondentů nemá dojem, že firmy a stát dostatečně informují o tom, jaké technologie a jak užívají

Obrázek ke článku Mobilní operátoři využívají digitální modely terénů a kvůli stavebnímu boomu i 3D modely budov

Mobilní operátoři využívají digitální modely terénů a kvůli stavebnímu boomu i 3D modely budov

Mít pokrytí co nejširšího území Česka a nabízet svým zákazníkům co nejlepší signál je společným cílem všech mobilních operátorů. Při plánování sítí proto využívají aktualizovaných digitálních modelů terénu, jež jim umožňují přesně si vypočítat pokrytí a šíření signálu. V hustě zastavěných oblastech a s ohledem na stavební boom jim pak pomáhají také 3D modely budov, které by jim při nesprávném umístění vysílače mohly signál blokovat.

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