Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






  • Как продвинуть сайт на первые места?
    Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.
    Ускорение продвижения
    Если вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 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. Измените программу так, чтобы «брови» двигались вместе с «человечком»

 







© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.