Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Media";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

Вниз

Синтезування звуку. Знайти схожі гілки


DNT   (2002-09-06 17:19) [0]

Як можна це зробити?
Необхідно наприклад, отримувати ноту певної тональності.
Можна і через midi.

Ось тільки як?
Може є компонента?



Ketmar   (2002-09-06 18:42) [1]

а руки вже скасували? тільки компоненти любимо? просить формувач синусоїдальної хвилі з висновком на WaveOut або в .WAV - НЕ судьбец?
як формувати хвилю, говорити не буду - це очевидно. як виводити - найпростіше в .WAV, а потім PlaySound. формат .WAV можна легко знайти в Мережі.

Satanas Nobiscum! 06-Sep-XXXVII AS



Kopetr   (2002-09-06 18:57) [2]

Beep (440 1000) - нота ЛЯ.



DNT   (2002-09-06 20:59) [3]

Ось ось.

Я в звуках не розумію.

Як генерувати хвилю?

І компонент, в останню чергу.



Kopetr   (2002-09-06 23:25) [4]

Став конкретні питання, що саме незрозуміло.
"Я в звуках не розумію" - не котить.
Хвилю можна генерувати за допомогою функуціі Sine.
Компоненти шукаються на torry.net





Ketmar   (2002-09-06 23:37) [5]

Гаразд. я добрий нині. пишемо мені на мило, і отримуємо исходник тоногенератора з висновком на звукову карту ...

Satanas Nobiscum! 06-Sep-XXXVII AS



easy   (2002-09-07 19:43) [6]

// midi unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, MMSystem, StdCtrls; type TForm1 = class (TForm) Button1: TButton; Button2: TButton; procedure FormCreate (Sender: TObject); procedure FormCloseQuery (Sender: TObject; var CanClose: Boolean); procedure Button1MouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Button1MouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Button2MouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Button2MouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private {Private declarations} public {Public declarations} end; var Form1: TForm1; hmidi: integer; midimsg: integer; implementation {$ R * .dfm} procedure TForm1.FormCreate (Sender: TObject); begin midiOutOpen (@hmidi, 1, 0, 0, 0); end; procedure TForm1.FormCloseQuery (Sender: TObject; var CanClose: Boolean); begin midiOutClose (hmidi); end; procedure TForm1.Button1MouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin midimsg: = $ 90 + ((60 + 0) * $ 100) + (127 * $ 10000) + 0; midiOutShortMsg (hmidi, midimsg); end; procedure TForm1.Button1MouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin midimsg: = $ 80 + ((60 + 0) * $ 100) + 0; midiOutShortMsg (hmidi, midimsg); end; procedure TForm1.Button2MouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin midimsg: = $ 90 + ((60 + 2) * $ 100) + (127 * $ 10000) + 0; midiOutShortMsg (hmidi, midimsg); end; procedure TForm1.Button2MouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin midimsg: = $ 80 + ((60 + 2) * $ 100) + 0; midiOutShortMsg (hmidi, midimsg); end; end.

..успехов ...



сторінки: 1 вся гілка

Форум: "Media";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

Вгору





Пам'ять: 0.57 MB
Час: 0.029 c
14-74990
JeanY
2002-12-02 17:26
2002.12.23
Де можна знайти FREEWARE АУДІО - компоненти і бібліотеки?


14-74969
сень
2002-12-03 11:49
2002.12.23
Віддалена робота


1-74774
iPasha
2002-12-11 10:13
2002.12.23
Проблема з DateTimePicker


3-74579
cutter-pro
2002-12-04 16:24
2002.12.23
Delphi і Excel в одну постіль ???


1-74836
Лені
2002-12-11 13:45
2002.12.23
Створення свого значка





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська