11418

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

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

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

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

Русский

2013-04-07

34.5 KB

104 чел.

Секундомер

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


 

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

41464. Документальное оформление и учет поступления основных средств 25.05 KB
  Для приемки основных средств в организации создается специальная комиссия, которая оформляет акт о приеме-передаче объекта основных средств либо акт о приеме-передаче групп объектов основных средств
41465. Особенности учёта расчетов с учредителями 22.84 KB
  Расчеты с учредителями осуществляются по вкладам в уставный капитал, по выплате доходов и другим операциям. Учет ведется на активно-пассивном счете 75 «Расчеты с учредителями». Аналитический учет ведется по каждому учредителю
41466. Методы начисления амортизации основных средств и отражение ее в учете 53.98 KB
  Начисление амортизационных сумм осуществляется в порядке, установленном ст. 259 НК РФ. Амортизируемым имуществом признается имущество, результаты интеллектуальной деятельности и иные объекты интеллектуальной собственностисуда с выраженными в них государственновластными суждениями относительно разрешения материальноправовых и процессуальноправовых вопросов. Отличие судебного решения от определения: решение дает ответ по существу дела определение не разрешает дело а дает ответ на вопрос процессуальноправового характера п.12 постановление ВС О судебном решении не...
41467. Учет затрат на восстановление основных средств 25.08 KB
  Виды ремонта – текущий, средний и капитальный. Основным первичным документом, согласно которому определяются объем работ по капитальному ремонту, его продолжительность, сметная стоимость, является дефектная ведомость. Ремонт объектов ОС может быть проведен подрядным, хозяйственным или смешанным способом.
41468. Порядок проведения и учёт результатов инвентаризации основных средств и учёт их результатов 60.49 KB
  Основные средства — неотъемлемая часть имущества большинства организаций. В отношении таких объектов, как и любого другого имущества, должны быть обеспечены учет и контроль. Соответствие фактического наличия имущества данным бухгалтерского учета регулярно проверяется инвентаризацией. О методике проведения инвентаризации основных средств и оформлении ее результатов рассказывается в данной статье.
41469. Экономическое содержание, принципы, оценка и задачи учёта материально-производственных запасов 26.53 KB
  Понятие и сущность ОП установление фактов имеющих юридическое значение в ОП признание гражданина безвестно отсутствующим и объявление гражданина умершим признание гражданина ограниченно дееспособным или недееспособным ограничение или лишение несовершеннолетнего в возрасте от 14 до 18 лет права самостоятельно распоряжаться своими доходами. Отмена судом ограничения дееспособности Эмансипация Принудительная госпитализация гражданина в психиатрический стационар и принудительное освидетельствование семейный кодекс гражданский...
41470. Изучение организации и методики анализа выполнения сметы доходов и расходов бюджетного учреждения 168.34 KB
  Объектом исследования курсовой работы является смета доходов и расходов Бахчисарайского районного центра социальных служб для семьи, детей и молодежи. Предмет исследования – организация и методика анализа выполнения сметы доходов и расходов данного бюджетного учреждения
41471. Создание информационной системы управления заказами для МБУЗ ЦРБ 2.29 MB
  Провести анализ структуры предприятия и обосновать потребность создания для неёMRPсистемы; Рассмотреть существующие варианты реализации информационной системы; Произвести анализ из существующих средств разработки СУБД и сделать выбор для реализации информационной системы;
41472. РИМСКОЕ ПРАВО. Методические материалы 340.5 KB
  Настоящие методические материалы предназначены для подготовки к семинарским и практическим занятиям по дисциплине «Римское право» для студентов факультета внебюджетного образования (заочная форма обучения), обучающихся по направлению подготовки «Юриспруденция». Данная учебная дисциплина относится к вариативной части профессионального цикла