[Script] Модель: гравитация внутри Земли

[dwerf]

AutoIt: 3.3.6.1
Версия: beta

Категория: Графика / GDI+, Разное

Описание: Модель движения тела через прямой туннель в земле. Учитывает только гравитационное взаимодействие земли и тела. Земля считается однородным идеальным шаром.
(Физика. Гравитация внутри Земли. Гармоничные колебания.)
Сделано под разрешение экрана 1280х1024.

Файл: Скачать

Снимок:


Автор(ы): dwerf

 

[Yashied]

Прикольно! И хорошо сделано.

 

[Garrett]

Хорошая работа!
Но только огорчило то, что через мин. две приятного просмотра, кнопка "Стоп" не сработала :search:

 

[dwerf]

Но только огорчило то, что через мин. две приятного просмотра, кнопка "Стоп" не сработала :search:

После заставки/блокирования пользователя картинка почему то рисуется медленнее.
AdlibRegister запускал функции быстрее чем они выполнялись. До цикла с GuiGetMsg дело уже не доходило.
Сейчас сделал обновление таймера Adlib'а: чем медленнее работает функция, тем реже она запускается.
Думаю, может через OnEvent надёжней бы было? Бог его знает.

 

[madmasles]

dwerf,
Очень даже симпатично!

 

[Yashied]

До цикла с GuiGetMsg дело уже не доходило.

Для отлова нажатия кнопки можешь использовать следующий способ. GUIGetMsg() здесь вообще не нужен...

...

GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')

...

Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
	Switch $hWnd
		Case $Form1
			Switch BitShift($wParam, 16)
				Case $BN_CLICKED
					Switch BitAND($wParam, 0xFFFF)
						Case $Form1_btnStart
							; Нажата кнопка "Старт (CTRL+S)"/"Стоп (CTRL+S)"
							Return 0
						Case ...
							
							...
							
							Return 0
					EndSwitch
			EndSwitch
	EndSwitch
	Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_COMMAND