"Будильник". Задается время включения звукового сигнала и интервал времени для таймера - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д