Будильник

@Dimedrol · Регистрация: 25.04.2009

Студворк — интернет-сервис помощи студентам

Задача - сделать простой будильник...
Вот что я на данный момент имею:
Сделал форму...
в label будет выводиться настоящее время.
есть 2 TextBox (hover и minutes) - Тут будем вписывать часы и минуты для звонка...
ну кнопка Выход понятно для чего...Вот код (я смог сделать только саму ф-цию звонка)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Declare Function Beep Lib "kernel32" _
 (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
 
Private Sub exit_bt_Click()
Form1.Unload Me
End Sub
 
Private Sub Form_Load()
exit_bt.Caption = "Выход"
tire.Caption = "---"
minutes.Text = "Mинуты"
hover.Text = "Часы"
End Sub
 
Function Beeb()
Number = 0
Do While Number <= 30
Beep 1000, 100
Number = Number + 1
Loop
End Function

Как я понимаю надо ставить TiMER и каждую минуту сравнивать 2 переменне (я сказал минуты так как у нас указываются минуты и секунды)
Вы бы не могли подсказать...
1 Как внести в переменную часы и минуты в таком формате: ЧЧ:ММ (я так понимаю с Timer)
2 Что мне надо делать: разрезать переменную с настоящем временем на 2 переменные (минуты часы)
или просто соединить указанные минуты и часы таким способом ЧЧ:ММ и потом стравнивать?
3 Почему не работает Exit?

@wladgreeniv · 23.09.2009, 11:11

Я делал так:

Visual Basic
1
Datez = CStr(Hour(Time)) + ":" + CStr(Minute(Time))

А потом сравнивал две строковые переменные

@Dimedrol · 23.09.2009, 11:53 **[ТС]**

Вот посмотрите:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Declare Function Beep Lib "kernel32" _
 (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
 
Private Sub exit_bt_Click()
Form1.Unload Me
End Sub
 
Private Sub Form_Load()
exit_bt.Caption = "Выход"
tire.Caption = "---"
minutes.Text = "Mинуты"
hover.Text = "Часы"
End Sub
 
Function Beeb()
Number = 0
Do While Number <= 30
Beep 1000, 100
Number = Number + 1
Loop
End Function
Function Times()
Dim hover_p As DateTime
hover_p = instance.Hour
 
Dim minute_p As DateTime
minute_p = instance.Minute
Datez_1 = hover_p + ":" + minute_p
Datez = CStr(Hour(Time)) + ":" + CStr(Minute(Time))
If Datez_1 = Datez Then
Beeb
End If
End Function
 
Private Sub hover_Change()
Times
End Sub
 
Private Sub minutes_Change()
Times
End Sub

Что теперь не так?

@Abu · 24.09.2009, 19:36

Что теперь не так?

Много чего.

Visual Basic
1
Dim hover_p As DateTime hover_p = instance.Hour

Это чё такое? Пишем в vb 6.0? Если да, то в нём нету такого встроенного типа как DateTime, он есть в .NET. Это другой раздел. Значит либо создаём такой тип, либо пользуемся стандартным таймером, как все белые люди, и горя не знаем.
На форме ко всем остальным элементам добавляем Timer1, св-во Interval = 1000

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub exit_bt_Click()
End
End Sub
 
Private Sub Form_Load()
exit_bt.Caption = "Выход"
tire.Caption = "---"
minutes.Text = "Mинуты"
hover.Text = "Часы"
End Sub
 
Private Sub Timer1_Timer()
If (Hour(Time) = hover.Text) And (Minute(Time) = minutes.Text) Then
Beep
End If
End Sub

P.S. В примере использую обычную встроенную Beep, потому что API-Beep у меня срабатывает, но звук не издаёт почему-то.

@Dimedrol · 24.09.2009, 19:45 **[ТС]**

Я немного переделал, но всё равно выдаёт ошибку:

Код

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Private Declare Function Beep Lib "kernel32" _
 (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
 
Private Sub exit_bt_Click()
Form1.Unload Me
End Sub
 
Private Sub Form_Load()
exit_bt.Caption = "Выход"
tire.Caption = "---"
minutes.Text = "Mинуты"
hover.Text = "Часы"
End Sub
 
Function Beeb()
Number = 0
Do While Number <= 30
Beep 1000, 100
Number = Number + 1
Loop
End Function
 
Function Times()
Dim hoverp As Date
hoverp = instance.Hour
 
Dim minutep As Date
minutep = Time(Min)
Dim hoverp As Date
hoverp = Time(hover)
Datez_1 = hoverp + ":" + minutep
Datez = CStr(Hour(Time)) + ":" + CStr(Minute(Time))
If Datez_1 = Datez Then
Beeb
End If
End Function
 
Private Sub hover_Change()
Times
End Sub
 
Private Sub minutes_Change()
Times
End Sub

P.S. В примере использую обычную встроенную Beep, потому что API-Beep у меня срабатывает, но звук не издаёт почему-то.

Я пишу для себя и у меня работает...так что сдесь проблемы нет...

@venICE939 · 24.09.2009, 19:48

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

@Abu · 24.09.2009, 19:50

Сообщение от dimjan4

Я немного переделал, но всё равно выдаёт ошибку:

Какую ошибку? В каком месте? Чем таймер не устраивает?

@Dimedrol · 24.09.2009, 20:46 **[ТС]**

Выдаёт ошибку тут:

Visual Basic
1
Dim hoverp As Date

А за исходник спасибо! Буду изучать...но пока объясните где у меня ошибка...просто интересно!

@Abu · 24.09.2009, 21:43

1)

Сообщение от Abu

Какую ошибку? В каком месте? Чем таймер не устраивает?

Я так понимаю, что такую?

Duplicate declaration in current scope

Что в переводе означает

Двойная декларация в текущей области

Два раза пытаемся объявить переменную с одним и тем же именем, в пределах одной процедуры.

2)

Сообщение от dimjan4

hover_p = instance.Hour

Сообщение от Abu

Это чё такое?

Я то знаю, что это такое. Мне интересно, знаешь ли ты? И с полной уверенностью могу сказать, что vb6.0 - не знает!

3)

Сообщение от dimjan4

minutep = Time(Min)

Это что?! Переменная min не объявлена, соответственно она типа Variant и по умолчанию равна Empty (тобишь ничему вообще, даже нулю не равна). И эту пустую переменную ты пытаешься впихнуть функции Time в качестве аргумента, при том, что встроенная функция Time аргументов вообще не имеет!!! Если же это пользовательская функция, то где она?
...
Код, который следует дальше, я вообще с трудом понимаю. Думаю, комментарии не помешали бы потому как:
1) Написание комментариев является хорошим тоном!
2) Код программы, оформленный комментариями, легче воспринимается при рассмотрении теми, кто его не писал.
3) (и пожалуй в твоём случае самое важное) При расстановке комментариев, ты сам понимаешь что и зачем ты пишешь. Мне кажется, что ты не каждую строку своего кода сможешь объяснить. Просмотри его ещё раз, и попробуй объяснить значение каждой строчки хотя бы себе. Думаю, многие вопросы тут же отпадут сами по себе. Если не отпадут - спрашивай, всегда ответим.

Новые блоги и статьи Все статьи Все блоги /
BOINC: 22 года — и всё ещё работает Programma_Boinc 12.03.2026 BOINC: 22 года — и всё ещё работает Дэвид Андерсон написал ретроспективу. Кратко: в 2001 году он ушёл из United Devices, где был CTO, и за несколько месяцев написал ядро BOINC — клиент, сервер,. . .	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@venICE939 3 / 3 / 1 Регистрация: 22.09.2009 Сообщений: 4
	24.09.2009, 19:48
	Скачай мою прогу.она в соседней теме под названием, программа для выключения компьютера, ты там и будильник найдешь.. 0