Visual Basicte MP3 çalma kodu örnek uygulamalar

 
Bu konu ile benzer olabilecek diğer forum sayfaları
 
 
 
 
visual basic programında windows media player tarzı mp3,vav,vmv gibi ses dosyalarını oynatabilen programı hazırlamam lazım daha dogrusu kodlar lazım yardımcı olursanız sevinirim.
 
 

 
 
visual basic programında windows media player tarzı mp3,vav,vmv gibi ses dosyalarını oynatabilen programı hazırlamam lazım daha dogrusu kodlar lazım yardımcı olursanız sevinirim.

2 örnek.

1:
Kod: [Seç]
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long

Private Sub Command1_Click()

Dim Hata As Long
Dim HataMesaji As String * 128

yeni1 = App.Path & "\1.mp3" '1. müzik

mciSendString "close Yenises", 0, 0, 0 'Durdur

Hata = mciSendString("open " & Chr$(34) & yeni1 & Chr$(34) & " alias YeniSes", 0, 0, 0) 'Mesajı gönderiyoruz
mciGetErrorString Hata, HataMesaji, 128
'MsgBox HataMesaji 'Hata Mesajını Alıyoruz ' kaldırdık
mciSendString "play YeniSes", 0, 0, 0 'Çal

End Sub

Private Sub Form_unLoad(cancel As Integer)

mciSendString "close Yenises", 0, 0, 0 'Durdur

End Sub



2:
Kod: [Seç]
Microsoft DirectX9 ile mp3 çalar
Imports Microsoft.DirectX.AudioVideoPlayback


'Bu programın çalışabilmesi için
    'References sağ tıklayıp Microsoft.DirectX.AudioVideoPlayback dahil edilmeli
    'Yardım için ibisseref@hotmail.com          www.vbkodindir.com
    Dim müzk As Audio
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim opfdlg As New OpenFileDialog
        opfdlg.Filter = "Mp3 dosyaları (*.mp3)|*.mp3"
        If opfdlg.ShowDialog = DialogResult.OK Then
            müzk = New Audio(opfdlg.FileName)
            müzk.Play()
        End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        müzk.Stop()
End Sub




 ~ 

Bu konunun linki : 

Yukarıdaki linki arkadaşlarınıza göndermek için kullanabilirsiniz ve bu sayfada; Visual Basicte MP3 çalma kodu örnek uygulamalar hakkında bilgiler nedir yazıları veya şiirleri gibi sözleri veya resimleri Visual Basicte MP3 çalma kodu örnek uygulamalar siteleri gibi benzer birçok forum konularını bulabilirsiniz.

 ~ 

Son Forum Mesajları

Kaynak linkimizi belirtmek koşulu ile her türlü bilgiyi kopyalayabilirsiniz. Forum içerisinde yazılan tüm mesajların hukuki sorumlulukları mesajları yazanlara aittir. Üyeler, üyelik sözleşmesi gereği bu kuralı kabul etmiş sayılır. Ziyaretçilerimiz bu forumu kullanmadan önce Forum Kurallarını okumak zorundadırlar. Aksi durumda meydana gelecek bütün olumsuz durumlardan ziyaretçilerin bizzat kendileri sorumludur. Sitemizde telif, kişi haklarına; yasalara aykırı olduğunu düşündüğünüz bir konu görürseniz bize aşağıdaki iletişim adresinden ulaşabilirsiniz.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60 100, 150, 200, 250, 300, 350, 400, 450, 500, 550, 600, 650, 700, 750, 800, 850, 900, 950, 960

© 2006-2019 ilgiliFORUM.com