Hi!
Ich habe einen Countdown programmiert. Wenn dieser nun auf 0 ist, soll eine bestimmte Wav Datei abgespielt werden.
Der bisherige Code sieht so aus:
Könnte mir da jmd. sagen, wie ich die Datei tada.wav (Windows/Media/) abspiele ,wenn der timer auf 0 ist?
1000 DANk im Vorraus
Ich habe einen Countdown programmiert. Wenn dieser nun auf 0 ist, soll eine bestimmte Wav Datei abgespielt werden.
Der bisherige Code sieht so aus:
Code:
Option Explicit
Dim I As Integer
Private Sub accept_Click()
I = Text1.Text
End Sub
Private Sub back_Click()
Timer1.Enabled = False
Text1.Text = "0"
Label1.Caption = "0"
I = 0
Start.Caption = "Start"
End Sub
Private Sub Ende_Click()
End
End Sub
Private Sub Form_Load()
Timer1.Tag = I
Timer1.Interval = 1000
End Sub
Private Sub Start_Click()
If Timer1.Enabled = False Then
Timer1.Enabled = True
Start.Caption = "Anhalten"
Else
Timer1.Enabled = False
I = Label1.Caption
Start.Caption = "Fortsetzen"
End If
End Sub
Private Sub timer1_timer()
If I <= 0 Then
Timer1.Enabled = False
End If
Label1.Caption = Str(I)
I = I - 1
End Sub
Könnte mir da jmd. sagen, wie ich die Datei tada.wav (Windows/Media/) abspiele ,wenn der timer auf 0 ist?
1000 DANk im Vorraus
Zuletzt bearbeitet von einem Moderator: