AccessTr.neT
access müzik - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: access müzik (/konu-access-muzik.html)

Sayfalar: 1 2

access müzik - burak2444 - 06/11/2010

mrb arkadaslar arama yaptım fakat bulamadım acaba access'e müzik ekleyebilirmiyiz ? forma girince mesela müzik çalsın

Cvp: access müzik - ogulcan92 - 06/11/2010

Sn:burak2444
Aşağıdaki örneği inceleyiniz.

Cvp: access müzik - okileturc - 06/11/2010

WAV dosyaları için function



Option Compare Database

 Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" _

    (ByVal filename As String, ByVal snd_async As Long) As Long

  Function PlaySound(sWavFile As String)

    ' Purpose:  Plays a sound.

    ' Argument: the full path and file name.

    If apisndPlaySound(sWavFile, 1) = 0 Then

        MsgBox "The Sound Did Not Play!"

    End If

  End Function

Kullanımı :
PlaySound "çalınacakdosyanınyoluveadı"

Kolay gelsin

Cvp: access müzik - burak2444 - 06/11/2010

sn. okileturc abi verdiğiniz kodlardan tam olarak nereye giricem dosya yolunu
ve sn. ogulcan92 abi verdiğiniz örnekteki kodları kendi formumda kullanmak istiyorum fakat değiştrmem ereken yerler neresiii çözemedim

Cvp: access müzik - ogulcan92 - 06/11/2010

Sn:burak2444
Sn:okileturc hocanın vermiş olduğu kodu formun load olayına yada bir butonun cilck olaynına aşağıdaki şekilde yazınız ve dosyanzın yanına mizik dosyasını ekleyiniz.
PlaySound=CurrentProject.Path & "\Hacel Obasını.wav"
Benim eklediğin örnekte ise aşağıdaki kodda Hacel obası olanı kendi eklediğiniz mp3 adı ile değiştiriniz.
Private Sub Form_Load()

Dim Hata As Long

Dim HataMesaji As String * 128

Hata = mciSendString("open " & Chr$(34) & CurrentProject.Path & "\Hacel Obasını.mp3" & Chr$(34) & " alias YeniSes", 0, 0, 0)

mciGetErrorString Hata, HataMesaji, 128

End Sub


Cvp: access müzik - burak2444 - 06/11/2010

yok abi ya olmuoyr :S

Private Sub Form_Load()

Dim Hata As Long

Dim HataMesaji As String * 128

Hata = mciSendString("open " & Chr$(34) & CurrentProject.Path & "\Hacel Obasını.mp3" & Chr$(34) & " alias YeniSes", 0, 0, 0)

mciGetErrorString Hata, HataMesaji, 128

End Sub

bu kodu form yüklendiğinde kısmına yapıstrdm çalıstırınca Chr$ kısmında hata gösteriyor