"Будильник". Задается время включения звукового сигнала и интервал времени для таймера - VB

Узнай цену своей работы

Формулировка задачи:

помогите исправить код, не повторяет повтор сигнала через заданное время Задание: Создать программу «Будильник» Задавать время включения звукового сигнала и интервал времени для таймера

Решение задачи: «"Будильник". Задается время включения звукового сигнала и интервал времени для таймера»

textual
Листинг программы
Dim AlarmSounded As Boolean, md As Integer, mm As Integer
 
Private Sub About_Click()
    Form3.Show
End Sub
 
Private Sub End_Click()
    End
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    End
End Sub
 
Private Sub Signal_Click()
Form2.Show
End Sub
 
Private Sub Timer1_Timer()
tim.Caption = Time
dat.Caption = Date
md = Val(Form2.Text1.Text)
If Time = Text1.Text And Not AlarmSounded Then
         Beep
         Text1.Text = ""
         AlarmSounded = True
         If Form2.Check1.Value = 1 Then
            Select Case MsgBox("                 Время " + Str(Time) _
            & vbCrLf & "" & vbCrLf & "Выберите 'Повтор' для повтора сигнала через" + Str(md) + " мин, " _
            & vbCrLf & "Выберите Отмена для выключения будильника", 53, "Время")
                Case 4
                    mm = Minute(Time)
                    If (mm + md) >= 60 Then mm = (mm + md) - 60 Else mm = mm + md
                    Text1.Text = CStr(Hour(Time)) & ":" & CStr(mm) & ":" & CStr(Second(Time))
                    Text1.Text = CDate(Text1.Text)
                    AlarmSounded = False
                Case 2
            End Select
        Else
            MsgBox "Время " + Str(Time), 48, "Время"
        End If
        ElseIf Time < Text1.Text Then
    AlarmSounded = False
End If
 
End Sub
 
Private Sub Command1_Click()
Form2.Hide
Timer1.Enabled = True
    If Text1.Text = "" Then Exit Sub
    If Not IsDate(Text1.Text) Then
       MsgBox "Неверный формат времени!", vbCritical, "Внимание!"
    Else
       Text1 = CDate(Text1.Text)
    End If
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4.2 из 5
Похожие ответы