|
|
|
|
Проигрывает звук указанной частоты указанной длительности через аудиосистему.
Синтаксис
| function Sound(
| | Frequency, | | Duration
| | );
|
| Параметры
|
| Параметр
| Тип
| Описание
|
| Frequency
| Number
| частота, Гц (возможно указание именованного обозначения музыкальной ноты, см. ниже)
|
| Duration
| Number
| длительность, миллисекунд
|
|
| Параметр Frequency
|
| 1-я октава
| [DESC]
|
| snDO1
| нота До
|
| snDD1
| нота До-диез
|
| snRE1
| нота Ре
|
| snRD1
| нота Ре-диез
|
| snMI1
| нота Ми
|
| snFA1
| нота Фа
|
| snFD1
| нота Фа-диез
|
| snSL1
| нота Соль
|
| snSD1
| нота Соль-диез
|
| snLA1
| нота Ля
|
| snLD1
| нота Ля-диез
|
| snSI1
| нота Си
|
| 2-я октава
| [DESC]
|
| snDO2
| нота До
|
| snDD2
| нота До-диез
|
| snRE2
| нота Ре
|
| snRD2
| нота Ре-диез
|
| snMI2
| нота Ми
|
| snFA2
| нота Фа
|
| snFD2
| нота Фа-диез
|
| snSL2
| нота Соль
|
| snSD2
| нота Соль-диез
|
| snLA2
| нота Ля
|
| snLD2
| нота Ля-диез
|
| snSI2
| нота Си
|
| 3-я октава
| [DESC]
|
| snDO3
| нота До
|
| snDD3
| нота До-диез
|
| snRE3
| нота Ре
|
| snRD3
| нота Ре-диез
|
| snMI3
| нота Ми
|
| snFA3
| нота Фа
|
| snFD3
| нота Фа-диез
|
| snSL3
| нота Соль
|
| snSD3
| нота Соль-диез
|
| snLA3
| нота Ля
|
| snLD3
| нота Ля-диез
|
| snSI3
| нота Си
|
|
var ttl="Проигрывание звука на языке JS+";
var cpt="Частота:";
var snd_Lst=[
snDO1,snRE1,snMI1,snFA1,snSL1,snLA1,snSI1,snDO2,
snDO2,snSI1,snLA1,snSL1,snFA1,snMI1,snRE1,snDO1
];
var min=snd_Lst[snd_Lst.min()];
var max=snd_Lst[snd_Lst.max()];
var d=max-min;
// Главная форма
frm=new TForm();
frm.Caption="JS+ - функция JS+ Sound";
frm.Width =450;
frm.Height=300;
// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=' Нажмите кнопку "Играть"';
// Индикатор
gau=new TGauge(frm);
gau.Kind=gkHorizontalBar;
gau.BorderStyle=bsSingle;
gau.Left=10;
gau.Width =frm.ClientWidth-gau.Left*2;
gau.Height=frm.TextHeight("0")+8;
gau.Top=(stb.Top-gau.Height)/2;
// Метка
lbl=new TLabel(frm);
lbl.Caption=cpt;
lbl.Left=gau.Left;
lbl.Top =gau.Top-lbl.Height-5;
// Кнопка
btn=new TButton(frm);
btn.Caption="Играть";
btn.Left=frm.ClientWidth-btn.Width-10;
btn.Top =stb.Top-btn.Height-10;
btn.OnClick=btn_Click;
frm.ShowModal();
// Обработчик события OnClick
function btn_Click(btn)
{
var i,stb_Str=stb.SimpleText;
btn.Enabled=false;
stb.SimpleText=' Проигрывание ...';
for (i=0;i<snd_Lst.length;i++) {
lbl.Caption=cpt+" "+snd_Lst[i];
gau.Progress=(snd_Lst[i]-min)*100.0/d;
Sound(snd_Lst[i],300);
Sleep(50);
}
lbl.Caption=cpt;
gau.Progress=0;
stb.SimpleText=stb_Str;
btn.Enabled=true;
}
Совместимость
JS+, C++ Builder/Delphi - функция Beep()
|
| JS+ | Руководство пользователя
|
|
|
| |
|
|
