VB.NET MediaPlayer Kalan Süreyi Hesaplamak

10
104
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

10 YORUMLAR

  1. Paylaşımınız için teşekkürler güzel bir paylaşım işime çok yaradı .Size bir sorum olacak visual basicde maus butonun üzerine gelince butonun resmi değişmesini mausu çekince eski haline gelmesini istiyorum bunu nasıl yapabilirim

  2. Şöyle bir kod yazdım fakat nesne ayarlanamadı diye hata alıyorum hatayı bir türlü bulamadım yardımcı olabilirmisiniz

    Private Sub Button6_MouseEnter(sender As Object, e As EventArgs) Handles Button6.MouseEnter
    Button6.BackgroundImage = Properties.Resources.Kapat
    End Sub

    Private Sub Button6_MouseLeave(sender As Object, e As EventArgs) Handles Button6.MouseLeave
    Button6.BackgroundImage = Properties.Resources.Kapat2
    End Sub

CEVAP VER

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