УФО_Информатика_Лаб_2 сем_VBA / Лаб_2_1_Секундомер
.docСекундомер
|
|
1.Нарисовать кнопку на листе |
|
|
|
|
||||
|
|
2.Установить указатель мыши на кнопке и нажать правую кнопку мыши |
||||||||
|
|
3.Открыть опцию "Proporties (Свойства)" |
|
|
|
|||||
|
|
4.Задать значения: |
|
|
|
|
|
|||
|
|
Caption |
Секундомер |
|
|
|
|
|||
|
|
BackColor |
выбрать цвет из палитры |
|
|
|
Время старта
Время останова
Измеренное время
UserForm1
Старт
Стоп
СбросСекундомер
Далее необходимо составить программы, которые должны исполнятся при нажатии на кнопки. При нажатии на кнопку Секундомер на листе должна появляться форма секундомера UserForm1 . Для этого надо установить указатель мыши на кнопку Секундомер , нажать правую кнопку мыши, выбрать опцию Исходный текст (Code) и набрать UserForm1.Show. Для программирования кнопок на форме необходимо зайти в Редактор Visual Basic и войдя в окно Исходный текст (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