Модель солнечной системы

@Елена Погодина · Регистрация: 23.10.2010

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста как заставить планеты вращаться

@aaleksander · 24.04.2012, 10:09

Держи.
Новый массив angles - тут углы поворота планет.
Таймер на форму, событие на таймере.
И переделал процедуры FormPaint и planet.
Вроде вращаются :-)

@Елена Погодина · 24.04.2012, 21:50 **[ТС]**

Сообщение от aaleksander

Держи.
Новый массив angles - тут углы поворота планет.
Таймер на форму, событие на таймере.
И переделал процедуры FormPaint и planet.
Вроде вращаются :-)

Что-то у меня вообще ошибку выдает Delphi 2009

@aaleksander · 25.04.2012, 08:39

Сообщение от aaleksander

Новый массив angles - тут углы поворота планет.
Таймер на форму, событие на таймере.
И переделал процедуры FormPaint и planet.

Ну я как бы специально указал, что переделал, чтобы не мучаться с разными версиями.
Там основная фишка в этом (смотри восьмую строку):

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure planet(R_planet:real;S_of_sun:real; angle: real);
var z:integer;// ñ÷¸ò÷èê
begin
  //âû÷èñëèòü òî÷êè îðáèòû ïëàíåòû
  orbita_planet_x(orbita_planet,soluar_system[number_planet,1]);
 
  glPushMatrix;// çàïîìíèòü ïîëîæåíèå ìàòðèöû
  glRotated(angle, 0, 1, 0);    <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  glTranslate(s_of_sun, 0, 0);// ïåðåäâèíóòü íà ðàññòîÿíèå ïëàíåòû îò ñîëíöà
 
//  glTranslate(s_of_sun, orbita_planet[angle].x, orbita_planet[angle].z);// ïåðåäâèíóòü íà ðàññòîÿíèå ïëàíåòû îò ñîëíöà
  gluSphere(Q, r_planet, 15, 15);// íàðèñîâàòü ïëàíåòó
  glPopMatrix;// âîññòàíîâèòü ìàòðèöó
  glColor3f(1,1,1);//öâåò îðáèòû
  glBegin(GL_LINE_LOOP);//íà÷àëî ðèñîâàíèÿ îðáèòû
    for z := 1 to 359 do
      glVertex3f(orbita_planet[z].x, 0, orbita_planet[z].z);
  glEnd;//êîíåö ðèñîâàíèÿ îðáèòû
end;

А дальше уже разобьешь, как тебе надо ;-)

@Елена Погодина · 25.04.2012, 22:03 **[ТС]**

Все равно
[DCC Fatal Error] Project1.dpr(6): F1026 File not found: 'ExceptionLog.dcu'

@aaleksander · 25.04.2012, 22:10

Сообщение от Елена Погодина

Все равно
[DCC Fatal Error] Project1.dpr(6): F1026 File not found: 'ExceptionLog.dcu'

А ну вот, другое дело. Это у меня Eureka включилась. Просто убери ExceptionLog из usesов в файле Project1.dpr

@Lirrk · 27.04.2012, 11:15

aaleksander,
У планет нет одинакового угла поворота, он разный, поскольку орбиты - это элипсы. Нужно знать скорость движения по орбите и длину самой орбиты. И только по этим данным вычислять угол, а уже потом и новое местоположение. И ещё надо учитывать разные ньюансы для каждой планеты. У одной орбита качается, у другой смещён центр, на скорость третей непостоянна.
А так это просто кружащиеся кружочки и не более.

@aaleksander · 27.04.2012, 12:29

Спасибо КО. А еще планеты не могут поместиться в мониторе, они для этого слишком большие.
Понятие "модель", используемая в названии темы, вещь многогранная.

@Елена Погодина · 27.04.2012, 19:25 **[ТС]**

Сообщение от aaleksander

А ну вот, другое дело. Это у меня Eureka включилась. Просто убери ExceptionLog из usesов в файле Project1.dpr

У меня нет в usesах ExceptionLog

@Ольга Андреевна · 31.10.2012, 18:14

вот программа готовая ) есть конечно небольшой косяк с подписями, но исправить можно )

@malishhh · 08.12.2013, 16:08

А курсовой нет на эту тему?

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator без VPN. Сборка проекта из Qt Creator с помощью CMake для разработки обычных C/C++ проектов без установки фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

@Елена Погодина 4 / 4 / 1 Регистрация: 23.10.2010 Сообщений: 161
	25.04.2012, 22:03 [ТС]
	Все равно [DCC Fatal Error] Project1.dpr(6): F1026 File not found: 'ExceptionLog.dcu' 0

@Lirrk Заблокирован
	27.04.2012, 11:15
	aaleksander, У планет нет одинакового угла поворота, он разный, поскольку орбиты - это элипсы. Нужно знать скорость движения по орбите и длину самой орбиты. И только по этим данным вычислять угол, а уже потом и новое местоположение. И ещё надо учитывать разные ньюансы для каждой планеты. У одной орбита качается, у другой смещён центр, на скорость третей непостоянна. А так это просто кружащиеся кружочки и не более. 0

@aaleksander 112 / 86 / 21 Регистрация: 06.06.2011 Сообщений: 427 Записей в блоге: 1
	27.04.2012, 12:29
	Спасибо КО. А еще планеты не могут поместиться в мониторе, они для этого слишком большие. Понятие "модель", используемая в названии темы, вещь многогранная. 0

@malishhh 1 / 1 / 0 Регистрация: 05.05.2012 Сообщений: 29
	08.12.2013, 16:08
	А курсовой нет на эту тему? 0