+- 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ığı: Cvp: media player çalıştır (/konu-cvp-media-player-calistir.html)
Sayfalar:
1
2
alarm kur - accessman - 21/09/2012
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 Ifarkadaş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 Subistediğ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 Functionaynı 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/access03_basvuru_kutuphanesi.asp
adresinde anlatılanları yaptım ama olmuyor
media player çalıştır - accessman - 21/09/2012
iyi günler
http://bilgiteknoloji.net/access/access03_basvuru_kutuphanesi.asp
adresinde anlatılan media player çalıştırmak istiyorum ama yapamadım
örneğime bakabilirmisiniz
teşekkürler
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/190698-shell-media-player-play-file-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 SubCvp: media player çalıştır - ozguryasin - 21/09/2012
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.
Cvp: media player çalıştır - boolean_ - 21/09/2012
Sayın alpeki hocamın 6. mesajdaki örneğini inceleyin size yol gösterecektir.
Cvp: Cvp: media player çalıştır - accessman - 28/09/2012
keşke 2010 olmaayaydı
Cvp: media player çalıştır - boolean_ - 28/09/2012
O zaman size 2003 olarak ekleyelim böyle bir inceleyin çalışmayı.