Форум программистов, компьютерный форум, киберфорум
Наши страницы

Visual Basic

Войти
Регистрация
Восстановить пароль
 
c0nfy
0 / 0 / 0
Регистрация: 09.06.2012
Сообщений: 28
#1

Будильник с "фазами сна" - VB

20.06.2012, 02:03. Просмотров 948. Ответов 7
Метки нет (Все метки)

ребят помогите написать Будильник на visual basic.
Вот примерный код самого будильника,но есть одно НО....Мне ещё требуется туда пихнуть фазы сна(во сколько лучше лечь спать,чтобы проспать 7-8 часов и тд)Посоветуйте что нибудь....

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
45
46
47
48
49
50
51
52
53
54
55
56
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Option Explicit
Dim a As Integer
Private Sub Check1_Click()
If Check1.Value = Checked Then
cmdEnter.Enabled = True
cmdCancelring.Enabled = True
Else
cmdEnter.Enabled = False
cmdCancelring.Enabled = False
End If
End Sub
 
 
Private Sub cmdExit_Click()
End
End Sub
 
Private Sub cmdOk_Click()
Label3.Caption = Text1.Text
cmdOk.Enabled = True
Frame1.Visible = False
End Sub
 
Private Sub cmdEnter_Click()
Frame1.Visible = True
If Text1.Text = "" Then Text1.Text = gettime(0)
End Sub
Private Function gettime(s As Integer) As String
gettime = Hour(Now) & ":" & Minute(Now) & ":" & Second(Now)
End Function
Private Sub cmdCancelring_Click()
Call mciExecute("close Alarm.wav")
Label4.Visible = False
cmdCancelring.Enabled = False
End Sub
 
Private Sub Cancel_Click()
Frame1.Visible = False
End Sub
 
 
Private Sub Form_Load()
 
End Sub
 
Private Sub tmrTime_Timer()
lblTime.Caption = gettime(0)
lblDate.Caption = Date
If Check1.Value = 1 Then
If lblTime.Caption = Label3.Caption Then
 Call mciExecute("play Alarm.wav")
    Label4.Visible = True
End If
End If
End Sub
0
Вложения
Тип файла: zip Alarm.zip (108.5 Кб, 23 просмотров)
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.06.2012, 02:03
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Будильник с "фазами сна" (VB):

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

Создать раздел меню "Правка" и продумать логику команд "копировать", "вставить" - Visual Basic
Здравствуйте! Все никак не могу написать код для раздела меню Правка! Есть главная форма! На этой форме есть меню правка,в которых есть...

Создать тип "Book" и в нём сделать пункты "автор" и "количество страниц" - Visual Basic
нужна задача на наследование, т. е. создать родителя и наследника. создать тип Book (родитель) и в нём сделать пункты автор и кол-во...

Указать для каждого вопроса проценты ответов "да", "нет", "не знаю" - Visual Basic
В двухмерном массиве размером nхm хранятся результаты опроса n человек на m вопросов.Ответами на вопросы являются слова "да","нет","не...

Указать для каждого вопроса проценты ответов "да", "нет", "не знаю" - Visual Basic
Здравствуйте господа программисты и сисадмины.Помогите пожалуйста начинающему с решением следующей программы:В двухмерном массиве размером...

"имитатор сигнала","имитатор помехи", "фильтр" и программу "построитель графика" - Visual Basic
требуется составить программу "имитатор сигнала","имитатор помехи", "фильтр" и программу "построитель графика" в программе Visual Basic 5. ...

7
zink0000
188 / 65 / 24
Регистрация: 15.03.2012
Сообщений: 266
Записей в блоге: 16
20.06.2012, 09:58 #2
c0nfy, не очень понял чего же Вы собственно хотите получить?

Но можете попробовать после установки времени подачи сигнала
вычесть 7 или 8 часов (в зависимости от настройки - поспать побольше,
поменьше) и сравнить с текущим временем,
если ещё не время - сообщение "спать лечь во столько-то",
если уже проехали - сообщение "срочно ложись спать, а то плохо будет".

(А утром действительно будет плохо, ведь как известно - утро добрым не бывает.)

Или Вам что-то позаковыристей нужно?

Добавлено через 4 минуты
Да, и ещё...
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub tmrTime_Timer()
  lblTime.Caption = gettime(0)
  lblDate.Caption = Date
  If Check1.Value = 1 Then
    If lblTime.Caption = Label3.Caption Then
      Call mciExecute("play Alarm.wav")
      cmdCancelring.Enabled = True
      Label4.Visible = True
    End If
  End If
End Sub
Кнопку отключения звука
cmdCancelring.Enabled = True
лучше включать только после подачи звука,
а то ошибка будет возникать при нажатии на кнопку.

А отсюда соответственно убрать:
Visual Basic
1
2
3
4
5
6
7
Private Sub Check1_Click()
  If Check1.Value = Checked Then
    cmdEnter.Enabled = True
  Else
    cmdEnter.Enabled = False
  End If
End Sub
Добавлено через 7 минут
Хм... кстати, если будильник сам отзвенит и нажать кнопку [Отключить],
то тоже ошибка будет.
Надо как-нибуть эту кнопку после проигрывания всего аудио-файла отключить.
Чего уж отключать-то, если и так ничего не звенит.

Добавлено через 36 минут
Хм... ах да, дату и время когда нужно ложится спать можно вычислить так:
Visual Basic
1
2
3
4
Dim NewDate As Date
Dim OldDate As Date
NewDate = "20-06-2012 06:20:00"
OldDate = DateAdd("h", -8, NewDate)
То-есть, чтобы встать сегодня на работу в 06:20
лечь я должен был... так считаем... ага
19-06-2012 22:20:00

"h" - означает что вычитаем мы именно часы а не минуты или секунды.

Добавлено через 4 минуты
И ещё у компьютерного будильника надо указывать не только время,
но и дату или сделать настройку с возможностью выбора галочками
- например: звенеть все дни кроме субботы и воскресенья.

Вот теперь вроде бы всё...
1
c0nfy
0 / 0 / 0
Регистрация: 09.06.2012
Сообщений: 28
21.06.2012, 18:08  [ТС] #3
Спасибо))А есть ещё другие варианты написания будильника с фазами сна...Напишите мне кто нибудь...

Добавлено через 6 часов 33 минуты
Кто сможет,пришлите мне код готового будильника с фазами сна(то есть если настроить сигнал допустим на 7 часов утра,будильник выдавал сообщение что лучше лечь в 22-00 т.к. 8 часов есть самый здоровый сон)
0
zink0000
188 / 65 / 24
Регистрация: 15.03.2012
Сообщений: 266
Записей в блоге: 16
22.06.2012, 09:55 #4
Цитата Сообщение от c0nfy Посмотреть сообщение
А есть ещё другие варианты написания будильника с фазами сна...
Я не очень понял, что именно Вы подразумеваете под фазами сна?

Если - фазы сна - фаза медленного и быстрого сна,
то не очень представляю, как это можно учесть в будильнике...


Добавлено через 4 минуты
(Мда, какие-то проблемы с терминологией...)

Или Вы имеете в виду что-то совсем другое?
Тогда и называйте это как-нибудь по другому.

Добавлено через 24 минуты
Попробуйте сами поправить свой собственный код.

В Frame1 добавьте Text2 для даты.

А в Sub cmdOk_Click

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub cmdOk_Click()
  Dim dateDate As Date
  '
  Label3.Caption = Text2.Text + " " + Text1.Text
  cmdOk.Enabled = True
  dateDate = Text2.Text + " " + Text1.Text
  MsgBox "Надо спать ложится - " + Str$(DateAdd("h", -8, dateDate))
  Frame1.Visible = False
End Sub
Да, и ещё, в cmdEnter
If Text2.Text = "" Then Text2.Text = Date

... хм... вроде бы так...
1
c0nfy
0 / 0 / 0
Регистрация: 09.06.2012
Сообщений: 28
22.06.2012, 19:24  [ТС] #5
zink0000,
Вы всё правильно поняли всё работает,но щас будильник вообще не звонит в настроенное время....
0
Dragokas
22.06.2012, 23:47
  #6

Не по теме:

Цитата Сообщение от c0nfy Посмотреть сообщение
но щас будильник вообще не звонит в настроенное время
"Фаза сна" прошла успешно -
Наш будильник уснул навечно

4
c0nfy
0 / 0 / 0
Регистрация: 09.06.2012
Сообщений: 28
25.06.2012, 09:10  [ТС] #7
ну подскажите что дописать чтобы будильник ещё и звонил в установленное время???
0
zink0000
188 / 65 / 24
Регистрация: 15.03.2012
Сообщений: 266
Записей в блоге: 16
25.06.2012, 09:39 #8
c0nfy, о, извините, с
Visual Basic
1
Label3.Caption = Text2.Text + " " + Text1.Text
я похоже погорячился, верните как было
Visual Basic
1
Label3.Caption = Text1.Text
Да и ещё... Interval у таймера уменьшите до 500.

Ага, теперь опять звонит.

Добавлено через 3 минуты
И Вы бы где-нибудь вывели бы что ли время на которое будильник установлен,
а то каждый раз кнопку [Время будильника] жать чтобы выяснить на сколько
он установлен, согласитесь, не очень удобно.

Добавлено через 7 минут

Не по теме:

Цитата Сообщение от Diskretor Посмотреть сообщение
"Фаза сна" прошла успешно -
Наш будильник уснул навечно
Уснувший навечно будильник - разве это не счастье?

Как сказал один поэт:
"По морде будильничьей вижу - готовится, сволочь, звенеть."
(не исключаю, что Владимир Семенов {город Красноярск}
по стилю похоже.)

А тут с гарантией - звенеть не будет.



Добавлено через 53 секунды
Мда, правда, как уснул, так и проснулся - проверил - работает.
2
25.06.2012, 09:39
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.06.2012, 09:39
Привет! Вот еще темы с ответами:

Как преобразовать рисунок из "png" в "bmp" или в "jpg"? - Visual Basic
Есть программка, которая ставит обои рабочего стола на выбор пользователя, она может поставить только "jpg" и "bmp", так как "png" тоже...

Вывести цену в рублях и копейках с использованием слов "рубль" и "копейка" в соответствующих падежах - Visual Basic
Число N вводится с клавиатуры (N<1000). Оно означает цену товара в копейках. Вывести цену в рублях и копейках с использованием слов "рубль"...

Как в массиве "B", по сравнению с массивом "A", максимальное и минимальное числа переставить местами - Visual Basic
Доброго времени суток, уважаемые форумчане! Я, как начинающий программист, требую помощи. Дана задача на массивы, а сам-то въехать не...

В массиве "В" по сравнению с массивом "А", максимальное и минимальное значение поменять местами - Visual Basic
Задание звучало так: В массиве "В" по сравнению с массивом "А", максимальное и минимальное значение поменять местами. Код, который...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru