Программирование
Веб программирование

Операторы VB

 
 

В первой части я уже говорил об операторе цикла со счетчиком, но только не подробно. А вот теперь будем базарить не только об операторе цикла со счетчиком, а операторе цикла с условием. Об операторе цикла со счетчиком я не буду много говорить, т.к. все нужное я сказал в 1 части, НО если ты зациклился на операторе цикла со счетчиком то почитай на моем сайте в разделе статьи(Начинающим). Ну короче посмотри оператор цикла со счетчиком в первой части(только обязательно посмотри, т.к. он нам пригодится). А теперь по - базарим о операторе цикла с условием.
Оператор цикла с условием имеет такой синтаксис:

Do 

Loop

Вот даже можешь сделать программу:

Private Sub Form_Load()
Do 
MsgBox "Цикл"
Loop
End Sub

Запусти(F5). Ну что - завис? Теперь тебя спасет только Ctrl+PauseBreak. Теперь мы подошли к сути этого шага - к условию! Есть 2 вида условия это:

Do Until x = 0 
MsgBox "Цикл"
Loop

Если x <> 0 то цикл будет повторятся, до тех пор, пока x = 0
и второй вид:

Do While x = 0
MsgBox "Цикл"
Loop

Если x = 0 то цикл будет повторятся, до тех пор, пока x <> 0(я использую только этот вариант, и все примеры будут на нем)
Ну, это вроде и все, только старина Билл придумал еще и функцию DoEvents, она нужна чтоб цикл не зацикливался. Ну чтоб все это понять сделаем программу. На форму кинь текстовое поле, и 2 кнопки(у первой Caption = "Пуск", у второй = "Стоп"). Вот код:

Dim x As Long 

Private Sub Command1_Click()
x = 0
Do While x = 0 ' Если X = 0 то цикл повторятся
DoEvents ' Это чтоб цикл не зациклился, если ее не напишешь то комп будет виснуть
Text1.Text = Text1.Text + 1 ' Каждый раз когда цикл будет повторяться текст в текстовом поле будет на 1 увеличиваться
Loop
End Sub

Private Sub Command2_Click()
x = 1 ' При нажатии на кнопку цикл останавливается
End Sub

Private Sub Form_Load()
x = 0
Text1.Text = 0
End Sub

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


Есть вопросы? Спроси на нашем форуме!!
Нет комментариев

Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.