11418

Секундомер в Visual Basic

Лабораторная работа

Информатика, кибернетика и программирование

Секундомер 1.Нарисовать кнопку на листе 2.Установить указатель мыши на кнопке и нажать правую кноп...

Русский

2013-04-07

34.5 KB

96 чел.

Секундомер

1.Нарисовать кнопку на листе

2.Установить указатель мыши на кнопке и нажать правую кнопку мыши

3.Открыть опцию "Proporties (Свойства)"

4.Задать значения:

Caption

Секундомер

BackColor

выбрать цвет из палитры

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

Далее необходимо составить программы, которые должны исполнятся при нажатии на кнопки. При нажатии на кнопку Секундомер на листе должна появляться форма секундомера 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


 

А также другие работы, которые могут Вас заинтересовать

13738. История отечества. Тест. Вариант 5 131 KB
  Вариант №5 Часть 1 А1. Какое из указанных событий произошло раньше других 1 битва на реке Воже 3 Куликовская битва 2 разорение Москвы ханом Тохтамышем 4 Грюнвальдская битва А2. Кто из назва...
13739. История отечества. Тест. Вариант 6 130.5 KB
  Вариант №6 Часть 1 А1. Позже других событий произошло 1 воцарение династии Романовых 3 крещение Руси 2 начало феодальной раздробленности 4 введение опричнины А2. Начало государственности ...
13740. История отечества. Тест. Вариант 7 128.5 KB
  Вариант №7 Часть 1 А1. Позже других событий произошло 1 начало Смутного времени 2 первое упоминание о Москве в летописи 3 установление монголотатарского ига 4 завершение образования Российс
13741. История отечества. Тест. Вариант 9 126 KB
  Вариант №9 Часть 1 А1. Кто из перечисленных князей правил позднее других 1 Игорь Старый 3 Владимир Мономах 2 Василий Темный 4 Александр Невский А2. В Новгородской боярской республике высш
13742. История отечества. Тест. Вариант 10 123 KB
  Вариант №10 Часть 1 А1. Какое из перечисленных событий произошло позднее других 1 битва на Калке 3 первое упоминание о Москве в летописях 2 восстание древлян 4 поход князя Игоря Святославича на половце
13743. История отечества. Тест. Вариант 11 121 KB
  Вариант №11 Часть 1 А1. Какое событие древнейшая русская летопись Повесть временных лет относит к 945 г. 1 восстание древлян 3 призвание варягов в Новгород 2 крещение князя Владимира 4 поход князя Олег
13744. История отечества. Тест. Вариант 12 123.5 KB
  Вариант №12 Часть 1 А1.Установление монголотатарского ига на Руси произошло в 1 XI в. 2 XII в. 3 XIII в. 4 XIV в. А2. Соседями восточных славян в период Древней Руси являлись ...
13745. История отечества. Тест. Вариант 13 128.5 KB
  Вариант №13 Часть 1 А1. Какое из названных событий произошло в XV в. 1 основание славяногреколатинской академии 2 церковнообрядовая реформа патриарха Никона 3 издание печатной книги Апостол ...
13746. История отечества. Тест. Вариант 14 120.5 KB
  Вариант №14 Часть 1 А1. В XIII в. произошло событие 1 сражение на реке Калке 3 Грюнвальдская битва 2 взятие Казани 4 Куликовская битва А2. Избранию царя из династии Романовых предшествовало с