Entering TimeValue

Hi, I have MIDI sound file and want my pc to play this sound at 1:30:30 PM. outomatically when the pc is on. having problem with the rigt way of entering hours,minutes and seconds.

THANKS;

You can create a small application with a Timer control on it. Drop as Timer control on a Form and change it's Interval property to 1000

Code:

---

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long


Private Sub Timer1_Timer()
    Static dtTime As Date
    Dim lRet As Long
    Dim strMidi As String
   
    dtTime = Time
    If dtTime = #1:30:30 AM# Then
        strMidi = "C:\MyFolder\MyMIDI.mid"
        lRet = mciSendString("open " & strMidi & " Type sequencer Alias MFile", 0&, 0, 0)
        lRet = mciSendString("play MFile", 0&, 0&, 0&)
    End If
End Sub

---

------------------

Serge

Software Developer
[email protected]
[email protected]
ICQ#: 51055819