ses çalmak istiyorsan'Formun Declarations BlümünePrivate Declare Function sndPlaySound Lib "winmm. dll" Alias_"sndPlaySoundA" As Long'Formun Ana Kısmınaprivate sub form_load sndPlaySound "ses. wav",0end sub işte geldik gidiyoruz bilinmez diyara, Eskiden karpuz idik şimdi dndük bir hıyaraaaaa

mplayerin ocx ini kullanabilirsin. Ya da directx i kullanarak mp3 çaldırabilirsin.. Zamanında bi makale yazmıştım vbasicmaster.com da.. kodlar burda Bir çok kişi directx ile neler yapıldığını bilmiyor, bazı animasyonları, sesleri ve daha çok şeyleri bildiğiniz directx ile yapabilirsiniz. Ses dosyası çalmak için karşı tarafta media player yüklü mü, versiyonu deskteler mi gibi sorular da ortadan kalkacak, çünkü directx her windows ile standart olarak gelmekte, win98 de 6.5 sürümü sanırım.. xp de de 8.0 :) şimdi biz directx in quarz. dll dosyasını kullanacağız.. Bununla mp3 ümüzü çaldıracağız.. ncelikle menüden project > Referanceden quarz. dll yi ekleyin, system32 içinde olacaktır'Sonra bir modül oluşturun ve bu kodları yapıştırınDim Player As FilgraphManager'MediaPlayer olmadan mp3 çalma. DirectX yardımı ile 'çalma kodumuzSub StartPlay Set Player = New FilgraphManager 'Player Player. RenderFile dosya 'Dosya yükle Player. Run ' playeri çalıştır End Sub'durma kodumuzSub dur If Player Is Nothing Then Exit Sub Player. StopEnd Submodülde dur ve çal olarak iki değer belirttik bunu formumuzda kullanarak istediğimiz dosyayı çalacağızşimdi formumuza iki buton koyalım'çal butonuPrivate Sub Command1_Click Call StartPlay("C:\müzikler\aaaa. mp3" ) ' belirtilen yoldaki müziği çalarEnd Sub'durdur butonuPrivate Sub Command2_Click durEnd Subbu kodla mp3 ve wma larını çaldırabilirsiniz, denemedim ama midi ve mpeg belki avi bile çaldırabilirsiniz :)eksiklerim varsa affola.. Kod tamamen bana aittir İyi çalışmalar Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...

ya ben bu sekilde baya bi muzik dosyaso koydum ama hepsi aynı anda caliyor onları nasil durdurcaz play diyince calsınlar Her zaman derim = Bilmemek Ayıp deil grenmemek Ayıp

merhaba ben buttona bir wav koyutorum buttona basınca sarkı caliyor ve durana kadar program yanıt veriyor yani donuyor Bir modül açacaksın ve modüle şunları ekleyeceksin Public Declare Function sndPlaySound Lib "winmm. dll" Alias "sndPlaySoundA" As Long Public Declare Sub Sleep Lib "kernel32" Public Const SND_SYNC = &H0 ' senkron çalma Public Const SND_LOOP = &H8 ' işlem sonuna kadar dn Public Const SND_NOSTOP = &H10 ' wav bitinceye kadar durma ' 'Bunuda wav çalmak istediğin yere koy. 'If NOT Trim(Dir ="" demezsek, wav dosyası bulunamazsa hata vermeyecektir. Bunun için ekledik ;) ' Dim Dosya Dosya = "c:\falanca. wav" 'kendi dosyanı tanımla If Not Trim(Dir ="" Then sndPlaySound Dosya, SND_NOSTOP End If bana program acilinca direk kendi kendine müzik calmasını istiyorum ha Her zaman derim = Bilmemek Ayıp deil grenmemek Ayıp

forma mmcontrol nesnesi ekleyebilirsin. daha kolay olur The king is bleeding.

Sorunu Cozdum burdada aciklayayim dedigin gibi olunca yine donuyor muzik bitene kada rprogram once formun uzerine 1 tane components den windows media player nesnesi ekle adını wm1 yaptım ben. calismasini istedigin muzigin adresini gir Private Sub Form_Load wm1. URL = "C:\Documents and Settings\CELIK\Belgelerim\Müziğim\Cengiz zkan - Anam Ağlar Başucumda. mp3" End Sub Her zaman derim = Bilmemek Ayıp deil grenmemek Ayıp