Фадюшин С.Г. Компьютерные технологии в судовождении

Подождите немного. Документ загружается.

Выбор информативных имен для элементов управления

Каждый элемент управления имеет свойство Name (Имя), где ука-

зывается его имя. Причем оно должно быть уникальным (если этот

элемент не является частью массива элементов управления). Когда

создается тот или иной управляющий элемент, Visual Basic присваи-

вает ему имя по умолчанию. Так, например, первая кнопка будет на-

звана Command1, следующая кнопка Command2 и т. д. Это имя мо-

жет сообщить, что данный элемент является кнопкой и никакой дру-

гой информации не несет. Имена по умолчанию подходят для выясне-

ния порядка, в котором создавались элементы управления, но не вы-

зывают никаких разумных ассоциаций относительно того, для чего

они предназначены.

Имя должно информировать как о типе управляющего элемента,

так и о его назначении. Поэтому рекомендуется придерживаться со-

глашения об именах. Это сделает код программы более простым для

понимания и усовершенствования.

Следующее соглашение об именах используется для идентифика-

ции элементов управления большинством программистов на Visual

Basic: ctlName,

где ctl префикс, определяющий тип управляющего элемента;

Name имя элемента управления (информативное с точки зре-

ния функционального назначения).

Таким образом, имя cmdExit однозначно указывает на кнопку вы-

хода из программы, а имя txtPassword на текстовое поле для ввода

пароля.

Следует обратить внимание на то, что первая буква информатив-

ной части в синтаксисе имени является прописной, и таковыми явля-

ются первые буквы всех слов, входящих в эту часть имени (например,

txtFirstName). Это сделано для того, чтобы отделить имя от префикса,

а также разделить слова в имени.

Процедуры и функции

Все объекты, составляющие приложение, объединяются в проект.

Он может состоять как из одной, так и из нескольких форм, на каждой

из которых располагаются свои управляющие элементы.

Вся суть создания Windows-приложения сводится к программиро-

ванию событий, происходящих с управляющими элементами. Поэто-

му текст Visual Basic-программы представляет собой набор процедур

обработки событий. Под событием понимается действие, которое

будет производить пользователь над управляющими элементами в

процессе работы с готовой программой.

Все процедуры, связанные с данной формой, называются кодом

формы (модулем формы). Кроме того, в проект может входить само-

стоятельный набор процедур, не связанный с какой-либо формой.

Этот фрагмент программы называется модулем и может вызываться из

любой формы.

Каждая процедура начинается ключевыми словами Private (Public)

Sub и заканчивается словами End Sub. Ключевые слова Private и Public

определяют область видимости данной процедуры. Процедура, объяв-

ленная с ключевым словом Public, является открытой, т. е. видимой

другими компонентами приложения. Ключевое слово Private означает,

что процедура является закрытой, т. е. доступной только из данной

формы или модуля.

Существуют процедуры как связанные с элементами управления,

так и не связанные с ними. Такие процедуры, по сути, являются под-

программами и вызываются с помощью оператора Call. Подпрограм-

ма выполняет предписанное ей действие и потом возвращается в точ-

ку вызова.

Другой важный тип процедур функции (Function). Они также

объявляются с ключевыми словами Private и Public. Функции возвра-

щают некоторое значение вызывающей процедуре и заканчиваются

строкой End Function.

Переменные, массивы и константы

Любая программа в процессе своей работы производит операции

над данными. Это могут быть числа, строки текста, рисунки и т. д. В

самой программе эти данные могут размещаться в переменных или

массивах.

Переменная это именованная область памяти, отведенная для

временного хранения данных. При выполнении программы можно

изменять значение переменной. Прежде чем начать использование пе-

ременной, необходимо ее объявить. Объявление переменных может

быть как явным, так и неявным.

Явное объявление переменной производится с помощью операто-

ра Dim (от dimension размерность). Этот оператор резервирует оп-

ределенную область памяти под данную переменную. Далее указыва-

ется тип данных для переменной. Например, Dim X as String. В этом

примере переменная X объявлена как строковая. Типы данных, ис-

пользуемых в Visual Basic, указаны в табл. 1.

Таблица 1

Типы данных, используемых в Visual Basic

Тип данных

Размер

Диапазон значений

Byte (байт)

1 байт

От 0 до 255

Boolean (логический)

2 байта

True (Истина) или False (Ложь)

Integer (целое)

2 байта

От 32768 до 32767

Long Integer (длинное

целое)

4 байта

От 2 147483648 до 2 147483647

Single (одинарной точ-

ности с плавающей де-

сятичной точкой)

4 байта

От 3.402823Е38 до 3.402823Е38

Double (двойной точно-

сти с плавающей деся-

тичной точкой)

8 байт

От 1. 797693 13486232D308

до 1.79769313486232D308

Currency (денежные

единицы

8 байт

От 922337203685477.5808

до 922337203685477.5807

Data (дата)

8 байт

От January (Январь) 1, 100

до December (Декабрь) 31, 9999

String (строка)

1 байт на символ

От 0 до 65535 символов

Variant (вариант)

16 байт (для чи-

сел); 22 байта +1

на символ (для

строк)

Для всех типов переменных

Можно объявить переменную и без использования оператора Dim.

Этот процесс называется неявным объявлением. В этом случае пере-

менной автоматически будет присвоен тип Variant. Переменная, объ-

явленная оператором Dim в той или иной процедуре, будет использо-

ваться только внутри этой процедуры. Такая переменная называется

локальной. При выходе из процедуры значение переменной будет об-

нуляться. Чтобы сохранить еѐ значение, необходимо вместо Dim ис-

пользовать ключевое слово Static. В этом случае переменная будет со-

хранять последнее присвоенное ей значение.

Для того чтобы переменная могла использоваться всеми процеду-

рами данной формы или модуля, ее необходимо объявлять в секции

General Declarations (в самом начале окна с кодами). Кроме того, пе-

ременная может быть доступна на уровне всего приложения. Такая

переменная называется открытой, или глобальной. Она также объяв-

ляется в секции General Declarations, но вместо Dim используется

ключевое слово Global. Обычно в таких случаях в проект включается

стандартный модуль с расширением bas, а все глобальные переменные

помещаются в его секцию объявлений.

Массивы можно считать разновидностью переменных, однако в

них хранится сразу несколько однородных значений. Например, если

записано Dim X (5) as Integer, то это значит, что объявляется массив

X, в котором резервируется место для шести целочисленных значений

(начиная с Х(0)). Массивы могут быть как одномерными, так и мно-

гомерными. Например, Х(5) это одномерный массив, содержащий

шесть элементов, a Y(3,5) двухмерный, содержащий 24 элемента.

Таким образом, массивом называется список однородных величин, на

которые можно ссылаться по имени и индексу. Нередко размер мас-

сива (т. е. количество хранящихся в нѐм элементов) не может быть

определѐн заранее. Объявлять массив заведомо большего размера до-

вольно расточительно. В таком случае он объявляется пустым масси-

вом.

Массив, который в начале своего жизненного цикла не содержит

ни одного элемента, называется динамическим. По мере выполнения

программы в массив необходимо добавлять элементы, в которых бу-

дут храниться значения. Для этого используется оператор ReDim.

Позднее количество элементов массива снова можно изменить этим

же оператором. Однако все имевшиеся до этого в массиве значения

будут утрачены. Чтобы сохранить их, используют ключевое слово

Preserve.

Константы обладают некоторым сходством с переменными: они

тоже объявляются, и им присваиваются значения. Тем не менее в от-

личие от переменных значения констант остаются неизменными на

протяжении всей программы. Одновременно с объявлением констан-

ты ей присваивается значение. Для этого используется ключевое сло-

во Const. Например, Const Pi = 3.141593.

Управляющие структуры программы

В любом языке программирования существуют управляющие кон-

струкции, позволяющие задать порядок выполнения отдельных частей

программы. К ним относятся ветвления и циклы.

Ветвление управляющая структура, позволяющая выбрать, по

какому пути продолжится выполнение программы. Операторы ветв-

ления являются мощным инструментом программирования. Они по-

зволяют выборочно выполнять различные фрагменты программы и

соответствующим образом реагировать в ситуациях, возникающих

при выполнении приложения.

Чаще всего ветвление в Visual Basic реализуется посредством опе-

ратора If. В центре каждого оператора If находится условие выра-

жение, принимающее два значения: True (истина) и False (ложь). Если

условие истинно, выполнение программы продолжается по одной вет-

ви, если ложно, то по другой. В зависимости от сложности действий,

выполняемых в ветвлении, программная конструкция с оператором If

может занимать одну строку или принимать вид блока. В обеих фор-

мах используются ключевые слова If, Then, Else. В простейшем виде

ветвление представлено однострочным оператором If, который имеет

вид:

If условие Then действие 1 Else действие 2

Здесь условие это выражение, дающее результат True или False, а

действие 1 и действие 2 операторы Visual Basic. Если условие ис-

тинно, действие 1 выполняется, а действие 2 опускается. Если усло-

вие ложно, то наоборот. Часть Else является необязательной, без неѐ

однострочный оператор If принимает самый простой вид:

If условие Then действие

В этом случае действие выполняется, если условие истинно. В

противном случае оператор If ничего не выполняет.

Для того чтобы выбрать один из нескольких блоков программы,

каждый из которых содержит несколько операторов, следует исполь-

зовать условную управляющую структуру. Одна из еѐ форм выглядит

так:

If условие Then

Блок, выполняющийся, когда условие истинно

Else Блок, выполняющийся, когда условие ложно

End If

Ветвление, включающее проверку нескольких условий, реализует-

ся с помощью ключевого слова ElseIf. В эту структуру может входить

любое количество блоков ElseIf, каждый со своим условием и набо-

ром операторов:

If условие 1 Then

Блок, выполняющийся, когда условие 1 истинно ElseIf условие 2

Then

Блок, выполняющийся, когда условие 2 истинно ElseIf условие 3

Then

Блок, выполняющийся, когда условие 3 истинно Else

Блок, выполняющийся, когда все условия ложны End If

В этой структуре Visual Basic последовательно проверяет истин-

ность каждого из условий. Если встречается истинное условие, вы-

полняется соответствующий фрагмент программы, а оставшаяся часть

структуры пропускается.

Вторая управляющая структура ветвления задается с помощью

ключевых слов Select Case. Из всех блоков программного кода, вхо-

дящих в структуру выбора, оператор Select Case выполняет один из

блоков или не выполняет ни одного. Общий формат записи оператора

Select Case выглядит так:

Select Case контрольное выражение Case выражение 1

Блок, выполняющийся при соответствии выражения 1 значению

контрольного выражения Case выражение 2

Блок, выполняющийся при соответствии выражения 2 значению

контрольного выражения

Может присутствовать любое количество блоков Case

Case Else

Блок, выполняющийся в случае несоответствия ни одного из вы-

ражений контрольному выражению End Select.

Циклы применяются для многократного выполнения фрагмента

программы до тех пор, пока не будет выполнено определенное усло-

вие или счѐтчик не достигнет заданного значения.

Цикл состоит из двух основных компонентов: блока программного

кода, который должен повторяться, и команды, управляющей про-

должительностью повторений.

Первое требование, выполняемое при написании цикла задать

блок программного кода, который должен повторяться. Для этого в

начале и в конце цикла ставятся соответствующие ключевые слова.

В цикле Do это слова Do и Loop. Операторы, заключенные меж-

ду Do и Loop, составляют тело цикла. Условное выражение, опреде-

ляющее продолжительность цикла, может стоять либо при Do в нача-

ле цикла, либо при Loop в конце. Более того, в обоих случаях условие

вводится с одним из ключевых слов While или Until. Если необходи-

мо, чтобы цикл выполнялся, пока условие истинно, применяется клю-

чевое слово While. Цикл с условием Until прекращается, когда усло-

вие становится истинным. Синтаксис цикла Do приводится ниже:

Do While условие

Блок операторов, выполняемых в цикле до тех пор, пока условие

остается истинным

Loop

Блок операторов, выполняемых в цикле до тех пор, пока условие

не станет истинным

Loop Until условие

На поведение цикла существенно влияет место расположения ус-

ловия. Если условие расположено вначале, его проверка происходит

перед выполнением первой итерации. Если она оказывается неудач-

ной, цикл пропускается и ни одна итерация не выполняется. Наобо-

рот, в цикле с постусловием итерация всегда выполняется хотя бы

один раз. После выполнения первой итерации происходит проверка

условия продолжения цикла.

В цикле For ключевыми словами являются For и Next. Этот цикл

уместно применять, когда количество итераций известно. В синтаксис

этого цикла также входит переменная счѐтчик цикла и диапазон

принимаемых ею значений, а также шаг приращения счетчика:

For счетчик = выражение1 То выражение2 Step выражение3

Блок операторов, повторяющийся, пока счетчик не пройдет значение

от выражения1 до выражения2 с шагом выражение3

Next счетчик

Здесь счетчик имя переменной, выражение1 и выражение2

нижний и верхний пределы диапазона значений переменной, выра-

жение3 значение приращения переменной.

Оператор Step может не указываться, в этом случае при каждой

итерации счетчик будет увеличиваться на единицу.

Пример. Определить разность широт (РШ), если известны раз-

ность меридиональных частей (РМЧ), разность долгот (РД) и коорди-

наты верхнего левого и нижнего правого углов навигационной карты.

Судно находится в северных широтах, в восточном полушарии и

следует курсами в NE четверти.

РШ можно определить по формуле

РД

ОТШРМЧ

РШ

В этой формуле ОТШ можно найти из выражения

,cosРДОТШ

где в качестве начального значения средней широты

можно при-

нять среднюю широту карты, т. е.

где

– широта верхней и нижней рамок карты соответственно.

По мере вычислений и уточнений разности широт текущей точки

значение

также должно уточняться до тех пор, пока текущее значе-

ние РШ не будет отличаться от его предыдущего значения на задан-

ную малую величину.

Фрагмент кода программы, реализующий вышеприведѐнный ал-

горитм, выглядит следующим образом:

Dim f1r As Single 'Широта верхнего левого угла рамки карты

Dim dLt As Single 'Разность долгот левой рамки карты и текущей точки

Dim fsrk As Single 'Средняя широта карты

Dim OTt As Single 'Отшествие текущей точки

Dim rmcht As Single 'Разность меридиональных частей текущей точки

Dim dft As Single 'Текущая разность широт

Dim dfti As Single 'Предыдущее значение текущей разности широт

dfti = dft

OTt = (dLt / 57.3) * Cos(fsrk / 57.3)

OTt = OTt * 57.3

dft = (rmcht * OTt) / dLt

Ft = f1r dft

fsrk = (f1r + Ft) / 2

Loop Until Abs(dfti dft) <= 0.01

Вопросы для самоконтроля

1. Что такое Visual Basic?

2. Перечислите основные этапы программирования и дайте

им характеристику.

3. В чѐм заключается структурное программирование?

2. РАЗРАБОТКА ФОРМ ПРИЛОЖЕНИЙ В VISUAL BASIC

Способы ввода данных в программу и вывода результатов,

разработка главной формы ЭКС «Кадет»

Форма разрабатываемой программы-приложения должна обладать

удобным для пользователя интерфейсом и обеспечить ввод начальных

данных решаемой задачи и вывод полученных результатов.

Ввод данных в программу может осуществляться различными пу-

тями. Самым простым способом ввода данных является заполнение

переменных и массивов непосредственно в тексте программы. Однако

этот способ имеет ряд существенных недостатков. Во-первых, если

данных большое количество, то процесс их ввода будет достаточно

трудоемким. Во-вторых, при изменении данных придется постоянно

искать их в тексте программы. Но самый главный недостаток заклю-

чается в том, что после компиляции программы (перевода в машин-

ные коды) изменить данные будет невозможно.

Следующим способом ввода данных является ввод с помощью

элементов управления. Так, например, можно выбрать один из пунк-

тов раскрывающегося списка. Для этого список необходимо запол-

нить. Это можно сделать с помощью окна свойств, добавив нужные

данные в свойство List списка. После ввода каждой строки необходи-

мо нажимать клавишу Enter. Кроме того, список можно заполнить и

программно с помощью метода Addltem, который служит для вклю-

чения строк в список.

Если числовые данные лежат в строго определенном диапазоне,

можно вводить их с помощью полосы прокрутки. Для этого значение

переменной приравнивается к свойству Value полосы прокрутки.

Наиболее универсальным является ввод данных в текстовое окно

(TextBox). Однако в этом случае необходимо ограничить возможности

пользователя. Так, например, если в текстовое поле необходимо вво-

дить только числовую информацию, то нужно сделать невозможным

ввод текста. В противном случае в программе произойдѐт сбой.

Наиболее удобным является хранение информации вне програм-

мы в отдельных файлах. Такими файлами могут быть ASCII-

файлы обыкновенные текстовые файлы, которые можно создать в

любом текстовом редакторе. Они содержат данные произвольного ти-

па и могут форматироваться в виде списка величин, разделенных за-

пятыми или другими символами.

Для открытия файла в Visual Basic используется оператор Open.

Его синтаксис имеет вид:

Open имя файла For режим доступа As файловый номер

Параметр имя файла определяет полное имя открываемого файла

(содержащее путь к файлу). Visual Basic позволяет открыть несколько

файлов одновременно.

Для идентификации открываемого файла служит параметр файло-

вый номер, который используется при выполнении файловых опера-

ций в программе.

Параметр режим доступа может принимать следующие значения:

Append (Дополнение), Input (Ввод), Output (Вывод), Random (Про-

извольный) и Binary (Двоичный). Ни один из этих режимов не имеет

явных преимуществ перед остальными. Выбор режима зависит от

формата данных файла.

Режимы Input, Output и Append служат для последовательного

доступа к данным. В этом случае символы считываются (или записы-

ваются) один за другим. Если используется режим Input, то файл от-

крывается для чтения. Здесь чаще применяется оператор Line Input #

построчный ввод (а также оператор Input # или функция Input). После

символа # необходимо указывать файловый номер.

Если используется режим Output или Append, то файл открывается

для записи. Причем в случае применения Output все данные, хранив-

шиеся до этого в файле, стираются, а в режиме Append новые записи

добавляются в конец файла. Для записи в файл можно пользоваться

оператором Print # (или Write #).

Если выбран режим Random, то осуществляется произвольный

доступ к данным. В отличие от последовательного доступа программа

может перейти к любой записи (строке данных) и считать ее содер-

жимое. Для этого в операторе Open необходимо указать длину записи

в символах:

Open имя файла For Random As файловый номер Len = длина за-

писи.

Режим Random открывает файл как для записи, так и для чтения.

Для записи данных применяется оператор Put #, а для чтения опера-

тор Get #. Синтаксис этих операторов следующий:

Put (Get) # файловый номер, номер записи, содержимое

Для оператора Put содержимое переменная, которая содержит

эту запись, а для оператора Get переменная, в которую будет зане-

сена эта запись.

Если выбран режим Binary, то режим доступа двоичный. Так же,

как и в произвольном режиме доступа, чтение данных производится