Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 3
|
|
Тема: Условный оператор
Цель: Закрепить навыки использования условного оператора
Порядок выполнения
32. Установите на форме следующие объекты и измените им свойства о
| Объект | Свойство | Значение |
| Командная кнопка | Name | Command1 |
| Caption | Переключи | |
| Изображения | Name | ImgAvto |
| Picture | \Icons\Traffic\Trffc6 | |
| Name | ImgDog | |
| Picture | \Icons\Arrows\Point08 | |
| Name | ImgR | |
| Picture | \Icons\Traffic\Trffc10c | |
| Name | ImgG | |
| Picture | \Icons\Traffic\Trffc10a | |
| Name | ImgY1 | |
| Picture | \Icons\Traffic\Trffc10b | |
| Name | ImgY2 | |
| Picture | \Icons\Traffic\Trffc10b | |
| Таймеры | Name | Timer1 |
| Name | Timer2 |
33. Выделите все изображения светофора (при нажатой клавише Shift) и установите следующие значения для свойств:
- Stretch True
- Left 1000
- Top 200
- Height 1000
-
 |
Width 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. Проверьте работу программы
|
|