Студопедия

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

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

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






Порядок выполнения. 10. Установите на форме следующие объекты и измените им свойства:






10. Установите на форме следующие объекты и измените им свойства:

 

Объект Свойство Значение
Линии Name Line1
Name Line2
Фигура Name SSS
Shape  
BackStyle  
BackColor белый

11. Приведите свою форму в соответствие с образцом

 

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

 

Form1.KeyPreview = True

 

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

 

'определим текущие координаты

x = sss.Left

y = sss.Top

'определим будущие координаты

If KeyCode = 37 Then 'нажата клавиша ç

x = x - 50

End If

If KeyCode = 39 Then ‘'нажата клавиша è

x = x + 50

End If

If KeyCode = 38 Then ‘'нажата клавиша é

y = y - 50

End If

If KeyCode = 40 Then ‘'нажата клавиша ê

y = y + 50

End If

ys1 = (Line1.Y2 - Line1.Y1) * (x - Line1.X1) / (Line1.X2 - Line1.X1) + Line1.Y1

ys2 = (Line2.Y2 - Line2.Y1) * (x - Line2.X1) / (Line2.X2 - Line2.X1) + Line2.Y1

If y < ys1 Or y > Abs(ys2) - sss.Height Then

MsgBox " Bыход за территорию! ",, " Kуда пошел? "

Exit Sub

End If

sss.Move x, y 'движение

14. Проверьте работу приложения

15.

 
 

Измените приложение, ограничив движение шарика прямоугольной зоной (внутри фигуры прямоугольник)

 

16. Измените программу так, чтобы при нажатии клавиш шарик становился красным, а когда отпущена – белым.

17. Измените программу так, чтобы управление шариком осуществлялось клавишами М (влево), И (вверх ), Т (вправо) и пробел (вниз)

Результат показать преподавателю







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