Add(BASS_Version,10183901,189,238)
{
link(onCheckOk,12302345:doInit,[])
link(onCheckFailed,109118:doMessage,[(233,251)(233,293)])
}
Add(Message,11232751,189,287)
{
Message="Error BASS initialization"
Caption="Error"
Icon=1
}
Add(Message,109118,245,287)
{
Message="Incorrect version of BASS library "
Caption="Error"
Icon=1
}
Add(MainForm,16358250,63,224)
{
Width=813
Height=489
Caption="Compare sound"
Point(Handle)
Point(onClose)
link(onCreate,4252681:doInit,[])
link(onClose,5066922:doStop,[(114,251)(114,97)])
}
Add(BASS_Init,4252681,133,238)
{
link(onInit,10183901:doCheck,[])
link(onError,11232751:doMessage,[(177,251)(177,293)])
link(Handle,16358250:Handle,[(153,226)(124,226)(124,266)(69,266)])
}
Add(BASS_RecordCenter,12302345,245,238)
{
link(onInit,5066922:doStart,[(289,244)(289,167)(121,167)(121,90)])
link(onError,11713735:doMessage,[(289,251)(289,293)])
}
Add(BASS_RecordStart,5066922,133,84)
{
Freq=44100
Mode=1
link(onData,4781887:doDetect,[])
}
Add(Message,11713735,301,287)
{
Message="InitRecord failed!"
Caption="Error"
Icon=1
}
Add(Grapher,13162224,728,161)
{
Left=10
Top=245
Width=485
Height=200
MaxH=0
LeftMargin=0
RightMargin=0
TopMargin=0
BottomMargin=0
}
Add(VolumeDetector,4781887,189,91)
{
DetectLevel=2000
Delay=12000
link(onDetect,16532858:doSumm,[])
}
Add(VolumeSummator,16532858,238,91)
{
link(onResult,4377045:doEvent1,[(278,97)(278,55)])
}
Add(Grapher,13475393,336,49)
{
Left=10
Top=35
Width=485
Height=200
MaxH=0
LeftMargin=0
RightMargin=0
TopMargin=0
BottomMargin=0
}
Add(Hub,4377045,287,49)
{
link(onEvent1,13475393:doAdd,[])
link(onEvent2,3262080:doEdge,[(319,62)(319,104)])
}
Add(VolumeEdge,3262080,336,98)
{
link(onResult,3305714:doSumm,[])
}
Add(VolumeSmoothing,10917253,434,98)
{
Level=100
link(onResult,1474433:doSumm,[])
}
Add(Memory,15172366,609,161)
{
link(onData,3000059:doEvent1,[])
}
Add(Button,9858318,553,203)
{
Left=160
Top=5
Width=110
Caption="Save sample sound"
link(onClick,6288690:doData,[])
}
Add(DoData,6288690,609,203)
{
link(onEventData,10470133:doAdd,[])
link(Data,15172366:Value,[])
}
Add(Edit,10886304,777,154)
{
Left=405
Top=10
Width=95
Text=""
}
Add(VolumeSummator,3305714,385,98)
{
Level=60
Mode=1
link(onResult,10917253:doSmoothing,[])
}
Add(VolumeSmoothing,9264211,532,98)
{
Level=40
link(onResult,15172366:doValue,[(572,104)(572,167)])
}
Add(VolumeComparator,10470133,854,196)
{
Volumes="C:UsersсерегаDesktop\randomSampleSoundFile"
link(onOk,12620894:doText,[])
link(onFailed,4539809:doAdd,[(898,209)(898,234)(716,234)(716,251)])
link(Name,10886304:Text,[(867,191)(783,191)])
}
Add(Hub,3000059,658,161)
{
OutCount=3
link(onEvent1,13162224:doAdd,[])
link(onEvent2,4539809:doClear,[(707,174)(707,258)])
link(onEvent3,10470133:doCompare,[(702,181)(702,202)])
}
Add(Label,12620894,910,196)
{
Left=580
Top=10
}
Add(RichEdit,4539809,728,245)
{
Left=505
Top=35
Width=295
Height=410
ScrollBars=2
}
Add(VolumeSummator,1474433,483,98)
{
Level=20
Mode=1
link(onResult,9264211:doSmoothing,[])
}
Add(WinExec,10969450,497,252)
{
}
Add(Button,6838606,350,238)
{
Left=20
Top=5
Width=75
Caption="Open *.ogg"
link(onClick,14764001:doExecute,[])
}
Add(ODialog,14764001,399,238)
{
Filter="Sound|*.ogg"
StartDir="C:UsersсерегаDesktop\random"
link(onExecute,1962920:doEvent1,[])
}
Add(FilePartElm,10371895,476,154)
{
Mode=2
link(onPart,13822917:doString,[])
}
Add(Hub,1962920,441,238)
{
OutCount=3
link(onEvent1,7761276:doNext,[(462,244)(462,202)(394,202)(394,160)])
link(onEvent2,10371895:doPart,[(469,251)(469,160)])
link(onEvent3,10969450:doShellExec,[(462,258)(462,265)])
}
Add(InfoTip,13798404,273,14)
{
Info=#7:Удалить|
Width=127
Height=74
}
Add(InfoTip,7451480,343,147)
{
Info=#7:Удалить|
Width=498
Height=144
}
Add(Counter,7761276,420,154)
{
Max=99999
Default=-1
}
Add(FormatStr,13822917,518,154)
{
Mask="%1_%2"
link(onFString,10886304:doText,[])
link(Str1,7761276:Count,[(524,149)(457,149)(457,197)(426,197)])
}
Этот топик читают: Гость
Ответов: 41
Рейтинг: 3
|
|||
|
|||
карма: 1 |
| ||
файлы: 1 | code_30045.txt [3.9KB] [97] |
Ответов: 8926
Рейтинг: 823
|
|||
sergvirus
1. Попробуйте убрать кирилицу из пути 2. Когда в программе открываете свои файлы, звук есть? сделайте его погромче (не в динамиках, а все регуляторы на максимум), если на графиках ничего не отображается, то и сохранять нечего. |
|||
карма: 19 |
|
Ответов: 41
Рейтинг: 3
|
|||
Регуляторы максимум, кирилицу убрал, на графиках ничего.
------------ Дoбавленo в 01.27: А безразницы через какой проигрыватель он открывает его? |
|||
карма: 1 |
|
Ответов: 8926
Рейтинг: 823
|
|||
sergvirus, у меня Win7, программа подключается к "что слышно" реагирует и на микрофон и на все звуки, в т. ч. и на системные. Попробуйте так: откройте любой проигрыватель, в нём запустите любой из Ваших звуков, на паузе запустите эту программу и проиграйте звук.
|
|||
карма: 19 |
|
Ответов: 41
Рейтинг: 3
|
|||
Леонид, у меня тоже Win7. ни готовая с примеров ни ваша у меня неработает .познее побробую на другом ПК.
------------ Дoбавленo в 14.55: На другом ПК тоже ничего. |
|||
карма: 1 |
|
Ответов: 8926
Рейтинг: 823
|
|||
карма: 19 |
| ||
файлы: 1 | code_30055.txt [6.7KB] [155] |
Ответов: 41
Рейтинг: 3
|
|||
Заработало . Сейчас побробую пути прописать .
------------ Дoбавленo в 16.36: Вообщем потестил ее и вот. В самой программе файлы сохраняются только визуально т.е. в папке SampleSoundFile ничего нет. Распознование очень неточное, иногда при запуске одного и тогоже звука несколько раз названия выдаются разные.Может быть это из за выбора устройства? У меня выбран микрофон, но с реального микрофона он ничего неслышит. Пробовал на трех разных звуках. |
|||
карма: 1 |
|
Ответов: 8926
Рейтинг: 823
|
|||
sergvirus, железо обозначается разно, выбирать надо микшер: "What U Hear", "Stereo Mixer", Микшер; но никак не микрофон
sergvirus писал(а): при запуске одного и тогоже звука несколько раз названия выдаются разные |
|||
карма: 19 |
|
Ответов: 41
Рейтинг: 3
|
|||
Сейчас поставил стерео микшер. Распознование идет намного дольше,также осталась проблема с точностью распознования. Сохраненные образцы как мне кажется висят в памяти до закрытия проги.При закрытии и последующем запуске образцы надо добавлять заново.
|
|||
карма: 1 |
|
Ответов: 8926
Рейтинг: 823
|
|||
sergvirus, а посмотреть в назначенную для записи образцов папку -- пустая? Может с правами непорядок? перенести в место, где Win7 разрешает записывать файлы? У меня сравнение идёт по записанным в папке образцам:
compare2.jpg |
|||
карма: 19 |
| ||
файлы: 1 | compare2.jpg [185.5KB] [498] |
25