11418

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

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

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

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

Русский

2013-04-07

34.5 KB

98 чел.

Секундомер

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


 

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

15713. ОСНОВНІ ТЕОРЕМИ І ФОРМУЛИ ТЕОРІЇ ЙМОВІРНОСТЕЙ 97.5 KB
  Дисципліна: МАТЕМАТИЧНА СТАТИСТИКА ТА ОПРАЦЮВАННЯ СПОСТЕРЕЖЕНЬ Модуль 2. ОСНОВНІ ВИЗНАЧЕННЯ ПРИКЛАДНОЇ СТАТИСТИКИ Лекція 7: ОСНОВНІ ТЕОРЕМИ І ФОРМУЛИ ТЕОРІЇ ЙМОВІРНОСТЕЙ План лекції 5: 7.1. Теорема додавання ймовірностей подій. 7.2. Теорема множення ймовірностей по...
15714. ВИПАДКОВІ ВЕЛИЧИНИ І ЗАКОНИ РОЗПОДІЛЕННЯ 56.5 KB
  Дисципліна: МАТЕМАТИЧНА СТАТИСТИКА ТА ОПРАЦЮВАННЯ СПОСТЕРЕЖЕНЬ Модуль 2. ОСНОВНІ ВИЗНАЧЕННЯ ПРИКЛАДНОЇ СТАТИСТИКИ Лекція 8. ВИПАДКОВІ ВЕЛИЧИНИ І ЗАКОНИ РОЗПОДІЛЕННЯ План лекції 8: 8.1. Дискретні і неперервні випадкові величини. 8.2. Числові характеристики випадков
15715. Проектування чоловічих напівчеревиків з боковими резинками, клейового методу кріплення підошов 1.4 MB
  Стратегія державної промислової політики в галузі легкої промисловості передбачає випередження темпів випуску, конкурентної спроможності та ефективності виробника яка спрямована на задоволення потреб внутрішнього ринку та нарощування експертного потенціалу.
15716. ГІСТОГРАМИ РОЗПОДІЛУ ВИПАДКОВИХ ВЕЛИЧИН 1.22 MB
  Дисципліна: МАТЕМАТИЧНА СТАТИСТИКА ТА ОПРАЦЮВАННЯ СПОСТЕРЕЖЕНЬ Модуль 2: ОСНОВНІ ХАРАКТЕРИСТИКИ ОБРОБЛЕННЯ ДАНИХ Лекція 10. ГІСТОГРАМИ РОЗПОДІЛУ ВИПАДКОВИХ ВЕЛИЧИН План лекції 7: 10.1. Щільність ймовірності випадкових величин 10.2. Числові характеристики випадкови
15717. Эдвардс Деминг и философия управления качеством 81 KB
  Эдвардс Деминг и философия управления качеством Долгие годы отечественные промышленные предприятия находились в условиях когда заказы на продукцию и ее продажу распределялись в плановом порядке исключая при этом конкуренцию. Отсутствие конкуренции позволяло предпр...
15718. Анализ затрат на качество 247.5 KB
  Анализ затрат на качество В данном разделе мы поставили цель объяснить экономические аспекты Обеспечения Качества. Вы найдете в нем ответы на вопрос как идентифицировать Затраты на Качество и увидите способы с помощью которых можно использовать Затраты на Качество ка...
15719. История возникновения, развития и использования метода развертывания функции качества 95.5 KB
  История возникновения развития и использования метода развертывания функции качества А.М. Кузьмин Современное состояние РФК Первый двухдневный семинар по РФК в Японии был организован в 1983 г. Японским центром производительности Japan Productivity Center...
15720. Кружки качества на Японских предприятиях 32.1 KB
  Кружки качества на Японских предприятиях Важную роль в формировании системы комплексного управления качеством в Японии сыграли кружки качества. Современная организация управления качеством потребовала новой по сравнению с классической схемы действий. Поступление ...
15721. Основы стандартизации, сертификации и метрологии 710.62 KB
  Стандартизация основывается на последних достижениях науки, техники и практического опыта и определяет прогрессивные, а также экономически оптимальные решения многих народнохозяйственных, отраслевых и внутрипроизводственных задач