Задание 1. Модель вращения Луны вокруг Земли
Постановка задачи.
Разработать модель физического процесса, показывающую вращение спутника (например, Луны) вокруг планеты.
Ход работы.
1. Создайте папку с названием «Лабораторная_работа_№20».
2. Откройте чистую рабочую книгу. Убедитесь, что Вы находитесь на Листе 1.
3. Занесите в ячейки таблицы данные в соответствии с Таблицей 20.1. Примерный вид таблицы приведен на Рис.20.1.
Таблица 20.1
| Адрес ячейки | Содержимое | Описание |
| A2 | Параметр | |
| B2 | = 5*cos(A2) | X – координата Луны |
| C2 | = 5*sin(A2) | Y – координата Луны |
| D2 | Размер Луны (диаметр) | |
| E2 | Число оборотов | |
| B3 | X – координата Земли | |
| C3 | Y – координата Земли | |
| D3 | Размер Земли (диаметр) | |
| E3 | =ПИ() | Число ПИ |
| E4 | = 2*E2*E3 | Максимальное значение параметра |
4. Выделите блок ячеек B2:D5 и с помощью мастера Диаграмм постройте пузырьковую диаграмму. Для первого ряда используются данные ряда B2:D2, а для второго – B3:D3. Для указания местонахождения данных выберите «В столбцах».
5. Построив диаграмму, выберите ось Y, щелкните правой клавишей мыши выберите «Формат оси».
6. Установите максимальное значение и минимальное значение 6 и -6, соответственно. Уберите галочки «Авто» для этих опций.
7. Проделайте аналогичные действия (шаг 5 и 6) для оси OX.
8. Подведя мышку к одной из планет, щелкните правой клавишей мышки и выберите команду «Формат рядов данных».
9. На вкладке «Вид» установите параметры заливки для изображения планет.
10. На вкладке «Параметры» установите галочку «Разноцветные шарики».
11. На вкладке «Подписи данных» установите галочку «Имена рядов».
12. Нажмите ОК.
13. Подведите галочку к появившимся именам рядов и отформатируйте текст, введя название планет. Примерный вид отформатированной диаграммы приведен на Рис.20.2.
14. С помощью панели инструментов «Элементы управления» добавьте в приложение командную кнопку, назвав ее «Пуск» и установив свойства согласно Таблице 20.2.
Таблица 20.2
Свойства командной кнопки Command Button1
| Свойство | Значение |
| Caption | ПУСК |
| BackColor | &H80000007& |
| ForeColor | &H0000FFFF& |
| Font | Arial, 12, жирный |
Внешний вид приложения приведен на Рис.20.3.
15. Если изменить значение параметра в ячейке A2, то будут меняться координаты Луны и, соответственно, ее положение на диаграмме. Осталось автоматизировать этот процесс.
16. Включив режим конструктора на панели инструментов, щелкните два раза по командной кнопке. В открывшемся окне впишите следующий программный код:
Private Sub CommandButton1_Click()
For t = 0 To Cells(4, 5) Step 0.1 'для параметра t, принимающего значения
'от 0 до значения в ячейке E4 с шагом 0.1
Cells(2, 1) = t 'заносить это значение в координату X
DoEvents 'Отображать новое положение Луны
Next
Дата добавления: 2015-06-12; просмотров: 857;