Visual Basic - Jak přidat zvuk a rozezvučet ho
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Visual Basic - Jak přidat zvuk a rozezvučet hoVisual Basic - Jak přidat zvuk a rozezvučet ho

 

Visual Basic - Jak přidat zvuk a rozezvučet ho

Google       Google       30. 12. 2007       24 905×

Pojďme si ozvučit aplikace ve Visual Basicu.

CHcete, aby vaše aplikace přehrávala zvuky či hudbu? Nevíte, jak na to? Tak po přečtení článku už vědět budete. Jde o nejjednodušší přehrávání souborů wav.

Přehrávání souborů wav

Nejjednodušší metodou pro přehrávání wav souborů je API funkce sndPlaySound. Pokud přidáte konstantu SND_SYNC, bude se další kód provádět poté, co se ukončí přehrávání. Pokud nechcete čekat na konec přehrávání, zvolte konstantu SND_ASYNC.

sndPlaySound "tada.wav", SND_ASYNC

Opakované přehrávání souborů wav

Opakované přehrávání lze také udělat pomocí API sndPlaySound, k ní přidáme konstantu SND_LOOP. Je vhodné přidat ještě konstantu SND_ASYNC pro plynulé opakované přehrávání. Tato metoda má však jednu vadu – pokud vypnete aplikaci, zvuk se bude stále přehrávat. Proto je důležité ho vypnout pomocí sndPlaySound vbNullString, 0.

sndPlaySound "tada.wav", SND_ASYNC + SND_LOOP

Pro ukončení

sndPlaySound vbNullString, 0

Pokud se vám nechce hledat všechny deklarace a konstanty, tady jsou. Ještě bych chtěl doplnit, abyste si všechny deklarace a funkce dali do Modulu.

Option Explicit
'Deklarace
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

'Konstanty
Public Const SND_ASYNC = &H1
Public Const SND_SYNC = &H0  'default
Public Const SND_LOOP = &H8  'opakování

Pro doplnění přidávám ještě zdrojový kód k tomuto krátkému článku.

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

Hlasování bylo ukončeno    
0 hlasů
Google
(fotka) Jan MalýAutor programuje ve VB, HTML, CSS. Zajímá se o grafiku, fotografování
Web     Twitter     Facebook    

Nové články

Obrázek ke článku Stavebnice umělé inteligence 1

Stavebnice umělé inteligence 1

Článek popisuje první část stavebnice umělé inteligence. Obsahuje lineární a plošnou optimalizaci.  Demo verzi je možné použít pro výuku i zájmovou činnost. Profesionální verze je určena pro vývojáře, kteří chtějí integrovat popsané moduly do svých systémů.

Obrázek ke článku Hybridní inteligentní systémy 2

Hybridní inteligentní systémy 2

V technické praxi využíváme často kombinaci různých disciplín umělé inteligence a klasických výpočtů. Takovým systémům říkáme hybridní systémy. V tomto článku se zmíním o určitém typu hybridního systému, který je užitečný ve velmi složitých výrobních procesech.

Obrázek ke článku Jak vést kvalitně tým v IT oboru: Naprogramujte si ty správné manažerské kvality

Jak vést kvalitně tým v IT oboru: Naprogramujte si ty správné manažerské kvality

Vedení týmu v oboru informačních technologií se nijak zvlášť neliší od jiných oborů. Přesto však IT manažeři čelí výzvě v podobě velmi rychlého rozvoje a tím i rostoucími nároky na své lidi. Udržet pozornost, motivaci a efektivitu týmu vyžaduje opravdu pevné manažerské základy a zároveň otevřenost a flexibilitu pro stále nové výzvy.

Obrázek ke článku Síla týmů se na home office může vytrácet. Odborníci radí, jak z pracovních omezení vytěžit maximum

Síla týmů se na home office může vytrácet. Odborníci radí, jak z pracovních omezení vytěžit maximum

Za poslední rok se podoba práce zaměstnanců změnila k nepoznání. Především plošné zavedení home office, které mělo být zpočátku jen dočasným opatřením, je pro mnohé už více než rok každodenní realitou. Co ale dělat, když se při práci z domova ztrácí motivace, zaměstnanci přestávají komunikovat a dříve fungující tým se rozpadá na skupinu solitérů? Odborníci na personalistiku dali dohromady několik rad, jak udržet tým v chodu, i když pracovní podmínky nejsou ideální.

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