11418

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

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

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

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

Русский

2013-04-07

34.5 KB

114 чел.

Секундомер

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


 

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

36517. Самодифузія. Коефіцієнт самодифузії, його залежність від тиску і температури 284.09 KB
  Цикл Карно і його к. Теореми Карно. У циклі Карно задача якомога спрощена. Цикл Карно виглядає наступним чином.
36518. В’язкість (внутрішнє тертя). Коефіцієнт в’язкості, його залежність від тиску і температури. Методи визначення коефіцієнту в’язкості. В’язкісний манометр 163.66 KB
  Коефіцієнт вязкості його залежність від тиску і температури. Методи визначення коефіцієнту вязкості. Коефіцієнтом пропорційності у цьому рівнянні є величина яка має назву коефіцієнта динамічної вязкості або коефіцієнта внутрішнього тертя. За одиницю динамічної вязкості у системі СІ приймається коефіцієнт вязкості такої речовини у якій за одиницю часу при градієнті швидкості рівному 1 с1 через площадку площею 1 м2 переноситься імпульс рівний 1 кгм с.
36519. Обертальний броунівський рух 201.25 KB
  Залежна від цих змінних внутрішня енергія є термодинамічним потенціалом або характеристичною функцією. Зауважте внутрішня енергія є термодинамічним потенціалом лише коли вона залежить від ентропії і температури . Коли внутрішня енергія залежить від інших змінних вона не буде термодинамічним потенціалом. Для адіабатного ізохорного процесу внутрішня енергія .
36521. Флуктуації. Міра флуктуації. Адитивність дисперсії 197 KB
  Фізичні величини що характеризують макроскопічне тіло яке знаходиться у стані рівноваги практично завжди з великою точністю дорівнюють своїм середнім значенням. Але відхилення від середнього значення все ж таки мають місце у звязку із чим виникає питання про знаходження розподілу ймовірностей цих відхилень. Ми ввели середнє значення як . Реальне значення величини практично завжди відрізняється від .
36522. ИННОВАЦИОННЫЙ МЕНЕДЖМЕНТ 60 KB
  Инновация считается осуществленной если она внедрена на рынке или в производственный процесс. Свойства инновации: научнотехническая или организационная новизна производственная применимость коммерческая реализуемость 5 основных признаков инновации по Шумпетеру: новый метод производства использование новой техники новых технологических процессов новый продукт новые свойства известного продукта использование нового сырья новых источников сырья новая или обновлённая структура управления появление новых рынков сбыта. Классификация...
36523. Процедуры общего вида в паскаль 24.5 KB
  Синтаксис: Procedure идентификатор или Procedure идентификатор параметры Замечания: В заголовке процедуры определяются ее идентификатор и набор формальных параметров если таковые есть. Заголовок процедуры сопровождается: 1разделом описаний в котором объявляются локальные объекты 2операторами находящимися между Begin и End которые определяют что должно быть выполнено при вызове процедуры. Вместо частей объявлений и операторов в объявлении процедуры могут присутствовать директивы Forwrd externl или InLine.
36524. Формальные и фактические параметры Правило соответствия 26.5 KB
  В каждую группу включаются параметры одного типа принадлежащие к одной категории. Все формальные параметры можно разбить на четыре категории: 1параметрызначения; 2параметрыпеременные; 2параметрыконстанты 4параметрыпроцедуры и параметрыфункции.
36525. Параметры - переменные, параметры-значения.Механизм передачи в подпрограмму и из нее 28.5 KB
  Список формальных параметров необязателен и может отсутствовать. Если же он есть то в нем должны быть перечислены имена формальных параметров и их типы например: Procedure SB: Rel; b: Integer; с: Chr; Как видно из примера параметры в списке отделяются друг от друга точками с запятой. Несколько следующих подряд однотипных параметров можно объединять в подсписки например вместо Function F: Rel; b: Rel: Rel; можно написать проще: Function Fb: Rel: Rel; Операторы тела подпрограммы рассматривают список формальных параметров как...