HELP - Мультимедиа в Delphi

Noob333 · 22.04.2009, 08:48

доброе утро всем. Помогите пожалуйста, очень надо написать программу

. Надо чтобы Image двигался вверх с замедлением затем плавно в низ с ускорением. Заранее спасибо.

NotProCoder · 22.04.2009, 11:12

Код:

function  BuildSinForm(Freq, SampRate, CurSamp, HB : extended) : integer; stdcall;
var
 kSamp : extended;
begin
 kSamp := Pi2/(SampRate/Freq); //На сколько "поворачивается" Y в радианах на inc(CurSamp)
 Result := round(HB * Sin(CurSamp * kSamp));
end;

Вообще это генератор синусойды! использовать можно!

И в конце концов если чопорно то по кругу, а если нет, то логарифмически...

NotProCoder · 22.04.2009, 14:26

Чё-то накатал со своими девчонками... Вобщем, лови...

Noob333 · 22.04.2009, 15:36

Большое спасибо с меня пиво

22.04.2009, 08:48	#1
Noob333 Регистрация: 22.04.2009 Сообщений: 3	HELP доброе утро всем. Помогите пожалуйста, очень надо написать программу . Надо чтобы Image двигался вверх с замедлением затем плавно в низ с ускорением. Заранее спасибо.

22.04.2009, 11:12	#2
NotProCoder Пользователь Регистрация: 20.04.2009 Сообщений: 15	Код: `function BuildSinForm(Freq, SampRate, CurSamp, HB : extended) : integer; stdcall; var kSamp : extended; begin kSamp := Pi2/(SampRate/Freq); //На сколько "поворачивается" Y в радианах на inc(CurSamp) Result := round(HB * Sin(CurSamp * kSamp)); end;` Вообще это генератор синусойды! использовать можно! И в конце концов если чопорно то по кругу, а если нет, то логарифмически... Последний раз редактировалось NotProCoder; 22.04.2009 в 11:16.

22.04.2009, 15:36	#4
Noob333 Регистрация: 22.04.2009 Сообщений: 3	СПС Большое спасибо с меня пиво