Cvp: media player çalıştır

1 2
21/09/2012, 09:43

accessman

iyi günler
hayırlı cumalar
benim her perşembe
saat 14:15 de bir müzik dosyasını otomatik olarak açtırmam gerekiyor
if li cümleyi nasıl yazmalıyım
*********
if date() = perşembe then
if now()= 14:15:00 then
ilgili müzik dosyasını çalıştır
end if
end if
*********
kodunu tam olarak nasıl olmalı
müzik dosyasını çalıştırma kısmını biliyorum
ama if li satırlar tam olarak nasıl olacak
teşekkürler
Kod:
If Format(Date, "dddd") = "perşembe" Then
    If Format(Now, "hh:mm") = "14:15" Then
        MsgBox "Bugün Perşembe Saat 14:15"
    End If
End If
şeklinde olacakmış
arkadaşlar
Kod:
Private Sub Form_Timer()
If Format(Date, "dddd") = "cuma" Then
If Format(Now, "hh:mm") = "12:04" Then
PlaySound ("D:\HTS\510.wav")
End If
End If
End Sub
ile müzik dosyası çalışmaya başlıyor
istediğim bu Access programı kapatılsa bile
müzik dosyasının çalışmaya devam etmesi
mesela media player çalıştırılsa nasıl Access programı kapansa bile media player devam ediyor nasıl yapabilirim
teşekkürler
Kod:
Public Function press(kaynak As String, hedef As String)
Dim krl

hedef = hedef & "7z" ' hedef dosya adını yol ve dosyaya vereceğiniz isim şeklinde yazın C:\kural gibi böylece c: sürücüsünde kural7.z dosyasına sıkıştıracaktır.

If FileExists("C:\Program Files (x86)\7-Zip\7z.exe") = True Then

krl = "C:\Program Files (x86)\7-Zip\7z.exe"  'sizdeki yeri nereyse onu yazın
Shell (krl & " a -t7z " & hedef & " -r " & kaynak & " -m0=BCJ -m1=LZMA:d=21 -ms -mmt"), vbHide
'MsgBox ("veritabanı var") 'c:\veritabanları\web.mdb dosyası var ise çalışacak kod buraya
Else
MsgBox ("HEDEF KLASÖR MEVCUT DEĞİL")
'c:\veritabanları\web.mdb dosyası yok ise çalışacak kod buraya
End If
'MsgBox kaynak & " Dosyası " & hedef & " Dosyası Adı İle Arşivlenmiştir."
End Function

bu kod ile 7z.exe programı çalıştırılarak programın içinden belirlenen kaynak ve hedefe göre sıkıştırma yapılıyor
aynı bunun gibi media player da çalıştırılabilir mi
ve de
liste kutusundan seçtiğimiz bir adrese göre mesela (c:\yerli\sanat\güller.wav ) gibi
ilgili ses dosyasını media player ile açabilirmiyiz
teşekkürler
http://bilgiteknoloji.net/access/access0...hanesi.asp
adresinde anlatılanları yaptım ama olmuyor
21/09/2012, 14:36

accessman

iyi günler
http://bilgiteknoloji.net/access/access0...hanesi.asp
adresinde anlatılan media player çalıştırmak istiyorum ama yapamadım
örneğime bakabilirmisiniz
teşekkürler
mediaplayer.rar

yapmaya çalıştığım şey
media player Access den bağımsız çalışsın
access olayı başlatsın
access kapanmakla media player kapanmasın
shell le olacaksa öyle olur
yani Access den müzik dosyasının adresini alsın
bu adrese göre media playeri başlatsın
onun için formda media player olmasını istemiyorum
herhangi bir exe li programı çalıştırıyor gibi olacak
ama adres bilgisini acessden alacak
teşekkürler
şu adreste
http://www.dreamincode.net/forums/topic/...ile-error/
şöyle bir kod var
acaba faydası olur mu
Kod:
Private Sub watchNow_Click(ByVal sender As Object, ByVal e As EventArgs)

'get the position of the selected node
Dim i = movieTreeView.SelectedNode.Index

'get the specific directory
Dim tempMoviePath = directoryName(i)

'add extension
'Dim MoviePathAVI = String.Concat("""" + tempMoviePath, ".avi" + """")
Dim MoviePathVTS As String = String.Concat("""" + tempMoviePath, " \VIDEO_TS\VTS_01_1.VOB" + """")


Dim openMediaPlayer As String
openMediaPlayer = "C:\Program Files\Windows Media Player\wmplayer.exe"

' Dim video1 = """F:\Movies\DvD\Angels and Deamons\VIDEO_TS\VTS_01_1.VOB"""

Try
Shell(openMediaPlayer & " " & MoviePathVTS, AppWinStyle.MaximizedFocus)

Catch ex As Exception
'Do Nothing
End Try

End Sub
21/09/2012, 17:01

ozguryasin

sn. accessman yazmış olduğunuz mesajdan sonra başka bir mesaj yoksa lütfen mesaj güncellemesi yapınız.
mesajlarınız birleştirilmiştir.
21/09/2012, 17:33

boolean_

Sayın alpeki hocamın 6. mesajdaki örneğini inceleyin size yol gösterecektir.
28/09/2012, 09:43

accessman

keşke 2010 olmaayaydı
28/09/2012, 13:06

boolean_

O zaman size 2003 olarak ekleyelim böyle bir inceleyin çalışmayı.

ornek.rar
1 2