ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 3

Тема: Условный оператор

Цель: Закрепить навыки использования условного оператора

Порядок выполнения

32. Установите на форме следующие объекты и измените им свойства о

33. Выделите все изображения светофора (при нажатой клавише Shift) и установите следующие значения для свойств:

- Stretch True

- Left 1000

- Top 200

- Height 1000

-

34. Приведите свою форму в соответствие с образцом

35. В окне кода процедуры обработки события Click для объекта Command1 набрать

If ImgG.Visible = True Then

'выключи зеленый включи желтый

ImgG.Visible = False

ImgY1.Visible = True

Timer1.Interval = 0

Timer2.Interval = 0

Exit Sub

End If

If ImgY1.Visible = True Then

'выключи желтый включи красный

ImgY1.Visible = False

ImgR.Visible = True

Timer1.Interval = 0

Timer2.Interval = 1

Exit Sub

End If

If ImgR.Visible = True Then

'выключи красный включи желтый

ImgR.Visible = False

ImgY2.Visible = True

Timer1.Interval = 0

Timer2.Interval = 0

Exit Sub

End If

If ImgY2.Visible = True Then

'выключи желтый включи зеленый

ImgY2.Visible = False

ImgG.Visible = True

Timer1.Interval = 1

Timer2.Interval = 0

Exit Sub

End If

36. В окне кода процедуры обработки события Timer для объекта Timer1 набрать

ImgAvto.Top = ImgAvto.Top - 50

If ImgAvto.Top < 0 Then ImgAvto.Top = 4000

37. В окне кода процедуры обработки события Timer для объекта Timer2 набрать

ImgDog.Left = ImgDog.Left - 50

If ImgDog.Left < 0 Then ImgDog.Left = 4000

38. Проверьте работу программы

39. Измените приложение, включив проверку на аварию, для этого в процедуру Timer1_Timer добавьте

X1 = ImgDog.Left: Y1 = ImgDog.Top

X2 = ImgAvto.Left: Y2 = ImgAvto.Top

If (X2 > X1 - 500) And (X2 < X1 + 500) Then

If (Y2 < Y1 + 500) And (Y2 > Y1 - 500) Then

MsgBox " Авария"

ImgAvto.Top = 4000

ImgDog.Left = 4000

End If

End If

40. Проверьте работу программы