- Код: Выделить всё
Option Explicit
Dim Время_на_часах As Date ' Так как мы анализируем время на часах, то объявляем как переменную
Dim Будильник_установлен As Boolean ' А Эта переменная принимает только два значения- true и false и нужна она нам для работы будильника
Private Sub Включить_будильник() 'какие действия производятся при срабатывании этой процедуры
Будильник_установлен = True ' присваиваем значение переменной, от которого будет зависеть работа будильника
Метка_будильника.Caption = "Будильник установлен на:" 'Меняем надпись над циферблатом будильника
Кнопка_включения_выключения_будильника.Caption = "Выключить будильник" 'Меняем надпись на кнопке
End Sub
Private Sub Выключить_будильник() 'какие действия производятся при срабатывании этой процедуры
Будильник_установлен = False ' присваиваем значение переменной, от которого будет зависеть работа будильника
Метка_будильника.Caption = "Будильник отключен" 'Меняем надпись над циферблатом будильника
Кнопка_включения_выключения_будильника.Caption = "Включить будильник" 'Меняем надпись на кнопке
End Sub
Private Sub Включить_сигнал_будильника() 'Проедура которая воспроизводит музыкальный файл
плеер.Command = "close" 'Закрывает музыкальный файл(это для корректной работы проигрывателя, если мы до этого забыли закрыть)
плеер.Command = "open" 'Открываем музыкальный файл
плеер.Command = "play" 'Проигрываем музыкальный файл
End Sub
Private Sub Смена_даты_и_дня_недели() 'процедура, которая производит смену даты и дня недели(обноврение ее)
Циферблат_даты.Text = Date 'Обновляет дату на циферблате даты
Циферблат_дня_недели.Text = WeekdayName(DatePart("w", Date, vbMonday)) ' обновляет день недели на циферблате дня недели
End Sub
Private Sub Form_Load() 'что будет происходить при загрузке формы
плеер.DeviceType = "WaveAudio" 'Указывает какой тип музыкальных файлов будет проигрывать проигрыватель
плеер.FileName = "C:\Users\Vdekameron\Desktop\wav\Эй толстый - Уматурман.wav"
Смена_даты_и_дня_недели 'Имя процедуры, которая производит смену даты и дня недели
Будильник_установлен = True 'Имя процедуры, которая производит выключение будильника
Выключить_будильник
End Sub
Private Sub Кнопка_включения_выключения_будильника_Click() 'Что будет происходить при нажатии на эту кнопку
If Будильник_установлен Then Выключить_будильник Else Включить_будильник 'если переменная будильник установлен= true(в программе это можно не писать)то выполняем процедуру-выключить_будильник, иначе-включить будильник
End Sub
Private Sub Кнопка_выключения_сигнала_Click() 'что будет происходить при нажатии на эту кнопку
плеер.Command = "close"
End Sub
Private Sub Таймер_часов_Timer() 'Что будет происходить при работе таймера
Время_на_часах = Time 'Переменной присваиваем значение
Циферблат_часов.Text = Время_на_часах 'выводим на циферблат часов значение, которому равна переменная
If Time = 0 Then Смена_даты_и_дня_недели 'Если время -полночь, то заставляем работать процедуру по смене даты и днянедели
If Циферблат_будильника.Text = Время_на_часах And Будильник_установлен Then Включить_сигнал_будильника
End Sub
[Viper] :: Пользуйся тэгом CODE!!!