VBNET 2008 Vaw formatlı dosyayı çalmak.

Orion · 06-06-2010, 01:09

Merhaba.
Vbnet 2008 ile yolunu belirttiğim bir vaw formatlı ses dosyasını bir kere çaldırmak istiyorum.
Teşekkür ederim. Smile

modalı · 06-06-2010, 09:54

Sayın orion,

Visual Basic
// Disk üstündeki bir dosyayı direkt çaldırmak
Dim objPlayer As New SoundPlayer
objPlayer.SoundLocation = "C:\Alert.wav"
objPlayer.Play()
 
// Herhangi bir uygulamaya gömülmüş dosyayı çaldırmak
Dim objPlayer As New SoundPlayer
objPlayer.Stream = GetEmbeddedResourceStream()
objPlayer.Play()
 
Protected Function GetEmbeddedResourceStream() As Stream
  Dim objAssembly As System.Reflection.Assembly
  Dim soundstream As Stream
  objAssembly = System.Reflection.Assembly.LoadFrom(Application.ExecutablePath)
  soundstream = objAssembly.GetManifestResourceStream("Alert.wav")
  return soundstream 
End Function

İyi çalışmalar

Orion · 06-06-2010, 20:57

Üstadım teşekkür ederim
2nci bölüm boş bir standart modüle yazdım hatalar verdi.
Onu sonraya bıraktım.
İlk bölümdede dim satırında hataverdi.
Aşağıdaki New SoundPlayer kelimesinin altını mavi çizerek hata verdi.

Visual Basic
// Disk üstündeki bir dosyayı direkt çaldırmak
Dim objPlayer As New SoundPlayer
objPlayer.SoundLocation = "C:\Alert.wav"
objPlayer.Play()

beab05 · 06-06-2010, 22:09

Merhaba;

Alttaki gibi düzeltiniz.

vb.net
Dim objPlayer As New System.Media.SoundPlayer

Ya da "Imports System.Media" ekleyiniz. Kod sayfanızın en üstüne..

Orion · 06-06-2010, 22:40

(06-06-2010, 22:09)Berkant Öztürk demiş ki: Merhaba;

Alttaki gibi düzeltiniz.
vb.net
Dim objPlayer As New System.Media.SoundPlayer
Ya da "Imports System.Media" ekleyiniz. Kod sayfanızın en üstüne..

Berkant bey ilk bölüm oldu.Çalıştı.Teşekkür ederim.
2nci bölümde hata aldım.Çalıştıramadım.Yani fonksiyonu.
Boş bir satandart modüle attım .ama hata verdi
Protected ve Stream kelimelerinin altını çizdi.
Kod aşağıda.Amacım bu fonksiyonu boş standart bir modüle yazmak ve diğer formlardan çalıştırmak.

vb.net
Module Module4
    Protected Function GetEmbeddedResourceStream() As Stream
        Dim objAssembly As System.Reflection.Assembly
        Dim soundstream As Stream
        objAssembly = System.Reflection.Assembly.LoadFrom(Application.ExecutablePath)
        soundstream = objAssembly.GetManifestResourceStream("Alert.wav")
        Return soundstream
    End Function
End Module

beab05 · 06-06-2010, 23:08

Modulun en üstüne;

vb.net
Imports System.IO

ekleyiniz ve fonksiyonu Public olarak başlatın..

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	vbnet acsess bağlantısında dlookup kullanımı	kokotuna	2	1.756	10-04-2014, 09:36 Son Mesaj: kokotuna
	VBNET 2008 Userform hep üstte oluyor.	Orion	2	2.516	10-11-2011, 18:44 Son Mesaj: Orion
	VBNET alternatif msgbox	Orion	3	3.181	10-09-2010, 18:20 Son Mesaj: omaTR
	VBNET-2008 Yeni bir txt dosyası oluşturmak ve veri girmek	Orion	7	10.411	21-07-2010, 15:30 Son Mesaj: qnill
	VBNET 2008 Listviewde font style öğrenmek	Orion	1	1.994	03-07-2010, 10:59 Son Mesaj: Orion
	VBNET 2008 Shared değiişken tanımlama.	Orion	2	2.740	30-06-2010, 08:13 Son Mesaj: Orion
	VBNET 2008 Comboboxta Pr.nterleri listelemek	Orion	5	2.995	29-06-2010, 21:20 Son Mesaj: assenucler
	VBNET 2008 #Region	Orion	4	3.970	28-06-2010, 16:52 Son Mesaj: Orion

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL