Skip to main content

AccessTr.neT


access müzik

access müzik

Çözüldü #1
mrb arkadaslar arama yaptım fakat bulamadım acaba access'e müzik ekleyebilirmiyiz ? forma girince mesela müzik çalsın
Cevapla
Çözüldü #2
Sn:burak2444
Aşağıdaki örneği inceleyiniz.
.rar Mp3_Access.rar (Dosya Boyutu: 1,58 MB | İndirme Sayısı: 75)
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla
Çözüldü #3
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
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #4
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
Son Düzenleme: 06/11/2010, 22:39, Düzenleyen: burak2444.
Cevapla
Çözüldü #5
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
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla
Çözüldü #6
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
Son Düzenleme: 06/11/2010, 23:18, Düzenleyen: burak2444.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da