Timer Alarm

[acms]

im having trouble gettin a wav fiile to play heres my code
i uploaded the vbp files

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
 
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
 
Private Sub Command3_Click()
Dim timer
timer = Text4
Open App.Path & "\" + timer + ".txt" For Output As #1
Write #1,
Close #1
 
End Sub
 
Private Sub Command4_Click()
If alarm1.Text = Text1.Text And alarm2.Text = Text2.Text And alarm3.Text = Text3.Text Then play.Enabled = True
 
End Sub
 
Private Sub Command5_Click()
play.URL = Text6.Text
End Sub
 
Private Sub Form_Load()
 
End Sub
 
Private Sub Timer1_Timer()
Text3.Text = Text3.Text + 1
If Text3.Text = 60 Then
Text2.Text = Text2.Text + 1
Text3.Text = 0
If Text2.Text = 60 Then
Text1.Text = Text1.Text + 1
Text2.Text = 0
If alarm1.Text = Text1.Text And alarm2.Text = Text2.Text And alarm3.Text = Text3.Text Then play.Enabled = True
End If
End If
 
End Sub
 
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
 
End Sub

[i00]

i havent looked through your code but if the problem is just with playing the file and you dont need to seek the wav file or anything later you can use this method:

http://www.freevbcode.com/ShowCode.asp?ID=19

[Hack]

Define "trouble" - what is happening that shouldn't happen (or what is not happening that should)?

[acms]

Define "trouble" - what is happening that shouldn't happen (or what is not happening that should)?

the user can define the path of an alarm sound but when the alarm should go of it doesnt

[gavio]

What is "Play"? Is it a WindowsMediaPlayer Control?

[acms]

What is "Play"? Is it a WindowsMediaPlayer Control?

yes it is

[gavio]

Try:

play.Controls.play