Happy Codings - Programming Code Examples

Visual Basic Programming Code Examples

Visual Basic > Code Snippets

Detect if a sound card exists



Detect if a sound card exists

Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long 
Private Sub Form_Load()
Dim nDev As Integer
nDev = waveOutGetNumDevs()

If nDev > 0 Then
MsgBox "Your system supports a sound card.", vbInformation
Else
MsgBox "Your system cannot play Sound Blaster Files.", vbInformation
End If
End Sub

Whenever you find yourself doubting how far you can go, just remember how far you have come.

Anonymous

Choose a job you love, and you will never have to work a day in your life.

Confucius

Education breeds confidence. Confidence breeds hope. Hope breeds peace.

Confucius

Success comes from knowing that you did your best to become the best that you are capable of becoming.

John Wooden

The way to get things done is not to mind who gets the credit for doing them.

Benjamin Jowett

Your time is limited, don't waste it living someone else's life. Don't be trapped by dogma, which is living the result of other people's thinking.

Steve Jobs

Desire is the starting point of all achievement, not a hope, not a wish, but a keen pulsating desire which transcends everything.

Napoleon Hill

If you dare nothing, then when the day is over, nothing is all you will have gained.

Neil Gaiman