Başlangıç > Kodlar > Visual Basic 6 ile wav dosyasını açmak

Visual Basic 6 ile wav dosyasını açmak


Visual Basic’te Wav Dosyasının Çaldırılması

Bu örnekte CommonDialog kullanımını ve aynı zamanda API'lerin kullanımını öğrenecegiz. Visual Basic'de bir proje yaratın. Form üzerine 3 tane Command button yerleştirin.
Bunlardan 1 cisinin yandaki özellikleri belirtilen şekilde degiştiriniz. Name:open Caption : open
2 cisinin Name:exit Caption : exit yapınız.
3 cüsünün Name:play Caption : play yapınız.
Form üzerine bir adet'te Commondialog yerleştirin ve Name:Cdialog1 yapınız.
Formun en altına bir Textbox yerleştirin ve text özelligini boş bırakınız.

Daha sonra kod penceresindenGeneral Declarationsalanına aşagıdaki kodu girin.

Private Declare Function sndPlaySound Lib "WINMM.DLL" Alias "sndPlaySoundA" _ (ByVal lpszSoundName As Any, ByVal uFlags As Long) As Long Dim SoundBuffer As Long

Butonların click eventlerinede aşagıdaki kodu giriniz.


Private Sub play_Click()
If CDialog1.filename <>"" Then
SoundBuffer = sndPlaySound(CDialog1.filename, &H2)
If SoundBuffer <>1 Then
MsgBox "File doesn't play.", , "Error"
End If
Else CDialog1.ShowOpen
Text1.Text = CDialog1.filename
End If
End Sub

Private Sub open_Click()
CDialog1.ShowOpen
Text1.Text = CDialog1.filename
End Sub

Private Sub exit_Click()
End
End Sub

Artık programımız çalışmaya hazırdır. Şimdi API kullanımını biraz anlatmaya çalışalım.
Aşagıdaki API Winmm.dll dosyasında bulunan bir fonksiyondur. Declare deyimi ile biz bu fonksiyonu programımızda kullanacagımızı belirtiyoruz. sndPlaySound bizim kullanacagımız fonksiyonun adıdır.
Lib "xxxx" alanı ise bu fonksiyonun kayıltı oldugu library'nin ismidir. Alias alanı ise bu fonksiyonun lib deki takma adıdır. Daha sonra gelen parantez içindeki alanlar ise bu fonksiyona geçilecek olan parametrelerdir. Parantezden sonraki ifade ise fonksiyonun geriye ne tip değer döndürecegini belirten bir parametredir.

Herhangi bir API kullanmak istersek bunu mutlaka Declare deyimi ile programda tanımlamalıyız.

Private Declare Function sndPlaySound Lib "WINMM.DLL" Alias "sndPlaySoundA" _ (ByVal lpszSoundName As Any, ByVal uFlags As Long) As Long

API kullanımı ile ilerliyen haftalarda bir ders anlatılacagı için burada fazla üzerinde durmuyoruz.

CommonDialog kullanılması için ise form üzerine bir commondialog nesnesini yerleştirmemiz gerekiyor.Program çalıştırılınca CommonDialog penceresi form üzerinde gözükmez. Biz istedigimiz zaman gösterebiliriz. CommonDialog nesnesi üzerinde aşagıdaki işlemlerden birini uygulayabiliriz.

Cdialog1.Showopen : Bu özellik ile kullanıcıdan açılmak üzere bir dosya seçmesini saglayabiliriz.
Cdialog1.Showsave : Bu özellik ile kullanıcıdan herhangi bilgilerin kaydedilebilecegi bir dosya seçmesini saglayabiliriz. Cdialog1.Showcolor: Bu şekilde kullanıcı önüne renk paletini getirerek kullanıcının bir renk belirtmesini sağlayabiliriz. Cdialog1.Showfont : Bu ifade ile ise kullanıcıdan sistemde yüklü herhangi bir font özelligini seçmesini sağlayabiliriz. Cdialog1.ShowPrinter : Bununlada kullanıcının yüklü olan printerlardan birini seçmesini sağlayabiliriz.

Daha detaylı bilgiyi ilerde ders konuları içersinde bulabilirsiniz.

Fatih Cihan


TD Software


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

Bir Cevap Yazı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. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: