✔ [VB.NET] Countdown

[D34DL1NES]

Hallo,

weiß vielleicht jemand, wie man in VB.NET ein Label dazu bringt (sorry für diese beschreibung) einen Countdown dessen Länge vorher angegeben werden kann herunterzählt und nach beenden des Countdowns einen Sound abspielt? Ach ja, außerdem währe es schön, wenn der Fortschritt in einer ProgressBar angezeigt werden könnte.

Danke schon mal im vorraus.

 

[wincnc]

Hallo

Dazu benötigst Du ein Label, eine TextBox, einen Timer, eine Progressbar und einen Button.

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = TextBox1.Text
        ProgressBar1.Value = 0
        ProgressBar1.Maximum = CType(TextBox1.Text, Integer)
        Timer1.Start()
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Timer1.Interval = 1000
    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim N As Integer = CType(Label1.Text, Integer)
        Label1.Text = CType(N - 1, String)
        ProgressBar1.Value = ProgressBar1.Value + 1
        If N = 1 Then
            Timer1.Stop()
            My.Computer.Audio.Play("C:\WINDOWS\Media\tada.wav")
        End If
    End Sub
End Class

 

[D34DL1NES]

Wow, vielen Dank, werde es nachher gleich ausprobieren.

 

[D34DL1NES]

Danke, funktioniert einwandfrei, allerdings wäre es schön, wenn in Minuten gezählt werden würde.

 

[Norbert Eder]

Tipp: Schlag mal bei Timer.Intervall nach...

 

[D34DL1NES]

JO, danke euch, bin fertig.