VB.NET MediaPlayer Kalan Süreyi Hesaplamak

0
40
Visual Studio
Visual Studio

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

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

1 YORUM

CEVAP VER

Lütfen yorumunuzu yazın
Lütfen adınızı ve soyadınızı yazın.