Announcement

Collapse
No announcement yet.

API Ses kartı var mı yok mu?

Collapse
X
  • Filtre
  • Zaman
  • Gösterim
Clear All
yeni mesajlar

  • API Ses kartı var mı yok mu?

    Yapılan programlarda sistemin ses kartını destekleyip desteklemediğini bilmek bizim için iyi olabilir.
    Aşağıdakı kodu fare ile copy yapın ve MS Visual Basic içinde herhangi bir modüle paste edin
    Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
     
    Aşağıdaki kodu ise formunuzun load eventi olarak dizayn edin.
     
    Code:
    Private Sub Form_Load()
    Dim i As Integer
    i = waveOutGetNumDevs()
    If i > 0 Then
    MsgBox "Your system supports a sound card.", vbInformation, "Sound Test"
    Else
    MsgBox "Your system cannot play Sound Blaster Files.", vbInformation, "Sound Test"
    End If
    End Sub
İşlem Yapılıyor
X