Вверх ↑
Ответов: 8961
Рейтинг: 824
#1: 2025-07-18 00:31:29 ЛС | профиль | цитата
Andrej77rv, так что за циферки по "Х" -- часы, миллисекунды? А волны около "0" помехи от сети 50 Гц?
Вы не совсем ясно ставите задачу
Ещё один "рекордер"


Add(MainForm,1000754,105,84)
{
Left=50
Top=55
Width=418
Height=231
Caption="Запись (моно, 44100)"
Point(Handle)
Point(onClose)
link(onCreate,15569021:doStart,[(144,104)(144,125)(95,125)(95,160)])
}
Add(ChildPanelEx,15569021,105,154)
{
@Hint=#39:Запуск BASS 2.4 и выбор источника звука|
link(Handle,1000754:Handle,[])
}
BEGIN_SDK
Add(EditMultiEx,6822816,21,21)
{
WorkCount=#21:doStart=Начать работу|7:doBegin|6:doStop|
EventCount=#21:onStart=Начать работу|22:onSound=Звуковой поток|
DataCount=#46:Handle=Идентификатор основного окна приложения|
Width=664
VOffset=35
HOffset=160
link(doStart,9977661:doEvent1,[])
link(doBegin,11184167:doWork2,[])
link(doStop,11184167:doWork3,[(32,76)])
}
Add(Panel,3900892,266,56)
{
Left=105
Top=80
Width=402
Height=192
Align=5
Color=12639424
Visible=1
Alignment=2
Point(doVisible)
}
Add(BASS_Version,10183901,217,98)
{
link(onCheckOk,1680110:doEvent1,[])
link(onCheckFailed,109118:doMessage,[(257,111)(257,153)])
}
Add(Message,11232751,217,147)
{
Message="Error BASS initialization"
Caption="Error"
Icon=1
}
Add(Message,109118,266,147)
{
Message="Incorrect version of BASS library "
Caption="Error"
Icon=1
}
Add(BASS_Init,4252681,168,98)
{
Device=1
link(onInit,10183901:doCheck,[])
link(onError,11232751:doMessage,[(208,111)(208,153)])
link(Handle,6822816:Handle,[])
}
Add(BASS_RecordCenter,12302345,406,112)
{
link(onInit,15862958:doEnumInputs,[])
link(onError,11713735:doMessage,[(443,125)(443,167)])
}
Add(Message,11713735,455,161)
{
Message="InitRecord failed!"
Caption="Error"
Icon=1
}
Add(BASS_RecordInput,15862958,455,112)
{
link(onEnumInputs,16487182:doEvent1,[])
}
Add(BASS_InputControl,9998094,581,112)
{
Volume=1
State=1
link(onSetInput,9127027:doEvent1,[])
link(Volume,6019053:Value,[(594,103)(559,103)])
link(State,4613851:Value,[])
}
Add(Memory,4613851,595,49)
{
Default=Integer(1)
}
Add(ComboBox,4718633,357,105)
{
Left=105
Top=10
Width=100
Height=21
Enabled=1
Text="Звуковая карта"
Point(Index)
Point(doEnabled)
link(onClick,12302345:doInit,[])
}
Add(Hub,9127027,623,112)
{
link(onEvent1,14252892:doWork1,[(648,118)(648,41)(207,41)(207,69)])
link(onEvent2,6822816:onStart,[(655,125)(655,62)])
}
Add(ChanelToIndex,14252892,217,63)
{
link(onIndex,3900892:doVisible,[])
}
Add(ComboBox,8950199,532,119)
{
Left=215
Top=10
Width=105
Height=21
Enabled=1
Text="Вход"
Point(doEnabled)
Point(Index)
link(onClick,9998094:doSetInput,[(571,132)(571,118)])
}
Add(BASS_RecordDevices,2139448,294,105)
{
link(onEnum,4718633:doAdd,[])
}
Add(Hub,16487182,497,112)
{
link(onEvent1,8950199:doEnabled,[(522,118)(522,153)])
link(onEvent2,8950199:doAdd,[])
}
Add(Label,12607849,357,56)
{
Left=20
Top=65
Color=12639424
Caption="Выбрать источник звука (Линейный вход)"
}
Add(Memory,6019053,553,49)
{
Default=Real(1)
}
Add(Hub,1680110,266,98)
{
link(onEvent1,4718633:doEnabled,[(333,104)(333,139)])
link(onEvent2,2139448:doEnum,[])
}
Add(Memory,8142253,112,98)
{
Default=Integer(44100)
}
Add(Hub,9977661,91,56)
{
link(onEvent1,14252892:doWork2,[(200,62)(200,76)])
link(onEvent2,4252681:doInit,[(151,69)(151,104)])
}
Add(HubEx,11184167,28,63)
{
Angle=3
}
END_SDK
Add(Button,5552472,175,84)
{
Left=15
Top=10
Caption="Пуск"
Point(doCaption)
link(onClick,4073044:doWork1,[(214,90)(214,125)(165,125)(165,153)])
}
Add(BASS_RecordStart,13828998,287,140)
{
FileName="MyPC.wav"
Freq=44100
Name="MyPC"
link(FileName,6938981:Text,[])
}
Add(MultiElement,4073044,175,147)
{
link(onEvent1,5552472:doCaption,[(214,153)(214,139)(158,139)(158,90)])
link(onEvent2,1054435:doEvent1,[(221,160)(221,146)])
link(onEvent3,8960731:doEvent1,[(221,167)(221,181)])
}
BEGIN_SDK
Add(EditMulti,7773986,21,21)
{
EventCount=3
WorkCount=1
Width=349
Height=137
link(doWork1,14045361:doNext,[(53,27)(53,90)])
}
Add(Hub,11447664,301,105)
{
link(onEvent1,7773986:onEvent3,[(340,111)(340,41)])
link(onEvent2,15894962:doClear,[(326,118)(326,132)(60,132)(60,62)])
}
Add(Counter,14045361,196,84)
{
Max=1
link(onNext,14569341:doEvent,[])
}
Add(IndexToChanel,14569341,245,84)
{
Point(Data)
link(onEvent1,11589230:doEvent1,[(291,90)(291,83)])
link(onEvent2,11447664:doEvent1,[(291,97)(291,111)])
link(Data,14045361:Count,[(251,75)(237,75)(237,124)(202,124)])
}
Add(Memory,15426058,119,49)
{
Default=String(Пуск)
link(onData,7773986:onEvent1,[(158,55)(158,27)])
}
Add(Memory,15894962,70,49)
{
Default=String(Стоп)
link(onData,15426058:doValue,[])
}
Add(Hub,11589230,301,77)
{
link(onEvent1,15426058:doClear,[(326,83)(326,69)(109,69)(109,62)])
link(onEvent2,7773986:onEvent2,[(333,90)(333,34)])
}
END_SDK
Add(Hub,1054435,231,140)
{
OutCount=3
link(onEvent1,7522516:doOff,[(263,146)(263,202)])
link(onEvent2,13828998:doStop,[])
link(onEvent3,5820169:doStop,[(277,160)(277,251)])
}
Add(Hub,8960731,231,175)
{
OutCount=3
link(onEvent1,13828998:doStart,[(272,181)(272,146)])
link(onEvent2,7522516:doOn,[(256,188)(256,209)])
link(onEvent3,5820169:doTimer,[(270,195)(270,244)])
}
Add(LED,7522516,287,189)
{
Left=90
Top=5
}
Add(Edit,6938981,287,84)
{
Left=135
Top=5
Width=230
Text="MyPC.wav"
}
Add(PaintBox,8758719,329,238)
{
Left=63
Top=45
Width=320
Height=120
link(onBeforeDraw,5631139:doDraw,[])
}
Add(BASS_ChannelVisibleSpectrum,5631139,371,238)
{
SoundStream="MyPC"
Width=4
Mode=1
link(WindowsHandle,8758719:Bitmap,[(377,226)(365,226)(365,277)(335,277)])
}
Add(Timer,5820169,287,238)
{
Interval=50
Enable=1
link(onTimer,8758719:doRefresh,[])
}

карма: 19

0