Секундомер. Лаб_2_1_Секундомер. 1. Нарисовать кнопку на листе

• Название: 1. Нарисовать кнопку на листе
• Анкор: Секундомер
• Дата: 14.05.2022
• Размер: 34.5 Kb.
• Имя файла: Лаб_2_1_Секундомер.doc
• Тип: Документы; #529568

Секундомер

		1.Нарисовать кнопку на листе
		2.Установить указатель мыши на кнопке и нажать правую кнопку мыши
		3.Открыть опцию "Proporties (Свойства)"
		4.Задать значения:
		Caption	Секундомер
		BackColor	выбрать цвет из палитры

Секундомер

Время старта

Время останова

Измеренное время

UserForm1

Старт

Стоп

Сброс
Для создания приложения необходимо иметь на экране панели инструментов VisualBasic и Элементы управления. Вызов необходимых панелей инструментов осуществляется через опцию Вид меню. Нажатием кнопки Редактор VisualBasicоткрывается Редактор Visual Basic(VB). В меню VB через опцию Вставка (Insert) вставляется форма UserForm1. На форме устанавливаются необходимые элементы: Надписи (Label), Кнопки (CommandButton), Поля (TextBox). Надписи на форме (Label) или кнопках и их цвета устанавливаются заданием свойств Caption (Надпись на кнопке) и BackColor (Цвет кнопки) как это было указано выше.

Далее необходимо составить программы, которые должны исполнятся при нажатии на кнопки. При нажатии на кнопку Секундомер на листе должна появляться форма секундомера UserForm1 . Для этого надо установить указатель мыши на кнопку Секундомер , нажать правую кнопку мыши, выбрать опцию Исходный текст (Code) и набрать UserForm1.Show. Для программирования кнопок на форме необходимо зайти в Редактор VisualBasicи войдя в окно Исходный текст (Code) ввести тексты программ для каждой кнопки. В общей области кода формы (General) определяются типы используемых переменных.

Dim StartTime As Variant

Dim EndTime As Variant

Dim DT As Variant
Private Sub CommandButton1_Click()

StartTime = Now

TextBox1.Text = Format(StartTime, "hh:mm:ss")

TextBox2.Text = ""

TextBox3.Text = ""

CommandButton1.Enabled = False

CommandButton2.Enabled = True

CommandButton3.Enabled = True

End Sub

Private Sub CommandButton2_Click()

EndTime = Now

DT = EndTime - StartTime

TextBox2.Text = Format(EndTime, "hh:mm:ss")

TextBox3.Text = Format(DT, "hh:mm:ss")

CommandButton1.Enabled = True

CommandButton2.Enabled = False

CommandButton3.Enabled = True

End Sub
Private Sub CommandButton3_Click()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

CommandButton1.Enabled = True

CommandButton2.Enabled = False

CommandButton3.Enabled = False

End Sub