Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 4. Цель: Получить навыки использования массива объектов
|
|
Тема: Массивы объектов.
Цель: Получить навыки использования массива объектов
Порядок выполнения
8. Установите на форме следующие объекты и измените им свойства:
| Объект | Свойство | Значение | Свойство | Значение |
| Командная кнопка | Name | Cmd | ||
| Caption | Нажми | |||
| Массив меток | Index | Caption | Точка, точка | |
| Name Label1 | Index | Caption | Два крючочка | |
| Index | Caption | Носик, ротик | ||
| Index | Caption | Оборотик | ||
| Index | Caption | Ручки | ||
| Index | Caption | Ножки | ||
| Index | Caption | Огуречик | ||
| Index | Caption | Вот и вышел человечек | ||
| Массив фигур | Index | Глаз | ||
| Shape1 | Index | Глаз | ||
| Index | Нос | |||
| Index | Рот | |||
| Index | Голова | |||
| Index | Рука | |||
| Index | рука | |||
| Index | Нога | |||
| Index | Нога | |||
| Index | Туловище | |||
| Линии | Name | Line1 | Брови | |
| Name | Line2 | |||
| Таймер | Name | Timer1 |
9. Приведите свою форму в соответствие с образцом
10. В разделе общих объявлений набрать
Dim k As Integer
11. В окне кода процедуры обработки события Load для объекта Form набрать:
'количество щелчков по кнопке
k = 0
12. В окне кода процедуры обработки события Click для объекта Cmd набрать:
k = k + 1
If k < 9 Then
Label1(k).Visible = True
If k = 1 Then Shape1(0).Visible = True: Shape1(1).Visible = True
If k = 2 Then Line1.Visible = True: Line2.Visible = True
If k = 3 Then Shape1(2).Visible = True: Shape1(3).Visible = True
If k = 4 Then Shape1(4).Visible = True
If k = 5 Then Shape1(5).Visible = True: Shape1(6).Visible = True
If k = 6 Then Shape1(7).Visible = True: Shape1(8).Visible = True
If k = 7 Then Shape1(9).Visible = True
If k = 8 Then MsgBox " Здравствуй, дружок",, " Привет"
Else
MsgBox " До свидания, дружок",, " Я ушел"
Timer1.Interval = 1
End If
13. В окне кода процедуры обработки события Timer для объекта Timer1 набрать:
'движение человечка по " частям"
For i = 0 To 9
Shape1(i).Left = Shape1(i).Left + 50
Next i
If Shape1(1).Left > 9000 Then End
14. Проверьте работу программы
15. Измените программу так, чтобы «брови» двигались вместе с «человечком»
|
|