11418

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

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

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

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

Русский

2013-04-07

34.5 KB

115 чел.

Секундомер

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


 

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

45775. Г. Фреге. «О смысле и значении» 36.5 KB
  Фреге в своей статье О смысле и значении 1892 противопоставил смысл нем. Если значение денотат это сам обозначаемый предмет то смысл это информация о предмете сигнификат или десигнат. Например выражения Вечерняя звезда и Утренняя звезда имеют одно и то же значение но отнюдь не одинаковый смысл. Вместе с тем смысл не есть представление поскольку несет в себе не просто субъективный образ предмета но некоторую общезначимую информацию[3].
45777. ПРОЦЕСС УПРАВЛЕНИЯ МАРКЕТИНГОМ 42.5 KB
  Комплекс маркетинга маркетингмикс и его элементы. Ей нужно знать как анализировать рыночные возможности отбирать подходящие целевые рынки разрабатывать эффективный комплекс маркетинга и успешно управлять претворением в жизнь маркетинговых задач. 1 Анализ рыночных возможностей: Системы маркетинговых исследований и маркетинговой информации Маркетинговая среда Потребительские рынки Рынки предприятий 2 Отбор целевых рынков: Замеры объемов спроса Сегментирование рынка выбор целевых сегментов и позиционирование товара на рынке 3...
45778. Понятие сбыта и сбытовой политики фирмы 21.61 KB
  Комплексность с другими элементами маркетингамикс скоординированность сочетание решений в сфере сбыта ценообразования коммуникаций сервиса и др. системность рассмотрение сбыта и остальных инструментов как элементов вызывающих синергетический эффект от их совместного применения гибкость готовность к пересмотру своих позиций в случае необходимости. Задача сбытовой политики управление конкурентоспособностью товара путем управлением каналами сбыта планирование длины ширины и типа посредников; организация и контроль...
45779. Интегрированные маркетинговые коммуникации: понятие и инструменты 40.09 KB
  Комплекс маркетинговых коммуникаций представляет собой единый комплекс коммуникационных компонентов объединяющий участников каналы и средства коммуникации и направленный на установление и поддержание взаимоотношений между организацией и маркетинговой средой в рамках достижения маркетинговый целей Маркетинговая коммуникация фирмы это комплексное воздействие фирмы на внутреннюю и внешнюю среду с целью создания благоприятных условий для стабильной прибыльной деятельности на рынке. Конечная цель любой стратегии маркетинговых коммуникаций...
45780. Социологические исследования в деятельности PR-специалиста 16.99 KB
  Количественные методы социологических исследований в PR:Наблюдение Наблюдение ещё один из видов методов социологического исследования. считает что наблюдение в социологии метод сбора информации путём непосредственного изучения социального явления в его естественных условиях. Особенности метода: Связь наблюдателя с объектом наблюдения.
45781. Элементы кристаллографии 159 KB
  Постоянная решётки, или, что то же самое, параметр решётки - размеры элементарной кристаллической ячейки кристалла. В общем случае, элементарная ячейка представляет собой параллелепипед с различными длинами рёбер, обычно эти длины обозначают как a, b, c. Но, в некоторых частных случаях кристаллической структуры, длины этих рёбер совпадают
45783. Региональные особенности территории Боснии и Герцеговины 701 KB
  Данная проблема является весьма актуальной и требует незамедлительного решения. Безработица в Боснии и Герцеговине составляет 20%, промышленное производство не достигло и 40% от довоенного уровня и развивается низкими темпами