Bilgi-Sayar.NET Menu

ADRES:

VB.NET | MediaPlayer Kalan Süreyi Hesaplamak

(yoruma kapalı)

Uygulamanız üzerinde bulunan bir MediaPlayerda çalan ses dosyasının bitimine kalan süreyi hesaplamak için aşağıdaki kodu kullanabilirsiniz.



VB.NET | MediaPlayer Kalan Süreyi Hesaplamak
Gereken Nesneler ve Nesne Adları
AxMediaPlayer1
Timer1
Label1

Mediaplayer’a bir ses dosyası bağlamak(oynatmak) için;

AxWindowsMediaPlayer1.URL = "C:\\Test.mp3"

Kalan Süreyi Hesaplayan Kodlar

Kalan süreyi hesaplayacak kodları bir Timer’in Tick olayına(eventına) ekliyoruz. Timer’in Interval değerini 1000 yapıyoruz. Bu şekilde kalan süreyi hesaplayan kodlar her saniyede bir çalıştırılarak Label1’deki veri güncel tutucaktır.

If AxWindowsMediaPlayer1.URL "" Then
Dim Kalan As Int32 = AxWindowsMediaPlayer1.currentMedia.duration - AxWindowsMediaPlayer1.Ctlcontrols.currentPosition
Dim Dakika, Saniye, GecenZaman As String
Dakika = (Kalan / 60).ToString("00")
Saniye = (Kalan Mod 60).ToString("00.00")
GecenZaman = Dakika & "." & Saniye
Label1.Text = GecenZaman
End If

Bir önceki yazımız olan HTML İlk Sayfa başlıklı makalemizde html, html ilk sayfa ve html sayfa yapısı hakkında bilgiler verilmektedir.