11418

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

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

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

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

Русский

2013-04-07

34.5 KB

113 чел.

Секундомер

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


 

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

82509. Общая характеристика правовых систем стран Дальнего Восток 26.29 KB
  К отличительным критериям на основе которых можно определить к какой правовой семье следует отнести ту или иную правовую систему принадлежит также восприятие права как исключительно важного социального инструмента регулирования общественных отношений. Поэтому описание китайского и японского права позволит выявить некоторые важные и характерные элементы общей дальневосточной концепции права. Все западные правовые системы независимо от того относятся ли они к семье романогерманского или общего права едины в том что важнейшие вопросы...
82510. Общая характеристика российской правовой системы 27.03 KB
  То что правоприменители и граждане столь часто подчиняются правовым обыкновениям даже в ущерб соблюдению норм права связано с историческими особенностями с противодействием монгольскому владычеству и с традиционной либеральностью центральной власти по отношению к местной. Система права стала более упорядоченной. Правда остаются весьма болезненными проблемы соответствия законодательства субъектов федеральному законодательству и отсутствия нормативных актов в ряде важнейших отраслей права экологическом незавершенность налоговой кодификации...
82511. Значение сравнительного правоведения как науки и учебной дисциплины 26.7 KB
  Сравнительноправовые исследования в сочетании с традиционными историческим нормативным и социологическим видением права позволяют: вопервых изучить явления правовой действительности которые ранее не охватывались проблематикой правоведения и выйти за национальные рамки своей правовой системы; вовторых взглянуть под особым углом зрения на ряд традиционных проблем юридической науки с учетом тенденций развития права в современном мире. Для юридической науки обращенной прежде всего к национальному праву использование сравнительного...
82512. История сравнительного правоведения 27.8 KB
  Сторонники первого похода рассматривающие его лишь как один из научных методов юриспруденции настаивают на древнем происхождении сравнительного правоведения При этом они указывают что еще античные а позже и средневековые философы и законодатели использовали сравнение как метод исследования в целях решения конкретных проблем. При этом иногда указываются такие конкретные даты как 1869 год год основания французского Общества сравнительного законодательства и реже 1900 год. когда был проведен I Международный конгрес сравнительного права.
82513. Научная, образовательная, практическая функции сравнительного правоведения 24.14 KB
  Сравнительное правоведение как и любая другая наука воздействует на общество. Научная функция Сравнительное правоведение является одним из важнейших поставщиков информации об иностранных правовых системах для всей юридической науки. Кроме этого сравнительное правоведение обладает и самостоятельной научной ценностью особенно в части разработки теории правовой системы. Сравнительное правоведение один из немногих курсов позволяющих более или менее подробно ознакомиться иными правовыми системами что существенно расширяет профессиональный...
82514. Правовая семья (правовая система) – основное понятие сравнительного правоведения 27.46 KB
  Правовая система как совокупность социальных институтов их функциональных связей и качественных характеристик посредством которых осуществляется правовое регулирование общественных отношений. Наиболее распространен в современной компаративистике термин правовая семья Категория правовая семья служит для обозначения группы правовых систем имеющих сходные юридические признаки позволяющие говорить об относительном единстве этих систем. Понятие правовая семья отражает те особенности некоторых правовых систем которые являются результатом...
82515. Критерии классификации правовых систем (семей) 25.42 KB
  Например в раннегосударственную эпоху критерий был более чем простым правовые системы делились на свои правильные и чужие неправильные. Так по этому критерию можно разграничить христианские мусульманские и языческие правовые системы. компаративистский Компаративистский подход основан на том что правовые системы отдельных государств можно объединить в правовые семьи на основе сходства по следующим критериям: 1. Сходство структуры системы права и системы законодательства системы применения права.
82516. Соотношение сравнительного правоведения с международным публичным и международным частным правом 25.76 KB
  Взаимодействие сравнительного правоведения и МЧП как особых научных дисциплин широкое понимание Все методы решения коллизии законов предусматривают применение в ряде случаев иностранного закона. Сравнительное правоведение предоставляет в распоряжение МЧП инструментарий позволяющий правильно построить соответствующие институты...
82517. Понятие, формирование и распространение романо-германской правовой семьи 27.53 KB
  К романогерманской правовой семье относятся правовые системы возникшие в континентальной Европе на основе римских канонических и местных правовых традиций. Романогерманская правовая семья это правовые системы созданные с использованием римского правового наследия и объединенные общностью структуры источников права и сходством понятийноюридического аппарата Формирование. Романогерманская правовая семья имеет весьма длинную юридическую историю.