folder Tahribat.com Forumları
linefolder Visual Basic - Basic - PicBasic ve Türevleri
linefolder Vb "De Müzik Dinletmek



Vb "De Müzik Dinletmek

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Aloryan
    Aloryan's avatar
    Kayıt Tarihi: 07/Mart/2007
    Erkek
    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" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

    Public Const SND_SYNC = &H0 ' senkron çalma
    Public Const SND_LOOP = &H8 ' işlem sonuna kadar dön
    Public Const SND_NOSTOP = &H10 ' wav bitinceye kadar durma


    '******************
    'Bunuda wav çalmak istediğin yere koy.
    'If NOT Trim(Dir(Dosya))="" demezsek, wav dosyası bulunamazsa hata vermeyecektir. Bunun için ekledik ;)
    '*****************************

    Dim Dosya
    Dosya = "c:\falanca.wav" 'kendi dosyanı tanımla
    If Not Trim(Dir(Dosya))="" Then
    sndPlaySound Dosya, SND_NOSTOP
    End If



    bana program acilinca direk kendi kendine müzik calmasını istiyorum ha ( programmüzik bitene kadar donmasın )
    Her zaman derim = Bilmemek Ayıp deil Ögrenmemek Ayıp
    Reply With Quote Alıntı yap
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Tabela Fatihi
    kaygusuz
    kaygusuz's avatar
    Kayıt Tarihi: 06/Nisan/2007
    Erkek

    ses çalmak istiyorsan

    'Formun Declarations Bölümüne
    Private Declare Function sndPlaySound Lib "winmm.dll" Alias_
    "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal_
    uFlags As Long) As Long
    'Formun Ana Kısmına
    private sub form_load()
    sndPlaySound "ses.wav",0
    end sub

    Türkiye’deki emekli yaşlı insanları sevmiyorum. Ailemde emekli olanlarda dahil. Geleceğimizin çalınmasına izin verdiler. Umarım ızdırap dolu bir çileli hayat çekip elveda deyip bu dünyadan gidersiniz. Siz gençleri zırnık düşünmediniz hayallerini mahvettiniz.14.500TL ile hiçbirşey almadan karnınızı doyurun gelecek nesili düşünmeden yaşadığınızı sanıp gidin bu dünyadan.
    Reply With Quote Alıntı yap
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Aloryan
    Aloryan's avatar
    Kayıt Tarihi: 07/Mart/2007
    Erkek

    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
    Reply With Quote Alıntı yap
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Aloryan
    Aloryan's avatar
    Kayıt Tarihi: 07/Mart/2007
    Erkek
    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
    Reply With Quote Alıntı yap
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Hunter
    j4x
    j4x's avatar
    Kayıt Tarihi: 16/Temmuz/2005
    Erkek
    forma mmcontrol nesnesi ekleyebilirsin.daha kolay olur
    The king is bleeding.
    Reply With Quote Alıntı yap
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    ertan
    ertan's avatar
    Kayıt Tarihi: 21/Temmuz/2005
    Erkek

    mplayerin ocx ini kullanabilirsin. Ya da directx i kullanarak mp3 çaldırabilirsin.. Zamanında bi makale yazmıştım vbasicmaster.com da.. (cukurova ya tsk iletiyorum:))

    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ın


    Dim Player As FilgraphManager


    'MediaPlayer olmadan mp3 çalma.DirectX yardımı ile (quarz.dll)


    'çalma kodumuz

    Sub StartPlay(dosya As String)

       Set Player = New FilgraphManager   'Player
       Player.RenderFile dosya   'Dosya yükle
       Player.Run  ' playeri çalıştır
     

    End Sub

    'durma kodumuz

    Sub dur()

     If Player Is Nothing Then Exit Sub
        Player.Stop
    End Sub

    modülde dur ve çal olarak iki değer belirttik bunu formumuzda kullanarak istediğimiz dosyayı çalacağız


    şimdi formumuza iki buton koyalım

    'çal butonu

    Private Sub Command1_Click()
    Call StartPlay("C:\müzikler\aaaa.mp3" )  ' belirtilen yoldaki müziği çalar
    End Sub


    'durdur butonu

    Private Sub Command2_Click()
    dur
    End Sub

    bu 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 göre karşıma gelin...
    Reply With Quote Alıntı yap
Toplam Hit: 2088 Toplam Mesaj: 6