Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.36
Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.36

Do While—Loop

Этот цикл сначала проверяет условие и, если оно соответствует True, выполняет заданные инструкции. Если условие False, цикл прекращается. Таким образом, этот цикл может быть вообще не выполнен. Вот как выглядит синтаксис цикла:

Do While условие Инструкции

Loop

Составим программу движения объекта Label3 по диагонали:

Dim a As Double Dim b As Double a = Label3.Left b = Label3.Top Do While a < 300

a = a + 0.0001

b = b + 0.0001

Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста

Циклы Do

Label3.Left = a Label3.Top = b

Loop

В первой и второй строках задаем имена переменным. В третьей и четвертой определяем их значения. В пятой строке прописывается условие: цикл выполняется до тех пор, пока условию соответствует значение True, то есть горизонтальная координата объекта меньше 300 пикселов. В шестой и седьмой строках с каждой итерацией происходит увеличение значений переменной на 0,0001. Далее определяется горизонтальное и вертикальное положение объекта.

Do Until...Loop

Этот цикл сначала проверяет условие и, если оно соответствует False, выполняет инструкции до тех пор, пока условие не примет значение True. Этот цикл также может не выполняться. Синтаксис его таков:

Do Until условие Инструкции

Loop

Примером для этого цикла послужит программа движения объекта по кривой. Поместим на форму объект LabeH (слева вверху) и составим для него следующий код:

Dim a As Double Dim b As Double Dim k As Double a = LabeH. Left b = Label4.Top k = 0.0001 Do Until a > 500

k = k + 0.0001

a = a + 0.0001

b = b + k * 0.0000005

LabeH. Left = a

Label4.Top = b

Loop

В первой, второй и третьей строках присваиваются имена переменным. В четвертой, пятой и шестой определяются их значения. Здесь к - коэффициент, необходимый для

Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста

ГЛАВА 8 ▼ Циклические программы

придания кривизны траектории движения. Седьмая строка задает условие: цикл выполняется до тех пор, пока условие равно False, то есть пока горизонтальное положение объекта не станет больше 500 пикселов. В восьмой, девятой и десятой строках значения переменных меняются на величину, необходимую для сообщения объекту криволинейного движения. Последние строки определяют горизонтальные и вертикальные координаты объекта.


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta