Индивидуальные очистные сооружения: К классу индивидуальных очистных сооружений относят сооружения, пропускная способность которых...
Археология об основании Рима: Новые раскопки проясняют и такой острый дискуссионный вопрос, как дата самого возникновения Рима...
Топ:
Особенности труда и отдыха в условиях низких температур: К работам при низких температурах на открытом воздухе и в не отапливаемых помещениях допускаются лица не моложе 18 лет, прошедшие...
Проблема типологии научных революций: Глобальные научные революции и типы научной рациональности...
Марксистская теория происхождения государства: По мнению Маркса и Энгельса, в основе развития общества, происходящих в нем изменений лежит...
Интересное:
Лечение прогрессирующих форм рака: Одним из наиболее важных достижений экспериментальной химиотерапии опухолей, начатой в 60-х и реализованной в 70-х годах, является...
Наиболее распространенные виды рака: Раковая опухоль — это самостоятельное новообразование, которое может возникнуть и от повышенного давления...
Искусственное повышение поверхности территории: Варианты искусственного повышения поверхности территории необходимо выбирать на основе анализа следующих характеристик защищаемой территории...
Дисциплины:
2021-05-27 | 38 |
5.00
из
|
Заказать работу |
|
|
Задание №2 (повышенный уровень). Разместить на листе объект РИСУНОК, кнопку ПОЛЁТ и кнопку ДОМОЙ. Написать код программы, в результате которого при щелчке по кнопке ПОЛЁТ объект РИСУНОК должен двигаться к выделенной ячейке. При щелчке по кнопке ДОМОЙ объект РИСУНОК должен скачком уходить к ячейке А1.
Порядок выполнения.
Первый объект «Рисунок»- Name- Img
Autosize – True
BackColor- белый
BorderColor- белый
Второй объект «Рисунок»– Name –Img1
Autosize – True
BackColor- белый
BorderColor- белый
Visible – Fale
Picture- щёлкнуть по трём точкам и по файловой системе найти файл BFLY1.
Третий объект «Рисунок»- Name –Img2
Autosize – True
BackColor- белый
BorderColor- белый
Visible – Fale
|
Picture- щёлкнуть по трём точкам и по файловой системе найти файл BFLY2.
с. Выбрать на панели управления инструмент «кнопка» и разместить его на листе. Настроить свойства кнопки:
Caption –Полёт
Name- CmdFly
с. Разместить на листе ещё одну кнопку и настроить её таким образом:
Caption- ДОМОЙ
Name- CmdHome.
В результате на листе в режиме конструктора будут видны следующие объекты:
с. Щёлкнуть два раза отрывисто по кнопке CmdFly (Полёт) и войти в процедуру обработки события CmdFly_Click, щелчка по кнопке ПОЛЁТ. Написать следующий код:
Private Sub cmdfly_Click()
Dim i As Integer Объявляем вспомогательную переменную i (будет управлять открытием –закрытием крыльев)
Dim t As Single Объявляем вспомогательную переменную t (будет управлять скоростью процессов)
Do Запускаем бесконечный цикл полёта.
If i Mod 2 = 0 Then Если i чётное, то
Img.Picture = Img1.Picture открытые крылья
Else Иначе
Img.Picture = Img2.Picture Закрытые крылья
End If
t = Timer фиксируем время
Do Запускаем пустой цикл задержки на 0,5 сек иначе всё будет происходить слишком быстро
DoEvents оператор прерывания процедуры «осмотрись»
Loop While Timer - t < 0.5 Закрываем цикл задержки 0,5сек.
Img.Left = Img.Left + (ActiveCell.Left - Img.Left) / 10 Задаём траекторию
Img.Top = Img.Top + (ActiveCell.Top - Img.Top) / 10 движения по направлению
к выделенной ячейке
i=i+1 изменяем значение параметра i
|
If i> 100 THEN i=0 делаем защиту от переполнения по i
DoEvents вставляем оператор прерывания
Loop Закрываем бесконечный цикл полёта
End Sub
с. Щёлкнуть два раза отрывисто по кнопке ДОМОЙ и внести следующий код:
Private Sub cmdhome_Click()
Img.Left = 0 Приводим бабочку в ячейку А1
Img.Top = 0
End Закрываем программу
End Sub
с. Закончить режим конструктора и убедиться, что при щелчке по кнопке «Полёт» бабочка летит к выделенной ячейке, а при щелчке по кнопке «ДОМОЙ» бабочка скачком возвращается в начало координат.
ЗАДАНИЯ ДЛЯ САМОСТОЯТЕЛЬНОЙ РАБОТЫ
Изменить код программы «Бабочка» таким образом, чтобы:
o бабочка махала крыльями чаще в 5 раз.
o Чтобы бабочка подлетала к выделенной ячейке в два раза быстрее.
С. Макросы в диаграммах.
Задание № 3 (пороговый уровень). Построить график квадратной функции.Разместить на листе линейки прокрутки, управляющие значениями коэффициентов а, в, с.
Выполнение:
Рис. 64
Полоса прокрутки для а
Name-Scra MIN- -10 MAX- 10 Value - -4
Полоса прокрутки для в
|
Name – ScrB MIN- -100 MAX- 100 Value- -70
Полоса прокрутки для с
Name- ScrC MIN—1000 MAX- 1000 Value- -662
В результате на листе будут размещены объекты как на рисунке.
Private Sub scra_Change()
Range("O23").Value = scra.Value
End Sub
Private Sub scra_Scroll()
Range("O23").Value = scra.Value
End Sub
Private Sub scrb_Change()
Range("O25").Value = scrb.Value
End Sub
Private Sub scrb_Scroll()
Range("O25").Value = scrb.Value
End Sub
Private Sub scrc_Change()
Range("O27").Value = scrc.Value
End Sub
Private Sub scrc_Scroll()
Range("O27").Value = scrc.Value
End Sub
Задание №4 (повышенный уровень). Создать точечный график. Фоном графика задать рисунок с изображением звездного. Настроить вид точек графика как большие жёлтые круги – звёзды. Написать код, при котором изменяются положения точек:
Выполнение:
|
· Убрать галочки с «авто», т.е. сделать фиксированные шкалы осей.
· Значение мин=0, макс=40.
· Убрать метки делений (закладка «Вид»).
№пп | Свойство | Значение |
1 | Name | CMDgo |
Caption | Звездопад | |
2 | Name | CMDstar |
Caption | Мерцание | |
3 | Name | CMDend |
Caption | Конец |
Private Sub CMDGo_Click()
Do Запускаем бесконечный цикл
For j = 1 To 6 Запускаем цикл заполнения исходных данных
ActiveSheet.Cells(2, j).Value = 40 * Rnd + 5 область А2: F 2 заполняется случайными числами
Next в пределах от 5 до 45
Do Запускаем цикл движения звёзд
Range("A2:F2").Value = Range("A3:F3").Value С каждым шагом цикла координата по Х каждой точки графика изменяется на 0,5, а по У на -1.
t = Timer Цикл задержки на 0,1 сек
Do Оператор DoEvents означает «посмотри
DoEvents вокруг», используется для того, чтобы во время паузы все процессы продолжались
Loop While Timer - t < 0.1
Loop While Range("F2").Value > 0 Условие закрытия цикла движения - пока У3>0
Loop Закрываем бесконечный цикл
End Sub
Private Sub CMDStar_Click()
|
Do Запускаем бесконечный цикл
For j = 1 To 6 Заполняем исходные данные случайными числами
ActiveSheet.Cells(2, j).Value = 30 * Rnd + 5 заполняем область А2:F2случайными числами от 5 до 35
Next Закрываем цикл заполнения
t = Timer Запускаемцикл задержки на 0,2 ек
Do
DoEvents
Loop While Timer - t < 0.2 Закрываем цикл задержки
Loop Закрываем бесконечный цикл
End Sub
Private Sub cmdend_Click()
End закончить программу
End Sub
ЗАДАНИЕ ДЛЯ САМОСТОЯТЕЛЬНОЙ РАБОТЫ
(повышенный уровень)
Изменить код программы таким образом, чтобы звёзды мерцали чаще, а падали не слева направо, а справа налево.
|
|
Наброски и зарисовки растений, плодов, цветов: Освоить конструктивное построение структуры дерева через зарисовки отдельных деревьев, группы деревьев...
Механическое удерживание земляных масс: Механическое удерживание земляных масс на склоне обеспечивают контрфорсными сооружениями различных конструкций...
История создания датчика движения: Первый прибор для обнаружения движения был изобретен немецким физиком Генрихом Герцем...
Поперечные профили набережных и береговой полосы: На городских территориях берегоукрепление проектируют с учетом технических и экономических требований, но особое значение придают эстетическим...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!