Visual Basic ile WAV Dosyalarını Çalmak
Visual Basic'i kullanarak Windows ses dosyalarını (WAV) çalabilmeniz için, Api fonksiyonlarına ihtiyacınız var. İlk olarak bu fonksiyonu kullanarak ufak bir program yaptık. Bize gerekli olanlar: dosya seçiminde kullanacağımız bir sürücü listesi, dizin listesi ve dosya listesi, bir de seçilen dosyayı görebilmemiz için gereken bir etiket. Formunuzun üstüne bunları gösterildiği biçimde yerleştirin ve hemen kodlarımızı yazmaya başlayın...
Ses dosyalarını çalabilmek için öncelikle bir ses kartına ihtiyacınız var. İşte ses dosyalarını çalabilmeniz için gereken API fonksiyonu ve parametreleri. Bunları iyice inceledikten sonra programımızı yazmaya başlayabilirsiniz.
Declare Function sndPlaySound Lib "MMSYSTEM.DLL" (ByVal ses$, ByVal ozellik%) As Integer
Parametreler:
ses$
Çalınacak ses dosyasını belirtir.Eğer ses dosyası belirtilmezse o anda çalan dosya durdurulur.
ozellik%
Bu değişken yerine ses dosyasının nasıl çalınacağını belirten aşağıdaki sabitlerden biri
kullanılmalıdır.
SND_SYNC
Sistem olaylarını durdurur. Program kontrolü ses dosyası çalındıktan sonra geri döner.
SND_ASYNC
Ses arka planda çalar. Program kontrolü ses dosyasının hemen başında geri döner.
SND_NODEFAULT
Eğer belirttiğiniz ses dosyası bulunamadıysa hata mesajı verilmeden programa geri dönülür.
SND_LOOP
Çalmak istediğiniz ses dosyası sndPlaySound fonksiyonuna boş bir değer verene kadar tekrar eder. Eğer bu özelliği kullanıyorsanız aynı zamanda ses dosyasını geri planda çalmaya yarayan SND_ASYNC fonksiyonunu kullanmalısınız.
SND_NOSTOP
Eğer herhangi bir ses o anda çalınıyorsa istediğiniz dosya çalınmaz ve bu fonksiyonu atadığınız değer anında 0 (False) olur. Bu özellik aynı zamanda o anda bir sesin çalınıp çalınmadığını anlamanıza da yardımcı olur.
Not: sndPlaySound fonksiyonu eğer belirttiğiniz dosya sorunsuz olarak çalınırsa 1 değerini döndürür.
Gelelim programımızın kodlarına. Aşağıdaki birinci paragraf programın diğer modüllerinden ayrı bir yere yazılmalıdır. (WAVCAL.BAS gibi.)
Declare Function sndPlaySound Lib "MMSYSTEM.DLL" (ByVal ses$, ByVal ozellik%) As IntegerGlobal Const SND_SYNC = &H0Global Const SND_ASYN = &H1Global Const SND_NODEFAULT = &H2Global Const SND_LOOP = &H8Global Const SND_NOSTOP = &H10Sub Form_Load ()ChDir "c:\windows" label1.Caption = ""file1.Pattern = "*.wav" ' Sadece WAV uzantılı dosyalarımız listelensinEnd SubSub Drive1_Change ()dir1.Path = drive1.Drive ' Sürücü değiştiğinde dizin listesini yenileEnd SubSub Dir1_Change ()file1.Path = dir1.Path ' dizin değiştiğinde dosya listesini yenileEnd SubSub File1_Click ()ses$ = dir1.Path + "\" + file1.FileName If Mid$(ses$, 4, 1) = "\" Then ' Eğer ana dizindeysek araya \ karakterini sokmases$ = dir1.Path + file1.FileNameEnd If
Burada Genel Dialog kutusunu kullanmamamızın bir dez avantajını görüyorsunuz. Her ne kadar bu kodu yazmadan programımız çalışsa da liste kutumuz ana dizini gördüğünde ses dosyamızın yerini bulmakta bir sorun yaşanacaktır. Yani yukarıdaki kod parçası her seferinde bu sorunu gidermek için kullanılabilir. label1.Caption = " Ses: " + ses$ ozellik% = SND_ASYNC And SND_NODEFAULT X% = sndPlaySound(ses$, ozellik%)End Sub
Visual Basic'i kullanarak Windows ses dosyalarını (WAV) çalabilmeniz için, Api fonksiyonlarına ihtiyacınız var. İlk olarak bu fonksiyonu kullanarak ufak bir program yaptık. Bize gerekli olanlar: dosya seçiminde kullanacağımız bir sürücü listesi, dizin listesi ve dosya listesi, bir de seçilen dosyayı görebilmemiz için gereken bir etiket. Formunuzun üstüne bunları gösterildiği biçimde yerleştirin ve hemen kodlarımızı yazmaya başlayın...
Ses dosyalarını çalabilmek için öncelikle bir ses kartına ihtiyacınız var. İşte ses dosyalarını çalabilmeniz için gereken API fonksiyonu ve parametreleri. Bunları iyice inceledikten sonra programımızı yazmaya başlayabilirsiniz.
Declare Function sndPlaySound Lib "MMSYSTEM.DLL" (ByVal ses$, ByVal ozellik%) As Integer
Parametreler:
ses$
Çalınacak ses dosyasını belirtir.Eğer ses dosyası belirtilmezse o anda çalan dosya durdurulur.
ozellik%
Bu değişken yerine ses dosyasının nasıl çalınacağını belirten aşağıdaki sabitlerden biri
kullanılmalıdır.
SND_SYNC
Sistem olaylarını durdurur. Program kontrolü ses dosyası çalındıktan sonra geri döner.
SND_ASYNC
Ses arka planda çalar. Program kontrolü ses dosyasının hemen başında geri döner.
SND_NODEFAULT
Eğer belirttiğiniz ses dosyası bulunamadıysa hata mesajı verilmeden programa geri dönülür.
SND_LOOP
Çalmak istediğiniz ses dosyası sndPlaySound fonksiyonuna boş bir değer verene kadar tekrar eder. Eğer bu özelliği kullanıyorsanız aynı zamanda ses dosyasını geri planda çalmaya yarayan SND_ASYNC fonksiyonunu kullanmalısınız.
SND_NOSTOP
Eğer herhangi bir ses o anda çalınıyorsa istediğiniz dosya çalınmaz ve bu fonksiyonu atadığınız değer anında 0 (False) olur. Bu özellik aynı zamanda o anda bir sesin çalınıp çalınmadığını anlamanıza da yardımcı olur.
Not: sndPlaySound fonksiyonu eğer belirttiğiniz dosya sorunsuz olarak çalınırsa 1 değerini döndürür.
Gelelim programımızın kodlarına. Aşağıdaki birinci paragraf programın diğer modüllerinden ayrı bir yere yazılmalıdır. (WAVCAL.BAS gibi.)
Declare Function sndPlaySound Lib "MMSYSTEM.DLL" (ByVal ses$, ByVal ozellik%) As IntegerGlobal Const SND_SYNC = &H0Global Const SND_ASYN = &H1Global Const SND_NODEFAULT = &H2Global Const SND_LOOP = &H8Global Const SND_NOSTOP = &H10Sub Form_Load ()ChDir "c:\windows" label1.Caption = ""file1.Pattern = "*.wav" ' Sadece WAV uzantılı dosyalarımız listelensinEnd SubSub Drive1_Change ()dir1.Path = drive1.Drive ' Sürücü değiştiğinde dizin listesini yenileEnd SubSub Dir1_Change ()file1.Path = dir1.Path ' dizin değiştiğinde dosya listesini yenileEnd SubSub File1_Click ()ses$ = dir1.Path + "\" + file1.FileName If Mid$(ses$, 4, 1) = "\" Then ' Eğer ana dizindeysek araya \ karakterini sokmases$ = dir1.Path + file1.FileNameEnd If
Burada Genel Dialog kutusunu kullanmamamızın bir dez avantajını görüyorsunuz. Her ne kadar bu kodu yazmadan programımız çalışsa da liste kutumuz ana dizini gördüğünde ses dosyamızın yerini bulmakta bir sorun yaşanacaktır. Yani yukarıdaki kod parçası her seferinde bu sorunu gidermek için kullanılabilir. label1.Caption = " Ses: " + ses$ ozellik% = SND_ASYNC And SND_NODEFAULT X% = sndPlaySound(ses$, ozellik%)End Sub