11418

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

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

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

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

Русский

2013-04-07

34.5 KB

97 чел.

Секундомер

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


 

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

1917. Педагогические закономерности в трудовом воспитании учащихся 20.97 KB
  Ознакомление с педагогическими закономерностями в ТВУ. Понятие закономерности и закономерности воспитания учащихся. Морально-воспитательная и нравственно-практическая деятельность. Художественно эстетическая деятельность.
1918. Профессия – наше будущее 21.2 KB
  Цель мероприятия: сформировать представление о разнообразии профессий, а также уметь находить между ними существенные отличия и сходства, что в дальнейшем позволит более глубже оценивать каждую профессию.
1919. Квантовая механика. Квантование на искривленных поверхностях 1.2 MB
  Метод Гамильтона, квантование на искривленных поверхностях, квантование на плоских поверхностях, обобщенная гамильтонова динамика, скобки Дирака в геометрии.
1920. Формирование экологической культуры школьников в условиях учебно-производственного комбината 1.2 MB
  Теоретико-методические проблемы формирования экологической культуры учащихся. Педагогический подход к содержанию и технологии формирования экологической культуры учащихся в образовательных учреждениях. Организационные и содержательные условия деятельности учебно-производственного комбината по формированию экологической культуры.
1921. Образовательные порталы как средство систематизации и структурирования информации 1.2 MB
  Научно-методические основы создания и использования образовательных интернет-порталов. Организация представления учебной информации на портале. Практическая реализация информационно-образовательного портала вуза.
1922. Земля. Справочник собственника и арендатора 1.19 MB
  Правовые основы земельных отношений, виды земель и их значение. Порядок оформления и переоформления прав на земельные участки. Основания приобретения права собственности на землю. Общая характеристика сделок с земельными участками.
1923. Лингвокультурная специфика словообразовательной категории локативности 1.19 MB
  Общая характеристика локативов как предмета исследования и терминологии работы. Лексико-семантическое поле в соотношении со словообразовательной категорией локативности. Категория локативности в русской деривационной системе.
1924. Проблема свободы в поэтическом творчестве В.С. Высоцкого 1.19 MB
  Теоретические аспекты проблемы свободы воли. Философская традиция проблемы свободы в 1950-1970 годах. Концепция свободы в песнях тюремно-лагерной тематики В.С. Высоцкого. Символика самолета, птицы и полета в разработке проблемы свободы.
1925. Направленный синтез каротиноидов у дрожжей и перспектива их использования, 1.5 MB
  Каротиноидные пигменты - биологические функции и перспектива использования. Биостимуляторы, индукторы и координационные соединения металлов. Скрининг дрожжей, обладающих повышенной способностью к биосинтезу каротоноидных пигментов.