Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
-
Как продвинуть сайт на первые места?Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.Ускорение продвиженияЕсли вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги. Начать продвижение сайта
-
-
Сервис онлайн-записи на собственном Telegram-ботеТот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое расписание, но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
Для новых пользователей первый месяц бесплатно. Чат-бот для мастеров и специалистов, который упрощает ведение записей: — Сам записывает клиентов и напоминает им о визите;
— Персонализирует скидки, чаевые, кэшбэк и предоплаты;
— Увеличивает доходимость и помогает больше зарабатывать; Начать пользоваться сервисом
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 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. Измените программу так, чтобы «брови» двигались вместе с «человечком»
|
|