11418

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

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

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

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

Русский

2013-04-07

34.5 KB

102 чел.

Секундомер

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


 

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

39450. Создание качественных каналов и связи на направлении МИНСК-ГОМЕЛЬ (через БОБРУЙСК) 393 KB
  Расчетная частота кГц 17186 Номинальное затухание участка регенерации дБ 65 Номинальное значение тока ДП мА 200 Допустимое отклонение тока ДП мА 10 Допустимые значения напряжения ДП В 401300В650В относительно земли Максимальное расстояние ОРПОРП 200 км Максимальное число НРП между ОРП 66 Максимальное число НРП в полу секции ДП 33 Комплекс аппаратуры третичной ЦСП ИКМ 480 предназначен для организации на внутризоновых и магистральной сетях связи пучков каналов по кабелю МКТ 4 с парами 12 46 мм. ВВГ оборудование вторичного...
39451. ОПИСАНИЕ ПРИНЦИПА СТРУКТУРНОЙ ЭЛЕКТРИЧЕСКОЙ СХЕМЫ УСТРОЙСТВА СДВИГА ДВОИЧНЫХ ЧИСЕЛ 369.29 KB
  Операция сдвига широко используется в современной вычислительной технике для реализации умножения деления нормализации двоичных чисел с плавающей точкой и т. Поэтому даже в самых ранних ЭВМ использовались так называемые сдвигающие регистры. Такие регистры применяются и в новейших машинах но наряду с ними стали использоваться и комбинационные многоразрядные программируемые сдвигатели Целью данного курсового проекта является формирование начальных умений и навыков самостоятельного проектирования цифровых устройств углубление и...
39452. Создание ЦЛП на направлении Витебск – Бегомль – Лепель 348 KB
  В состав аппаратуры ИКМ120 входят: оборудование вторичного временного группооброзования ВВГ оконечное оборудование линейного тракта ОЛТ необслуживаемые регенерационные пункты НРП а также комплект контрольноизмерительных приборов КИП таких как пульт для испытания линейных трактов и регенераторов ПИЛТ пульт настройки и проверки регенераторов ПНПР пульт измерения затухания кабельной линии ИЗКЛ. Таблица 1 Основные параметры системы передачи Параметр Значение параметра Число организуемых каналов 120 Скорость передачи информации...
39454. Правоотношения: понятие, виды, структура 133.5 KB
  Правовые отношения, проблема их понятия и содержания является одной из фундаментальных проблем теории права и юридической науки в целом. Её значение в регулировании всех отраслей права неоспоримо
39455. Создание качественных каналов связи на направлении Витебск – Браслав – Глубокое 217 KB
  В состав аппаратуры ИКМ120 входят аналогоцифровое оборудование формирования стандартных первичных цифровых потоков АЦО оборудование вторичного временного группообразования ВВГ оконечное оборудование линейного тракта ОЛТ необслуживаемые регенерационные пункты НРП. Оконечное оборудование линейного тракта обеспечивает согласование выхода оборудования ВВГ с линейным трактом дистанционное питание НРП телеконтроль и сигнализацию о состоянии линейного тракта служебную связь между оконечными и промежуточными...
39456. Цифровое представление и цифровая обработка информации с применением средств вычислительной техники 352 KB
  кабель прокладываемый вдоль данной автомобильной дороги и необслуживаемыерегенерационные пункты НРП.2 Расчет длин регенерационных участков Размещение необслуживаемых регенерационных пунктов НРП вдоль кабельной ЛП осуществляется в соответствии с номинальной длиной регенерационного участка РУ для проектируемой СП. блоки линейных регенераторов в НРП не содержат искусственных линий ИЛ. Подставляя числовые значения в формулы 3 и 4 и округляя результат до целого числа определяем количество регенерационных участков: на секции ОП1ПВ:...