ПОНЯТНО О Visual Basic NET (том 2)


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


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

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




Начало  Назад  Вперед