Головна сторінка
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.041 c
1-74810
denis24
2002-12-11 16:36
2002.12.23
Stringgrid


1-74715
Альфред
2002-12-12 11:36
2002.12.23
Як вийти з циклу після натискання клавіші


4-75033
apay
2002-11-09 02:07
2002.12.23
Як отримати MenuSpeed ​​(delay-before-show time)


3-74547
Alexsandr (GEG)
2002-12-04 09:52
2002.12.23
DBGrid фокус на ячейку (строку)


1-74780
Stas_a
2002-12-11 10:54
2002.12.23
З'єднання компанентов. . .





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