|
Jak wykryć kartę dźwiękową? |
|
|
|
Napisał Administrator
|
|
poniedziałek, 12 wrzesień 2005 |
W SUMIE PROSTY KOD KTÓRY WSTAWIAMY DO SEKCJI GENERAL DECLARATIONS MODU?U
KODU (.BAS)
Declare Function waveOutGetNumDevs Lib "winmm.dll" Alias "waveOutGetNumDevs" ()
As Long
A TO DO PROCEDURY Form_Load
Dim i As Integer
i = waveOutGetNumDevs()
If i > 0 Then
MsgBox "Wykryta karta dzwi?kowa..", vbInformation, "Test d?wi?ku"
Else
MsgBox "Brak karty d?wi?kowej.", vbInformation, "Test d?wi?ku"
End If
WYDAJE MI SI?, ?E FUNKCJA waveOutGetNumDevs Lib ZWRACA 2 WARTO?CI
KTÓRE WYKORZYSTYWANE S? PÓ?NIEJ
ZMIENNEJ i PRZYPISUJEMY WARTO?? FUNKCJI -- i = waveOutGetNumDevs()
JE?ELI i > 0 (TEGO NIE KAPUJE) PROGRAM INFORMUJE O ISTNIENIU KARTY
If i > 0 Then
MsgBox "Wykryta karta dzwi?ko
wa..", vbInformation, "Test d?wi?ku"
W PRZECIWNYM RAZIE (Else)
MsgBox "Brak karty d?wi?kowej.", vbInformation, "Test d?wi?ku"
przyk?ad
Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze. Powered by AkoComment 2.0! |
