Будильник.....

[saddam]

Здравствуйте все!
У меня вот вопрос: как сделать, чтобы в поле с переключателем отображалась системное время или время, когда начнётся отсчёт таймера , а в другом поле настраивалось время, в которое будильник должен подать сигнал.
Заранее спасибо.

[Ramauf]

Private Sub Button1_Click()
Button1.Caption = Time
Button1.Caption = Hour(Time)
Button1.Caption = Minute(Time)
Button1.Caption = Second(Time)
End Sub

[Lobo]

Код: Выделить всё

Private Sub cmdStart_Click()
        m_lTimeLeft = CLng(Val(txtMin.Text)) * 60 + CLng(Val(txtSec.Text))
End Sub

Private Sub tmrSec_Timer()
   
    m_lTimeLeft = m_lTimeLeft - 1
    lblTime.Caption = ShowTime()
    If m_lTimeLeft <= 0 Then
        Call TimeOver
    End If
End Sub