Студопедия

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

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

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






ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 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 :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.