|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Imagem/Som/Multimídia)
|
|
 |
Título da Dica: Detectar se um computador tem uma placa de som
|
 |
|
|
|
Postada em 15/8/2003 por d@®l@n
Para realizar tal tarefa, você deverá utilizar a função API waveOutGetNumDevs(). Esta função retorna o número de devices capazes de tocar sons. Porém, antes de usá-la, declare-a em um módulo de código. Ai vai a declaração :
Declare Function waveOutGetNumDevs lib "MMSYSTEM" () as integer
Então, crie a função Ver_audio(), escrevendo o seguinte código :
Function Ver_Audio() as string
dim i as integer
i = waveOutGetNumDevs()
if i > 0 then
Ver_Audio = "Sistema capaz de tocar sons"
else
Ver_Audio = "Sistema incapaz de tocar sons"
end if
end function
|
|
|
|
|
