Программирование и алгоритмизация

If Условие Then Инструкция1 [Else Инструкция2] [End If]

Если Условие  принимает значение True, то выполняется  Инструкция1, иначе Инструкция2. Ключевое слово End if необходимо только в случае блочной структуры оператора.

If Условие Then

Инструкции1

[Else

Инструкции2]

Еnd If

Для проверки нескольких условий используется оператор в  виде if - Then -Eiseif.

Синтаксис:

If Условие1 Then

Инструкции1

ElseIf Условие2 Then

Инструкции2

Else

Инструкции3

End If

Если условие1 имеет значение True, то выполняются  инструкции1 и далее после End if. Если Условие1 имеет значение False, то проверяется Условие2 и т. д. пока не встретится условие, имеющее значение True, или пока не встретится ключевое слово Else.

Примеры.

If A > 10 Then A = A + 1 : B = B + A

 

If А < 10 Then

Print "однозначное"

ElseIf А < 100 Then

Print "двухзначное"

Else

Print "трехзначное и более"

End If

Оператор выбора

Оператор выбора выполняет одну из нескольких групп  инструкций в зависимости от значения выражения. Синтаксис:

Select Case Выражение

Case СписокВыражений1

Инструкции1

Case СписокВыражений2

Инструкции2

и т.п.

[Case Else

Инструкции3]

End Select

Где СписокВыражений - это список с разделителями, состоящий из одного или нескольких выражений следующего вида:

2, 4, 5

6 to 10

Is>18

Выполняются те инструкции для которых СписокВыражений  включает значение Выражение, иначе выполняется Инструкции после Else. Пример:

N=21

Select Case N

Case 21

Print "21"

Case 23

Print "23"

End Select

Оператор цикла с параметром: For - Next

Оператор цикла For - Next повторяет выполнение инструкций при изменении параметра цикла от значения параметр1 до значения параметр2 с заданным шагом параметра. По умолчанию шаг параметра равен 1. Синтаксис:

For параметр = параметр1 То параметр2 [ШагПараметра]

Инструкции

Next [параметр]

Прервать цикл можно оператором Exit For. Допустимы  вложенные циклы.

Пример:

S=0

  For i = 0 To 10

    S=S+10

  Next

Оператор цикла  для элементов группы: For Each - Next

Оператор цикла For Each - Next повторяет выполнение инструкций для каждого элемента массива или семейства. Синтаксис:

For Each Элемент  In Группа

Инструкции

Next [Элемент]

Прервать цикл можно оператором Exit For.

Перед выполнением  оператора нужно объявить тип  элемента управления. Пример.

Dim Command As Object For Each Command In Command1    Command.Enabled = False Next Command

Dim Cntrl as Control for Each Cntrl in Controls    Cntrl.Enabled=False Next

 

Здесь Command1 - массив элементов CommandButton, Controls – семейство  элементов управления.

Оператор цикла  с предусловием: While - Wend

Оператор цикла while - wend повторяет выполнение инструкций, пока заданное условие имеет значение True. Синтаксис:

While Условие

Инструкции 

Wend

Оператор цикла  с комбинацией условий Dо - Loop

Оператор DO - Loop повторяет выполнение инструкций, при while условии равном True или Until условии равном False. Синтаксис:

Do [While | Until Условие] Инструкции Loop

Do Инструкции Loop [While | Until Условие]

Прервать цикл можно оператором Exit Dо.

Пример:

Dim InPass, MyPass, n

  MyPass = "y"

  n = 1

  Do

   InPass = InputBox("Введите пароль")

    n = n + 1

    If n > 3 Then Exit Do

  Loop Until InPass = MyPass

  If n > 3 Then End

Оператор безусловного перехода GoTo

Оператор безусловного перехода задает переход на указанную  Метку внутри процедуры. Имя Метки  должно начинаться с буквы. Синтаксис:

GoTo Метка

Метка с двоеточием пишется перед началом инструкции на которую будет передано управление оператором GoTo. Синтаксис:

Метка: Инструкция

Синтаксические  правила для инструкций

Комментарии

Комментарии т. е. пояснения к фрагменту текста программы, не являются программным кодом и игнорируются компилятором. Комментарий начинается с апострофа ', либо словом Rem, при этом все символы до конца строки, будут восприниматься компилятором как комментарий.

Перенос строки инструкции

Для продолжения  инструкции Visual Basic в конце строки ставится пробел и знак подчеркивания "_". Исключения:

• нельзя переносить строковые константы;
• допустимо не более семи продолжений одной и той же строки;
• инструкция не может состоять более чем из 1024 символов.

Расположение  нескольких инструкций в одной строке

Знак двоеточие ":" позволяет разместить несколько  инструкций в одной строке.

Оператор With

Оператор with позволяет  не указывать имени объекта в  области оператора при работе с его свойствами и методами при этом точка перед свойством или методом остается. Синтаксис:

With ИмяОбъекта

инструкции (используют .СвойствоОбъекта, .МетодОбъекта)

End With

Пример:

With MyObject

  .Height = 100    'тоже что и MyObject.Height = 100

  .width=777

  With .Font

    .Color = Red   'тоже что и MyObject.Font.Color = Red

    .Bold = True   'тоже что и MyObject.Font.Bold = True

  End With

End With

 

Функции и процедуры

Описание функций  и процедур

Процедуры и  функции содержат инструкции, обеспечивающие выполнение некоторой задачи. Они имеют имя, могут иметь входные параметры, раздел описания, раздел инструкций и возвращать значения своих параметров. Имена процедур и функций удовлетворяют правилам именования переменных. Перед именем процедуры используют служебное слово Sub, а перед именем функции - Function. Синтаксис процедуры:

[Private | Public]

Sub ИмяПроцедуры[(СписокФормальныхПараметров)]

Инструкции

End Sub

Синтаксис функции:

[Public | Private]

Function ИмяФункции([СписокФормальныхПараметров]) [As Тип]

[Инструкции]

[ИмяФункции = Выражение] ' возврат  значения функции

End Function

Для прерывания процедуры используется инструкция Exit sub, функции - Exit Function.

Опция	Назначает область действия
Public	процедура доступна для всех процедур во всех модулях  приложения.
Private	процедура доступна для процедур только того модуля, в  котором она описана.
static	локальные переменные процедуры сохраняются при каждом вызове процедуры.

Список параметров, значения которых передаются в процедуру (функцию) или возвращаются из процедуры (функции), разделяется запятыми. Синтаксис:

[ByVal | ByRef] ИмяПараметра [As тип] 

Опция	Указывает
Optional	что параметр из СпискаФормальныхПараметров - необязательный. Все параметры, следующие за необязательным, также должны быть необязательными и описаны с помощью опции Optional. Все параметры, описанные как Optional, должны иметь тип Variant. He может использоваться с опцией ParamArray. В процедуре  с необязательными параметрами  можно использовать функцию isMissing, возвращающую True, если соответствующий параметр не был передан в процедуру, и False в противном случае.
ByVal	что параметр из СпискаФормальныхПараметров передается по значению.
ByRef	что параметр передается по ссылке. Опция ByRef используется по умолчанию.
ParamArray	что конечный (последний) параметр - необязательный массив значений типа Variant. Не может использоваться с опциями ByVal, ByRef или Optional.
Тип	тип параметра. Не допускаются строки фиксированной  длины. Если отсутствует ключевое слово Optional, могут быть также указаны определяемый пользователем тип или объектный тип Object.
Значение	константу или  выражение, дающее константу, используемое по умолчанию. Задается вместе с опцией optional. Для типа Object задается значение Nothing.

Примеры:

Function Hypotenuse(A As single, B As single) As single

  Hypotenuse = Sqr(A ^ 2 + B ^ 2)

End Function

 

Sub FormsClose()

Dim i as integer

  For i = Forms.Count – 1 to 0 Step - 1

    Unload Forms(i)

  Next

End Sub

Вызов функций  и процедур

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

1. ИмяПроцедуры СписокФактическихПараметров
2. Call ИмяПроцедуры (СписокФактическихПараметров)

Инструкцию Call можно также использовать для  вызова функции.

Вызов функции 

Х = ИмяФункции (СписокФактическихПараметров)

СписокФактическихПараметров должен соответствовать по порядку, количеству и типам параметров спискаФормальныхПараметров, заданному в процедуре (функции) при ее определении.

Примеры:

A=7.7

B=8.9

С= Hypotenuse(A,B)

FormsClose

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

ИмяМодуля.ИмяПроцедуры СписокФактическихПараметров

Используя имена  формальных параметров (с опцией ByVal), Visual Basic позволяет вводить фактические  параметры в любом порядке. При этом после имени параметра ставятся двоеточие и знак равенства, после которого помещается значение параметра, например:

ИмяПроцедуры a:=l, b:=3

Рекурсивные функции

Рекурсивные функции - функции, вызывающие самих себя. Классическим примером является функция вычисления факториала, например:

Function Fact(n As Integer) As Integer

  If n<1 Then

Fact = 1

  Else

Fact = Fact(n-1)*n

  End If

End Function

Область видимости переменной

Существуют  три типа области видимости переменной.

1. Локальные переменные описываются внутри процедуры при помощи инструкций Dim или Static и распознаются только в процедуре, в которой они описаны.
2. Личные переменные описываются внутри модуля при помощи инструкций Dim или Private и распознаются только в модуле, в котором они описаны.
3. Открытые переменные описываются внутри модуля при помощи инструкции Public и доступны для всех процедур проекта.

Отметим, что  если имя локальной переменной дублирует  имя личной или открытой переменной, то последние необходимо использовать с указанием имени модуля, либо они будут "перекрыты" локальной переменной. То же относится и к формальным параметрам.

Время жизни  переменной

Локальные переменные сохраняют свое значение, во время  выполнения процедуры и при повторном  запуске процедуры "обнуляются". Локальные переменные, описанные при помощи инструкции static, сохраняют свое значение пока работает программа.

Константы и функции  для задания цвета изображения

В Visual Basic для задания цвета изображения используется шестнадцатеричные константы, обозначаемые с префиксом &Н.

Удобно задавать цвет, используя функции RGB и QBColor.

Функция RGB позволяет получить любой цвет, смешивая красную, зеленую и синюю компоненты различной интенсивности.

Синтаксис: RGB(Red, Green, Blue),   где Red, Green, Blue - целые числа от 0 до 255:

• Red –интенсивность красного
• Green –интенсивность зеленого; Blue –интенсивность синего.

Константы	Шестнадцатеричные значения BGR	Интенсивность цветов RGB			Цвета
		красного	зеленого	синего
VbBlack	&H0	0	0	0	Черный
VbRed	&HFF	255	0	0	Красный
VbGreen	&HFF00	0	255	0	Зеленый
VbYellow	&HFFFF	255	255	0	Желтый
VbBlue	&HFF0000	0	0	255	Синий
VbMagenta	&HFF00FF	255	0	255	Розовый
VbCyan	&HFFFF00	0	255	255	Голубой
VbWhite	&HFFFFFF	255	255	255	Белый

Функция QBColor возвращает шестнадцать основных цветов.

Синтаксис: QBColor(color)   где color - целое число от 0 до 15.

0 - Черный	4 - Красный	8 - Серый	12 - Светло-красный
1 - Синий	5 - Розовый	9 - Светло-синий	13 - Светло-розовый
2 - Зеленый	6 - Желтый	10 - Светло-зеленый	14 - Светло-желтый
3 - Голубой	7 - Белый	11 - Светло-голубой	15 - Насыщенный  белый

Создание стандартного проекта  приложения

Для запуска Microsoft Visual Basic 6.0 (файл VB6.exe) выполните команду  главного меню Пуск, Программы, Microsoft Visual Basic 6.0, Microsoft Visual Basic 6.0. При настройках по умолчанию, на экране появляется диалоговое окно New Project (Новый проект).

 

	Окно New Project имеет вкладки:   New (Новый) - содержит шаблоны и мастера для создания нового проекта; Existing (Существующий) - позволяет открыть ранее созданный проект или  проекты-примеры, поставляемые с Visual Basic Recent (Недавно созданный) - содержит список проектов, открывавшихся в последнее время;
Рис. 1. Окно создания проекта

Используйте компонент Standard EXE для создания стандартного проекта приложения.

Интегрированная среда разработки приложений Visual Basic

Интегрированная среда проектирования Microsoft Visual Basic предназначена для разработки различных приложений и позволяет конструировать интерфейс приложения, редактировать исходный код программы, компилировать и отлаживать приложения. Совокупность файлов, создаваемых в процессе разработки приложения, принято называть проектом.