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


 

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

58680. Обрывная аппликация. Цыплёнок 41 KB
  Цель урока: Выполнить работу в технике обрывной аппликации Задачи: Образовательная: отработать навыки работы с бумагой клеем. Оборудование урока: для учителя: образцы различных видов аппликаций этапы изготовления цыплёнка шаблоны.
58682. Уроки трудового обучения. Структура урока технологии (труда) 69.5 KB
  Структура урока технологии труда Уроки трудового обучения по своим дидактическим целям содержанию методам обучения могут быть очень разнообразны. Для того чтобы учителю в должной мере овладеть методикой организации и проведения уроков необходимо прежде всего знать общие этапы...
58683. Мозаика «Собака» 42.5 KB
  Цель: выполнить проектную работу в технике мозаика Собака. Обучать выполнению аппликации мозаика. Но давайте сначала разберемся: знаете ли вы в какой технологии сделана эта работа Мозаика правильно А теперь посмотрите на экран.
58686. Работа с ватой на бархатной бумаге. Объект труда: аппликация – белка 64 KB
  Что является основой основой является бархатная бумага Какого цвета выбран фон Почему Можно ли его поменять Из какого материала мы будем выполнять работу мы будем работать с ватой бархатной и цветной...
58687. Цветочная лужайка. Пришивание пуговиц 52.5 KB
  Цель урока: Учить пришивать плоские пуговицы. пуговицы Молодцы Что же такое пуговица Пуговица это застежка на одежде предназначенная для соединения ее частей. Для чего пуговицы нужны Для того чтобы быть всегда опрятным человек должен следить за своим внешним видом за одеждой.
58688. Улитка 51 KB
  Цель урока: Создание полуобъемной аппликации «Улитка» Задачи: Образовательные: Учить выполнять полуобъемную аппликацию. Ознакомить с видами бумаги. Развивающие: Развивать мелкую моторику рук. Развивать мышление. Развивать глазомер...