Студопедия

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

КАТЕГОРИИ:

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






Порядок выполнения. 41. Загрузите редактор Paint, установите размер рисунка 1 на1 см (Рисунок / Атрибуты))






41. Загрузите редактор Paint, установите размер рисунка 1 на1 см (Рисунок / Атрибуты))

42. Создайте 4 рисунка(см. образец) и сохраните их в файлы Колобок1, Колобок2, Колобок3, Колобок4

43. Загрузите Visual Basic Установите на форме следующие объекты и измените им свойства

44. Выделите все изображения колобка (при нажатой клавише Shift) и измените следующие значения для свойств:

- Left 1000, Top 1000

45. В окне кода процедуры обработки события Timer для объекта Timer1 набрать

 

If Image1.Visible = True Then

Image1.Visible = False

Image3.Visible = True

Exit Sub

End If

If Image2.Visible = True Then

Image2.Visible = False

Image4.Visible = True

Exit Sub

End If

If Image3.Visible = True Then

Image3.Visible = False

Image1.Visible = True

Exit Sub

End If

If Image4.Visible = True Then

Image4.Visible = False

Image2.Visible = True

Exit Sub

End If

 

46. В окне кода процедуры обработки события KeyDown для объекта Form набрать

 

If KeyCode = 39 Then 'вправо

If Image1.Visible = False And Image3.Visible = False Then

Image1.Visible = True

Image2.Visible = False

Image4.Visible = False

End If

Image1.Left = Image1.Left + 100

Image2.Left = Image2.Left + 100

Image3.Left = Image3.Left + 100

Image4.Left = Image4.Left + 100

End If

If KeyCode = 37 Then 'влево

If Image2.Visible = False And Image4.Visible = False Then

Image2.Visible = True

Image1.Visible = False

Image3.Visible = False

End If

Image1.Left = Image1.Left – 100

Image2.Left = Image2.Left - 100

Image3.Left = Image3.Left – 100

Image4.Left = Image4.Left - 100

End If

If KeyCode = 40 Then 'вниз

Image1.Top = Image1.Top + 100

Image2.Top = Image2.Top + 100

Image3.Top = Image3.Top + 100

Image4.Top = Image4.Top + 100

End If

If KeyCode = 38 Then 'вверх

Image1.Top = Image1.Top – 100

Image2.Top = Image2.Top - 100

Image3.Top = Image3.Top – 100

Image4.Top = Image4.Top - 100

End If

 

47. Проверьте работу программы



Поделиться с друзьями:

mylektsii.su - Мои Лекции - 2015-2024 год. (0.006 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал