Мегаобучалка Главная | О нас | Обратная связь  


Полный текст программы «Будильник-секундомер»




Поможем в ✍️ написании учебной работы
Поможем с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой

Привожу полный текст программы «Будильник-секундомер». В том, что касается будильника, я добавил упоминавшуюся мной процедуру Включить_звонок, причем включил в нее для привлечения внимания пользователя разворачивание будильника на весь экран. Везде, где можно, я объявления переменных перенес из верхней части окна кода внутрь процедур.

Public Class Form1

Inherits System.Windows.Forms.Form

Windows Form Designer generated code

Enum Режим

считает

пауза

в_нуле

End Enum

Dim Режим_секундомера As Режим

 

Dim Будильник_установлен As Boolean

Dim Секунды_на_секундомере As Double

Dim Секунды_при_запуске_секундомера As Double

Dim Секунды_на_паузе_секундомера As Double

 

'НАЧАЛЬНАЯ УСТАНОВКА МЕХАНИЗМА

 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Настройка_звонка()

Выключить_будильник()

Смена_даты_и_дня_недели()

Секундомер_обнулить()

End Sub

 

'ПРОЦЕДУРЫ РАБОТЫ ЧАСОВ И БУДИЛЬНИКА

 

Private Sub Таймер_часов_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Таймер_часов.Tick

Dim Время_на_часах As String

Время_на_часах = Format(Now, "HH:mm:ss")

Циферблат_часов.Text = Время_на_часах

If Время_на_часах = "00:00:00" Then Смена_даты_и_дня_недели()

If Будильник_установлен And Время_на_часах = Циферблат_будильника.Text Then Включить_звонок()



End Sub

 

Sub Смена_даты_и_дня_недели()

Циферблат_даты.Text = Format(Now, "Long Date")

Циферблат_дня_недели.Text = Format(Now, "dddd")

End Sub

 

Private Sub Кнопка_включения_выключения_будильника_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Кнопка_включения_выключения_будильника.Click

If Будильник_установлен Then Выключить_будильник() Else Включить_будильник()

End Sub

 

Sub Включить_будильник()

Будильник_установлен = True

Метка_будильника.Text = "Будильник установлен на"

Кнопка_включения_выключения_будильника.Text = "Выключить будильник"

End Sub

 

Sub Выключить_будильник()

Будильник_установлен = False

Метка_будильника.Text = "Будильник отключен"

Кнопка_включения_выключения_будильника.Text = "Включить будильник"

End Sub

 

Sub Настройка_звонка()

Звонок.AutoStart = False

Звонок.PlayCount = 0

Звонок.FileName = "Mozart's Symphony No. 40.RMI"

End Sub

 

Sub Включить_звонок()

Me.WindowState = FormWindowState.Maximized

Звонок.CurrentPosition = 0

Звонок.Play()

End Sub

 

Private Sub Кнопка_выключения_звонка_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Кнопка_выключения_звонка.Click

Звонок.Stop()

End Sub

 

'ПРОЦЕДУРЫ РАБОТЫ СЕКУНДОМЕРА

 

Private Sub Таймер_секундомера_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) _

Handles Таймер_секундомера.Tick

Dim Время_на_секундомере As Date

Const Полночь As Date = #12:00:00 AM#

Секунды_на_секундомере = DateAndTime.Timer - Секунды_при_запуске_секундомера + _

Секунды_на_паузе_секундомера

Время_на_секундомере = Полночь.AddSeconds(Секунды_на_секундомере)

Циферблат_секундомера.Text = Format(Время_на_секундомере, "mm:ss.ff")

End Sub

 

Private Sub Кнопка_пуска_паузы_секундомера_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Кнопка_пуска_паузы_секундомера.Click

If Режим_секундомера <> Режим_секундомера.считает Then Секундомер_запустить() _

Else Секундомер_остановить()

End Sub

 

Sub Секундомер_запустить()

Секунды_при_запуске_секундомера = DateAndTime.Timer

Режим_секундомера = Режим.считает

Таймер_секундомера.Enabled = True

Кнопка_пуска_паузы_секундомера.Text = "ПАУЗА"

End Sub

 

Sub Секундомер_остановить()

Секунды_на_паузе_секундомера = Секунды_на_секундомере

Режим_секундомера = Режим.пауза

Таймер_секундомера.Enabled = False

Кнопка_пуска_паузы_секундомера.Text = "ПУСК"

End Sub

 

Private Sub Кнопка_обнуления_секундомера_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Кнопка_обнуления_секундомера.Click

Секундомер_обнулить()

End Sub

 

Sub Секундомер_обнулить()

Секунды_на_паузе_секундомера = 0

Циферблат_секундомера.Text = "00:00.00"

Режим_секундомера = Режим.в_нуле

Таймер_секундомера.Enabled = False

Кнопка_пуска_паузы_секундомера.Text = "ПУСК"

End Sub

 

'ПРОЦЕДУРЫ ПОСТРОЕНИЯ БОРДЮРОВ

 

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles MyBase.Paint

Бордюр_вокруг(Часы, Color.Blue, 20)

Бордюр_вокруг(Будильник, Color.Red, 20)

Бордюр_вокруг(Секундомер, Color.Green, 20)

End Sub

 

Sub Бордюр_вокруг(ByVal Объект As Control, ByVal Цвет As Color, ByVal Толщина As Single)

Dim Гр As Graphics = Me.CreateGraphics

Dim Т1 As New Point(0, 0)

Dim Т2 As New Point(430, 430)

Dim Кисть_град As New System.Drawing.Drawing2D.LinearGradientBrush(Т1, Т2, Цвет, Color.Yellow)

'Бордюр - залитый градиентом прямоугольник:

Гр.FillRectangle(Кисть_град, Объект.Left - Толщина, Объект.Top - Толщина, _

Объект.Width + 2 * Толщина, Объект.Height + 2 * Толщина)

'Черный ободок вокруг бордюра:

Гр.DrawRectangle(Pens.Black, Объект.Left - Толщина, Объект.Top - Толщина, _

Объект.Width + 2 * Толщина, Объект.Height + 2 * Толщина)

End Sub

End Class

Недоработки проекта

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

Проект работает на первый взгляд нормально, я многократно проверял и часы, и будильник, и секундомер. Но несмотря на это, в нем вполне возможны ошибки и недоработки. Вот те ошибки и недоработки, которые я сумел заметить, но не стал исправлять, предоставив это вам:

· На протяжение той секунды, когда время на часах и будильнике одинаково, процедура таймера выполняется с десяток раз, а значит и сигнал будильника запускается с десяток раз. Вы слышите, что мелодия в первую секунду получается смазанной. Это нехорошо.

· На циферблате вы видите «11 Сентябрь 2003 г.». А хотелось бы «11 сентября 2003 года». Это касается всех 12 месяцев.

· Хорошо бы иметь меню со сменой мелодий, цветов, шрифтов и т.п.

· Когда вы вручную устанавливаете время на циферблате будильника, то есть вводите текст в текстовое поле, вы должны быть очень внимательны, чтобы не нарушить формат строки: цифра-цифра-двоеточие-цифра-цифра-двоеточие-цифра-цифра. Например, нельзя вводить 8:30:00 вместо 08:30:00. И никаких пробелов! Иначе будильник не сработает. Происходит это потому, что программа сравнивает строку на циферблате часов со строкой на циферблате будильника. На циферблате же часов время имеет формат HH:mm:ss. В чем состоит проблема для программиста? Проблема в том, что пользователь не любит напрягаться и быть внимательным. Программист должен холить и лелеять пользователя, он должен сделать так, чтобы будильник «съел» все, что пользователь введет в циферблат, и тем не менее сработал правильно. В разумных пределах, конечно. Или же будильник просто не должен воспринимать неправильные вводимые символы, тогда пользователь волей-неволей введет все правильно. И то, и другое вы сможете делать позже.

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




Читайте также:
Организация как механизм и форма жизни коллектива: Организация не сможет достичь поставленных целей без соответствующей внутренней...
Как вы ведете себя при стрессе?: Вы можете самостоятельно управлять стрессом! Каждый из нас имеет право и возможность уменьшить его воздействие на нас...
Как построить свою речь (словесное оформление): При подготовке публичного выступления перед оратором возникает вопрос, как лучше словесно оформить свою...
Как выбрать специалиста по управлению гостиницей: Понятно, что управление гостиницей невозможно без специальных знаний. Соответственно, важна квалификация...



©2015-2020 megaobuchalka.ru Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. (513)

Почему 1285321 студент выбрали МегаОбучалку...

Система поиска информации

Мобильная версия сайта

Удобная навигация

Нет шокирующей рекламы



(0.018 сек.)
Поможем в написании
> Курсовые, контрольные, дипломные и другие работы со скидкой до 25%
3 569 лучших специалисов, готовы оказать помощь 24/7