ОИ. Отчет по 2 лабораторной. Сравнение работы операторов if и case при помощи объекта Timer
 Скачать 308.15 Kb.
|
1 2 ЛАБОРАТОРНАЯ РАБОТА № 2 Дисциплина: Информационные системы и программирование Тема: «Сравнение работы операторов IF и CASE при помощи объекта Timer» Студент группы 1ИСП11-8 Савельев Иван Сергеевич Специальность: 09.02.07 Информационные системы и программирование О Преподаватель /А.С. Сидельников/ Дата 26.02.2019 Москва 2019 СодержаниеСодержание 2 Введение 3 1. Теоретический раздел 4 2. Практический раздел 7 2.1 Инструкция пользователя 7 2.2. Листинг кода: 19 Заключение 38 Список литературы 39 ВведениеДля выполнения данной лабораторной работы я использовал программу Microsoft Visual Basic версии 6.0. В этой работе мы, используем переменные с циклами. В данной работе у нас присутствует 5 кнопок (Выход; Подсчёт последовательного IF; Подсчёт последовательного CASE; Подсчёт вложенного IF; Подсчёт вложенного CASE). Также есть 3 поля для ввода («Введите день месяца»; «Введите номер месяца»; «Введите год») и 4 поля для вывода («Время IF»; «Время CASE»; «Время IF»; «Время CASE» ;). В первом текстовом поле мы выводим скорость работы сложного IF. Во втором текстовом поле мы выводим скорость работы CASE. В третьем текстовом поле мы выводим скорость работы вложенного IF. В четвёртом текстовом поле мы выводим скорость работы вложенного CASE. В случае ввода некорректной информации (цифры) программа должна выводить на экран окно с информацией об ошибке, а также стирать все информацию записанную в этом окне. 1. Теоретический разделВ данной программе я использую следующие методы и функции: GotFocus - событие, скрывающее надписи из текстового поля при его выделения. Происходит, когда объект получает фокус, или при нажатии кнопки Tab или кликом по объекту, а также при запуске метода SetFocus в программе. Форма получает фокус только тогда, когда все видимые элементы отключены (Enabled = False). LostFocus – при этом событие при переходе с активного поля на другое, восстанавливая Происходит при потере объектом фокуса, или при нажатии Tab юзером, или при использовании метода SetFocus для другого объекта. т указанную в коде надпись. Класс DateTime: Свойства: DATE - Возврашает текущую дату Time - Возвращает текущее время Now - Возвращает текущую дату и время Timer – возвращает кол-во миллисекунд от начала суток Методы: minute, hour, day, weekday, year, month Date – Описание Функция возвращает текущую системную дату. Синтаксис Date Возвращаемые значения Возвращает значение типа VarType (Date) в формате mm.dd.yy, где mm - месяц (01-12), dd - день месяца (01-31), yy - год (1980-2099). Примечание Для получения текущего системного времени используйте функцию Time, а для получения даты и времени - Now. Для установки системной даты используется оператор Date. Load – при данном событие при открытии программы выводит все изначальные надписи в их окна. Функция CInt(integer) преобразует значение в целый тип. Дробная часть при этом округляется. CDbl - Функция преобразует указанное выражение в тип Double. Синтаксис CDbl(Expression) Параметры Expression - любая строка, либо численное выражение. Возвращаемые значения Возвращает значение типа Double. Если аргумент не может быть преобразован в тип Double, возникает ошибка. Оператор выбора SELECT CASE (ветвление) используется для проверки одного условия и выполнения одного из нескольких блоков операторов. Проверяемое выражение вычисляется в начале работы оператора Select Case. Это выражение может возвращать значение любого типа (логическое, числовое, строковое). Timer - Это событие имеется только у элемента управления Timer. Оно происходит через определённый интервал времени, указанный в его свойстве Interval. Timer невидим для пользователя, и полезен для внутренних процессов программы. Его можно использовать, когда необходимо, чтобы некоторый код программы выполнился через определённый промежуток времени. Например, с его помощью можно сделать часы. Для этого достаточно поместить на форму элемент Timer, установите его свойство Interval в 1000 (1 сек = 1000 мс), и вставить следующий код: Private Sub Timer1_Timer() Form1.Caption = Time End Sub Функция Time возвращает текущее системное время. Таким образом, каждую секунду будет выполнять событие Timer, и, следовательно, изменение заголовка формы. Примечание: количество таймеров на форме не ограничено. Синтаксис Условный оператор: If….Then - выражение проверяет одно или несколько условий в зависимости от результата выполняет различные действия. Виды: Блочная: If condition, Then Command1 Command2 ... Command Else Command01 Command02 ... Command End if Однострочная: If condition Then command1 Else command2 Функция IsNumeric проверяет, является ли значение данного выражения числом. Функция способна обрабатывать данные любого типа без генерации ошибки. Возвращает значение типа Boolean, показывающее, имеет ли выражение числовое значение. Функция IsNumeric возвращает True, если выражение имеет числовое значение; в противном случае возвращается False.IsNumeric возвращает False, если выражение является выражением даты Dim MyVar, MyCheck MyVar = "53" MyCheck = IsNumeric(MyVar) MyVar = "45 Help" MyCheck = IsNumeric(MyVar) 1 2 |