Anasayfa > Kodlar > Visual Basic 6 ile Ses kartı varmı yokmu

Visual Basic 6 ile Ses kartı varmı yokmu


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.


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

Eğer sisteminizde bir ses kartı mevcut ise size bir message box ile bildirilecektir.

Gurkan YENICERI


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: